Lines Matching refs:v
31 my $v;
35 $v = 0;
36 $v |= $NUMBER if $c =~ /[0-9]/;
37 $v |= $UPPER if $c =~ /[A-Z]/;
38 $v |= $LOWER if $c =~ /[a-z]/;
39 $v |= $UNDER if $c =~ /_/;
40 $v |= $PUNCTUATION if $c =~ /[!\.%&\*\+,\/;\?\@\^\~\|-]/;
41 $v |= $WS if $c =~ /[ \t\r\n]/;
42 $v |= $ESC if $c =~ /\\/;
43 $v |= $QUOTE if $c =~ /['`"]/; # for emacs: "`'
44 $v |= $COMMENT if $c =~ /\#/;
45 $v |= $DOLLAR if $c eq '$';
46 $v |= $EOF if $c =~ /\0/;
47 push(@V_def, $v);
49 $v = 0;
50 $v |= $NUMBER if $c =~ /[0-9]/;
51 $v |= $UPPER if $c =~ /[A-Z]/;
52 $v |= $LOWER if $c =~ /[a-z]/;
53 $v |= $UNDER if $c =~ /_/;
54 $v |= $PUNCTUATION if $c =~ /[!\.%&\*\+,\/;\?\@\^\~\|-]/;
55 $v |= $WS if $c =~ /[ \t\r\n]/;
56 $v |= $DQUOTE if $c =~ /["]/; # for emacs: "
57 $v |= $FCOMMENT if $c =~ /;/;
58 $v |= $DOLLAR if $c eq '$';
59 $v |= $EOF if $c =~ /\0/;
60 push(@V_w32, $v);
