version 1.32, 2005/06/13 20:23:53
|
version 1.33, 2005/09/26 19:47:52
|
Line 92 sub loadmap {
|
Line 92 sub loadmap {
|
} elsif ($token->[1] eq 'resource') { |
} elsif ($token->[1] eq 'resource') { |
# -------------------------------------------------------------------- Resource |
# -------------------------------------------------------------------- Resource |
$outstr.='<&>objcont'; |
$outstr.='<&>objcont'; |
if ($token->[2]->{'id'}) { |
if (defined($token->[2]->{'id'})) { |
$outstr.='<:>'.$token->[2]->{'id'}; |
$outstr.='<:>'.$token->[2]->{'id'}; |
if ($obj[$token->[2]->{'id'}]==1) { |
if ($obj[$token->[2]->{'id'}]==1) { |
$errtext.='Error: multiple use of ID '. |
$errtext.='Error: multiple use of ID '. |
Line 113 sub loadmap {
|
Line 113 sub loadmap {
|
} else { |
} else { |
$outstr.='false:'; |
$outstr.='false:'; |
} |
} |
if ($token->[2]->{'type'}) { |
if (defined($token->[2]->{'type'})) { |
$outstr.=$token->[2]->{'type'}.':'; |
$outstr.=$token->[2]->{'type'}.':'; |
} else { |
} else { |
$outstr.='normal:'; |
$outstr.='normal:'; |
Line 126 sub loadmap {
|
Line 126 sub loadmap {
|
} elsif ($token->[1] eq 'condition') { |
} elsif ($token->[1] eq 'condition') { |
# ------------------------------------------------------------------- Condition |
# ------------------------------------------------------------------- Condition |
$outstr.='<&>objcont'; |
$outstr.='<&>objcont'; |
if ($token->[2]->{'id'}) { |
if (defined($token->[2]->{'id'})) { |
$outstr.='<:>'.$token->[2]->{'id'}; |
$outstr.='<:>'.$token->[2]->{'id'}; |
if ($obj[$token->[2]->{'id'}]==1) { |
if ($obj[$token->[2]->{'id'}]==1) { |
$errtext.='Error: multiple use of ID '. |
$errtext.='Error: multiple use of ID '. |
Line 141 sub loadmap {
|
Line 141 sub loadmap {
|
} |
} |
$outstr.='<:>'; |
$outstr.='<:>'; |
$outstr.=qtunescape($token->[2]->{'value'}).':'; |
$outstr.=qtunescape($token->[2]->{'value'}).':'; |
if ($token->[2]->{'type'}) { |
if (defined($token->[2]->{'type'})) { |
$outstr.=$token->[2]->{'type'}.':'; |
$outstr.=$token->[2]->{'type'}.':'; |
} else { |
} else { |
$outstr.='normal:'; |
$outstr.='normal:'; |
Line 151 sub loadmap {
|
Line 151 sub loadmap {
|
# ----------------------------------------------------------------------- Links |
# ----------------------------------------------------------------------- Links |
$outstr.='<&>objlinks'; |
$outstr.='<&>objlinks'; |
|
|
if ($token->[2]->{'index'}) { |
if (defined($token->[2]->{'index'})) { |
if ($links[$token->[2]->{'index'}]) { |
if ($links[$token->[2]->{'index'}]) { |
$errtext.='Error: multiple use of link index '. |
$errtext.='Error: multiple use of link index '. |
$token->[2]->{'index'}.'. '; |
$token->[2]->{'index'}.'. '; |
Line 167 sub loadmap {
|
Line 167 sub loadmap {
|
|
|
$outstr.='<:>'.$token->[2]->{'from'}. |
$outstr.='<:>'.$token->[2]->{'from'}. |
':'.$token->[2]->{'to'}; |
':'.$token->[2]->{'to'}; |
if ($token->[2]->{'condition'}) { |
if (defined($token->[2]->{'condition'})) { |
$outstr.=':'.$token->[2]->{'condition'}; |
$outstr.=':'.$token->[2]->{'condition'}; |
} else { |
} else { |
$outstr.=':0'; |
$outstr.=':0'; |