/[suikacvs]/markup/html/whatpm/Whatpm/SWML/Parser.pm
Suika

Diff of /markup/html/whatpm/Whatpm/SWML/Parser.pm

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

revision 1.2 by wakaba, Thu Nov 6 12:32:23 2008 UTC revision 1.9 by wakaba, Fri Nov 14 08:04:16 2008 UTC
# Line 50  sub parse_char_string ($$$;$) { Line 50  sub parse_char_string ($$$;$) {
50    my @s = split /\x0D\x0A?|\x0A/, ref $_[0] ? ${$_[0]} : $_[0], -1;    my @s = split /\x0D\x0A?|\x0A/, ref $_[0] ? ${$_[0]} : $_[0], -1;
51    
52    my $doc = $_[1];    my $doc = $_[1];
53    $doc->inner_html    @{$doc->child_nodes} = ();
54        ('<html xmlns="http://www.w3.org/1999/xhtml"><head/><body/></html>');    my $html_el = $doc->create_element_ns (HTML_NS, [undef, 'html']);
55    for ($doc,    $doc->append_child ($html_el);
56         $doc->document_element,    $html_el->set_attribute_ns
57         $doc->document_element->first_child,        ('http://www.w3.org/2000/xmlns/', [undef, 'xmlns'] => HTML_NS);
58         $doc->document_element->last_child) {    my $head_el = $doc->create_element_ns (HTML_NS, [undef, 'head']);
59      $html_el->append_child ($head_el);
60      my $body_el = $doc->create_element_ns (HTML_NS, [undef, 'body']);
61      $html_el->append_child ($body_el);
62      for ($doc, $html_el, $head_el, $body_el) {
63      $_->set_user_data (manakai_source_line => 1);      $_->set_user_data (manakai_source_line => 1);
64      $_->set_user_data (manakai_source_column => 1);      $_->set_user_data (manakai_source_column => 1);
65    }    }
# Line 88  sub parse_char_string ($$$;$) { Line 92  sub parse_char_string ($$$;$) {
92    my $tokenize_text = sub {    my $tokenize_text = sub {
93      my $s = shift; # ref      my $s = shift; # ref
94    
95        my $nest_level = 0;
96    
97      if ($$s =~ s/^\[([0-9]+)\]//) {      if ($$s =~ s/^\[([0-9]+)\]//) {
98        push @nt, {type => ELEMENT_TOKEN,        push @nt, {type => ELEMENT_TOKEN,
99                   local_name => 'anchor-end', namespace => SW09_NS,                   local_name => 'anchor-end', namespace => SW09_NS,
# Line 113  sub parse_char_string ($$$;$) { Line 119  sub parse_char_string ($$$;$) {
119              push @param, $n;              push @param, $n;
120              $column++ if $$s =~ s/\A\\\z//;              $column++ if $$s =~ s/\A\\\z//;
121              $column++ if $$s =~ s/^'//;              $column++ if $$s =~ s/^'//;
122            } elsif ($$s =~ s/^([^':][^:]*)//) {            } elsif ($$s =~ s/^([^':\]][^:\]]*)//) {
123              $column += 1 + $+[0] - $-[0];              $column += 1 + $+[0] - $-[0];
124              push @param, $1;              push @param, $1;
125            }            }
# Line 124  sub parse_char_string ($$$;$) { Line 130  sub parse_char_string ($$$;$) {
130        } elsif ($$s =~ s/^\[\[//) {        } elsif ($$s =~ s/^\[\[//) {
131          push @nt, {type => INLINE_START_TAG_TOKEN};          push @nt, {type => INLINE_START_TAG_TOKEN};
132          $column += 2;          $column += 2;
133        } elsif ($$s =~ s/^\[([A-Z]+)(?>\(([^()\\]*)\))?(?>\@[0-9A-Za-z-]*)?\[//) {          $nest_level++;
134          } elsif ($$s =~ s/^\[([A-Z]+)(?>\(([^()\\]*)\))?(?>\@([0-9A-Za-z-]*))?\[//) {
135          push @nt, {type => INLINE_START_TAG_TOKEN,          push @nt, {type => INLINE_START_TAG_TOKEN,
136                     tag_name => $1, classes => $2, language => $3,                     tag_name => $1, classes => $2, language => $3,
137                     line => $line, column => $column};                     line => $line, column => $column};
138          $column += $+[0] - $-[0];          $column += $+[0] - $-[0];
139            $nest_level++;
140        } elsif ($$s =~ s/^\]\]//) {        } elsif ($$s =~ s/^\]\]//) {
141          push @nt, {type => INLINE_END_TAG_TOKEN,          push @nt, {type => INLINE_END_TAG_TOKEN,
142                     line => $line, column => $column};                     line => $line, column => $column};
143          $column += 2;          $column += 2;
144            $nest_level-- if $nest_level > 0;
145        } elsif ($$s =~ s/^(\]?)<([0-9A-Za-z%+._-]+)://) {        } elsif ($$s =~ s/^(\]?)<([0-9A-Za-z%+._-]+)://) {
146          my $t = {type => $1 ? INLINE_END_TAG_TOKEN : ELEMENT_TOKEN,          my $t = {type => $1 ? INLINE_END_TAG_TOKEN : ELEMENT_TOKEN,
147                   res_scheme => $2, res_parameter => '',                   res_scheme => $2, res_parameter => '',
# Line 147  sub parse_char_string ($$$;$) { Line 156  sub parse_char_string ($$$;$) {
156              $t->{res_parameter} .= $1;              $t->{res_parameter} .= $1;
157              $column += $+[0] - $-[0];              $column += $+[0] - $-[0];
158              $column++ if $$s =~ s/\A\\\z//;              $column++ if $$s =~ s/\A\\\z//;
159              $column++ if $$s =~ s/^"//;              $t->{res_parameter} .= '"' and $column++ if $$s =~ s/^"//;
160            } else {            } else {
161              last;              last;
162            }            }
# Line 163  sub parse_char_string ($$$;$) { Line 172  sub parse_char_string ($$$;$) {
172                    
173          if ($t->{type} == INLINE_END_TAG_TOKEN) {          if ($t->{type} == INLINE_END_TAG_TOKEN) {
174            $column++ if $$s =~ s/^\]//;            $column++ if $$s =~ s/^\]//;
175              $nest_level-- if $nest_level > 0;
176          } else {          } else {
177            $t->{local_name} = 'anchor-external';            $t->{local_name} = 'anchor-external';
178            $t->{namespace} = SW09_NS;            $t->{namespace} = SW09_NS;
# Line 173  sub parse_char_string ($$$;$) { Line 183  sub parse_char_string ($$$;$) {
183                     anchor => $1,                     anchor => $1,
184                   line => $line, column => $column};                   line => $line, column => $column};
185          $column += $+[0] - $-[0];          $column += $+[0] - $-[0];
186        } elsif ($$s =~ s/^\][\x09\x20]*(?>\@([0-9a-zA-Z-]*))?\[//) {          $nest_level-- if $nest_level > 0;
187          } elsif ($nest_level > 0 and
188                   $$s =~ s/^\][\x09\x20]*(?>\@([0-9a-zA-Z-]*))?\[//) {
189          push @nt, {type => INLINE_MIDDLE_TAG_TOKEN,          push @nt, {type => INLINE_MIDDLE_TAG_TOKEN,
190                     language => $1,                     language => $1,
191                     line => $line, column => $column};                     line => $line, column => $column};
192          $column += $+[0] - $-[0];          $column += $+[0] - $-[0];
193        } elsif ($$s =~ s/\^''('?)//) {        } elsif ($$s =~ s/^''('?)//) {
194          push @nt, {type => $1 ? STRONG_TOKEN : EMPHASIS_TOKEN,          push @nt, {type => $1 ? STRONG_TOKEN : EMPHASIS_TOKEN,
195                     line => $line, column => $column};                     line => $line, column => $column};
196          $column += $+[0] - $-[0];          $column += $+[0] - $-[0];
197        } elsif ($$s =~ s/^>>([0-9]+)//) {        } elsif ($$s =~ s/^>>([0-9]+)//) {
198          push @nt, {type => ELEMENT_TOKEN,          push @nt, {type => ELEMENT_TOKEN,
199                     local_name => 'anchor-internal', namespace => SW09_NS,                     local_name => 'anchor-internal', namespace => SW09_NS,
200                     anchor => $1,                     anchor => $1, content => '>>' . $1,
201                     line => $line, column => $column};                     line => $line, column => $column};
202          $column += $+[0] - $-[0];          $column += $+[0] - $-[0];
203        } elsif ($$s =~ s/^__&&//) {        } elsif ($$s =~ s/^__&&//) {
# Line 201  sub parse_char_string ($$$;$) { Line 213  sub parse_char_string ($$$;$) {
213                       line => $line, column => $column};                       line => $line, column => $column};
214            $column += 4;            $column += 4;
215          }          }
216        } elsif ($$s =~ s/^([^<>\['_]+)//) {        } elsif ($$s =~ s/^([^<>\[\]'_]+)//) {
217          push @nt, {type => CHARACTER_TOKEN, data => $1,          push @nt, {type => CHARACTER_TOKEN, data => $1,
218                     line => $line, column => $column};                     line => $line, column => $column};
219          $column += $+[0] - $-[0];          $column += $+[0] - $-[0];
# Line 254  sub parse_char_string ($$$;$) { Line 266  sub parse_char_string ($$$;$) {
266          }          }
267        }        }
268        return shift @nt;        return shift @nt;
269      } elsif ($s =~ s/^(\*+)\s*//) {      } elsif ($s =~ s/^(\*+)[\x09\x20]*//) {
270        push @nt, {type => HEADING_START_TOKEN, depth => length $1,        push @nt, {type => HEADING_START_TOKEN, depth => length $1,
271                   line => $line, column => $column};                   line => $line, column => $column};
272        $column += $+[0] - $-[0];        $column += $+[0] - $-[0];
# Line 263  sub parse_char_string ($$$;$) { Line 275  sub parse_char_string ($$$;$) {
275                   line => $line, column => $column};                   line => $line, column => $column};
276        undef $continuous_line;        undef $continuous_line;
277        return shift @nt;        return shift @nt;
278      } elsif ($s =~ s/^([-=]+)\s*//) {      } elsif ($s =~ s/^([-=]+)[\x09\x20]*//) {
279        push @nt, {type => LIST_START_TOKEN, depth => $1,        push @nt, {type => LIST_START_TOKEN, depth => $1,
280                   line => $line, column => $column};                   line => $line, column => $column};
281        $column += $+[0] - $-[0];        $column += $+[0] - $-[0];
# Line 284  sub parse_char_string ($$$;$) { Line 296  sub parse_char_string ($$$;$) {
296          $name =~ s/\A[\x09\x20]*//;          $name =~ s/\A[\x09\x20]*//;
297          $column += 1 + $+[0] - $-[0];          $column += 1 + $+[0] - $-[0];
298          $name =~ s/[\x09\x20]+\z//;          $name =~ s/[\x09\x20]+\z//;
299          $tokenize_text->(\$s);          $tokenize_text->(\$name);
300          $column = $real_column;          $column = $real_column;
301          push @nt, {type => LABELED_LIST_MIDDLE_TOKEN,          push @nt, {type => LABELED_LIST_MIDDLE_TOKEN,
302                     line => $line, column => $column};                     line => $line, column => $column};
# Line 301  sub parse_char_string ($$$;$) { Line 313  sub parse_char_string ($$$;$) {
313              if $continuous_line;              if $continuous_line;
314          $s = '>>' . $s;          $s = '>>' . $s;
315          $tokenize_text->(\$s);          $tokenize_text->(\$s);
316            $continuous_line = 1;
317        } else {        } else {
318          push @nt, {type => QUOTATION_START_TOKEN, depth => $depth,          push @nt, {type => QUOTATION_START_TOKEN, depth => $depth,
319                     line => $line, column => $column};                     line => $line, column => $column};
# Line 310  sub parse_char_string ($$$;$) { Line 323  sub parse_char_string ($$$;$) {
323            push @nt, {type => EDITORIAL_NOTE_START_TOKEN,            push @nt, {type => EDITORIAL_NOTE_START_TOKEN,
324                       line => $line, column => $column};                       line => $line, column => $column};
325            $column += $+[0] - $-[0];            $column += $+[0] - $-[0];
326              $continuous_line = 1;
327          } elsif ($s =~ s/^;;[\x09\x20]*//) {          } elsif ($s =~ s/^;;[\x09\x20]*//) {
328            push @nt, {type => COMMENT_PARAGRAPH_START_TOKEN,            push @nt, {type => COMMENT_PARAGRAPH_START_TOKEN,
329                       line => $line, column => $column};                       line => $line, column => $column};
330            $column += $+[0] - $-[0];            $column += $+[0] - $-[0];
331              $continuous_line = 1;
332            } elsif (length $s) {
333              $continuous_line = 1;
334            } else {
335              $continuous_line = 0;
336          }          }
337          $tokenize_text->(\$s);          $tokenize_text->(\$s);
338        }        }
       $continuous_line = 1;  
339        return shift @nt;        return shift @nt;
340      } elsif ($s =~ /\A\[(INS|DEL)(?>\(([^()\\]*)\))?\[[\x09\x20]*\z/) {      } elsif ($s =~ /\A\[(INS|DEL)(?>\(([^()\\]*)\))?\[[\x09\x20]*\z/) {
341        undef $continuous_line;        undef $continuous_line;
# Line 358  sub parse_char_string ($$$;$) { Line 376  sub parse_char_string ($$$;$) {
376                   line => $line, column => $column};                   line => $line, column => $column};
377        $column += $+[0] - $-[0];        $column += $+[0] - $-[0];
378        $tokenize_text->(\$s);        $tokenize_text->(\$s);
379        undef $continuous_line;        $continuous_line = 1;
380        return shift @nt;        return shift @nt;
381      } elsif ($s =~ /\A\](INS|DEL)\][\x09\x20]*\z/) {      } elsif ($s =~ /\A\](INS|DEL)\][\x09\x20]*\z/) {
382        $continuous_line = 1;        $continuous_line = 1;
# Line 377  sub parse_char_string ($$$;$) { Line 395  sub parse_char_string ($$$;$) {
395            $s =~ s/^((?>[^"\\]|\\.)*)//;            $s =~ s/^((?>[^"\\]|\\.)*)//;
396            $cell_quoted = $1;            $cell_quoted = $1;
397            $column += 1 + length $cell_quoted;            $column += 1 + length $cell_quoted;
398            $cell_quoted =~ tr/\\//d;            $cell_quoted =~ s/\\(.)/$1/s;
399            $column++ if $s =~ s/\A\\\z//;            $column++ if $s =~ s/\A\\\z//;
400            $column++ if $s =~ s/^"//;            $column++ if $s =~ s/^"//;
401          }          }
# Line 412  sub parse_char_string ($$$;$) { Line 430  sub parse_char_string ($$$;$) {
430        undef $continuous_line;        undef $continuous_line;
431        return shift @nt;        return shift @nt;
432      } elsif ($s eq '__IMAGE__') {      } elsif ($s eq '__IMAGE__') {
433        my $image = $doc->create_element_ns (SW09_NS, 'image');        my $image = $doc->create_element_ns (SW09_NS, [undef, 'image']);
434        $image->set_user_data (manakai_source_line => $line);        $image->set_user_data (manakai_source_line => $line);
435        $image->set_user_data (manakai_source_column => 1);        $image->set_user_data (manakai_source_column => 1);
436        $image->text_content (join "\x0A", $s, @s);        $image->text_content (join "\x0A", @s);
437        ($line, $column) = ($line + @s, 1);        ($line, $column) = ($line + @s, 1);
438        @s = ();        @s = ();
439        $doc->document_element->append_child ($image);        $doc->document_element->append_child ($image);
# Line 428  sub parse_char_string ($$$;$) { Line 446  sub parse_char_string ($$$;$) {
446        $continuous_line = 1;        $continuous_line = 1;
447        return shift @nt;        return shift @nt;
448      }      }
449    }; # $get_next_token_body    }; # $get_next_token
450    
451    ## NOTE: The "initial" mode.    ## NOTE: The "initial" mode.
452    if (@s and $s[0] =~ /^#\?/) {    if (@s and $s[0] =~ s/^#\?//) {
453      ## NOTE: "Parse a magic line".      ## NOTE: "Parse a magic line".
454    
455      my $s = shift @s;      my $s = shift @s;
# Line 439  sub parse_char_string ($$$;$) { Line 457  sub parse_char_string ($$$;$) {
457        $column += $+[0] - $-[0];        $column += $+[0] - $-[0];
458        my ($name, $version) = split m#/#, $1, 2;        my ($name, $version) = split m#/#, $1, 2;
459        my $el = $doc->document_element;        my $el = $doc->document_element;
460        $el->set_attribute_ns (SW09_NS, 'sw:Name' => $name);        $el->set_attribute_ns (SW09_NS, ['sw', 'Name'] => $name);
461        $el->set_attribute_ns (SW09_NS, 'sw:Version' => $version)        $el->set_attribute_ns (SW09_NS, ['sw', 'Version'] => $version)
462            if defined $version;            if defined $version;
463      }      }
464    
     my $head = $doc->first_child;  
465      while (length $s) {      while (length $s) {
466        $column += $+[0] - $-[0] if $s =~ s/^[\x09\x20]+//;        $column += $+[0] - $-[0] and next if $s =~ s/^[\x09\x20]+//;
467        my $name = '';        my $name = '';
468        if ($s =~ s/^([^=]*)=//) {        if ($s =~ s/^([^=]*)=//) {
469          $name = $1;          $name = $1;
470          $column += length $name + 1;          $column += length $name + 1;
471        }        }
472        my $param = $doc->create_element_ns (SW09_NS, 'parameter');        my $param = $doc->create_element_ns (SW09_NS, [undef, 'parameter']);
473        $param->set_attribute (name => $name);        $param->set_attribute_ns (undef, [undef, 'name'] => $name);
474        $param->set_user_data (manakai_source_line => $line);        $param->set_user_data (manakai_source_line => $line);
475        $param->set_user_data (manakai_source_column => $column);        $param->set_user_data (manakai_source_column => $column);
476        $head->append_child ($param);        $head_el->append_child ($param);
477    
478        $column++ if $s =~ s/^"//;        $column++ if $s =~ s/^"//;
479        if ($s =~ s/^([^"]+)//) {        if ($s =~ s/^([^"]*)//) {
480          my $values = $1;          my $values = $1;
481          $column += length $values;          $column += length $values;
482          $values =~ tr/\\//d;          $values =~ tr/\\//d;
483          for (split /,/, $values, -1) {          my @values = split /,/, $values, -1;
484            my $value = $doc->create_element_ns (SW09_NS, 'value');          push @values, '' unless length $values;
485            for (@values) {
486              my $value = $doc->create_element_ns (SW09_NS, [undef, 'value']);
487            $value->text_content ($_);            $value->text_content ($_);
488            $value->set_user_data (manakai_source_line => $line);            $value->set_user_data (manakai_source_line => $line);
489            $value->set_user_data (manakai_source_column => $column);            $value->set_user_data (manakai_source_column => $column);
# Line 480  sub parse_char_string ($$$;$) { Line 499  sub parse_char_string ($$$;$) {
499    
500    ## NOTE: Switched to the "body" mode.    ## NOTE: Switched to the "body" mode.
501    
502    my $oe = [{node => $doc->document_element->last_child,    my $oe = [{node => $body_el,
503               section_depth => 0,               section_depth => 0,
504               quotation_depth => 0,               quotation_depth => 0,
505               list_depth => 0}];               list_depth => 0}];
# Line 492  sub parse_char_string ($$$;$) { Line 511  sub parse_char_string ($$$;$) {
511    };    };
512    
513    my $im = IN_SECTION_IM;    my $im = IN_SECTION_IM;
514    $get_next_token->();    $token = $get_next_token->();
515    
516    A: {    A: {
517      if ($im == IN_PARAGRAPH_IM) {      if ($im == IN_PARAGRAPH_IM) {
518        if ($token->{type} == CHARACTER_TOKEN) {        if ($token->{type} == CHARACTER_TOKEN) {
519          $oe->[-1]->{node}->manakai_append_text ($token->{data});          $oe->[-1]->{node}->manakai_append_text ($token->{data});
520          $get_next_token->();          $token = $get_next_token->();
521          redo A;          redo A;
522        } elsif ($token->{type} == INLINE_START_TAG_TOKEN) {        } elsif ($token->{type} == INLINE_START_TAG_TOKEN) {
523          if (not defined $token->{tag_name}) {          if (not defined $token->{tag_name}) {
524            my $el = $doc->create_element_ns (SW09_NS, 'anchor');            my $el = $doc->create_element_ns (SW09_NS, [undef, 'anchor']);
525            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
526            push @$oe, {%{$oe->[-1]}, node => $el};            push @$oe, {%{$oe->[-1]}, node => $el};
527            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
528            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
529                        
530            $get_next_token->();            $token = $get_next_token->();
531            redo A;            redo A;
532          } else {          } else {
533            my $type = {            my $type = {
# Line 525  sub parse_char_string ($$$;$) { Line 544  sub parse_char_string ($$$;$) {
544                        Q => [HTML_NS, 'q'],                        Q => [HTML_NS, 'q'],
545                        QN => [SW10_NS, 'qn'],                        QN => [SW10_NS, 'qn'],
546                        RUBY => [HTML_NS, 'ruby'],                        RUBY => [HTML_NS, 'ruby'],
547                        RUBYB => [HTML_NS, 'rubyb'],                        RUBYB => [SW09_NS, 'rubyb'],
548                        SAMP => [HTML_NS, 'samp'],                        SAMP => [HTML_NS, 'samp'],
549                        SPAN => [HTML_NS, 'span'],                        SPAN => [HTML_NS, 'span'],
550                        SRC => [SW10_NS, 'src'],                        SRC => [SW10_NS, 'src'],
# Line 535  sub parse_char_string ($$$;$) { Line 554  sub parse_char_string ($$$;$) {
554                        VAR => [HTML_NS, 'var'],                        VAR => [HTML_NS, 'var'],
555                        WEAK => [SW09_NS, 'weak'],                        WEAK => [SW09_NS, 'weak'],
556                       }->{$token->{tag_name}} || [SW10_NS, $token->{tag_name}];                       }->{$token->{tag_name}} || [SW10_NS, $token->{tag_name}];
557            my $el = $doc->create_element_ns (SW10_NS, 'td');            my $el = $doc->create_element_ns ($type->[0], [undef, $type->[1]]);
558            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
559            push @$oe, {%{$oe->[-1]}, node => $el};            push @$oe, {%{$oe->[-1]}, node => $el};
560            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
561            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
562    
563            $el->set_attribute (class => $token->{classes})            $el->set_attribute_ns (undef, [undef, 'class'] => $token->{classes})
564                if defined $token->{classes};                if defined $token->{classes};
565            $el->set_attribute_ns (XML_NS, 'xml:lang' => $token->{language})            $el->set_attribute_ns (XML_NS, ['xml', 'lang'] => $token->{language})
566                if defined $token->{language};                if defined $token->{language};
567                        
568            $get_next_token->();            $token = $get_next_token->();
569            redo A;            redo A;
570          }          }
571        } elsif ($token->{type} == INLINE_MIDDLE_TAG_TOKEN) {        } elsif ($token->{type} == INLINE_MIDDLE_TAG_TOKEN) {
572          my ($ns, $ln, $pop) = @{{          my ($ns, $ln, $pop) = @{{
573            rt => [SW10_NS, 'attrvalue', 1],            rt => [HTML_NS, 'rt', 1],
574            title => [SW10_NS, 'attrvalue', 1],            title => [SW10_NS, 'attrvalue', 1],
575            nsuri => [SW10_NS, 'attrvalue', 1],            nsuri => [SW10_NS, 'attrvalue', 1],
576            qn => [SW10_NS, 'nsuri'],            qn => [SW10_NS, 'nsuri'],
# Line 560  sub parse_char_string ($$$;$) { Line 579  sub parse_char_string ($$$;$) {
579          }->{$oe->[-1]->{node}->manakai_local_name} || [SW10_NS, 'title']};          }->{$oe->[-1]->{node}->manakai_local_name} || [SW10_NS, 'title']};
580          pop @$oe if $pop;          pop @$oe if $pop;
581    
582          my $el = $doc->create_element_ns ($ns, $ln);          my $el = $doc->create_element_ns ($ns, [undef, $ln]);
583          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
584          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
585          $el->set_user_data (manakai_source_line => $token->{line});          $el->set_user_data (manakai_source_line => $token->{line});
586          $el->set_user_data (manakai_source_column => $token->{column});          $el->set_user_data (manakai_source_column => $token->{column});
587    
588          $el->set_attribute_ns (XML_NS, 'xml:lang' => $token->{language})          $el->set_attribute_ns (XML_NS, ['xml', 'lang'] => $token->{language})
589              if defined $token->{language};              if defined $token->{language};
590    
591          $get_next_token->();          $token = $get_next_token->();
592          redo A;          redo A;
593        } elsif ($token->{type} == INLINE_END_TAG_TOKEN) {        } elsif ($token->{type} == INLINE_END_TAG_TOKEN) {
594          pop @$oe if {          pop @$oe if {
# Line 578  sub parse_char_string ($$$;$) { Line 597  sub parse_char_string ($$$;$) {
597                    
598          if ({%$structural_elements,          if ({%$structural_elements,
599               strong => 1, em => 1}->{$oe->[-1]->{node}->manakai_local_name}) {               strong => 1, em => 1}->{$oe->[-1]->{node}->manakai_local_name}) {
600            my $el = $doc->create_element_ns            unless (defined $token->{res_scheme} or defined $token->{anchor}) {
601                (SW09_NS,              $oe->[-1]->{node}->manakai_append_text (']]');
602                 defined $token->{res_scheme}              push @$oe, $oe->[-1];
603                     ? 'anchor-external' : 'anchor-internal');            } else {
604            $oe->[-1]->{node}->append_child ($el);              my $el = $doc->create_element_ns
605            push @$oe, {%{$oe->[-1]}, node => $el};                  (SW09_NS,
606            $el->set_user_data (manakai_source_line => $token->{line});                   [undef, defined $token->{res_scheme}
607            $el->set_user_data (manakai_source_column => $token->{column});                        ? 'anchor-external' : 'anchor-internal']);
608            $el->text_content (']]');              $oe->[-1]->{node}->append_child ($el);
609                push @$oe, {%{$oe->[-1]}, node => $el};
610                $el->set_user_data (manakai_source_line => $token->{line});
611                $el->set_user_data (manakai_source_column => $token->{column});
612                $el->text_content (']]');
613              }
614          }          }
615                    
616          $oe->[-1]->{node}->set_attribute_ns (SW09_NS, 'sw:anchor',          $oe->[-1]->{node}->set_attribute_ns (SW09_NS, ['sw', 'anchor'],
617                                               $token->{anchor})                                               $token->{anchor})
618              if defined $token->{anchor};              if defined $token->{anchor};
619          $oe->[-1]->{node}->set_attribute_ns (SW09_NS, 'sw:resScheme',          $oe->[-1]->{node}->set_attribute_ns (SW09_NS, ['sw', 'resScheme'],
620                                               $token->{res_scheme})                                               $token->{res_scheme})
621              if defined $token->{res_scheme};              if defined $token->{res_scheme};
622          $oe->[-1]->{node}->set_attribute_ns (SW09_NS, 'sw:resParameter',          $oe->[-1]->{node}->set_attribute_ns (SW09_NS, ['sw', 'resParameter'],
623                                               $token->{res_parameter})                                               $token->{res_parameter})
624              if defined $token->{res_parameter};              if defined $token->{res_parameter};
625                    
626          pop @$oe;          pop @$oe;
627                    
628          $get_next_token->();          $token = $get_next_token->();
629          redo A;          redo A;
630        } elsif ($token->{type} == STRONG_TOKEN) {        } elsif ($token->{type} == STRONG_TOKEN) {
631          my $el = $doc->create_element_ns (HTML_NS, 'strong');          if ($oe->[-1]->{node}->manakai_local_name eq 'strong') {
632          $oe->[-1]->{node}->append_child ($el);            pop @$oe;
633          push @$oe, {%{$oe->[-1]}, node => $el};          } else {
634          $el->set_user_data (manakai_source_line => $token->{line});            my $el = $doc->create_element_ns (HTML_NS, [undef, 'strong']);
635          $el->set_user_data (manakai_source_column => $token->{column});            $oe->[-1]->{node}->append_child ($el);
636              push @$oe, {%{$oe->[-1]}, node => $el};
637          $get_next_token->();            $el->set_user_data (manakai_source_line => $token->{line});
638              $el->set_user_data (manakai_source_column => $token->{column});
639            }
640            $token = $get_next_token->();
641          redo A;          redo A;
642        } elsif ($token->{type} == EMPHASIS_TOKEN) {        } elsif ($token->{type} == EMPHASIS_TOKEN) {
643          my $el = $doc->create_element_ns (HTML_NS, 'em');          if ($oe->[-1]->{node}->manakai_local_name eq 'em') {
644          $oe->[-1]->{node}->append_child ($el);            pop @$oe;
645          push @$oe, {%{$oe->[-1]}, node => $el};          } else {
646          $el->set_user_data (manakai_source_line => $token->{line});            my $el = $doc->create_element_ns (HTML_NS, [undef, 'em']);
647          $el->set_user_data (manakai_source_column => $token->{column});            $oe->[-1]->{node}->append_child ($el);
648              push @$oe, {%{$oe->[-1]}, node => $el};
649          $get_next_token->();            $el->set_user_data (manakai_source_line => $token->{line});
650              $el->set_user_data (manakai_source_column => $token->{column});
651            }
652            $token = $get_next_token->();
653          redo A;          redo A;
654        } elsif ($token->{type} == FORM_TOKEN) {        } elsif ($token->{type} == FORM_TOKEN) {
655          ## There is an exact code clone.          ## There is an exact code clone.
656          if ($token->{name} eq 'form') {          if ($token->{name} eq 'form') {
657            my $el = $doc->create_element_ns (SW09_NS, 'form');            my $el = $doc->create_element_ns (SW09_NS, [undef, 'form']);
658            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
           push @$oe, {%{$oe->[-1]}, node => $el};  
659            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
660            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
661    
662            $el->set_attribute (id => $token->{id}) if defined $token->{id};            $el->set_attribute_ns (undef, [undef, 'id']
663            $el->set_attribute (input => shift @{$token->{parameters}})                                       => $token->{id}) if defined $token->{id};
664                if @{$token->{parameter}};            $el->set_attribute_ns (undef, [undef, 'input']
665            $el->set_attribute (template => shift @{$token->{parameters}})                                       => shift @{$token->{parameters}})
666                if @{$token->{parameter}};                if @{$token->{parameters}};
667            $el->set_attribute (option => shift @{$token->{parameters}})            $el->set_attribute_ns (undef, [undef, 'template']
668                if @{$token->{parameter}};                                       => shift @{$token->{parameters}})
669            $el->set_attribute (parameter => join ':', @{$token->{parameters}})                if @{$token->{parameters}};
670                if @{$token->{parameter}};            $el->set_attribute_ns (undef, [undef, 'option']
671                                         => shift @{$token->{parameters}})
672                  if @{$token->{parameters}};
673              $el->set_attribute_ns (undef, [undef, 'parameter']
674                                         => join ':', @{$token->{parameters}})
675                  if @{$token->{parameters}};
676                        
677            $get_next_token->();            $token = $get_next_token->();
678            redo A;            redo A;
679          } else {          } else {
680            my $el = $doc->create_element_ns (SW09_NS, 'form');            my $el = $doc->create_element_ns (SW09_NS, [undef, 'form']);
681            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
           push @$oe, {%{$oe->[-1]}, node => $el};  
682            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
683            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
684    
685            $el->set_attribute (ref => $token->{name});            $el->set_attribute_ns (undef, [undef, 'ref']
686            $el->set_attribute (id => $token->{id}) if defined $token->{id};                                       => $token->{name});
687            $el->set_attribute (parameter => join ':', @{$token->{parameters}})            $el->set_attribute_ns (undef, [undef, 'id']
688                if @{$token->{parameter}};                                       => $token->{id}) if defined $token->{id};
689              $el->set_attribute_ns (undef, [undef, 'parameter']
690                                         => join ':', @{$token->{parameters}})
691                  if @{$token->{parameters}};
692                        
693            $get_next_token->();            $token = $get_next_token->();
694            redo A;            redo A;
695          }          }
696        } elsif ($token->{type} == ELEMENT_TOKEN) {        } elsif ($token->{type} == ELEMENT_TOKEN) {
697          ## NOTE: There is an exact code clone.          ## NOTE: There is an exact code clone.
698          my $el = $doc->create_element_ns          my $el = $doc->create_element_ns
699              ($token->{namespace}, $token->{local_name});              ($token->{namespace}, [undef, $token->{local_name}]);
700          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
         push @$oe, {%{$oe->[-1]}, node => $el};  
701          $el->set_user_data (manakai_source_line => $token->{line});          $el->set_user_data (manakai_source_line => $token->{line});
702          $el->set_user_data (manakai_source_column => $token->{column});          $el->set_user_data (manakai_source_column => $token->{column});
703    
704          $el->set_attribute_ns (SW09_NS, 'sw:anchor', $token->{anchor})          $el->set_attribute_ns (SW09_NS, ['sw', 'anchor'], $token->{anchor})
705              if defined $token->{anchor};              if defined $token->{anchor};
706          $el->set_attribute (by => $token->{by}) if defined $token->{by};          $el->set_attribute_ns (undef, [undef, 'by']
707          $el->set_attribute_ns (SW09_NS, 'sw:resScheme', $token->{res_scheme})                                     => $token->{by}) if defined $token->{by};
708            $el->set_attribute_ns (SW09_NS, ['sw', 'resScheme'],
709                                       $token->{res_scheme})
710              if defined $token->{res_scheme};              if defined $token->{res_scheme};
711          $el->set_attribute_ns (SW09_NS, 'sw:resParameter',          $el->set_attribute_ns (SW09_NS, ['sw', 'resParameter'],
712                                 $token->{res_parameter})                                 $token->{res_parameter})
713              if defined $token->{res_parameter};              if defined $token->{res_parameter};
714          $el->text_content ($token->{content}) if defined $token->{content};          $el->text_content ($token->{content}) if defined $token->{content};
715    
716          $get_next_token->();          $token = $get_next_token->();
717          redo A;          redo A;
718        } elsif ($token->{type} == LABELED_LIST_MIDDLE_TOKEN) {        } elsif ($token->{type} == LABELED_LIST_MIDDLE_TOKEN) {
719          pop @$oe while not $structural_elements          pop @$oe while not $structural_elements
720              ->{$oe->[-1]->{node}->manakai_local_name};              ->{$oe->[-1]->{node}->manakai_local_name};
721          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'dt';          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'dt';
722                    
723          my $el = $doc->create_element_ns (HTML_NS, 'dt');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'dd']);
724          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
725          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
726          $el->set_user_data (manakai_source_line => $token->{line});          $el->set_user_data (manakai_source_line => $token->{line});
727          $el->set_user_data (manakai_source_column => $token->{column});          $el->set_user_data (manakai_source_column => $token->{column});
728    
729          $get_next_token->();          $token = $get_next_token->();
730          redo A;          redo A;
731        } elsif ($token->{type} == HEADING_END_TOKEN) {        } elsif ($token->{type} == HEADING_END_TOKEN) {
732          pop @$oe while not $structural_elements          pop @$oe while not $structural_elements
# Line 697  sub parse_char_string ($$$;$) { Line 734  sub parse_char_string ($$$;$) {
734          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'h1';          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'h1';
735                    
736          $im = IN_SECTION_IM;          $im = IN_SECTION_IM;
737          $get_next_token->();          $token = $get_next_token->();
738          redo A;          redo A;
739        } elsif ($token->{type} == TABLE_CELL_END_TOKEN) {        } elsif ($token->{type} == TABLE_CELL_END_TOKEN) {
740          pop @$oe while not $structural_elements          pop @$oe while not $structural_elements
# Line 705  sub parse_char_string ($$$;$) { Line 742  sub parse_char_string ($$$;$) {
742          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'td';          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'td';
743                    
744          $im = IN_TABLE_ROW_IM;          $im = IN_TABLE_ROW_IM;
745          $get_next_token->();          $token = $get_next_token->();
746          redo A;          redo A;
747        } elsif (($token->{type} == BLOCK_END_TAG_TOKEN and        } elsif (($token->{type} == BLOCK_END_TAG_TOKEN and
748                  $token->{tag_name} eq 'PRE') or                  $token->{tag_name} eq 'PRE') or
# Line 715  sub parse_char_string ($$$;$) { Line 752  sub parse_char_string ($$$;$) {
752          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'pre';          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'pre';
753    
754          $im = IN_SECTION_IM;          $im = IN_SECTION_IM;
755          $get_next_token->();          $token = $get_next_token->();
756          redo A;          redo A;
757        } else {        } else {
758          pop @$oe while not $structural_elements          pop @$oe while not $structural_elements
759              ->{$oe->[-1]->{node}->manakai_local_name};              ->{$oe->[-1]->{node}->manakai_local_name};
760                    
761          $im = IN_SECTION_IM;          $im = IN_SECTION_IM;
762          $get_next_token->();          ## Reconsume.
763          redo A;          redo A;
764        }        }
765      } elsif ($im == IN_SECTION_IM) {      } elsif ($im == IN_SECTION_IM) {
766        if ($token->{type} == HEADING_START_TOKEN) {        if ($token->{type} == HEADING_START_TOKEN) {
767          B: {          B: {
768            pop @$oe and redo B            pop @$oe and redo B
769                if {body => 1, section => 1, insert => 1, delete => 1}                if not {body => 1, section => 1, insert => 1, delete => 1}
770                    ->{$oe->[-1]->{node}->manakai_local_name} or                    ->{$oe->[-1]->{node}->manakai_local_name} or
771                   $token->{depth} <= $oe->[-1]->{section_depth};                   $token->{depth} <= $oe->[-1]->{section_depth};
772            if ($token->{depth} > $oe->[-1]->{section_depth} + 1) {            if ($token->{depth} > $oe->[-1]->{section_depth} + 1) {
773              my $el = $doc->create_element_ns (HTML_NS, 'section');              my $el = $doc->create_element_ns (HTML_NS, [undef, 'section']);
774              $oe->[-1]->{node}->append_child ($el);              $oe->[-1]->{node}->append_child ($el);
775              push @$oe, {node => $el,              push @$oe, {node => $el,
776                          section_depth => $oe->[-1]->{section_depth} + 1,                          section_depth => $oe->[-1]->{section_depth} + 1,
# Line 742  sub parse_char_string ($$$;$) { Line 779  sub parse_char_string ($$$;$) {
779            }            }
780          } # B          } # B
781    
782          my $el = $doc->create_element_ns (HTML_NS, 'section');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'section']);
783          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
784          push @$oe, {node => $el,          push @$oe, {node => $el,
785                      section_depth => $oe->[-1]->{section_depth} + 1,                      section_depth => $oe->[-1]->{section_depth} + 1,
786                      quotation_depth => 0, list_depth => 0};                      quotation_depth => 0, list_depth => 0};
787    
788          my $el2 = $doc->create_element_ns (HTML_NS, 'h1');          my $el2 = $doc->create_element_ns (HTML_NS, [undef, 'h1']);
789          $oe->[-1]->{node}->append_child ($el2);          $oe->[-1]->{node}->append_child ($el2);
790          push @$oe, {%{$oe->[-1]}, node => $el2};          push @$oe, {%{$oe->[-1]}, node => $el2};
791    
792          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
793          $get_next_token->();          $token = $get_next_token->();
794          redo A;          redo A;
795        } elsif ($token->{type} == BLOCK_START_TAG_TOKEN and        } elsif ($token->{type} == BLOCK_START_TAG_TOKEN and
796                 ($token->{tag_name} eq 'INS' or                 ($token->{tag_name} eq 'INS' or
797                  $token->{tag_name} eq 'DEL')) {                  $token->{tag_name} eq 'DEL')) {
798          my $el = $doc->create_element_ns          my $el = $doc->create_element_ns
799              (SW09_NS, ($token->{tag_name} eq 'INS' ? 'insert' : 'delete'));              (SW09_NS,
800                 [undef, $token->{tag_name} eq 'INS' ? 'insert' : 'delete']);
801          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
802          push @$oe, {node => $el, section_depth => 0,          push @$oe, {node => $el, section_depth => 0,
803                      quotation_depth => 0, list_depth => 0};                      quotation_depth => 0, list_depth => 0};
804          $el->set_attribute (class => $token->{classes})          $el->set_attribute_ns (undef, [undef, 'class'] => $token->{classes})
805              if defined $token->{classes};              if defined $token->{classes};
806          $get_next_token->();          $token = $get_next_token->();
807          redo A;          redo A;
808        } elsif ($token->{type} == QUOTATION_START_TOKEN) {        } elsif ($token->{type} == QUOTATION_START_TOKEN) {
809          B: {          B: {
810            pop @$oe and redo B            pop @$oe and redo B
811                if {body => 1, section => 1, insert => 1, delete => 1,                if not {body => 1, section => 1, insert => 1, delete => 1,
812                    blockquote => 1}                    blockquote => 1}
813                    ->{$oe->[-1]->{node}->manakai_local_name} or                    ->{$oe->[-1]->{node}->manakai_local_name} or
814                   $token->{depth} <= $oe->[-1]->{quotation_depth};                   $token->{depth} < $oe->[-1]->{quotation_depth};
815            if ($token->{depth} > $oe->[-1]->{quotation_depth} + 1) {            if ($token->{depth} > $oe->[-1]->{quotation_depth}) {
816              my $el = $doc->create_element_ns (HTML_NS, 'blockquote');              my $el = $doc->create_element_ns (HTML_NS, [undef, 'blockquote']);
817              $oe->[-1]->{node}->append_child ($el);              $oe->[-1]->{node}->append_child ($el);
818              push @$oe, {node => $el, section_depth => 0,              push @$oe, {node => $el, section_depth => 0,
819                          quotation_depth => $oe->[-1]->{quotation_depth} + 1,                          quotation_depth => $oe->[-1]->{quotation_depth} + 1,
# Line 784  sub parse_char_string ($$$;$) { Line 822  sub parse_char_string ($$$;$) {
822            }            }
823          } # B          } # B
824    
825          my $el = $doc->create_element_ns (HTML_NS, 'blockquote');          $token = $get_next_token->();
         $oe->[-1]->{node}->append_child ($el);  
         push @$oe, {node => $el, section_depth => 0,  
                     quotation_depth => $oe->[-1]->{quotation_depth} + 1,  
                     list_depth => 0};  
   
         $get_next_token->();  
826          redo A;          redo A;
827        } elsif ($token->{type} == LIST_START_TOKEN) {        } elsif ($token->{type} == LIST_START_TOKEN) {
828          my $depth = length $token->{depth};          my $depth = length $token->{depth};
829            my $list_type = substr ($token->{depth}, -1, 1) eq '-' ? 'ul' : 'ol';
830          B: {          B: {
831            pop @$oe and redo B if $oe->[-1]->{list_depth} > $depth;            pop @$oe and redo B if $oe->[-1]->{list_depth} > $depth;
832              pop @$oe and redo B if $oe->[-1]->{list_depth} == $depth and
833                  $list_type ne $oe->[-1]->{node}->manakai_local_name;
834            if ($oe->[-1]->{list_depth} < $depth) {            if ($oe->[-1]->{list_depth} < $depth) {
835              my $type = substr $token->{depth}, $oe->[-1]->{list_depth};              my $type = substr $token->{depth}, $oe->[-1]->{list_depth}, 1;
836              my $el = $doc->create_element_ns              my $el = $doc->create_element_ns
837                  (HTML_NS, $type eq '-' ? 'ul' : 'ol');                  (HTML_NS, [undef, $type eq '-' ? 'ul' : 'ol']);
838              $oe->[-1]->{node}->append_child ($el);              $oe->[-1]->{node}->append_child ($el);
839              push @$oe, {%{$oe->[-1]}, node => $el,              push @$oe, {%{$oe->[-1]}, node => $el,
840                          list_depth => $oe->[-1]->{list_depth} + 1};                          list_depth => $oe->[-1]->{list_depth} + 1};
841              if ($oe->[-1]->{list_depth} < $depth) {              if ($oe->[-1]->{list_depth} < $depth) {
842                my $el = $doc->create_element_ns (HTML_NS, 'li');                my $el = $doc->create_element_ns (HTML_NS, [undef, 'li']);
843                $oe->[-1]->{node}->append_child ($el);                $oe->[-1]->{node}->append_child ($el);
844                push @$oe, {%{$oe->[-1]}, node => $el};                push @$oe, {%{$oe->[-1]}, node => $el};
845              }              }
846              redo B;              redo B;
847            }            }
848          } # B          } # B
   
         pop @$oe if $oe->[-1]->{list_depth} == $depth and  
             not {ul => 1, ol => 1}->{$oe->[-1]->{node}->manakai_local_name};  
849                    
850          my $el = $doc->create_element_ns (HTML_NS, 'li');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'li']);
851          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
852          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
853    
854          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
855          $get_next_token->();          $token = $get_next_token->();
856          redo A;          redo A;
857        } elsif ($token->{type} == LABELED_LIST_START_TOKEN) {        } elsif ($token->{type} == LABELED_LIST_START_TOKEN) {
858          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'dd';          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'dd';
859          if ($oe->[-1]->{node}->manakai_local_name ne 'dl') {          if ($oe->[-1]->{node}->manakai_local_name ne 'dl') {
860            my $el = $doc->create_element_ns (HTML_NS, 'dl');            my $el = $doc->create_element_ns (HTML_NS, [undef, 'dl']);
861            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
862            push @$oe, {%{$oe->[-1]}, node => $el};            push @$oe, {%{$oe->[-1]}, node => $el};
863          }          }
864                    
865          my $el = $doc->create_element_ns (HTML_NS, 'dt');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'dt']);
866          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
867          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
868                    
869          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
870          $get_next_token->();          $token = $get_next_token->();
871          redo A;          redo A;
872        } elsif ($token->{type} == TABLE_ROW_START_TOKEN) {        } elsif ($token->{type} == TABLE_ROW_START_TOKEN) {
873          my $el = $doc->create_element_ns (HTML_NS, 'table');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'table']);
874          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
875          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
876    
877          $el = $doc->create_element_ns (HTML_NS, 'tbody');          $el = $doc->create_element_ns (HTML_NS, [undef, 'tbody']);
878          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
879          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
880    
881          $el = $doc->create_element_ns (HTML_NS, 'tr');          $el = $doc->create_element_ns (HTML_NS, [undef, 'tr']);
882          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
883          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
884                    
885          $im = IN_TABLE_ROW_IM;          $im = IN_TABLE_ROW_IM;
886          $get_next_token->();          $token = $get_next_token->();
887          redo A;          redo A;
888        } elsif (($token->{type} == BLOCK_START_TAG_TOKEN and        } elsif (($token->{type} == BLOCK_START_TAG_TOKEN and
889                  $token->{tag_name} eq 'PRE') or                  $token->{tag_name} eq 'PRE') or
890                 $token->{type} == PREFORMATTED_START_TOKEN) {                 $token->{type} == PREFORMATTED_START_TOKEN) {
891          my $el = $doc->create_element_ns (HTML_NS, 'pre');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'pre']);
892          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
893          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
894    
895          $el->set_attribute (class => $token->{classes})          $el->set_attribute_ns (undef, [undef, 'class'] => $token->{classes})
896              if defined $token->{classes};              if defined $token->{classes};
897    
898          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
899          $get_next_token->();          $token = $get_next_token->();
900          redo A;          redo A;
901        } elsif ($token->{type} == COMMENT_PARAGRAPH_START_TOKEN) {        } elsif ($token->{type} == COMMENT_PARAGRAPH_START_TOKEN) {
902          my $el = $doc->create_element_ns (SW10_NS, 'comment-p');          my $el = $doc->create_element_ns (SW10_NS, [undef, 'comment-p']);
903          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
904          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
905                    
906          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
907          $get_next_token->();          $token = $get_next_token->();
908          redo A;          redo A;
909        } elsif ($token->{type} == EDITORIAL_NOTE_START_TOKEN) {        } elsif ($token->{type} == EDITORIAL_NOTE_START_TOKEN) {
910          my $el = $doc->create_element_ns (SW10_NS, 'ed');          my $el = $doc->create_element_ns (SW10_NS, [undef, 'ed']);
911          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
912          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
913    
914          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
915          $get_next_token->();          $token = $get_next_token->();
916          redo A;          redo A;
917        } elsif ($token->{type} == EMPTY_LINE_TOKEN) {        } elsif ($token->{type} == EMPTY_LINE_TOKEN) {
918          pop @$oe while {body => 1, section => 1, insert => 1, delete => 1}          pop @$oe while not {body => 1, section => 1, insert => 1, delete => 1}
919              ->{$oe->[-1]->{node}->manakai_local_name};              ->{$oe->[-1]->{node}->manakai_local_name};
920          $get_next_token->();          $token = $get_next_token->();
921          redo A;          redo A;
922        } elsif ($token->{type} == BLOCK_END_TAG_TOKEN) {        } elsif ($token->{type} == BLOCK_END_TAG_TOKEN) {
923          if ($token->{type} eq 'INS') {          if ($token->{tag_name} eq 'INS') {
924            for (reverse 1..$#$oe) {            for (reverse 1..$#$oe) {
925              if ($oe->[$_]->{node}->manakai_local_name eq 'insert') {              if ($oe->[$_]->{node}->manakai_local_name eq 'insert') {
926                splice @$oe, $_;                splice @$oe, $_;
927                last;                last;
928              }              }
929            }            }
930          } elsif ($token->{type} eq 'DEL') {          } elsif ($token->{tag_name} eq 'DEL') {
931            for (reverse 1..$#$oe) {            for (reverse 1..$#$oe) {
932              if ($oe->[$_]->{node}->manakai_local_name eq 'delete') {              if ($oe->[$_]->{node}->manakai_local_name eq 'delete') {
933                splice @$oe, $_;                splice @$oe, $_;
# Line 905  sub parse_char_string ($$$;$) { Line 937  sub parse_char_string ($$$;$) {
937          } else {          } else {
938            ## NOTE: Ignore the token.            ## NOTE: Ignore the token.
939          }          }
940            undef $continuous_line;
941            $token = $get_next_token->();
942            redo A;
943        } elsif ($token->{type} == FORM_TOKEN) {        } elsif ($token->{type} == FORM_TOKEN) {
944          ## There is an exact code clone.          ## There is an exact code clone.
945          if ($token->{name} eq 'form') {          if ($token->{name} eq 'form') {
946            my $el = $doc->create_element_ns (SW09_NS, 'form');            my $el = $doc->create_element_ns (SW09_NS, [undef, 'form']);
947            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
           push @$oe, {%{$oe->[-1]}, node => $el};  
948            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
949            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
950    
951            $el->set_attribute (id => $token->{id}) if defined $token->{id};            $el->set_attribute_ns (undef, [undef, 'id']
952            $el->set_attribute (input => shift @{$token->{parameters}})                                       => $token->{id}) if defined $token->{id};
953                if @{$token->{parameter}};            $el->set_attribute_ns (undef, [undef, 'input']
954            $el->set_attribute (template => shift @{$token->{parameters}})                                       => shift @{$token->{parameters}})
955                if @{$token->{parameter}};                if @{$token->{parameters}};
956            $el->set_attribute (option => shift @{$token->{parameters}})            $el->set_attribute_ns (undef, [undef, 'template']
957                if @{$token->{parameter}};                                       => shift @{$token->{parameters}})
958            $el->set_attribute (parameter => join ':', @{$token->{parameters}})                if @{$token->{parameters}};
959                if @{$token->{parameter}};            $el->set_attribute_ns (undef, [undef, 'option']
960                                         => shift @{$token->{parameters}})
961                  if @{$token->{parameters}};
962              $el->set_attribute_ns (undef, [undef, 'parameter']
963                                         => join ':', @{$token->{parameters}})
964                  if @{$token->{parameters}};
965                        
966            $get_next_token->();            $token = $get_next_token->();
967            redo A;            redo A;
968          } else {          } else {
969            my $el = $doc->create_element_ns (SW09_NS, 'form');            my $el = $doc->create_element_ns (SW09_NS, [undef, 'form']);
970            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
           push @$oe, {%{$oe->[-1]}, node => $el};  
971            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
972            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
973    
974            $el->set_attribute (ref => $token->{name});            $el->set_attribute_ns (undef, [undef, 'ref'] => $token->{name});
975            $el->set_attribute (id => $token->{id}) if defined $token->{id};            $el->set_attribute_ns (undef, [undef, 'id']
976            $el->set_attribute (parameter => join ':', @{$token->{parameters}})                                       => $token->{id}) if defined $token->{id};
977                if @{$token->{parameter}};            $el->set_attribute_ns (undef, [undef, 'parameter']
978                                         => join ':', @{$token->{parameters}})
979                  if @{$token->{parameters}};
980                        
981            $get_next_token->();            $token = $get_next_token->();
982            redo A;            redo A;
983          }          }
984        } elsif ($token->{type} == ELEMENT_TOKEN and        } elsif ($token->{type} == ELEMENT_TOKEN and
985                 $token->{local_name} eq 'replace') {                 $token->{local_name} eq 'replace') {
986          ## NOTE: There is an exact code clone.          ## NOTE: There is an exact code clone.
987          my $el = $doc->create_element_ns          my $el = $doc->create_element_ns
988              ($token->{namespace}, $token->{local_name});              ($token->{namespace}, [undef, $token->{local_name}]);
989          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
         push @$oe, {%{$oe->[-1]}, node => $el};  
990          $el->set_user_data (manakai_source_line => $token->{line});          $el->set_user_data (manakai_source_line => $token->{line});
991          $el->set_user_data (manakai_source_column => $token->{column});          $el->set_user_data (manakai_source_column => $token->{column});
992    
993          $el->set_attribute_ns (SW09_NS, 'sw:anchor', $token->{anchor})          $el->set_attribute_ns (SW09_NS, ['sw', 'anchor'], $token->{anchor})
994              if defined $token->{anchor};              if defined $token->{anchor};
995          $el->set_attribute (by => $token->{by}) if defined $token->{by};          $el->set_attribute_ns (undef, [undef, 'by']
996          $el->set_attribute_ns (SW09_NS, 'sw:resScheme', $token->{res_scheme})                                     => $token->{by}) if defined $token->{by};
997            $el->set_attribute_ns (SW09_NS, ['sw', 'resScheme'],
998                                   $token->{res_scheme})
999              if defined $token->{res_scheme};              if defined $token->{res_scheme};
1000          $el->set_attribute_ns (SW09_NS, 'sw:resParameter',          $el->set_attribute_ns (SW09_NS, ['sw', 'resParameter'],
1001                                 $token->{res_parameter})                                 $token->{res_parameter})
1002              if defined $token->{res_parameter};              if defined $token->{res_parameter};
1003          $el->text_content ($token->{content}) if defined $token->{content};          $el->text_content ($token->{content}) if defined $token->{content};
1004    
1005          $get_next_token->();          $token = $get_next_token->();
1006          redo A;          redo A;
1007        } elsif ($token->{type} == END_OF_FILE_TOKEN) {        } elsif ($token->{type} == END_OF_FILE_TOKEN) {
1008          return;          return;
# Line 974  sub parse_char_string ($$$;$) { Line 1015  sub parse_char_string ($$$;$) {
1015                  TABLE_COLSPAN_CELL_TOKEN => 1}->{$token->{type}}) {                  TABLE_COLSPAN_CELL_TOKEN => 1}->{$token->{type}}) {
1016          ## NOTE: Ignore the token.          ## NOTE: Ignore the token.
1017        } else {        } else {
1018          my $el = $doc->create_element_ns (HTML_NS, 'p');          unless ({dd => 1,
1019          $oe->[-1]->{node}->append_child ($el);                  li => 1,
1020          push @$oe, {%{$oe->[-1]}, node => $el};                   'comment-p' => 1,
1021                     ed => 1}->{$oe->[-1]->{node}->manakai_local_name}) {
1022              my $el = $doc->create_element_ns (HTML_NS, [undef, 'p']);
1023              $oe->[-1]->{node}->append_child ($el);
1024              push @$oe, {%{$oe->[-1]}, node => $el};
1025            }
1026            
1027          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
1028          ## Reprocess.          ## Reprocess.
1029          redo A;          redo A;
1030        }        }
1031      } elsif ($im == IN_TABLE_ROW_IM) {      } elsif ($im == IN_TABLE_ROW_IM) {
1032        if ($token->{type} == TABLE_CELL_START_TOKEN) {        if ($token->{type} == TABLE_CELL_START_TOKEN) {
1033          my $el = $doc->create_element_ns (HTML_NS, 'td');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'td']);
1034          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
1035          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
1036          $el->set_user_data (manakai_source_line => $token->{line});          $el->set_user_data (manakai_source_line => $token->{line});
1037          $el->set_user_data (manakai_source_column => $token->{column});          $el->set_user_data (manakai_source_column => $token->{column});
1038    
1039          $im = IN_PARAGRAPH_IM;          $im = IN_PARAGRAPH_IM;
1040          $get_next_token->();          $token = $get_next_token->();
1041          redo A;          redo A;
1042        } elsif ($token->{type} == TABLE_COLSPAN_CELL_TOKEN) {        } elsif ($token->{type} == TABLE_COLSPAN_CELL_TOKEN) {
1043          my $lc = $oe->[-1]->{node}->last_child;          my $lc = $oe->[-1]->{node}->last_child;
1044          if ($lc and $lc->manakai_local_name eq 'td') {          if ($lc and $lc->manakai_local_name eq 'td') {
1045            $lc->set_attribute            $lc->set_attribute_ns
1046                (colspan => ($lc->get_attribute ('colspan') || 0) + 1);                (undef, [undef, 'colspan'],
1047                   ($lc->get_attribute_ns (undef, 'colspan') || 1) + 1);
1048          } else {          } else {
1049            my $el = $doc->create_element_ns (SW10_NS, 'td');            my $el = $doc->create_element_ns (HTML_NS, [undef, 'td']);
1050            $oe->[-1]->{node}->append_child ($el);            $oe->[-1]->{node}->append_child ($el);
1051            $el->set_user_data (manakai_source_line => $token->{line});            $el->set_user_data (manakai_source_line => $token->{line});
1052            $el->set_user_data (manakai_source_column => $token->{column});            $el->set_user_data (manakai_source_column => $token->{column});
1053          }          }
1054    
1055          $get_next_token->();          $token = $get_next_token->();
1056          redo A;          redo A;
1057        } elsif ($token->{type} == TABLE_ROW_END_TOKEN) {        } elsif ($token->{type} == TABLE_ROW_END_TOKEN) {
1058          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'tr';          pop @$oe if $oe->[-1]->{node}->manakai_local_name eq 'tr';
1059          $get_next_token->();          $token = $get_next_token->();
1060          redo A;          redo A;
1061        } elsif ($token->{type} == TABLE_ROW_START_TOKEN) {        } elsif ($token->{type} == TABLE_ROW_START_TOKEN) {
1062          my $el = $doc->create_element_ns (HTML_NS, 'tr');          my $el = $doc->create_element_ns (HTML_NS, [undef, 'tr']);
1063          $oe->[-1]->{node}->append_child ($el);          $oe->[-1]->{node}->append_child ($el);
1064          push @$oe, {%{$oe->[-1]}, node => $el};          push @$oe, {%{$oe->[-1]}, node => $el};
1065          $el->set_user_data (manakai_source_line => $token->{line});          $el->set_user_data (manakai_source_line => $token->{line});
1066          $el->set_user_data (manakai_source_column => $token->{column});          $el->set_user_data (manakai_source_column => $token->{column});
1067    
1068          $get_next_token->();          $token = $get_next_token->();
1069          redo A;          redo A;
1070        } else {        } else {
1071          $im = IN_SECTION_IM;          $im = IN_SECTION_IM;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24