Lines Matching refs:fields

40     @fields = split();
45     for ($i=0; $i<@fields; $i++) {
46         if ($fields[$i] =~ /^#/) {
47             @fields = @fields[0 .. $i-1];
52     if (@fields == 0) {
62     if (@fields[0] =~ /.*:$/) {
63         $state_name = @fields[0];
74         if (@fields == 1) {
77         shift @fields;                       # shift off label field in preparation
96     if ($fields[0] =~ /^'.'$/) {
98         $state_literal_chars[$num_states] = $fields[0];
102         $state_char_class[$num_states] = $fields[0];
103         if ($fields[0] =~ /[\W]/) {
105             print "     scanning $fields[0]\n";
109     shift @fields;
115     if ($fields[0] eq "n") {
117         shift @fields;
123     $state_dest_state[$num_states] = $fields[0];
124     if ($fields[0] eq "") {
128     shift @fields;
133     if ($fields[0] =~ /^\^/) {
134         $fields[0] =~ s/^\^//;
135         $state_push_state[$num_states] = $fields[0];
136         if ($fields[0] eq "" ) {
140         shift @fields;
146     if ($fields[0] ne "") {
147         $state_func_name[$num_states] = $fields[0];
148         shift @fields;
154     if (@fields > 0) {
156        print "     scanning $fields[0]\n";