/[suikacvs]/markup/html/whatpm/Whatpm/HTML.pm.src

Diff of /markup/html/whatpm/Whatpm/HTML.pm.src

Parent Directory | Revision Log | View Patch Patch

-revision 1.9 by wakaba,
Sat Jun 23 02:41:51 2007 UTC
+revision 1.11 by wakaba,
Sat Jun 23 03:53:35 2007 UTC
 Line 280 
 my $entity_char = {
    zwnj => "\x{200C}",
  }; # $entity_char
- ## TODO: Ensure that this table match to <http://html5.org/tools/web-apps-tracker?from=868&to=869>.
- ## <http://lists.whatwg.org/pipermail/whatwg-whatwg.org/2006-December/thread.html#8562>
  my $c1_entity_char = {
-, 8364,
+x80 => 0x20AC,
-, 65533,
+x81 => 0xFFFD,
-, 8218,
+x82 => 0x201A,
-, 402,
+x83 => 0x0192,
-, 8222,
+x84 => 0x201E,
-, 8230,
+x85 => 0x2026,
-, 8224,
+x86 => 0x2020,
-, 8225,
+x87 => 0x2021,
-, 710,
+x88 => 0x02C6,
-, 8240,
+x89 => 0x2030,
-, 352,
+x8A => 0x0160,
-, 8249,
+x8B => 0x2039,
-, 338,
+x8C => 0x0152,
-, 65533,
+x8D => 0xFFFD,
-, 381,
+x8E => 0x017D,
-, 65533,
+x8F => 0xFFFD,
-, 65533,
+x90 => 0xFFFD,
-, 8216,
+x91 => 0x2018,
-, 8217,
+x92 => 0x2019,
-, 8220,
+x93 => 0x201C,
-, 8221,
+x94 => 0x201D,
-, 8226,
+x95 => 0x2022,
-, 8211,
+x96 => 0x2013,
-, 8212,
+x97 => 0x2014,
-, 732,
+x98 => 0x02DC,
-, 8482,
+x99 => 0x2122,
-, 353,
+x9A => 0x0161,
-, 8250,
+x9B => 0x203A,
-, 339,
+x9C => 0x0153,
-, 65533,
+x9D => 0xFFFD,
-, 382,
+x9E => 0x017E,
-, 376,
+x9F => 0x0178,
  }; # $c1_entity_char
  my $special_category = {
-Line 376 
 sub parse_string ($$$;$) {
+Line 374 
 sub parse_string ($$$;$) {
        $self->{next_input_character} = 0xFFFD; # REPLACEMENT CHARACTER # MUST
      } elsif ($self->{next_input_character} == 0x0000) { # NULL
        !!!parse-error (type => 'NULL');
- ## TODO: test
        $self->{next_input_character} = 0xFFFD; # REPLACEMENT CHARACTER # MUST
      }
    };
-Line 447 
 sub _initialize_tokenizer ($) {
+Line 444 
 sub _initialize_tokenizer ($) {
  ## has completed loading.  If one has, then it MUST be executed
  ## and removed from the list.
- ## ISSUE: <http://html5.org/tools/web-apps-tracker?from=874&to=876>
  sub _get_next_token ($) {
    my $self = shift;
    if (@{$self->{token}}) {
-Line 2737 
 sub _tree_construction_main ($) {
+Line 2732 
 sub _tree_construction_main ($) {
              $token->{tag_name} eq $tag_name) {
            ## Ignore the token
          } else {
-           if ($token->{tag_name} eq 'textarea') { ## TODO: This is incorrect maybe
+           if ($token->{tag_name} eq 'textarea') {
- ## TODO: <http://html5.org/tools/web-apps-tracker?from=866&to=867>
-             !!!parse-error (type => 'in CDATA:#'.$token->{type});
-           } else {
              !!!parse-error (type => 'in RCDATA:#'.$token->{type});
+           } else {
+             !!!parse-error (type => 'in CDATA:#'.$token->{type});
            }
            ## ISSUE: And ignore?
          }

 Legend:



Removed from v.1.9
 


changed lines


 
Added in v.1.11
 Legend:



Removed from v.1.9
 


changed lines


 
Added in v.1.11
-Removed from v.1.9
+Added in v.1.11

[email protected]	ViewVC Help
Powered by ViewVC 1.1.24