/[pub]/suikawiki/script/misc/plugins/SuikaWiki09.wp2
Suika

Diff of /suikawiki/script/misc/plugins/SuikaWiki09.wp2

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

revision 1.2 by wakaba, Sat Dec 13 04:53:59 2003 UTC revision 1.22 by wakaba, Fri Nov 18 14:25:28 2005 UTC
# Line 3  Line 3 
3  Plugin:  Plugin:
4    @Name: SuikaWiki09    @Name: SuikaWiki09
5    @Description:    @Description:
6      @@@: SuikaWiki/0.9 document format      @@@: SuikaWiki/0.9 and SuikaWiki/0.10 document formats
7      @@lang:en      @@lang:en
8    @License: %%GPL%%    @License: %%Perl%%
9    @Author:    @Author:
10      @@Name:      @@Name:
11        @@@@: Wakaba        @@@@: Wakaba
12        @@@lang:ja        @@@lang:ja
13        @@@script:Latn        @@@script:Latn
14      @@Mail[list]: w@suika.fam.cx      @@Mail[list]: w@suika.fam.cx
15    @Date.RCS: $Date$    @Date.RCS:
16        $Date$
17    @RequiredPlugin[list]:    @RequiredPlugin[list]:
18        Edit
19        WikiFormCore
20      WikiLinking      WikiLinking
21        WikiStruct
22    @Use:    @Use:
23      use Message::Markup::XML::QName qw/NS_xml_URI/;      use Message::Markup::XML::QName qw/NS_xml_URI/;
24      my $Reg_Form_Content_M = qr{      my $Reg_Form_Content_M = qr{
# Line 23  Plugin: Line 27  Plugin:
27   \               \( (\w+) \)                                 ## id   \               \( (\w+) \)                                 ## id
28   \             )?   \             )?
29   \             : ' ((?>[^\\']*)(?>(?>[^\\']+|\\.)*)) '       ## input   \             : ' ((?>[^\\']*)(?>(?>[^\\']+|\\.)*)) '       ## input
30   \         (?: : ' ((?>[^\\']*)(?>(?>[^\\']+|\\.)*)) '       ## template   \         (?> : ' ((?>[^\\']*)(?>(?>[^\\']+|\\.)*)) '       ## template
31   \         (?: : ' ((?>[^\\']*)(?>(?>[^\\']+|\\.)*)) ' )? )? ## option   \         (?> : ' ((?>[^\\']*)(?>(?>[^\\']+|\\.)*)) ' )? )? ## option
32      }x;      }x;
33      my $Reg_Embed_Content_M = qr{      my $Reg_Embed_Content_M = qr{
34   \     \#([a-z-]+)   \     \#([a-z-]+)
# Line 45  Plugin: Line 49  Plugin:
49   \     )   \     )
50      }x;      }x;
51    
52        my ($WIKIRESOURCE, $WIKISTRUCT, $WIKIFORMCORE, $WIKILINKING);
53    
54  PluginConst:  PluginConst:
55      @NS_AA:
56        http://pc5.2ch.net/test/read.cgi/hp/1096723178/aavocab#
57    @NS_SW09:    @NS_SW09:
58      urn:x-suika-fam-cx:markup:suikawiki:0:9:      urn:x-suika-fam-cx:markup:suikawiki:0:9:
59      @NS_SW010:
60        urn:x-suika-fam-cx:markup:suikawiki:0:10:
61    @NS_HTML3:    @NS_HTML3:
62      urn:x-suika-fam-cx:markup:ietf:html:3:draft:00:      urn:x-suika-fam-cx:markup:ietf:html:3:draft:00:
63    @NS_XHTML1:    @NS_XHTML1:
64      http://www.w3.org/1999/xhtml      http://www.w3.org/1999/xhtml
65    @NS_XHTML2:    @NS_XHTML2:
66      http://www.w3.org/2002/06/xhtml2      http://www.w3.org/2002/06/xhtml2/
67      @NS_XML:
68        http://www.w3.org/XML/1998/namespace
69      @WIKIFORMCORE:
70        {($WIKIFORMCORE ||= SuikaWiki::Plugin->module_package ('WikiFormCore'))}
71      @WIKILINKING:
72        {($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))}
73      @WIKIRESOURCE:
74        {($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))}
75      @WIKISTRUCT:
76        {($WIKISTRUCT ||= SuikaWiki::Plugin->module_package ('WikiStruct'))}
77    
78    
79    
80  Format:  Format:
81    @ModuleName:    @ModuleName:
# Line 66  Format: Line 88  Format:
88    
89  Format:  Format:
90    @Name: SuikaWiki    @Name: SuikaWiki
91      @Version: 0.10
92      @Type:
93        @@@: text/x-suikawiki
94        @@version: 0.10
95      @ModuleName:
96        SuikaWiki::V0_10
97      @Inherit[list]:
98        SuikaWiki::V0_9
99      @Description:
100        @@@: SuikaWiki/0.10 document format (SuikaWiki/0.9 with minor additions)
101        @@lang: en
102    
103    Format:
104      @Name: SuikaWiki
105    @Version: 0.9    @Version: 0.9
106    @Type:    @Type:
107      @@@: text/x-suikawiki      @@@: text/x-suikawiki
# Line 80  Format: Line 116  Format:
116        
117    @Use:    @Use:
118      use Message::Markup::XML::QName qw/NS_xml_URI/;      use Message::Markup::XML::QName qw/NS_xml_URI/;
119        use Message::Util::Error;
120    
121    @Converter:    @Converter:
122      @@Type: text/html      @@Type: text/html
# Line 88  Format: Line 125  Format:
125        @@@@: Converting SuikaWiki/0.9 to Hypertext Markup Language fragment        @@@@: Converting SuikaWiki/0.9 to Hypertext Markup Language fragment
126        @@@lang:en        @@@lang:en
127      @@Main:      @@Main:
128  #      __FUNCPACK__->to_html ($source, %$opt);        $opt->{o}->{wiki} ||= $self->{wiki};
129          
130      ## Text format -> XML format      ## Text format -> XML format
131        my $xml = new Message::Markup::XML::Node type => '#fragment';        my $xml = __FUNCPACK__->get_xml_tree (text => $source, opt => $opt,
132        __FUNCPACK__->text_to_xml ($source, {%$opt, -parent => $xml});                                              wiki => $self->{wiki});
133    
134        ## SuikaWiki/0.9 -> XHTML 1
135          __FUNCPACK__->sw09_to_xhtml1 (source => $xml, parent => $opt->{-parent},
136                                        o => $opt->{o}, page => $opt->{page});
137    
138          if ($opt->{-with_annotation_input}) {
139            SuikaWiki::Plugin->module_package ('WikiFormCore')
140                             ->make_content_form_in_html
141                                 ($opt->{-parent},
142                                  $WIKIRESOURCE->get
143                                    (name => 'SuikaWiki/0.9:form:footannotate:input',
144                                     o => $opt->{o}, wiki => $opt->{o}->{wiki}),
145                                  option => $WIKIRESOURCE->get
146                                    (name => 'SuikaWiki/0.9:form:footannotate:option',
147                                     o => $opt->{o}, wiki => $opt->{o}->{wiki}),
148                                  o => $opt->{o},
149                                  wiki => $opt->{o}->{wiki},
150                                  output => {
151                                    page => $opt->{page},
152                                  });
153          }
154    
155    
156      @Converter:
157        @@Type:
158          @@@@: application/x-suikawiki+xml
159          @@@version: 0.9
160        @@Description:
161          @@@@: Converting SuikaWiki/0.9 text format to XML format
162          @@@lang: en
163        @@Main:
164          my $xml = __FUNCPACK__->get_xml_tree (text => $source, opt => $opt,
165                                                wiki => $self->{wiki});
166    ## TODO: Make a clone
167          $opt->{-parent}->append_node ($xml);
168    
169      @NextIndex:
170        @@Name: anchor
171        @@Main:
172          my $xml = __FUNCPACK__->get_xml_tree (text => $source, opt => \%opt,
173                                                wiki => $self->{wiki});
174          (__FUNCPACK__->get_last_anchor_index ($xml)) + 1;
175      
176      @WikiForm:
177        @@Main:
178          ## Text format -> XML format
179          my $xml = __FUNCPACK__->get_xml_tree (text => $source, opt => \%opt,
180                                                wiki => $self->{wiki});
181          local $opt{o}->{var}->{sw09__anchor_index};
182          local $opt{o}->{var}->{sw09__document_tree} = $xml;
183    
184          my $form;
185          if ($opt{o}->{form}->{output}->{id}) {
186            $form = __FUNCPACK__->get_element_by_id
187                      ($xml, $opt{o}->{form}->{output}->{id});
188            undef $form unless ref $form and
189                               $form->namespace_uri eq $NS_SW09 and
190                               $form->local_name eq 'form';
191          } else {
192            $form = __FUNCPACK__->get_nth_element
193                      ($xml, $NS_SW09 => 'form',
194                       $opt{o}->{form}->{output}->{index});
195          }
196          
197          my $ref;
198          if (ref $form) {
199            $ref = $form->get_attribute_value ('ref', default => 'form');
200          } else {
201            $ref = '#footannotate';
202          }
203          
204          
205          ## WikiForm Option
206          if ($ref eq 'form') {
207            $opt{option} ||= $form->get_attribute_value ('option');
208          } elsif ($ref eq 'comment') {
209            $opt{option} ||= $WIKIRESOURCE->get
210                               (name => 'SuikaWiki/0.9:form:comment:option',
211                                o => $opt{o}, wiki => $opt{o}->{wiki});
212          } elsif ($ref eq '#footannotate') {
213            $opt{option} ||= $WIKIRESOURCE->get
214                               (name => 'SuikaWiki/0.9:form:footannotate:option',
215                                o => $opt{o}, wiki => $opt{o}->{wiki});
216          } else {
217    ## TODO:
218          }
219          $WIKIFORMCORE->set_option ($opt{option} => $opt{o}) if $opt{option};
220    
221          my @missing;
222          for (keys %{$opt{o}->{form}->{require}->{id}}) {
223            unless (length $opt{o}->{wiki}->{input}->parameter
224                         ($WIKIFORMCORE->control_id ($opt{o}, local_id => $_,
225                                                     local_id_prefix => 'wikiform__')
226                                       ->{local_id})) {
227              push @missing, $_;
228            }
229          }
230          if (@missing) {
231            return [{
232              type => 'required_param_missing',
233              missing_id => \@missing,
234            }];
235          }
236          
237          ## Replace Output Template
238          my $result;
239          if ($ref eq 'form') {
240            $opt{template} ||= $form->get_attribute_value
241                                        ('template', default => '');
242          } elsif ($ref eq 'comment') {
243            $opt{template} ||= $WIKIRESOURCE->get
244                                 (name => 'SuikaWiki/0.9:form:comment:template',
245                                  o => $opt{o}, wiki => $opt{o}->{wiki});
246          } elsif ($ref eq '#footannotate') {
247            $opt{template} ||= $WIKIRESOURCE->get
248                                 (name => 'SuikaWiki/0.9:form:footannotate:template',
249                                  o => $opt{o}, wiki => $opt{o}->{wiki});
250          }
251          try {
252            $result = SuikaWiki::Plugin->text_formatter ('form_template')
253                             ->replace ($opt{template}, param => $opt{o});
254          } catch Message::Util::Formatter::error with {
255            my $err = shift;
256            SuikaWiki::Plugin->module_package ('Error')
257                             ->reporting_formatting_template_error
258                                 ($err, $err->{option}->{param}->{wiki});
259    ##TODO:
260            throw SuikaWiki::View::Implementation::error -type => 'ERROR_REPORTED';
261          };      
262    
263          ## Insert
264          if (length $result) {
265            if ($ref eq '#footannotate') {
266              my $parent;
267              for (@{$xml->child_nodes}) {
268                if ($_->node_type eq '#element' and
269                    $_->local_name eq 'document') {
270                  for (@{$_->child_nodes}) {
271                    if ($_->node_type eq '#element' and
272                        $_->local_name eq 'body') {
273                      $parent = $_;
274                      last;
275                    }
276                  }
277                }
278              }
279              CORE::die "Buggy implementation: no body element".$xml
280                        unless ref $parent;
281              
282              $parent->append_new_node (type => '#element',
283                                        namespace_uri => $NS_SW09,
284                                        local_name => 'text')
285                     ->append_text ($result);
286            } else {
287              my $parent = $form->parent_node;
288              CORE::die "Byggy implementation: No parent of form" unless ref $parent;
289              my $children = $parent->child_nodes;
290              
291              $result .= "\x0A" unless substr ($result, -1) eq "\x0A";
292              $parent->append_new_node (type => '#element',
293                                        namespace_uri => $NS_SW09,
294                                        local_name => 'text')
295                     ->append_text ($result);
296              my $node = pop @{$children};
297              my $form_str = overload::StrVal ($form);
298              my $i = 0;
299              for (@{$children}) {
300                last if overload::StrVal ($_) eq $form_str;
301                $i++;
302              }
303              if ($opt{o}->{form}->{output}->{reverse}) {
304                splice @{$children}, $i + 1, 0, $node;
305              } else {
306                splice @{$children}, $i, 0, $node;
307              }
308            }
309          } else {
310    ## TODO:
311          }
312    
313          ## XML format -> Text format
314          my $text = __FUNCPACK__->xml_to_text ($xml, {%opt});
315    
316          my %fragment = (fragment => $opt{o}->{form}->{output}->{id}
317                                || 'wikiform-'.$opt{o}->{form}->{output}->{index});
318          if (not $opt{o}->{form}->{output}->{reverse} and
319              $opt{o}->{var}->{sw09__anchor_index}) {
320            %fragment = (anchor_no => $opt{o}->{var}->{sw09__anchor_index});
321          }
322    
323          my $action = [
324            {
325              type => 'write',
326              content => $text,
327              update_lastmodified => time,
328            },
329            {
330              type => 'ok',
331              %fragment,
332            },
333          ];
334    
335      @HeadSummary:
336        @@Main:
337          my $xml = __FUNCPACK__->get_xml_tree (text => $source, opt => \%opt,
338                                                wiki => $self->{wiki});
339          return $xml->inner_text;
340    
341    FormattingRule:
342      @Category[list]:form-template
343      @Name: index
344      @Description:
345        @@@: Next anchor index number
346        @@lang:en
347      @After:
348        if ($o->{var}->{sw09__anchor_index}) {
349          ++$o->{var}->{sw09__anchor_index};
350        } else {
351          $o->{var}->{sw09__anchor_index}
352            = 1 + __FUNCPACK__->get_last_anchor_index
353                                  ($o->{var}->{sw09__document_tree});
354        }
355        $p->{-result} .= $o->{var}->{sw09__anchor_index};
356    
357    Function:
358      @Name: get_last_anchor_index
359      @Main:
360          my (undef, $xml) = @_;
361          my $anchor = 0;
362          my $get_anchor_no;
363          $get_anchor_no = sub {
364            my $node = shift;
365            for my $child (@{$node->child_nodes}) {
366              my $nt = $child->node_type;
367              if ($nt eq '#element') {
368                if ($child->namespace_uri => $NS_SW09 and
369                    $child->local_name eq 'anchor-end') {
370                  my $a = $child->get_attribute_value ('anchor', default => 0,
371                                                       namespace_uri => $NS_SW09);
372                  $anchor = 0+$a if $anchor < 0+$a;
373                } else {
374                  $get_anchor_no->($child);
375                }
376              } elsif ($nt eq '#document' or $nt eq '#fragment') {
377                $get_anchor_no->($child);
378              }
379            }
380          };
381          $get_anchor_no->($xml);
382          $anchor;
383    
384    
385    Function:
386      @Name: get_xml_tree
387      @Main:
388        my (undef, %opt) = @_;
389        if ($opt{opt}->{page}) {
390                
391      ## TODO:
392          unless ($__FUNCPACK__::DBLoaded) {
393            $opt{wiki}->{db}->_set_prop_db (sw09__xml_tree => {-db_open => sub {
394              require SuikaWiki::DB::Hash;
395              new SuikaWiki::DB::Hash;
396            }});
397            $__FUNCPACK__::DBLoaded++;
398          }
399        
400          my $xml = new Message::Markup::XML::Node type => '#fragment';
401          __FUNCPACK__->text_to_xml (${$opt{text}}, {%{$opt{opt}}, -parent => $xml});
402    
403          $opt{wiki}->{db}->set (sw09__xml_tree => $opt{opt}->{page} => $xml);
404          $xml;
405        } else {
406          my $xml = new Message::Markup::XML::Node type => '#fragment';
407          __FUNCPACK__->text_to_xml (${$opt{text}}, {%{$opt{opt}}, -parent => $xml});
408          $xml;
409        }
410    
411    Function:
412      @Name: sw09_to_xhtml1
413      @Description:
414        @@lang:en
415        @@@: Transform a SuikaWiki/0.9 or SuikaWiki/0.10 XML tree to an XHTML tree.
416      @Main:
417        my (undef, %opt) = @_;
418    
419        my ($apply_template, $apply_template_children);        my ($apply_template, $apply_template_children);
420        $apply_template_children = sub {        $apply_template_children = sub {
421          my ($parent, $result) = @_;          for (@{$_[0]->child_nodes}) {
422          for (@{$parent->child_nodes}) {            $apply_template->($_ => $_[1]) unless $_->node_type eq '#attribute';
           $apply_template->($_ => $result) unless $_->node_type eq '#attribute';  
423          }          }
424        };        };
425        $apply_template = sub {        $apply_template = sub {
# Line 105  Format: Line 427  Format:
427          my $ln = $source->local_name;          my $ln = $source->local_name;
428          if ($source->node_type eq '#text') {          if ($source->node_type eq '#text') {
429            $result->append_text ($source->inner_text);            $result->append_text ($source->inner_text);
430          } elsif ({qw/code 1 samp 1 var 1 dfn 1 kbd 1 sub 1 sup 1/}->{$ln}) {          } elsif ({qw/code 1 samp 1 var 1 dfn 1 kbd 1 sub 1 sup 1
431                         cite 1 span 1/   ## SuikaWiki/0.10
432                     }->{$ln}) {
433            my $node = $result->append_new_node            my $node = $result->append_new_node
434                                  (type => '#element',                                  (type => '#element',
435                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
436                                   local_name => $ln);                                   local_name => $ln);
437            my $class = $source->get_attribute_value ('class', default => '');            my $class = $source->get_attribute_value ('class', default => '');
438            $node->set_attribute (class => $class) if $class;            $node->set_attribute (class => $class) if $class;
439              my $lang = $source->get_attribute_value
440                                          ('lang', namespace_uri => NS_xml_URI);
441              if (defined $lang) {
442                $node->set_attribute (lang => $lang);
443                $node->set_attribute ('xml:lang' => $lang,
444                                      namespace_uri => NS_xml_URI,
445                                      namespace_prefix => 'xml');
446              }
447            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
448          } elsif ({qw/ins 1 del 1/}->{$ln}) {          } elsif ({qw/ins 1 del 1 insert 1 delete 1/}->{$ln}) {
449            my $node = $result->append_new_node            my $node = $result->append_new_node
450                                  (type => '#element',                                  (type => '#element',
451                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
452                                   local_name => $ln);                                   local_name => {qw/ins ins insert ins
453                                                       delete del del del/}->{$ln});
454            my $class = $source->get_attribute_value ('class', default => '');            my $class = $source->get_attribute_value ('class', default => '');
455            $node->set_attribute (class => $class) if $class;            $node->set_attribute (class => $class) if $class;
456              my $lang = $source->get_attribute_value
457                                          ('lang', namespace_uri => NS_xml_URI);
458              if (defined $lang) {
459                $node->set_attribute (lang => $lang);
460                $node->set_attribute ('xml:lang' => $lang,
461                                      namespace_uri => NS_xml_URI,
462                                      namespace_prefix => 'xml');
463              }
464            ## TODO: cite            ## TODO: cite
465            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
466          } elsif ({qw/table 1 tbody 1 tr 1 td 1 blockquote 1 ul 1 ol 1          } elsif ({qw/table 1 tbody 1 tr 1 td 1 blockquote 1 ul 1 ol 1
# Line 134  Format: Line 475  Format:
475            } elsif ($ln eq 'pre') {            } elsif ($ln eq 'pre') {
476              $node->set_attribute (space => 'preserve',              $node->set_attribute (space => 'preserve',
477                                    namespace_uri => NS_xml_URI);                                    namespace_uri => NS_xml_URI);
478                my $class = $source->get_attribute_value ('class', default => '');
479                $node->set_attribute (class => $class) if length $class;
480            }            }
481            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
482          } elsif ($ln eq 'anchor') {          } elsif ($ln eq 'anchor') {
483            local $opt->{o}->{var}->{sw09__anchor_content} = sub {            local $opt{o}->{var}->{sw09__anchor_content} = sub {
484              $apply_template_children->($source => shift);              $apply_template_children->($source => shift);
485            };            };
486            SuikaWiki::Plugin->module_package ('WikiLinking')            SuikaWiki::Plugin->module_package ('WikiLinking')
487                             ->to_wikipage_in_html ({                             ->to_wikipage_in_html ({
488              label       => SuikaWiki::Plugin->resource              label => $WIKIRESOURCE->get_text
489                               ('Link:SuikaWiki/0.9:toWikiPage:SourceLabel'),                                   (name =>
490                                        'Link:SuikaWiki/0.9:toWikiPage:SourceLabel',
491                                      param => $opt{o},
492                                      wiki => $opt{o}->{wiki}),
493            } => {            } => {
494      ## TODO:              base                => $opt{o}->{wiki}->{var}->{page},
495              page_name_relative  => [split m#//#, $source->inner_text],              page_name   => $opt{o}->{wiki}->name ($source->inner_text)
496              page_anchor_no      => $source->get_attribute_value ('anchor'),                                            ->absolute (wiki => $opt{o}->{wiki},
497                                                     nearest => 'content',
498                                                     base => $opt{o}->{wiki}
499                                                                    ->{var}->{page}),
500                page_anchor_no      => $source->get_attribute_value
501                                         ('anchor',
502                                          namespace_uri => $NS_SW09),
503            }, {            }, {
504              o => $opt->{o},              o => $opt{o},
505              parent => $result,              parent => $result,
506            });            });
507          } elsif ($ln eq 'p') {          } elsif ($ln eq 'p') {
# Line 159  Format: Line 511  Format:
511                                                     local_name => 'p'));                                                     local_name => 'p'));
512          } elsif ($ln eq 'h') {          } elsif ($ln eq 'h') {
513            my $node;            my $node;
514            if ($opt->{o}->{var}->{ws__section_depth} > 6) {            if ($opt{o}->{var}->{ws__section_depth} > 6) {
515              $node = $result->append_new_node              $node = $result->append_new_node
516                                  (type => '#element',                                  (type => '#element',
517                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
518                                   local_name => 'div');                                   local_name => 'div');
519              $node->set_attribute (class => 'heading h'.$opt->{o}->{var}              $node->set_attribute (class => 'heading h'.$opt{o}->{var}
520                                                     ->{ws__section_depth});                                                     ->{ws__section_depth});
521            } else {            } else {
522              $node = $result->append_new_node              $node = $result->append_new_node
523                                  (type => '#element',                                  (type => '#element',
524                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
525                                   local_name => 'h'.$opt->{o}->{var}                                   local_name => 'h'.$opt{o}->{var}
526                                                         ->{ws__section_depth});                                                         ->{ws__section_depth});
527            }            }
528            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
529              $WIKISTRUCT->set_section_id ($result, undef, $opt{o}->{wiki},
530                                                 title => $source->inner_text);
531          } elsif ($ln eq 'ruby' or $ln eq 'rubyb') {          } elsif ($ln eq 'ruby' or $ln eq 'rubyb') {
532            my @child;            my @child;
533            for (@{$source->child_nodes}) {            for (@{$source->child_nodes}) {
# Line 194  Format: Line 548  Format:
548                my $class = $source->get_attribute_value ('class', default => '');                my $class = $source->get_attribute_value ('class', default => '');
549                $_->set_attribute (class => $class) if $class;                $_->set_attribute (class => $class) if $class;
550              }              }
551                my $lang = $source->get_attribute_value
552                                          ('lang', namespace_uri => NS_xml_URI);
553                if (defined $lang) {
554                  $_->set_attribute (lang => $lang);
555                  $_->set_attribute ('xml:lang' => $lang,
556                                     namespace_uri => NS_xml_URI,
557                                     namespace_prefix => 'xml');
558                }
559              $apply_template_children->($child[0]              $apply_template_children->($child[0]
560                       => $_->append_new_node (type => '#element',                       => $_->append_new_node (type => '#element',
561                                               namespace_uri => $NS_XHTML1,                                               namespace_uri => $NS_XHTML1,
# Line 237  Format: Line 599  Format:
599                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
600                                   local_name => 'abbr');                                   local_name => 'abbr');
601            $node->set_attribute (title => $b[1]->inner_text) if $b[1];            $node->set_attribute (title => $b[1]->inner_text) if $b[1];
602              my $lang = $source->get_attribute_value
603                                          ('lang', namespace_uri => NS_xml_URI);
604              if (defined $lang) {
605                $node->set_attribute (lang => $lang);
606                $node->set_attribute ('xml:lang' => $lang,
607                                      namespace_uri => NS_xml_URI,
608                                      namespace_prefix => 'xml');
609              }
610              $apply_template_children->($b[0] => $node);
611            } elsif ($ln eq 'qn') {
612              my (@b);
613              for (@{$source->child_nodes}) {
614                push @b, $_ if {qw/qname 1 nsuri 1/}->{$_->local_name};
615              }
616              my $node = $result->append_new_node
617                                    (type => '#element',
618                                     namespace_uri => $NS_XHTML1,
619                                     local_name => 'code');
620              $node->set_attribute (class => 'qname');
621              my $lang = $source->get_attribute_value
622                                          ('lang', namespace_uri => NS_xml_URI);
623              if (defined $lang) {
624                $node->set_attribute (lang => $lang);
625                $node->set_attribute ('xml:lang' => $lang,
626                                      namespace_uri => NS_xml_URI,
627                                      namespace_prefix => 'xml');
628              }
629              $node->set_attribute (title => '{<'.$b[1]->inner_text.'>}') if $b[1];
630            $apply_template_children->($b[0] => $node);            $apply_template_children->($b[0] => $node);
631          } elsif ($ln eq 'q') {          } elsif ($ln eq 'q') {
632            my $node = $result->append_new_node            my $node = $result->append_new_node
# Line 244  Format: Line 634  Format:
634                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
635                                   local_name => 'q');                                   local_name => 'q');
636            ## TODO: cite            ## TODO: cite
637              my $lang = $source->get_attribute_value
638                                          ('lang', namespace_uri => NS_xml_URI);
639              if (defined $lang) {
640                $node->set_attribute (lang => $lang);
641                $node->set_attribute ('xml:lang' => $lang,
642                                      namespace_uri => NS_xml_URI,
643                                      namespace_prefix => 'xml');
644              }
645            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
646          } elsif ($ln eq 'weak') {          } elsif ($ln eq 'weak' or
647                     $ln eq 'aa'        ## SuikaWiki/0.10
648                    ) {
649            my $node = $result->append_new_node            my $node = $result->append_new_node
650                                  (type => '#element',                                  (type => '#element',
651                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
652                                   local_name => 'span');                                   local_name => 'span');
653            $node->set_attribute (class => 'weak');            my @class = split /\s+/,
654                             $source->get_attribute_value ('class', default => '');
655              $node->set_attribute (class => join ' ', $ln, @class);
656              my $lang = $source->get_attribute_value
657                                          ('lang', namespace_uri => NS_xml_URI);
658              if (defined $lang) {
659                $node->set_attribute (lang => $lang);
660                $node->set_attribute ('xml:lang' => $lang,
661                                      namespace_uri => NS_xml_URI,
662                                      namespace_prefix => 'xml');
663              }
664              $apply_template_children->($source => $node);
665            } elsif ($ln eq 'src') { ## SuikaWiki/0.10
666              my $node = $result->append_new_node
667                                    (type => '#element',
668                                     namespace_uri => $NS_XHTML1,
669                                     local_name => 'cite');
670              my @class = split /\s+/,
671                             $source->get_attribute_value ('class', default => '');
672              $node->set_attribute (class => join ' ', $ln, @class);
673              my $lang = $source->get_attribute_value
674                                          ('lang', namespace_uri => NS_xml_URI);
675              if (defined $lang) {
676                $node->set_attribute (lang => $lang);
677                $node->set_attribute ('xml:lang' => $lang,
678                                      namespace_uri => NS_xml_URI,
679                                      namespace_prefix => 'xml');
680              }
681              $node->append_text ("[");
682              $apply_template_children->($source => $node);
683              $node->append_text ("]");
684            } elsif ($ln eq 'csection') { ## SuikaWiki/0.10
685              my $node = $result->append_new_node
686                                    (type => '#element',
687                                     namespace_uri => $NS_XHTML1,
688                                     local_name => 'cite');
689              my @class = split /\s+/,
690                             $source->get_attribute_value ('class', default => '');
691              $node->set_attribute (class => join ' ', $ln, @class);
692              $apply_template_children->($source => $node);
693            } elsif ($ln eq 'key') { ## SuikaWiki/0.10
694              my $node = $result->append_new_node
695                                    (type => '#element',
696                                     namespace_uri => $NS_XHTML1,
697                                     local_name => 'kbd');
698              my @class = split /\s+/,
699                             $source->get_attribute_value ('class', default => '');
700              $node->set_attribute (class => join ' ', $ln, @class);
701              my $lang = $source->get_attribute_value
702                                          ('lang', namespace_uri => NS_xml_URI);
703              if (defined $lang) {
704                $node->set_attribute (lang => $lang);
705                $node->set_attribute ('xml:lang' => $lang,
706                                      namespace_uri => NS_xml_URI,
707                                      namespace_prefix => 'xml');
708              }
709            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
710          } elsif ({qw/section 1 bodytext 1/}->{$ln}) {          } elsif ({qw/section 1 bodytext 1/}->{$ln}) {
711            my $node = $result->append_new_node            my $node = $result->append_new_node
# Line 258  Format: Line 713  Format:
713                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
714                                   local_name => 'div');                                   local_name => 'div');
715            $node->set_attribute (class => $ln);            $node->set_attribute (class => $ln);
716            local $opt->{o}->{var}->{ws__section_depth}            local $opt{o}->{var}->{ws__section_depth}
717                = $opt->{o}->{var}->{ws__section_depth} + 1;                = $opt{o}->{var}->{ws__section_depth} + 1;
718            $apply_template_children->($source => $node);            $apply_template_children->($source => $node);
719          } elsif ($ln eq 'anchor-end') {          } elsif ($ln eq 'anchor-end') {
720            my $node = $result->append_new_node            my $node = $result->append_new_node
# Line 267  Format: Line 722  Format:
722                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
723                                   local_name => 'a');                                   local_name => 'a');
724            $node->set_attribute (id => 'anchor-'.$source->get_attribute_value            $node->set_attribute (id => 'anchor-'.$source->get_attribute_value
725                                                    ('anchor', default => '0'));                                                    ('anchor', default => '0',
726                                                       namespace_uri => $NS_SW09));
727              $node->set_attribute (name => 'anchor-'.$source->get_attribute_value
728                                                      ('anchor', default => '0',
729                                                       namespace_uri => $NS_SW09))
730                if $opt{o}->{wiki}->{var}->{client}->{downgrade}->{html_no_id};
731              $node->set_attribute (class => 'anchor');
732            $node->append_text ($source->inner_text);            $node->append_text ($source->inner_text);
733          } elsif ($ln eq 'anchor-internal') {          } elsif ($ln eq 'anchor-internal') {
734            my $node = $result->append_new_node            my $node = $result->append_new_node
# Line 275  Format: Line 736  Format:
736                                   namespace_uri => $NS_XHTML1,                                   namespace_uri => $NS_XHTML1,
737                                   local_name => 'a');                                   local_name => 'a');
738            $node->set_attribute (href => '#anchor-'.$source->get_attribute_value            $node->set_attribute (href => '#anchor-'.$source->get_attribute_value
739                                                       ('anchor', default => '0'));                                                       ('anchor',
740                                       namespace_uri => $NS_SW09, default => '0'));
741            $node->set_attribute (class => 'wiki-anchor');            $node->set_attribute (class => 'wiki-anchor');
742            $node->append_text ($source->inner_text);            $node->append_text ($source->inner_text);
743            } elsif ($ln eq 'anchor-external') {
744              local $opt{o}->{var}->{sw09__anchor_content} = sub {
745                $apply_template_children->($source => shift);
746              };
747              $WIKILINKING
748                    ->to_resource_in_html (
749                        {
750                         label => $WIKIRESOURCE
751                                    ->get_text (name =>
752                                       'Link:SuikaWiki/0.9:toResource:SourceLabel',
753                                       param => $opt{o},
754                                       wiki => $opt{o}->{wiki}),
755                        }, {
756                          resource_scheme =>
757                            $source->get_attribute_value ('resScheme',
758                                                          namespace_uri => $NS_SW09,
759                                                          default => 'URI'),
760                          resource_parameter =>
761                            $source->get_attribute_value ('resParameter',
762                                                          namespace_uri => $NS_SW09,
763                                                          default => ''),
764                        }, {
765                         o => $opt{o},
766                         parent => $result,
767                        });
768            } elsif ($ln eq 'form') {
769              my $ref = $source->get_attribute_value ('ref', default => 'form');
770              if ($ref eq 'form') {
771                $WIKIFORMCORE->make_content_form_in_html
772                                     ($result,
773                                      $source->get_attribute_value
774                                                        ('input', default => ''),
775                                      option => $source->get_attribute_value
776                                                           ('option'),
777                                      name => $source->get_attribute_value ('id'),
778                                      o => $opt{o},
779                                      wiki => $opt{o}->{wiki},
780                                      output => {
781                                        page => $opt{page},
782                                      });
783              } elsif ($ref eq 'comment') {
784                $WIKIFORMCORE->make_content_form_in_html
785                                     ($result,
786                                      $WIKIRESOURCE->get
787                                        (name => 'SuikaWiki/0.9:form:comment:input',
788                                         o => $opt{o}, wiki => $opt{o}->{wiki}),
789                                      option => $WIKIRESOURCE->get
790                                        (name => 'SuikaWiki/0.9:form:comment:option',
791                                         o => $opt{o}, wiki => $opt{o}->{wiki}),
792                                      name => $source->get_attribute_value ('id'),
793                                      o => $opt{o},
794                                      wiki => $opt{o}->{wiki},
795                                      output => {
796                                        page => $opt{page},
797                                      });
798              } else {
799     ## TODO: Warning
800                $WIKIFORMCORE->make_content_form_in_html
801                                     ($result,
802                                      '',
803                                      option => '',
804                                      o => $opt{o},
805                                      wiki => $opt{o}->{wiki},
806                                      output => {
807                                        page => $opt{page},
808                                      });
809              }
810          } elsif ($ln eq 'dr') {          } elsif ($ln eq 'dr') {
811            $apply_template_children->($source => $result);            $apply_template_children->($source => $result);
812            } elsif ($ln eq 'replace') {
813              $result->append_text
814                         ('__&&' . $source->get_attribute_value
815                                              ('by', default => '') . '&&__');
816              ## Not supported by this version of implementation.
817            } elsif ($ln eq 'ed' or $ln eq 'comment-p') { ## SuikaWiki/0.10 additions
818              my $ed = $result->append_new_node
819                                  (type => '#element',
820                                   namespace_uri => $NS_XHTML1,
821                                   local_name => 'div');
822              $ed->set_attribute (class => $ln);
823              $apply_template_children->($source => $ed->append_new_node
824                                                      (type => '#element',
825                                                       namespace_uri => $NS_XHTML1,
826                                                       local_name => 'p'));
827          } elsif ($ln eq 'document') {          } elsif ($ln eq 'document') {
828            my $body;            my $body;
829            for (@{$source->child_nodes}) {            for (@{$source->child_nodes}) {
# Line 290  Format: Line 834  Format:
834                                                     namespace_uri => $NS_XHTML1,                                                     namespace_uri => $NS_XHTML1,
835                                                     local_name => 'div');                                                     local_name => 'div');
836            $body_block->set_attribute (class => 'block SuikaWiki-0-9');            $body_block->set_attribute (class => 'block SuikaWiki-0-9');
           local $opt->{o}->{var}->{ws__section_depth}  
               = $opt->{o}->{var}->{ws__section_depth} + 1;  
837            $apply_template_children->($body => $body_block);            $apply_template_children->($body => $body_block);
838          } else {          } else {
839            my $node = $result->append_new_node            my $node = $result->append_new_node
# Line 314  Format: Line 856  Format:
856          }          }
857        };        };
858                
859        $apply_template_children->($xml => $opt->{-parent});        $apply_template_children->($opt{source} => $opt{parent});
860    
861    
862    @Converter:  Function:
863      @@Type:    @Name: xml_to_text
864        @@@@: application/x-suikawiki+xml    @Main:
865        @@@version: 0.9      my (undef, $src, $opt) = @_;
866      @@Description:  
867        @@@@: Converting SuikaWiki/0.9 text format to XML format  
868        @@@lang: en      my %is_block = (
869      @@Main:        qw/p 1 blockquote 1 pre 1 ul 1 ol 1 dl 1 section 1 h 1
870        __FUNCPACK__->text_to_xml ($source, $opt);           bodytext 1 document 1 head 1 body 1 table 1 text 1 form 1
871             insert 1 delete 1 ed 1 comment-p 1/
872        );
873    
874            my %x2t;
875            %x2t = (
876              anchor => sub {
877                my $source = shift;
878                my $result = '[['
879                          .  $x2t{'#inline'}->($source, no_newline => 1)
880                          .  ']';
881                my $anchor = $source->get_attribute_value
882                                      ('anchor',
883                                       namespace_uri => $NS_SW09,
884                                       default => '');
885                if (length $anchor) {
886                  $result .= '>>'.(0+$anchor);
887                } else {
888                  $anchor = $source->get_attribute_value
889                                      ('resScheme',
890                                       namespace_uri => $NS_SW09);
891                  if ($anchor) {
892                    my $param = $source->get_attribute_value
893                                      ('resParameter',
894                                       namespace_uri => $NS_SW09);
895                    if ($anchor eq 'URI' and $param =~ /^[0-9A-Za-z_+.%-]+:/) {
896                      $result .= '<' . $param . '>';
897                    } else {
898                      $result .= '<' . $anchor . ':' . $param . '>';
899                    }
900                  }
901                }
902                $result . ']';
903              },
904              li => sub {
905                my $source = shift;
906                my $result = ({qw/ul - ol =/}->{$opt->{o}->{var}->{sw09__list_type}}
907                              x $opt->{o}->{var}->{sw09__list_depth})
908                          .  ' ' . $x2t{'#flow'}->($source);
909                $result;
910              },
911              dt => sub {
912                ':' . $x2t{'#inline'}->(return, no_newline => 1) . ':';
913              },
914              h => sub {
915                  ("*" x ($opt->{o}->{var}->{ws__section_depth} - 1))
916                .  " "
917                .  $x2t{'#inline'}->(shift, no_newline => 1);
918              },
919              'anchor-end' => sub {
920                return shift->inner_text;
921              },
922              'anchor-internal' => sub {
923                return shift->inner_text;
924              },
925              'anchor-external' => sub {
926                return '<'.shift->inner_text.'>';
927              },
928              form => sub {
929                my $source = shift;
930                my $ref = $source->get_attribute_value ('ref', default => 'form');
931                my $result = '[[#'.$ref;
932                my $name = $source->get_attribute_value ('id');
933                $name =~ s/([()\\])/\\$1/g;
934                $result .= '(' . $name . ')' if $name;
935                ## General WikiForm
936                if ($ref eq 'form') {
937                  $result .= ":'";
938                  my $input = $source->get_attribute_value ('input', default => '');
939                  $input =~ s/(['\\])/\\$1/g;
940                  $result .= $input . "':'";
941                  my $template = $source->get_attribute_value ('template', default => '');
942                  $template =~ s/(['\\])/\\$1/g;
943                  $result .= $template . "'";
944                  my $option = $source->get_attribute_value ('option');
945                  if ($option) {
946                    $option =~ s/(['\\])/\\$1/g;
947                    $result .= ":'" . $option . "'";
948                  }
949                ## Specific WikiForm
950                } else {
951                  my $param = $source->get_attribute_value ('parameter');
952                  if ($param) {
953                    $result .= ':' . $param;
954                  }
955                }
956                $result .= ']]';
957              },
958              pre => sub {
959                my $source = shift;
960                my $result = '[PRE';
961                my $class = $source->get_attribute_value ('class');
962                if ($class) {
963                  $class =~ s/([\\()])/\\$1/g;
964                  $result .= '(' . $class . ')';
965                }
966                $result .= "[\x0A"
967                        .  $x2t{'#inline'}->($source);
968                $result .= "\x0A" unless substr ($result, -1) eq "\x0A";
969                $result .= "]PRE]\x0A";
970              },
971              insert => sub {
972                my $source = shift;
973                my $result = '[INS';
974                my $class = $source->get_attribute_value ('class');
975                if ($class) {
976                  $class =~ s/([\\()])/\\$1/g;
977                  $result .= '(' . $class . ')';
978                }
979                local $opt->{o}->{var}->{sw09__list_depth} = 0;
980                $result .= "[\x0A"
981                        .  $x2t{'#block'}->($source);
982                $result .= "\x0A" unless substr ($result, -1) eq "\x0A";
983                $result .= "]INS]\x0A";
984              },
985              delete => sub {
986                my $source = shift;
987                my $result = '[DEL';
988                my $class = $source->get_attribute_value ('class');
989                if ($class) {
990                  $class =~ s/([\\()])/\\$1/g;
991                  $result .= '(' . $class . ')';
992                }
993                local $opt->{o}->{var}->{sw09__list_depth} = 0;
994                $result .= "[\x0A"
995                        .  $x2t{'#block'}->($source);
996                $result .= "\x0A" unless substr ($result, -1) eq "\x0A";
997                $result .= "]DEL]\x0A";
998              },
999              document => sub {
1000                my $source = shift;
1001                my $result = '';
1002                $result = '#?'
1003                           . $source->get_attribute_value
1004                                        ('Name', namespace_uri => $NS_SW09,
1005                                         default => 'SuikaWiki')
1006                           . '/'
1007                           . $source->get_attribute_value
1008                                        ('Version', namespace_uri => $NS_SW09,
1009                                         default => '0.9');
1010                for (@{$source->child_nodes}) {
1011                  $result .= ($x2t{$_->local_name} or $x2t{'#undef'})->($_)
1012                    if $_->node_type eq '#element';
1013                  if ($_->local_name eq 'head') {
1014                    $result = '' if $result eq "#?SuikaWiki/0.9\x0A";
1015                  }
1016                }
1017                $result;
1018              },
1019              head => sub {
1020                my $source = shift;
1021                my $result = '';
1022                ## ISSUE: '#?SuikaWiki/0.9 ' required...
1023                for (@{$source->child_nodes}) {
1024                  if ($_->node_type eq '#element' and
1025                      $_->local_name eq 'parameter') {
1026                    $result .= ' '.$x2t{parameter}->($_);
1027                  }
1028                }
1029                $result . "\x0A";
1030              },
1031              parameter => sub {
1032                my $source = shift;
1033                my $result = $source->get_attribute_value ('name', default => '')
1034                          .  '="';
1035                my @v;
1036                for (@{$source->child_nodes}) {
1037                  push @v, $x2t{value}->($_) if $_->node_type eq '#element' and
1038                                                $_->local_name eq 'value';
1039                }
1040                $result .= join ',', @v;
1041                $result .  '"';
1042              },
1043              value => sub {
1044                my $value = $x2t{'#inline'}->(shift, no_newline => 1);
1045                $value =~ s/(["\\])/\\$1/g;
1046                $value =~ tr/\x0A\x0D/ /;
1047                $value;
1048              },
1049              section => sub {
1050                local $opt->{o}->{var}->{ws__section_depth}
1051                    = $opt->{o}->{var}->{ws__section_depth} + 1;
1052                $x2t{'#block'}->(shift);
1053              },
1054              body => sub {
1055                local $opt->{o}->{var}->{ws__section_depth} = 1;
1056                $x2t{'#block'}->(shift);
1057              },
1058              text => sub {
1059                my ($source, %opt) = @_;
1060                my $result .= '';
1061                for (@{$source->child_nodes}) {
1062                  if ($_->node_type eq '#text') {
1063                    $result .= $_->inner_text;
1064                  } elsif ($_->node_type eq '#element') {
1065                    $result .= ($x2t{$_->local_name} or $x2t{'#undef'})->($_);
1066                  }
1067                }
1068                $result;
1069              },
1070              dr => sub {
1071                my $result = $x2t{'#list'}->(shift);
1072                if ($result) {
1073                  $result . "\x0A";
1074                } else {
1075                  "::\x0A";
1076                }
1077              },
1078              dt => sub {
1079                ':' . $x2t{'#inline'}->(shift, no_newline => 1) . ':';
1080              },
1081              dd => sub {
1082                $x2t{'#inline'}->(shift);
1083              },
1084              tr => sub {
1085                my $result = $x2t{'#list'}->(shift);
1086                if ($result) {
1087                  substr ($result, 1) . "\x0A";
1088                } else {
1089                 "',\x0A";
1090                }
1091              },
1092              td => sub {
1093                my $source = shift;
1094                my $result = $x2t{'#inline'}->($source, no_newline => 1);
1095                if ($result =~ /[,"\\]/ or $result =~ /==/) {
1096                  $result =~ s/(["\\])/\\$1/g;
1097                  $result = '"' . $result . '"';
1098                }
1099                my $colspan = $source->get_attribute_value ('colspan', default => 1);
1100                $result .= ("\t,==" x ($colspan - 1)) if $colspan > 1;
1101                "\t," . $result;
1102              },
1103              em => sub {
1104                "''" . $x2t{'#inline'}->($_, no_newline => 1) . "''";
1105              },
1106              strong => => sub {
1107                "'''" . $x2t{'#inline'}->($_, no_newline => 1) . "'''";
1108              },
1109              rb => sub {
1110                $x2t{'#inline'}->(shift, no_newline => 1);
1111              },
1112              qname => sub {
1113                $x2t{'#inline'}->(shift, no_newline => 1);
1114              },
1115              rt => sub {
1116                my $lang = $_[0]->get_attribute_value
1117                                     ('lang', namespace_uri => NS_xml_URI,
1118                                      default => '');
1119                $lang = '@' . $lang if length $lang;
1120                '] '.$lang.'[' . $x2t{'#inline'}->(shift, no_newline => 1);
1121              },
1122              nsuri => sub {
1123                my $lang = $_[0]->get_attribute_value
1124                                     ('lang', namespace_uri => NS_xml_URI,
1125                                      default => '');
1126                $lang = '@' . $lang if length $lang;
1127                '] '.$lang.'[' . $x2t{'#inline'}->(shift, no_newline => 1);
1128              },
1129              replace => sub {
1130                '__&&' . shift->get_attribute_value ('by', default => '') . '&&__';
1131              },
1132              bodytext => sub {
1133                my ($source, %opt) = @_;
1134                local $opt->{o}->{var}->{sw09__bq_depth}
1135                    = $opt->{o}->{var}->{sw09__bq_depth} + 1;
1136                my @result;
1137                for (@{$source->child_nodes}) {
1138                  if ($_->node_type eq '#element') {
1139                    my $ln = $_->local_name;
1140                    push @result, [($x2t{$ln} or $x2t{'#undef'})->($_),
1141                                   $ln];
1142                  }
1143                }
1144                my $result = '';
1145                my $prev = '';
1146                for (@result) {
1147                  my $s = $_->[0];
1148                  if ($_->[1] eq 'p' or $_->[1] eq 'ed' or $_->[1] eq 'comment-p') {
1149                    $result .= "\x0A" if length $result and
1150                                         substr ($result, -1) ne "\x0A";
1151                    $result .= ('>' x $opt->{o}->{var}->{sw09__bq_depth}) . ' ';
1152                  } elsif ($_->[1] eq 'form' or $_->[1] eq 'replace') {
1153                    $result .= "\x0A" if length $result and
1154                                         substr ($result, -1) ne "\x0A";
1155                    $result .= ('>' x $opt->{o}->{var}->{sw09__bq_depth})."\x0A";
1156                  } elsif ($_->[1] eq 'blockquote' or $_->[1] eq 'text') {
1157                    $result .= "\x0A" if length $result and
1158                                         substr ($result, -1) ne "\x0A";
1159                  } else {
1160                    unless ($prev eq 'text') {
1161                      $result .= "\x0A" if length $result and
1162                                           substr ($result, -1) ne "\x0A";
1163                    }
1164                    $result .= ('>' x $opt->{o}->{var}->{sw09__bq_depth})."\x0A";
1165                  }
1166                  $result .= $s;
1167                  $prev = $_->[1];
1168                }
1169                $result;
1170              },
1171              ## Note: This element will be interpreted as a paragraph
1172              ##       unless format is SuikaWikiImage/0.9.
1173              image => sub {
1174                my ($source, %opt) = @_;
1175                return "\x0A__IMAGE__\x0A" . $source->inner_text . "\x0A";
1176              },
1177              'ed' => sub {
1178                my ($source, %opt) = @_;
1179                '@@ ' . $x2t{'#flow'}->($source);
1180              },
1181              'comment-p' => sub {
1182                my ($source, %opt) = @_;
1183                ';; ' . $x2t{'#flow'}->($source);
1184              },
1185              '#block' => sub {
1186                my ($source, %opt) = @_;
1187                my @result;
1188                for (@{$source->child_nodes}) {
1189                  if ($_->node_type eq '#element') {
1190                    my $ln = $_->local_name;
1191                    push @result, [($x2t{$ln} or $x2t{'#undef'})->($_),
1192                                   $ln];
1193                  }
1194                }
1195                my $result = '';
1196                my $prev = '';
1197                for (@result) {
1198                  my $s = $_->[0];
1199                  if ($_->[1] eq 'form') {
1200                    $result .= "\x0A" if length $result and
1201                                         substr ($result, -1) ne "\x0A";
1202                    $result .= "\x0A";
1203                  } elsif ($_->[1] eq 'replace') {
1204                    $result .= "\x0A" if length $result and
1205                                         substr ($result, -1) ne "\x0A";
1206                  } elsif ($_->[1] eq 'text') {
1207                    $result .= "\x0A" if length $result and
1208                                         substr ($result, -1) ne "\x0A";
1209                    $result .= "\x0A" if $prev eq 'p' or $prev eq 'ed' or
1210                                         $prev eq 'comment-p';
1211                  } else {
1212                    if ($prev ne 'text' and $prev ne 'replace') {
1213                      $result .= "\x0A" if length $result and
1214                                           substr ($result, -1) ne "\x0A";
1215                      $result .= "\x0A";
1216                    }
1217                  }
1218                  $result .= $s;
1219                  $prev = $_->[1];
1220                }
1221                $result;
1222              },
1223              '#flow' => sub {
1224                my ($source, %opt) = @_;
1225                my @result;
1226                for (@{$source->child_nodes}) {
1227                  if ($_->node_type eq '#element') {
1228                    my $ln = $_->local_name;
1229                    if ($is_block{$ln}) {
1230                      push @result, [($x2t{$ln} or $x2t{'#undef'})->($_),
1231                                     $ln];
1232                    } else {
1233                      if (@result and ($result[$#result]->[1] eq '#inline')) {
1234                        $result[$#result]->[0]
1235                          .= ($x2t{$ln} or $x2t{'#undef'})->($_);
1236                      } else {
1237                        push @result, [($x2t{$ln} or $x2t{'#undef'})->($_),
1238                                       '#inline'];
1239                      }
1240                    }
1241                  } elsif ($_->node_type eq '#text') {
1242                    if (@result and ($result[$#result]->[1] eq '#inline')) {
1243                      $result[$#result]->[0] .= $_->inner_text;
1244                    } else {
1245                      push @result, [$_->inner_text, '#inline'];
1246                    }
1247                  }
1248                }
1249                my $result = '';
1250                my $prev = '';
1251                for (@result) {
1252                  my $s = $_->[0];
1253                  if ($_->[1] eq '#inline') {
1254                    if ($prev ne 'text' and $prev ne 'form' and $prev ne 'replace') {
1255                      $result .= "\x0A" if length $result and
1256                                           substr ($result, -1) ne "\x0A";
1257                    }
1258                    $s =~ s/\x0D\x0A/\x0A/g;
1259                    $s =~ s/\x0D/\x0A/g;
1260                    $s =~ s/\x0A\x0A+/\x0A/g;
1261                    $s =~ s/\x0A/\x20/g if $opt{no_newline};
1262                  } elsif ($_->[1] eq 'form' or $_->[1] eq 'replace') {
1263                    if ($prev ne '#inline') {
1264                      $result .= "\x0A" if length $result and
1265                                           substr ($result, -1) ne "\x0A";
1266                    }
1267                  } elsif ($_->[1] eq 'text') {
1268                    $result .= "\x0A" if length $result and
1269                                         substr ($result, -1) ne "\x0A";
1270                  } else {
1271                    unless ($prev eq 'text') {
1272                      $result .= "\x0A" if length $result and
1273                                           substr ($result, -1) ne "\x0A";
1274                    }
1275                  }
1276                  $result .= $s;
1277                  $prev = $_->[1];
1278                }
1279                $result;
1280              },
1281              '#inline' => sub {
1282                my ($source, %opt) = @_;
1283                my $result .= '';
1284                for (@{$source->child_nodes}) {
1285                  if ($_->node_type eq '#text') {
1286                    $result .= $_->inner_text;
1287                  } elsif ($_->node_type eq '#element') {
1288                    $result .= ($x2t{$_->local_name} or $x2t{'#undef'})->($_);
1289                  }
1290                }
1291                $result =~ s/\x0D\x0A/\x0A/g;
1292                $result =~ s/\x0D/\x0A/g;
1293                $result =~ s/\x0A\x0A+/\x0A/g;
1294                $result =~ s/\x0A/\x20/g if $opt{no_newline};
1295                $result;
1296              },
1297              '#list' => sub {
1298                my ($source, %opt) = @_;
1299                my $result .= '';
1300                for (@{$source->child_nodes}) {
1301                  if ($_->node_type eq '#element') {
1302                    $result .= ($x2t{$_->local_name} or $x2t{'#undef'})->($_);
1303                  }
1304                }
1305                $result;
1306              },
1307              '#undef' => sub {
1308                my $source = shift;
1309                ## TODO:
1310                "<".$source->namespace_uri.">:".$source->local_name
1311                      .  $x2t{'#inline'}->($source);
1312              },
1313            );
1314            for (qw/blockquote dl tbody table/) {
1315              $x2t{$_} = sub { $x2t{'#list'}->(shift) };
1316            }
1317            for (qw/p dd/) {
1318              $x2t{$_} = sub { $x2t{'#flow'}->(shift) };
1319            }
1320            for my $type (qw/ul ol/) {
1321              $x2t{$type} = sub {
1322                my $source = shift;
1323                local $opt->{o}->{var}->{sw09__list_type} = $type;
1324                local $opt->{o}->{var}->{sw09__list_depth}
1325                    = $opt->{o}->{var}->{sw09__list_depth} + 1;
1326                my @result;
1327                for (@{$source->child_nodes}) {
1328                  push @result, $x2t{$_->local_name}->($_)
1329                    if $_->node_type eq '#element';
1330                }
1331                my $result = '';
1332                for (@result) {
1333                  $result .= "\x0A" unless substr ($result, -1) eq "\x0A";
1334                  $result .= $_;
1335                }
1336                substr ($result, 1);
1337              };
1338            }
1339            for my $type (qw/code samp var dfn kbd sub sup weak q ruby rubyb
1340                             abbr ins del aa src cite key qn csection span/) {
1341              $x2t{$type} = sub {
1342                my $source = shift;
1343                my $result = '['.uc $type;
1344                my $class = $source->get_attribute_value ('class', default => '');
1345                if ($class) {
1346                  $class =~ s/([()\\])/\\$1/g;
1347                  $result .= '(' . $class . ')';
1348                }
1349                my $lang = $source->get_attribute_value
1350                                            ('lang', namespace_uri => NS_xml_URI);
1351                if (defined $lang) {
1352                  $result .= '@' . $lang;
1353                }
1354                $result .= '['
1355                        .  $x2t{'#inline'}->($source, no_newline => 1)
1356                        .  ']';
1357                my $anchor = $source->get_attribute_value
1358                                      ('anchor',
1359                                       namespace_uri => $NS_SW09,
1360                                       default => '');
1361                if (length $anchor) {
1362                  $result .= '>>'.(0+$anchor);
1363                } else {
1364                  $anchor = $source->get_attribute_value
1365                                      ('resScheme',
1366                                       namespace_uri => $NS_SW09);
1367                  if ($anchor) {
1368                    my $param = $source->get_attribute_value
1369                                      ('resParameter',
1370                                       namespace_uri => $NS_SW09);
1371                    if ($anchor eq 'URI' and $param =~ /^[0-9A-Za-z_+.%-]+:/) {
1372                      $result .= '<' . $param . '>';
1373                    } else {
1374                      $result .= '<' . $anchor . ':' . $param . '>';
1375                    }
1376                  }
1377                }
1378                $result .= ']';
1379                $result;
1380              };
1381            }
1382    
1383        $x2t{'#list'}->($src);
1384    
1385    Function:
1386      @Name: get_nth_element
1387      @Main:
1388        my (undef, $node, $ns => $ln, $n) = @_;
1389        return $n if $n < 1;
1390        if ($node->node_type eq '#element' and
1391            $node->namespace_uri eq $ns and
1392            $node->local_name eq $ln) {
1393          return $node unless --$n;
1394        }
1395        for (@{$node->child_nodes}) {
1396          if ($_->node_type eq '#element') {
1397            if ($_->namespace_uri eq $ns and
1398                $_->local_name eq $ln) {
1399              return $_ unless --$n;
1400            } else {
1401              $n = __FUNCPACK__->get_nth_element ($_, $ns => $ln, $n);
1402              return $n if ref $n;
1403            }
1404          } elsif ($_->node_type eq '#fragment' or $_->node_type eq '#document') {
1405            $n = __FUNCPACK__->get_nth_element ($_, $ns => $ln, $n);
1406            return $n if ref $n;
1407          }
1408        }
1409        return $n;
1410    
1411    Function:
1412      @Name: get_element_by_id
1413      @Main:
1414        my (undef, $node, $id) = @_;
1415        return $node if $node->node_type eq '#element'
1416                    and $node->get_attribute_value ('id', default_value => '')
1417                     eq $id;
1418        for (@{$node->child_nodes}) {
1419          if ({'#element'=>1, '#fragment'=>1, '#document'=>1}->{$_->node_type}) {
1420            my $r = __FUNCPACK__->get_element_by_id ($_, $id);
1421            return $r if $r;
1422          }
1423        }
1424    
1425  Function:  Function:
1426    @Name: text_to_xml    @Name: text_to_xml
# Line 345  Function: Line 1440  Function:
1440      my $head = $root->append_new_node (type => '#element',      my $head = $root->append_new_node (type => '#element',
1441                                         namespace_uri => $NS_XHTML2,                                         namespace_uri => $NS_XHTML2,
1442                                         local_name => 'head');                                         local_name => 'head');
1443      if ($source =~ s#^\#\?SuikaWiki/0\.9\b((?>.*))\s*##) {      $root->append_text ("\x0A");
1444        my $param = $1;      my $body = $root->append_new_node (type => '#element',
1445                                           namespace_uri => $NS_XHTML2,
1446                                           local_name => 'body');
1447        $root->append_text ("\x0A");
1448    
1449        if ($source =~ s#^\#\?(SuikaWiki(?:Image)?)/0\.9\b((?>.*))\s*##) {
1450          my $type = $1;
1451          my $param = $2;
1452          $root->set_attribute (Name => $type, namespace_uri => $NS_SW09);
1453          $root->set_attribute (Version => '0.9', namespace_uri => $NS_SW09);
1454        while ($param =~ /\G\s+([a-z-]+)="((?>[^"\\]*)(?>(?>[^"\\]+|\\.)*))"/g) {        while ($param =~ /\G\s+([a-z-]+)="((?>[^"\\]*)(?>(?>[^"\\]+|\\.)*))"/g) {
1455          my ($name, $value) = ($1, $2);          my ($name, $value) = ($1, $2);
1456          $value =~ s/\\(.)/$1/g;          $value =~ s/\\(.)/$1/g;
1457          for ($head->append_new_node (type => '#element',          for ($head->append_new_node (type => '#element',
1458                                       namespace_uri => $NS_SW09,                                       namespace_uri => $NS_SW09,
1459                                       local_name => 'parmeter')) {                                       local_name => 'parameter')) {
1460            $_->set_attribute (name => $name);            $_->set_attribute (name => $name);
1461            for my $value (split /,/, $value) {            for my $value (split /,/, $value) {
1462              $_->append_new_node (type => '#element',              $_->append_new_node (type => '#element',
# Line 363  Function: Line 1467  Function:
1467          }          }
1468          $head->append_text ("\x0A");          $head->append_text ("\x0A");
1469        }        }
1470          
1471          if ($type eq 'SuikaWikiImage') {
1472            $source =~ s/\x0A__IMAGE__\x0A(.*)$//s;
1473            if (my $image = $1) {
1474              $image =~ s/^\s+//;
1475              $image =~ s/\s+$//;
1476              $root->append_new_node
1477                       (type => '#element',
1478                        namespace_uri => $NS_SW09,
1479                        local_name => 'image')
1480                   ->append_text ($image);
1481              $root->append_text ("\x0A");
1482            }
1483          }
1484      } else {      } else {
1485        ## TODO: warn        #$root->set_attribute (Name => 'SuikaWiki', namespace_uri => $NS_SW09);
1486          #$root->set_attribute (Version => '0.9', namespace_uri => $NS_SW09);
1487      }      }
     $root->append_text ("\x0A");  
1488            
1489      my $body = $root->append_new_node (type => '#element',      __FUNCPACK__->block_text_to_xml (\$source => $body, opt => $opt);
                                        namespace_uri => $NS_XHTML2,  
                                        local_name => 'body');  
     __FUNCPACK__->block_text_to_xml (\$source => $body);  
1490    
1491  Function:  Function:
1492    @Name:block_text_to_xml    @Name:block_text_to_xml
# Line 382  Function: Line 1497  Function:
1497      @@lang:en      @@lang:en
1498    @Main:    @Main:
1499      my (undef, $source, $current, %opt) = @_;      my (undef, $source, $current, %opt) = @_;
1500      my %depth;      my %depth = %{$opt{depth} || {}};
1501      my $back_to_section = sub {      my $back_to_section = sub {
1502        my $cur_type = $current->local_name;        my $cur_type = $current->local_name;
1503        while (not (        while (not (
1504                    $cur_type eq 'section'                    $cur_type eq 'section'
1505                 or $cur_type eq 'body'                 or $cur_type eq 'body'
1506                 or $cur_type eq 'bodytext'                 or $cur_type eq 'bodytext'
1507                 or $cur_type eq 'ins'                 or $cur_type eq 'insert'
1508                 or $cur_type eq 'del'                 or $cur_type eq 'delete'
1509                   )                   )
1510        ) {        ) {
1511          $current = $current->parent_node;          $current = $current->parent_node;
# Line 403  Function: Line 1518  Function:
1518        while (not (        while (not (
1519                    $cur_type eq 'section'                    $cur_type eq 'section'
1520                 or $cur_type eq 'body'                 or $cur_type eq 'body'
1521                 or $cur_type eq 'ins'                 or $cur_type eq 'insert'
1522                 or $cur_type eq 'del'                 or $cur_type eq 'delete'
1523                   )                   )
1524              ) {              ) {
1525          $current = $current->parent_node;          $current = $current->parent_node;
# Line 465  Function: Line 1580  Function:
1580          $current = $current->append_new_node (type => '#element',          $current = $current->append_new_node (type => '#element',
1581                                                namespace_uri => $NS_XHTML2,                                                namespace_uri => $NS_XHTML2,
1582                                                local_name => 'li');                                                local_name => 'li');
1583          __FUNCPACK__->inline_text_to_xml (\$line => $current);          __FUNCPACK__->inline_text_to_xml (\$line => $current, %opt);
1584        } elsif ($line =~ s/^(\*+)\s*//) {        } elsif ($line =~ s/^(\*+)\s*//) {
1585          my $depth = length $1;          my $depth = length $1;
1586          $back_to_real_section->();          $back_to_real_section->();
# Line 491  Function: Line 1606  Function:
1606          __FUNCPACK__->inline_text_to_xml (\$line =>          __FUNCPACK__->inline_text_to_xml (\$line =>
1607            $current->append_new_node (type => '#element',            $current->append_new_node (type => '#element',
1608                                       namespace_uri => $NS_XHTML2,                                       namespace_uri => $NS_XHTML2,
1609                                       local_name => 'h')                                       local_name => 'h'), %opt,
1610          );          );
1611        } elsif ($line =~ s/^(?!>>[0-9])(>+)\s*//) {        } elsif ($line =~ s/^(?!>>[0-9])(>+)\s*//) {
1612          my $depth = length $1;          my $depth = length $1;
# Line 519  Function: Line 1634  Function:
1634            $depth{bq} = $depth;            $depth{bq} = $depth;
1635          }          }
1636          if (length $line) {          if (length $line) {
1637            $current = $current->append_new_node            if ($line =~ s/^\@\@\s*//) {
1638                $current = $current->append_new_node
1639                                     (type => '#element',
1640                                      namespace_uri => $NS_SW010,
1641                                      local_name => 'ed');
1642              } elsif ($line =~ s/^;;\s*//) {
1643                $current = $current->append_new_node
1644                                     (type => '#element',
1645                                      namespace_uri => $NS_SW010,
1646                                      local_name => 'comment-p');
1647              } else {
1648                $current = $current->append_new_node
1649                                   (type => '#element',                                   (type => '#element',
1650                                    namespace_uri => $NS_XHTML2,                                    namespace_uri => $NS_XHTML2,
1651                                    local_name => 'p');                                    local_name => 'p');
1652            __FUNCPACK__->inline_text_to_xml (\$line => $current);            }
1653              __FUNCPACK__->inline_text_to_xml (\$line => $current, %opt);
1654          }          }
1655        } elsif ($line =~ s/^(?>:\s*)([^:]+?)\s*:\s*//) {        } elsif ($line =~ s/^(?>:\s*)([^:]+?)\s*:\s*//) {
1656          my $parent_type = $current->local_name;          my $parent_type = $current->local_name;
# Line 542  Function: Line 1669  Function:
1669          __FUNCPACK__->inline_text_to_xml (\"$1" =>          __FUNCPACK__->inline_text_to_xml (\"$1" =>
1670            $current->append_new_node (type => '#element',            $current->append_new_node (type => '#element',
1671                                       namespace_uri => $NS_XHTML2,                                       namespace_uri => $NS_XHTML2,
1672                                       local_name => 'dt')                                       local_name => 'dt'), %opt,
1673          );          );
1674          $current->append_text ("\x0A");          $current->append_text ("\x0A");
1675          $current = $current->append_new_node (type => '#element',          $current = $current->append_new_node (type => '#element',
1676                                                namespace_uri => $NS_XHTML2,                                                namespace_uri => $NS_XHTML2,
1677                                                local_name => 'dd');                                                local_name => 'dd');
1678            __FUNCPACK__->inline_text_to_xml (\$line => $current);            __FUNCPACK__->inline_text_to_xml (\$line => $current, %opt);
1679        } elsif ($line =~ /^\[(INS|DEL)(\([^()\\]*\))?\[\s*$/) {        } elsif ($line =~ /^\[(INS|DEL)(?>(\([^()\\]*\))?)\[\s*$/) {
1680          $current->append_text ("\x0A");          $current->append_text ("\x0A");
1681          my $mod = $current->append_new_node (type => '#element',          my $mod = $current->append_new_node
1682                                               namespace_uri => $NS_XHTML1,                                (type => '#element',
1683                                               local_name => lc $1);                                 namespace_uri => $NS_SW09,
1684                                   local_name => {qw/INS insert DEL delete/}->{$1});
1685          $mod->set_attribute (class => $2) if $2;          $mod->set_attribute (class => $2) if $2;
1686          __FUNCPACK__->block_text_to_xml ($source => $mod,          __FUNCPACK__->block_text_to_xml ($source => $mod, %opt,
1687                                           'return_by_'.$1 => 1);                                           'return_by_'.$1 => 1,
1688                                             depth => \%depth);
1689        } elsif ($line =~ /^\](INS|DEL)\]\s*$/) {        } elsif ($line =~ /^\](INS|DEL)\]\s*$/) {
1690          if ($opt{'return_by_'.$1}) {          if ($opt{'return_by_'.$1}) {
1691            return;            return;
1692          } else {          } else {
1693            ## TODO: warn            ## TODO: warn
1694          }          }
1695        } elsif ($line =~ /^\[PRE(\([^()\\]*\))?\[\s*$/) {        } elsif ($line =~ /^\[PRE(?>(?>\(((?>[^()\\]*)(?>(?>[^()\\]+|\\.)*))\))?)\[\s*$/) {
1696          $current->append_text ("\x0A");          $current->append_text ("\x0A");
1697          my $pre = $current->append_new_node (type => '#element',          my $pre = $current->append_new_node (type => '#element',
1698                                               namespace_uri => $NS_XHTML1,                                               namespace_uri => $NS_XHTML1,
# Line 578  Function: Line 1707  Function:
1707              last;              last;
1708            } else {            } else {
1709              $f ? undef $f : $pre->append_text ("\x0A");              $f ? undef $f : $pre->append_text ("\x0A");
1710              __FUNCPACK__->inline_text_to_xml (\$line => $pre);              __FUNCPACK__->inline_text_to_xml (\$line => $pre, %opt);
1711            }            }
1712          }          }
1713          if (ref $pre) {          if (ref $pre) {
# Line 590  Function: Line 1719  Function:
1719                                               namespace_uri => $NS_XHTML1,                                               namespace_uri => $NS_XHTML1,
1720                                               local_name => 'pre');                                               local_name => 'pre');
1721          $pre->set_attribute (space => 'preserve', namespace_uri => NS_xml_URI);          $pre->set_attribute (space => 'preserve', namespace_uri => NS_xml_URI);
1722          __FUNCPACK__->inline_text_to_xml (\$line => $pre);          __FUNCPACK__->inline_text_to_xml (\$line => $pre, %opt);
1723          while ($$source =~ /\G([^\x0A]*)\x0A/gc) {          while ($$source =~ /\G([^\x0A]*)\x0A/gc) {
1724            my $line = $1;            my $line = $1;
1725            if (length $line == 0) {            if (length $line == 0) {
1726              pos ($$source) -= 1;              pos ($$source) -= 1;
1727              last;              last;
1728              } elsif ($opt{return_by_INS} and $line =~ /^\]INS\]\s*$/) {
1729                return;
1730              } elsif ($opt{return_by_DEL} and $line =~ /^\]DEL\]\s*$/) {
1731                return;
1732            } else {            } else {
1733              $pre->append_text ("\x0A");              $pre->append_text ("\x0A");
1734              __FUNCPACK__->inline_text_to_xml (\$line => $pre);              __FUNCPACK__->inline_text_to_xml (\$line => $pre, %opt);
1735            }            }
1736          }          }
1737        } elsif ($line =~ /^,/) {        } elsif ($line =~ /^,/) {
# Line 609  Function: Line 1742  Function:
1742                              ->append_new_node (type => '#element',                              ->append_new_node (type => '#element',
1743                                                 namespace_uri => $NS_XHTML2,                                                 namespace_uri => $NS_XHTML2,
1744                                                 local_name => 'tbody');                                                 local_name => 'tbody');
1745          __FUNCPACK__->tablerow_text_to_xml (\$line => $tbody);          __FUNCPACK__->tablerow_text_to_xml (\$line => $tbody, %opt);
1746          while ($$source =~ /\G(,[^\x0A]*)\x0A/gc) {          while ($$source =~ /\G(,[^\x0A]*)\x0A/gc) {
1747            __FUNCPACK__->tablerow_text_to_xml (\"$1" => $tbody);            __FUNCPACK__->tablerow_text_to_xml (\"$1" => $tbody, %opt);
1748          }          }
1749        } else {        } else {
1750          my $current_type = $current->local_name;          my $current_type = $current->local_name;
1751          if ($current_type eq 'section'          if ($current_type eq 'section'
1752           or $current_type eq 'body'           or $current_type eq 'body'
1753           or $current_type eq 'bodytext'           or $current_type eq 'bodytext'
1754           or $current_type eq 'ins'           or $current_type eq 'insert'
1755           or $current_type eq 'del') {           or $current_type eq 'delete') {
1756            $current->append_text ("\x0A");            $current->append_text ("\x0A");
1757            if ($line =~ s/^__&&([^&]+)&&__//) {            if ($line =~ s/^__&&([^&]+)&&__//) {
1758              $current->append_new_node (type => '#element',              $current->append_new_node (type => '#element',
# Line 632  Function: Line 1765  Function:
1765                                              local_name => 'form')) {                                              local_name => 'form')) {
1766                $_->set_attribute (id => $1) if $1;                $_->set_attribute (id => $1) if $1;
1767                my ($i, $t, $o) = ($2, $3 || '', $4 || '');                my ($i, $t, $o) = ($2, $3 || '', $4 || '');
1768                s/\\(.)/$1/g for $i, $t, $o;                s/\\(.)/$1/g for ($i, $t, $o);
1769                $_->set_attribute (input => $i);                $_->set_attribute (input => $i);
1770                $_->set_attribute (template => $t);                $_->set_attribute (template => $t);
1771                $_->set_attribute (option => $o);                $_->set_attribute (option => $o);
# Line 646  Function: Line 1779  Function:
1779                $_->set_attribute (parameter => $3) if defined $3;                $_->set_attribute (parameter => $3) if defined $3;
1780              }              }
1781            }            }
1782            $current = $current->append_new_node            if (length $line) {
1783                                   (type => '#element',              if ($line =~ s/^\@\@\s*//) {
1784                                    namespace_uri => $NS_XHTML2,                $current = $current->append_new_node
1785                                    local_name => 'p');                                     (type => '#element',
1786            __FUNCPACK__->inline_text_to_xml (\$line => $current);                                      namespace_uri => $NS_SW010,
1787                                        local_name => 'ed');
1788                } elsif ($line =~ s/^;;\s*//) {
1789                  $current = $current->append_new_node
1790                                       (type => '#element',
1791                                        namespace_uri => $NS_SW010,
1792                                        local_name => 'comment-p');
1793                } else {
1794                  $current = $current->append_new_node
1795                                       (type => '#element',
1796                                        namespace_uri => $NS_XHTML2,
1797                                        local_name => 'p');
1798                }
1799                __FUNCPACK__->inline_text_to_xml (\$line => $current, %opt);
1800              }        
1801          } else {          } else {
1802            $current->append_text (" "); # replacement of prev.line's \n            $current->append_text ("\x0A"); # replacement of prev.line's \n
1803            __FUNCPACK__->inline_text_to_xml (\$line => $current);            __FUNCPACK__->inline_text_to_xml (\$line => $current, %opt);
1804          }          }
1805        }        }
1806      }      }
# Line 676  Function: Line 1823  Function:
1823                                            local_name => 'tr');                                            local_name => 'tr');
1824      my $prev_cell;      my $prev_cell;
1825      while ($$source =~ /\G,\s*/gc) {      while ($$source =~ /\G,\s*/gc) {
1826        $$source =~ /\G([^,"]+|"(?>[^"\\]*)(?>(?>[^"\\]+|\\.)*)"\s*)/gc;        $$source =~ /\G([^,"][^,]*|"(?>[^"\\]*)(?>(?>[^"\\]+|\\.)*)"\s*)/gc;
1827        my $cell = $1;        my $cell = $1;
1828        if ($cell =~ s/^"//) {        if ($cell =~ s/^"//) {
1829          $cell =~ s/"\s*$//g;          $cell =~ s/"\s*$//g;
# Line 698  Function: Line 1845  Function:
1845                                 (type => '#element',                                 (type => '#element',
1846                                  namespace_uri => $NS_XHTML2,                                  namespace_uri => $NS_XHTML2,
1847                                  local_name => 'td');                                  local_name => 'td');
1848        __FUNCPACK__->inline_text_to_xml (\$cell => $prev_cell);        __FUNCPACK__->inline_text_to_xml (\$cell => $prev_cell, %opt);
1849      }      }
1850      # TODO: warn      # TODO: warn
1851    
# Line 709  Function: Line 1856  Function:
1856        SuikaWiki/0.9 text format to XML representation - inline level elements        SuikaWiki/0.9 text format to XML representation - inline level elements
1857      @@lang:en      @@lang:en
1858    @Main:    @Main:
1859        my (undef, $source => $current, %opt) = @_;
1860    
1861    my $ElementDef = {    my $ElementDef = {
1862      ABBR    => {ln => 'abbr', ns_uri => $NS_SW09},      ABBR    => {ln => 'abbr', ns_uri => $NS_XHTML2},
1863      CODE    => {ln => 'code', ns_uri => $NS_XHTML2},      CODE    => {ln => 'code', ns_uri => $NS_XHTML2},
1864      DEL     => {ln => 'del',  ns_uri => $NS_XHTML1},      DEL     => {ln => 'del',  ns_uri => $NS_XHTML1},
1865      DFN     => {ln => 'dfn',  ns_uri => $NS_XHTML2},      DFN     => {ln => 'dfn',  ns_uri => $NS_XHTML2},
# Line 722  Function: Line 1871  Function:
1871      SAMP    => {ln => 'samp', ns_uri => $NS_XHTML2},      SAMP    => {ln => 'samp', ns_uri => $NS_XHTML2},
1872      SUB     => {ln => 'sub',  ns_uri => $NS_XHTML2},      SUB     => {ln => 'sub',  ns_uri => $NS_XHTML2},
1873      SUP     => {ln => 'sup',  ns_uri => $NS_XHTML2},      SUP     => {ln => 'sup',  ns_uri => $NS_XHTML2},
1874      VAR     => {ln => 'var',  ns_uri => $NS_XHTML2},      VAR     => {ln => 'var',  ns_uri => $NS_XHTML2},
1875      WEAK    => {ln => 'weak', ns_uri => $NS_SW09},      WEAK    => {ln => 'weak', ns_uri => $NS_SW09},
1876        AA      => {ln => 'aa',   ns_uri => $NS_AA},     ## SuikaWiki/0.10
1877        CITE    => {ln => 'cite', ns_uri => $NS_XHTML2}, ## SuikaWiki/0.10
1878        CSECTION => {ln => 'csection', ns_uri => $NS_SW010}, ## SuikaWiki/0.10
1879        KEY     => {ln => 'key',  ns_uri => $NS_SW010},  ## SuikaWiki/0.10
1880        QN      => {ln => 'qn',   ns_uri => $NS_SW010},  ## SuikaWiki/0.10
1881        SPAN    => {ln => 'span', ns_uri => $NS_XHTML2}, ## SuikaWiki/0.10
1882        SRC     => {ln => 'src',  ns_uri => $NS_SW010},  ## SuikaWiki/0.10
1883      anchor  => {ln => 'anchor', ns_uri => $NS_SW09, has_fragment_no => 1},      anchor  => {ln => 'anchor', ns_uri => $NS_SW09, has_fragment_no => 1},
1884      del     => {has_cite => 1},      del     => {has_cite => 1},
1885      ins     => {has_cite => 1},      ins     => {has_cite => 1},
1886        nsuri   => {ln => 'nsuri', ns_uri => $NS_SW010, is_nested => 1},
1887                                                         ## SuikaWiki/0.10
1888      q       => {has_cite => 1},      q       => {has_cite => 1},
1889        qname   => {ln => 'qname', ns_uri => $NS_SW010, is_nested => 1},
1890                                                         ## SuikaWiki/0.10
1891      rb      => {ln => 'rb',   ns_uri => $NS_XHTML2, is_nested => 1},      rb      => {ln => 'rb',   ns_uri => $NS_XHTML2, is_nested => 1},
1892      rt      => {ln => 'rt',   ns_uri => $NS_XHTML2, is_nested => 1},      rt      => {ln => 'rt',   ns_uri => $NS_XHTML2, is_nested => 1},
1893    };    };
1894    
     my (undef, $source => $current, %opt) = @_;  
1895      if ($$source =~ /\G\[([0-9]+)\]/gc) {      if ($$source =~ /\G\[([0-9]+)\]/gc) {
1896        for ($current->append_new_node (type => '#element',        for ($current->append_new_node (type => '#element',
1897                                        namespace_uri => $NS_SW09,                                        namespace_uri => $NS_SW09,
1898                                        local_name => 'anchor-end')) {                                        local_name => 'anchor-end')) {
1899          $_->set_attribute (anchor => 0+$1);          $_->set_attribute (anchor => 0+$1,
1900                               namespace_uri => $NS_SW09);
1901          $_->append_text ('['.$1.']');          $_->append_text ('['.$1.']');
1902        }        }
1903      }      }
# Line 749  Function: Line 1909  Function:
1909                                                local_name => 'form');                                                local_name => 'form');
1910          if ($$source =~ /\G$Reg_Form_Content_M\]\]/ogc) {          if ($$source =~ /\G$Reg_Form_Content_M\]\]/ogc) {
1911            $form->set_attribute (id => $1) if $1;            $form->set_attribute (id => $1) if $1;
1912            $form->set_attribute (input => $2);            my ($i, $t, $o) = ($2, $3, $4);
1913            $form->set_attribute (template => $3);            s/\\(.)/$1/g for ($i, $t, $o);
1914            $form->set_attribute (option => $4);            $form->set_attribute (input => $i);
1915              $form->set_attribute (template => $t);
1916              $form->set_attribute (option => $o);
1917          } elsif ($$source =~ /\G$Reg_Embed_Content_M\]\]/ogc) {          } elsif ($$source =~ /\G$Reg_Embed_Content_M\]\]/ogc) {
1918            $form->set_attribute (ref => $1);            $form->set_attribute (ref => $1);
1919            $form->set_attribute (id => $2) if $2;            $form->set_attribute (id => $2) if $2;
1920            $form->set_attribute (parameter => $3) if defined $3;            $form->set_attribute (parameter => $3) if defined $3;
1921          } else {          } else {
1922            ## TODO: error            ## TODO: error
1923            CORE::die $$source;            SuikaWiki::Plugin->module_package('Error')->report_error_simple ($opt{opt}->{o}->{wiki}, InvalidForm => substr ($$source, pos ($$source)));
1924          }          }
1925        } elsif ($$source =~ /\G\[(?>([A-Z]+)(?>\(([^)]*)\))?)?\[/gc) {        } elsif ($$source =~ /\G\[(?>([A-Z]+)(?>\(((?>[^()\\]*)(?>(?>[^()\\]+|\\.)*))\))?)?(?:\@([A-Za-z0-9-]+))?\[/gc) {
1926          my $type = $1 || 'anchor';          my $type = $1 || 'anchor';
1927          my $param = $2;          my $param = $2;
1928            my $lang = $3;
1929          my $def = $ElementDef->{ $type };          my $def = $ElementDef->{ $type };
1930          unless ($def) {          unless ($def) {
1931            ## TODO: error            ## TODO: error
1932              $def = $ElementDef->{CODE};
1933          }          }
1934          $current = $current->append_new_node (type => '#element',          $current = $current->append_new_node (type => '#element',
1935                                                namespace_uri => $def->{ns_uri},                                                namespace_uri => $def->{ns_uri},
1936                                                local_name => $def->{ln});                                                local_name => $def->{ln});
1937          $current->set_attribute (class => $param) if $param;          $current->set_attribute (class => $param) if $param;
1938            $current->set_attribute (lang => $lang, namespace_uri => NS_xml_URI)
1939              if defined $lang;
1940          if ($type eq 'RUBY' or $type eq 'RUBYB'          if ($type eq 'RUBY' or $type eq 'RUBYB'
1941              or $type eq 'ABBR') {              or $type eq 'ABBR') {
1942            $current = $current->append_new_node            $current = $current->append_new_node
1943                                   (type => '#element',                                   (type => '#element',
1944                                    namespace_uri => $ElementDef->{rb}->{ns_uri},                                    namespace_uri => $ElementDef->{rb}->{ns_uri},
1945                                    local_name => $ElementDef->{rb}->{ln});                                    local_name => $ElementDef->{rb}->{ln});
1946            } elsif ($type eq 'QN') {
1947              $current = $current->append_new_node
1948                                   (type => '#element',
1949                                    namespace_uri => $ElementDef->{qname}->{ns_uri},
1950                                    local_name => $ElementDef->{qname}->{ln});
1951          }          }
1952          $depth++;          $depth++;
1953        } elsif ($$source =~ /\G\](?> <([0-9A-Za-z_+.%-]+):($Reg_URI_Opaque)>        } elsif ($$source =~ /\G\](?> <([0-9A-Za-z_+.%-]+):($Reg_URI_Opaque)>
# Line 789  Function: Line 1960  Function:
1960          }          }
1961          my $def = $ElementDef->{$current->local_name} || {};          my $def = $ElementDef->{$current->local_name} || {};
1962          if (defined $anchor) {          if (defined $anchor) {
1963            if ($def->{has_fragment_no}) {            $current->set_attribute (anchor => $anchor + 0,
1964              $current->set_attribute (anchor => $anchor + 0);                                     namespace_uri => $NS_SW09);
           } else {  
             $current->set_attribute (anchor => $anchor + 0,  
                                      namespace_uri => $NS_SW09);  
           }  
1965          } elsif (defined $scheme) {          } elsif (defined $scheme) {
1966            if ($def->{has_cite}) {            if ($scheme =~ /[A-Z]/) {
1967              $current->set_attribute (cite => "$scheme:$opaque");              $current->set_attribute (resScheme => $scheme,
1968                                         namespace_uri => $NS_SW09);
1969                $current->set_attribute (resParameter => $opaque,
1970                                         namespace_uri => $NS_SW09);
1971            } else {            } else {
1972              $current->set_attribute (cite => "$scheme:$opaque",              $current->set_attribute (resScheme => 'URI',
1973                                         namespace_uri => $NS_SW09);
1974                $current->set_attribute (resParameter => "$scheme:$opaque",
1975                                       namespace_uri => $NS_SW09);                                       namespace_uri => $NS_SW09);
1976            }            }
1977          }          }
1978          $current = $current->parent_node;          $current = $current->parent_node;
1979          $current = $current->parent_node if $def->{is_nested};          $current = $current->parent_node if $def->{is_nested};
1980          $depth--;          $depth--;
1981        } elsif ($$source =~ /\G\]\s+\[/gc) {        } elsif ($$source =~ /\G\]\s*(?:\@([A-Za-z0-9-]+))?\[/gc) {
1982            my $lang = $1;
1983          if ($current->local_name eq 'rb' or $current->local_name eq 'rt') {          if ($current->local_name eq 'rb' or $current->local_name eq 'rt') {
1984            $current = $current->parent_node            $current = $current->parent_node
1985                               ->append_new_node                               ->append_new_node
1986                                   (type => '#element',                                   (type => '#element',
1987                                    namespace_uri => $ElementDef->{rt}->{ns_uri},                                    namespace_uri => $ElementDef->{rt}->{ns_uri},
1988                                    local_name => $ElementDef->{rt}->{ln});                                    local_name => $ElementDef->{rt}->{ln});
1989              $current->set_attribute (lang => $lang, namespace_uri => NS_xml_URI)
1990                if defined $lang;
1991            } elsif ($current->local_name eq 'qname') {
1992              $current = $current->parent_node
1993                                 ->append_new_node
1994                                   (type => '#element',
1995                                    namespace_uri => $ElementDef->{nsuri}->{ns_uri},
1996                                    local_name => $ElementDef->{nsuri}->{ln});
1997              $current->set_attribute (lang => $lang, namespace_uri => NS_xml_URI)
1998                if defined $lang;
1999          } else {          } else {
2000            $current->append_text ($$source, $-[0], $+[0]-$-[0]);            $current->append_text (substr ($$source, $-[0], $+[0]-$-[0]-1));
2001              pos ($$source)--;
2002          }          }
2003        } elsif ($$source =~ /\G'''?/gc) {        } elsif ($$source =~ /\G'''?/gc) {
2004          my $type = $+[0] - $-[0] == 3 ? 'strong' : 'em';          my $type = $+[0] - $-[0] == 3 ? 'strong' : 'em';
# Line 826  Function: Line 2010  Function:
2010                                    namespace_uri => $NS_XHTML2,                                    namespace_uri => $NS_XHTML2,
2011                                    local_name => $type);                                    local_name => $type);
2012          }          }
2013        } elsif ($$source =~ /\G<([0-9A-Za-z_+.%-]+):($Reg_URI_Opaque)>/gc) {        } elsif ($$source =~ /\G<([0-9A-Za-z_+.%-]+):($Reg_URI_Opaque)>/gco) {
2014          my ($scheme, $data) = ($1, $2);          my ($scheme, $data) = ($1, $2);
2015          my $link = $current->append_new_node          my $link = $current->append_new_node
2016                                   (type => '#element',                                   (type => '#element',
2017                                    namespace_uri => $NS_SW09,                                    namespace_uri => $NS_SW09,
2018                                    local_name => 'anchor-external');                                    local_name => 'anchor-external');
2019          if (substr ($scheme, 0, 1) =~ /[A-Z]/) {          if (substr ($scheme, 0, 1) =~ /[A-Z]/) {
2020            $link->set_attribute (scheme => $scheme);            $link->set_attribute (resScheme => $scheme,
2021            $link->set_attribute (data => $data);                                  namespace_uri => $NS_SW09);
2022              $link->set_attribute (resParameter => $data,
2023                                    namespace_uri => $NS_SW09);
2024          } else { # URI Reference          } else { # URI Reference
2025            $link->set_attribute (href => $scheme.':'.$data);            $link->set_attribute (resScheme => 'URI',
2026                                    namespace_uri => $NS_SW09);
2027              $link->set_attribute (resParameter => $scheme.':'.$data,
2028                                    namespace_uri => $NS_SW09);
2029          }          }
2030            $link->append_text ($scheme.':'.$data);
2031        } elsif ($$source =~ /\G__&&/gc) {        } elsif ($$source =~ /\G__&&/gc) {
2032          if ($$source =~ /\G([^&]+)&&__/gc) {          if ($$source =~ /\G([^&]+)&&__/gc) {
2033            $current->append_new_node            $current->append_new_node
# Line 849  Function: Line 2039  Function:
2039            $current->append_text ('__&&');            $current->append_text ('__&&');
2040          }          }
2041        } elsif ($$source =~ /\G((?>        } elsif ($$source =~ /\G((?>
2042                                    [^'\[\]<>]+                                    [^'\[\]<>_]+
2043                                  | '   (?!')                                  | '   (?!')
2044                                  | \[  (?![A-Z\[])                                  | \[  (?!\[|[A-Z]+(?>\([^()\\]*
2045                                                           (?>[^()\\]+|\\.)*\))?
2046                                                      (?>\@[A-Za-z0-9-]+)?\[)
2047                                  | \]  (?! \]                                  | \]  (?! \]
2048                                          | >>[0-9]+\]                                          | >>[0-9]+\]
2049                                          | <[0-9A-Za-z_+.%-]+:$Reg_URI_Opaque>\]                                          | <[0-9A-Za-z_+.%-]+:$Reg_URI_Opaque>\]
2050                                          | \s*\[ )                                          | \s*(?:\@[A-Za-z0-9-]+)?\[ )
2051                                  | <   (?![0-9A-Za-z_+.%-]+:$Reg_URI_Opaque>)                                  | <   (?![0-9A-Za-z_+.%-]+:$Reg_URI_Opaque>)
2052                                  | >   (?!>[0-9])                                  | >   (?!>[0-9])
2053                                  | _   (?!_&&)                                  | _   (?!_&&)
# Line 865  Function: Line 2057  Function:
2057          for ($current->append_new_node (type => '#element',          for ($current->append_new_node (type => '#element',
2058                                          namespace_uri => $NS_SW09,                                          namespace_uri => $NS_SW09,
2059                                          local_name => 'anchor-internal')) {                                          local_name => 'anchor-internal')) {
2060            $_->set_attribute (anchor => 0+$1);            $_->set_attribute (anchor => 0+$1,
2061                                 namespace_uri => $NS_SW09);
2062            $_->append_text ('>>'.$1);            $_->append_text ('>>'.$1);
2063          }          }
2064        } else {        } else {
2065          die "Implementation buggy: ", substr ($$source, pos $$source);          CORE::die "Implementation buggy: ", substr ($$source, pos $$source);
2066        }        }
2067      }      }
2068    
 Function:  
   @Name: to_html  
   @Description:  
     @@@:Converting SuikaWiki/0.9 to Hypertext Markup Language  
     @@lang:en  
   @Main:  
             my (undef, $txt, %option) = @_;  
               
             ## 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 = $option{-parent}  
                  || Message::Markup::XML::Node->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+//) {  
                     my $num = 0 + $1;  
                     for my $A ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'a')) {  
                       $A->set_attribute (id => 'anchor-' . $num);  
                       $A->set_attribute (name => 'anchor-' . $num);  
                       $A->set_attribute (class => 'anchor');  
                       $A->append_text ('[' . $num . ']');  
                     }  
                     $current->append_text (' ');  
                   }  
               $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' && /^\*\*\*\*\*([^\x0D\x0A]*)/) {  
                     $current = &$back_to_section ($current);  
                     for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h6')) {  
                       $H->append_node (_inline_xml ($1, %option));  
                     }  
                 } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\*\*\*\*([^\x0D\x0A]*)/) {  
                     $current = &$back_to_section ($current);  
                     for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h5')) {  
                       $H->append_node (_inline_xml ($1, %option));  
                     }  
                 } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\*\*\*([^\x0D\x0A]*)/) {  
                     $current = &$back_to_section ($current);  
                     for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h4')) {  
                       $H->append_node (_inline_xml ($1, %option));  
                     }  
                 } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\*\*([^\x0D\x0A]*)/) {  
                     $current = &$back_to_section ($current);  
                     for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h3')) {  
                       $H->append_node (_inline_xml ($1, %option));  
                     }  
                 } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^\*([^\x0D\x0A]*)/) {  
                     $current = &$back_to_section ($current);  
                     for my $H ($current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'h2')) {  
                       $H->append_node (_inline_xml ($1, %option));  
                     }  
                 } 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));  
                 } elsif ($depth{block_name}->{$depth{block}} ne 'PRE' && /^:([^:]+):(.*)/) {  
                   $current = &$exit_p ($current);  
                   if ($current->local_name eq 'dd') {  
                     $current = $current->parent_node;  
                   } else {  
                     $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dl');  
                   }  
                   $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dt')  
                           ->append_node (_inline_xml ($1, %option));  
                   $current = $current->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'dd');  
                   $current->append_node (_inline_xml ($2, %option));  
                 } 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));  
                   }  
                 } 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));  
                 } 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));  
                     }  
                   }  
                   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));  
                 }  
             }  
             $p;  
   
 Function:  
   @Name: _id_and_name_xml  
   @Main:          
           my ($e, $name) = @_;  
           $e->set_attribute (id => $name);  
           if (SuikaWiki::Plugin->user_agent_names =~ m#Mozilla/[12]\.|Microsoft Internet Explorer#) {  
             $e->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'a')  
               ->set_attribute (name => $name);  
           }  
   
 Function:  
   @Name: _inline_xml  
   @Main:          
           my ($line, %option) = @_;  
           my $l = Message::Markup::XML::Node->new (type => '#fragment');  
           my $current = $l;  
           $line =~ s{(?:\[([A-Z]+)(?:\(([^)]*)\))?\[|(\[\[#form(?:\([A-Za-z0-9-]+\))?(?::'(?:[^'\\]|\\.)*')+\]\]|\[\[[^]]+\](?:>>[0-9]+)?\])|(\]\])|(\] \[)|(>>[0-9]+|<[A-Za-z0-9%]+:[^>]+>|'''?)|([\[\]'<>]|[^\[\]'<>]+))}{  
             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 => 'ruby', html_class => 'descriptive'},  
                 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 => 'span', html_class => 'weak'},  
               }->{ $el_name };  
               if ($edef) {  
                 $current = $current->append_new_node (namespace_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') {  
                   $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->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rp', value => ')');  
                   $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) {  
                   $_->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'rp', value => '(');  
                   $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->get_attribute ('title', make_new_node => 1);  
               } else {  
                 $current->append_text ('] [');  
               }  
             } elsif ($lnk) {  
               if ($lnk =~ /\[\[\#form(?:\(([A-Za-z0-9-]+)\))?:'((?:[^'\\]|\\.)*)':'((?:[^'\\]|\\.)*)'(?::'((?:[^'\\]|\\.)*)')?\]\]/) {  
                 $current->append_new_node (type => '#xml', value => scalar SuikaWiki::Plugin::WikiFormCore->_make_custom_form ($1, $2, $3, $4, \%option));  
               } elsif ($lnk =~ /\[\[([^]]+)\](?:>>([0-9]+))?\]/) {  
                 my ($page, $anchor) = ($1, $2);  
                 if (substr ($page, 0, 1) eq '#') {  
                   $current->append_new_node (type => '#xml', value => scalar embedded_to_html ($lnk, $option{page}));  
                 } else {  
                   $current->append_node (SuikaWiki::Plugin->module_package ('WikiLinking')->to_wikipage_in_html ({  
                         label   => SuikaWiki::Plugin->resource ('Link:toWikiPage:SourceLabel'),  
                   } => {  
 #TODO:                  base    => [$option{page}],  
                         page_name_relative      => [split m#//#, $page],  
                         page_anchor_no  => 0+$anchor,  
                   }, {o=>$option{o}}));  
                   #$current->append_new_node (type => '#xml', value => scalar main::make_wikilink ($page, anchor => 0+$anchor, base => $option{page}));  
                 }  
               }  
             } elsif ($misc) {  
               if ($misc =~ />>([0-9]+)/) {  
                 for my $A ($current->append_new_node (local_name => 'a', namespace_uri => $NS_XHTML1)) {  
                   $A->set_attribute (href => '#anchor-' . $1);  
                   $A->set_attribute (class => 'wiki-anchor');  
                   $A->append_text ('>>' . $1);  
                 }  
               } elsif ($misc =~ /<([A-Za-z0-9%]+:[^>]+)>/) {    # BUG: <IW:foo:"<foo>"> doesn't match  
                 $current->append_new_node (type => '#xml', value => scalar main::make_urilink ($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;  
   
 Function:  
   @Name: embedded_to_html  
   @Main:          
             my ($embedded, $bPage) = @_;  
             my $CommentIndex = SuikaWiki::Plugin->new_index ('sw09--comment');  
             if ($embedded eq '[[#comment]]' or $embedded eq '[[#rcomment]]') {  
               unless ($main::_EMBEDED) {  
                 my $lastmodified = SuikaWiki::Plugin->get_data (lastmodified => [split m!//!, $bPage]);  
                 return <<"EOD";  
                 <form action="@{[SuikaWiki::Plugin->uri ('wiki')]}" method="post" id="x-comment-@{[$CommentIndex]}" class="comment"><p>  
             <input type="hidden" name="mycmd" value="comment" />  
             <input type="hidden" name="mypage" value="@{[SuikaWiki::Plugin->escape($bPage)]}" />  
             <input type="hidden" name="myLastModified" value="$lastmodified" />  
             <input type="hidden" name="mytouch" value="on" />  
             <input type="hidden" name="comment_index" value="$CommentIndex" />  
         \    @{[SuikaWiki::Plugin->resource('WikiForm:WikiComment:Name=',escape=>1)]}  
             <input type="text" name="myname" value="" size="10" class="comment-name" />  
             <input type="text" name="mymsg" value="" size="30" class="comment-msg" />  
             <input type="submit" value="@{[SuikaWiki::Plugin->resource('WikiForm:Add',escape=>1)]}" title="@{[SuikaWiki::Plugin->resource('WikiForm:AddLong',escape=>1)]}" class="comment-submit" />  
         </p></form>  
   EOD  
              } else {  
                 return <<"EOD";  
         <del><form action="@{[SuikaWiki::Plugin->uri ('wiki')]}" method="get">  
             <input type="hidden" name="mycmd" value="default" />  
             <input type="hidden" name="mypage" value="@{[SuikaWiki::Plugin->escape($bPage)]}" />  
          \   @{[SuikaWiki::Plugin->resource('WikiForm:WikiComment:Name=',escape=>1)]}  
             <input type="text" name="myname" value="" size="10" disabled="disabled" />  
             <input type="text" name="mymsg" value="" size="60" disabled="disabled" />  
         </form></del>  
         EOD  
             }  
           } elsif ($embedded =~ /^\[\[\#embed:(.+)\]\]$/) {  
             my ($name, $r) = ($1, '');  
             if ($name =~ s/^IMG://) {  
               my ($magic, $content) = SuikaWiki::Plugin->magic_and_content ($main::database{$name});  
               $r = &main::convert_format ($content, $magic => 'HTML_fragment', page => $name, magic => $magic, -error_no_return => 1);  
               if (defined $r) {  
                 return $r;  
               } else {  
                 return '<span class="error-embed-image">'.SuikaWiki::Plugin->resource ('Embed:ImageNotSupported', escape=>1).'</span>';  
               }  
             } else {  
               if ($main::_EMBEDED != 1) {  
                 my ($cf, $content) = SuikaWiki::Plugin->magic_and_content ($main::database{$name});  
                 $cf ||= '#?SuikaWiki/0.9';  
                 if ($cf =~ m!^#\?SuikaWiki/0.9(?:$|\s)!) {  
                   $main::_EMBEDED = 1;  
                   $r = &text_to_html ($content, magic => $cf, page => $name);  
                   $main::_EMBEDED = 0;  
                 } elsif (length $content) {  
                   $r = "<pre>@{[SuikWiki::Plugin->escape ($content)]}</pre>";  
                 } else {  
                   $r = &text_to_html ("[INS[\n[[$name]]: @{[SuikaWiki::Plugin->resource('Embed:PageNotFound')]}\n]INS]\n", magic => '#?SuikaWiki/0.9');  
                 }  
               } else {  ## nested #EMBED  
                 $r = &text_to_html ("[INS[\n[[$name]]: @{[SuikaWiki::Plugin->resource('Embed:Nested',escape=>1)]}\n]INS]\n", magic => '#?SuikaWiki/0.9');  
               }  
               return qq(<blockquote title="@{[SuikaWiki::Plugin->escape($name)]}" class="wiki-embed">$r<div class="cite-note">¡Ø<cite><a href="@{[SuikaWiki::Plugin->uri ('wiki') . SuikaWiki::Plugin->encode($name)]}" class="wiki">@{[SuikaWiki::Plugin->escape($name)]}</a></cite>¡Ù</div></blockquote>);  
             }  
           } else {  
             return $embedded;  
           }  
   
2069  FormattingRule:  FormattingRule:
2070    @Category[list]: page-link    @Category[list]:
2071        page-link
2072        link-to-resource
2073    @Name: sw09--link-anchor-content    @Name: sw09--link-anchor-content
2074    @Description:    @Description:
2075      @@@:      @@@:
# Line 1292  FormattingRule: Line 2079  FormattingRule:
2079      if ($o->{var}->{sw09__anchor_content}) {      if ($o->{var}->{sw09__anchor_content}) {
2080        $o->{var}->{sw09__anchor_content}->($p->{-parent});        $o->{var}->{sw09__anchor_content}->($p->{-parent});
2081      } else {      } else {
2082        $p->{-parent}->append_node (SuikaWiki::Plugin->resource        $WIKIRESOURCE->append_tree
2083                        ('Link:SuikaWiki/0.9:link-anchor-content:InvalidContext'),              (name => 'Link:SuikaWiki/0.9:link-anchor-content:InvalidContext',
2084                                    node_or_text => 1);               param => $o,
2085                 -parent => $p->{-parent},
2086                 wiki => $o->{wiki});
2087      }      }
2088    
2089  Resource:  Resource:
2090    @Link:SuikaWiki/0.9:link-anchor-content:InvalidContext:    @Link:SuikaWiki/0.9:link-anchor-content:InvalidContext:
2091      @@@: %sw09--link-anchor-content; cannot be used in this context.      @@@: %percent;sw09--link-anchor-content; cannot be used in this context.
2092        @@lang:en
2093      @Link:SuikaWiki/0.9:toResource:SourceLabel:
2094        @@@:
2095          %select_link_resource_scheme (
2096            URI => {<%link-to-it(
2097              label=>{%link-resource-parameters;}p,
2098            );>},
2099            IW => {%iw--source-label (default => {<%link-to-it (
2100              label => {%link-resource-scheme;:%link-resource-parameters;}p,
2101            );});},
2102            MAIL => {<%link-to-it(
2103              label => {%link-resource-parameters;}p,
2104              description
2105                => {%res (name=>{Link:MailAddress=});<%link-resource-parameters;>}p,
2106            );>},
2107            otherwise => {<%link-to-it(
2108              label => {%sw09--link-anchor-content;}p,
2109              description => {%res (name=>{Link:URIReference=});<%uri-reference;>}p,
2110            );>},
2111          );
2112      @@lang:en      @@lang:en
2113    @Link:SuikaWiki/0.9:toWikiPage:SourceLabel:    @Link:SuikaWiki/0.9:toWikiPage:SourceLabel:
2114      @@@:      @@@:
# Line 1314  Resource: Line 2123  Resource:
2123          );}p,          );}p,
2124          class=>{%if-linked-wikipage-exist(false=>{not-exist});}p,          class=>{%if-linked-wikipage-exist(false=>{not-exist});}p,
2125        );        );
2126      @SuikaWiki/0.9:form:comment:input:
2127          %line (content => {%textarea (id=>msg,size=>20,lines=>3);}p);
2128          %line (content => {
2129            (%text (description => {%res (name => {Form:Description:HumanName});}p,
2130                    id => name, size => 6);
2131             [%text (description =>
2132                       {%res (name => {Form:Description:MailAddress});}p,
2133                     id => mail, size => 5);]
2134             %check (default, id => record-date,
2135                     label => {%res (name => {Form:Label:LogDate});}p,
2136                     description => {%res (name => {Form:Description:LogDate});}p);)
2137             %submit (label => {%res (name => {Form:Label:Add});}p,
2138                      description => {%res (name => {Form:Description:Add});}p);
2139             %we--update-lastmodified-datetime;
2140          }p);
2141      @SuikaWiki/0.9:form:comment:template:
2142        %n
2143       ;[%index;]%n
2144       ;%text(source=>msg);%n;(%name;%text(source=>mail,prefix=>" [",suffix=>"]");%iif(source=>record-date,true=>" [WEAK[%date;]]");)%n;
2145      @SuikaWiki/0.9:form:comment:option:
2146        %require (msg);
2147      @SuikaWiki/0.9:form:footannotate:input:
2148          %line (content => {%textarea (id=>msg,size=>20,lines=>3);}p);
2149          %line (content => {
2150            (%text (description => {%res (name => {Form:Description:HumanName});}p,
2151                    id => name, size => 6);
2152             [%text (description =>
2153                       {%res (name => {Form:Description:MailAddress});}p,
2154                     id => mail, size => 5);]
2155             %check (default, id => record-date,
2156                     label => {%res (name => {Form:Label:LogDate});}p,
2157                     description => {%res (name => {Form:Description:LogDate});}p);)
2158             %submit (label => {%res (name => {Form:Label:Add});}p,
2159                      description => {%res (name => {Form:Description:Add});}p);
2160             %we--update-lastmodified-datetime;
2161          }p);
2162      @SuikaWiki/0.9:form:footannotate:template:
2163         %n
2164        ;[%index;]%n
2165        ;%text(source=>msg);%n
2166        ;(%name;%text(source=>mail,prefix=>" [",suffix=>"]");%iif(source=>record-date,true=>" [WEAK[%date;]]");)%n;
2167      @SuikaWiki/0.9:form:footannotate:option:
2168        %require (msg);
2169      @WikiFormat:MediaType:Description:IMT:text/x-suikawiki;version="0.9"##:
2170        @@@: SuikaWiki/0.9 (text format), as used in SuikaWiki 2
2171        @@lang: en
2172      @WikiFormat:MediaType:Description:IMT:text/x-suikawiki;version="0.10"##:
2173        @@@: SuikaWiki/0.10 (text format)
2174        @@lang: en
2175      @WikiFormat:MediaType:Label:IMT:text/x-suikawiki;version="0.9"##:
2176        @@@: SuikaWiki/0.9 (text)
2177        @@lang: en
2178      @WikiFormat:MediaType:Label:IMT:text/x-suikawiki;version="0.10"##:
2179        @@@: SuikaWiki/0.10 (text)
2180        @@lang: en
2181      @WikiFormat:MediaType:Description:MAGIC:SuikaWiki/0.9##:
2182        @@@: SuikaWiki/0.9 (text format), as used in SuikaWiki 2
2183        @@lang: en
2184      @WikiFormat:MediaType:Description:MAGIC:SuikaWiki/0.10##:
2185        @@@: SuikaWiki/0.10 (text format)
2186        @@lang: en
2187      @WikiFormat:MediaType:Label:MAGIC:SuikaWiki/0.9##:
2188        @@@: SuikaWiki/0.9 (text format)
2189        @@lang: en
2190      @WikiFormat:MediaType:Label:MAGIC:SuikaWiki/0.10##:
2191        @@@: SuikaWiki/0.10 (text)
2192        @@lang: en
2193    
2194    
2195    Error:
2196      @Name: text_parse
2197      @Definition:
2198        @@INLINE_NO_CLOSE_TAG:
2199          @@@description:
2200            Close tag of element "%t (name => element_type);" not found.
2201          @@@level: non-fatal
2202        @@BLOCK_NO_CLOSE_TAG:
2203          @@@description:
2204            Close tag of element "%t (name => element_type);" not found.
2205          @@@level: non-fatal
2206        @@INVALID_FORM:
2207          @@@description:
2208            Invalid syntax of WikiForm
2209          @@@level: non-fatal
2210        
2211    Error:
2212      @Name: xml_to_text
2213      @IsA[list]:
2214        ::SuikaWiki::Format::
2215      @Definition:
2216        @@
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.22
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24