/[suikacvs]/test/html-whatpm/parser-manakai.cgi
Suika

Diff of /test/html-whatpm/parser-manakai.cgi

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

revision 1.1 by wakaba, Thu Jun 21 14:54:14 2007 UTC revision 1.4 by wakaba, Sun Jul 15 06:14:30 2007 UTC
# Line 13  my $http = SuikaWiki::Input::HTTP->new; Line 13  my $http = SuikaWiki::Input::HTTP->new;
13    
14  ## TODO: _charset_  ## TODO: _charset_
15    
16  my $mode = $http->meta_variable ('PATH_INFO');  my @mode = split m#/#, scalar $http->meta_variable ('PATH_INFO'), -1;
17    shift @mode if @mode and $mode[0] == '';
18  ## TODO: decode unreserved characters  ## TODO: decode unreserved characters
19    
20    my $s = $http->parameter ('s');    my $s = $http->parameter ('s');
# Line 27  my $mode = $http->meta_variable ('PATH_I Line 28  my $mode = $http->meta_variable ('PATH_I
28    my $time2;    my $time2;
29    
30    require Message::DOM::DOMImplementation;    require Message::DOM::DOMImplementation;
31    my $dom = Message::DOM::DOMImplementation->____new;    my $dom = Message::DOM::DOMImplementation->new;
32    $| = 1;  #  $| = 1;
33    my $doc;    my $doc;
34      my $el;
35    
36  if ($mode eq '/html/html' or $mode eq '/html/test') {  if (@mode == 3 and $mode[0] eq 'html' and
37        ($mode[2] eq 'html' or $mode[2] eq 'test')) {
38    print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";    print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";
39    
40    require Encode;    require Encode;
# Line 50  if ($mode eq '/html/html' or $mode eq '/ Line 53  if ($mode eq '/html/html' or $mode eq '/
53      print STDOUT "$opt{line},$opt{column},$opt{type}\n";      print STDOUT "$opt{line},$opt{column},$opt{type}\n";
54    };    };
55    
56      $doc = $dom->create_document;
57      $doc->manakai_is_html (1);
58    $time1 = time;    $time1 = time;
59    $doc = Whatpm::HTML->parse_string ($s => $dom->create_document, $onerror);    if (length $mode[1]) {
60        $el = $doc->create_element_ns
61            ('http://www.w3.org/1999/xhtml', [undef, $mode[1]]);
62        Whatpm::HTML->set_inner_html ($el, $s, $onerror);
63      } else {
64        Whatpm::HTML->parse_string ($s => $doc, $onerror);
65      }
66    $time2 = time;    $time2 = time;
67    $time{parse} = $time2 - $time1;    $time{parse} = $time2 - $time1;
68    
69    print "#document\n";    print "#document\n";
70    
71    my $out;    my $out;
72    $time1 = time;    if ($mode[2] eq 'html') {
73    if ($mode eq '/html/html') {      $time1 = time;
74      $out = Whatpm::HTML->get_inner_html ($doc);      $out = \( ($el or $doc)->inner_html );
75        $time2 = time;
76        $time{serialize_html} = $time2 - $time1;
77    } else { # test    } else { # test
78      $out = test_serialize ($doc);      $time1 = time;
79        $out = test_serialize ($el || $doc);
80        $time2 = time;
81        $time{serialize_test} = $time2 - $time1;
82    }    }
   $time2 = time;  
   $time{serialize} = $time2 - $time1;  
83    print STDOUT Encode::encode ('utf-8', $$out);    print STDOUT Encode::encode ('utf-8', $$out);
84    print STDOUT "\n";    print STDOUT "\n";
85  } elsif ($mode eq '/xhtml/html' or $mode eq '/xhtml/test') {  } elsif (@mode == 3 and $mode[0] eq 'xhtml' and
86             ($mode[2] eq 'html' or $mode[2] eq 'test')) {
87    print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";    print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";
88    
89    require Message::DOM::XMLParserTemp;    require Message::DOM::XMLParserTemp;
# Line 77  if ($mode eq '/html/html' or $mode eq '/ Line 92  if ($mode eq '/html/html' or $mode eq '/
92    my $onerror = sub {    my $onerror = sub {
93      my $err = shift;      my $err = shift;
94      print STDOUT $err->location->line_number, ",";      print STDOUT $err->location->line_number, ",";
95      print STDOUT $err->location->column_number, " ";      print STDOUT $err->location->column_number, ",";
96      print STDOUT $err->text, "\n";      print STDOUT $err->text, "\n";
97      return 1;      return 1;
98    };    };
# Line 92  if ($mode eq '/html/html' or $mode eq '/ Line 107  if ($mode eq '/html/html' or $mode eq '/
107    print "#document\n";    print "#document\n";
108    
109    my $out;    my $out;
110    if ($mode eq '/xhtml/html') {    if ($mode[2] eq 'html') {
111      ## TODO: Use XHTML serializer      $time1 = time;
112      #$out = Whatpm::HTML->get_inner_html ($doc);      $out = \( $doc->inner_html ); ## TODO: $el case
113        $time2 = time;
114        $time{serialize_xml} = $time2 - $time1;
115    } else { # test    } else { # test
116      $time1 = time;      $time1 = time;
117      $out = test_serialize ($doc);      $out = test_serialize ($doc);
# Line 110  if ($mode eq '/html/html' or $mode eq '/ Line 127  if ($mode eq '/html/html' or $mode eq '/
127    
128    if ($http->parameter ('dom5')) {    if ($http->parameter ('dom5')) {
129      require Whatpm::ContentChecker;      require Whatpm::ContentChecker;
130      print STDOUT "#domerrors\n";      my $onerror = sub {
     $time1 = time;  
     Whatpm::ContentChecker->check_document ($doc, sub {  
131        my %opt = @_;        my %opt = @_;
132        print STDOUT get_node_path ($opt{node}) . ';' . $opt{type} . "\n";        print STDOUT get_node_path ($opt{node}) . ';' . $opt{type} . "\n";
133      });      };
134        print STDOUT "#domerrors\n";
135        $time1 = time;
136        if ($el) {
137          Whatpm::ContentChecker->check_element ($el, $onerror);
138        } else {
139          Whatpm::ContentChecker->check_document ($doc, $onerror);
140        }
141      $time2 = time;      $time2 = time;
142      $time{check} = $time2 - $time1;      $time{check} = $time2 - $time1;
143    }    }
# Line 128  if ($mode eq '/html/html' or $mode eq '/ Line 150  if ($mode eq '/html/html' or $mode eq '/
150        decode => 'bytes->chars',        decode => 'bytes->chars',
151        parse => 'html5(chars)->dom5',        parse => 'html5(chars)->dom5',
152        parse_xml => 'xml1(chars)->dom5',        parse_xml => 'xml1(chars)->dom5',
153        serialize_html => 'dom5->html5',        serialize_html => 'dom5->html5(char)',
154        serialize_xml => 'dom5->xml',        serialize_xml => 'dom5->xml1(char)',
155        serialize_test => 'dom5->test',        serialize_test => 'dom5->test(char)',
156        check => 'dom5 check',        check => 'dom5 check',
157      }->{$_};      }->{$_};
158      print STDOUT "\t", $time{$_}, "s\n";      print STDOUT "\t", $time{$_}, "s\n";
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24