#?SuikaWikiConfig/2.0 Plugin: @Name: InterWikiForSpecifications @Description: @@@: InterWiki - Technical Specifications such as W3C Recommendations @@lang:en @License: %%Perl%% @Author: @@Name: @@@@: Wakaba @@@lang:ja @@@script:Latn @@Mail[list]: w@suika.fam.cx @Date.RCS: $Date: 2004/08/06 03:38:11 $ @RequiredModule[list]: URI @RequiredPlugin[list]: InterWikiCore @Use: require URI; use Message::Util::Error; @Namespace: @@iws: http://suika.fam.cx/~wakaba/archive/2004/8/6/iw-spec# FormattingRule: @Category[list]: link-to-resource view-resource @Name: iws--path @Description: @@lang:en @@@: "Path" extracted by "iws--select-w3c-dom". @Formatting: $p->{-parent}->append_text ($o->{iwc__param}->{}); FormattingRule: @Category[list]: link-to-resource view-resource @Name: iws--module @Description: @@lang:en @@@: "Module" extracted by "iws--select-w3c-dom". @Formatting: $p->{-parent}->append_text ($o->{iwc__param}->{}); FormattingRule: @Category[list]: link-to-resource @Name: iws--select-w3c-dom @Description: @@@: "Select" for W3C DOM Specifications (Level 2 or higher) @@lang:en @Parameter: @@Name: path @@Type: uri:path @@Default: "Core/" @@Description: @@@lang:en @@@@: Link to. Example: "Core/core.html". @Parameter: @@Name: SCHEMENAME @@Type: template @@Default:(none) @@Description: @@@@: Template used when scheme name is SCHEMENAME @@@lang:en @Parameter: @@Name: otherwise @@Type: template @@Default:(none) @@Description: @@@@: Template used when no SCHEMENAME parameter matches @@@lang:en @Formatting: my ($module, $path) = ('Core', ''); __ATTRTEXT:%path__; if ($p->{path} =~ m#(\w[^/]+)/(.+)#) { $module = $1; $path = $2; } (my $module2 = $module) =~ tr/-/_/; local $o->{iwc__param}->{} = $module; local $o->{iwc__param}->{} = $path; my $rule; if (defined $p->{$module2}) { $rule = __ATTRTEXT:%{$module2}__; } else { $rule = __ATTRTEXT:%otherwise__; } 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}; __FUNCPACK{Error}__->reporting_formatting_template_error ($err, $wiki, template => $rule); } else { $err->throw; } };