/[suikacvs]/markup/html/whatpm/Whatpm/HTML/Tokenizer.pm.src
Suika

Diff of /markup/html/whatpm/Whatpm/HTML/Tokenizer.pm.src

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

revision 1.6 by wakaba, Tue Oct 14 14:57:52 2008 UTC revision 1.7 by wakaba, Tue Oct 14 15:25:50 2008 UTC
# Line 209  sub _initialize_tokenizer ($) { Line 209  sub _initialize_tokenizer ($) {
209  ##        ->{value}  ##        ->{value}
210  ##        ->{has_reference} == 1 or 0  ##        ->{has_reference} == 1 or 0
211  ##   ->{data} (COMMENT_TOKEN, CHARACTER_TOKEN)  ##   ->{data} (COMMENT_TOKEN, CHARACTER_TOKEN)
212    ##   ->{has_reference} == 1 or 0 (CHARACTER_TOKEN)
213  ## NOTE: The "self-closing flag" is hold as |$self->{self_closing}|.  ## NOTE: The "self-closing flag" is hold as |$self->{self_closing}|.
214  ##     |->{self_closing}| is used to save the value of |$self->{self_closing}|  ##     |->{self_closing}| is used to save the value of |$self->{self_closing}|
215  ##     while the token is pushed back to the stack.  ##     while the token is pushed back to the stack.
# Line 2556  sub _get_next_token ($) { Line 2557  sub _get_next_token ($) {
2557          $self->{s_kwd} = '';          $self->{s_kwd} = '';
2558          ## Reconsume.          ## Reconsume.
2559          !!!emit ({type => CHARACTER_TOKEN, data => chr $code,          !!!emit ({type => CHARACTER_TOKEN, data => chr $code,
2560                      has_reference => 1,
2561                    line => $l, column => $c,                    line => $l, column => $c,
2562                   });                   });
2563          redo A;          redo A;
# Line 2668  sub _get_next_token ($) { Line 2670  sub _get_next_token ($) {
2670          $self->{s_kwd} = '';          $self->{s_kwd} = '';
2671          ## Reconsume.          ## Reconsume.
2672          !!!emit ({type => CHARACTER_TOKEN, data => chr $code,          !!!emit ({type => CHARACTER_TOKEN, data => chr $code,
2673                      has_reference => 1,
2674                    line => $l, column => $c,                    line => $l, column => $c,
2675                   });                   });
2676          redo A;          redo A;
# Line 2763  sub _get_next_token ($) { Line 2766  sub _get_next_token ($) {
2766          ## Reconsume.          ## Reconsume.
2767          !!!emit ({type => CHARACTER_TOKEN,          !!!emit ({type => CHARACTER_TOKEN,
2768                    data => $data,                    data => $data,
2769                      has_reference => $has_ref,
2770                    line => $self->{line_prev},                    line => $self->{line_prev},
2771                    column => $self->{column_prev} + 1 - length $self->{s_kwd},                    column => $self->{column_prev} + 1 - length $self->{s_kwd},
2772                   });                   });
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24