version 1.122, 2007/08/28 01:13:19
|
version 1.123, 2007/08/28 16:45:20
|
Line 236 sub loadmap {
|
Line 236 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'}; |