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

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

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

revision 1.31 by wakaba, Sat Jun 30 14:13:19 2007 UTC revision 1.33 by wakaba, Sat Jul 7 13:41:05 2007 UTC
# Line 705  sub _get_next_token ($) { Line 705  sub _get_next_token ($) {
705            #            #
706          } else {          } else {
707            !!!parse-error (type => 'nestc');            !!!parse-error (type => 'nestc');
708              ## TODO: Different error type for <aa / bb> than <aa/>
709          }          }
710          $self->{state} = 'before attribute name';          $self->{state} = 'before attribute name';
711          # next-input-character is already done          # next-input-character is already done
# Line 1084  sub _get_next_token ($) { Line 1085  sub _get_next_token ($) {
1085          redo A;          redo A;
1086        } else {        } else {
1087          $self->{current_token}->{data} # comment          $self->{current_token}->{data} # comment
1088              .= chr ($self->{next_input_character});              .= '-' . chr ($self->{next_input_character});
1089          $self->{state} = 'comment';          $self->{state} = 'comment';
1090          !!!next-input-character;          !!!next-input-character;
1091          redo A;          redo A;
# Line 3118  sub _tree_construction_main ($) { Line 3119  sub _tree_construction_main ($) {
3119          } # INSCOPE          } # INSCOPE
3120                    
3121          if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {          if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
3122            !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);            if (defined $i) {
3123                !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
3124              } else {
3125                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
3126              }
3127          }          }
3128                    
3129          if (defined $i) {          if (defined $i) {
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.33
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24