# The LearningOnline Network with CAPA
# Style Parser Module (new version)
#
# written 01/08/01 by Alexander Sakharuk
#
package Apache::style;
use strict;
use HTML::TokeParser;
sub styleparser {
my ($target,$content_style_string) = @_;
my $current_key = '';
my $current_value = '';
my @keys = ();
my @values = ();
my @style_array = ();
my $stoken;
my $b_pos;
my $e_pos;
my $entry;
$b_pos = index($content_style_string,'<definetag',0);
while ($b_pos != -1) {
$e_pos = index($content_style_string,'</definetag',$b_pos);
$entry = substr($content_style_string,$b_pos,$e_pos-$b_pos+12);
$_ = $entry;
m/<definetag\s+name\s*=\s*\"([^\"]*)\"/;
$current_key = $1;
push @keys,$current_key;
# &Apache::lonxml::debug("$current_key\n");
my $b_position = index($entry,'<'.$target.'>',0);
my $e_position = index($entry,'</'.$target.'>',$b_position);
my $target_length = length($target) + 2;
if ($b_position > -1) {
my $entry_target = substr($entry,$b_position+$target_length,$e_position-$b_position-$target_length);
my $pstyle = HTML::TokeParser->new(\$entry_target);
while ($stoken = $pstyle->get_token) {
if ($stoken->[0] eq 'T') {
$current_value .= $stoken->[1];
} elsif ($stoken->[0] eq 'S') {
my $number = &testkey($stoken->[0],$stoken->[1],@keys);
if ($number != -1) {
$current_value .= &testvalue($number,$stoken->[0],$stoken->[2],@values);
} else {
$current_value .= $stoken->[4];
}
} else {
my $number = &testkey($stoken->[0],$stoken->[1],@keys);
if ($number != -1) {
$current_value .= &testvalue($number,$stoken->[0],$stoken->[2],@values);
} else {
$current_value .= $stoken->[2];
}
}
}
}
push @values,$current_value;
# &Apache::lonxml::debug("a:$current_value $#values \n");
$current_key = '';
$current_value ='';
$b_pos = index($content_style_string,'<definetag',$b_pos+1);
}
for (my $i=0; $i<=$#keys; $i++) {
push @style_array,$keys[$i],$values[$i];
}
my %style_for_target = @style_array;
# check printing
while (($current_key,$current_value) = each %style_for_target) {
&Apache::lonxml::debug("$current_key => $current_value\n");
}
# return result
return %style_for_target;
}
sub testkey {
my ($zeroth,$first,@keys) = @_;
my $number = -1;
if ($zeroth eq 'S') {
for (my $i=$#keys; $i>=0; $i=$i-1) {
if ($first eq lc($keys[$i])) {
$number = $i;
last;
}
}
} elsif ($zeroth eq 'E') {
for (my $i=$#keys; $i>=0; $i=$i-1) {
if ('/'.$first eq lc($keys[$i])) {
$number = $i;
last;
}
}
}
return $number;
}
sub testvalue {
my ($number,$zeroth,$second,@values) = @_;
my $current_content = $values[$number];
if ($zeroth eq 'S') {
my %tempo_hash = %$second;
while ((my $current_k,my $current_v) = each %tempo_hash) {
$current_content =~ s/\$$current_k/$current_v/g;
}
} elsif ($zeroth eq 'E') {
$current_content = $values[$number];
}
return $current_content;
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>