/[suikacvs]/test/html-webhacc/WebHACC/Language/HTML.pm
Suika

Diff of /test/html-webhacc/WebHACC/Language/HTML.pm

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

revision 1.2 by wakaba, Sun Jul 20 16:53:10 2008 UTC revision 1.6 by wakaba, Fri Aug 15 05:53:23 2008 UTC
# Line 3  use strict; Line 3  use strict;
3  require WebHACC::Language::DOM;  require WebHACC::Language::DOM;
4  push our @ISA, 'WebHACC::Language::DOM';  push our @ISA, 'WebHACC::Language::DOM';
5    
 require Message::DOM::DOMImplementation;  
   
6  sub new ($) {  sub new ($) {
7    return bless {}, shift;    return bless {}, shift;
8  } # new  } # new
# Line 12  sub new ($) { Line 10  sub new ($) {
10  sub generate_syntax_error_section ($) {  sub generate_syntax_error_section ($) {
11    my $self = shift;    my $self = shift;
12        
13      require Message::DOM::DOMImplementation;
14    require Encode;    require Encode;
15    require Whatpm::HTML;    require Whatpm::HTML;
16        
17      $self->result->layer_uncertain ('charset');
18    
19    my $out = $self->output;    my $out = $self->output;
20    $out->start_section (id => 'parse-errors', title => 'Parse Errors');    $out->start_section (role => 'parse-errors');
21    $out->start_tag (id => 'parse-errors-list');    $out->start_error_list (role => 'parse-errors');
22      $self->result->layer_applicable ('syntax');
23    
24    my $input = $self->input;    my $input = $self->input;
25    my $result = $self->result;    my $result = $self->result;
# Line 35  sub generate_syntax_error_section ($) { Line 37  sub generate_syntax_error_section ($) {
37      my $t = \($input->{s});      my $t = \($input->{s});
38      unless ($input->{is_char_string}) {      unless ($input->{is_char_string}) {
39        $t = \(Encode::decode ($input->{charset}, $$t));        $t = \(Encode::decode ($input->{charset}, $$t));
40          $self->result->layer_uncertain ('encode');
41      }      }
42            
43      $el = $doc->create_element_ns      $el = $doc->create_element_ns
# Line 48  sub generate_syntax_error_section ($) { Line 51  sub generate_syntax_error_section ($) {
51      } else {      } else {
52        Whatpm::HTML->parse_byte_string        Whatpm::HTML->parse_byte_string
53            ($input->{charset}, $input->{s} => $doc, $onerror);            ($input->{charset}, $input->{s} => $doc, $onerror);
54          $self->result->layer_uncertain ('encode');
55      }      }
56    
57      $self->{structure} = $doc;      $self->{structure} = $doc;
# Line 58  sub generate_syntax_error_section ($) { Line 62  sub generate_syntax_error_section ($) {
62    $doc->document_uri ($input->{uri});    $doc->document_uri ($input->{uri});
63    $doc->manakai_entity_base_uri ($input->{base_uri});    $doc->manakai_entity_base_uri ($input->{base_uri});
64    
65    $out->end_tag ('dl');    $out->end_error_list (role => 'parse-errors');
66    $out->end_section;    $out->end_section;
67  } # generate_syntax_error_section  } # generate_syntax_error_section
68    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24