/[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.93 by wakaba, Sat Mar 8 03:43:48 2008 UTC revision 1.94 by wakaba, Sat Mar 8 04:13:10 2008 UTC
# Line 4230  sub _tree_construction_main ($) { Line 4230  sub _tree_construction_main ($) {
4230                  while ($self->{open_elements}->[-1]->[1] ne 'table' and                  while ($self->{open_elements}->[-1]->[1] ne 'table' and
4231                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4232                    !!!cp ('t201');                    !!!cp ('t201');
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4233                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4234                  }                  }
4235                                    
# Line 4251  sub _tree_construction_main ($) { Line 4250  sub _tree_construction_main ($) {
4250                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4251                    !!!cp ('t203');                    !!!cp ('t203');
4252                    ## ISSUE: Can this case be reached?                    ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4253                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4254                  }                  }
4255                                    
# Line 4275  sub _tree_construction_main ($) { Line 4273  sub _tree_construction_main ($) {
4273                  tr => 1, html => 1,                  tr => 1, html => 1,
4274                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4275                  !!!cp ('t207');                  !!!cp ('t207');
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4276                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4277                }                }
4278                                
# Line 4326  sub _tree_construction_main ($) { Line 4323  sub _tree_construction_main ($) {
4323                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4324                    !!!cp ('t211');                    !!!cp ('t211');
4325                    ## ISSUE: Can this case be reached?                    ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4326                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4327                  }                  }
4328                                    
# Line 4375  sub _tree_construction_main ($) { Line 4371  sub _tree_construction_main ($) {
4371                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4372                    !!!cp ('t217');                    !!!cp ('t217');
4373                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4374                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4375                  }                  }
4376                                    
# Line 4399  sub _tree_construction_main ($) { Line 4394  sub _tree_construction_main ($) {
4394                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4395                    !!!cp ('t219');                    !!!cp ('t219');
4396                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4397                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4398                  }                  }
4399                                    
# Line 4417  sub _tree_construction_main ($) { Line 4411  sub _tree_construction_main ($) {
4411                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4412                    !!!cp ('t220');                    !!!cp ('t220');
4413                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4414                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4415                  }                  }
4416                                    
# Line 4529  sub _tree_construction_main ($) { Line 4522  sub _tree_construction_main ($) {
4522                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4523                  !!!cp ('t231');                  !!!cp ('t231');
4524  ## ISSUE: Can this state be reached?  ## ISSUE: Can this state be reached?
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4525                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4526                }                }
4527    
# Line 4570  sub _tree_construction_main ($) { Line 4562  sub _tree_construction_main ($) {
4562                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4563                    !!!cp ('t236');                    !!!cp ('t236');
4564  ## ISSUE: Can this state be reached?  ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4565                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4566                  }                  }
4567                                    
# Line 4610  sub _tree_construction_main ($) { Line 4601  sub _tree_construction_main ($) {
4601                    tbody => 1, tfoot => 1, thead => 1, html => 1,                    tbody => 1, tfoot => 1, thead => 1, html => 1,
4602                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4603                    !!!cp ('t240');                    !!!cp ('t240');
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4604                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4605                  }                  }
4606                                    
# Line 4626  sub _tree_construction_main ($) { Line 4616  sub _tree_construction_main ($) {
4616                  ## reprocess in the "in table" insertion mode...                  ## reprocess in the "in table" insertion mode...
4617                }                }
4618    
4619                  ## NOTE: </table> in the "in table" insertion mode.
4620                  ## When you edit the code fragment below, please ensure that
4621                  ## the code for <table> in the "in table" insertion mode
4622                  ## is synced with it.
4623    
4624                ## have a table element in table scope                ## have a table element in table scope
4625                my $i;                my $i;
4626                INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {                INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
# Line 4648  sub _tree_construction_main ($) { Line 4643  sub _tree_construction_main ($) {
4643                  !!!next-token;                  !!!next-token;
4644                  redo B;                  redo B;
4645                }                }
   
               ## generate implied end tags  
               while ({  
                       dd => 1, dt => 1, li => 1, p => 1,  
                      }->{$self->{open_elements}->[-1]->[1]}) {  
                 !!!cp ('t244');  
 ## ISSUE: Can this case be reached?  
                 pop @{$self->{open_elements}};  
               }  
                 
               if ($self->{open_elements}->[-1]->[1] ne 'table') {  
                 !!!cp ('t245');  
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
               } else {  
                 !!!cp ('t246');  
               }  
4646                                    
4647                splice @{$self->{open_elements}}, $i;                splice @{$self->{open_elements}}, $i;
4648                                
# Line 4729  sub _tree_construction_main ($) { Line 4708  sub _tree_construction_main ($) {
4708                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4709                    !!!cp ('t253');                    !!!cp ('t253');
4710  ## ISSUE: Can this case be reached?  ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4711                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4712                  }                  }
4713                                    
# Line 4767  sub _tree_construction_main ($) { Line 4745  sub _tree_construction_main ($) {
4745                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4746                  !!!cp ('t257');                  !!!cp ('t257');
4747  ## ISSUE: Can this case be reached?  ## ISSUE: Can this case be reached?
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4748                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4749                }                }
4750    
Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24