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

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

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

revision 1.22 by wakaba, Sun Oct 19 10:12:54 2008 UTC revision 1.24 by wakaba, Sun Oct 19 14:05:20 2008 UTC
# Line 5469  sub _get_next_token ($) { Line 5469  sub _get_next_token ($) {
5469          ## XML5: Not defined yet.          ## XML5: Not defined yet.
5470    
5471          ## TODO:          ## TODO:
5472    
5473            if (not $self->{stop_processing} and
5474                not $self->{document}->xml_standalone) {
5475              $self->{parse_error}->(level => $self->{level}->{must}, type => 'stop processing', ## TODO: type
5476                              level => $self->{level}->{info});
5477              $self->{stop_processing} = 1;
5478            }
5479    
5480                    
5481      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {
5482        $self->{line_prev} = $self->{line};        $self->{line_prev} = $self->{line};
# Line 5903  sub _get_next_token ($) { Line 5911  sub _get_next_token ($) {
5911          }          }
5912          $self->{ct} = {type => ELEMENT_TOKEN, name => '',          $self->{ct} = {type => ELEMENT_TOKEN, name => '',
5913                         line => $self->{line_prev},                         line => $self->{line_prev},
5914                         column => $self->{column_prev} - 6};                         column => $self->{column_prev} - 7};
5915          $self->{state} = DOCTYPE_MD_STATE;          $self->{state} = DOCTYPE_MD_STATE;
5916                    
5917      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {
# Line 5971  sub _get_next_token ($) { Line 5979  sub _get_next_token ($) {
5979          $self->{ct} = {type => ATTLIST_TOKEN, name => '',          $self->{ct} = {type => ATTLIST_TOKEN, name => '',
5980                         attrdefs => [],                         attrdefs => [],
5981                         line => $self->{line_prev},                         line => $self->{line_prev},
5982                         column => $self->{column_prev} - 6};                         column => $self->{column_prev} - 7};
5983          $self->{state} = DOCTYPE_MD_STATE;          $self->{state} = DOCTYPE_MD_STATE;
5984                    
5985      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {
# Line 6040  sub _get_next_token ($) { Line 6048  sub _get_next_token ($) {
6048          }          }
6049          $self->{ct} = {type => NOTATION_TOKEN, name => '',          $self->{ct} = {type => NOTATION_TOKEN, name => '',
6050                         line => $self->{line_prev},                         line => $self->{line_prev},
6051                         column => $self->{column_prev} - 6};                         column => $self->{column_prev} - 8};
6052          $self->{state} = DOCTYPE_MD_STATE;          $self->{state} = DOCTYPE_MD_STATE;
6053                    
6054      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {      if ($self->{char_buffer_pos} < length $self->{char_buffer}) {
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.24
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24