|
Lines 61-67
Link Here
|
| 61 |
else { |
61 |
else { |
| 62 |
$field[0] =~ /^[IWQXE][0-9]$/ || &error("invalid first field");; |
62 |
$field[0] =~ /^[IWQXE][0-9]$/ || &error("invalid first field");; |
| 63 |
$type[$num] = substr($field[0], 0, 1); |
63 |
$type[$num] = substr($field[0], 0, 1); |
| 64 |
$argc = int(substr($field[0], 1, 1)); |
64 |
$argc = substr($field[0], 1, 1); |
| 65 |
} |
65 |
} |
| 66 |
$nargs[$num] = $argc; |
66 |
$nargs[$num] = $argc; |
| 67 |
$field[1] =~ /^[a-zA-Z_][a-zA-Z0-9_]+$/ || &error("invalid tag"); |
67 |
$field[1] =~ /^[a-zA-Z_][a-zA-Z0-9_]+$/ || &error("invalid tag"); |
