Parent Directory
| 
Revision Log
| 
Patch
| revision 1.71 by wakaba, Sun Mar 2 03:39:41 2008 UTC | revision 1.102 by wakaba, Sun Mar 9 06:29:25 2008 UTC | |
|---|---|---|
| # | Line 179 sub parse_string ($$$;$) { | Line 179 sub parse_string ($$$;$) { |
| 179 | my $i = 0; | my $i = 0; |
| 180 | my $line = 1; | my $line = 1; |
| 181 | my $column = 0; | my $column = 0; |
| 182 | $self->{set_next_input_character} = sub { | $self->{set_next_char} = sub { |
| 183 | my $self = shift; | my $self = shift; |
| 184 | ||
| 185 | pop @{$self->{prev_input_character}}; | pop @{$self->{prev_char}}; |
| 186 | unshift @{$self->{prev_input_character}}, $self->{next_input_character}; | unshift @{$self->{prev_char}}, $self->{next_char}; |
| 187 | ||
| 188 | $self->{next_input_character} = -1 and return if $i >= length $$s; | $self->{next_char} = -1 and return if $i >= length $$s; |
| 189 | $self->{next_input_character} = ord substr $$s, $i++, 1; | $self->{next_char} = ord substr $$s, $i++, 1; |
| 190 | $column++; | $column++; |
| 191 | ||
| 192 | if ($self->{next_input_character} == 0x000A) { # LF | if ($self->{next_char} == 0x000A) { # LF |
| 193 | $line++; | $line++; |
| 194 | $column = 0; | $column = 0; |