Lines Matching refs:fields

37     @fields = split();
42     for ($i=0; $i<@fields; $i++) {
43         if ($fields[$i] =~ /^#/) {
44             @fields = @fields[0 .. $i-1];
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;
151     if (@fields > 0) {
153        print "     scanning $fields[0]\n";