use strict; package SuikaWiki::Plugin::Registry; our %Info; $Info{q#Phrase#}->{Name} = q#Phrase#; $Info{q#Phrase#}->{q#Version#} = q#2004.0831.0328#; $Info{q#Phrase#}->{q#InterfaceVersion#} = q#2.9.1#; $Info{q#Phrase#}->{q#mkpluginVersion#} = q#2.1.19#; $Info{q#Phrase#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Phrase1040731032806VLGw#; $Info{q#Phrase#}->{q#Date.RCS#} = q#$Date: 2010/05/16 23:05:49 $#; $Info{q#Phrase#}->{Description} = [[q#Phrasal element#, q#en#, q##]]; $Info{q#Phrase#}->{License} = [[q#%%GPL%%#, q##, q##]]; $Info{q#Phrase#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; package SuikaWiki::Plugin::plugin::Phrase1040731032806VLGw; {my $def = {q#Parameter#, {}, q#Description#, [[q#Abbreviation#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source phrase.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#, q#page-link#, q#link-to-resource#]/abbr']/Formatting)" my $abbr = $p->{-parent}->append_new_node (type => '#element', namespace_uri => q#http://www.w3.org/1999/xhtml#, local_name => 'abbr'); $f->parse_attr ($p=>q#short#, $o, -parent => $abbr, -non_parsed_to_node => 1, %opt); $p->{q#long#} = do { my $r = $f->parse_attr ($p=>q#long#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r}; $abbr->set_attribute (title => $p->{long}) if $p->{long};}} #line 1 "(WikiPlugin module Phrase, chunk 1)" ; $SuikaWiki::Plugin::Rule{view}->{abbr} = $def; $SuikaWiki::Plugin::Rule{view_resource}->{abbr} = $def; $SuikaWiki::Plugin::Rule{form_input}->{abbr} = $def; $SuikaWiki::Plugin::Rule{page_link}->{abbr} = $def; $SuikaWiki::Plugin::Rule{link_to_resource}->{abbr} = $def; }; {my $def = {q#Parameter#, {}, q#Description#, [[q#Emphasis#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source phrase.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#, q#page-link#, q#link-to-resource#]/em']/Formatting)" my $em = $p->{-parent}->append_new_node (type => '#element', namespace_uri => q#http://www.w3.org/1999/xhtml#, local_name => 'em'); $f->parse_attr ($p=>q#content#, $o, -parent => $em, -non_parsed_to_node => 1, %opt);}} #line 1 "(WikiPlugin module Phrase, chunk 3)" ; $SuikaWiki::Plugin::Rule{view}->{em} = $def; $SuikaWiki::Plugin::Rule{view_resource}->{em} = $def; $SuikaWiki::Plugin::Rule{form_input}->{em} = $def; $SuikaWiki::Plugin::Rule{page_link}->{em} = $def; $SuikaWiki::Plugin::Rule{link_to_resource}->{em} = $def; }; package SuikaWiki::Plugin::Registry; $Info{q#Phrase#}->{provide} = {q#rule#, {q#link_to_resource#, [q#abbr#, q#em#], q#form_input#, [q#abbr#, q#em#], q#view#, [q#abbr#, q#em#], q#view_resource#, [q#abbr#, q#em#], q#page_link#, [q#abbr#, q#em#]}}; 1;