version 1.57, 2001/03/19 20:08:53
|
version 1.58, 2001/03/20 16:47:21
|
Line 179 sub recurse {
|
Line 179 sub recurse {
|
if (($tokenpat->[0] eq 'T') || ($tokenpat->[0] eq 'C') || ($tokenpat->[0] eq 'D') ) { |
if (($tokenpat->[0] eq 'T') || ($tokenpat->[0] eq 'C') || ($tokenpat->[0] eq 'D') ) { |
$partstring = $tokenpat->[1]; |
$partstring = $tokenpat->[1]; |
} elsif ($tokenpat->[0] eq 'PI') { |
} elsif ($tokenpat->[0] eq 'PI') { |
$result=$tokenpat->[2]; |
$partstring = $tokenpat->[2]; |
} 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)); |