/[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.111 by wakaba, Tue Mar 11 14:02:08 2008 UTC revision 1.122 by wakaba, Sun Apr 6 06:34:11 2008 UTC
# Line 108  sub parse_byte_string ($$$$;$) { Line 108  sub parse_byte_string ($$$$;$) {
108    $self->{change_encoding} = sub {    $self->{change_encoding} = sub {
109      my $self = shift;      my $self = shift;
110      my $charset = lc shift;      my $charset = lc shift;
111        my $token = shift;
112      ## TODO: if $charset is supported      ## TODO: if $charset is supported
113      ## TODO: normalize charset name      ## TODO: normalize charset name
114    
# Line 126  sub parse_byte_string ($$$$;$) { Line 127  sub parse_byte_string ($$$$;$) {
127      }      }
128    
129      !!!parse-error (type => 'charset label detected:'.$self->{input_encoding}.      !!!parse-error (type => 'charset label detected:'.$self->{input_encoding}.
130          ':'.$charset, level => 'w');          ':'.$charset, level => 'w', token => $token);
131    
132      ## Step 3      ## Step 3
133      # if (can) {      # if (can) {
# Line 177  sub parse_string ($$$;$) { Line 178  sub parse_string ($$$;$) {
178        if defined $self->{input_encoding};        if defined $self->{input_encoding};
179    
180    my $i = 0;    my $i = 0;
181    my $line = 1;    $self->{line_prev} = $self->{line} = 1;
182    my $column = 0;    $self->{column_prev} = $self->{column} = 0;
183    $self->{set_next_char} = sub {    $self->{set_next_char} = sub {
184      my $self = shift;      my $self = shift;
185    
# Line 187  sub parse_string ($$$;$) { Line 188  sub parse_string ($$$;$) {
188    
189      $self->{next_char} = -1 and return if $i >= length $$s;      $self->{next_char} = -1 and return if $i >= length $$s;
190      $self->{next_char} = ord substr $$s, $i++, 1;      $self->{next_char} = ord substr $$s, $i++, 1;
191      $column++;  
192        ($self->{line_prev}, $self->{column_prev})
193            = ($self->{line}, $self->{column});
194        $self->{column}++;
195            
196      if ($self->{next_char} == 0x000A) { # LF      if ($self->{next_char} == 0x000A) { # LF
197        $line++;        $self->{line}++;
198        $column = 0;        $self->{column} = 0;
199      } elsif ($self->{next_char} == 0x000D) { # CR      } elsif ($self->{next_char} == 0x000D) { # CR
200        $i++ if substr ($$s, $i, 1) eq "\x0A";        $i++ if substr ($$s, $i, 1) eq "\x0A";
201        $self->{next_char} = 0x000A; # LF # MUST        $self->{next_char} = 0x000A; # LF # MUST
202        $line++;        $self->{line}++;
203        $column = 0;        $self->{column} = 0;
204      } elsif ($self->{next_char} > 0x10FFFF) {      } elsif ($self->{next_char} > 0x10FFFF) {
205        $self->{next_char} = 0xFFFD; # REPLACEMENT CHARACTER # MUST        $self->{next_char} = 0xFFFD; # REPLACEMENT CHARACTER # MUST
206      } elsif ($self->{next_char} == 0x0000) { # NULL      } elsif ($self->{next_char} == 0x0000) { # NULL
# Line 209  sub parse_string ($$$;$) { Line 213  sub parse_string ($$$;$) {
213    
214    my $onerror = $_[2] || sub {    my $onerror = $_[2] || sub {
215      my (%opt) = @_;      my (%opt) = @_;
216      warn "Parse error ($opt{type}) at line $opt{line} column $opt{column}\n";      my $line = $opt{token} ? $opt{token}->{line} : $opt{line};
217        my $column = $opt{token} ? $opt{token}->{column} : $opt{column};
218        warn "Parse error ($opt{type}) at line $line column $column\n";
219    };    };
220    $self->{parse_error} = sub {    $self->{parse_error} = sub {
221      $onerror->(@_, line => $line, column => $column);      $onerror->(line => $self->{line}, column => $self->{column}, @_);
222    };    };
223    
224    $self->_initialize_tokenizer;    $self->_initialize_tokenizer;
# Line 220  sub parse_string ($$$;$) { Line 226  sub parse_string ($$$;$) {
226    $self->_construct_tree;    $self->_construct_tree;
227    $self->_terminate_tree_constructor;    $self->_terminate_tree_constructor;
228    
229      delete $self->{parse_error}; # remove loop
230    
231    return $self->{document};    return $self->{document};
232  } # parse_string  } # parse_string
233    
# Line 449  sub _get_next_token ($) { Line 457  sub _get_next_token ($) {
457          #          #
458        } elsif ($self->{next_char} == -1) {        } elsif ($self->{next_char} == -1) {
459          !!!cp (11);          !!!cp (11);
460          !!!emit ({type => END_OF_FILE_TOKEN});          !!!emit ({type => END_OF_FILE_TOKEN,
461                      line => $self->{line}, column => $self->{column}});
462          last A; ## TODO: ok?          last A; ## TODO: ok?
463        } else {        } else {
464          !!!cp (12);          !!!cp (12);
465        }        }
466        # Anything else        # Anything else
467        my $token = {type => CHARACTER_TOKEN,        my $token = {type => CHARACTER_TOKEN,
468                     data => chr $self->{next_char}};                     data => chr $self->{next_char},
469                       line => $self->{line}, column => $self->{column},
470                      };
471        ## Stay in the data state        ## Stay in the data state
472        !!!next-input-character;        !!!next-input-character;
473    
# Line 465  sub _get_next_token ($) { Line 476  sub _get_next_token ($) {
476        redo A;        redo A;
477      } elsif ($self->{state} == ENTITY_DATA_STATE) {      } elsif ($self->{state} == ENTITY_DATA_STATE) {
478        ## (cannot happen in CDATA state)        ## (cannot happen in CDATA state)
479    
480          my ($l, $c) = ($self->{line_prev}, $self->{column_prev});
481                
482        my $token = $self->_tokenize_attempt_to_consume_an_entity (0, -1);        my $token = $self->_tokenize_attempt_to_consume_an_entity (0, -1);
483    
# Line 473  sub _get_next_token ($) { Line 486  sub _get_next_token ($) {
486    
487        unless (defined $token) {        unless (defined $token) {
488          !!!cp (13);          !!!cp (13);
489          !!!emit ({type => CHARACTER_TOKEN, data => '&'});          !!!emit ({type => CHARACTER_TOKEN, data => '&',
490                      line => $l, column => $c,
491                     });
492        } else {        } else {
493          !!!cp (14);          !!!cp (14);
494          !!!emit ($token);          !!!emit ($token);
# Line 492  sub _get_next_token ($) { Line 507  sub _get_next_token ($) {
507            ## reconsume            ## reconsume
508            $self->{state} = DATA_STATE;            $self->{state} = DATA_STATE;
509    
510            !!!emit ({type => CHARACTER_TOKEN, data => '<'});            !!!emit ({type => CHARACTER_TOKEN, data => '<',
511                        line => $self->{line_prev},
512                        column => $self->{column_prev},
513                       });
514    
515            redo A;            redo A;
516          }          }
# Line 512  sub _get_next_token ($) { Line 530  sub _get_next_token ($) {
530            !!!cp (19);            !!!cp (19);
531            $self->{current_token}            $self->{current_token}
532              = {type => START_TAG_TOKEN,              = {type => START_TAG_TOKEN,
533                 tag_name => chr ($self->{next_char} + 0x0020)};                 tag_name => chr ($self->{next_char} + 0x0020),
534                   line => $self->{line_prev},
535                   column => $self->{column_prev}};
536            $self->{state} = TAG_NAME_STATE;            $self->{state} = TAG_NAME_STATE;
537            !!!next-input-character;            !!!next-input-character;
538            redo A;            redo A;
# Line 520  sub _get_next_token ($) { Line 540  sub _get_next_token ($) {
540                   $self->{next_char} <= 0x007A) { # a..z                   $self->{next_char} <= 0x007A) { # a..z
541            !!!cp (20);            !!!cp (20);
542            $self->{current_token} = {type => START_TAG_TOKEN,            $self->{current_token} = {type => START_TAG_TOKEN,
543                              tag_name => chr ($self->{next_char})};                                      tag_name => chr ($self->{next_char}),
544                                        line => $self->{line_prev},
545                                        column => $self->{column_prev}};
546            $self->{state} = TAG_NAME_STATE;            $self->{state} = TAG_NAME_STATE;
547            !!!next-input-character;            !!!next-input-character;
548            redo A;            redo A;
549          } elsif ($self->{next_char} == 0x003E) { # >          } elsif ($self->{next_char} == 0x003E) { # >
550            !!!cp (21);            !!!cp (21);
551            !!!parse-error (type => 'empty start tag');            !!!parse-error (type => 'empty start tag',
552                              line => $self->{line_prev},
553                              column => $self->{column_prev});
554            $self->{state} = DATA_STATE;            $self->{state} = DATA_STATE;
555            !!!next-input-character;            !!!next-input-character;
556    
557            !!!emit ({type => CHARACTER_TOKEN, data => '<>'});            !!!emit ({type => CHARACTER_TOKEN, data => '<>',
558                        line => $self->{line_prev},
559                        column => $self->{column_prev},
560                       });
561    
562            redo A;            redo A;
563          } elsif ($self->{next_char} == 0x003F) { # ?          } elsif ($self->{next_char} == 0x003F) { # ?
564            !!!cp (22);            !!!cp (22);
565            !!!parse-error (type => 'pio');            !!!parse-error (type => 'pio',
566                              line => $self->{line_prev},
567                              column => $self->{column_prev});
568            $self->{state} = BOGUS_COMMENT_STATE;            $self->{state} = BOGUS_COMMENT_STATE;
569              $self->{current_token} = {type => COMMENT_TOKEN, data => '',
570                                        line => $self->{line_prev},
571                                        column => $self->{column_prev},
572                                       };
573            ## $self->{next_char} is intentionally left as is            ## $self->{next_char} is intentionally left as is
574            redo A;            redo A;
575          } else {          } else {
# Line 545  sub _get_next_token ($) { Line 578  sub _get_next_token ($) {
578            $self->{state} = DATA_STATE;            $self->{state} = DATA_STATE;
579            ## reconsume            ## reconsume
580    
581            !!!emit ({type => CHARACTER_TOKEN, data => '<'});            !!!emit ({type => CHARACTER_TOKEN, data => '<',
582                        line => $self->{line_prev},
583                        column => $self->{column_prev},
584                       });
585    
586            redo A;            redo A;
587          }          }
# Line 553  sub _get_next_token ($) { Line 589  sub _get_next_token ($) {
589          die "$0: $self->{content_model} in tag open";          die "$0: $self->{content_model} in tag open";
590        }        }
591      } elsif ($self->{state} == CLOSE_TAG_OPEN_STATE) {      } elsif ($self->{state} == CLOSE_TAG_OPEN_STATE) {
592          my ($l, $c) = ($self->{line_prev}, $self->{column_prev} - 1); # "<"of"</"
593        if ($self->{content_model} & CM_LIMITED_MARKUP) { # RCDATA | CDATA        if ($self->{content_model} & CM_LIMITED_MARKUP) { # RCDATA | CDATA
594          if (defined $self->{last_emitted_start_tag_name}) {          if (defined $self->{last_emitted_start_tag_name}) {
595    
596            ## NOTE: <http://krijnhoetmer.nl/irc-logs/whatwg/20070626#l-564>            ## NOTE: <http://krijnhoetmer.nl/irc-logs/whatwg/20070626#l-564>
597            my @next_char;            my @next_char;
598            TAGNAME: for (my $i = 0; $i < length $self->{last_emitted_start_tag_name}; $i++) {            TAGNAME: for (my $i = 0; $i < length $self->{last_emitted_start_tag_name}; $i++) {
# Line 571  sub _get_next_token ($) { Line 609  sub _get_next_token ($) {
609                !!!back-next-input-character (@next_char);                !!!back-next-input-character (@next_char);
610                $self->{state} = DATA_STATE;                $self->{state} = DATA_STATE;
611    
612                !!!emit ({type => CHARACTER_TOKEN, data => '</'});                !!!emit ({type => CHARACTER_TOKEN, data => '</',
613                            line => $l, column => $c,
614                           });
615        
616                redo A;                redo A;
617              }              }
# Line 590  sub _get_next_token ($) { Line 630  sub _get_next_token ($) {
630              $self->{next_char} = shift @next_char; # reconsume              $self->{next_char} = shift @next_char; # reconsume
631              !!!back-next-input-character (@next_char);              !!!back-next-input-character (@next_char);
632              $self->{state} = DATA_STATE;              $self->{state} = DATA_STATE;
633              !!!emit ({type => CHARACTER_TOKEN, data => '</'});              !!!emit ({type => CHARACTER_TOKEN, data => '</',
634                          line => $l, column => $c,
635                         });
636              redo A;              redo A;
637            } else {            } else {
638              !!!cp (27);              !!!cp (27);
# Line 603  sub _get_next_token ($) { Line 645  sub _get_next_token ($) {
645            !!!cp (28);            !!!cp (28);
646            # next-input-character is already done            # next-input-character is already done
647            $self->{state} = DATA_STATE;            $self->{state} = DATA_STATE;
648            !!!emit ({type => CHARACTER_TOKEN, data => '</'});            !!!emit ({type => CHARACTER_TOKEN, data => '</',
649                        line => $l, column => $c,
650                       });
651            redo A;            redo A;
652          }          }
653        }        }
# Line 611  sub _get_next_token ($) { Line 655  sub _get_next_token ($) {
655        if (0x0041 <= $self->{next_char} and        if (0x0041 <= $self->{next_char} and
656            $self->{next_char} <= 0x005A) { # A..Z            $self->{next_char} <= 0x005A) { # A..Z
657          !!!cp (29);          !!!cp (29);
658          $self->{current_token} = {type => END_TAG_TOKEN,          $self->{current_token}
659                            tag_name => chr ($self->{next_char} + 0x0020)};              = {type => END_TAG_TOKEN,
660                   tag_name => chr ($self->{next_char} + 0x0020),
661                   line => $l, column => $c};
662          $self->{state} = TAG_NAME_STATE;          $self->{state} = TAG_NAME_STATE;
663          !!!next-input-character;          !!!next-input-character;
664          redo A;          redo A;
# Line 620  sub _get_next_token ($) { Line 666  sub _get_next_token ($) {
666                 $self->{next_char} <= 0x007A) { # a..z                 $self->{next_char} <= 0x007A) { # a..z
667          !!!cp (30);          !!!cp (30);
668          $self->{current_token} = {type => END_TAG_TOKEN,          $self->{current_token} = {type => END_TAG_TOKEN,
669                            tag_name => chr ($self->{next_char})};                                    tag_name => chr ($self->{next_char}),
670                                      line => $l, column => $c};
671          $self->{state} = TAG_NAME_STATE;          $self->{state} = TAG_NAME_STATE;
672          !!!next-input-character;          !!!next-input-character;
673          redo A;          redo A;
674        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
675          !!!cp (31);          !!!cp (31);
676          !!!parse-error (type => 'empty end tag');          !!!parse-error (type => 'empty end tag',
677                            line => $self->{line_prev}, ## "<" in "</>"
678                            column => $self->{column_prev} - 1);
679          $self->{state} = DATA_STATE;          $self->{state} = DATA_STATE;
680          !!!next-input-character;          !!!next-input-character;
681          redo A;          redo A;
# Line 636  sub _get_next_token ($) { Line 685  sub _get_next_token ($) {
685          $self->{state} = DATA_STATE;          $self->{state} = DATA_STATE;
686          # reconsume          # reconsume
687    
688          !!!emit ({type => CHARACTER_TOKEN, data => '</'});          !!!emit ({type => CHARACTER_TOKEN, data => '</',
689                      line => $l, column => $c,
690                     });
691    
692          redo A;          redo A;
693        } else {        } else {
694          !!!cp (33);          !!!cp (33);
695          !!!parse-error (type => 'bogus end tag');          !!!parse-error (type => 'bogus end tag');
696          $self->{state} = BOGUS_COMMENT_STATE;          $self->{state} = BOGUS_COMMENT_STATE;
697            $self->{current_token} = {type => COMMENT_TOKEN, data => '',
698                                      line => $self->{line_prev}, # "<" of "</"
699                                      column => $self->{column_prev} - 1,
700                                     };
701          ## $self->{next_char} is intentionally left as is          ## $self->{next_char} is intentionally left as is
702          redo A;          redo A;
703        }        }
# Line 659  sub _get_next_token ($) { Line 714  sub _get_next_token ($) {
714        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
715          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
716            !!!cp (35);            !!!cp (35);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
717            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
718          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
719            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 692  sub _get_next_token ($) { Line 745  sub _get_next_token ($) {
745          !!!parse-error (type => 'unclosed tag');          !!!parse-error (type => 'unclosed tag');
746          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
747            !!!cp (39);            !!!cp (39);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
748            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
749          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
750            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 749  sub _get_next_token ($) { Line 800  sub _get_next_token ($) {
800        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
801          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
802            !!!cp (46);            !!!cp (46);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
803            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
804          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
805            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 772  sub _get_next_token ($) { Line 821  sub _get_next_token ($) {
821        } elsif (0x0041 <= $self->{next_char} and        } elsif (0x0041 <= $self->{next_char} and
822                 $self->{next_char} <= 0x005A) { # A..Z                 $self->{next_char} <= 0x005A) { # A..Z
823          !!!cp (49);          !!!cp (49);
824          $self->{current_attribute} = {name => chr ($self->{next_char} + 0x0020),          $self->{current_attribute}
825                                value => ''};              = {name => chr ($self->{next_char} + 0x0020),
826                   value => '',
827                   line => $self->{line}, column => $self->{column}};
828          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
829          !!!next-input-character;          !!!next-input-character;
830          redo A;          redo A;
# Line 796  sub _get_next_token ($) { Line 847  sub _get_next_token ($) {
847          !!!parse-error (type => 'unclosed tag');          !!!parse-error (type => 'unclosed tag');
848          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
849            !!!cp (52);            !!!cp (52);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
850            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
851          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
852            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 827  sub _get_next_token ($) { Line 876  sub _get_next_token ($) {
876          } else {          } else {
877            !!!cp (56);            !!!cp (56);
878          }          }
879          $self->{current_attribute} = {name => chr ($self->{next_char}),          $self->{current_attribute}
880                                value => ''};              = {name => chr ($self->{next_char}),
881                   value => '',
882                   line => $self->{line}, column => $self->{column}};
883          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
884          !!!next-input-character;          !!!next-input-character;
885          redo A;          redo A;
# Line 838  sub _get_next_token ($) { Line 889  sub _get_next_token ($) {
889          if (exists $self->{current_token}->{attributes} # start tag or end tag          if (exists $self->{current_token}->{attributes} # start tag or end tag
890              ->{$self->{current_attribute}->{name}}) { # MUST              ->{$self->{current_attribute}->{name}}) { # MUST
891            !!!cp (57);            !!!cp (57);
892            !!!parse-error (type => 'duplicate attribute:'.$self->{current_attribute}->{name});            !!!parse-error (type => 'duplicate attribute:'.$self->{current_attribute}->{name}, line => $self->{current_attribute}->{line}, column => $self->{current_attribute}->{column});
893            ## Discard $self->{current_attribute} # MUST            ## Discard $self->{current_attribute} # MUST
894          } else {          } else {
895            !!!cp (58);            !!!cp (58);
# Line 867  sub _get_next_token ($) { Line 918  sub _get_next_token ($) {
918          $before_leave->();          $before_leave->();
919          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
920            !!!cp (61);            !!!cp (61);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
921            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
922          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
923            !!!cp (62);            !!!cp (62);
# Line 913  sub _get_next_token ($) { Line 962  sub _get_next_token ($) {
962          $before_leave->();          $before_leave->();
963          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
964            !!!cp (66);            !!!cp (66);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
965            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
966          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
967            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 965  sub _get_next_token ($) { Line 1012  sub _get_next_token ($) {
1012        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
1013          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1014            !!!cp (73);            !!!cp (73);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1015            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1016          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1017            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 989  sub _get_next_token ($) { Line 1034  sub _get_next_token ($) {
1034        } elsif (0x0041 <= $self->{next_char} and        } elsif (0x0041 <= $self->{next_char} and
1035                 $self->{next_char} <= 0x005A) { # A..Z                 $self->{next_char} <= 0x005A) { # A..Z
1036          !!!cp (76);          !!!cp (76);
1037          $self->{current_attribute} = {name => chr ($self->{next_char} + 0x0020),          $self->{current_attribute}
1038                                value => ''};              = {name => chr ($self->{next_char} + 0x0020),
1039                   value => '',
1040                   line => $self->{line}, column => $self->{column}};
1041          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
1042          !!!next-input-character;          !!!next-input-character;
1043          redo A;          redo A;
# Line 1014  sub _get_next_token ($) { Line 1061  sub _get_next_token ($) {
1061          !!!parse-error (type => 'unclosed tag');          !!!parse-error (type => 'unclosed tag');
1062          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1063            !!!cp (79);            !!!cp (79);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1064            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1065          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1066            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1037  sub _get_next_token ($) { Line 1082  sub _get_next_token ($) {
1082          redo A;          redo A;
1083        } else {        } else {
1084          !!!cp (82);          !!!cp (82);
1085          $self->{current_attribute} = {name => chr ($self->{next_char}),          $self->{current_attribute}
1086                                value => ''};              = {name => chr ($self->{next_char}),
1087                   value => '',
1088                   line => $self->{line}, column => $self->{column}};
1089          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
1090          !!!next-input-character;          !!!next-input-character;
1091          redo A;                  redo A;        
# Line 1071  sub _get_next_token ($) { Line 1118  sub _get_next_token ($) {
1118        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
1119          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1120            !!!cp (87);            !!!cp (87);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1121            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1122          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1123            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1096  sub _get_next_token ($) { Line 1141  sub _get_next_token ($) {
1141          !!!parse-error (type => 'unclosed tag');          !!!parse-error (type => 'unclosed tag');
1142          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1143            !!!cp (90);            !!!cp (90);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1144            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1145          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1146            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1145  sub _get_next_token ($) { Line 1188  sub _get_next_token ($) {
1188          !!!parse-error (type => 'unclosed attribute value');          !!!parse-error (type => 'unclosed attribute value');
1189          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1190            !!!cp (97);            !!!cp (97);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1191            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1192          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1193            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1189  sub _get_next_token ($) { Line 1230  sub _get_next_token ($) {
1230          !!!parse-error (type => 'unclosed attribute value');          !!!parse-error (type => 'unclosed attribute value');
1231          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1232            !!!cp (103);            !!!cp (103);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1233            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1234          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1235            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1236  sub _get_next_token ($) { Line 1275  sub _get_next_token ($) {
1275        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
1276          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1277            !!!cp (109);            !!!cp (109);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1278            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1279          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1280            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1261  sub _get_next_token ($) { Line 1298  sub _get_next_token ($) {
1298          !!!parse-error (type => 'unclosed tag');          !!!parse-error (type => 'unclosed tag');
1299          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1300            !!!cp (112);            !!!cp (112);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1301            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1302          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1303            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1333  sub _get_next_token ($) { Line 1368  sub _get_next_token ($) {
1368        } elsif ($self->{next_char} == 0x003E) { # >        } elsif ($self->{next_char} == 0x003E) { # >
1369          if ($self->{current_token}->{type} == START_TAG_TOKEN) {          if ($self->{current_token}->{type} == START_TAG_TOKEN) {
1370            !!!cp (119);            !!!cp (119);
           $self->{current_token}->{first_start_tag}  
               = not defined $self->{last_emitted_start_tag_name};  
1371            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};            $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name};
1372          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {          } elsif ($self->{current_token}->{type} == END_TAG_TOKEN) {
1373            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST            $self->{content_model} = PCDATA_CONTENT_MODEL; # MUST
# Line 1379  sub _get_next_token ($) { Line 1412  sub _get_next_token ($) {
1412      } elsif ($self->{state} == BOGUS_COMMENT_STATE) {      } elsif ($self->{state} == BOGUS_COMMENT_STATE) {
1413        ## (only happen if PCDATA state)        ## (only happen if PCDATA state)
1414                
1415        my $token = {type => COMMENT_TOKEN, data => ''};        ## NOTE: Set by the previous state
1416          #my $token = {type => COMMENT_TOKEN, data => ''};
1417    
1418        BC: {        BC: {
1419          if ($self->{next_char} == 0x003E) { # >          if ($self->{next_char} == 0x003E) { # >
# Line 1387  sub _get_next_token ($) { Line 1421  sub _get_next_token ($) {
1421            $self->{state} = DATA_STATE;            $self->{state} = DATA_STATE;
1422            !!!next-input-character;            !!!next-input-character;
1423    
1424            !!!emit ($token);            !!!emit ($self->{current_token}); # comment
1425    
1426            redo A;            redo A;
1427          } elsif ($self->{next_char} == -1) {          } elsif ($self->{next_char} == -1) {
# Line 1395  sub _get_next_token ($) { Line 1429  sub _get_next_token ($) {
1429            $self->{state} = DATA_STATE;            $self->{state} = DATA_STATE;
1430            ## reconsume            ## reconsume
1431    
1432            !!!emit ($token);            !!!emit ($self->{current_token}); # comment
1433    
1434            redo A;            redo A;
1435          } else {          } else {
1436            !!!cp (126);            !!!cp (126);
1437            $token->{data} .= chr ($self->{next_char});            $self->{current_token}->{data} .= chr ($self->{next_char}); # comment
1438            !!!next-input-character;            !!!next-input-character;
1439            redo BC;            redo BC;
1440          }          }
# Line 1410  sub _get_next_token ($) { Line 1444  sub _get_next_token ($) {
1444      } elsif ($self->{state} == MARKUP_DECLARATION_OPEN_STATE) {      } elsif ($self->{state} == MARKUP_DECLARATION_OPEN_STATE) {
1445        ## (only happen if PCDATA state)        ## (only happen if PCDATA state)
1446    
1447          my ($l, $c) = ($self->{line_prev}, $self->{column_prev} - 1);
1448    
1449        my @next_char;        my @next_char;
1450        push @next_char, $self->{next_char};        push @next_char, $self->{next_char};
1451                
# Line 1418  sub _get_next_token ($) { Line 1454  sub _get_next_token ($) {
1454          push @next_char, $self->{next_char};          push @next_char, $self->{next_char};
1455          if ($self->{next_char} == 0x002D) { # -          if ($self->{next_char} == 0x002D) { # -
1456            !!!cp (127);            !!!cp (127);
1457            $self->{current_token} = {type => COMMENT_TOKEN, data => ''};            $self->{current_token} = {type => COMMENT_TOKEN, data => '',
1458                                        line => $l, column => $c,
1459                                       };
1460            $self->{state} = COMMENT_START_STATE;            $self->{state} = COMMENT_START_STATE;
1461            !!!next-input-character;            !!!next-input-character;
1462            redo A;            redo A;
# Line 1454  sub _get_next_token ($) { Line 1492  sub _get_next_token ($) {
1492                      !!!cp (129);                      !!!cp (129);
1493                      ## TODO: What a stupid code this is!                      ## TODO: What a stupid code this is!
1494                      $self->{state} = DOCTYPE_STATE;                      $self->{state} = DOCTYPE_STATE;
1495                        $self->{current_token} = {type => DOCTYPE_TOKEN,
1496                                                  quirks => 1,
1497                                                  line => $l, column => $c,
1498                                                 };
1499                      !!!next-input-character;                      !!!next-input-character;
1500                      redo A;                      redo A;
1501                    } else {                    } else {
# Line 1482  sub _get_next_token ($) { Line 1524  sub _get_next_token ($) {
1524        $self->{next_char} = shift @next_char;        $self->{next_char} = shift @next_char;
1525        !!!back-next-input-character (@next_char);        !!!back-next-input-character (@next_char);
1526        $self->{state} = BOGUS_COMMENT_STATE;        $self->{state} = BOGUS_COMMENT_STATE;
1527          $self->{current_token} = {type => COMMENT_TOKEN, data => '',
1528                                    line => $l, column => $c,
1529                                   };
1530        redo A;        redo A;
1531                
1532        ## ISSUE: typos in spec: chacacters, is is a parse error        ## ISSUE: typos in spec: chacacters, is is a parse error
# Line 1605  sub _get_next_token ($) { Line 1650  sub _get_next_token ($) {
1650          redo A;          redo A;
1651        } elsif ($self->{next_char} == 0x002D) { # -        } elsif ($self->{next_char} == 0x002D) { # -
1652          !!!cp (152);          !!!cp (152);
1653          !!!parse-error (type => 'dash in comment');          !!!parse-error (type => 'dash in comment',
1654                            line => $self->{line_prev},
1655                            column => $self->{column_prev});
1656          $self->{current_token}->{data} .= '-'; # comment          $self->{current_token}->{data} .= '-'; # comment
1657          ## Stay in the state          ## Stay in the state
1658          !!!next-input-character;          !!!next-input-character;
# Line 1621  sub _get_next_token ($) { Line 1668  sub _get_next_token ($) {
1668          redo A;          redo A;
1669        } else {        } else {
1670          !!!cp (154);          !!!cp (154);
1671          !!!parse-error (type => 'dash in comment');          !!!parse-error (type => 'dash in comment',
1672                            line => $self->{line_prev},
1673                            column => $self->{column_prev});
1674          $self->{current_token}->{data} .= '--' . chr ($self->{next_char}); # comment          $self->{current_token}->{data} .= '--' . chr ($self->{next_char}); # comment
1675          $self->{state} = COMMENT_STATE;          $self->{state} = COMMENT_STATE;
1676          !!!next-input-character;          !!!next-input-character;
# Line 1660  sub _get_next_token ($) { Line 1709  sub _get_next_token ($) {
1709          $self->{state} = DATA_STATE;          $self->{state} = DATA_STATE;
1710          !!!next-input-character;          !!!next-input-character;
1711    
1712          !!!emit ({type => DOCTYPE_TOKEN, quirks => 1});          !!!emit ($self->{current_token}); # DOCTYPE (quirks)
1713    
1714          redo A;          redo A;
1715        } elsif ($self->{next_char} == -1) {        } elsif ($self->{next_char} == -1) {
# Line 1669  sub _get_next_token ($) { Line 1718  sub _get_next_token ($) {
1718          $self->{state} = DATA_STATE;          $self->{state} = DATA_STATE;
1719          ## reconsume          ## reconsume
1720    
1721          !!!emit ({type => DOCTYPE_TOKEN, quirks => 1});          !!!emit ($self->{current_token}); # DOCTYPE (quirks)
1722    
1723          redo A;          redo A;
1724        } else {        } else {
1725          !!!cp (160);          !!!cp (160);
1726          $self->{current_token}          $self->{current_token}->{name} = chr $self->{next_char};
1727              = {type => DOCTYPE_TOKEN,          delete $self->{current_token}->{quirks};
                name => chr ($self->{next_char}),  
                #quirks => 0,  
               };  
1728  ## ISSUE: "Set the token's name name to the" in the spec  ## ISSUE: "Set the token's name name to the" in the spec
1729          $self->{state} = DOCTYPE_NAME_STATE;          $self->{state} = DOCTYPE_NAME_STATE;
1730          !!!next-input-character;          !!!next-input-character;
# Line 2205  sub _get_next_token ($) { Line 2251  sub _get_next_token ($) {
2251  sub _tokenize_attempt_to_consume_an_entity ($$$) {  sub _tokenize_attempt_to_consume_an_entity ($$$) {
2252    my ($self, $in_attr, $additional) = @_;    my ($self, $in_attr, $additional) = @_;
2253    
2254      my ($l, $c) = ($self->{line_prev}, $self->{column_prev});
2255    
2256    if ({    if ({
2257         0x0009 => 1, 0x000A => 1, 0x000B => 1, 0x000C => 1, # HT, LF, VT, FF,         0x0009 => 1, 0x000A => 1, 0x000B => 1, 0x000C => 1, # HT, LF, VT, FF,
2258         0x0020 => 1, 0x003C => 1, 0x0026 => 1, -1 => 1, # SP, <, & # 0x000D # CR         0x0020 => 1, 0x003C => 1, 0x0026 => 1, -1 => 1, # SP, <, & # 0x000D # CR
# Line 2245  sub _tokenize_attempt_to_consume_an_enti Line 2293  sub _tokenize_attempt_to_consume_an_enti
2293            redo X;            redo X;
2294          } elsif (not defined $code) { # no hexadecimal digit          } elsif (not defined $code) { # no hexadecimal digit
2295            !!!cp (1005);            !!!cp (1005);
2296            !!!parse-error (type => 'bare hcro');            !!!parse-error (type => 'bare hcro', line => $l, column => $c);
2297            !!!back-next-input-character ($x_char, $self->{next_char});            !!!back-next-input-character ($x_char, $self->{next_char});
2298            $self->{next_char} = 0x0023; # #            $self->{next_char} = 0x0023; # #
2299            return undef;            return undef;
# Line 2254  sub _tokenize_attempt_to_consume_an_enti Line 2302  sub _tokenize_attempt_to_consume_an_enti
2302            !!!next-input-character;            !!!next-input-character;
2303          } else {          } else {
2304            !!!cp (1007);            !!!cp (1007);
2305            !!!parse-error (type => 'no refc');            !!!parse-error (type => 'no refc', line => $l, column => $c);
2306          }          }
2307    
2308          if ($code == 0 or (0xD800 <= $code and $code <= 0xDFFF)) {          if ($code == 0 or (0xD800 <= $code and $code <= 0xDFFF)) {
2309            !!!cp (1008);            !!!cp (1008);
2310            !!!parse-error (type => sprintf 'invalid character reference:U+%04X', $code);            !!!parse-error (type => (sprintf 'invalid character reference:U+%04X', $code), line => $l, column => $c);
2311            $code = 0xFFFD;            $code = 0xFFFD;
2312          } elsif ($code > 0x10FFFF) {          } elsif ($code > 0x10FFFF) {
2313            !!!cp (1009);            !!!cp (1009);
2314            !!!parse-error (type => sprintf 'invalid character reference:U-%08X', $code);            !!!parse-error (type => (sprintf 'invalid character reference:U-%08X', $code), line => $l, column => $c);
2315            $code = 0xFFFD;            $code = 0xFFFD;
2316          } elsif ($code == 0x000D) {          } elsif ($code == 0x000D) {
2317            !!!cp (1010);            !!!cp (1010);
2318            !!!parse-error (type => 'CR character reference');            !!!parse-error (type => 'CR character reference', line => $l, column => $c);
2319            $code = 0x000A;            $code = 0x000A;
2320          } elsif (0x80 <= $code and $code <= 0x9F) {          } elsif (0x80 <= $code and $code <= 0x9F) {
2321            !!!cp (1011);            !!!cp (1011);
2322            !!!parse-error (type => sprintf 'C1 character reference:U+%04X', $code);            !!!parse-error (type => (sprintf 'C1 character reference:U+%04X', $code), line => $l, column => $c);
2323            $code = $c1_entity_char->{$code};            $code = $c1_entity_char->{$code};
2324          }          }
2325    
2326          return {type => CHARACTER_TOKEN, data => chr $code,          return {type => CHARACTER_TOKEN, data => chr $code,
2327                  has_reference => 1};                  has_reference => 1,
2328                    line => $l, column => $c,
2329                   };
2330        } # X        } # X
2331      } elsif (0x0030 <= $self->{next_char} and      } elsif (0x0030 <= $self->{next_char} and
2332               $self->{next_char} <= 0x0039) { # 0..9               $self->{next_char} <= 0x0039) { # 0..9
# Line 2297  sub _tokenize_attempt_to_consume_an_enti Line 2347  sub _tokenize_attempt_to_consume_an_enti
2347          !!!next-input-character;          !!!next-input-character;
2348        } else {        } else {
2349          !!!cp (1014);          !!!cp (1014);
2350          !!!parse-error (type => 'no refc');          !!!parse-error (type => 'no refc', line => $l, column => $c);
2351        }        }
2352    
2353        if ($code == 0 or (0xD800 <= $code and $code <= 0xDFFF)) {        if ($code == 0 or (0xD800 <= $code and $code <= 0xDFFF)) {
2354          !!!cp (1015);          !!!cp (1015);
2355          !!!parse-error (type => sprintf 'invalid character reference:U+%04X', $code);          !!!parse-error (type => (sprintf 'invalid character reference:U+%04X', $code), line => $l, column => $c);
2356          $code = 0xFFFD;          $code = 0xFFFD;
2357        } elsif ($code > 0x10FFFF) {        } elsif ($code > 0x10FFFF) {
2358          !!!cp (1016);          !!!cp (1016);
2359          !!!parse-error (type => sprintf 'invalid character reference:U-%08X', $code);          !!!parse-error (type => (sprintf 'invalid character reference:U-%08X', $code), line => $l, column => $c);
2360          $code = 0xFFFD;          $code = 0xFFFD;
2361        } elsif ($code == 0x000D) {        } elsif ($code == 0x000D) {
2362          !!!cp (1017);          !!!cp (1017);
2363          !!!parse-error (type => 'CR character reference');          !!!parse-error (type => 'CR character reference', line => $l, column => $c);
2364          $code = 0x000A;          $code = 0x000A;
2365        } elsif (0x80 <= $code and $code <= 0x9F) {        } elsif (0x80 <= $code and $code <= 0x9F) {
2366          !!!cp (1018);          !!!cp (1018);
2367          !!!parse-error (type => sprintf 'C1 character reference:U+%04X', $code);          !!!parse-error (type => (sprintf 'C1 character reference:U+%04X', $code), line => $l, column => $c);
2368          $code = $c1_entity_char->{$code};          $code = $c1_entity_char->{$code};
2369        }        }
2370                
2371        return {type => CHARACTER_TOKEN, data => chr $code, has_reference => 1};        return {type => CHARACTER_TOKEN, data => chr $code, has_reference => 1,
2372                  line => $l, column => $c,
2373                 };
2374      } else {      } else {
2375        !!!cp (1019);        !!!cp (1019);
2376        !!!parse-error (type => 'bare nero');        !!!parse-error (type => 'bare nero', line => $l, column => $c);
2377        !!!back-next-input-character ($self->{next_char});        !!!back-next-input-character ($self->{next_char});
2378        $self->{next_char} = 0x0023; # #        $self->{next_char} = 0x0023; # #
2379        return undef;        return undef;
# Line 2371  sub _tokenize_attempt_to_consume_an_enti Line 2423  sub _tokenize_attempt_to_consume_an_enti
2423            
2424      if ($match > 0) {      if ($match > 0) {
2425        !!!cp (1023);        !!!cp (1023);
2426        return {type => CHARACTER_TOKEN, data => $value, has_reference => 1};        return {type => CHARACTER_TOKEN, data => $value, has_reference => 1,
2427                  line => $l, column => $c,
2428                 };
2429      } elsif ($match < 0) {      } elsif ($match < 0) {
2430        !!!parse-error (type => 'no refc');        !!!parse-error (type => 'no refc', line => $l, column => $c);
2431        if ($in_attr and $match < -1) {        if ($in_attr and $match < -1) {
2432          !!!cp (1024);          !!!cp (1024);
2433          return {type => CHARACTER_TOKEN, data => '&'.$entity_name};          return {type => CHARACTER_TOKEN, data => '&'.$entity_name,
2434                    line => $l, column => $c,
2435                   };
2436        } else {        } else {
2437          !!!cp (1025);          !!!cp (1025);
2438          return {type => CHARACTER_TOKEN, data => $value, has_reference => 1};          return {type => CHARACTER_TOKEN, data => $value, has_reference => 1,
2439                    line => $l, column => $c,
2440                   };
2441        }        }
2442      } else {      } else {
2443        !!!cp (1026);        !!!cp (1026);
2444        !!!parse-error (type => 'bare ero');        !!!parse-error (type => 'bare ero', line => $l, column => $c);
2445        ## NOTE: "No characters are consumed" in the spec.        ## NOTE: "No characters are consumed" in the spec.
2446        return {type => CHARACTER_TOKEN, data => '&'.$value};        return {type => CHARACTER_TOKEN, data => '&'.$value,
2447                  line => $l, column => $c,
2448                 };
2449      }      }
2450    } else {    } else {
2451      !!!cp (1027);      !!!cp (1027);
2452      ## no characters are consumed      ## no characters are consumed
2453      !!!parse-error (type => 'bare ero');      !!!parse-error (type => 'bare ero', line => $l, column => $c);
2454      return undef;      return undef;
2455    }    }
2456  } # _tokenize_attempt_to_consume_an_entity  } # _tokenize_attempt_to_consume_an_entity
# Line 2461  sub _tree_construction_initial ($) { Line 2521  sub _tree_construction_initial ($) {
2521            defined $token->{public_identifier} or            defined $token->{public_identifier} or
2522            defined $token->{system_identifier}) {            defined $token->{system_identifier}) {
2523          !!!cp ('t1');          !!!cp ('t1');
2524          !!!parse-error (type => 'not HTML5');          !!!parse-error (type => 'not HTML5', token => $token);
2525        } elsif ($doctype_name ne 'HTML') {        } elsif ($doctype_name ne 'HTML') {
2526          !!!cp ('t2');          !!!cp ('t2');
2527          ## ISSUE: ASCII case-insensitive? (in fact it does not matter)          ## ISSUE: ASCII case-insensitive? (in fact it does not matter)
2528          !!!parse-error (type => 'not HTML5');          !!!parse-error (type => 'not HTML5', token => $token);
2529        } else {        } else {
2530          !!!cp ('t3');          !!!cp ('t3');
2531        }        }
2532                
2533        my $doctype = $self->{document}->create_document_type_definition        my $doctype = $self->{document}->create_document_type_definition
2534          ($token->{name}); ## ISSUE: If name is missing (e.g. <!DOCTYPE>)?          ($token->{name}); ## ISSUE: If name is missing (e.g. <!DOCTYPE>)?
2535          ## NOTE: Default value for both |public_id| and |system_id| attributes
2536          ## are empty strings, so that we don't set any value in missing cases.
2537        $doctype->public_id ($token->{public_identifier})        $doctype->public_id ($token->{public_identifier})
2538            if defined $token->{public_identifier};            if defined $token->{public_identifier};
2539        $doctype->system_id ($token->{system_identifier})        $doctype->system_id ($token->{system_identifier})
# Line 2604  sub _tree_construction_initial ($) { Line 2666  sub _tree_construction_initial ($) {
2666                END_OF_FILE_TOKEN, 1,                END_OF_FILE_TOKEN, 1,
2667               }->{$token->{type}}) {               }->{$token->{type}}) {
2668        !!!cp ('t14');        !!!cp ('t14');
2669        !!!parse-error (type => 'no DOCTYPE');        !!!parse-error (type => 'no DOCTYPE', token => $token);
2670        $self->{document}->manakai_compat_mode ('quirks');        $self->{document}->manakai_compat_mode ('quirks');
2671        ## Go to the "before html" insertion mode.        ## Go to the "before html" insertion mode.
2672        ## reprocess        ## reprocess
# Line 2625  sub _tree_construction_initial ($) { Line 2687  sub _tree_construction_initial ($) {
2687          !!!cp ('t17');          !!!cp ('t17');
2688        }        }
2689    
2690        !!!parse-error (type => 'no DOCTYPE');        !!!parse-error (type => 'no DOCTYPE', token => $token);
2691        $self->{document}->manakai_compat_mode ('quirks');        $self->{document}->manakai_compat_mode ('quirks');
2692        ## Go to the "before html" insertion mode.        ## Go to the "before html" insertion mode.
2693        ## reprocess        ## reprocess
# Line 2654  sub _tree_construction_root_element ($) Line 2716  sub _tree_construction_root_element ($)
2716    B: {    B: {
2717        if ($token->{type} == DOCTYPE_TOKEN) {        if ($token->{type} == DOCTYPE_TOKEN) {
2718          !!!cp ('t19');          !!!cp ('t19');
2719          !!!parse-error (type => 'in html:#DOCTYPE');          !!!parse-error (type => 'in html:#DOCTYPE', token => $token);
2720          ## Ignore the token          ## Ignore the token
2721          ## Stay in the insertion mode.          ## Stay in the insertion mode.
2722          !!!next-token;          !!!next-token;
# Line 2688  sub _tree_construction_root_element ($) Line 2750  sub _tree_construction_root_element ($)
2750        } elsif ($token->{type} == START_TAG_TOKEN) {        } elsif ($token->{type} == START_TAG_TOKEN) {
2751          if ($token->{tag_name} eq 'html') {          if ($token->{tag_name} eq 'html') {
2752            my $root_element;            my $root_element;
2753            !!!create-element ($root_element, $token->{tag_name}, $token->{attributes});            !!!create-element ($root_element, $token->{tag_name}, $token->{attributes}, $token);
2754            $self->{document}->append_child ($root_element);            $self->{document}->append_child ($root_element);
2755            push @{$self->{open_elements}}, [$root_element, 'html'];            push @{$self->{open_elements}}, [$root_element, 'html'];
2756    
# Line 2696  sub _tree_construction_root_element ($) Line 2758  sub _tree_construction_root_element ($)
2758              !!!cp ('t24');              !!!cp ('t24');
2759              $self->{application_cache_selection}              $self->{application_cache_selection}
2760                  ->($token->{attributes}->{manifest}->{value});                  ->($token->{attributes}->{manifest}->{value});
2761              ## ISSUE: No relative reference resolution?              ## ISSUE: Spec is unclear on relative references.
2762                ## According to Hixie (#whatwg 2008-03-19), it should be
2763                ## resolved against the base URI of the document in HTML
2764                ## or xml:base of the element in XHTML.
2765            } else {            } else {
2766              !!!cp ('t25');              !!!cp ('t25');
2767              $self->{application_cache_selection}->(undef);              $self->{application_cache_selection}->(undef);
# Line 2718  sub _tree_construction_root_element ($) Line 2783  sub _tree_construction_root_element ($)
2783          die "$0: $token->{type}: Unknown token type";          die "$0: $token->{type}: Unknown token type";
2784        }        }
2785    
2786      my $root_element; !!!create-element ($root_element, 'html');      my $root_element; !!!create-element ($root_element, 'html',, $token);
2787      $self->{document}->append_child ($root_element);      $self->{document}->append_child ($root_element);
2788      push @{$self->{open_elements}}, [$root_element, 'html'];      push @{$self->{open_elements}}, [$root_element, 'html'];
2789    
# Line 2913  sub _tree_construction_main ($) { Line 2978  sub _tree_construction_main ($) {
2978      ## Step 1      ## Step 1
2979      my $start_tag_name = $token->{tag_name};      my $start_tag_name = $token->{tag_name};
2980      my $el;      my $el;
2981      !!!create-element ($el, $start_tag_name, $token->{attributes});      !!!create-element ($el, $start_tag_name, $token->{attributes}, $token);
2982    
2983      ## Step 2      ## Step 2
2984      $insert->($el);      $insert->($el);
# Line 2950  sub _tree_construction_main ($) { Line 3015  sub _tree_construction_main ($) {
3015        ## NOTE: An end-of-file token.        ## NOTE: An end-of-file token.
3016        if ($content_model_flag == CDATA_CONTENT_MODEL) {        if ($content_model_flag == CDATA_CONTENT_MODEL) {
3017          !!!cp ('t43');          !!!cp ('t43');
3018          !!!parse-error (type => 'in CDATA:#'.$token->{type});          !!!parse-error (type => 'in CDATA:#'.$token->{type}, token => $token);
3019        } elsif ($content_model_flag == RCDATA_CONTENT_MODEL) {        } elsif ($content_model_flag == RCDATA_CONTENT_MODEL) {
3020          !!!cp ('t44');          !!!cp ('t44');
3021          !!!parse-error (type => 'in RCDATA:#'.$token->{type});          !!!parse-error (type => 'in RCDATA:#'.$token->{type}, token => $token);
3022        } else {        } else {
3023          die "$0: $content_model_flag in parse_rcdata";          die "$0: $content_model_flag in parse_rcdata";
3024        }        }
# Line 2963  sub _tree_construction_main ($) { Line 3028  sub _tree_construction_main ($) {
3028    
3029    my $script_start_tag = sub () {    my $script_start_tag = sub () {
3030      my $script_el;      my $script_el;
3031      !!!create-element ($script_el, 'script', $token->{attributes});      !!!create-element ($script_el, 'script', $token->{attributes}, $token);
3032      ## TODO: mark as "parser-inserted"      ## TODO: mark as "parser-inserted"
3033    
3034      $self->{content_model} = CDATA_CONTENT_MODEL;      $self->{content_model} = CDATA_CONTENT_MODEL;
# Line 2989  sub _tree_construction_main ($) { Line 3054  sub _tree_construction_main ($) {
3054        ## Ignore the token        ## Ignore the token
3055      } else {      } else {
3056        !!!cp ('t48');        !!!cp ('t48');
3057        !!!parse-error (type => 'in CDATA:#'.$token->{type});        !!!parse-error (type => 'in CDATA:#'.$token->{type}, token => $token);
3058        ## ISSUE: And ignore?        ## ISSUE: And ignore?
3059        ## TODO: mark as "already executed"        ## TODO: mark as "already executed"
3060      }      }
# Line 3017  sub _tree_construction_main ($) { Line 3082  sub _tree_construction_main ($) {
3082    my $open_tables = [[$self->{open_elements}->[0]->[0]]];    my $open_tables = [[$self->{open_elements}->[0]->[0]]];
3083    
3084    my $formatting_end_tag = sub {    my $formatting_end_tag = sub {
3085      my $tag_name = shift;      my $end_tag_token = shift;
3086        my $tag_name = $end_tag_token->{tag_name};
3087    
3088      ## NOTE: The adoption agency algorithm (AAA).      ## NOTE: The adoption agency algorithm (AAA).
3089    
# Line 3038  sub _tree_construction_main ($) { Line 3104  sub _tree_construction_main ($) {
3104        } # AFE        } # AFE
3105        unless (defined $formatting_element) {        unless (defined $formatting_element) {
3106          !!!cp ('t53');          !!!cp ('t53');
3107          !!!parse-error (type => 'unmatched end tag:'.$tag_name);          !!!parse-error (type => 'unmatched end tag:'.$tag_name, token => $end_tag_token);
3108          ## Ignore the token          ## Ignore the token
3109          !!!next-token;          !!!next-token;
3110          return;          return;
# Line 3055  sub _tree_construction_main ($) { Line 3121  sub _tree_construction_main ($) {
3121              last INSCOPE;              last INSCOPE;
3122            } else { # in open elements but not in scope            } else { # in open elements but not in scope
3123              !!!cp ('t55');              !!!cp ('t55');
3124              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name},
3125                                token => $end_tag_token);
3126              ## Ignore the token              ## Ignore the token
3127              !!!next-token;              !!!next-token;
3128              return;              return;
# Line 3070  sub _tree_construction_main ($) { Line 3137  sub _tree_construction_main ($) {
3137        } # INSCOPE        } # INSCOPE
3138        unless (defined $formatting_element_i_in_open) {        unless (defined $formatting_element_i_in_open) {
3139          !!!cp ('t57');          !!!cp ('t57');
3140          !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});          !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name},
3141                            token => $end_tag_token);
3142          pop @$active_formatting_elements; # $formatting_element          pop @$active_formatting_elements; # $formatting_element
3143          !!!next-token; ## TODO: ok?          !!!next-token; ## TODO: ok?
3144          return;          return;
3145        }        }
3146        if (not $self->{open_elements}->[-1]->[0] eq $formatting_element->[0]) {        if (not $self->{open_elements}->[-1]->[0] eq $formatting_element->[0]) {
3147          !!!cp ('t58');          !!!cp ('t58');
3148          !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);          !!!parse-error (type => 'not closed',
3149                            value => $self->{open_elements}->[-1]->[0]
3150                                ->manakai_local_name,
3151                            token => $end_tag_token);
3152        }        }
3153                
3154        ## Step 2        ## Step 2
# Line 3288  sub _tree_construction_main ($) { Line 3359  sub _tree_construction_main ($) {
3359    B: {    B: {
3360      if ($token->{type} == DOCTYPE_TOKEN) {      if ($token->{type} == DOCTYPE_TOKEN) {
3361        !!!cp ('t73');        !!!cp ('t73');
3362        !!!parse-error (type => 'DOCTYPE in the middle');        !!!parse-error (type => 'DOCTYPE in the middle', token => $token);
3363        ## Ignore the token        ## Ignore the token
3364        ## Stay in the phase        ## Stay in the phase
3365        !!!next-token;        !!!next-token;
# Line 3297  sub _tree_construction_main ($) { Line 3368  sub _tree_construction_main ($) {
3368               $token->{tag_name} eq 'html') {               $token->{tag_name} eq 'html') {
3369        if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {        if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {
3370          !!!cp ('t79');          !!!cp ('t79');
3371          !!!parse-error (type => 'after html:html');          !!!parse-error (type => 'after html:html', token => $token);
3372          $self->{insertion_mode} = AFTER_BODY_IM;          $self->{insertion_mode} = AFTER_BODY_IM;
3373        } elsif ($self->{insertion_mode} == AFTER_HTML_FRAMESET_IM) {        } elsif ($self->{insertion_mode} == AFTER_HTML_FRAMESET_IM) {
3374          !!!cp ('t80');          !!!cp ('t80');
3375          !!!parse-error (type => 'after html:html');          !!!parse-error (type => 'after html:html', token => $token);
3376          $self->{insertion_mode} = AFTER_FRAMESET_IM;          $self->{insertion_mode} = AFTER_FRAMESET_IM;
3377        } else {        } else {
3378          !!!cp ('t81');          !!!cp ('t81');
3379        }        }
3380    
3381        !!!cp ('t82');        !!!cp ('t82');
3382        !!!parse-error (type => 'not first start tag');        !!!parse-error (type => 'not first start tag', token => $token);
3383        my $top_el = $self->{open_elements}->[0]->[0];        my $top_el = $self->{open_elements}->[0]->[0];
3384        for my $attr_name (keys %{$token->{attributes}}) {        for my $attr_name (keys %{$token->{attributes}}) {
3385          unless ($top_el->has_attribute_ns (undef, $attr_name)) {          unless ($top_el->has_attribute_ns (undef, $attr_name)) {
# Line 3356  sub _tree_construction_main ($) { Line 3427  sub _tree_construction_main ($) {
3427          if ($self->{insertion_mode} == BEFORE_HEAD_IM) {          if ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3428            !!!cp ('t89');            !!!cp ('t89');
3429            ## As if <head>            ## As if <head>
3430            !!!create-element ($self->{head_element}, 'head');            !!!create-element ($self->{head_element}, 'head',, $token);
3431            $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});            $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});
3432            push @{$self->{open_elements}}, [$self->{head_element}, 'head'];            push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3433    
# Line 3368  sub _tree_construction_main ($) { Line 3439  sub _tree_construction_main ($) {
3439            !!!cp ('t90');            !!!cp ('t90');
3440            ## As if </noscript>            ## As if </noscript>
3441            pop @{$self->{open_elements}};            pop @{$self->{open_elements}};
3442            !!!parse-error (type => 'in noscript:#character');            !!!parse-error (type => 'in noscript:#character', token => $token);
3443                        
3444            ## Reprocess in the "in head" insertion mode...            ## Reprocess in the "in head" insertion mode...
3445            ## As if </head>            ## As if </head>
# Line 3386  sub _tree_construction_main ($) { Line 3457  sub _tree_construction_main ($) {
3457    
3458              ## "after head" insertion mode              ## "after head" insertion mode
3459              ## As if <body>              ## As if <body>
3460              !!!insert-element ('body');              !!!insert-element ('body',, $token);
3461              $self->{insertion_mode} = IN_BODY_IM;              $self->{insertion_mode} = IN_BODY_IM;
3462              ## reprocess              ## reprocess
3463              redo B;              redo B;
# Line 3394  sub _tree_construction_main ($) { Line 3465  sub _tree_construction_main ($) {
3465              if ($token->{tag_name} eq 'head') {              if ($token->{tag_name} eq 'head') {
3466                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3467                  !!!cp ('t93');                  !!!cp ('t93');
3468                  !!!create-element ($self->{head_element}, $token->{tag_name}, $token->{attributes});                  !!!create-element ($self->{head_element}, $token->{tag_name}, $token->{attributes}, $token);
3469                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});
3470                  push @{$self->{open_elements}}, [$self->{head_element}, $token->{tag_name}];                  push @{$self->{open_elements}}, [$self->{head_element}, $token->{tag_name}];
3471                  $self->{insertion_mode} = IN_HEAD_IM;                  $self->{insertion_mode} = IN_HEAD_IM;
# Line 3405  sub _tree_construction_main ($) { Line 3476  sub _tree_construction_main ($) {
3476                  #                  #
3477                } else {                } else {
3478                  !!!cp ('t95');                  !!!cp ('t95');
3479                  !!!parse-error (type => 'in head:head'); # or in head noscript                  !!!parse-error (type => 'in head:head', token => $token); # or in head noscript
3480                  ## Ignore the token                  ## Ignore the token
3481                  !!!next-token;                  !!!next-token;
3482                  redo B;                  redo B;
# Line 3413  sub _tree_construction_main ($) { Line 3484  sub _tree_construction_main ($) {
3484              } elsif ($self->{insertion_mode} == BEFORE_HEAD_IM) {              } elsif ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3485                !!!cp ('t96');                !!!cp ('t96');
3486                ## As if <head>                ## As if <head>
3487                !!!create-element ($self->{head_element}, 'head');                !!!create-element ($self->{head_element}, 'head',, $token);
3488                $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});                $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});
3489                push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3490    
# Line 3428  sub _tree_construction_main ($) { Line 3499  sub _tree_construction_main ($) {
3499                  !!!cp ('t98');                  !!!cp ('t98');
3500                  ## As if </noscript>                  ## As if </noscript>
3501                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
3502                  !!!parse-error (type => 'in noscript:base');                  !!!parse-error (type => 'in noscript:base', token => $token);
3503                                
3504                  $self->{insertion_mode} = IN_HEAD_IM;                  $self->{insertion_mode} = IN_HEAD_IM;
3505                  ## Reprocess in the "in head" insertion mode...                  ## Reprocess in the "in head" insertion mode...
# Line 3439  sub _tree_construction_main ($) { Line 3510  sub _tree_construction_main ($) {
3510                ## NOTE: There is a "as if in head" code clone.                ## NOTE: There is a "as if in head" code clone.
3511                if ($self->{insertion_mode} == AFTER_HEAD_IM) {                if ($self->{insertion_mode} == AFTER_HEAD_IM) {
3512                  !!!cp ('t100');                  !!!cp ('t100');
3513                  !!!parse-error (type => 'after head:'.$token->{tag_name});                  !!!parse-error (type => 'after head:'.$token->{tag_name}, token => $token);
3514                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3515                } else {                } else {
3516                  !!!cp ('t101');                  !!!cp ('t101');
3517                }                }
3518                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
3519                pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.                pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.
3520                pop @{$self->{open_elements}} # <head>                pop @{$self->{open_elements}} # <head>
3521                    if $self->{insertion_mode} == AFTER_HEAD_IM;                    if $self->{insertion_mode} == AFTER_HEAD_IM;
# Line 3454  sub _tree_construction_main ($) { Line 3525  sub _tree_construction_main ($) {
3525                ## NOTE: There is a "as if in head" code clone.                ## NOTE: There is a "as if in head" code clone.
3526                if ($self->{insertion_mode} == AFTER_HEAD_IM) {                if ($self->{insertion_mode} == AFTER_HEAD_IM) {
3527                  !!!cp ('t102');                  !!!cp ('t102');
3528                  !!!parse-error (type => 'after head:'.$token->{tag_name});                  !!!parse-error (type => 'after head:'.$token->{tag_name}, token => $token);
3529                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3530                } else {                } else {
3531                  !!!cp ('t103');                  !!!cp ('t103');
3532                }                }
3533                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
3534                pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.                pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.
3535                pop @{$self->{open_elements}} # <head>                pop @{$self->{open_elements}} # <head>
3536                    if $self->{insertion_mode} == AFTER_HEAD_IM;                    if $self->{insertion_mode} == AFTER_HEAD_IM;
# Line 3469  sub _tree_construction_main ($) { Line 3540  sub _tree_construction_main ($) {
3540                ## NOTE: There is a "as if in head" code clone.                ## NOTE: There is a "as if in head" code clone.
3541                if ($self->{insertion_mode} == AFTER_HEAD_IM) {                if ($self->{insertion_mode} == AFTER_HEAD_IM) {
3542                  !!!cp ('t104');                  !!!cp ('t104');
3543                  !!!parse-error (type => 'after head:'.$token->{tag_name});                  !!!parse-error (type => 'after head:'.$token->{tag_name}, token => $token);
3544                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3545                } else {                } else {
3546                  !!!cp ('t105');                  !!!cp ('t105');
3547                }                }
3548                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
3549                my $meta_el = pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.                my $meta_el = pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.
3550    
3551                unless ($self->{confident}) {                unless ($self->{confident}) {
3552                  if ($token->{attributes}->{charset}) { ## TODO: And if supported                  if ($token->{attributes}->{charset}) { ## TODO: And if supported
3553                    !!!cp ('t106');                    !!!cp ('t106');
3554                    $self->{change_encoding}                    $self->{change_encoding}
3555                        ->($self, $token->{attributes}->{charset}->{value});                        ->($self, $token->{attributes}->{charset}->{value},
3556                             $token);
3557                                        
3558                    $meta_el->[0]->get_attribute_node_ns (undef, 'charset')                    $meta_el->[0]->get_attribute_node_ns (undef, 'charset')
3559                        ->set_user_data (manakai_has_reference =>                        ->set_user_data (manakai_has_reference =>
# Line 3496  sub _tree_construction_main ($) { Line 3568  sub _tree_construction_main ($) {
3568                            ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {                            ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {
3569                      !!!cp ('t107');                      !!!cp ('t107');
3570                      $self->{change_encoding}                      $self->{change_encoding}
3571                          ->($self, defined $1 ? $1 : defined $2 ? $2 : $3);                          ->($self, defined $1 ? $1 : defined $2 ? $2 : $3,
3572                               $token);
3573                      $meta_el->[0]->get_attribute_node_ns (undef, 'content')                      $meta_el->[0]->get_attribute_node_ns (undef, 'content')
3574                          ->set_user_data (manakai_has_reference =>                          ->set_user_data (manakai_has_reference =>
3575                                               $token->{attributes}->{content}                                               $token->{attributes}->{content}
# Line 3531  sub _tree_construction_main ($) { Line 3604  sub _tree_construction_main ($) {
3604                  !!!cp ('t111');                  !!!cp ('t111');
3605                  ## As if </noscript>                  ## As if </noscript>
3606                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
3607                  !!!parse-error (type => 'in noscript:title');                  !!!parse-error (type => 'in noscript:title', token => $token);
3608                                
3609                  $self->{insertion_mode} = IN_HEAD_IM;                  $self->{insertion_mode} = IN_HEAD_IM;
3610                  ## Reprocess in the "in head" insertion mode...                  ## Reprocess in the "in head" insertion mode...
3611                } elsif ($self->{insertion_mode} == AFTER_HEAD_IM) {                } elsif ($self->{insertion_mode} == AFTER_HEAD_IM) {
3612                  !!!cp ('t112');                  !!!cp ('t112');
3613                  !!!parse-error (type => 'after head:'.$token->{tag_name});                  !!!parse-error (type => 'after head:'.$token->{tag_name}, token => $token);
3614                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3615                } else {                } else {
3616                  !!!cp ('t113');                  !!!cp ('t113');
# Line 3556  sub _tree_construction_main ($) { Line 3629  sub _tree_construction_main ($) {
3629                ## NOTE: There is a "as if in head" code clone.                ## NOTE: There is a "as if in head" code clone.
3630                if ($self->{insertion_mode} == AFTER_HEAD_IM) {                if ($self->{insertion_mode} == AFTER_HEAD_IM) {
3631                  !!!cp ('t114');                  !!!cp ('t114');
3632                  !!!parse-error (type => 'after head:'.$token->{tag_name});                  !!!parse-error (type => 'after head:'.$token->{tag_name}, token => $token);
3633                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3634                } else {                } else {
3635                  !!!cp ('t115');                  !!!cp ('t115');
# Line 3569  sub _tree_construction_main ($) { Line 3642  sub _tree_construction_main ($) {
3642                if ($self->{insertion_mode} == IN_HEAD_IM) {                if ($self->{insertion_mode} == IN_HEAD_IM) {
3643                  !!!cp ('t116');                  !!!cp ('t116');
3644                  ## NOTE: and scripting is disalbed                  ## NOTE: and scripting is disalbed
3645                  !!!insert-element ($token->{tag_name}, $token->{attributes});                  !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
3646                  $self->{insertion_mode} = IN_HEAD_NOSCRIPT_IM;                  $self->{insertion_mode} = IN_HEAD_NOSCRIPT_IM;
3647                  !!!next-token;                  !!!next-token;
3648                  redo B;                  redo B;
3649                } elsif ($self->{insertion_mode} == IN_HEAD_NOSCRIPT_IM) {                } elsif ($self->{insertion_mode} == IN_HEAD_NOSCRIPT_IM) {
3650                  !!!cp ('t117');                  !!!cp ('t117');
3651                  !!!parse-error (type => 'in noscript:noscript');                  !!!parse-error (type => 'in noscript:noscript', token => $token);
3652                  ## Ignore the token                  ## Ignore the token
3653                  !!!next-token;                  !!!next-token;
3654                  redo B;                  redo B;
# Line 3588  sub _tree_construction_main ($) { Line 3661  sub _tree_construction_main ($) {
3661                  !!!cp ('t119');                  !!!cp ('t119');
3662                  ## As if </noscript>                  ## As if </noscript>
3663                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
3664                  !!!parse-error (type => 'in noscript:script');                  !!!parse-error (type => 'in noscript:script', token => $token);
3665                                
3666                  $self->{insertion_mode} = IN_HEAD_IM;                  $self->{insertion_mode} = IN_HEAD_IM;
3667                  ## Reprocess in the "in head" insertion mode...                  ## Reprocess in the "in head" insertion mode...
3668                } elsif ($self->{insertion_mode} == AFTER_HEAD_IM) {                } elsif ($self->{insertion_mode} == AFTER_HEAD_IM) {
3669                  !!!cp ('t120');                  !!!cp ('t120');
3670                  !!!parse-error (type => 'after head:'.$token->{tag_name});                  !!!parse-error (type => 'after head:'.$token->{tag_name}, token => $token);
3671                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3672                } else {                } else {
3673                  !!!cp ('t121');                  !!!cp ('t121');
# Line 3611  sub _tree_construction_main ($) { Line 3684  sub _tree_construction_main ($) {
3684                  !!!cp ('t122');                  !!!cp ('t122');
3685                  ## As if </noscript>                  ## As if </noscript>
3686                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
3687                  !!!parse-error (type => 'in noscript:'.$token->{tag_name});                  !!!parse-error (type => 'in noscript:'.$token->{tag_name}, token => $token);
3688                                    
3689                  ## Reprocess in the "in head" insertion mode...                  ## Reprocess in the "in head" insertion mode...
3690                  ## As if </head>                  ## As if </head>
# Line 3628  sub _tree_construction_main ($) { Line 3701  sub _tree_construction_main ($) {
3701                }                }
3702    
3703                ## "after head" insertion mode                ## "after head" insertion mode
3704                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
3705                if ($token->{tag_name} eq 'body') {                if ($token->{tag_name} eq 'body') {
3706                  !!!cp ('t126');                  !!!cp ('t126');
3707                  $self->{insertion_mode} = IN_BODY_IM;                  $self->{insertion_mode} = IN_BODY_IM;
# Line 3649  sub _tree_construction_main ($) { Line 3722  sub _tree_construction_main ($) {
3722                !!!cp ('t129');                !!!cp ('t129');
3723                ## As if </noscript>                ## As if </noscript>
3724                pop @{$self->{open_elements}};                pop @{$self->{open_elements}};
3725                !!!parse-error (type => 'in noscript:/'.$token->{tag_name});                !!!parse-error (type => 'in noscript:/'.$token->{tag_name}, token => $token);
3726                                
3727                ## Reprocess in the "in head" insertion mode...                ## Reprocess in the "in head" insertion mode...
3728                ## As if </head>                ## As if </head>
# Line 3668  sub _tree_construction_main ($) { Line 3741  sub _tree_construction_main ($) {
3741    
3742              ## "after head" insertion mode              ## "after head" insertion mode
3743              ## As if <body>              ## As if <body>
3744              !!!insert-element ('body');              !!!insert-element ('body',, $token);
3745              $self->{insertion_mode} = IN_BODY_IM;              $self->{insertion_mode} = IN_BODY_IM;
3746              ## reprocess              ## reprocess
3747              redo B;              redo B;
# Line 3677  sub _tree_construction_main ($) { Line 3750  sub _tree_construction_main ($) {
3750                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3751                  !!!cp ('t132');                  !!!cp ('t132');
3752                  ## As if <head>                  ## As if <head>
3753                  !!!create-element ($self->{head_element}, 'head');                  !!!create-element ($self->{head_element}, 'head',, $token);
3754                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});
3755                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3756    
# Line 3690  sub _tree_construction_main ($) { Line 3763  sub _tree_construction_main ($) {
3763                  !!!cp ('t133');                  !!!cp ('t133');
3764                  ## As if </noscript>                  ## As if </noscript>
3765                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
3766                  !!!parse-error (type => 'in noscript:/head');                  !!!parse-error (type => 'in noscript:/head', token => $token);
3767                                    
3768                  ## Reprocess in the "in head" insertion mode...                  ## Reprocess in the "in head" insertion mode...
3769                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
# Line 3716  sub _tree_construction_main ($) { Line 3789  sub _tree_construction_main ($) {
3789                  redo B;                  redo B;
3790                } elsif ($self->{insertion_mode} == BEFORE_HEAD_IM) {                } elsif ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3791                  !!!cp ('t137');                  !!!cp ('t137');
3792                  !!!parse-error (type => 'unmatched end tag:noscript');                  !!!parse-error (type => 'unmatched end tag:noscript', token => $token);
3793                  ## Ignore the token ## ISSUE: An issue in the spec.                  ## Ignore the token ## ISSUE: An issue in the spec.
3794                  !!!next-token;                  !!!next-token;
3795                  redo B;                  redo B;
# Line 3730  sub _tree_construction_main ($) { Line 3803  sub _tree_construction_main ($) {
3803                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3804                  !!!cp ('t139');                  !!!cp ('t139');
3805                  ## As if <head>                  ## As if <head>
3806                  !!!create-element ($self->{head_element}, 'head');                  !!!create-element ($self->{head_element}, 'head',, $token);
3807                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});
3808                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3809    
# Line 3738  sub _tree_construction_main ($) { Line 3811  sub _tree_construction_main ($) {
3811                  ## Reprocess in the "in head" insertion mode...                  ## Reprocess in the "in head" insertion mode...
3812                } elsif ($self->{insertion_mode} == IN_HEAD_NOSCRIPT_IM) {                } elsif ($self->{insertion_mode} == IN_HEAD_NOSCRIPT_IM) {
3813                  !!!cp ('t140');                  !!!cp ('t140');
3814                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
3815                  ## Ignore the token                  ## Ignore the token
3816                  !!!next-token;                  !!!next-token;
3817                  redo B;                  redo B;
# Line 3753  sub _tree_construction_main ($) { Line 3826  sub _tree_construction_main ($) {
3826                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {                if ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3827                  !!!cp ('t142');                  !!!cp ('t142');
3828                  ## As if <head>                  ## As if <head>
3829                  !!!create-element ($self->{head_element}, 'head');                  !!!create-element ($self->{head_element}, 'head',, $token);
3830                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});                  $self->{open_elements}->[-1]->[0]->append_child ($self->{head_element});
3831                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];                  push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
3832    
# Line 3770  sub _tree_construction_main ($) { Line 3843  sub _tree_construction_main ($) {
3843                  #                  #
3844                } else {                } else {
3845                  !!!cp ('t145');                  !!!cp ('t145');
3846                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
3847                  ## Ignore the token                  ## Ignore the token
3848                  !!!next-token;                  !!!next-token;
3849                  redo B;                  redo B;
# Line 3781  sub _tree_construction_main ($) { Line 3854  sub _tree_construction_main ($) {
3854                !!!cp ('t146');                !!!cp ('t146');
3855                ## As if </noscript>                ## As if </noscript>
3856                pop @{$self->{open_elements}};                pop @{$self->{open_elements}};
3857                !!!parse-error (type => 'in noscript:/'.$token->{tag_name});                !!!parse-error (type => 'in noscript:/'.$token->{tag_name}, token => $token);
3858                                
3859                ## Reprocess in the "in head" insertion mode...                ## Reprocess in the "in head" insertion mode...
3860                ## As if </head>                ## As if </head>
# Line 3797  sub _tree_construction_main ($) { Line 3870  sub _tree_construction_main ($) {
3870              } elsif ($self->{insertion_mode} == BEFORE_HEAD_IM) {              } elsif ($self->{insertion_mode} == BEFORE_HEAD_IM) {
3871  ## ISSUE: This case cannot be reached?  ## ISSUE: This case cannot be reached?
3872                !!!cp ('t148');                !!!cp ('t148');
3873                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
3874                ## Ignore the token ## ISSUE: An issue in the spec.                ## Ignore the token ## ISSUE: An issue in the spec.
3875                !!!next-token;                !!!next-token;
3876                redo B;                redo B;
# Line 3807  sub _tree_construction_main ($) { Line 3880  sub _tree_construction_main ($) {
3880    
3881              ## "after head" insertion mode              ## "after head" insertion mode
3882              ## As if <body>              ## As if <body>
3883              !!!insert-element ('body');              !!!insert-element ('body',, $token);
3884              $self->{insertion_mode} = IN_BODY_IM;              $self->{insertion_mode} = IN_BODY_IM;
3885              ## reprocess              ## reprocess
3886              redo B;              redo B;
# Line 3816  sub _tree_construction_main ($) { Line 3889  sub _tree_construction_main ($) {
3889            !!!cp ('t149.1');            !!!cp ('t149.1');
3890    
3891            ## NOTE: As if <head>            ## NOTE: As if <head>
3892            !!!create-element ($self->{head_element}, 'head');            !!!create-element ($self->{head_element}, 'head',, $token);
3893            $self->{open_elements}->[-1]->[0]->append_child            $self->{open_elements}->[-1]->[0]->append_child
3894                ($self->{head_element});                ($self->{head_element});
3895            #push @{$self->{open_elements}}, [$self->{head_element}, 'head'];            #push @{$self->{open_elements}}, [$self->{head_element}, 'head'];
# Line 3841  sub _tree_construction_main ($) { Line 3914  sub _tree_construction_main ($) {
3914          } elsif ($self->{insertion_mode} == IN_HEAD_NOSCRIPT_IM) {          } elsif ($self->{insertion_mode} == IN_HEAD_NOSCRIPT_IM) {
3915            !!!cp ('t149.3');            !!!cp ('t149.3');
3916    
3917            !!!parse-error (type => 'in noscript:#eof');            !!!parse-error (type => 'in noscript:#eof', token => $token);
3918    
3919            ## As if </noscript>            ## As if </noscript>
3920            pop @{$self->{open_elements}};            pop @{$self->{open_elements}};
# Line 3860  sub _tree_construction_main ($) { Line 3933  sub _tree_construction_main ($) {
3933          }          }
3934    
3935          ## NOTE: As if <body>          ## NOTE: As if <body>
3936          !!!insert-element ('body');          !!!insert-element ('body',, $token);
3937          $self->{insertion_mode} = IN_BODY_IM;          $self->{insertion_mode} = IN_BODY_IM;
3938          ## NOTE: Reprocess.          ## NOTE: Reprocess.
3939          redo B;          redo B;
# Line 3893  sub _tree_construction_main ($) { Line 3966  sub _tree_construction_main ($) {
3966    
3967                      ## Close the cell                      ## Close the cell
3968                      !!!back-token; # <?>                      !!!back-token; # <?>
3969                      $token = {type => END_TAG_TOKEN, tag_name => $node->[1]};                      $token = {type => END_TAG_TOKEN,
3970                                  tag_name => $node->[0]->manakai_local_name,
3971                                  line => $token->{line},
3972                                  column => $token->{column}};
3973                      redo B;                      redo B;
3974                    } elsif ({                    } elsif ({
3975                              table => 1, html => 1,                              table => 1, html => 1,
# Line 3906  sub _tree_construction_main ($) { Line 3982  sub _tree_construction_main ($) {
3982    
3983                  !!!cp ('t153');                  !!!cp ('t153');
3984                  !!!parse-error (type => 'start tag not allowed',                  !!!parse-error (type => 'start tag not allowed',
3985                      value => $token->{tag_name});                      value => $token->{tag_name}, token => $token);
3986                  ## Ignore the token                  ## Ignore the token
3987                  !!!next-token;                  !!!next-token;
3988                  redo B;                  redo B;
3989                } elsif ($self->{insertion_mode} == IN_CAPTION_IM) {                } elsif ($self->{insertion_mode} == IN_CAPTION_IM) {
3990                  !!!parse-error (type => 'not closed:caption');                  !!!parse-error (type => 'not closed:caption', token => $token);
3991                                    
3992                  ## NOTE: As if </caption>.                  ## NOTE: As if </caption>.
3993                  ## have a table element in table scope                  ## have a table element in table scope
# Line 3933  sub _tree_construction_main ($) { Line 4009  sub _tree_construction_main ($) {
4009    
4010                    !!!cp ('t157');                    !!!cp ('t157');
4011                    !!!parse-error (type => 'start tag not allowed',                    !!!parse-error (type => 'start tag not allowed',
4012                                    value => $token->{tag_name});                                    value => $token->{tag_name}, token => $token);
4013                    ## Ignore the token                    ## Ignore the token
4014                    !!!next-token;                    !!!next-token;
4015                    redo B;                    redo B;
# Line 3949  sub _tree_construction_main ($) { Line 4025  sub _tree_construction_main ($) {
4025    
4026                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {
4027                    !!!cp ('t159');                    !!!cp ('t159');
4028                    !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                    !!!parse-error (type => 'not closed',
4029                                      value => $self->{open_elements}->[-1]->[0]
4030                                          ->manakai_local_name,
4031                                      token => $token);
4032                  } else {                  } else {
4033                    !!!cp ('t160');                    !!!cp ('t160');
4034                  }                  }
# Line 3990  sub _tree_construction_main ($) { Line 4069  sub _tree_construction_main ($) {
4069                  } # INSCOPE                  } # INSCOPE
4070                    unless (defined $i) {                    unless (defined $i) {
4071                      !!!cp ('t165');                      !!!cp ('t165');
4072                      !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                      !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4073                      ## Ignore the token                      ## Ignore the token
4074                      !!!next-token;                      !!!next-token;
4075                      redo B;                      redo B;
# Line 4006  sub _tree_construction_main ($) { Line 4085  sub _tree_construction_main ($) {
4085    
4086                  if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {                  if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
4087                    !!!cp ('t167');                    !!!cp ('t167');
4088                    !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                    !!!parse-error (type => 'not closed',
4089                                      value => $self->{open_elements}->[-1]->[0]
4090                                          ->manakai_local_name,
4091                                      token => $token);
4092                  } else {                  } else {
4093                    !!!cp ('t168');                    !!!cp ('t168');
4094                  }                  }
# Line 4021  sub _tree_construction_main ($) { Line 4103  sub _tree_construction_main ($) {
4103                  redo B;                  redo B;
4104                } elsif ($self->{insertion_mode} == IN_CAPTION_IM) {                } elsif ($self->{insertion_mode} == IN_CAPTION_IM) {
4105                  !!!cp ('t169');                  !!!cp ('t169');
4106                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4107                  ## Ignore the token                  ## Ignore the token
4108                  !!!next-token;                  !!!next-token;
4109                  redo B;                  redo B;
# Line 4050  sub _tree_construction_main ($) { Line 4132  sub _tree_construction_main ($) {
4132    
4133                    !!!cp ('t173');                    !!!cp ('t173');
4134                    !!!parse-error (type => 'unmatched end tag',                    !!!parse-error (type => 'unmatched end tag',
4135                                    value => $token->{tag_name});                                    value => $token->{tag_name}, token => $token);
4136                    ## Ignore the token                    ## Ignore the token
4137                    !!!next-token;                    !!!next-token;
4138                    redo B;                    redo B;
# Line 4066  sub _tree_construction_main ($) { Line 4148  sub _tree_construction_main ($) {
4148                                    
4149                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {                  if ($self->{open_elements}->[-1]->[1] ne 'caption') {
4150                    !!!cp ('t175');                    !!!cp ('t175');
4151                    !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                    !!!parse-error (type => 'not closed',
4152                                      value => $self->{open_elements}->[-1]->[0]
4153                                          ->manakai_local_name,
4154                                      token => $token);
4155                  } else {                  } else {
4156                    !!!cp ('t176');                    !!!cp ('t176');
4157                  }                  }
# Line 4081  sub _tree_construction_main ($) { Line 4166  sub _tree_construction_main ($) {
4166                  redo B;                  redo B;
4167                } elsif ($self->{insertion_mode} == IN_CELL_IM) {                } elsif ($self->{insertion_mode} == IN_CELL_IM) {
4168                  !!!cp ('t177');                  !!!cp ('t177');
4169                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4170                  ## Ignore the token                  ## Ignore the token
4171                  !!!next-token;                  !!!next-token;
4172                  redo B;                  redo B;
# Line 4106  sub _tree_construction_main ($) { Line 4191  sub _tree_construction_main ($) {
4191    
4192                      ## Close the cell                      ## Close the cell
4193                      !!!back-token; # </?>                      !!!back-token; # </?>
4194                      $token = {type => END_TAG_TOKEN, tag_name => $tn};                      $token = {type => END_TAG_TOKEN, tag_name => $tn,
4195                                  line => $token->{line},
4196                                  column => $token->{column}};
4197                      redo B;                      redo B;
4198                    } elsif ($node->[1] eq 'td' or $node->[1] eq 'th') {                    } elsif ($node->[1] eq 'td' or $node->[1] eq 'th') {
4199                      !!!cp ('t180');                      !!!cp ('t180');
# Line 4124  sub _tree_construction_main ($) { Line 4211  sub _tree_construction_main ($) {
4211    
4212                  !!!cp ('t182');                  !!!cp ('t182');
4213                  !!!parse-error (type => 'unmatched end tag',                  !!!parse-error (type => 'unmatched end tag',
4214                      value => $token->{tag_name});                      value => $token->{tag_name}, token => $token);
4215                  ## Ignore the token                  ## Ignore the token
4216                  !!!next-token;                  !!!next-token;
4217                  redo B;                  redo B;
4218                } # INSCOPE                } # INSCOPE
4219              } elsif ($token->{tag_name} eq 'table' and              } elsif ($token->{tag_name} eq 'table' and
4220                       $self->{insertion_mode} == IN_CAPTION_IM) {                       $self->{insertion_mode} == IN_CAPTION_IM) {
4221                !!!parse-error (type => 'not closed:caption');                !!!parse-error (type => 'not closed:caption', token => $token);
4222    
4223                ## As if </caption>                ## As if </caption>
4224                ## have a table element in table scope                ## have a table element in table scope
# Line 4151  sub _tree_construction_main ($) { Line 4238  sub _tree_construction_main ($) {
4238                } # INSCOPE                } # INSCOPE
4239                unless (defined $i) {                unless (defined $i) {
4240                  !!!cp ('t186');                  !!!cp ('t186');
4241                  !!!parse-error (type => 'unmatched end tag:caption');                  !!!parse-error (type => 'unmatched end tag:caption', token => $token);
4242                  ## Ignore the token                  ## Ignore the token
4243                  !!!next-token;                  !!!next-token;
4244                  redo B;                  redo B;
# Line 4167  sub _tree_construction_main ($) { Line 4254  sub _tree_construction_main ($) {
4254    
4255                if ($self->{open_elements}->[-1]->[1] ne 'caption') {                if ($self->{open_elements}->[-1]->[1] ne 'caption') {
4256                  !!!cp ('t188');                  !!!cp ('t188');
4257                  !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                  !!!parse-error (type => 'not closed',
4258                                    value => $self->{open_elements}->[-1]->[0]
4259                                        ->manakai_local_name,
4260                                    token => $token);
4261                } else {                } else {
4262                  !!!cp ('t189');                  !!!cp ('t189');
4263                }                }
# Line 4185  sub _tree_construction_main ($) { Line 4275  sub _tree_construction_main ($) {
4275                       }->{$token->{tag_name}}) {                       }->{$token->{tag_name}}) {
4276                if ($self->{insertion_mode} & BODY_TABLE_IMS) {                if ($self->{insertion_mode} & BODY_TABLE_IMS) {
4277                  !!!cp ('t190');                  !!!cp ('t190');
4278                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4279                  ## Ignore the token                  ## Ignore the token
4280                  !!!next-token;                  !!!next-token;
4281                  redo B;                  redo B;
# Line 4199  sub _tree_construction_main ($) { Line 4289  sub _tree_construction_main ($) {
4289                       }->{$token->{tag_name}} and                       }->{$token->{tag_name}} and
4290                       $self->{insertion_mode} == IN_CAPTION_IM) {                       $self->{insertion_mode} == IN_CAPTION_IM) {
4291                !!!cp ('t192');                !!!cp ('t192');
4292                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4293                ## Ignore the token                ## Ignore the token
4294                !!!next-token;                !!!next-token;
4295                redo B;                redo B;
# Line 4214  sub _tree_construction_main ($) { Line 4304  sub _tree_construction_main ($) {
4304              th => 1, thead => 1, tr => 1, body => 1, html => 1,              th => 1, thead => 1, tr => 1, body => 1, html => 1,
4305            }->{$entry->[1]}) {            }->{$entry->[1]}) {
4306              !!!cp ('t75');              !!!cp ('t75');
4307              !!!parse-error (type => 'in body:#eof');              !!!parse-error (type => 'in body:#eof', token => $token);
4308              last;              last;
4309            }            }
4310          }          }
# Line 4242  sub _tree_construction_main ($) { Line 4332  sub _tree_construction_main ($) {
4332            }            }
4333          }          }
4334    
4335              !!!parse-error (type => 'in table:#character');              !!!parse-error (type => 'in table:#character', token => $token);
4336    
4337              ## As if in body, but insert into foster parent element              ## As if in body, but insert into foster parent element
4338              ## ISSUE: Spec says that "whenever a node would be inserted              ## ISSUE: Spec says that "whenever a node would be inserted
# Line 4308  sub _tree_construction_main ($) { Line 4398  sub _tree_construction_main ($) {
4398                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4399                  }                  }
4400                                    
4401                  !!!insert-element ('tbody');                  !!!insert-element ('tbody',, $token);
4402                  $self->{insertion_mode} = IN_TABLE_BODY_IM;                  $self->{insertion_mode} = IN_TABLE_BODY_IM;
4403                  ## reprocess in the "in table body" insertion mode...                  ## reprocess in the "in table body" insertion mode...
4404                }                }
# Line 4316  sub _tree_construction_main ($) { Line 4406  sub _tree_construction_main ($) {
4406                if ($self->{insertion_mode} == IN_TABLE_BODY_IM) {                if ($self->{insertion_mode} == IN_TABLE_BODY_IM) {
4407                  unless ($token->{tag_name} eq 'tr') {                  unless ($token->{tag_name} eq 'tr') {
4408                    !!!cp ('t202');                    !!!cp ('t202');
4409                    !!!parse-error (type => 'missing start tag:tr');                    !!!parse-error (type => 'missing start tag:tr', token => $token);
4410                  }                  }
4411                                    
4412                  ## Clear back to table body context                  ## Clear back to table body context
# Line 4331  sub _tree_construction_main ($) { Line 4421  sub _tree_construction_main ($) {
4421                  $self->{insertion_mode} = IN_ROW_IM;                  $self->{insertion_mode} = IN_ROW_IM;
4422                  if ($token->{tag_name} eq 'tr') {                  if ($token->{tag_name} eq 'tr') {
4423                    !!!cp ('t204');                    !!!cp ('t204');
4424                    !!!insert-element ($token->{tag_name}, $token->{attributes});                    !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
4425                    !!!next-token;                    !!!next-token;
4426                    redo B;                    redo B;
4427                  } else {                  } else {
4428                    !!!cp ('t205');                    !!!cp ('t205');
4429                    !!!insert-element ('tr');                    !!!insert-element ('tr',, $token);
4430                    ## reprocess in the "in row" insertion mode                    ## reprocess in the "in row" insertion mode
4431                  }                  }
4432                } else {                } else {
# Line 4351  sub _tree_construction_main ($) { Line 4441  sub _tree_construction_main ($) {
4441                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
4442                }                }
4443                                
4444                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
4445                $self->{insertion_mode} = IN_CELL_IM;                $self->{insertion_mode} = IN_CELL_IM;
4446    
4447                push @$active_formatting_elements, ['#marker', ''];                push @$active_formatting_elements, ['#marker', ''];
# Line 4386  sub _tree_construction_main ($) { Line 4476  sub _tree_construction_main ($) {
4476                  unless (defined $i) {                  unless (defined $i) {
4477                   !!!cp ('t210');                   !!!cp ('t210');
4478  ## TODO: This type is wrong.  ## TODO: This type is wrong.
4479                   !!!parse-error (type => 'unmacthed end tag:'.$token->{tag_name});                   !!!parse-error (type => 'unmacthed end tag:'.$token->{tag_name}, token => $token);
4480                    ## Ignore the token                    ## Ignore the token
4481                    !!!next-token;                    !!!next-token;
4482                    redo B;                    redo B;
# Line 4434  sub _tree_construction_main ($) { Line 4524  sub _tree_construction_main ($) {
4524                  unless (defined $i) {                  unless (defined $i) {
4525                    !!!cp ('t216');                    !!!cp ('t216');
4526  ## TODO: This erorr type ios wrong.  ## TODO: This erorr type ios wrong.
4527                    !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                    !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4528                    ## Ignore the token                    ## Ignore the token
4529                    !!!next-token;                    !!!next-token;
4530                    redo B;                    redo B;
# Line 4472  sub _tree_construction_main ($) { Line 4562  sub _tree_construction_main ($) {
4562                    pop @{$self->{open_elements}};                    pop @{$self->{open_elements}};
4563                  }                  }
4564                                    
4565                  !!!insert-element ('colgroup');                  !!!insert-element ('colgroup',, $token);
4566                  $self->{insertion_mode} = IN_COLUMN_GROUP_IM;                  $self->{insertion_mode} = IN_COLUMN_GROUP_IM;
4567                  ## reprocess                  ## reprocess
4568                  redo B;                  redo B;
# Line 4492  sub _tree_construction_main ($) { Line 4582  sub _tree_construction_main ($) {
4582                  push @$active_formatting_elements, ['#marker', '']                  push @$active_formatting_elements, ['#marker', '']
4583                      if $token->{tag_name} eq 'caption';                      if $token->{tag_name} eq 'caption';
4584                                    
4585                  !!!insert-element ($token->{tag_name}, $token->{attributes});                  !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
4586                  $self->{insertion_mode} = {                  $self->{insertion_mode} = {
4587                                             caption => IN_CAPTION_IM,                                             caption => IN_CAPTION_IM,
4588                                             colgroup => IN_COLUMN_GROUP_IM,                                             colgroup => IN_COLUMN_GROUP_IM,
# Line 4506  sub _tree_construction_main ($) { Line 4596  sub _tree_construction_main ($) {
4596                  die "$0: in table: <>: $token->{tag_name}";                  die "$0: in table: <>: $token->{tag_name}";
4597                }                }
4598              } elsif ($token->{tag_name} eq 'table') {              } elsif ($token->{tag_name} eq 'table') {
4599                !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                !!!parse-error (type => 'not closed',
4600                                  value => $self->{open_elements}->[-1]->[0]
4601                                      ->manakai_local_name,
4602                                  token => $token);
4603    
4604                ## As if </table>                ## As if </table>
4605                ## have a table element in table scope                ## have a table element in table scope
# Line 4528  sub _tree_construction_main ($) { Line 4621  sub _tree_construction_main ($) {
4621                unless (defined $i) {                unless (defined $i) {
4622                  !!!cp ('t223');                  !!!cp ('t223');
4623  ## TODO: The following is wrong, maybe.  ## TODO: The following is wrong, maybe.
4624                  !!!parse-error (type => 'unmatched end tag:table');                  !!!parse-error (type => 'unmatched end tag:table', token => $token);
4625                  ## Ignore tokens </table><table>                  ## Ignore tokens </table><table>
4626                  !!!next-token;                  !!!next-token;
4627                  redo B;                  redo B;
# Line 4545  sub _tree_construction_main ($) { Line 4638  sub _tree_construction_main ($) {
4638    
4639                if ($self->{open_elements}->[-1]->[1] ne 'table') {                if ($self->{open_elements}->[-1]->[1] ne 'table') {
4640                  !!!cp ('t225');                  !!!cp ('t225');
4641  ## ISSUE: Can this case be reached?                  ## NOTE: |<table><tr><table>|
4642                  !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                  !!!parse-error (type => 'not closed',
4643                                    value => $self->{open_elements}->[-1]->[0]
4644                                        ->manakai_local_name,
4645                                    token => $token);
4646                } else {                } else {
4647                  !!!cp ('t226');                  !!!cp ('t226');
4648                }                }
# Line 4584  sub _tree_construction_main ($) { Line 4680  sub _tree_construction_main ($) {
4680                my $type = lc $token->{attributes}->{type}->{value};                my $type = lc $token->{attributes}->{type}->{value};
4681                if ($type eq 'hidden') {                if ($type eq 'hidden') {
4682                  !!!cp ('t227.3');                  !!!cp ('t227.3');
4683                  !!!parse-error (type => 'in table:'.$token->{tag_name});                  !!!parse-error (type => 'in table:'.$token->{tag_name}, token => $token);
4684    
4685                  !!!insert-element ($token->{tag_name}, $token->{attributes});                  !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
4686    
4687                  ## TODO: form element pointer                  ## TODO: form element pointer
4688    
# Line 4611  sub _tree_construction_main ($) { Line 4707  sub _tree_construction_main ($) {
4707            #            #
4708          }          }
4709    
4710          !!!parse-error (type => 'in table:'.$token->{tag_name});          !!!parse-error (type => 'in table:'.$token->{tag_name}, token => $token);
4711    
4712          $insert = $insert_to_foster;          $insert = $insert_to_foster;
4713          #          #
# Line 4635  sub _tree_construction_main ($) { Line 4731  sub _tree_construction_main ($) {
4731                } # INSCOPE                } # INSCOPE
4732                unless (defined $i) {                unless (defined $i) {
4733                  !!!cp ('t230');                  !!!cp ('t230');
4734                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4735                  ## Ignore the token                  ## Ignore the token
4736                  !!!next-token;                  !!!next-token;
4737                  redo B;                  redo B;
# Line 4677  sub _tree_construction_main ($) { Line 4773  sub _tree_construction_main ($) {
4773                  unless (defined $i) {                  unless (defined $i) {
4774                    !!!cp ('t235');                    !!!cp ('t235');
4775  ## TODO: The following is wrong.  ## TODO: The following is wrong.
4776                    !!!parse-error (type => 'unmatched end tag:'.$token->{type});                    !!!parse-error (type => 'unmatched end tag:'.$token->{type}, token => $token);
4777                    ## Ignore the token                    ## Ignore the token
4778                    !!!next-token;                    !!!next-token;
4779                    redo B;                    redo B;
# Line 4717  sub _tree_construction_main ($) { Line 4813  sub _tree_construction_main ($) {
4813                  } # INSCOPE                  } # INSCOPE
4814                  unless (defined $i) {                  unless (defined $i) {
4815                    !!!cp ('t239');                    !!!cp ('t239');
4816                    !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                    !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4817                    ## Ignore the token                    ## Ignore the token
4818                    !!!next-token;                    !!!next-token;
4819                    redo B;                    redo B;
# Line 4765  sub _tree_construction_main ($) { Line 4861  sub _tree_construction_main ($) {
4861                } # INSCOPE                } # INSCOPE
4862                unless (defined $i) {                unless (defined $i) {
4863                  !!!cp ('t243');                  !!!cp ('t243');
4864                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4865                  ## Ignore the token                  ## Ignore the token
4866                  !!!next-token;                  !!!next-token;
4867                  redo B;                  redo B;
# Line 4800  sub _tree_construction_main ($) { Line 4896  sub _tree_construction_main ($) {
4896                  } # INSCOPE                  } # INSCOPE
4897                    unless (defined $i) {                    unless (defined $i) {
4898                      !!!cp ('t249');                      !!!cp ('t249');
4899                      !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                      !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4900                      ## Ignore the token                      ## Ignore the token
4901                      !!!next-token;                      !!!next-token;
4902                      redo B;                      redo B;
# Line 4824  sub _tree_construction_main ($) { Line 4920  sub _tree_construction_main ($) {
4920                  } # INSCOPE                  } # INSCOPE
4921                    unless (defined $i) {                    unless (defined $i) {
4922                      !!!cp ('t252');                      !!!cp ('t252');
4923                      !!!parse-error (type => 'unmatched end tag:tr');                      !!!parse-error (type => 'unmatched end tag:tr', token => $token);
4924                      ## Ignore the token                      ## Ignore the token
4925                      !!!next-token;                      !!!next-token;
4926                      redo B;                      redo B;
# Line 4861  sub _tree_construction_main ($) { Line 4957  sub _tree_construction_main ($) {
4957                } # INSCOPE                } # INSCOPE
4958                unless (defined $i) {                unless (defined $i) {
4959                  !!!cp ('t256');                  !!!cp ('t256');
4960                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4961                  ## Ignore the token                  ## Ignore the token
4962                  !!!next-token;                  !!!next-token;
4963                  redo B;                  redo B;
# Line 4887  sub _tree_construction_main ($) { Line 4983  sub _tree_construction_main ($) {
4983                        tbody => 1, tfoot => 1, thead => 1, # $self->{insertion_mode} == IN_TABLE_IM                        tbody => 1, tfoot => 1, thead => 1, # $self->{insertion_mode} == IN_TABLE_IM
4984                       }->{$token->{tag_name}}) {                       }->{$token->{tag_name}}) {
4985                !!!cp ('t258');                !!!cp ('t258');
4986                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
4987                ## Ignore the token                ## Ignore the token
4988                !!!next-token;                !!!next-token;
4989                redo B;                redo B;
4990          } else {          } else {
4991            !!!cp ('t259');            !!!cp ('t259');
4992            !!!parse-error (type => 'in table:/'.$token->{tag_name});            !!!parse-error (type => 'in table:/'.$token->{tag_name}, token => $token);
4993    
4994            $insert = $insert_to_foster;            $insert = $insert_to_foster;
4995            #            #
# Line 4901  sub _tree_construction_main ($) { Line 4997  sub _tree_construction_main ($) {
4997        } elsif ($token->{type} == END_OF_FILE_TOKEN) {        } elsif ($token->{type} == END_OF_FILE_TOKEN) {
4998          unless ($self->{open_elements}->[-1]->[1] eq 'html' and          unless ($self->{open_elements}->[-1]->[1] eq 'html' and
4999                  @{$self->{open_elements}} == 1) { # redundant, maybe                  @{$self->{open_elements}} == 1) { # redundant, maybe
5000            !!!parse-error (type => 'in body:#eof');            !!!parse-error (type => 'in body:#eof', token => $token);
5001            !!!cp ('t259.1');            !!!cp ('t259.1');
5002            #            #
5003          } else {          } else {
# Line 4930  sub _tree_construction_main ($) { Line 5026  sub _tree_construction_main ($) {
5026            } elsif ($token->{type} == START_TAG_TOKEN) {            } elsif ($token->{type} == START_TAG_TOKEN) {
5027              if ($token->{tag_name} eq 'col') {              if ($token->{tag_name} eq 'col') {
5028                !!!cp ('t262');                !!!cp ('t262');
5029                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
5030                pop @{$self->{open_elements}};                pop @{$self->{open_elements}};
5031                !!!next-token;                !!!next-token;
5032                redo B;                redo B;
# Line 4942  sub _tree_construction_main ($) { Line 5038  sub _tree_construction_main ($) {
5038              if ($token->{tag_name} eq 'colgroup') {              if ($token->{tag_name} eq 'colgroup') {
5039                if ($self->{open_elements}->[-1]->[1] eq 'html') {                if ($self->{open_elements}->[-1]->[1] eq 'html') {
5040                  !!!cp ('t264');                  !!!cp ('t264');
5041                  !!!parse-error (type => 'unmatched end tag:colgroup');                  !!!parse-error (type => 'unmatched end tag:colgroup', token => $token);
5042                  ## Ignore the token                  ## Ignore the token
5043                  !!!next-token;                  !!!next-token;
5044                  redo B;                  redo B;
# Line 4955  sub _tree_construction_main ($) { Line 5051  sub _tree_construction_main ($) {
5051                }                }
5052              } elsif ($token->{tag_name} eq 'col') {              } elsif ($token->{tag_name} eq 'col') {
5053                !!!cp ('t266');                !!!cp ('t266');
5054                !!!parse-error (type => 'unmatched end tag:col');                !!!parse-error (type => 'unmatched end tag:col', token => $token);
5055                ## Ignore the token                ## Ignore the token
5056                !!!next-token;                !!!next-token;
5057                redo B;                redo B;
# Line 4985  sub _tree_construction_main ($) { Line 5081  sub _tree_construction_main ($) {
5081            if ($self->{open_elements}->[-1]->[1] eq 'html') {            if ($self->{open_elements}->[-1]->[1] eq 'html') {
5082              !!!cp ('t269');              !!!cp ('t269');
5083  ## TODO: Wrong error type?  ## TODO: Wrong error type?
5084              !!!parse-error (type => 'unmatched end tag:colgroup');              !!!parse-error (type => 'unmatched end tag:colgroup', token => $token);
5085              ## Ignore the token              ## Ignore the token
5086              !!!next-token;              !!!next-token;
5087              redo B;              redo B;
# Line 5012  sub _tree_construction_main ($) { Line 5108  sub _tree_construction_main ($) {
5108                  !!!cp ('t273');                  !!!cp ('t273');
5109                }                }
5110    
5111                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
5112                !!!next-token;                !!!next-token;
5113                redo B;                redo B;
5114              } elsif ($token->{tag_name} eq 'optgroup') {              } elsif ($token->{tag_name} eq 'optgroup') {
# Line 5032  sub _tree_construction_main ($) { Line 5128  sub _tree_construction_main ($) {
5128                  !!!cp ('t277');                  !!!cp ('t277');
5129                }                }
5130    
5131                !!!insert-element ($token->{tag_name}, $token->{attributes});                !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
5132                !!!next-token;                !!!next-token;
5133                redo B;                redo B;
5134          } elsif ($token->{tag_name} eq 'select' or          } elsif ($token->{tag_name} eq 'select' or
# Line 5044  sub _tree_construction_main ($) { Line 5140  sub _tree_construction_main ($) {
5140                     tr => 1, td => 1, th => 1,                     tr => 1, td => 1, th => 1,
5141                    }->{$token->{tag_name}})) {                    }->{$token->{tag_name}})) {
5142            ## TODO: The type below is not good - <select> is replaced by </select>            ## TODO: The type below is not good - <select> is replaced by </select>
5143            !!!parse-error (type => 'not closed:select');            !!!parse-error (type => 'not closed:select', token => $token);
5144            ## NOTE: As if the token were </select> (<select> case) or            ## NOTE: As if the token were </select> (<select> case) or
5145            ## as if there were </select> (otherwise).            ## as if there were </select> (otherwise).
5146                ## have an element in table scope                ## have an element in table scope
# Line 5064  sub _tree_construction_main ($) { Line 5160  sub _tree_construction_main ($) {
5160                } # INSCOPE                } # INSCOPE
5161                unless (defined $i) {                unless (defined $i) {
5162                  !!!cp ('t280');                  !!!cp ('t280');
5163                  !!!parse-error (type => 'unmatched end tag:select');                  !!!parse-error (type => 'unmatched end tag:select', token => $token);
5164                  ## Ignore the token                  ## Ignore the token
5165                  !!!next-token;                  !!!next-token;
5166                  redo B;                  redo B;
# Line 5086  sub _tree_construction_main ($) { Line 5182  sub _tree_construction_main ($) {
5182            }            }
5183          } else {          } else {
5184            !!!cp ('t282');            !!!cp ('t282');
5185            !!!parse-error (type => 'in select:'.$token->{tag_name});            !!!parse-error (type => 'in select:'.$token->{tag_name}, token => $token);
5186            ## Ignore the token            ## Ignore the token
5187            !!!next-token;            !!!next-token;
5188            redo B;            redo B;
# Line 5103  sub _tree_construction_main ($) { Line 5199  sub _tree_construction_main ($) {
5199                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
5200                } else {                } else {
5201                  !!!cp ('t285');                  !!!cp ('t285');
5202                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
5203                  ## Ignore the token                  ## Ignore the token
5204                }                }
5205                !!!next-token;                !!!next-token;
# Line 5114  sub _tree_construction_main ($) { Line 5210  sub _tree_construction_main ($) {
5210                  pop @{$self->{open_elements}};                  pop @{$self->{open_elements}};
5211                } else {                } else {
5212                  !!!cp ('t287');                  !!!cp ('t287');
5213                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
5214                  ## Ignore the token                  ## Ignore the token
5215                }                }
5216                !!!next-token;                !!!next-token;
# Line 5137  sub _tree_construction_main ($) { Line 5233  sub _tree_construction_main ($) {
5233                } # INSCOPE                } # INSCOPE
5234                unless (defined $i) {                unless (defined $i) {
5235                  !!!cp ('t290');                  !!!cp ('t290');
5236                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                  !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
5237                  ## Ignore the token                  ## Ignore the token
5238                  !!!next-token;                  !!!next-token;
5239                  redo B;                  redo B;
# Line 5156  sub _tree_construction_main ($) { Line 5252  sub _tree_construction_main ($) {
5252                    tfoot => 1, thead => 1, tr => 1, td => 1, th => 1,                    tfoot => 1, thead => 1, tr => 1, td => 1, th => 1,
5253                   }->{$token->{tag_name}}) {                   }->{$token->{tag_name}}) {
5254  ## TODO: The following is wrong?  ## TODO: The following is wrong?
5255                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
5256                                
5257                ## have an element in table scope                ## have an element in table scope
5258                my $i;                my $i;
# Line 5200  sub _tree_construction_main ($) { Line 5296  sub _tree_construction_main ($) {
5296                unless (defined $i) {                unless (defined $i) {
5297                  !!!cp ('t297');                  !!!cp ('t297');
5298  ## TODO: The following error type is correct?  ## TODO: The following error type is correct?
5299                  !!!parse-error (type => 'unmatched end tag:select');                  !!!parse-error (type => 'unmatched end tag:select', token => $token);
5300                  ## Ignore the </select> token                  ## Ignore the </select> token
5301                  !!!next-token; ## TODO: ok?                  !!!next-token; ## TODO: ok?
5302                  redo B;                  redo B;
# Line 5215  sub _tree_construction_main ($) { Line 5311  sub _tree_construction_main ($) {
5311                redo B;                redo B;
5312          } else {          } else {
5313            !!!cp ('t299');            !!!cp ('t299');
5314            !!!parse-error (type => 'in select:/'.$token->{tag_name});            !!!parse-error (type => 'in select:/'.$token->{tag_name}, token => $token);
5315            ## Ignore the token            ## Ignore the token
5316            !!!next-token;            !!!next-token;
5317            redo B;            redo B;
# Line 5224  sub _tree_construction_main ($) { Line 5320  sub _tree_construction_main ($) {
5320          unless ($self->{open_elements}->[-1]->[1] eq 'html' and          unless ($self->{open_elements}->[-1]->[1] eq 'html' and
5321                  @{$self->{open_elements}} == 1) { # redundant, maybe                  @{$self->{open_elements}} == 1) { # redundant, maybe
5322            !!!cp ('t299.1');            !!!cp ('t299.1');
5323            !!!parse-error (type => 'in body:#eof');            !!!parse-error (type => 'in body:#eof', token => $token);
5324          } else {          } else {
5325            !!!cp ('t299.2');            !!!cp ('t299.2');
5326          }          }
# Line 5252  sub _tree_construction_main ($) { Line 5348  sub _tree_construction_main ($) {
5348                    
5349          if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {          if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {
5350            !!!cp ('t301');            !!!cp ('t301');
5351            !!!parse-error (type => 'after html:#character');            !!!parse-error (type => 'after html:#character', token => $token);
5352    
5353            ## Reprocess in the "after body" insertion mode.            ## Reprocess in the "after body" insertion mode.
5354          } else {          } else {
# Line 5260  sub _tree_construction_main ($) { Line 5356  sub _tree_construction_main ($) {
5356          }          }
5357                    
5358          ## "after body" insertion mode          ## "after body" insertion mode
5359          !!!parse-error (type => 'after body:#character');          !!!parse-error (type => 'after body:#character', token => $token);
5360    
5361          $self->{insertion_mode} = IN_BODY_IM;          $self->{insertion_mode} = IN_BODY_IM;
5362          ## reprocess          ## reprocess
# Line 5268  sub _tree_construction_main ($) { Line 5364  sub _tree_construction_main ($) {
5364        } elsif ($token->{type} == START_TAG_TOKEN) {        } elsif ($token->{type} == START_TAG_TOKEN) {
5365          if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {          if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {
5366            !!!cp ('t303');            !!!cp ('t303');
5367            !!!parse-error (type => 'after html:'.$token->{tag_name});            !!!parse-error (type => 'after html:'.$token->{tag_name}, token => $token);
5368                        
5369            ## Reprocess in the "after body" insertion mode.            ## Reprocess in the "after body" insertion mode.
5370          } else {          } else {
# Line 5276  sub _tree_construction_main ($) { Line 5372  sub _tree_construction_main ($) {
5372          }          }
5373    
5374          ## "after body" insertion mode          ## "after body" insertion mode
5375          !!!parse-error (type => 'after body:'.$token->{tag_name});          !!!parse-error (type => 'after body:'.$token->{tag_name}, token => $token);
5376    
5377          $self->{insertion_mode} = IN_BODY_IM;          $self->{insertion_mode} = IN_BODY_IM;
5378          ## reprocess          ## reprocess
# Line 5284  sub _tree_construction_main ($) { Line 5380  sub _tree_construction_main ($) {
5380        } elsif ($token->{type} == END_TAG_TOKEN) {        } elsif ($token->{type} == END_TAG_TOKEN) {
5381          if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {          if ($self->{insertion_mode} == AFTER_HTML_BODY_IM) {
5382            !!!cp ('t305');            !!!cp ('t305');
5383            !!!parse-error (type => 'after html:/'.$token->{tag_name});            !!!parse-error (type => 'after html:/'.$token->{tag_name}, token => $token);
5384                        
5385            $self->{insertion_mode} = AFTER_BODY_IM;            $self->{insertion_mode} = AFTER_BODY_IM;
5386            ## Reprocess in the "after body" insertion mode.            ## Reprocess in the "after body" insertion mode.
# Line 5296  sub _tree_construction_main ($) { Line 5392  sub _tree_construction_main ($) {
5392          if ($token->{tag_name} eq 'html') {          if ($token->{tag_name} eq 'html') {
5393            if (defined $self->{inner_html_node}) {            if (defined $self->{inner_html_node}) {
5394              !!!cp ('t307');              !!!cp ('t307');
5395              !!!parse-error (type => 'unmatched end tag:html');              !!!parse-error (type => 'unmatched end tag:html', token => $token);
5396              ## Ignore the token              ## Ignore the token
5397              !!!next-token;              !!!next-token;
5398              redo B;              redo B;
# Line 5308  sub _tree_construction_main ($) { Line 5404  sub _tree_construction_main ($) {
5404            }            }
5405          } else {          } else {
5406            !!!cp ('t309');            !!!cp ('t309');
5407            !!!parse-error (type => 'after body:/'.$token->{tag_name});            !!!parse-error (type => 'after body:/'.$token->{tag_name}, token => $token);
5408    
5409            $self->{insertion_mode} = IN_BODY_IM;            $self->{insertion_mode} = IN_BODY_IM;
5410            ## reprocess            ## reprocess
# Line 5336  sub _tree_construction_main ($) { Line 5432  sub _tree_construction_main ($) {
5432          if ($token->{data} =~ s/^[^\x09\x0A\x0B\x0C\x20]+//) {          if ($token->{data} =~ s/^[^\x09\x0A\x0B\x0C\x20]+//) {
5433            if ($self->{insertion_mode} == IN_FRAMESET_IM) {            if ($self->{insertion_mode} == IN_FRAMESET_IM) {
5434              !!!cp ('t311');              !!!cp ('t311');
5435              !!!parse-error (type => 'in frameset:#character');              !!!parse-error (type => 'in frameset:#character', token => $token);
5436            } elsif ($self->{insertion_mode} == AFTER_FRAMESET_IM) {            } elsif ($self->{insertion_mode} == AFTER_FRAMESET_IM) {
5437              !!!cp ('t312');              !!!cp ('t312');
5438              !!!parse-error (type => 'after frameset:#character');              !!!parse-error (type => 'after frameset:#character', token => $token);
5439            } else { # "after html frameset"            } else { # "after html frameset"
5440              !!!cp ('t313');              !!!cp ('t313');
5441              !!!parse-error (type => 'after html:#character');              !!!parse-error (type => 'after html:#character', token => $token);
5442    
5443              $self->{insertion_mode} = AFTER_FRAMESET_IM;              $self->{insertion_mode} = AFTER_FRAMESET_IM;
5444              ## Reprocess in the "after frameset" insertion mode.              ## Reprocess in the "after frameset" insertion mode.
5445              !!!parse-error (type => 'after frameset:#character');              !!!parse-error (type => 'after frameset:#character', token => $token);
5446            }            }
5447                        
5448            ## Ignore the token.            ## Ignore the token.
# Line 5364  sub _tree_construction_main ($) { Line 5460  sub _tree_construction_main ($) {
5460        } elsif ($token->{type} == START_TAG_TOKEN) {        } elsif ($token->{type} == START_TAG_TOKEN) {
5461          if ($self->{insertion_mode} == AFTER_HTML_FRAMESET_IM) {          if ($self->{insertion_mode} == AFTER_HTML_FRAMESET_IM) {
5462            !!!cp ('t316');            !!!cp ('t316');
5463            !!!parse-error (type => 'after html:'.$token->{tag_name});            !!!parse-error (type => 'after html:'.$token->{tag_name}, token => $token);
5464    
5465            $self->{insertion_mode} = AFTER_FRAMESET_IM;            $self->{insertion_mode} = AFTER_FRAMESET_IM;
5466            ## Process in the "after frameset" insertion mode.            ## Process in the "after frameset" insertion mode.
# Line 5375  sub _tree_construction_main ($) { Line 5471  sub _tree_construction_main ($) {
5471          if ($token->{tag_name} eq 'frameset' and          if ($token->{tag_name} eq 'frameset' and
5472              $self->{insertion_mode} == IN_FRAMESET_IM) {              $self->{insertion_mode} == IN_FRAMESET_IM) {
5473            !!!cp ('t318');            !!!cp ('t318');
5474            !!!insert-element ($token->{tag_name}, $token->{attributes});            !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
5475            !!!next-token;            !!!next-token;
5476            redo B;            redo B;
5477          } elsif ($token->{tag_name} eq 'frame' and          } elsif ($token->{tag_name} eq 'frame' and
5478                   $self->{insertion_mode} == IN_FRAMESET_IM) {                   $self->{insertion_mode} == IN_FRAMESET_IM) {
5479            !!!cp ('t319');            !!!cp ('t319');
5480            !!!insert-element ($token->{tag_name}, $token->{attributes});            !!!insert-element ($token->{tag_name}, $token->{attributes}, $token);
5481            pop @{$self->{open_elements}};            pop @{$self->{open_elements}};
5482            !!!next-token;            !!!next-token;
5483            redo B;            redo B;
# Line 5393  sub _tree_construction_main ($) { Line 5489  sub _tree_construction_main ($) {
5489          } else {          } else {
5490            if ($self->{insertion_mode} == IN_FRAMESET_IM) {            if ($self->{insertion_mode} == IN_FRAMESET_IM) {
5491              !!!cp ('t321');              !!!cp ('t321');
5492              !!!parse-error (type => 'in frameset:'.$token->{tag_name});              !!!parse-error (type => 'in frameset:'.$token->{tag_name}, token => $token);
5493            } else {            } else {
5494              !!!cp ('t322');              !!!cp ('t322');
5495              !!!parse-error (type => 'after frameset:'.$token->{tag_name});              !!!parse-error (type => 'after frameset:'.$token->{tag_name}, token => $token);
5496            }            }
5497            ## Ignore the token            ## Ignore the token
5498            !!!next-token;            !!!next-token;
# Line 5405  sub _tree_construction_main ($) { Line 5501  sub _tree_construction_main ($) {
5501        } elsif ($token->{type} == END_TAG_TOKEN) {        } elsif ($token->{type} == END_TAG_TOKEN) {
5502          if ($self->{insertion_mode} == AFTER_HTML_FRAMESET_IM) {          if ($self->{insertion_mode} == AFTER_HTML_FRAMESET_IM) {
5503            !!!cp ('t323');            !!!cp ('t323');
5504            !!!parse-error (type => 'after html:/'.$token->{tag_name});            !!!parse-error (type => 'after html:/'.$token->{tag_name}, token => $token);
5505    
5506            $self->{insertion_mode} = AFTER_FRAMESET_IM;            $self->{insertion_mode} = AFTER_FRAMESET_IM;
5507            ## Process in the "after frameset" insertion mode.            ## Process in the "after frameset" insertion mode.
# Line 5418  sub _tree_construction_main ($) { Line 5514  sub _tree_construction_main ($) {
5514            if ($self->{open_elements}->[-1]->[1] eq 'html' and            if ($self->{open_elements}->[-1]->[1] eq 'html' and
5515                @{$self->{open_elements}} == 1) {                @{$self->{open_elements}} == 1) {
5516              !!!cp ('t325');              !!!cp ('t325');
5517              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
5518              ## Ignore the token              ## Ignore the token
5519              !!!next-token;              !!!next-token;
5520            } else {            } else {
# Line 5444  sub _tree_construction_main ($) { Line 5540  sub _tree_construction_main ($) {
5540          } else {          } else {
5541            if ($self->{insertion_mode} == IN_FRAMESET_IM) {            if ($self->{insertion_mode} == IN_FRAMESET_IM) {
5542              !!!cp ('t330');              !!!cp ('t330');
5543              !!!parse-error (type => 'in frameset:/'.$token->{tag_name});              !!!parse-error (type => 'in frameset:/'.$token->{tag_name}, token => $token);
5544            } else {            } else {
5545              !!!cp ('t331');              !!!cp ('t331');
5546              !!!parse-error (type => 'after frameset:/'.$token->{tag_name});              !!!parse-error (type => 'after frameset:/'.$token->{tag_name}, token => $token);
5547            }            }
5548            ## Ignore the token            ## Ignore the token
5549            !!!next-token;            !!!next-token;
# Line 5457  sub _tree_construction_main ($) { Line 5553  sub _tree_construction_main ($) {
5553          unless ($self->{open_elements}->[-1]->[1] eq 'html' and          unless ($self->{open_elements}->[-1]->[1] eq 'html' and
5554                  @{$self->{open_elements}} == 1) { # redundant, maybe                  @{$self->{open_elements}} == 1) { # redundant, maybe
5555            !!!cp ('t331.1');            !!!cp ('t331.1');
5556            !!!parse-error (type => 'in body:#eof');            !!!parse-error (type => 'in body:#eof', token => $token);
5557          } else {          } else {
5558            !!!cp ('t331.2');            !!!cp ('t331.2');
5559          }          }
# Line 5490  sub _tree_construction_main ($) { Line 5586  sub _tree_construction_main ($) {
5586                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5587          !!!cp ('t334');          !!!cp ('t334');
5588          ## NOTE: This is an "as if in head" code clone, only "-t" differs          ## NOTE: This is an "as if in head" code clone, only "-t" differs
5589          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5590          pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.          pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.
5591          !!!next-token;          !!!next-token;
5592          redo B;          redo B;
5593        } elsif ($token->{tag_name} eq 'meta') {        } elsif ($token->{tag_name} eq 'meta') {
5594          ## NOTE: This is an "as if in head" code clone, only "-t" differs          ## NOTE: This is an "as if in head" code clone, only "-t" differs
5595          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5596          my $meta_el = pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.          my $meta_el = pop @{$self->{open_elements}}; ## ISSUE: This step is missing in the spec.
5597    
5598          unless ($self->{confident}) {          unless ($self->{confident}) {
5599            if ($token->{attributes}->{charset}) { ## TODO: And if supported            if ($token->{attributes}->{charset}) { ## TODO: And if supported
5600              !!!cp ('t335');              !!!cp ('t335');
5601              $self->{change_encoding}              $self->{change_encoding}
5602                  ->($self, $token->{attributes}->{charset}->{value});                  ->($self, $token->{attributes}->{charset}->{value}, $token);
5603                            
5604              $meta_el->[0]->get_attribute_node_ns (undef, 'charset')              $meta_el->[0]->get_attribute_node_ns (undef, 'charset')
5605                  ->set_user_data (manakai_has_reference =>                  ->set_user_data (manakai_has_reference =>
# Line 5518  sub _tree_construction_main ($) { Line 5614  sub _tree_construction_main ($) {
5614                      ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {                      ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {
5615                !!!cp ('t336');                !!!cp ('t336');
5616                $self->{change_encoding}                $self->{change_encoding}
5617                    ->($self, defined $1 ? $1 : defined $2 ? $2 : $3);                    ->($self, defined $1 ? $1 : defined $2 ? $2 : $3, $token);
5618                $meta_el->[0]->get_attribute_node_ns (undef, 'content')                $meta_el->[0]->get_attribute_node_ns (undef, 'content')
5619                    ->set_user_data (manakai_has_reference =>                    ->set_user_data (manakai_has_reference =>
5620                                         $token->{attributes}->{content}                                         $token->{attributes}->{content}
# Line 5550  sub _tree_construction_main ($) { Line 5646  sub _tree_construction_main ($) {
5646          $parse_rcdata->(RCDATA_CONTENT_MODEL);          $parse_rcdata->(RCDATA_CONTENT_MODEL);
5647          redo B;          redo B;
5648        } elsif ($token->{tag_name} eq 'body') {        } elsif ($token->{tag_name} eq 'body') {
5649          !!!parse-error (type => 'in body:body');          !!!parse-error (type => 'in body:body', token => $token);
5650                                
5651          if (@{$self->{open_elements}} == 1 or          if (@{$self->{open_elements}} == 1 or
5652              $self->{open_elements}->[1]->[1] ne 'body') {              $self->{open_elements}->[1]->[1] ne 'body') {
# Line 5581  sub _tree_construction_main ($) { Line 5677  sub _tree_construction_main ($) {
5677                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5678          if ($token->{tag_name} eq 'form' and defined $self->{form_element}) {          if ($token->{tag_name} eq 'form' and defined $self->{form_element}) {
5679            !!!cp ('t350');            !!!cp ('t350');
5680            !!!parse-error (type => 'in form:form');            !!!parse-error (type => 'in form:form', token => $token);
5681            ## Ignore the token            ## Ignore the token
5682            !!!next-token;            !!!next-token;
5683            redo B;            redo B;
# Line 5592  sub _tree_construction_main ($) { Line 5688  sub _tree_construction_main ($) {
5688            if ($_->[1] eq 'p') {            if ($_->[1] eq 'p') {
5689              !!!cp ('t344');              !!!cp ('t344');
5690              !!!back-token;              !!!back-token;
5691              $token = {type => END_TAG_TOKEN, tag_name => 'p'};              $token = {type => END_TAG_TOKEN, tag_name => 'p',
5692                          line => $token->{line}, column => $token->{column}};
5693              redo B;              redo B;
5694            } elsif ({            } elsif ({
5695                      applet => 1, table => 1, caption => 1, td => 1, th => 1,                      applet => 1, table => 1, caption => 1, td => 1, th => 1,
# Line 5603  sub _tree_construction_main ($) { Line 5700  sub _tree_construction_main ($) {
5700            }            }
5701          } # INSCOPE          } # INSCOPE
5702                        
5703          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5704          if ($token->{tag_name} eq 'pre' or $token->{tag_name} eq 'listing') {          if ($token->{tag_name} eq 'pre' or $token->{tag_name} eq 'listing') {
5705            !!!next-token;            !!!next-token;
5706            if ($token->{type} == CHARACTER_TOKEN) {            if ($token->{type} == CHARACTER_TOKEN) {
# Line 5645  sub _tree_construction_main ($) { Line 5742  sub _tree_construction_main ($) {
5742            if ($_->[1] eq 'p') {            if ($_->[1] eq 'p') {
5743              !!!cp ('t353');              !!!cp ('t353');
5744              !!!back-token;              !!!back-token;
5745              $token = {type => END_TAG_TOKEN, tag_name => 'p'};              $token = {type => END_TAG_TOKEN, tag_name => 'p',
5746                          line => $token->{line}, column => $token->{column}};
5747              redo B;              redo B;
5748            } elsif ({            } elsif ({
5749                      applet => 1, table => 1, caption => 1, td => 1, th => 1,                      applet => 1, table => 1, caption => 1, td => 1, th => 1,
# Line 5667  sub _tree_construction_main ($) { Line 5765  sub _tree_construction_main ($) {
5765            if ($li_or_dtdd->{$node->[1]}) {            if ($li_or_dtdd->{$node->[1]}) {
5766              if ($i != -1) {              if ($i != -1) {
5767                !!!cp ('t355');                !!!cp ('t355');
5768                !!!parse-error (type => 'end tag missing:'.                !!!parse-error (type => 'not closed',
5769                                $self->{open_elements}->[-1]->[1]);                                value => $self->{open_elements}->[-1]->[0]
5770                                      ->manakai_local_name,
5771                                  token => $token);
5772              } else {              } else {
5773                !!!cp ('t356');                !!!cp ('t356');
5774              }              }
# Line 5695  sub _tree_construction_main ($) { Line 5795  sub _tree_construction_main ($) {
5795            redo LI;            redo LI;
5796          } # LI          } # LI
5797                        
5798          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5799          !!!next-token;          !!!next-token;
5800          redo B;          redo B;
5801        } elsif ($token->{tag_name} eq 'plaintext') {        } elsif ($token->{tag_name} eq 'plaintext') {
# Line 5704  sub _tree_construction_main ($) { Line 5804  sub _tree_construction_main ($) {
5804            if ($_->[1] eq 'p') {            if ($_->[1] eq 'p') {
5805              !!!cp ('t367');              !!!cp ('t367');
5806              !!!back-token;              !!!back-token;
5807              $token = {type => END_TAG_TOKEN, tag_name => 'p'};              $token = {type => END_TAG_TOKEN, tag_name => 'p',
5808                          line => $token->{line}, column => $token->{column}};
5809              redo B;              redo B;
5810            } elsif ({            } elsif ({
5811                      applet => 1, table => 1, caption => 1, td => 1, th => 1,                      applet => 1, table => 1, caption => 1, td => 1, th => 1,
# Line 5715  sub _tree_construction_main ($) { Line 5816  sub _tree_construction_main ($) {
5816            }            }
5817          } # INSCOPE          } # INSCOPE
5818                        
5819          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5820                        
5821          $self->{content_model} = PLAINTEXT_CONTENT_MODEL;          $self->{content_model} = PLAINTEXT_CONTENT_MODEL;
5822                        
# Line 5726  sub _tree_construction_main ($) { Line 5827  sub _tree_construction_main ($) {
5827            my $node = $active_formatting_elements->[$i];            my $node = $active_formatting_elements->[$i];
5828            if ($node->[1] eq 'a') {            if ($node->[1] eq 'a') {
5829              !!!cp ('t371');              !!!cp ('t371');
5830              !!!parse-error (type => 'in a:a');              !!!parse-error (type => 'in a:a', token => $token);
5831                            
5832              !!!back-token;              !!!back-token;
5833              $token = {type => END_TAG_TOKEN, tag_name => 'a'};              $token = {type => END_TAG_TOKEN, tag_name => 'a',
5834              $formatting_end_tag->($token->{tag_name});                        line => $token->{line}, column => $token->{column}};
5835                $formatting_end_tag->($token);
5836                            
5837              AFE2: for (reverse 0..$#$active_formatting_elements) {              AFE2: for (reverse 0..$#$active_formatting_elements) {
5838                if ($active_formatting_elements->[$_]->[0] eq $node->[0]) {                if ($active_formatting_elements->[$_]->[0] eq $node->[0]) {
# Line 5755  sub _tree_construction_main ($) { Line 5857  sub _tree_construction_main ($) {
5857                        
5858          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
5859    
5860          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5861          push @$active_formatting_elements, $self->{open_elements}->[-1];          push @$active_formatting_elements, $self->{open_elements}->[-1];
5862    
5863          !!!next-token;          !!!next-token;
# Line 5768  sub _tree_construction_main ($) { Line 5870  sub _tree_construction_main ($) {
5870            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
5871            if ($node->[1] eq 'nobr') {            if ($node->[1] eq 'nobr') {
5872              !!!cp ('t376');              !!!cp ('t376');
5873              !!!parse-error (type => 'in nobr:nobr');              !!!parse-error (type => 'in nobr:nobr', token => $token);
5874              !!!back-token;              !!!back-token;
5875              $token = {type => END_TAG_TOKEN, tag_name => 'nobr'};              $token = {type => END_TAG_TOKEN, tag_name => 'nobr',
5876                          line => $token->{line}, column => $token->{column}};
5877              redo B;              redo B;
5878            } elsif ({            } elsif ({
5879                      applet => 1, table => 1, caption => 1, td => 1, th => 1,                      applet => 1, table => 1, caption => 1, td => 1, th => 1,
# Line 5781  sub _tree_construction_main ($) { Line 5884  sub _tree_construction_main ($) {
5884            }            }
5885          } # INSCOPE          } # INSCOPE
5886                    
5887          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5888          push @$active_formatting_elements, $self->{open_elements}->[-1];          push @$active_formatting_elements, $self->{open_elements}->[-1];
5889                    
5890          !!!next-token;          !!!next-token;
# Line 5792  sub _tree_construction_main ($) { Line 5895  sub _tree_construction_main ($) {
5895            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
5896            if ($node->[1] eq 'button') {            if ($node->[1] eq 'button') {
5897              !!!cp ('t378');              !!!cp ('t378');
5898              !!!parse-error (type => 'in button:button');              !!!parse-error (type => 'in button:button', token => $token);
5899              !!!back-token;              !!!back-token;
5900              $token = {type => END_TAG_TOKEN, tag_name => 'button'};              $token = {type => END_TAG_TOKEN, tag_name => 'button',
5901                          line => $token->{line}, column => $token->{column}};
5902              redo B;              redo B;
5903            } elsif ({            } elsif ({
5904                      applet => 1, table => 1, caption => 1, td => 1, th => 1,                      applet => 1, table => 1, caption => 1, td => 1, th => 1,
# Line 5807  sub _tree_construction_main ($) { Line 5911  sub _tree_construction_main ($) {
5911                        
5912          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
5913                        
5914          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
5915    
5916          ## TODO: associate with $self->{form_element} if defined          ## TODO: associate with $self->{form_element} if defined
5917    
# Line 5832  sub _tree_construction_main ($) { Line 5936  sub _tree_construction_main ($) {
5936          $parse_rcdata->(CDATA_CONTENT_MODEL);          $parse_rcdata->(CDATA_CONTENT_MODEL);
5937          redo B;          redo B;
5938        } elsif ($token->{tag_name} eq 'isindex') {        } elsif ($token->{tag_name} eq 'isindex') {
5939          !!!parse-error (type => 'isindex');          !!!parse-error (type => 'isindex', token => $token);
5940                    
5941          if (defined $self->{form_element}) {          if (defined $self->{form_element}) {
5942            !!!cp ('t389');            !!!cp ('t389');
# Line 5849  sub _tree_construction_main ($) { Line 5953  sub _tree_construction_main ($) {
5953            delete $at->{prompt};            delete $at->{prompt};
5954            my @tokens = (            my @tokens = (
5955                          {type => START_TAG_TOKEN, tag_name => 'form',                          {type => START_TAG_TOKEN, tag_name => 'form',
5956                           attributes => $form_attrs},                           attributes => $form_attrs,
5957                          {type => START_TAG_TOKEN, tag_name => 'hr'},                           line => $token->{line}, column => $token->{column}},
5958                          {type => START_TAG_TOKEN, tag_name => 'p'},                          {type => START_TAG_TOKEN, tag_name => 'hr',
5959                          {type => START_TAG_TOKEN, tag_name => 'label'},                           line => $token->{line}, column => $token->{column}},
5960                            {type => START_TAG_TOKEN, tag_name => 'p',
5961                             line => $token->{line}, column => $token->{column}},
5962                            {type => START_TAG_TOKEN, tag_name => 'label',
5963                             line => $token->{line}, column => $token->{column}},
5964                         );                         );
5965            if ($prompt_attr) {            if ($prompt_attr) {
5966              !!!cp ('t390');              !!!cp ('t390');
5967              push @tokens, {type => CHARACTER_TOKEN, data => $prompt_attr->{value}};              push @tokens, {type => CHARACTER_TOKEN, data => $prompt_attr->{value},
5968                               #line => $token->{line}, column => $token->{column},
5969                              };
5970            } else {            } else {
5971              !!!cp ('t391');              !!!cp ('t391');
5972              push @tokens, {type => CHARACTER_TOKEN,              push @tokens, {type => CHARACTER_TOKEN,
5973                             data => 'This is a searchable index. Insert your search keywords here: '}; # SHOULD                             data => 'This is a searchable index. Insert your search keywords here: ',
5974                               #line => $token->{line}, column => $token->{column},
5975                              }; # SHOULD
5976              ## TODO: make this configurable              ## TODO: make this configurable
5977            }            }
5978            push @tokens,            push @tokens,
5979                          {type => START_TAG_TOKEN, tag_name => 'input', attributes => $at},                          {type => START_TAG_TOKEN, tag_name => 'input', attributes => $at,
5980                             line => $token->{line}, column => $token->{column}},
5981                          #{type => CHARACTER_TOKEN, data => ''}, # SHOULD                          #{type => CHARACTER_TOKEN, data => ''}, # SHOULD
5982                          {type => END_TAG_TOKEN, tag_name => 'label'},                          {type => END_TAG_TOKEN, tag_name => 'label',
5983                          {type => END_TAG_TOKEN, tag_name => 'p'},                           line => $token->{line}, column => $token->{column}},
5984                          {type => START_TAG_TOKEN, tag_name => 'hr'},                          {type => END_TAG_TOKEN, tag_name => 'p',
5985                          {type => END_TAG_TOKEN, tag_name => 'form'};                           line => $token->{line}, column => $token->{column}},
5986                            {type => START_TAG_TOKEN, tag_name => 'hr',
5987                             line => $token->{line}, column => $token->{column}},
5988                            {type => END_TAG_TOKEN, tag_name => 'form',
5989                             line => $token->{line}, column => $token->{column}};
5990            $token = shift @tokens;            $token = shift @tokens;
5991            !!!back-token (@tokens);            !!!back-token (@tokens);
5992            redo B;            redo B;
# Line 5877  sub _tree_construction_main ($) { Line 5994  sub _tree_construction_main ($) {
5994        } elsif ($token->{tag_name} eq 'textarea') {        } elsif ($token->{tag_name} eq 'textarea') {
5995          my $tag_name = $token->{tag_name};          my $tag_name = $token->{tag_name};
5996          my $el;          my $el;
5997          !!!create-element ($el, $token->{tag_name}, $token->{attributes});          !!!create-element ($el, $token->{tag_name}, $token->{attributes}, $token);
5998                    
5999          ## TODO: $self->{form_element} if defined          ## TODO: $self->{form_element} if defined
6000          $self->{content_model} = RCDATA_CONTENT_MODEL;          $self->{content_model} = RCDATA_CONTENT_MODEL;
# Line 5916  sub _tree_construction_main ($) { Line 6033  sub _tree_construction_main ($) {
6033            ## Ignore the token            ## Ignore the token
6034          } else {          } else {
6035            !!!cp ('t398');            !!!cp ('t398');
6036            !!!parse-error (type => 'in RCDATA:#'.$token->{type});            !!!parse-error (type => 'in RCDATA:#'.$token->{type}, token => $token);
6037          }          }
6038          !!!next-token;          !!!next-token;
6039          redo B;          redo B;
# Line 5927  sub _tree_construction_main ($) { Line 6044  sub _tree_construction_main ($) {
6044                  thead => 1, tr => 1,                  thead => 1, tr => 1,
6045                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
6046          !!!cp ('t401');          !!!cp ('t401');
6047          !!!parse-error (type => 'in body:'.$token->{tag_name});          !!!parse-error (type => 'in body:'.$token->{tag_name}, token => $token);
6048          ## Ignore the token          ## Ignore the token
6049          !!!next-token;          !!!next-token;
6050          redo B;          redo B;
# Line 5936  sub _tree_construction_main ($) { Line 6053  sub _tree_construction_main ($) {
6053        } else {        } else {
6054          if ($token->{tag_name} eq 'image') {          if ($token->{tag_name} eq 'image') {
6055            !!!cp ('t384');            !!!cp ('t384');
6056            !!!parse-error (type => 'image');            !!!parse-error (type => 'image', token => $token);
6057            $token->{tag_name} = 'img';            $token->{tag_name} = 'img';
6058          } else {          } else {
6059            !!!cp ('t385');            !!!cp ('t385');
# Line 5945  sub _tree_construction_main ($) { Line 6062  sub _tree_construction_main ($) {
6062          ## NOTE: There is an "as if <br>" code clone.          ## NOTE: There is an "as if <br>" code clone.
6063          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
6064                    
6065          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
6066    
6067          if ({          if ({
6068               applet => 1, marquee => 1, object => 1,               applet => 1, marquee => 1, object => 1,
# Line 6009  sub _tree_construction_main ($) { Line 6126  sub _tree_construction_main ($) {
6126            }            }
6127    
6128            !!!parse-error (type => 'start tag not allowed',            !!!parse-error (type => 'start tag not allowed',
6129                            value => $token->{tag_name});                            value => $token->{tag_name}, token => $token);
6130            ## NOTE: Ignore the token.            ## NOTE: Ignore the token.
6131            !!!next-token;            !!!next-token;
6132            redo B;            redo B;
# Line 6022  sub _tree_construction_main ($) { Line 6139  sub _tree_construction_main ($) {
6139                     tbody => 1, tfoot => 1, thead => 1,                     tbody => 1, tfoot => 1, thead => 1,
6140                    }->{$_->[1]}) {                    }->{$_->[1]}) {
6141              !!!cp ('t403');              !!!cp ('t403');
6142              !!!parse-error (type => 'not closed:'.$_->[1]);              !!!parse-error (type => 'not closed',
6143                                value => $_->[0]->manakai_local_name,
6144                                token => $token);
6145              last;              last;
6146            } else {            } else {
6147              !!!cp ('t404');              !!!cp ('t404');
# Line 6033  sub _tree_construction_main ($) { Line 6152  sub _tree_construction_main ($) {
6152          !!!next-token;          !!!next-token;
6153          redo B;          redo B;
6154        } elsif ($token->{tag_name} eq 'html') {        } elsif ($token->{tag_name} eq 'html') {
6155            ## TODO: Update this code.  It seems that the code below is not
6156            ## up-to-date, though it has same effect as speced.
6157          if (@{$self->{open_elements}} > 1 and $self->{open_elements}->[1]->[1] eq 'body') {          if (@{$self->{open_elements}} > 1 and $self->{open_elements}->[1]->[1] eq 'body') {
6158            ## ISSUE: There is an issue in the spec.            ## ISSUE: There is an issue in the spec.
6159            if ($self->{open_elements}->[-1]->[1] ne 'body') {            if ($self->{open_elements}->[-1]->[1] ne 'body') {
6160              !!!cp ('t406');              !!!cp ('t406');
6161              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[1]->[1]);              !!!parse-error (type => 'not closed',
6162                                value => $self->{open_elements}->[1]->[0]
6163                                    ->manakai_local_name,
6164                                token => $token);
6165            } else {            } else {
6166              !!!cp ('t407');              !!!cp ('t407');
6167            }            }
# Line 6046  sub _tree_construction_main ($) { Line 6170  sub _tree_construction_main ($) {
6170            redo B;            redo B;
6171          } else {          } else {
6172            !!!cp ('t408');            !!!cp ('t408');
6173            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6174            ## Ignore the token            ## Ignore the token
6175            !!!next-token;            !!!next-token;
6176            redo B;            redo B;
# Line 6077  sub _tree_construction_main ($) { Line 6201  sub _tree_construction_main ($) {
6201    
6202          unless (defined $i) { # has an element in scope          unless (defined $i) { # has an element in scope
6203            !!!cp ('t413');            !!!cp ('t413');
6204            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6205          } else {          } else {
6206            ## Step 1. generate implied end tags            ## Step 1. generate implied end tags
6207            while ({            while ({
# Line 6093  sub _tree_construction_main ($) { Line 6217  sub _tree_construction_main ($) {
6217            ## Step 2.            ## Step 2.
6218            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6219              !!!cp ('t412');              !!!cp ('t412');
6220              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);              !!!parse-error (type => 'not closed',
6221                                value => $self->{open_elements}->[-1]->[0]
6222                                    ->manakai_local_name,
6223                                token => $token);
6224            } else {            } else {
6225              !!!cp ('t414');              !!!cp ('t414');
6226            }            }
# Line 6131  sub _tree_construction_main ($) { Line 6258  sub _tree_construction_main ($) {
6258    
6259          unless (defined $i) { # has an element in scope          unless (defined $i) { # has an element in scope
6260            !!!cp ('t421');            !!!cp ('t421');
6261            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6262          } else {          } else {
6263            ## Step 1. generate implied end tags            ## Step 1. generate implied end tags
6264            while ({            while ({
# Line 6144  sub _tree_construction_main ($) { Line 6271  sub _tree_construction_main ($) {
6271            ## Step 2.            ## Step 2.
6272            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6273              !!!cp ('t417.1');              !!!cp ('t417.1');
6274              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);              !!!parse-error (type => 'not closed',
6275                                value => $self->{open_elements}->[-1]->[0]
6276                                    ->manakai_local_name,
6277                                token => $token);
6278            } else {            } else {
6279              !!!cp ('t420');              !!!cp ('t420');
6280            }              }  
# Line 6179  sub _tree_construction_main ($) { Line 6309  sub _tree_construction_main ($) {
6309    
6310          unless (defined $i) { # has an element in scope          unless (defined $i) { # has an element in scope
6311            !!!cp ('t425.1');            !!!cp ('t425.1');
6312            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6313          } else {          } else {
6314            ## Step 1. generate implied end tags            ## Step 1. generate implied end tags
6315            while ({            while ({
# Line 6192  sub _tree_construction_main ($) { Line 6322  sub _tree_construction_main ($) {
6322            ## Step 2.            ## Step 2.
6323            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6324              !!!cp ('t425');              !!!cp ('t425');
6325              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});              !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6326            } else {            } else {
6327              !!!cp ('t426');              !!!cp ('t426');
6328            }            }
# Line 6224  sub _tree_construction_main ($) { Line 6354  sub _tree_construction_main ($) {
6354          if (defined $i) {          if (defined $i) {
6355            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {            if ($self->{open_elements}->[-1]->[1] ne $token->{tag_name}) {
6356              !!!cp ('t412.1');              !!!cp ('t412.1');
6357              !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);              !!!parse-error (type => 'not closed',
6358                                value => $self->{open_elements}->[-1]->[0]
6359                                    ->manakai_local_name,
6360                                token => $token);
6361            } else {            } else {
6362              !!!cp ('t414.1');              !!!cp ('t414.1');
6363            }            }
# Line 6232  sub _tree_construction_main ($) { Line 6365  sub _tree_construction_main ($) {
6365            splice @{$self->{open_elements}}, $i;            splice @{$self->{open_elements}}, $i;
6366          } else {          } else {
6367            !!!cp ('t413.1');            !!!cp ('t413.1');
6368            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});            !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6369    
6370            !!!cp ('t415.1');            !!!cp ('t415.1');
6371            ## As if <p>, then reprocess the current token            ## As if <p>, then reprocess the current token
6372            my $el;            my $el;
6373            !!!create-element ($el, 'p');            !!!create-element ($el, 'p',, $token);
6374            $insert->($el);            $insert->($el);
6375            ## NOTE: Not inserted into |$self->{open_elements}|.            ## NOTE: Not inserted into |$self->{open_elements}|.
6376          }          }
# Line 6251  sub _tree_construction_main ($) { Line 6384  sub _tree_construction_main ($) {
6384                  strong => 1, tt => 1, u => 1,                  strong => 1, tt => 1, u => 1,
6385                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
6386          !!!cp ('t427');          !!!cp ('t427');
6387          $formatting_end_tag->($token->{tag_name});          $formatting_end_tag->($token);
6388          redo B;          redo B;
6389        } elsif ($token->{tag_name} eq 'br') {        } elsif ($token->{tag_name} eq 'br') {
6390          !!!cp ('t428');          !!!cp ('t428');
6391          !!!parse-error (type => 'unmatched end tag:br');          !!!parse-error (type => 'unmatched end tag:br', token => $token);
6392    
6393          ## As if <br>          ## As if <br>
6394          $reconstruct_active_formatting_elements->($insert_to_current);          $reconstruct_active_formatting_elements->($insert_to_current);
6395                    
6396          my $el;          my $el;
6397          !!!create-element ($el, 'br');          !!!create-element ($el, 'br',, $token);
6398          $insert->($el);          $insert->($el);
6399                    
6400          ## Ignore the token.          ## Ignore the token.
# Line 6280  sub _tree_construction_main ($) { Line 6413  sub _tree_construction_main ($) {
6413                  noscript => 0, ## TODO: if scripting is enabled                  noscript => 0, ## TODO: if scripting is enabled
6414                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
6415          !!!cp ('t429');          !!!cp ('t429');
6416          !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});          !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6417          ## Ignore the token          ## Ignore the token
6418          !!!next-token;          !!!next-token;
6419          redo B;          redo B;
# Line 6309  sub _tree_construction_main ($) { Line 6442  sub _tree_construction_main ($) {
6442              if ($token->{tag_name} ne $self->{open_elements}->[-1]->[1]) {              if ($token->{tag_name} ne $self->{open_elements}->[-1]->[1]) {
6443                !!!cp ('t431');                !!!cp ('t431');
6444                ## NOTE: <x><y></x>                ## NOTE: <x><y></x>
6445                !!!parse-error (type => 'not closed:'.$self->{open_elements}->[-1]->[1]);                !!!parse-error (type => 'not closed',
6446                                  value => $self->{open_elements}->[-1]->[0]
6447                                      ->manakai_local_name,
6448                                  token => $token);
6449              } else {              } else {
6450                !!!cp ('t432');                !!!cp ('t432');
6451              }              }
# Line 6326  sub _tree_construction_main ($) { Line 6462  sub _tree_construction_main ($) {
6462                  ($special_category->{$node->[1]} or                  ($special_category->{$node->[1]} or
6463                   $scoping_category->{$node->[1]})) {                   $scoping_category->{$node->[1]})) {
6464                !!!cp ('t433');                !!!cp ('t433');
6465                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name});                !!!parse-error (type => 'unmatched end tag:'.$token->{tag_name}, token => $token);
6466                ## Ignore the token                ## Ignore the token
6467                !!!next-token;                !!!next-token;
6468                last S2;                last S2;
# Line 6391  sub set_inner_html ($$$) { Line 6527  sub set_inner_html ($$$) {
6527    
6528      ## Step 8 # MUST      ## Step 8 # MUST
6529      my $i = 0;      my $i = 0;
6530      my $line = 1;      $p->{line_prev} = $p->{line} = 1;
6531      my $column = 0;      $p->{column_prev} = $p->{column} = 0;
6532      $p->{set_next_char} = sub {      $p->{set_next_char} = sub {
6533        my $self = shift;        my $self = shift;
6534    
# Line 6401  sub set_inner_html ($$$) { Line 6537  sub set_inner_html ($$$) {
6537    
6538        $self->{next_char} = -1 and return if $i >= length $$s;        $self->{next_char} = -1 and return if $i >= length $$s;
6539        $self->{next_char} = ord substr $$s, $i++, 1;        $self->{next_char} = ord substr $$s, $i++, 1;
6540        $column++;  
6541          ($p->{line_prev}, $p->{column_prev}) = ($p->{line}, $p->{column});
6542          $p->{column}++;
6543    
6544        if ($self->{next_char} == 0x000A) { # LF        if ($self->{next_char} == 0x000A) { # LF
6545          $line++;          $p->{line}++;
6546          $column = 0;          $p->{column} = 0;
6547          !!!cp ('i1');          !!!cp ('i1');
6548        } elsif ($self->{next_char} == 0x000D) { # CR        } elsif ($self->{next_char} == 0x000D) { # CR
6549          $i++ if substr ($$s, $i, 1) eq "\x0A";          $i++ if substr ($$s, $i, 1) eq "\x0A";
6550          $self->{next_char} = 0x000A; # LF # MUST          $self->{next_char} = 0x000A; # LF # MUST
6551          $line++;          $p->{line}++;
6552          $column = 0;          $p->{column} = 0;
6553          !!!cp ('i2');          !!!cp ('i2');
6554        } elsif ($self->{next_char} > 0x10FFFF) {        } elsif ($self->{next_char} > 0x10FFFF) {
6555          $self->{next_char} = 0xFFFD; # REPLACEMENT CHARACTER # MUST          $self->{next_char} = 0xFFFD; # REPLACEMENT CHARACTER # MUST
# Line 6427  sub set_inner_html ($$$) { Line 6565  sub set_inner_html ($$$) {
6565            
6566      my $ponerror = $onerror || sub {      my $ponerror = $onerror || sub {
6567        my (%opt) = @_;        my (%opt) = @_;
6568        warn "Parse error ($opt{type}) at line $opt{line} column $opt{column}\n";        my $line = $opt{line};
6569          my $column = $opt{column};
6570          if (defined $opt{token} and defined $opt{token}->{line}) {
6571            $line = $opt{token}->{line};
6572            $column = $opt{token}->{column};
6573          }
6574          warn "Parse error ($opt{type}) at line $line column $column\n";
6575      };      };
6576      $p->{parse_error} = sub {      $p->{parse_error} = sub {
6577        $ponerror->(@_, line => $line, column => $column);        $ponerror->(line => $p->{line}, column => $p->{column}, @_);
6578      };      };
6579            
6580      $p->_initialize_tokenizer;      $p->_initialize_tokenizer;
# Line 6510  sub set_inner_html ($$$) { Line 6654  sub set_inner_html ($$$) {
6654      ## ISSUE: mutation events?      ## ISSUE: mutation events?
6655    
6656      $p->_terminate_tree_constructor;      $p->_terminate_tree_constructor;
6657    
6658        delete $p->{parse_error}; # delete loop
6659    } else {    } else {
6660      die "$0: |set_inner_html| is not defined for node of type $nt";      die "$0: |set_inner_html| is not defined for node of type $nt";
6661    }    }
Legend:
Removed from v.1.111  
changed lines
  Added in v.1.122
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24