Lines Matching refs:fields

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