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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.230 by wakaba, Sun Sep 6 02:20:52 2009 UTC revision 1.231 by wakaba, Sun Sep 6 08:15:37 2009 UTC
# Line 248  my $el_category = { Line 248  my $el_category = {
248    u => FORMATTING_EL,    u => FORMATTING_EL,
249    ul => MISC_SPECIAL_EL,    ul => MISC_SPECIAL_EL,
250    wbr => MISC_SPECIAL_EL,    wbr => MISC_SPECIAL_EL,
251      xmp => MISC_SPECIAL_EL,
252  };  };
253    
254  my $el_category_f = {  my $el_category_f = {
# Line 648  sub parse_char_stream ($$$;$$) { Line 649  sub parse_char_stream ($$$;$$) {
649    
650    ## NOTE: |set_inner_html| copies most of this method's code    ## NOTE: |set_inner_html| copies most of this method's code
651    
652      ## Confidence: irrelevant.
653    $self->{confident} = 1 unless exists $self->{confident};    $self->{confident} = 1 unless exists $self->{confident};
654    
655    $self->{document}->input_encoding ($self->{input_encoding})    $self->{document}->input_encoding ($self->{input_encoding})
656        if defined $self->{input_encoding};        if defined $self->{input_encoding};
657  ## TODO: |{input_encoding}| is needless?  ## TODO: |{input_encoding}| is needless?
# Line 6558  sub set_inner_html ($$$$;$) { Line 6561  sub set_inner_html ($$$$;$) {
6561    my $onerror = $_[1];    my $onerror = $_[1];
6562    my $get_wrapper = $_[2] || sub ($) { return $_[0] };    my $get_wrapper = $_[2] || sub ($) { return $_[0] };
6563    
   ## ISSUE: Should {confident} be true?  
   
6564    my $nt = $node->node_type;    my $nt = $node->node_type;
6565    if ($nt == 9) { # Document (invoke the algorithm with no /context/ element)    if ($nt == 9) { # Document (invoke the algorithm with no /context/ element)
6566      # MUST      # MUST
# Line 6774  sub set_inner_html ($$$$;$) { Line 6775  sub set_inner_html ($$$$;$) {
6775        $anode = $anode->parent_node;        $anode = $anode->parent_node;
6776      } # AN      } # AN
6777    
6778        ## F.5. Set the input stream.
6779        $p->{confident} = 1; ## Confident: irrelevant.
6780    
6781      ## F.6. Start the parser.      ## F.6. Start the parser.
6782      {      {
6783        my $self = $p;        my $self = $p;
Legend:
Removed from v.1.230  
changed lines
  Added in v.1.231
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24