#?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}->{<Q:iws:path>});

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}->{<Q:iws:module>});    

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}->{<Q:iws:module>} = $module;
    local $o->{iwc__param}->{<Q:iws:path>} = $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;
      }
    };