/[suikacvs]/markup/html/whatpm/Whatpm/mkhtmlparser.pl
Suika

Diff of /markup/html/whatpm/Whatpm/mkhtmlparser.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Wed May 2 13:44:35 2007 UTC revision 1.3 by wakaba, Mon Mar 3 09:17:10 2008 UTC
# Line 5  while (<>) { Line 5  while (<>) {
5    s/!!!emit\b/return /;    s/!!!emit\b/return /;
6    s{!!!next-input-character;}{q{    s{!!!next-input-character;}{q{
7        if (@{$self->{char}}) {        if (@{$self->{char}}) {
8          $self->{next_input_character} = shift @{$self->{char}};          $self->{next_char} = shift @{$self->{char}};
9        } else {        } else {
10          $self->{set_next_input_character}->($self);          $self->{set_next_char}->($self);
11        }        }
12    }}ge;    }}ge;
13    s{!!!back-next-input-character\b}{q{unshift @{$self->{char}}, }}ge;    s{!!!back-next-input-character\b}{q{unshift @{$self->{char}}, }}ge;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24