/[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.69 by wakaba, Sun Feb 17 12:39:32 2008 UTC revision 1.70 by wakaba, Sat Mar 1 00:42:52 2008 UTC
# Line 14  use Error qw(:try); Line 14  use Error qw(:try);
14  ## "{U+FEFF}..." in UTF-16BE/UTF-16LE is three or four characters?  ## "{U+FEFF}..." in UTF-16BE/UTF-16LE is three or four characters?
15  ## "{U+FEFF}..." in GB18030?  ## "{U+FEFF}..." in GB18030?
16    
17    ## TODO: Control charcters and noncharacters are not allowed (HTML5 revision 1263)
18    ## TODO: 1252 parse error (revision 1264)
19    ## TODO: 8859-11 = 874 (revision 1271)
20    
21  my $permitted_slash_tag_name = {  my $permitted_slash_tag_name = {
22    base => 1,    base => 1,
23    link => 1,    link => 1,
# Line 2925  sub _tree_construction_main ($) { Line 2929  sub _tree_construction_main ($) {
2929                  } elsif ($token->{attributes}->{content}) {                  } elsif ($token->{attributes}->{content}) {
2930                    ## ISSUE: Algorithm name in the spec was incorrect so that not linked to the definition.                    ## ISSUE: Algorithm name in the spec was incorrect so that not linked to the definition.
2931                    if ($token->{attributes}->{content}->{value}                    if ($token->{attributes}->{content}->{value}
2932                        =~ /\A[^;]*;[\x09-\x0D\x20]*charset[\x09-\x0D\x20]*=                        =~ /\A[^;]*;[\x09-\x0D\x20]*[Cc][Hh][Aa][Rr][Ss][Ee][Tt]
2933                              [\x09-\x0D\x20]*=
2934                            [\x09-\x0D\x20]*(?>"([^"]*)"|'([^']*)'|                            [\x09-\x0D\x20]*(?>"([^"]*)"|'([^']*)'|
2935                            ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {                            ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {
2936                      $self->{change_encoding}                      $self->{change_encoding}
# Line 4535  sub _tree_construction_main ($) { Line 4540  sub _tree_construction_main ($) {
4540            } elsif ($token->{attributes}->{content}) {            } elsif ($token->{attributes}->{content}) {
4541              ## ISSUE: Algorithm name in the spec was incorrect so that not linked to the definition.              ## ISSUE: Algorithm name in the spec was incorrect so that not linked to the definition.
4542              if ($token->{attributes}->{content}->{value}              if ($token->{attributes}->{content}->{value}
4543                  =~ /\A[^;]*;[\x09-\x0D\x20]*charset[\x09-\x0D\x20]*=                  =~ /\A[^;]*;[\x09-\x0D\x20]*[Cc][Hh][Aa][Rr][Ss][Ee][Tt]
4544                        [\x09-\x0D\x20]*=
4545                      [\x09-\x0D\x20]*(?>"([^"]*)"|'([^']*)'|                      [\x09-\x0D\x20]*(?>"([^"]*)"|'([^']*)'|
4546                      ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {                      ([^"'\x09-\x0D\x20][^\x09-\x0D\x20]*))/x) {
4547                $self->{change_encoding}                $self->{change_encoding}
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24