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;