version 1.119, 2007/06/28 22:16:53
|
version 1.119.2.1, 2007/10/29 18:51:00
|
Line 234 sub loadmap {
|
Line 234 sub loadmap {
|
my $rid=$lpc.'.'.$token->[2]->{'id'}; |
my $rid=$lpc.'.'.$token->[2]->{'id'}; |
|
|
$hash{'kind_'.$rid}='cond'; |
$hash{'kind_'.$rid}='cond'; |
$cond[$#cond+1]=$token->[2]->{'value'}; |
my $condition = $token->[2]->{'value'}; |
|
$condition =~ s/[\n\r]+/ /gs; |
|
push(@cond, $condition); |
$hash{'condid_'.$rid}=$#cond; |
$hash{'condid_'.$rid}=$#cond; |
if ($token->[2]->{'type'}) { |
if ($token->[2]->{'type'}) { |
$cond[$#cond].=':'.$token->[2]->{'type'}; |
$cond[$#cond].=':'.$token->[2]->{'type'}; |