Lines Matching refs:fields
36 @fields = split();
39 # Remove # comments, which are any fields beginning with a #, plus all
41 for ($i=0; $i<@fields; $i++) {
42 if ($fields[$i] =~ /^#/) {
43 @fields = @fields[0 .. $i-1];
47 # ignore blank lines, and those with no fields left after stripping comments..
48 if (@fields == 0) {
58 if (@fields[0] =~ /.*:$/) {
59 $state_name = @fields[0];
70 if (@fields == 1) {
73 shift @fields; # shift off label field in preparation
92 if ($fields[0] =~ /^'.'$/) {
94 $state_literal_chars[$num_states] = $fields[0];
98 $state_char_class[$num_states] = $fields[0];
99 if ($fields[0] =~ /[\W]/) {
101 print " scanning $fields[0]\n";
105 shift @fields;
111 if ($fields[0] eq "n") {
113 shift @fields;
119 $state_dest_state[$num_states] = $fields[0];
120 if ($fields[0] eq "") {
124 shift @fields;
129 if ($fields[0] =~ /^\^/) {
130 $fields[0] =~ s/^\^//;
131 $state_push_state[$num_states] = $fields[0];
132 if ($fields[0] eq "" ) {
136 shift @fields;
142 if ($fields[0] ne "") {
143 $state_func_name[$num_states] = $fields[0];
144 shift @fields;
148 # There should be no fields left on the line at this point.
150 if (@fields > 0) {
152 print " scanning $fields[0]\n";
