Lines Matching refs:fields
39 @fields = split();
42 # Remove # comments, which are any fields beginning with a #, plus all
44 for ($i=0; $i<@fields; $i++) {
45 if ($fields[$i] =~ /^#/) {
46 @fields = @fields[0 .. $i-1];
50 # ignore blank lines, and those with no fields left after stripping comments..
51 if (@fields == 0) {
61 if (@fields[0] =~ /.*:$/) {
62 $state_name = @fields[0];
73 if (@fields == 1) {
76 shift @fields; # shift off label field in preparation
95 if ($fields[0] =~ /^'.'$/) {
97 $state_literal_chars[$num_states] = $fields[0];
101 $state_char_class[$num_states] = $fields[0];
102 if ($fields[0] =~ /[\W]/) {
104 print " scanning $fields[0]\n";
108 shift @fields;
114 if ($fields[0] eq "n") {
116 shift @fields;
122 $state_dest_state[$num_states] = $fields[0];
123 if ($fields[0] eq "") {
127 shift @fields;
132 if ($fields[0] =~ /^\^/) {
133 $fields[0] =~ s/^\^//;
134 $state_push_state[$num_states] = $fields[0];
135 if ($fields[0] eq "" ) {
139 shift @fields;
145 if ($fields[0] ne "") {
146 $state_func_name[$num_states] = $fields[0];
147 shift @fields;
151 # There should be no fields left on the line at this point.
153 if (@fields > 0) {
155 print " scanning $fields[0]\n";
