/[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.89 by wakaba, Sat Mar 8 02:48:20 2008 UTC revision 1.99 by wakaba, Sun Mar 9 03:46:43 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 3337  sub _tree_construction_main ($) { Line 3338  sub _tree_construction_main ($) {
3338      } elsif ($self->{insertion_mode} & HEAD_IMS) {      } elsif ($self->{insertion_mode} & HEAD_IMS) {
3339        if ($token->{type} == CHARACTER_TOKEN) {        if ($token->{type} == CHARACTER_TOKEN) {
3340          if ($token->{data} =~ s/^([\x09\x0A\x0B\x0C\x20]+)//) {          if ($token->{data} =~ s/^([\x09\x0A\x0B\x0C\x20]+)//) {
3341            $self->{open_elements}->[-1]->[0]->manakai_append_text ($1);            unless ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3342                !!!cp ('t88.2');
3343                $self->{open_elements}->[-1]->[0]->manakai_append_text ($1);
3344              } else {
3345                !!!cp ('t88.1');
3346                ## Ignore the token.
3347                !!!next-token;
3348                redo B;
3349              }
3350            unless (length $token->{data}) {            unless (length $token->{data}) {
3351              !!!cp ('t88');              !!!cp ('t88');
3352              !!!next-token;              !!!next-token;
# Line 3538  sub _tree_construction_main ($) { Line 3547  sub _tree_construction_main ($) {
3547                ## NOTE: There is a "as if in head" code clone.                ## NOTE: There is a "as if in head" code clone.
3548                my $parent = defined $self->{head_element} ? $self->{head_element}                my $parent = defined $self->{head_element} ? $self->{head_element}
3549                    : $self->{open_elements}->[-1]->[0];                    : $self->{open_elements}->[-1]->[0];
3550                $parse_rcdata->(RCDATA_CONTENT_MODEL,                $parse_rcdata->(RCDATA_CONTENT_MODEL);
                               sub { $parent->append_child ($_[0]) });  
3551                pop @{$self->{open_elements}}                pop @{$self->{open_elements}}
3552                    if $self->{insertion_mode} == AFTER_HEAD_IM;                    if $self->{insertion_mode} == AFTER_HEAD_IM;
3553                redo B;                redo B;
# Line 3554  sub _tree_construction_main ($) { Line 3562  sub _tree_construction_main ($) {
3562                } else {                } else {
3563                  !!!cp ('t115');                  !!!cp ('t115');
3564                }                }
3565                $parse_rcdata->(CDATA_CONTENT_MODEL, $insert_to_current);                $parse_rcdata->(CDATA_CONTENT_MODEL);
3566                pop @{$self->{open_elements}}                pop @{$self->{open_elements}}
3567                    if $self->{insertion_mode} == AFTER_HEAD_IM;                    if $self->{insertion_mode} == AFTER_HEAD_IM;
3568                redo B;                redo B;
# Line 4156  sub _tree_construction_main ($) { Line 4164  sub _tree_construction_main ($) {
4164        #        #
4165      } elsif ($self->{insertion_mode} & TABLE_IMS) {      } elsif ($self->{insertion_mode} & TABLE_IMS) {
4166        if ($token->{type} == CHARACTER_TOKEN) {        if ($token->{type} == CHARACTER_TOKEN) {
4167              if ($token->{data} =~ s/^([\x09\x0A\x0B\x0C\x20]+)//) {          if (not $open_tables->[-1]->[1] and # tainted
4168                $self->{open_elements}->[-1]->[0]->manakai_append_text ($1);              $token->{data} =~ s/^([\x09\x0A\x0B\x0C\x20]+)//) {
4169              $self->{open_elements}->[-1]->[0]->manakai_append_text ($1);
4170                                
4171                unless (length $token->{data}) {            unless (length $token->{data}) {
4172                  !!!cp ('t194');              !!!cp ('t194');
4173                  !!!next-token;              !!!next-token;
4174                  redo B;              redo B;
4175                } else {            } else {
4176                  !!!cp ('t195');              !!!cp ('t195');
4177                }            }
4178              }          }
4179    
4180              !!!parse-error (type => 'in table:#character');              !!!parse-error (type => 'in table:#character');
4181    
# Line 4213  sub _tree_construction_main ($) { Line 4222  sub _tree_construction_main ($) {
4222                    ($self->{document}->create_text_node ($token->{data}),                    ($self->{document}->create_text_node ($token->{data}),
4223                     $next_sibling);                     $next_sibling);
4224                }                }
4225              } else {            $open_tables->[-1]->[1] = 1; # tainted
4226                !!!cp ('t200');          } else {
4227                $self->{open_elements}->[-1]->[0]->manakai_append_text ($token->{data});            !!!cp ('t200');
4228              }            $self->{open_elements}->[-1]->[0]->manakai_append_text ($token->{data});
4229            }
4230                            
4231              !!!next-token;          !!!next-token;
4232              redo B;          redo B;
4233        } elsif ($token->{type} == START_TAG_TOKEN) {        } elsif ($token->{type} == START_TAG_TOKEN) {
4234              if ({              if ({
4235                   tr => ($self->{insertion_mode} != IN_ROW_IM),                   tr => ($self->{insertion_mode} != IN_ROW_IM),
# Line 4230  sub _tree_construction_main ($) { Line 4240  sub _tree_construction_main ($) {
4240                  while ($self->{open_elements}->[-1]->[1] ne 'table' and                  while ($self->{open_elements}->[-1]->[1] ne 'table' and
4241                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4242                    !!!cp ('t201');                    !!!cp ('t201');
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4243                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4244                  }                  }
4245                                    
# Line 4251  sub _tree_construction_main ($) { Line 4260  sub _tree_construction_main ($) {
4260                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4261                    !!!cp ('t203');                    !!!cp ('t203');
4262                    ## ISSUE: Can this case be reached?                    ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4263                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4264                  }                  }
4265                                    
# Line 4275  sub _tree_construction_main ($) { Line 4283  sub _tree_construction_main ($) {
4283                  tr => 1, html => 1,                  tr => 1, html => 1,
4284                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4285                  !!!cp ('t207');                  !!!cp ('t207');
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4286                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4287                }                }
4288                                
# Line 4326  sub _tree_construction_main ($) { Line 4333  sub _tree_construction_main ($) {
4333                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4334                    !!!cp ('t211');                    !!!cp ('t211');
4335                    ## ISSUE: Can this case be reached?                    ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4336                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4337                  }                  }
4338                                    
# Line 4375  sub _tree_construction_main ($) { Line 4381  sub _tree_construction_main ($) {
4381                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4382                    !!!cp ('t217');                    !!!cp ('t217');
4383                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4384                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4385                  }                  }
4386                                    
# Line 4399  sub _tree_construction_main ($) { Line 4404  sub _tree_construction_main ($) {
4404                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4405                    !!!cp ('t219');                    !!!cp ('t219');
4406                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4407                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4408                  }                  }
4409                                    
# Line 4417  sub _tree_construction_main ($) { Line 4421  sub _tree_construction_main ($) {
4421                         $self->{open_elements}->[-1]->[1] ne 'html') {                         $self->{open_elements}->[-1]->[1] ne 'html') {
4422                    !!!cp ('t220');                    !!!cp ('t220');
4423                    ## ISSUE: Can this state be reached?                    ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4424                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4425                  }                  }
4426                                    
# Line 4483  sub _tree_construction_main ($) { Line 4486  sub _tree_construction_main ($) {
4486                }                }
4487    
4488                splice @{$self->{open_elements}}, $i;                splice @{$self->{open_elements}}, $i;
4489                  pop @{$open_tables};
4490    
4491                $self->_reset_insertion_mode;                $self->_reset_insertion_mode;
4492    
4493                ## reprocess                ## reprocess
4494                redo B;                redo B;
4495            } elsif ($token->{tag_name} eq 'input') {
4496              if (not $open_tables->[-1]->[1]) { # tainted
4497                if ($token->{attributes}->{type}) { ## TODO: case
4498                  my $type = lc $token->{attributes}->{type}->{value};
4499                  if ($type eq 'hidden') {
4500                    !!!cp ('t227.3');
4501                    !!!parse-error (type => 'in table:'.$token->{tag_name});
4502    
4503                    !!!insert-element ($token->{tag_name}, $token->{attributes});
4504    
4505                    ## TODO: form element pointer
4506    
4507                    pop @{$self->{open_elements}};
4508    
4509                    !!!next-token;
4510                    redo B;
4511                  } else {
4512                    !!!cp ('t227.2');
4513                    #
4514                  }
4515                } else {
4516                  !!!cp ('t227.1');
4517                  #
4518                }
4519              } else {
4520                !!!cp ('t227.4');
4521                #
4522              }
4523          } else {          } else {
4524            !!!cp ('t227');            !!!cp ('t227');
           !!!parse-error (type => 'in table:'.$token->{tag_name});  
   
           $insert = $insert_to_foster;  
4525            #            #
4526          }          }
4527    
4528            !!!parse-error (type => 'in table:'.$token->{tag_name});
4529    
4530            $insert = $insert_to_foster;
4531            #
4532        } elsif ($token->{type} == END_TAG_TOKEN) {        } elsif ($token->{type} == END_TAG_TOKEN) {
4533              if ($token->{tag_name} eq 'tr' and              if ($token->{tag_name} eq 'tr' and
4534                  $self->{insertion_mode} == IN_ROW_IM) {                  $self->{insertion_mode} == IN_ROW_IM) {
# Line 4529  sub _tree_construction_main ($) { Line 4563  sub _tree_construction_main ($) {
4563                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4564                  !!!cp ('t231');                  !!!cp ('t231');
4565  ## ISSUE: Can this state be reached?  ## ISSUE: Can this state be reached?
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4566                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4567                }                }
4568    
# Line 4570  sub _tree_construction_main ($) { Line 4603  sub _tree_construction_main ($) {
4603                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4604                    !!!cp ('t236');                    !!!cp ('t236');
4605  ## ISSUE: Can this state be reached?  ## ISSUE: Can this state be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4606                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4607                  }                  }
4608                                    
# Line 4610  sub _tree_construction_main ($) { Line 4642  sub _tree_construction_main ($) {
4642                    tbody => 1, tfoot => 1, thead => 1, html => 1,                    tbody => 1, tfoot => 1, thead => 1, html => 1,
4643                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4644                    !!!cp ('t240');                    !!!cp ('t240');
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4645                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4646                  }                  }
4647                                    
# Line 4626  sub _tree_construction_main ($) { Line 4657  sub _tree_construction_main ($) {
4657                  ## reprocess in the "in table" insertion mode...                  ## reprocess in the "in table" insertion mode...
4658                }                }
4659    
4660                  ## NOTE: </table> in the "in table" insertion mode.
4661                  ## When you edit the code fragment below, please ensure that
4662                  ## the code for <table> in the "in table" insertion mode
4663                  ## is synced with it.
4664    
4665                ## have a table element in table scope                ## have a table element in table scope
4666                my $i;                my $i;
4667                INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {                INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
# Line 4648  sub _tree_construction_main ($) { Line 4684  sub _tree_construction_main ($) {
4684                  !!!next-token;                  !!!next-token;
4685                  redo B;                  redo B;
4686                }                }
   
               ## 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');  
               }  
4687                                    
4688                splice @{$self->{open_elements}}, $i;                splice @{$self->{open_elements}}, $i;
4689                  pop @{$open_tables};
4690                                
4691                $self->_reset_insertion_mode;                $self->_reset_insertion_mode;
4692                                
# Line 4729  sub _tree_construction_main ($) { Line 4750  sub _tree_construction_main ($) {
4750                  }->{$self->{open_elements}->[-1]->[1]}) {                  }->{$self->{open_elements}->[-1]->[1]}) {
4751                    !!!cp ('t253');                    !!!cp ('t253');
4752  ## ISSUE: Can this case be reached?  ## ISSUE: Can this case be reached?
                   !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4753                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4754                  }                  }
4755                                    
# Line 4767  sub _tree_construction_main ($) { Line 4787  sub _tree_construction_main ($) {
4787                }->{$self->{open_elements}->[-1]->[1]}) {                }->{$self->{open_elements}->[-1]->[1]}) {
4788                  !!!cp ('t257');                  !!!cp ('t257');
4789  ## ISSUE: Can this case be reached?  ## ISSUE: Can this case be reached?
                 !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);  
4790                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4791                }                }
4792    
# Line 5224  sub _tree_construction_main ($) { Line 5243  sub _tree_construction_main ($) {
5243          } elsif ($token->{tag_name} eq 'noframes') {          } elsif ($token->{tag_name} eq 'noframes') {
5244            !!!cp ('t320');            !!!cp ('t320');
5245            ## NOTE: As if in body.            ## NOTE: As if in body.
5246            $parse_rcdata->(CDATA_CONTENT_MODEL, $insert_to_current);            $parse_rcdata->(CDATA_CONTENT_MODEL);
5247            redo B;            redo B;
5248          } else {          } else {
5249            if ($self->{insertion_mode} == IN_FRAMESET_IM) {            if ($self->{insertion_mode} == IN_FRAMESET_IM) {
# Line 5308  sub _tree_construction_main ($) { Line 5327  sub _tree_construction_main ($) {
5327        } elsif ($token->{tag_name} eq 'style') {        } elsif ($token->{tag_name} eq 'style') {
5328          !!!cp ('t333');          !!!cp ('t333');
5329          ## NOTE: This is an "as if in head" code clone          ## NOTE: This is an "as if in head" code clone
5330          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5331          redo B;          redo B;
5332        } elsif ({        } elsif ({
5333                  base => 1, link => 1,                  base => 1, link => 1,
# Line 5371  sub _tree_construction_main ($) { Line 5390  sub _tree_construction_main ($) {
5390          redo B;          redo B;
5391        } elsif ($token->{tag_name} eq 'title') {        } elsif ($token->{tag_name} eq 'title') {
5392          !!!cp ('t341');          !!!cp ('t341');
         !!!parse-error (type => 'in body:title');  
5393          ## NOTE: This is an "as if in head" code clone          ## NOTE: This is an "as if in head" code clone
5394          $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]);  
           }  
         });  
5395          redo B;          redo B;
5396        } elsif ($token->{tag_name} eq 'body') {        } elsif ($token->{tag_name} eq 'body') {
5397          !!!parse-error (type => 'in body:body');          !!!parse-error (type => 'in body:body');
# Line 5407  sub _tree_construction_main ($) { Line 5417  sub _tree_construction_main ($) {
5417                  address => 1, blockquote => 1, center => 1, dir => 1,                  address => 1, blockquote => 1, center => 1, dir => 1,
5418                  div => 1, dl => 1, fieldset => 1,                  div => 1, dl => 1, fieldset => 1,
5419                  h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,                  h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,
5420                  listing => 1, menu => 1, ol => 1, p => 1, ul => 1,                  menu => 1, ol => 1, p => 1, ul => 1,
5421                  pre => 1,                  pre => 1, listing => 1,
5422                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5423          ## has a p element in scope          ## has a p element in scope
5424          INSCOPE: for (reverse @{$self->{open_elements}}) {          INSCOPE: for (reverse @{$self->{open_elements}}) {
# Line 5427  sub _tree_construction_main ($) { Line 5437  sub _tree_construction_main ($) {
5437          } # INSCOPE          } # INSCOPE
5438                        
5439          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes});
5440          if ($token->{tag_name} eq 'pre') {          if ($token->{tag_name} eq 'pre' or $token->{tag_name} eq 'listing') {
5441            !!!next-token;            !!!next-token;
5442            if ($token->{type} == CHARACTER_TOKEN) {            if ($token->{type} == CHARACTER_TOKEN) {
5443              $token->{data} =~ s/^\x0A//;              $token->{data} =~ s/^\x0A//;
# Line 5729  sub _tree_construction_main ($) { Line 5739  sub _tree_construction_main ($) {
5739        } elsif ($token->{tag_name} eq 'xmp') {        } elsif ($token->{tag_name} eq 'xmp') {
5740          !!!cp ('t381');          !!!cp ('t381');
5741          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
5742          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5743          redo B;          redo B;
5744        } elsif ($token->{tag_name} eq 'table') {        } elsif ($token->{tag_name} eq 'table') {
5745          ## has a p element in scope          ## has a p element in scope
# Line 5749  sub _tree_construction_main ($) { Line 5759  sub _tree_construction_main ($) {
5759          } # INSCOPE          } # INSCOPE
5760                        
5761          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes});
5762                      push @{$open_tables}, [$self->{open_elements}->[-1]->[0]];
5763    
5764          $self->{insertion_mode} = IN_TABLE_IM;          $self->{insertion_mode} = IN_TABLE_IM;
5765                        
5766          !!!next-token;          !!!next-token;
# Line 5904  sub _tree_construction_main ($) { Line 5915  sub _tree_construction_main ($) {
5915                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5916          !!!cp ('t399');          !!!cp ('t399');
5917          ## NOTE: There is an "as if in body" code clone.          ## NOTE: There is an "as if in body" code clone.
5918          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5919          redo B;          redo B;
5920        } elsif ($token->{tag_name} eq 'select') {        } elsif ($token->{tag_name} eq 'select') {
5921          !!!cp ('t400');          !!!cp ('t400');
# Line 6044  sub _tree_construction_main ($) { Line 6055  sub _tree_construction_main ($) {
6055          !!!next-token;          !!!next-token;
6056          redo B;          redo B;
6057        } elsif ($token->{tag_name} eq 'form') {        } elsif ($token->{tag_name} eq 'form') {
6058            undef $self->{form_element};
6059    
6060          ## has an element in scope          ## has an element in scope
6061            my $i;
6062          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
6063            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
6064            if ($node->[1] eq $token->{tag_name}) {            if ($node->[1] eq $token->{tag_name}) {
             ## generate implied end tags  
             while ({  
                     dd => 1, dt => 1, li => 1, p => 1,  
                    }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t417');  
               pop @{$self->{open_elements}};  
             }  
   
6065              !!!cp ('t418');              !!!cp ('t418');
6066                $i = $_;
6067              last INSCOPE;              last INSCOPE;
6068            } elsif ({            } elsif ({
6069                      table => 1, caption => 1, td => 1, th => 1,                      table => 1, caption => 1, td => 1, th => 1,
# Line 6066  sub _tree_construction_main ($) { Line 6073  sub _tree_construction_main ($) {
6073              last INSCOPE;              last INSCOPE;
6074            }            }
6075          } # INSCOPE          } # INSCOPE
6076            
6077          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 {  
6078            !!!cp ('t421');            !!!cp ('t421');
6079            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6080            } else {
6081              ## Step 1. generate implied end tags
6082              while ({
6083                      dd => 1, dt => 1, li => 1, p => 1,
6084                     }->{$self->{open_elements}->[-1]->[1]}) {
6085                !!!cp ('t417');
6086                pop @{$self->{open_elements}};
6087              }
6088              
6089              ## Step 2.
6090              if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6091                !!!cp ('t417.1');
6092                !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
6093              } else {
6094                !!!cp ('t420');
6095              }  
6096              
6097              ## Step 3.
6098              splice @{$self->{open_elements}}, $i;
6099          }          }
6100    
         undef $self->{form_element};  
6101          !!!next-token;          !!!next-token;
6102          redo B;          redo B;
6103        } elsif ({        } elsif ({
# Line 6088  sub _tree_construction_main ($) { Line 6110  sub _tree_construction_main ($) {
6110            if ({            if ({
6111                 h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,                 h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,
6112                }->{$node->[1]}) {                }->{$node->[1]}) {
             ## generate implied end tags  
             while ({  
                     dd => 1, dt => 1, li => 1, p => 1,  
                    }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t422');  
               pop @{$self->{open_elements}};  
             }  
   
6113              !!!cp ('t423');              !!!cp ('t423');
6114              $i = $_;              $i = $_;
6115              last INSCOPE;              last INSCOPE;
# Line 6107  sub _tree_construction_main ($) { Line 6121  sub _tree_construction_main ($) {
6121              last INSCOPE;              last INSCOPE;
6122            }            }
6123          } # INSCOPE          } # INSCOPE
6124            
6125          if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {          unless (defined $i) { # has an element in scope
6126            !!!cp ('t425');            !!!cp ('t425.1');
6127            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6128          } else {          } else {
6129            !!!cp ('t426');            ## Step 1. generate implied end tags
6130              while ({
6131                      dd => 1, dt => 1, li => 1, p => 1,
6132                     }->{$self->{open_elements}->[-1]->[1]}) {
6133                !!!cp ('t422');
6134                pop @{$self->{open_elements}};
6135              }
6136              
6137              ## Step 2.
6138              if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6139                !!!cp ('t425');
6140                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6141              } else {
6142                !!!cp ('t426');
6143              }
6144    
6145              ## Step 3.
6146              splice @{$self->{open_elements}}, $i;
6147          }          }
6148                    
         splice @{$self->{open_elements}}, $i if defined $i;  
6149          !!!next-token;          !!!next-token;
6150          redo B;          redo B;
6151        } elsif ($token->{tag_name} eq 'p') {        } elsif ($token->{tag_name} eq 'p') {
# Line 6124  sub _tree_construction_main ($) { Line 6154  sub _tree_construction_main ($) {
6154          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
6155            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
6156            if ($node->[1] eq $token->{tag_name}) {            if ($node->[1] eq $token->{tag_name}) {
             ## generate implied end tags  
             while ({  
                     dd => 1, dt => 1, li => 1, p => 0,  
                    }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t409.1');  
               pop @{$self->{open_elements}};  
             }  
               
6157              !!!cp ('t410.1');              !!!cp ('t410.1');
6158              $i = $_;              $i = $_;
6159              last INSCOPE;              last INSCOPE;
# Line 6143  sub _tree_construction_main ($) { Line 6165  sub _tree_construction_main ($) {
6165              last INSCOPE;              last INSCOPE;
6166            }            }
6167          } # INSCOPE          } # INSCOPE
6168            
6169          if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {          if (defined $i) {
6170            if (defined $i) {            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6171              !!!cp ('t412.1');              !!!cp ('t412.1');
6172              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);
6173            } else {            } else {
6174              !!!cp ('t413.1');              !!!cp ('t414.1');
             !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});  
6175            }            }
6176          }  
           
         if (defined $i) {  
           !!!cp ('t414.1');  
6177            splice @{$self->{open_elements}}, $i;            splice @{$self->{open_elements}}, $i;
6178          } else {          } else {
6179              !!!cp ('t413.1');
6180              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});
6181    
6182            !!!cp ('t415.1');            !!!cp ('t415.1');
6183            ## As if <p>, then reprocess the current token            ## As if <p>, then reprocess the current token
6184            my $el;            my $el;
6185            !!!create-element ($el, 'p');            !!!create-element ($el, 'p');
6186            $insert->($el);            $insert->($el);
6187              ## NOTE: Not inserted into |$self->{open_elements}|.
6188          }          }
6189    
6190          !!!next-token;          !!!next-token;
6191          redo B;          redo B;
6192        } elsif ({        } elsif ({
Legend:
Removed from v.1.89  
changed lines
  Added in v.1.99
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24