Parent Directory
| 
Revision Log
| 
Patch
| revision 1.4 by wakaba, Fri Nov 7 04:03:16 2008 UTC | revision 1.5 by wakaba, Fri Nov 7 08:45:28 2008 UTC | |
|---|---|---|
| # | Line 205 sub parse_char_string ($$$;$) { | Line 205 sub parse_char_string ($$$;$) { |
| 205 | line => $line, column => $column}; | line => $line, column => $column}; |
| 206 | $column += 4; | $column += 4; |
| 207 | } | } |
| 208 | } elsif ($$s =~ s/^([^<>\['_]+)//) { | } elsif ($$s =~ s/^([^<>\[\]'_]+)//) { |
| 209 | push @nt, {type => CHARACTER_TOKEN, data => $1, | push @nt, {type => CHARACTER_TOKEN, data => $1, |
| 210 | line => $line, column => $column}; | line => $line, column => $column}; |
| 211 | $column += $+[0] - $-[0]; | $column += $+[0] - $-[0]; |
| # | Line 288 sub parse_char_string ($$$;$) { | Line 288 sub parse_char_string ($$$;$) { |
| 288 | $name =~ s/\A[\x09\x20]*//; | $name =~ s/\A[\x09\x20]*//; |
| 289 | $column += 1 + $+[0] - $-[0]; | $column += 1 + $+[0] - $-[0]; |
| 290 | $name =~ s/[\x09\x20]+\z//; | $name =~ s/[\x09\x20]+\z//; |
| 291 | $tokenize_text->(\$s); | $tokenize_text->(\$name); |
| 292 | $column = $real_column; | $column = $real_column; |