version 1.11, 2000/07/18 21:27:10
|
version 1.12, 2000/07/20 15:37:54
|
Line 106 sub xmlparse {
|
Line 106 sub xmlparse {
|
my @innerstack = (); |
my @innerstack = (); |
my @innerparstack = (); |
my @innerparstack = (); |
$newarg = $style_for_target{'/'."$token->[1]"}; |
$newarg = $style_for_target{'/'."$token->[1]"}; |
|
|
|
# print "qqq: $token->[1],$newarg\n"; |
|
|
my $pat = HTML::TokeParser->new(\$newarg); |
my $pat = HTML::TokeParser->new(\$newarg); |
my $tokenpat; |
my $tokenpat; |
my $partstring = ''; |
my $partstring = ''; |
|
|
while ($tokenpat = $pat->get_token) { |
while ($tokenpat = $pat->get_token) { |
if ($tokenpat->[0] eq 'T') { |
if ($tokenpat->[0] eq 'T') { |
$partstring .= $tokenpat->[1]; |
$partstring = $tokenpat->[1]; |
} elsif ($tokenpat->[0] eq 'S') { |
} elsif ($tokenpat->[0] eq 'S') { |
push (@innerstack,$tokenpat->[1]); |
push (@innerstack,$tokenpat->[1]); |
push (@innerparstack,&parstring($tokenpat)); |
push (@innerparstack,&parstring($tokenpat)); |
Line 156 sub callsub {
|
Line 159 sub callsub {
|
$sub="$space\:\:$sub"; |
$sub="$space\:\:$sub"; |
$currentstring = &$sub($target,$token,\@$parstack,$parser,$safeeval); |
$currentstring = &$sub($target,$token,\@$parstack,$parser,$safeeval); |
} else { |
} else { |
print "NOT Calling sub $sub\n"; |
#print "NOT Calling sub $sub\n"; |
if (defined($token->[4])) { |
if (defined($token->[4])) { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} else { |
} else { |