| 126 |
|
$self->{switch}->checktag($name,$hashref,'value'); |
| 127 |
|
if ( $self->{Arch} ) { |
| 128 |
|
if ( $self->{Runtimecontext} == 1 ) { |
| 129 |
< |
print "No </$name> before new tag at line ". |
| 130 |
< |
$self->{switch}->line()."\n"; |
| 131 |
< |
exit 1; |
| 129 |
> |
$self->{switch}->parseerror("No </$name> before new tag"); |
| 130 |
|
} |
| 131 |
|
$self->{Runtimecontext}=1; |
| 132 |
|
|
| 135 |
|
if ( defined $$hashref{'type'} ) { |
| 136 |
|
if ( ( exists $self->{'vartype'}{$$hashref{'name'}} ) && |
| 137 |
|
( $self->{'vartype'}{$$hashref{'name'}} ne $$hashref{'type'}) ){ |
| 138 |
< |
print "Redefinition of Variable type for ".$$hashref{'name'} |
| 139 |
< |
." on line ".$self->{switch}->line(); |
| 138 |
> |
$self->{switch}->parseerror("Redefinition of Variable". |
| 139 |
> |
" type for ".$$hashref{'name'}); |
| 140 |
|
} |
| 141 |
|
$self->{'vartype'}{$$hashref{'name'}}=$$hashref{'type'}; |
| 142 |
|
if ( defined $self->{validtypes}{$$hashref{'type'}} ) { |
| 143 |
< |
print "Unknown type ".$$hashref{'type'}." on line ". |
| 144 |
< |
$self->{switch}->line()."\n"; |
| 147 |
< |
exit 1; |
| 143 |
> |
$self->{switch}->parseerror( |
| 144 |
> |
"Unknown type ".$$hashref{'type'}); |
| 145 |
|
} |
| 146 |
|
} |
| 147 |
|
else { |
