/[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.3 by wakaba, Tue Oct 14 05:34:05 2008 UTC revision 1.4 by wakaba, Tue Oct 14 11:46:57 2008 UTC
# Line 441  sub _get_next_token ($) { Line 441  sub _get_next_token ($) {
441            !!!cp (19);            !!!cp (19);
442            $self->{ct}            $self->{ct}
443              = {type => START_TAG_TOKEN,              = {type => START_TAG_TOKEN,
444                 tag_name => chr ($self->{nc} + 0x0020),                 tag_name => chr ($self->{nc} + ($self->{is_xml} ? 0 : 0x0020)),
445                 line => $self->{line_prev},                 line => $self->{line_prev},
446                 column => $self->{column_prev}};                 column => $self->{column_prev}};
447            $self->{state} = TAG_NAME_STATE;            $self->{state} = TAG_NAME_STATE;
# Line 530  sub _get_next_token ($) { Line 530  sub _get_next_token ($) {
530          !!!cp (29);          !!!cp (29);
531          $self->{ct}          $self->{ct}
532              = {type => END_TAG_TOKEN,              = {type => END_TAG_TOKEN,
533                 tag_name => chr ($self->{nc} + 0x0020),                 tag_name => chr ($self->{nc} + ($self->{is_xml} ? 0 : 0x0020)),
534                 line => $l, column => $c};                 line => $l, column => $c};
535          $self->{state} = TAG_NAME_STATE;          $self->{state} = TAG_NAME_STATE;
536          !!!next-input-character;          !!!next-input-character;
# Line 661  sub _get_next_token ($) { Line 661  sub _get_next_token ($) {
661        } elsif (0x0041 <= $self->{nc} and        } elsif (0x0041 <= $self->{nc} and
662                 $self->{nc} <= 0x005A) { # A..Z                 $self->{nc} <= 0x005A) { # A..Z
663          !!!cp (38);          !!!cp (38);
664          $self->{ct}->{tag_name} .= chr ($self->{nc} + 0x0020);          $self->{ct}->{tag_name}
665                .= chr ($self->{nc} + ($self->{is_xml} ? 0 : 0x0020));
666            # start tag or end tag            # start tag or end tag
667          ## Stay in this state          ## Stay in this state
668          !!!next-input-character;          !!!next-input-character;
# Line 733  sub _get_next_token ($) { Line 734  sub _get_next_token ($) {
734                 $self->{nc} <= 0x005A) { # A..Z                 $self->{nc} <= 0x005A) { # A..Z
735          !!!cp (49);          !!!cp (49);
736          $self->{ca}          $self->{ca}
737              = {name => chr ($self->{nc} + 0x0020),              = {name => chr ($self->{nc} + ($self->{is_xml} ? 0 : 0x0020)),
738                 value => '',                 value => '',
739                 line => $self->{line}, column => $self->{column}};                 line => $self->{line}, column => $self->{column}};
740          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
# Line 834  sub _get_next_token ($) { Line 835  sub _get_next_token ($) {
835        } elsif (0x0041 <= $self->{nc} and        } elsif (0x0041 <= $self->{nc} and
836                 $self->{nc} <= 0x005A) { # A..Z                 $self->{nc} <= 0x005A) { # A..Z
837          !!!cp (63);          !!!cp (63);
838          $self->{ca}->{name} .= chr ($self->{nc} + 0x0020);          $self->{ca}->{name}
839                .= chr ($self->{nc} + ($self->{is_xml} ? 0 : 0x0020));
840          ## Stay in the state          ## Stay in the state
841          !!!next-input-character;          !!!next-input-character;
842          redo A;          redo A;
# Line 918  sub _get_next_token ($) { Line 920  sub _get_next_token ($) {
920                 $self->{nc} <= 0x005A) { # A..Z                 $self->{nc} <= 0x005A) { # A..Z
921          !!!cp (76);          !!!cp (76);
922          $self->{ca}          $self->{ca}
923              = {name => chr ($self->{nc} + 0x0020),              = {name => chr ($self->{nc} + ($self->{is_xml} ? 0 : 0x0020)),
924                 value => '',                 value => '',
925                 line => $self->{line}, column => $self->{column}};                 line => $self->{line}, column => $self->{column}};
926          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24