version 1.1, 2000/06/29 14:47:59
|
version 1.2, 2000/06/29 19:31:09
|
Line 112 sub styleparser {
|
Line 112 sub styleparser {
|
# target found
|
# target found
|
if ($stoken->[0] eq 'S' and $stoken->[1] eq 'target') {
|
if ($stoken->[0] eq 'S' and $stoken->[1] eq 'target') {
|
# target defined via <target> tag
|
# target defined via <target> tag
|
if (index $stoken->[2]{dest},$target =! -1) {
|
if (defined $stoken->[2]{dest}) {
|
|
if (index($stoken->[2]{dest},$target) == -1) {
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
|
}
|
}
|
} else {
|
} elsif (index($stoken->[2]{dest},$target) != -1) {
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
|
if ($stoken->[0] eq 'T') {
|
if ($stoken->[0] eq 'T') {
|
$current_value .= $stoken->[1];
|
$current_value .= $stoken->[1];
|
Line 149 sub styleparser {
|
Line 150 sub styleparser {
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
} else {
|
|
if (index($stoken->[2]{excl},$target) != -1) {
|
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
|
|
}
|
|
} elsif (index($stoken->[2]{excl},$target) == -1) {
|
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
|
|
if ($stoken->[0] eq 'T') {
|
|
$current_value .= $stoken->[1];
|
|
} elsif ($stoken->[0] eq 'S') {
|
|
my $flagelem = 0;
|
|
for (my $i=$#value_style-1;$i>=0;$i=$i-2) {
|
|
if ($stoken->[1] eq $value_style[$i]) {
|
|
$flagelem = 1;
|
|
$iele = $i + 1;
|
|
last;
|
|
}
|
|
}
|
|
if ($flagelem == 0) {
|
|
$current_value .= $stoken->[4];
|
|
} else {
|
|
$current_value .= $value_style[$iele];
|
|
}
|
|
} elsif ($stoken->[0] eq 'E') {
|
|
my $flagelem = 0;
|
|
for (my $i=$#value_style-1;$i>=0;$i=$i-2) {
|
|
if ($stoken->[1] eq $value_style[$i]) {
|
|
$flagelem = 1;
|
|
$iele = $i + 1;
|
|
last;
|
|
}
|
|
}
|
|
if ($flagelem == 0) {
|
|
$current_value .= $stoken->[2];
|
|
} else {
|
|
$current_value .= $value_style[$iele];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
}
|
} elsif ($stoken->[1] ne $target) {
|
} elsif ($stoken->[1] ne $target) {
|
#target defined via short-form tag
|
#target defined via short-form tag
|
my $tempo_token = $stoken->[1];
|
my $tempo_token = $stoken->[1];
|