use strict; package SuikaWiki::Plugin::Registry; our %Info; $Info{q#InterWikiForSpecifications#}->{Name} = q#InterWikiForSpecifications#; $Info{q#InterWikiForSpecifications#}->{q#Version#} = q#2004.0831.0328#; $Info{q#InterWikiForSpecifications#}->{q#InterfaceVersion#} = q#2.9.1#; $Info{q#InterWikiForSpecifications#}->{q#mkpluginVersion#} = q#2.1.19#; $Info{q#InterWikiForSpecifications#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::InterWikiForSpecifications10407310328081Ll4#; $Info{q#InterWikiForSpecifications#}->{q#Date.RCS#} = q#$Date: 2010/05/16 23:05:49 $#; $Info{q#InterWikiForSpecifications#}->{RequiredPlugin} = [q#InterWikiCore#]; $Info{q#InterWikiForSpecifications#}->{RequiredModule} = [q#URI#]; $Info{q#InterWikiForSpecifications#}->{Description} = [[q#InterWiki - Technical Specifications such as W3C Recommendations#, q#en#, q##]]; $Info{q#InterWikiForSpecifications#}->{License} = [[q#%%Perl%%#, q##, q##]]; $Info{q#InterWikiForSpecifications#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; package SuikaWiki::Plugin::plugin::InterWikiForSpecifications10407310328081Ll4; #line 1 "(WikiPlugin module source iw-spec.wp2, block Plugin/Use)" require URI; use Message::Util::Error; #line 1 "(WikiPlugin module InterWikiForSpecifications, chunk 1)" {my $def = {q#Parameter#, {}, q#Description#, [[q#"Path" extracted by "iws--select-w3c-dom".#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source iw-spec.wp2, block FormattingRule[name()='[q#link-to-resource#, q#view-resource#]/iws__path']/Formatting)" $p->{-parent}->append_text ($o->{iwc__param}->{q#http://suika.fam.cx/~wakaba/archive/2004/8/6/iw-spec\#path#});}} #line 1 "(WikiPlugin module InterWikiForSpecifications, chunk 2)" ; $SuikaWiki::Plugin::Rule{link_to_resource}->{iws__path} = $def; $SuikaWiki::Plugin::Rule{view_resource}->{iws__path} = $def; }; {my $def = {q#Parameter#, {}, q#Description#, [[q#"Module" extracted by "iws--select-w3c-dom".#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source iw-spec.wp2, block FormattingRule[name()='[q#link-to-resource#, q#view-resource#]/iws__module']/Formatting)" $p->{-parent}->append_text ($o->{iwc__param}->{q#http://suika.fam.cx/~wakaba/archive/2004/8/6/iw-spec\#module#}); }} #line 1 "(WikiPlugin module InterWikiForSpecifications, chunk 4)" ; $SuikaWiki::Plugin::Rule{link_to_resource}->{iws__module} = $def; $SuikaWiki::Plugin::Rule{view_resource}->{iws__module} = $def; }; $SuikaWiki::Plugin::Rule{link_to_resource}->{iws__select_w3c_dom} = {q#Parameter#, {q#SCHEMENAME#, {q#Type#, q#template#, q#Default#, q#(none)#, q#Description#, [[q#Template used when scheme name is SCHEMENAME#, q#en#, q##]]}, q#otherwise#, {q#Type#, q#template#, q#Default#, q#(none)#, q#Description#, [[q#Template used when no SCHEMENAME parameter matches#, q#en#, q##]]}, q#path#, {q#Type#, q#uri:path#, q#Default#, q#"Core/"#, q#Description#, [[q##, q#en#, q##]]}}, q#Description#, [[q#"Select" for W3C DOM Specifications (Level 2 or higher)#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source iw-spec.wp2, block FormattingRule[name()='[q#link-to-resource#]/iws__select_w3c_dom']/Formatting)" my ($module, $path) = ('Core', ''); $p->{q#path#} = do { my $r = $f->parse_attr ($p=>q#path#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r}; if ($p->{path} =~ m#(\w[^/]+)/(.+)#) { $module = $1; $path = $2; } (my $module2 = $module) =~ tr/-/_/; local $o->{iwc__param}->{q#http://suika.fam.cx/~wakaba/archive/2004/8/6/iw-spec\#module#} = $module; local $o->{iwc__param}->{q#http://suika.fam.cx/~wakaba/archive/2004/8/6/iw-spec\#path#} = $path; my $rule; if (defined $p->{$module2}) { $rule = $p->{$module2} = do { my $r = $f->parse_attr ($p=>$module2, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r}; } else { $rule = $p->{q#otherwise#} = do { my $r = $f->parse_attr ($p=>q#otherwise#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r}; } try { $f->replace ($rule, param => $o, -parent => $p->{-parent}); } catch Message::Util::Formatter::error with { my $err = shift; if ($err->{-object}->{-category_name} eq $f->{-category_name}) { my $wiki = $err->{option}->{param}->{wiki}; ($SuikaWiki::Plugin::Registry::Info{q#Error#}->{module_name} || SuikaWiki::Plugin->module_package (q#Error#))->reporting_formatting_template_error ($err, $wiki, template => $rule); } else { $err->throw; } };}} #line 1 "(WikiPlugin module InterWikiForSpecifications, chunk 6)" ; package SuikaWiki::Plugin::Registry; $Info{q#InterWikiForSpecifications#}->{provide} = {q#rule#, {q#link_to_resource#, [q#iws__path#, q#iws__module#, q#iws__select_w3c_dom#], q#view_resource#, [q#iws__path#, q#iws__module#]}}; 1;