/[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.43 by wakaba, Sat Jul 21 07:21:44 2007 UTC revision 1.44 by wakaba, Sat Jul 21 07:34:32 2007 UTC
# Line 3046  sub _tree_construction_main ($) { Line 3046  sub _tree_construction_main ($) {
3046                  noframes => 1,                  noframes => 1,
3047                  noscript => 0, ## TODO: 1 if scripting is enabled                  noscript => 0, ## TODO: 1 if scripting is enabled
3048                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
3049            ## NOTE: There are two "as if in body" code clones.
3050          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);          $parse_rcdata->(CDATA_CONTENT_MODEL, $insert);
3051          return;          return;
3052        } elsif ($token->{tag_name} eq 'select') {        } elsif ($token->{tag_name} eq 'select') {
# Line 5073  sub _tree_construction_main ($) { Line 5074  sub _tree_construction_main ($) {
5074            !!!next-token;            !!!next-token;
5075            redo B;            redo B;
5076          } elsif ($token->{tag_name} eq 'noframes') {          } elsif ($token->{tag_name} eq 'noframes') {
5077            $in_body->($insert_to_current);            ## NOTE: As if in body.
5078              $parse_rcdata->(CDATA_CONTENT_MODEL, $insert_to_current);
5079            redo B;            redo B;
5080          } else {          } else {
5081            !!!parse-error (type => 'in frameset:'.$token->{tag_name});            !!!parse-error (type => 'in frameset:'.$token->{tag_name});
# Line 5133  sub _tree_construction_main ($) { Line 5135  sub _tree_construction_main ($) {
5135          die qq[$0: Character "$token->{data}"];          die qq[$0: Character "$token->{data}"];
5136        } elsif ($token->{type} eq 'start tag') {        } elsif ($token->{type} eq 'start tag') {
5137          if ($token->{tag_name} eq 'noframes') {          if ($token->{tag_name} eq 'noframes') {
5138            $in_body->($insert_to_current);            ## NOTE: As if in body.
5139              $parse_rcdata->(CDATA_CONTENT_MODEL, $insert_to_current);
5140            redo B;            redo B;
5141          } else {          } else {
5142            !!!parse-error (type => 'after frameset:'.$token->{tag_name});            !!!parse-error (type => 'after frameset:'.$token->{tag_name});
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24