misc/plugins/SuikaWiki09XML.wps

Name:
        SuikaWiki09XML
FullName:
        SuikaWiki/0.9 documentation format support with XML syntax
URI:
        IW:SuikaWiki:SuikaWiki

Initialize:
        my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
        my $NS_SW09 = 'urn:x-suika-fam-cx:markup:suikawiki:0:9:';

{
Name:
        wikiformat/SuikaWiki/0.9-to-SuikaWiki/0.9/XML
FullName:
        SuikaWiki/0.9 wiki syntax -> XML syntax
URI:
        IW:SuikaWiki:SuikaWiki
Format:
        $r = wiki2xml ($o->{content}, %$o);
}

MODULE:
        sub wiki2xml {
            my ($txt, %option) = @_;
         ## TODO: const and paramters
            ## Load constants
            my %const;
            #if ($option{magic} =~ /import="([^"]+)"/) {
            #  for (split /\s*,\s*/, $1) {
            #    my $wp = $main::database{$_};
            #    if ($wp =~ m!^\#\?SuikaWikiConst/(?:0.9|1.0)!) {
            #      wiki::suikawikiconst::to_hash ($wp => \%const);
            #    }
            #  }
            #}
            
            #$txt =~ s{__&&([^&]+)&&__}{defined $const{$1}?$const{$1}:qq(__&&$1&&__)}ge;
            my (@txt) = split(/\n/, $txt);
            my (@saved, @result);
            my $p = SuikaWiki::Markup::XML->new (type => '#fragment');
            my $current = $p;
            my %depth;
            my $exit_p = sub {
                  my $current = shift;
                  if ($current->local_name eq 'p') {
                    $current = $current->parent_node;
                  }
                  $current;
            };
            my $cut_anchor = sub {
              my ($current, $content) = @_;
                  if ($content =~ s/^\s*\[([0-9]+)\]\s+//) {
                    $current->append_new_node (type => '#element',
                              namespace_uri => $NS_SW09,
                              local_name => 'anchor-end')
                            ->append_text (0+$1);
                  }
              $content;
            };
            my $back_to_section = sub {
              my $current = shift;
              while ($current->node_type ne '#fragment') {
                if ({ins=>1,del=>1,blockquote=>1}->{$current->local_name}) {
                  return $current;
                }
                $current = $current->parent_node;
              }
              return $current;
            };
            
            foreach (@txt) {
                chomp;
                if ($depth{block_name}->{$depth{block}} ne 'PRE'
                         && /^(\*{1,5})([^\x0D\x0A]*)/) {
                    $current = &$back_to_section ($current);
                    for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h'.length ($1))) {
                      $H->append_node (_inline_xml ($2, %option,
                                                    const => \%const));
                    }
                } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^([-=]{1,6})(.*)/) {
                  my ($depth, $content, $type) = (length ($1), $2, (substr ($1, -1) eq '-' ? 'ul' : 'ol'));
                  $current = &$exit_p ($current);
                  if ($current->local_name eq 'li') {
                    if ($depth{list} == $depth && $depth{list_type} eq $type) {
                      $current = $current->parent_node;
                    } elsif ($depth <= $depth{list}) {
                      for (1..($depth{list} - $depth)*2) {
                        ($depth{list} = 1, last) unless ref $current->parent_node;
                        ($depth{list} = 1, last) unless {li=>1,ul=>1,ol=>1}->{$current->local_name};
                        $current = $current->parent_node;
                        $depth{list} -= 0.5;
                      }
                      $current = $current->parent_node;
                      if ($type ne $current->local_name) {
                        $current = $current->parent_node->append_new_node (namespace_uri => $NS_XHTML1, local_name => $type);
                        $current->parent_node->append_text ("\n");
                      }
                    } else {    # $depth{list} < $depth
                      $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => $type);
                      $current->parent_node->append_text ("\n");
                      $depth{list}++;
                    }
                  } else {
                    $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => $type);
                    $current->parent_node->append_text ("\n\n");
                    $depth{list} = 1;
                  }
                  $depth{list_type} = $type;
                  $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'li');
                  $current->parent_node->append_text ("\n");
                  $content = &$cut_anchor ($current, $content);
                  $current->append_node (_inline_xml ($content, %option, const => \%const));
                } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^:([^:]+):(.*)/) {
                  $current = &$exit_p ($current);
                  if ($current->local_name eq 'dd') {
                    $current = $current->parent_node->parent_node;
                  } else {
                    $current = $current->append_new_node (type => '#element',
                                         namespace_uri => $NS_XHTML1,
                                         local_name => 'dl');
                  }
                  $current = $current->append_new_node (type => '#element',
                                       namespace_uri => $NS_SW09,
                                       local_name => 'dr');
                  $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dt')
                          ->append_node (_inline_xml ($1, %option, const => \%const));
                  $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dd');
                  $current->append_node (_inline_xml ($2, %option, const => \%const));
                } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^(?!>>[0-9])(>{1,5})(.*)/) {
                  my ($depth, $content) = (length $1, $2);
                  $current = &$exit_p ($current);
                  if ($depth == $depth{bq}) {
                    #
                  } elsif ($depth{bq} < $depth) {
                    $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'blockquote');
                    $depth{bq}++;
                  } else {      # $depth < $depth{bq}
                    for (1..($depth{bq}-$depth)) {
                      last if $current->node_type eq '#fragment';
                      $current = &$back_to_section ($current->parent_node);
                    }
                    $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'blockquote')
                      unless $current->local_name eq 'blockquote';
                    $depth{bq} = $depth;
                  }
                  if (length $content) {
                    $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'p');
                    $current->append_node (_inline_xml ($content, %option, const => \%const));
                  }
                } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\s*$/) {
                  $current = &$back_to_section ($current);
                  while ($current->local_name eq 'blockquote') {
                    $depth{bq}--;
                    $current = &$back_to_section ($current->parent_node);
                  }
                } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^(\s+.*)$/) {
                  if ($current->local_name ne 'pre') {
                    $current = &$exit_p ($current)->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'pre');
                    #$depth{block_name}->{++$depth{block}} = 'pre';
                  }
                  $current->append_node (_inline_xml ($1, %option, const => \%const));
                } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\,(.*?)[\x0D\x0A]*$/) {
                  $current = &$exit_p ($current);
                  if ($current->local_name eq 'td') {
                    $current = $current
                               ->parent_node    # tr
                               ->parent_node    # tbody
                               ->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
                  } else {
                    $current = $current
                               ->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'table')
                               ->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tbody')
                               ->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
                  }
                  $current->parent_node->append_text ("\n");    # </tr>\n
                  my $tmp = "$1,";
                  my @value = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} ($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
                  my @colspan = map {($_ eq '==') ? 0 : 1} @value;
                  my ($tr, $td) = ($current, $current);
                  for (my $i = 0; $i < @value; $i++) {
                    if ($colspan[$i]) {
                      while ($i + $colspan[$i] < @value and $value[$i + $colspan[$i]] eq '==') {
                        $colspan[$i]++;
                      }
                      $td = $tr->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
                      $td->set_attribute (colspan => $colspan[$i]) if $colspan[$i] > 1;
                      $td->append_node (_inline_xml ($value[$i], %option, const => \%const));
                    }
                  }
                  if ($td->local_name eq 'tr') {        # No <td/> in the <tr/> (error!)
                    $td = $tr->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
                  }
                  $current = $td;
                } elsif (/^\[(INS|DEL|PRE)\[\s*$/) {
                  if ($depth{block_name}->{$depth{block}} ne 'PRE') {
                    $current = &$exit_p ($current)->append_new_node (namespace_uri => $NS_XHTML1, local_name => lc $1);
                    $depth{block}++;
                    $depth{block_name}->{$depth{block}} = $1;
                  } else {
                    $current->append_text ($_);
                  }
                } elsif ($depth{block} && /^\]($depth{block_name}->{$depth{block}})\]\s*$/) {
                  while ($current->node_type ne '#fragment') {
                    if ($current->local_name eq lc $depth{block_name}->{$depth{block}}) {
                      $current = $current->parent_node;
                      $depth{block}--;
                      last;
                    }
                    $current = $current->parent_node;
                  }
                } else {
                  if ($current->node_type eq '#fragment' || {ins=>1,del=>1}->{$current->local_name}) {
                    $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'p');
                    $current->parent_node->append_text ("\n\n");        # <P> is two <BR>s:-)
                  }
                  $current->append_node (_inline_xml (&$cut_anchor ($current, $_), %option, const => \%const));
                }
            }
          my $root = SuikaWiki::Markup::XML->new (type => '#document')
                         ->append_new_node (type => '#element',
                                            namespace_uri => $NS_SW09,
                                            local_name => 'body');
          $root->append_node ($p);
          $root->define_new_namespace ('' => $NS_XHTML1);
          $root->define_new_namespace (sw => $NS_SW09);
          $root->parent_node;
        }
        
        sub _inline_xml ($;%) {
          my ($line, %option) = @_;
          my $l = SuikaWiki::Markup::XML->new (type => '#fragment');
          my $current = $l;
          $line =~ s{(?:\[([A-Z]+)(?:\(([^)]*)\))?\[|(\[\[#form(?:\([A-Za-z0-9-]+\))?(?::'(?:[^'\\]|\\.)*')+\]\]|\[\[[^]]+\](?:>>[0-9]+)?\])|(\]\])|(\] \[)|(>>[0-9]+|<[A-Za-z0-9%]+:[^>]+>|'''?)|([\[\]'<>]|[^\[\]'<>]+))}{
          ## BUG: <IW:foo:"<foo>">
            my ($el_name, $attr, $lnk, $etag, $nxt, $misc, $s) = ($1, $2, $3, $4, $5, $6, $7);
            if ($el_name) {
              my $edef = {
                ABBR    => {html_el => 'abbr', use_class_attr => 1},
                CODE    => {html_el => 'code', use_class_attr => 1},
                DEL     => {html_el => 'del', use_class_attr => 1},
                DFN     => {html_el => 'dfn', use_class_attr => 1},
                INS     => {html_el => 'ins', use_class_attr => 1},
                KBD     => {html_el => 'kbd', use_class_attr => 1},
                RUBY    => {html_el => 'ruby'},
                RUBYB   => {html_el => 'rubyb', ns_uri => $NS_SW09},
                SAMP    => {html_el => 'samp', use_class_attr => 1},
                SUB     => {html_el => 'sub'},
                SUP     => {html_el => 'sup'},
                VAR     => {html_el => 'var', use_class_attr => 1},
                WEAK    => {html_el => 'weak', ns_uri => $NS_SW09},
              }->{ $el_name };
              if ($edef) {
                $current = $current->append_new_node (namespace_uri => ($edef->{ns_uri} || $NS_XHTML1), local_name => $edef->{html_el});
                $current->set_attribute (class => $edef->{html_class}) if $edef->{html_class};
                $current->get_attribute ('class', make_new_node => 1)
                        ->append_text ($attr) if $attr && $edef->{use_class_attr};
                if ($edef->{html_el} eq 'ruby' || $edef->{html_el} eq 'abbr') {
                  $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rb');
                }
              } else {
                $current->append_text ($&);
              }
            } elsif ($etag) {
              if (ref $current->parent_node) {
                if ($current->node_type eq '#attribute') {
                  $current = $current->parent_node;
                }
                $current = $current->parent_node;
                if ($current->local_name eq 'ruby') {
                  $current = $current->parent_node;
                }
              } else {
                $current->append_text (']]');
              }
            } elsif ($nxt) {
              my $c_l_n = $current->local_name;
              if ($c_l_n eq 'rb') {
                for ($current->parent_node) {
                  $current = $_->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rt');
                }
              } elsif ($c_l_n eq 'rt') {
                for ($current->parent_node) {
                  $_->append_text (' ');
                  $current = $_->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rt');
                }
              } elsif ($c_l_n eq 'abbr') {
                $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rt');
              } else {
                $current->append_text ('] [');
              }
            } elsif ($lnk) {
              if ($lnk =~ /\[\[\#form(?:\(([A-Za-z0-9-]+)\))?:'((?:[^'\\]|\\.)*)':'((?:[^'\\]|\\.)*)'(?::'((?:[^'\\]|\\.)*)')?\]\]/) {
                my $form = $current->append_new_node (type => '#element',
                                       namespace_uri => $NS_SW09,
                                       local_name => 'form');
                $form->set_attribute (id => $1) if $1;
                $form->append_new_node (type => '#element',
                                        namespace_uri => $NS_SW09,
                                        local_name => 'input')
                #     ->append_new_node (type => '#section',
                #                        namespace_uri => $NS_SGML.'cdata')
                     ->append_text ($2);
                $form->append_new_node (type => '#element',
                                        namespace_uri => $NS_SW09,
                                        local_name => 'output')
                     ->append_text ($3);
                $form->append_new_node (type => '#element',
                                        namespace_uri => $NS_SW09,
                                        local_name => 'option')
                     ->append_text ($4); 
              } elsif ($lnk =~ /\[\[([^]]+)\](?:>>([0-9]+))?\]/) {
                my ($page, $anchor_no) = ($1, $2);
                if ($page eq '#comment') {
                  $current->append_new_node (type => '#element',
                                             namespace_uri => $NS_SW09,
                                             local_name => 'comment')
                          ->option (use_EmptyElemTag => 1);
                } elsif ($page eq '#rcomment') {
                  $current->append_new_node (type => '#element',
                                             namespace_uri => $NS_SW09,
                                             local_name => 'rcomment')
                          ->option (use_EmptyElemTag => 1);
                } elsif ($page =~ /^\#embed:(IMG:)?(.+)$/) {
                  my $e = $current->append_new_node (type => '#element',
                                    namespace_uri => $NS_SW09,
                                    local_name => 'embed')
                                  ->option (use_EmptyElemTag => 1);
                  $e->set_attribute (type => 'IMG') if $1;
                  $e->set_attribute (page => $2);
                } else {
                  my $anchor = $current->append_new_node (type => '#element',
                                             namespace_uri => $NS_SW09,
                                             local_name => 'anchor');
                  $anchor->append_new_node (type => '#element',
                                            namespace_uri => $NS_SW09,
                                            local_name => 'page')
                         ->append_text ($page);
                  $anchor->append_new_node (type => '#element',
                                            namespace_uri => $NS_SW09,
                                            local_name => 'fragment')
                         ->append_text (0+$anchor_no) if defined $anchor_no;
                }
              }
            } elsif ($misc) {
              if ($misc =~ />>([0-9]+)/) {
                $current->append_new_node (type => '#element',
                          namespace_uri => $NS_SW09, local_name => 'anchor')
                        ->append_new_node (type => '#element',
                          namespace_uri => $NS_SW09, local_name => 'fragment')
                        ->append_text (0+$1);
              } elsif ($misc =~ /<([A-Z]+):((?:[^>"]|"(?:[^"\\]|\\.)*")+)>/) {
                $current->append_new_node (type => '#element',
                          namespace_uri => $NS_SW09, local_name => 'anchor')
                        ->append_new_node (type => '#element',
                          namespace_uri => $NS_SW09, local_name => $1)
                        ->append_text ($2);
              } elsif ($misc =~ /<([A-Za-z0-9%]+:[^>]+)>/) {
                $current->append_new_node (type => '#element',
                          namespace_uri => $NS_SW09, local_name => 'anchor')
                        ->append_new_node (type => '#element',
                          namespace_uri => $NS_SW09, local_name => 'uri')
                        ->append_text ($1);
              } elsif ($misc eq q('')) {
                if ($current->local_name eq 'em') {
                  $current = $current->parent_node;
                } else {
                  $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'em');
                }
              } else {  # '''
                if ($current->local_name eq 'strong') {
                  $current = $current->parent_node;
                } else {
                  $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'strong');
                }
              }
            } else {
              $current->append_text ($s);
            }
            '';
          }ge;
          return $l;
        }
        
        SuikaWiki::View->definition (sw09x__xml => {
                media => {type => 'text/plain', expires => 240*3600,
                          charset => 1},
                check => sub { ($_->[0]->{magic}||'SuikaWiki/0.9') =~ m!SuikaWiki/0\.9! ? 1 : 0 },
                template => '%read(to=>SuikaWiki/0.9/XML);'});
        

POD:LICENSE:
        Copyright 2002-2003 Wakaba <w@suika.fam.cx>
        
        %%GNUGPL2%%
1	wakaba	1.1	Name:
2			SuikaWiki09XML
3			FullName:
4			SuikaWiki/0.9 documentation format support with XML syntax
5			URI:
6			IW:SuikaWiki:SuikaWiki
7
8			Initialize:
9			my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
10			my $NS_SW09 = 'urn:x-suika-fam-cx:markup:suikawiki:0:9:';
11
12			{
13			Name:
14			wikiformat/SuikaWiki/0.9-to-SuikaWiki/0.9/XML
15			FullName:
16			SuikaWiki/0.9 wiki syntax -> XML syntax
17			URI:
18			IW:SuikaWiki:SuikaWiki
19			Format:
20			$r = wiki2xml ($o->{content}, %$o);
21			}
22
23			MODULE:
24			sub wiki2xml {
25			my ($txt, %option) = @_;
26			## TODO: const and paramters
27			## Load constants
28			my %const;
29			#if ($option{magic} =~ /import="([^"]+)"/) {
30			# for (split /\s,\s/, $1) {
31			# my $wp = $main::database{$_};
32			# if ($wp =~ m!^\#\?SuikaWikiConst/(?:0.9\|1.0)!) {
33			# wiki::suikawikiconst::to_hash ($wp => \%const);
34			# }
35			# }
36			#}
37
38			#$txt =~ s{__&&([^&]+)&&__}{defined $const{$1}?$const{$1}:qq(__&&$1&&__)}ge;
39			my (@txt) = split(/\n/, $txt);
40			my (@saved, @result);
41			my $p = SuikaWiki::Markup::XML->new (type => '#fragment');
42			my $current = $p;
43			my %depth;
44			my $exit_p = sub {
45			my $current = shift;
46			if ($current->local_name eq 'p') {
47			$current = $current->parent_node;
48			}
49			$current;
50			};
51			my $cut_anchor = sub {
52			my ($current, $content) = @_;
53			if ($content =~ s/^\s*\[([0-9]+)\]\s+//) {
54			$current->append_new_node (type => '#element',
55			namespace_uri => $NS_SW09,
56			local_name => 'anchor-end')
57			->append_text (0+$1);
58			}
59			$content;
60			};
61			my $back_to_section = sub {
62			my $current = shift;
63			while ($current->node_type ne '#fragment') {
64			if ({ins=>1,del=>1,blockquote=>1}->{$current->local_name}) {
65			return $current;
66			}
67			$current = $current->parent_node;
68			}
69			return $current;
70			};
71
72			foreach (@txt) {
73			chomp;
74			if ($depth{block_name}->{$depth{block}} ne 'PRE'
75			&& /^(\{1,5})([^\x0D\x0A])/) {
76			$current = &$back_to_section ($current);
77			for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h'.length ($1))) {
78			$H->append_node (_inline_xml ($2, %option,
79			const => \%const));
80			}
81			} elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^([-=]{1,6})(.*)/) {
82			my ($depth, $content, $type) = (length ($1), $2, (substr ($1, -1) eq '-' ? 'ul' : 'ol'));
83			$current = &$exit_p ($current);
84			if ($current->local_name eq 'li') {
85			if ($depth{list} == $depth && $depth{list_type} eq $type) {
86			$current = $current->parent_node;
87			} elsif ($depth <= $depth{list}) {
88			for (1..($depth{list} - $depth)*2) {
89			($depth{list} = 1, last) unless ref $current->parent_node;
90			($depth{list} = 1, last) unless {li=>1,ul=>1,ol=>1}->{$current->local_name};
91			$current = $current->parent_node;
92			$depth{list} -= 0.5;
93			}
94			$current = $current->parent_node;
95			if ($type ne $current->local_name) {
96			$current = $current->parent_node->append_new_node (namespace_uri => $NS_XHTML1, local_name => $type);
97			$current->parent_node->append_text ("\n");
98			}
99			} else { # $depth{list} < $depth
100			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => $type);
101			$current->parent_node->append_text ("\n");
102			$depth{list}++;
103			}
104			} else {
105			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => $type);
106			$current->parent_node->append_text ("\n\n");
107			$depth{list} = 1;
108			}
109			$depth{list_type} = $type;
110			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'li');
111			$current->parent_node->append_text ("\n");
112			$content = &$cut_anchor ($current, $content);
113			$current->append_node (_inline_xml ($content, %option, const => \%const));
114			} elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^:([^:]+):(.*)/) {
115			$current = &$exit_p ($current);
116			if ($current->local_name eq 'dd') {
117			$current = $current->parent_node->parent_node;
118			} else {
119			$current = $current->append_new_node (type => '#element',
120			namespace_uri => $NS_XHTML1,
121			local_name => 'dl');
122			}
123			$current = $current->append_new_node (type => '#element',
124			namespace_uri => $NS_SW09,
125			local_name => 'dr');
126			$current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dt')
127			->append_node (_inline_xml ($1, %option, const => \%const));
128			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dd');
129			$current->append_node (_inline_xml ($2, %option, const => \%const));
130			} elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^(?!>>[0-9])(>{1,5})(.*)/) {
131			my ($depth, $content) = (length $1, $2);
132			$current = &$exit_p ($current);
133			if ($depth == $depth{bq}) {
134			#
135			} elsif ($depth{bq} < $depth) {
136			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'blockquote');
137			$depth{bq}++;
138			} else { # $depth < $depth{bq}
139			for (1..($depth{bq}-$depth)) {
140			last if $current->node_type eq '#fragment';
141			$current = &$back_to_section ($current->parent_node);
142			}
143			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'blockquote')
144			unless $current->local_name eq 'blockquote';
145			$depth{bq} = $depth;
146			}
147			if (length $content) {
148			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'p');
149			$current->append_node (_inline_xml ($content, %option, const => \%const));
150			}
151			} elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\s*$/) {
152			$current = &$back_to_section ($current);
153			while ($current->local_name eq 'blockquote') {
154			$depth{bq}--;
155			$current = &$back_to_section ($current->parent_node);
156			}
157			} elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^(\s+.*)$/) {
158			if ($current->local_name ne 'pre') {
159			$current = &$exit_p ($current)->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'pre');
160			#$depth{block_name}->{++$depth{block}} = 'pre';
161			}
162			$current->append_node (_inline_xml ($1, %option, const => \%const));
163			} elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\,(.?)[\x0D\x0A]$/) {
164			$current = &$exit_p ($current);
165			if ($current->local_name eq 'td') {
166			$current = $current
167			->parent_node # tr
168			->parent_node # tbody
169			->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
170			} else {
171			$current = $current
172			->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'table')
173			->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tbody')
174			->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
175			}
176			$current->parent_node->append_text ("\n"); # </tr>\n
177			my $tmp = "$1,";
178			my @value = map {/^"(.)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} ($tmp =~ /("[^"](?:""[^"])"\|[^,]*),/g);
179			my @colspan = map {($_ eq '==') ? 0 : 1} @value;
180			my ($tr, $td) = ($current, $current);
181			for (my $i = 0; $i < @value; $i++) {
182			if ($colspan[$i]) {
183			while ($i + $colspan[$i] < @value and $value[$i + $colspan[$i]] eq '==') {
184			$colspan[$i]++;
185			}
186			$td = $tr->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
187			$td->set_attribute (colspan => $colspan[$i]) if $colspan[$i] > 1;
188			$td->append_node (_inline_xml ($value[$i], %option, const => \%const));
189			}
190			}
191			if ($td->local_name eq 'tr') { # No <td/> in the <tr/> (error!)
192			$td = $tr->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
193			}
194			$current = $td;
195			} elsif (/^\[(INS\|DEL\|PRE)\[\s*$/) {
196			if ($depth{block_name}->{$depth{block}} ne 'PRE') {
197			$current = &$exit_p ($current)->append_new_node (namespace_uri => $NS_XHTML1, local_name => lc $1);
198			$depth{block}++;
199			$depth{block_name}->{$depth{block}} = $1;
200			} else {
201			$current->append_text ($_);
202			}
203			} elsif ($depth{block} && /^\]($depth{block_name}->{$depth{block}})\]\s*$/) {
204			while ($current->node_type ne '#fragment') {
205			if ($current->local_name eq lc $depth{block_name}->{$depth{block}}) {
206			$current = $current->parent_node;
207			$depth{block}--;
208			last;
209			}
210			$current = $current->parent_node;
211			}
212			} else {
213			if ($current->node_type eq '#fragment' \|\| {ins=>1,del=>1}->{$current->local_name}) {
214			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'p');
215			$current->parent_node->append_text ("\n\n"); # <P> is two <BR>s:-)
216			}
217			$current->append_node (_inline_xml (&$cut_anchor ($current, $_), %option, const => \%const));
218			}
219			}
220			my $root = SuikaWiki::Markup::XML->new (type => '#document')
221			->append_new_node (type => '#element',
222			namespace_uri => $NS_SW09,
223			local_name => 'body');
224			$root->append_node ($p);
225			$root->define_new_namespace ('' => $NS_XHTML1);
226			$root->define_new_namespace (sw => $NS_SW09);
227			$root->parent_node;
228			}
229
230			sub _inline_xml ($;%) {
231			my ($line, %option) = @_;
232			my $l = SuikaWiki::Markup::XML->new (type => '#fragment');
233			my $current = $l;
234			$line =~ s{(?:\[([A-Z]+)(?:\(([^)])\))?\[\|(\[\[#form(?:\([A-Za-z0-9-]+\))?(?::'(?:[^'\\]\|\\.)')+\]\]\|\[\[[^]]+\](?:>>[0-9]+)?\])\|(\]\])\|(\] \[)\|(>>[0-9]+\|<[A-Za-z0-9%]+:[^>]+>\|'''?)\|([\[\]'<>]\|[^\[\]'<>]+))}{
235			## BUG: <IW:foo:"<foo>">
236			my ($el_name, $attr, $lnk, $etag, $nxt, $misc, $s) = ($1, $2, $3, $4, $5, $6, $7);
237			if ($el_name) {
238			my $edef = {
239			ABBR => {html_el => 'abbr', use_class_attr => 1},
240			CODE => {html_el => 'code', use_class_attr => 1},
241			DEL => {html_el => 'del', use_class_attr => 1},
242			DFN => {html_el => 'dfn', use_class_attr => 1},
243			INS => {html_el => 'ins', use_class_attr => 1},
244			KBD => {html_el => 'kbd', use_class_attr => 1},
245			RUBY => {html_el => 'ruby'},
246			RUBYB => {html_el => 'rubyb', ns_uri => $NS_SW09},
247			SAMP => {html_el => 'samp', use_class_attr => 1},
248			SUB => {html_el => 'sub'},
249			SUP => {html_el => 'sup'},
250			VAR => {html_el => 'var', use_class_attr => 1},
251			WEAK => {html_el => 'weak', ns_uri => $NS_SW09},
252			}->{ $el_name };
253			if ($edef) {
254			$current = $current->append_new_node (namespace_uri => ($edef->{ns_uri} \|\| $NS_XHTML1), local_name => $edef->{html_el});
255			$current->set_attribute (class => $edef->{html_class}) if $edef->{html_class};
256			$current->get_attribute ('class', make_new_node => 1)
257			->append_text ($attr) if $attr && $edef->{use_class_attr};
258			if ($edef->{html_el} eq 'ruby' \|\| $edef->{html_el} eq 'abbr') {
259			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rb');
260			}
261			} else {
262			$current->append_text ($&);
263			}
264			} elsif ($etag) {
265			if (ref $current->parent_node) {
266			if ($current->node_type eq '#attribute') {
267			$current = $current->parent_node;
268			}
269			$current = $current->parent_node;
270			if ($current->local_name eq 'ruby') {
271			$current = $current->parent_node;
272			}
273			} else {
274			$current->append_text (']]');
275			}
276			} elsif ($nxt) {
277			my $c_l_n = $current->local_name;
278			if ($c_l_n eq 'rb') {
279			for ($current->parent_node) {
280			$current = $_->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rt');
281			}
282			} elsif ($c_l_n eq 'rt') {
283			for ($current->parent_node) {
284			$_->append_text (' ');
285			$current = $_->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rt');
286			}
287			} elsif ($c_l_n eq 'abbr') {
288			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rt');
289			} else {
290			$current->append_text ('] [');
291			}
292			} elsif ($lnk) {
293			if ($lnk =~ /\[\[\#form(?:\(([A-Za-z0-9-]+)\))?:'((?:[^'\\]\|\\.))':'((?:[^'\\]\|\\.))'(?::'((?:[^'\\]\|\\.)*)')?\]\]/) {
294			my $form = $current->append_new_node (type => '#element',
295			namespace_uri => $NS_SW09,
296			local_name => 'form');
297			$form->set_attribute (id => $1) if $1;
298			$form->append_new_node (type => '#element',
299			namespace_uri => $NS_SW09,
300			local_name => 'input')
301			# ->append_new_node (type => '#section',
302			# namespace_uri => $NS_SGML.'cdata')
303			->append_text ($2);
304			$form->append_new_node (type => '#element',
305			namespace_uri => $NS_SW09,
306			local_name => 'output')
307			->append_text ($3);
308			$form->append_new_node (type => '#element',
309			namespace_uri => $NS_SW09,
310			local_name => 'option')
311			->append_text ($4);
312			} elsif ($lnk =~ /\[\[([^]]+)\](?:>>([0-9]+))?\]/) {
313			my ($page, $anchor_no) = ($1, $2);
314			if ($page eq '#comment') {
315			$current->append_new_node (type => '#element',
316			namespace_uri => $NS_SW09,
317			local_name => 'comment')
318			->option (use_EmptyElemTag => 1);
319			} elsif ($page eq '#rcomment') {
320			$current->append_new_node (type => '#element',
321			namespace_uri => $NS_SW09,
322			local_name => 'rcomment')
323			->option (use_EmptyElemTag => 1);
324			} elsif ($page =~ /^\#embed:(IMG:)?(.+)$/) {
325			my $e = $current->append_new_node (type => '#element',
326			namespace_uri => $NS_SW09,
327			local_name => 'embed')
328			->option (use_EmptyElemTag => 1);
329			$e->set_attribute (type => 'IMG') if $1;
330			$e->set_attribute (page => $2);
331			} else {
332			my $anchor = $current->append_new_node (type => '#element',
333			namespace_uri => $NS_SW09,
334			local_name => 'anchor');
335			$anchor->append_new_node (type => '#element',
336			namespace_uri => $NS_SW09,
337			local_name => 'page')
338			->append_text ($page);
339			$anchor->append_new_node (type => '#element',
340			namespace_uri => $NS_SW09,
341			local_name => 'fragment')
342			->append_text (0+$anchor_no) if defined $anchor_no;
343			}
344			}
345			} elsif ($misc) {
346			if ($misc =~ />>([0-9]+)/) {
347			$current->append_new_node (type => '#element',
348			namespace_uri => $NS_SW09, local_name => 'anchor')
349			->append_new_node (type => '#element',
350			namespace_uri => $NS_SW09, local_name => 'fragment')
351			->append_text (0+$1);
352			} elsif ($misc =~ /<([A-Z]+):((?:[^>"]\|"(?:[^"\\]\|\\.)*")+)>/) {
353			$current->append_new_node (type => '#element',
354			namespace_uri => $NS_SW09, local_name => 'anchor')
355			->append_new_node (type => '#element',
356			namespace_uri => $NS_SW09, local_name => $1)
357			->append_text ($2);
358			} elsif ($misc =~ /<([A-Za-z0-9%]+:[^>]+)>/) {
359			$current->append_new_node (type => '#element',
360			namespace_uri => $NS_SW09, local_name => 'anchor')
361			->append_new_node (type => '#element',
362			namespace_uri => $NS_SW09, local_name => 'uri')
363			->append_text ($1);
364			} elsif ($misc eq q('')) {
365			if ($current->local_name eq 'em') {
366			$current = $current->parent_node;
367			} else {
368			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'em');
369			}
370			} else { # '''
371			if ($current->local_name eq 'strong') {
372			$current = $current->parent_node;
373			} else {
374			$current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'strong');
375			}
376			}
377			} else {
378			$current->append_text ($s);
379			}
380			'';
381			}ge;
382			return $l;
383			}
384
385			SuikaWiki::View->definition (sw09x__xml => {
386			media => {type => 'text/plain', expires => 240*3600,
387			charset => 1},
388			check => sub { ($_->[0]->{magic}\|\|'SuikaWiki/0.9') =~ m!SuikaWiki/0\.9! ? 1 : 0 },
389			template => '%read(to=>SuikaWiki/0.9/XML);'});
390
391
392			POD:LICENSE:
393			Copyright 2002-2003 Wakaba <w@suika.fam.cx>
394
395			%%GNUGPL2%%