/[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.84 by wakaba, Thu Mar 6 15:23:17 2008 UTC revision 1.96 by wakaba, Sat Mar 8 13:26:45 2008 UTC
# Line 2743  sub _reset_insertion_mode ($) { Line 2743  sub _reset_insertion_mode ($) {
2743            
2744      ## Step 3      ## Step 3
2745      S3: {      S3: {
       ## ISSUE: Oops! "If node is the first node in the stack of open  
       ## elements, then set last to true. If the context element of the  
       ## HTML fragment parsing algorithm is neither a td element nor a  
       ## th element, then set node to the context element. (fragment case)":  
       ## The second "if" is in the scope of the first "if"!?  
2746        if ($self->{open_elements}->[0]->[0] eq $node->[0]) {        if ($self->{open_elements}->[0]->[0] eq $node->[0]) {
2747          $last = 1;          $last = 1;
2748          if (defined $self->{inner_html_node}) {          if (defined $self->{inner_html_node}) {
# Line 2908  sub _tree_construction_main ($) { Line 2903  sub _tree_construction_main ($) {
2903      !!!cp ('t39');      !!!cp ('t39');
2904    }; # $clear_up_to_marker    }; # $clear_up_to_marker
2905    
2906    my $parse_rcdata = sub ($$) {    my $insert;
2907      my ($content_model_flag, $insert) = @_;  
2908      my $parse_rcdata = sub ($) {
2909        my ($content_model_flag) = @_;
2910    
2911      ## Step 1      ## Step 1
2912      my $start_tag_name = $token->{tag_name};      my $start_tag_name = $token->{tag_name};
# Line 2917  sub _tree_construction_main ($) { Line 2914  sub _tree_construction_main ($) {
2914      !!!create-element ($el, $start_tag_name, $token->{attributes});      !!!create-element ($el, $start_tag_name, $token->{attributes});
2915    
2916      ## Step 2      ## Step 2
2917      $insert->($el); # /context node/->append_child ($el)      $insert->($el);
2918    
2919      ## Step 3      ## Step 3
2920      $self->{content_model} = $content_model_flag; # CDATA or RCDATA      $self->{content_model} = $content_model_flag; # CDATA or RCDATA
# Line 2947  sub _tree_construction_main ($) { Line 2944  sub _tree_construction_main ($) {
2944          $token->{tag_name} eq $start_tag_name) {          $token->{tag_name} eq $start_tag_name) {
2945        !!!cp ('t42');        !!!cp ('t42');
2946        ## Ignore the token        ## Ignore the token
     } elsif ($content_model_flag == CDATA_CONTENT_MODEL) {  
       !!!cp ('t43');  
       !!!parse-error (type => 'in CDATA:#'.$token->{type});  
     } elsif ($content_model_flag == RCDATA_CONTENT_MODEL) {  
       !!!cp ('t44');  
       !!!parse-error (type => 'in RCDATA:#'.$token->{type});  
2947      } else {      } else {
2948        die "$0: $content_model_flag in parse_rcdata";        ## NOTE: An end-of-file token.
2949          if ($content_model_flag == CDATA_CONTENT_MODEL) {
2950            !!!cp ('t43');
2951            !!!parse-error (type => 'in CDATA:#'.$token->{type});
2952          } elsif ($content_model_flag == RCDATA_CONTENT_MODEL) {
2953            !!!cp ('t44');
2954            !!!parse-error (type => 'in RCDATA:#'.$token->{type});
2955          } else {
2956            die "$0: $content_model_flag in parse_rcdata";
2957          }
2958      }      }
2959      !!!next-token;      !!!next-token;
2960    }; # $parse_rcdata    }; # $parse_rcdata
2961    
2962    my $script_start_tag = sub ($) {    my $script_start_tag = sub () {
     my $insert = $_[0];  
2963      my $script_el;      my $script_el;
2964      !!!create-element ($script_el, 'script', $token->{attributes});      !!!create-element ($script_el, 'script', $token->{attributes});
2965      ## TODO: mark as "parser-inserted"      ## TODO: mark as "parser-inserted"
# Line 3213  sub _tree_construction_main ($) { Line 3212  sub _tree_construction_main ($) {
3212      } # FET      } # FET
3213    }; # $formatting_end_tag    }; # $formatting_end_tag
3214    
3215    my $insert_to_current = sub {    ## NOTE: $open_tables->[-1]->[0] is the "current table".
3216      ## NOTE: $open_tables->[-1]->[1] is the "tainted" flag.
3217      my $open_tables = [[$self->{open_elements}->[0]->[0]]];
3218    
3219      $insert = my $insert_to_current = sub {
3220      $self->{open_elements}->[-1]->[0]->append_child ($_[0]);      $self->{open_elements}->[-1]->[0]->append_child ($_[0]);
3221    }; # $insert_to_current    }; # $insert_to_current
3222    
3223    my $insert_to_foster = sub {    my $insert_to_foster = sub {
3224                         my $child = shift;      my $child = shift;
3225                         if ({      if ({
3226                              table => 1, tbody => 1, tfoot => 1,           table => 1, tbody => 1, tfoot => 1, thead => 1, tr => 1,
3227                              thead => 1, tr => 1,          }->{$self->{open_elements}->[-1]->[1]}) {
3228                             }->{$self->{open_elements}->[-1]->[1]}) {        # MUST
3229                           # MUST        my $foster_parent_element;
3230                           my $foster_parent_element;        my $next_sibling;
                          my $next_sibling;  
3231                           OE: for (reverse 0..$#{$self->{open_elements}}) {                           OE: for (reverse 0..$#{$self->{open_elements}}) {
3232                             if ($self->{open_elements}->[$_]->[1] eq 'table') {                             if ($self->{open_elements}->[$_]->[1] eq 'table') {
3233                               my $parent = $self->{open_elements}->[$_]->[0]->parent_node;                               my $parent = $self->{open_elements}->[$_]->[0]->parent_node;
# Line 3245  sub _tree_construction_main ($) { Line 3247  sub _tree_construction_main ($) {
3247                             unless defined $foster_parent_element;                             unless defined $foster_parent_element;
3248                           $foster_parent_element->insert_before                           $foster_parent_element->insert_before
3249                             ($child, $next_sibling);                             ($child, $next_sibling);
3250                         } else {        $open_tables->[-1]->[1] = 1; # tainted
3251                           !!!cp ('t72');      } else {
3252                           $self->{open_elements}->[-1]->[0]->append_child ($child);        !!!cp ('t72');
3253                         }        $self->{open_elements}->[-1]->[0]->append_child ($child);
3254        }
3255    }; # $insert_to_foster    }; # $insert_to_foster
3256    
   my $insert;  
   
3257    B: {    B: {
3258      if ($token->{type} == DOCTYPE_TOKEN) {      if ($token->{type} == DOCTYPE_TOKEN) {
3259        !!!cp ('t73');        !!!cp ('t73');
# Line 3267  sub _tree_construction_main ($) { Line 3268  sub _tree_construction_main ($) {
3268          #          #
3269        } else {        } else {
3270          ## Generate implied end tags          ## Generate implied end tags
3271          if ({          while ({
3272               dd => 1, dt => 1, li => 1, p => 1, td => 1, th => 1, tr => 1,                  dd => 1, dt => 1, li => 1, p => 1,
3273               tbody => 1, tfoot=> 1, thead => 1,                 }->{$self->{open_elements}->[-1]->[1]}) {
             }->{$self->{open_elements}->[-1]->[1]}) {  
3274            !!!cp ('t75');            !!!cp ('t75');
3275            !!!back-token;            pop @{$self->{open_elements}};
           $token = {type => END_TAG_TOKEN, tag_name => $self->{open_elements}->[-1]->[1]};  
           redo B;  
3276          }          }
3277                    
3278          if (@{$self->{open_elements}} > 2 or          if (@{$self->{open_elements}} > 2 or
# Line 3541  sub _tree_construction_main ($) { Line 3539  sub _tree_construction_main ($) {
3539                ## NOTE: There is a "as if in head" code clone.                ## NOTE: There is a "as if in head" code clone.
3540                my $parent = defined $self->{head_element} ? $self->{head_element}                my $parent = defined $self->{head_element} ? $self->{head_element}
3541                    : $self->{open_elements}->[-1]->[0];                    : $self->{open_elements}->[-1]->[0];
3542                $parse_rcdata->(RCDATA_CONTENT_MODEL,                $parse_rcdata->(RCDATA_CONTENT_MODEL);
                               sub { $parent->append_child ($_[0]) });  
3543                pop @{$self->{open_elements}}                pop @{$self->{open_elements}}
3544                    if $self->{insertion_mode} == AFTER_HEAD_IM;                    if $self->{insertion_mode} == AFTER_HEAD_IM;
3545                redo B;                redo B;
# Line 3557  sub _tree_construction_main ($) { Line 3554  sub _tree_construction_main ($) {
3554                } else {                } else {
3555                  !!!cp ('t115');                  !!!cp ('t115');
3556                }                }
3557                $parse_rcdata->(CDATA_CONTENT_MODEL, $insert_to_current);                $parse_rcdata->(CDATA_CONTENT_MODEL);
3558                pop @{$self->{open_elements}}                pop @{$self->{open_elements}}
3559                    if $self->{insertion_mode} == AFTER_HEAD_IM;                    if $self->{insertion_mode} == AFTER_HEAD_IM;
3560                redo B;                redo B;
# Line 3886  sub _tree_construction_main ($) { Line 3883  sub _tree_construction_main ($) {
3883                    }                    }
3884                                    
3885                  ## generate implied end tags                  ## generate implied end tags
3886                  if ({                  while ({
3887                       dd => 1, dt => 1, li => 1, p => 1,                          dd => 1, dt => 1, li => 1, p => 1,
3888                           }->{$self->{open_elements}->[-1]->[1]}) {
                      ## NOTE: Maybe the following elements never appear here.  
                      td => 1, th => 1, tr => 1,  
                      tbody => 1, tfoot => 1, thead => 1,  
                     }->{$self->{open_elements}->[-1]->[1]}) {  
3889                    !!!cp ('t158');                    !!!cp ('t158');
3890                    !!!back-token; # <?>                    pop @{$self->{open_elements}};
                   $token = {type => END_TAG_TOKEN, tag_name => 'caption'};  
                   !!!back-token;  
                   $token = {type => END_TAG_TOKEN,  
                             tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
                   redo B;  
3891                  }                  }
3892    
3893                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {
# Line 3952  sub _tree_construction_main ($) { Line 3940  sub _tree_construction_main ($) {
3940                    }                    }
3941                                    
3942                  ## generate implied end tags                  ## generate implied end tags
3943                  if ({                  while ({
3944                       dd => 1, dt => 1, li => 1, p => 1,                          dd => 1, dt => 1, li => 1, p => 1,
3945                       td => ($token->{tag_name} eq 'th'),                         }->{$self->{open_elements}->[-1]->[1]}) {
                      th => ($token->{tag_name} eq 'td'),  
   
                      ## NOTE: Maybe the following elements never appear here.  
                      tr => 1,  
                      tbody => 1, tfoot => 1, thead => 1,  
                     }->{$self->{open_elements}->[-1]->[1]}) {  
3946                    !!!cp ('t166');                    !!!cp ('t166');
3947                    !!!back-token;                    pop @{$self->{open_elements}};
                   $token = {type => END_TAG_TOKEN,  
                             tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
                   redo B;  
3948                  }                  }
3949                    
3950                  if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {                  if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
3951                    !!!cp ('t167');                    !!!cp ('t167');
3952                    !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                    !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
# Line 4019  sub _tree_construction_main ($) { Line 3998  sub _tree_construction_main ($) {
3998                    }                    }
3999                                    
4000                  ## generate implied end tags                  ## generate implied end tags
4001                  if ({                  while ({
4002                       dd => 1, dt => 1, li => 1, p => 1,                          dd => 1, dt => 1, li => 1, p => 1,
4003                           }->{$self->{open_elements}->[-1]->[1]}) {
                      ## NOTE: The following elements never appear here, maybe.  
                      td => 1, th => 1, tr => 1,  
                      tbody => 1, tfoot => 1, thead => 1,  
                     }->{$self->{open_elements}->[-1]->[1]}) {  
4004                    !!!cp ('t174');                    !!!cp ('t174');
4005                    !!!back-token;                    pop @{$self->{open_elements}};
                   $token = {type => END_TAG_TOKEN,  
                             tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
                   redo B;  
4006                  }                  }
4007                                    
4008                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {
# Line 4127  sub _tree_construction_main ($) { Line 4099  sub _tree_construction_main ($) {
4099                }                }
4100                                
4101                ## generate implied end tags                ## generate implied end tags
4102                if ({                while ({
4103                     dd => 1, dt => 1, li => 1, p => 1,                        dd => 1, dt => 1, li => 1, p => 1,
4104                         }->{$self->{open_elements}->[-1]->[1]}) {
                    ## NOTE: The following elements never appear, maybe.  
                    td => 1, th => 1, tr => 1,  
                    tbody => 1, tfoot => 1, thead => 1,  
                   }->{$self->{open_elements}->[-1]->[1]}) {  
4105                  !!!cp ('t187');                  !!!cp ('t187');
4106                  !!!back-token; # </table>                  pop @{$self->{open_elements}};
                 $token = {type => END_TAG_TOKEN, tag_name => 'caption'};  
                 !!!back-token;  
                 $token = {type => END_TAG_TOKEN,  
                           tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
                 redo B;  
4107                }                }
4108    
4109                if ($self->{open_elements}->[-1]->[1] ne 'caption') {                if ($self->{open_elements}->[-1]->[1] ne 'caption') {
# Line 4193  sub _tree_construction_main ($) { Line 4156  sub _tree_construction_main ($) {
4156        #        #
4157      } elsif ($self->{insertion_mode} & TABLE_IMS) {      } elsif ($self->{insertion_mode} & TABLE_IMS) {
4158        if ($token->{type} == CHARACTER_TOKEN) {        if ($token->{type} == CHARACTER_TOKEN) {
4159              if ($token->{data} =~ s/^([\x09\x0A\x0B\x0C\x20]+)//) {          if (not $open_tables->[-1]->[1] and # tainted
4160                $self->{open_elements}->[-1]->[0]->manakai_append_text ($1);              $token->{data} =~ s/^([\x09\x0A\x0B\x0C\x20]+)//) {
4161              $self->{open_elements}->[-1]->[0]->manakai_append_text ($1);
4162                                
4163                unless (length $token->{data}) {            unless (length $token->{data}) {
4164                  !!!cp ('t194');              !!!cp ('t194');
4165                  !!!next-token;              !!!next-token;
4166                  redo B;              redo B;
4167                } else {            } else {
4168                  !!!cp ('t195');              !!!cp ('t195');
4169                }            }
4170              }          }
4171    
4172              !!!parse-error (type => 'in table:#character');              !!!parse-error (type => 'in table:#character');
4173    
# Line 4250  sub _tree_construction_main ($) { Line 4214  sub _tree_construction_main ($) {
4214                    ($self->{document}->create_text_node ($token->{data}),                    ($self->{document}->create_text_node ($token->{data}),
4215                     $next_sibling);                     $next_sibling);
4216                }                }
4217              } else {            $open_tables->[-1]->[1] = 1; # tainted
4218                !!!cp ('t200');          } else {
4219                $self->{open_elements}->[-1]->[0]->manakai_append_text ($token->{data});            !!!cp ('t200');
4220              }            $self->{open_elements}->[-1]->[0]->manakai_append_text ($token->{data});
4221            }
4222                            
4223              !!!next-token;          !!!next-token;
4224              redo B;          redo B;
4225        } elsif ($token->{type} == START_TAG_TOKEN) {        } elsif ($token->{type} == START_TAG_TOKEN) {
4226              if ({              if ({
4227                   tr => ($self->{insertion_mode} != IN_ROW_IM),                   tr => ($self->{insertion_mode} != IN_ROW_IM),
# Line 4267  sub _tree_construction_main ($) { Line 4232  sub _tree_construction_main ($) {
4232                  while ($self->{open_elements}->[-1]->[1] ne 'table' and                  while ($self->{open_elements}->[-1]->[1] ne 'table' and
4233                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4234                    !!!cp ('t201');                    !!!cp ('t201');
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4235                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4236                  }                  }
4237                                    
# Line 4288  sub _tree_construction_main ($) { Line 4252  sub _tree_construction_main ($) {
4252                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4253                    !!!cp ('t203');                    !!!cp ('t203');
4254                    ## ISSUE: Can this case be reached?                    ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4255                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4256                  }                  }
4257                                    
# Line 4312  sub _tree_construction_main ($) { Line 4275  sub _tree_construction_main ($) {
4275                  tr => 1, html => 1,                  tr => 1, html => 1,
4276                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4277                  !!!cp ('t207');                  !!!cp ('t207');
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4278                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4279                }                }
4280                                
# Line 4363  sub _tree_construction_main ($) { Line 4325  sub _tree_construction_main ($) {
4325                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4326                    !!!cp ('t211');                    !!!cp ('t211');
4327                    ## ISSUE: Can this case be reached?                    ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4328                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4329                  }                  }
4330                                    
# Line 4412  sub _tree_construction_main ($) { Line 4373  sub _tree_construction_main ($) {
4373                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4374                    !!!cp ('t217');                    !!!cp ('t217');
4375                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4376                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4377                  }                  }
4378                                    
# Line 4436  sub _tree_construction_main ($) { Line 4396  sub _tree_construction_main ($) {
4396                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4397                    !!!cp ('t219');                    !!!cp ('t219');
4398                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4399                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4400                  }                  }
4401                                    
# Line 4454  sub _tree_construction_main ($) { Line 4413  sub _tree_construction_main ($) {
4413                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4414                    !!!cp ('t220');                    !!!cp ('t220');
4415                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4416                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4417                  }                  }
4418                                    
# Line 4504  sub _tree_construction_main ($) { Line 4462  sub _tree_construction_main ($) {
4462                }                }
4463                                
4464                ## generate implied end tags                ## generate implied end tags
4465                if ({                while ({
4466                     dd => 1, dt => 1, li => 1, p => 1,                        dd => 1, dt => 1, li => 1, p => 1,
4467                     td => 1, th => 1, tr => 1,                       }->{$self->{open_elements}->[-1]->[1]}) {
                    tbody => 1, tfoot=> 1, thead => 1,  
                   }->{$self->{open_elements}->[-1]->[1]}) {  
4468                  !!!cp ('t224');                  !!!cp ('t224');
4469                  !!!back-token; # <table>                  pop @{$self->{open_elements}};
                 $token = {type => END_TAG_TOKEN, tag_name => 'table'};  
                 !!!back-token;  
                 $token = {type => END_TAG_TOKEN,  
                           tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
                 redo B;  
4470                }                }
4471    
4472                if ($self->{open_elements}->[-1]->[1] ne 'table') {                if ($self->{open_elements}->[-1]->[1] ne 'table') {
# Line 4527  sub _tree_construction_main ($) { Line 4478  sub _tree_construction_main ($) {
4478                }                }
4479    
4480                splice @{$self->{open_elements}}, $i;                splice @{$self->{open_elements}}, $i;
4481                  pop @{$open_tables};
4482    
4483                $self->_reset_insertion_mode;                $self->_reset_insertion_mode;
4484    
# Line 4573  sub _tree_construction_main ($) { Line 4525  sub _tree_construction_main ($) {
4525                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4526                  !!!cp ('t231');                  !!!cp ('t231');
4527  ## ISSUE: Can this state be reached?  ## ISSUE: Can this state be reached?
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4528                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4529                }                }
4530    
# Line 4614  sub _tree_construction_main ($) { Line 4565  sub _tree_construction_main ($) {
4565                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4566                    !!!cp ('t236');                    !!!cp ('t236');
4567  ## ISSUE: Can this state be reached?  ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4568                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4569                  }                  }
4570                                    
# Line 4654  sub _tree_construction_main ($) { Line 4604  sub _tree_construction_main ($) {
4604                    tbody => 1, tfoot => 1, thead => 1, html => 1,                    tbody => 1, tfoot => 1, thead => 1, html => 1,
4605                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4606                    !!!cp ('t240');                    !!!cp ('t240');
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4607                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4608                  }                  }
4609                                    
# Line 4670  sub _tree_construction_main ($) { Line 4619  sub _tree_construction_main ($) {
4619                  ## reprocess in the "in table" insertion mode...                  ## reprocess in the "in table" insertion mode...
4620                }                }
4621    
4622                  ## NOTE: </table> in the "in table" insertion mode.
4623                  ## When you edit the code fragment below, please ensure that
4624                  ## the code for <table> in the "in table" insertion mode
4625                  ## is synced with it.
4626    
4627                ## have a table element in table scope                ## have a table element in table scope
4628                my $i;                my $i;
4629                INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {                INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
# Line 4692  sub _tree_construction_main ($) { Line 4646  sub _tree_construction_main ($) {
4646                  !!!next-token;                  !!!next-token;
4647                  redo B;                  redo B;
4648                }                }
   
               ## generate implied end tags  
               if ({  
                    dd => 1, dt => 1, li => 1, p => 1,  
                    td => 1, th => 1, tr => 1,  
                    tbody => 1, tfoot=> 1, thead => 1,  
                   }->{$self->{open_elements}->[-1]->[1]}) {  
                 !!!cp ('t244');  
 ## ISSUE: Can this case be reached?  
                 !!!back-token;  
                 $token = {type => END_TAG_TOKEN,  
                           tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
                 redo B;  
               }  
                 
               if ($self->{open_elements}->[-1]->[1] ne 'table') {  
                 !!!cp ('t245');  
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
               } else {  
                 !!!cp ('t246');  
               }  
4649                                    
4650                splice @{$self->{open_elements}}, $i;                splice @{$self->{open_elements}}, $i;
4651                  pop @{$open_tables};
4652                                
4653                $self->_reset_insertion_mode;                $self->_reset_insertion_mode;
4654                                
# Line 4778  sub _tree_construction_main ($) { Line 4712  sub _tree_construction_main ($) {
4712                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4713                    !!!cp ('t253');                    !!!cp ('t253');
4714  ## ISSUE: Can this case be reached?  ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4715                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4716                  }                  }
4717                                    
# Line 4816  sub _tree_construction_main ($) { Line 4749  sub _tree_construction_main ($) {
4749                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4750                  !!!cp ('t257');                  !!!cp ('t257');
4751  ## ISSUE: Can this case be reached?  ## ISSUE: Can this case be reached?
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4752                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4753                }                }
4754    
# Line 5273  sub _tree_construction_main ($) { Line 5205  sub _tree_construction_main ($) {
5205          } elsif ($token->{tag_name} eq 'noframes') {          } elsif ($token->{tag_name} eq 'noframes') {
5206            !!!cp ('t320');            !!!cp ('t320');
5207            ## NOTE: As if in body.            ## NOTE: As if in body.
5208            $parse_rcdata->(CDATA_CONTENT_MODEL, $insert_to_current);            $parse_rcdata->(CDATA_CONTENT_MODEL);
5209            redo B;            redo B;
5210          } else {          } else {
5211            if ($self->{insertion_mode} == IN_FRAMESET_IM) {            if ($self->{insertion_mode} == IN_FRAMESET_IM) {
# Line 5357  sub _tree_construction_main ($) { Line 5289  sub _tree_construction_main ($) {
5289        } elsif ($token->{tag_name} eq 'style') {        } elsif ($token->{tag_name} eq 'style') {
5290          !!!cp ('t333');          !!!cp ('t333');
5291          ## NOTE: This is an "as if in head" code clone          ## NOTE: This is an "as if in head" code clone
5292          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5293          redo B;          redo B;
5294        } elsif ({        } elsif ({
5295                  base => 1, link => 1,                  base => 1, link => 1,
# Line 5420  sub _tree_construction_main ($) { Line 5352  sub _tree_construction_main ($) {
5352          redo B;          redo B;
5353        } elsif ($token->{tag_name} eq 'title') {        } elsif ($token->{tag_name} eq 'title') {
5354          !!!cp ('t341');          !!!cp ('t341');
         !!!parse-error (type => 'in body:title');  
5355          ## NOTE: This is an "as if in head" code clone          ## NOTE: This is an "as if in head" code clone
5356          $parse_rcdata->(RCDATA_CONTENT_MODEL, sub {          $parse_rcdata->(RCDATA_CONTENT_MODEL);
           if (defined $self->{head_element}) {  
             !!!cp ('t339');  
             $self->{head_element}->append_child ($_[0]);  
           } else {  
             !!!cp ('t340');  
             $insert->($_[0]);  
           }  
         });  
5357          redo B;          redo B;
5358        } elsif ($token->{tag_name} eq 'body') {        } elsif ($token->{tag_name} eq 'body') {
5359          !!!parse-error (type => 'in body:body');          !!!parse-error (type => 'in body:body');
# Line 5454  sub _tree_construction_main ($) { Line 5377  sub _tree_construction_main ($) {
5377          redo B;          redo B;
5378        } elsif ({        } elsif ({
5379                  address => 1, blockquote => 1, center => 1, dir => 1,                  address => 1, blockquote => 1, center => 1, dir => 1,
5380                  div => 1, dl => 1, fieldset => 1, listing => 1,                  div => 1, dl => 1, fieldset => 1,
5381                  menu => 1, ol => 1, p => 1, ul => 1,                  h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,
5382                    listing => 1, menu => 1, ol => 1, p => 1, ul => 1,
5383                  pre => 1,                  pre => 1,
5384                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5385          ## has a p element in scope          ## has a p element in scope
# Line 5657  sub _tree_construction_main ($) { Line 5581  sub _tree_construction_main ($) {
5581                        
5582          !!!next-token;          !!!next-token;
5583          redo B;          redo B;
       } elsif ({  
                 h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,  
                }->{$token->{tag_name}}) {  
         ## has a p element in scope  
         INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {  
           my $node = $self->{open_elements}->[$_];  
           if ($node->[1] eq 'p') {  
             !!!cp ('t369');  
             !!!back-token;  
             $token = {type => END_TAG_TOKEN, tag_name => 'p'};  
             redo B;  
           } elsif ({  
                     table => 1, caption => 1, td => 1, th => 1,  
                     button => 1, marquee => 1, object => 1, html => 1,  
                    }->{$node->[1]}) {  
             !!!cp ('t370');  
             last INSCOPE;  
           }  
         } # INSCOPE  
             
         ## NOTE: See <http://html5.org/tools/web-apps-tracker?from=925&to=926>  
         ## has an element in scope  
         #my $i;  
         #INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {  
         #  my $node = $self->{open_elements}->[$_];  
         #  if ({  
         #       h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,  
         #      }->{$node->[1]}) {  
         #    $i = $_;  
         #    last INSCOPE;  
         #  } elsif ({  
         #            table => 1, caption => 1, td => 1, th => 1,  
         #            button => 1, marquee => 1, object => 1, html => 1,  
         #           }->{$node->[1]}) {  
         #    last INSCOPE;  
         #  }  
         #} # INSCOPE  
         #    
         #if (defined $i) {  
         #  !!! parse-error (type => 'in hn:hn');  
         #  splice @{$self->{open_elements}}, $i;  
         #}  
             
         !!!insert-element-t ($token->{tag_name}, $token->{attributes});  
             
         !!!next-token;  
         redo B;  
5584        } elsif ($token->{tag_name} eq 'a') {        } elsif ($token->{tag_name} eq 'a') {
5585          AFE: for my $i (reverse 0..$#$active_formatting_elements) {          AFE: for my $i (reverse 0..$#$active_formatting_elements) {
5586            my $node = $active_formatting_elements->[$i];            my $node = $active_formatting_elements->[$i];
# Line 5804  sub _tree_construction_main ($) { Line 5681  sub _tree_construction_main ($) {
5681          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
5682                        
5683          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes});
5684    
5685            ## TODO: associate with $self->{form_element} if defined
5686    
5687          push @$active_formatting_elements, ['#marker', ''];          push @$active_formatting_elements, ['#marker', ''];
5688    
5689          !!!next-token;          !!!next-token;
# Line 5821  sub _tree_construction_main ($) { Line 5701  sub _tree_construction_main ($) {
5701        } elsif ($token->{tag_name} eq 'xmp') {        } elsif ($token->{tag_name} eq 'xmp') {
5702          !!!cp ('t381');          !!!cp ('t381');
5703          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
5704          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5705          redo B;          redo B;
5706        } elsif ($token->{tag_name} eq 'table') {        } elsif ($token->{tag_name} eq 'table') {
5707          ## has a p element in scope          ## has a p element in scope
# Line 5841  sub _tree_construction_main ($) { Line 5721  sub _tree_construction_main ($) {
5721          } # INSCOPE          } # INSCOPE
5722                        
5723          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes});
5724                      push @{$open_tables}, [$self->{open_elements}->[-1]->[0]];
5725    
5726          $self->{insertion_mode} = IN_TABLE_IM;          $self->{insertion_mode} = IN_TABLE_IM;
5727                        
5728          !!!next-token;          !!!next-token;
# Line 5996  sub _tree_construction_main ($) { Line 5877  sub _tree_construction_main ($) {
5877                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5878          !!!cp ('t399');          !!!cp ('t399');
5879          ## NOTE: There is an "as if in body" code clone.          ## NOTE: There is an "as if in body" code clone.
5880          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5881          redo B;          redo B;
5882        } elsif ($token->{tag_name} eq 'select') {        } elsif ($token->{tag_name} eq 'select') {
5883          !!!cp ('t400');          !!!cp ('t400');
5884          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
5885                    
5886          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes});
5887    
5888            ## TODO: associate with $self->{form_element} if defined
5889                    
5890          $self->{insertion_mode} = IN_SELECT_IM;          $self->{insertion_mode} = IN_SELECT_IM;
5891          !!!next-token;          !!!next-token;
# Line 6079  sub _tree_construction_main ($) { Line 5962  sub _tree_construction_main ($) {
5962                  address => 1, blockquote => 1, center => 1, dir => 1,                  address => 1, blockquote => 1, center => 1, dir => 1,
5963                  div => 1, dl => 1, fieldset => 1, listing => 1,                  div => 1, dl => 1, fieldset => 1, listing => 1,
5964                  menu => 1, ol => 1, pre => 1, ul => 1,                  menu => 1, ol => 1, pre => 1, ul => 1,
                 p => 1,  
5965                  dd => 1, dt => 1, li => 1,                  dd => 1, dt => 1, li => 1,
5966                  button => 1, marquee => 1, object => 1,                  button => 1, marquee => 1, object => 1,
5967                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
# Line 6088  sub _tree_construction_main ($) { Line 5970  sub _tree_construction_main ($) {
5970          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
5971            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
5972            if ($node->[1] eq $token->{tag_name}) {            if ($node->[1] eq $token->{tag_name}) {
             ## generate implied end tags  
             if ({  
                  dd => ($token->{tag_name} ne 'dd'),  
                  dt => ($token->{tag_name} ne 'dt'),  
                  li => ($token->{tag_name} ne 'li'),  
                  p => ($token->{tag_name} ne 'p'),  
                  td => 1, th => 1, tr => 1,  
                  tbody => 1, tfoot=> 1, thead => 1,  
                 }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t409');  
               !!!back-token;  
               $token = {type => END_TAG_TOKEN,  
                         tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
               redo B;  
             }  
               
5973              !!!cp ('t410');              !!!cp ('t410');
5974              $i = $_;              $i = $_;
5975              last INSCOPE unless $token->{tag_name} eq 'p';              last INSCOPE;
5976            } elsif ({            } elsif ({
5977                      table => 1, caption => 1, td => 1, th => 1,                      table => 1, caption => 1, td => 1, th => 1,
5978                      button => 1, marquee => 1, object => 1, html => 1,                      button => 1, marquee => 1, object => 1, html => 1,
# Line 6115  sub _tree_construction_main ($) { Line 5981  sub _tree_construction_main ($) {
5981              last INSCOPE;              last INSCOPE;
5982            }            }
5983          } # INSCOPE          } # INSCOPE
5984            
5985          if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {          unless (defined $i) { # has an element in scope
5986            if (defined $i) {            !!!cp ('t413');
5987              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
5988            } else {
5989              ## Step 1. generate implied end tags
5990              while ({
5991                      dd => ($token->{tag_name} ne 'dd'),
5992                      dt => ($token->{tag_name} ne 'dt'),
5993                      li => ($token->{tag_name} ne 'li'),
5994                      p => 1,
5995                     }->{$self->{open_elements}->[-1]->[1]}) {
5996                !!!cp ('t409');
5997                pop @{$self->{open_elements}};
5998              }
5999    
6000              ## Step 2.
6001              if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6002              !!!cp ('t412');              !!!cp ('t412');
6003              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
6004            } else {            } else {
6005              !!!cp ('t413');              !!!cp ('t414');
             !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});  
6006            }            }
6007          }  
6008                      ## Step 3.
         if (defined $i) {  
           !!!cp ('t414');  
6009            splice @{$self->{open_elements}}, $i;            splice @{$self->{open_elements}}, $i;
6010          } elsif ($token->{tag_name} eq 'p') {  
6011            !!!cp ('t415');            ## Step 4.
6012            ## As if <p>, then reprocess the current token            $clear_up_to_marker->()
6013            my $el;                if {
6014            !!!create-element ($el, 'p');                  button => 1, marquee => 1, object => 1,
6015            $insert->($el);                }->{$token->{tag_name}};
         } else {  
           !!!cp ('t416');  
6016          }          }
         $clear_up_to_marker->()  
           if {  
             button => 1, marquee => 1, object => 1,  
           }->{$token->{tag_name}};  
6017          !!!next-token;          !!!next-token;
6018          redo B;          redo B;
6019        } elsif ($token->{tag_name} eq 'form') {        } elsif ($token->{tag_name} eq 'form') {
6020            undef $self->{form_element};
6021    
6022          ## has an element in scope          ## has an element in scope
6023            my $i;
6024          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
6025            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
6026            if ($node->[1] eq $token->{tag_name}) {            if ($node->[1] eq $token->{tag_name}) {
             ## generate implied end tags  
             if ({  
                  dd => 1, dt => 1, li => 1, p => 1,  
   
                  ## NOTE: The following elements never appear here, maybe.  
                  td => 1, th => 1, tr => 1,  
                  tbody => 1, tfoot => 1, thead => 1,  
                 }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t417');  
               !!!back-token;  
               $token = {type => END_TAG_TOKEN,  
                         tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
               redo B;  
             }  
               
6027              !!!cp ('t418');              !!!cp ('t418');
6028                $i = $_;
6029              last INSCOPE;              last INSCOPE;
6030            } elsif ({            } elsif ({
6031                      table => 1, caption => 1, td => 1, th => 1,                      table => 1, caption => 1, td => 1, th => 1,
# Line 6174  sub _tree_construction_main ($) { Line 6035  sub _tree_construction_main ($) {
6035              last INSCOPE;              last INSCOPE;
6036            }            }
6037          } # INSCOPE          } # INSCOPE
6038            
6039          if ($self->{open_elements}->[-1]->[1] eq $token->{tag_name}) {          unless (defined $i) { # has an element in scope
           !!!cp ('t420');  
           pop @{$self->{open_elements}};  
         } else {  
6040            !!!cp ('t421');            !!!cp ('t421');
6041            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6042            } else {
6043              ## Step 1. generate implied end tags
6044              while ({
6045                      dd => 1, dt => 1, li => 1, p => 1,
6046                     }->{$self->{open_elements}->[-1]->[1]}) {
6047                !!!cp ('t417');
6048                pop @{$self->{open_elements}};
6049              }
6050              
6051              ## Step 2.
6052              if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6053                !!!cp ('t417.1');
6054                !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
6055              } else {
6056                !!!cp ('t420');
6057              }  
6058              
6059              ## Step 3.
6060              splice @{$self->{open_elements}}, $i;
6061          }          }
6062    
         undef $self->{form_element};  
6063          !!!next-token;          !!!next-token;
6064          redo B;          redo B;
6065        } elsif ({        } elsif ({
# Line 6196  sub _tree_construction_main ($) { Line 6072  sub _tree_construction_main ($) {
6072            if ({            if ({
6073                 h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,                 h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,
6074                }->{$node->[1]}) {                }->{$node->[1]}) {
             ## generate implied end tags  
             if ({  
                  dd => 1, dt => 1, li => 1, p => 1,  
                  td => 1, th => 1, tr => 1,  
                  tbody => 1, tfoot=> 1, thead => 1,  
                 }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t422');  
               !!!back-token;  
               $token = {type => END_TAG_TOKEN,  
                         tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
               redo B;  
             }  
   
6075              !!!cp ('t423');              !!!cp ('t423');
6076              $i = $_;              $i = $_;
6077              last INSCOPE;              last INSCOPE;
# Line 6220  sub _tree_construction_main ($) { Line 6083  sub _tree_construction_main ($) {
6083              last INSCOPE;              last INSCOPE;
6084            }            }
6085          } # INSCOPE          } # INSCOPE
6086            
6087          if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {          unless (defined $i) { # has an element in scope
6088            !!!cp ('t425');            !!!cp ('t425.1');
6089            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6090          } else {          } else {
6091            !!!cp ('t426');            ## Step 1. generate implied end tags
6092              while ({
6093                      dd => 1, dt => 1, li => 1, p => 1,
6094                     }->{$self->{open_elements}->[-1]->[1]}) {
6095                !!!cp ('t422');
6096                pop @{$self->{open_elements}};
6097              }
6098              
6099              ## Step 2.
6100              if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6101                !!!cp ('t425');
6102                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6103              } else {
6104                !!!cp ('t426');
6105              }
6106    
6107              ## Step 3.
6108              splice @{$self->{open_elements}}, $i;
6109          }          }
6110                    
6111          splice @{$self->{open_elements}}, $i if defined $i;          !!!next-token;
6112            redo B;
6113          } elsif ($token->{tag_name} eq 'p') {
6114            ## has an element in scope
6115            my $i;
6116            INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
6117              my $node = $self->{open_elements}->[$_];
6118              if ($node->[1] eq $token->{tag_name}) {
6119                !!!cp ('t410.1');
6120                $i = $_;
6121                last INSCOPE;
6122              } elsif ({
6123                        table => 1, caption => 1, td => 1, th => 1,
6124                        button => 1, marquee => 1, object => 1, html => 1,
6125                       }->{$node->[1]}) {
6126                !!!cp ('t411.1');
6127                last INSCOPE;
6128              }
6129            } # INSCOPE
6130    
6131            if (defined $i) {
6132              if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6133                !!!cp ('t412.1');
6134                !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
6135              } else {
6136                !!!cp ('t414.1');
6137              }
6138    
6139              splice @{$self->{open_elements}}, $i;
6140            } else {
6141              !!!cp ('t413.1');
6142              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6143    
6144              !!!cp ('t415.1');
6145              ## As if <p>, then reprocess the current token
6146              my $el;
6147              !!!create-element ($el, 'p');
6148              $insert->($el);
6149              ## NOTE: Not inserted into |$self->{open_elements}|.
6150            }
6151    
6152          !!!next-token;          !!!next-token;
6153          redo B;          redo B;
6154        } elsif ({        } elsif ({
# Line 6284  sub _tree_construction_main ($) { Line 6204  sub _tree_construction_main ($) {
6204            if ($node->[1] eq $token->{tag_name}) {            if ($node->[1] eq $token->{tag_name}) {
6205              ## Step 1              ## Step 1
6206              ## generate implied end tags              ## generate implied end tags
6207              if ({              while ({
6208                   dd => 1, dt => 1, li => 1, p => 1,                      dd => 1, dt => 1, li => 1, p => 1,
6209                   td => 1, th => 1, tr => 1,                     }->{$self->{open_elements}->[-1]->[1]}) {
                  tbody => 1, tfoot => 1, thead => 1,  
                 }->{$self->{open_elements}->[-1]->[1]}) {  
6210                !!!cp ('t430');                !!!cp ('t430');
6211                ## ISSUE: Can this case be reached?                ## ISSUE: Can this case be reached?
6212                !!!back-token;                pop @{$self->{open_elements}};
               $token = {type => END_TAG_TOKEN,  
                         tag_name => $self->{open_elements}->[-1]->[1]}; # MUST  
               redo B;  
6213              }              }
6214                    
6215              ## Step 2              ## Step 2
Legend:
Removed from v.1.84  
changed lines
  Added in v.1.96
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24