Lines Matching refs:fields
37 @fields = split();
40 # Remove # comments, which are any fields beginning with a #, plus all
42 for ($i=0; $i<@fields; $i++) {
43 if ($fields[$i] =~ /^#/) {
44 @fields = @fields[0 .. $i-1];
48 # ignore blank lines, and those with no fields left after stripping comments..
49 if (@fields == 0) {
59 if (@fields[0] =~ /.*:$/) {
60 $state_name = @fields[0];
71 if (@fields == 1) {
74 shift @fields; # shift off label field in preparation
93 if ($fields[0] =~ /^'.'$/) {
95 $state_literal_chars[$num_states] = $fields[0];
99 $state_char_class[$num_states] = $fields[0];
100 if ($fields[0] =~ /[\W]/) {
102 print " scanning $fields[0]\n";
106 shift @fields;
112 if ($fields[0] eq "n") {
114 shift @fields;
120 $state_dest_state[$num_states] = $fields[0];
121 if ($fields[0] eq "") {
125 shift @fields;
130 if ($fields[0] =~ /^\^/) {
131 $fields[0] =~ s/^\^//;
132 $state_push_state[$num_states] = $fields[0];
133 if ($fields[0] eq "" ) {
137 shift @fields;
143 if ($fields[0] ne "") {
144 $state_func_name[$num_states] = $fields[0];
145 shift @fields;
149 # There should be no fields left on the line at this point.
151 if (@fields > 0) {
153 print " scanning $fields[0]\n";
