Message/Markup/SuikaWikiConfig21.dis

Module:
  @QName:
    Markup:SuikaWikiConfig21
  @FullName:
    @@lang: en
    @@@:
      SuikaWikiConfig/2.1 Object Model
  @Namespace:
    http://suika.fam.cx/~wakaba/archive/2005/swcfg21#
  
  @Description:
    @@lang:en
    @@@:
      The <Module::SuikaWikiConfig21> module provides an object model 
      for SuikaWikiConfig/2.1 document format.  

  @DISCore:author: DISCore|Wakaba
  @License:
    @@@:
      license:Perl+MPL
    @@Original:
      @@@FullName:
        SuikaWiki <PerlModule::SuikaWiki::Markup::SuikaWikiConfig20> Module
      @@@Year:2003
      @@@DISCore:author: DISCore|Wakaba
  @Date:
    $Date: 2006/04/03 16:13:15 $
  
  @Require:
    @@Module:
      @@@QName: Markup|common
    @@Module:
      @@@QName: Util|ManakaiNode
      @@@WithFor: ManakaiDOM|Perl
    @@Module:
      @@@QName: DISlib|DISIDL
      @@@WithFor: ManakaiDOM|all
    @@Module:
      @@@QName: UtilError|DOMException
      @@@WithFor: ManakaiDOM|Perl
    @@Module:
      @@@WithFor: swcfg21|ForEmpty
    @@Module:
      @@@WithFor: swcfg21|ForLatest
    @@Module:
      @@@QName: MDOM|DOMFeature
      @@@WithFor: ManakaiDOM|ManakaiDOMLatest
    @@Module:
      @@@QName: MDOM|GenericLS
      @@@WithFor: ManakaiDOM|ManakaiDOMLatest
  @DefaultFor: swcfg21|ForLatest

Namespace:
  @DIS:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#
  @dis:
    http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--
  @DISLang:
    http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#
  @DISlib:
    http://suika.fam.cx/~wakaba/archive/2004/dis/
  @DOMCore:
    http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#
  @DOMLS:
    http://suika.fam.cx/~wakaba/archive/2004/dom/ls#
  @dx:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#
  @ecore:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/Core/
  @f:
    http://suika.fam.cx/~wakaba/archive/2004/dom/feature#
  @idl:
    http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#
  @infoset:
    http://www.w3.org/2001/04/infoset#
  @kwd:
    http://suika.fam.cx/~wakaba/archive/2005/rfc2119/
  @lang:
    http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#
  @license:
    http://suika.fam.cx/~wakaba/archive/2004/8/18/license#
  @ManakaiDOM:
    http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#
  @Markup:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Markup#
  @MDOM:
    http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.
  @MDOMX:
    http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#
  @mn:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/ManakaiNode#
  @rdf:
    http://www.w3.org/1999/02/22-rdf-syntax-ns#
  @rdfs:
    http://www.w3.org/2000/01/rdf-schema#
  @swcfg21:
    http://suika.fam.cx/~wakaba/archive/2005/swcfg21#
  @Util:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/
  @UtilError:
    http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/

## -- "For" definitions

## For a version

ForDef:
  @QName: swcfg21|ForEmpty
  @FullName:
    @@lang:en
    @@@:
      For interface of <QUOTE::any> version
  @ISA:
    ManakaiDOM:Perl

ForDef:
  @QName:
    swcfg21:ForLatest
  @FullName:
    @@lang:en
    @@@: For latest version
  @ISA: swcfg21|ForEmpty

## -- Features and versions

ElementTypeBinding:
  @Name: FeatureDef
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type: f|Feature
    @@For: =ManakaiDOM|all

ElementTypeBinding:
  @Name: FeatureVerDef
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type: f|Feature

ElementTypeBinding:
  @Name: featureQName
  @ElementType:
    f:name
  @ShadowContent:
    @@ContentType: DISCore|QName

FeatureDef:
  @QName: CoreFeature
  @featureQName: Core
  @FeatureVerDef:
    @@QName: CoreFeature21
    @@Version: 2.1
    @@f:instanceOf: CoreFeature
    @@FullName:
      @@@lang:en
      @@@@:
        The SuikaWikiConfig/2.1 object model
    @@Description:
      @@@lang:en
      @@@@:
        The SuikaWikiConfig/2.1 object model. 

PropDef:
  @QName: 
    swcfg21:namespaceAwareVariant
  @Description:
    @@lang:en
    @@@:
      A namespace aware variant of the subject method or attribute. 

PropDef:
  @QName: namespaceUnawareVariant
  @Description:
    @@lang:en
    @@@:
      A namespace unaware variant of the subject method or attribute. 


ElementTypeBinding:
  @Name: IFClsDef
  @ElementType: 
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      @@@@: dis|MultipleResource
      @@@ForCheck: !ManakaiDOM|ForIF !ManakaiDOM|ForClass
    @@resourceFor: ManakaiDOM|ForIF
    @@resourceFor:
      @@@@: ManakaiDOM|ForClass
      @@@ForCheck: ForEmpty !=ForEmpty
    @@For: ForLatest
    @@For: =ForEmpty

    @@rdf:type:
      @@@@: DISLang|Interface
      @@@ForCheck: ManakaiDOM|ForIF

    @@rdf:type:
      @@@@: DISLang|Class
      @@@ForCheck: ManakaiDOM|ForClass
    @@Implement:
      @@@@: ||ForEmpty||ManakaiDOM|ForIF
      @@@ContentType: DISCore|TFPQNames
      @@@ForCheck: ManakaiDOM|ForClass ForEmpty
    @@Implement:
      @@@@: ||ForLatest||ManakaiDOM|ForIF
      @@@ContentType: DISCore|TFPQNames
      @@@ForCheck: ManakaiDOM|ForClass ForLatest

    @@f:implements:
      @@@@: CoreFeature21
      @@@For: ForLatest

## -- Node

IFClsDef:
  @IFQName: SWCFGNode
  @ClsQName: ManakaiSWCFGNode

  @ClsISA: ManakaiNode|ManakaiNodeRef||ManakaiDOM|Perl
  @ClsISA: dx|ManakaiDefaultExceptionHandler||ManakaiDOM|Perl
  
  @Description:
    @@lang:en
    @@@:
      Each SuikaWikiConfig/2.1 node object implements the 
      <IF::SWCFGNode> interface, which provides access to 
      its properties and chilren. 
      \
      {NOTE:: The <M::new> method, available in the module 
              <PerlModule::Message::Markup::SuikaWikiConfig20::Node>, 
              is removed from the object model in favor of 
              the factory methods on <IF::SWCFGImplementation> and 
              <IF::SWCFGDocument> interfaces. 
      \
      }

  @Method:
    @@Name:appendNode
    @@Description:
      @@@lang:en
      @@@@:
        Appends a node to the list of children of this node. 
    @@Param:
      @@@Name:node
      @@@Type: idl|Object||ManakaiDOM|all
      @@@Description:
        @@@@lang:en
        @@@@@:
          The node or node value to append. 
      @@@InCase:
        @@@@Type:SWCFGNode
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> is appended to the list of children. 
      @@@InCase:
        @@@@Type:SWCFGDocumentFragment
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Children of the <P::node> is appended. 
      @@@InCase:
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> is appended to the value of this node, 
            as <M::SWCFGNode.appendText> does, if <P::nodeOrText> 
            is set to <DOM::true>.  Otherwise, an exception is raised. 
    @@NamedParam:
      @@@Name:nodeOrText
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Whether a string input should be accepted or not. 
      @@@InCase:
        @@@@Value:
          @@@@@:1
          @@@@ContentType: DISCore|Boolean
        @@@@Type: boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            A <TYPE::SWCFGString> is accepted as a <P::node> parameter 
            value. 
      @@@InCase:
        @@@@Value:
          @@@@@:0
          @@@@ContentType: DISCore|Boolean
        @@@@Type: boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            A <TYPE::SWCFGString> is not accepted as a <P::node> 
            parameter value. 
    @@Return:
      @@@Type:SWCFGNode
      @@@actualType:ManakaiSWCFGNode
      @@@Description:
        @@@@lang:en
        @@@@@:
          The node appended to the child list. 
          \
          If the <P::node> is of <IF::SWCFGDocumentFragment>, 
          this (parent) node is returned instead. 
      @@@RaiseException:
        @@@@@: HIERARCHY_ANCESTOR_OR_SELF_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> is an ancestor of this node or this node itself. 
      @@@RaiseException:
        @@@@@: HIERARCHY_BAD_TYPE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to append non-element node on element or 
            document fragment node or an attempt is made to append any 
            node on comment node or document or document fragment 
            node on any node. 
      @@@RaiseException:
        @@@@@:NOT_NODE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> object is not of <IF::SWCFGNode> if 
            <P::nodeOrText> is <DOM::false> or is neither of 
            <IF::SWCFGNode> nor <IF::SWCFGString> if 
            <P::nodeOrText> is <DOM::true>. 
      @@@RaiseException:
        @@@@@: EXTERNAL_NODE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> does not belong to the same document 
            as the owner of this node. 
      @@@PerlDef:
        unless (UNIVERSAL::isa ($node, <IFName::SWCFGNode>) or
                UNIVERSAL::isa ($node, <ClassName::ManakaiSWCFGNode>)) {
                  ## NOTE: dis.pl and cdis2pm.pl does not support
                  ##       interface "implement"ing in this case
          if ($nodeOrText) {
            __DEEP{
              $r = $self-><M::ManakaiSWCFGNode.appendText> ($node);
            }__;
          } else {
            __EXCEPTION{NOT_NODE_ERR::
              SuikaWikiConfig21:actualType => {ref $node},
            }__;
          }
        } else {
          my $this_node_type = $self-><AG::SWCFGNode.nodeType>;
          my $that_node_type = $node-><AG::SWCFGNode.nodeType>;
          if ($this_node_type eq '#comment') {
            __EXCEPTION{HIERARCHY_BAD_TYPE_ERR::
              MDOMX:param-name => 'node',
              swcfg21:parentNodeType => {$this_node_type},
              swcfg21:childNodeType => {$that_node_type},
            }__;
          } elsif ($this_node_type ne '#document') {
            if ($that_node_type eq '#comment') {
              __EXCEPTION{HIERARCHY_BAD_TYPE_ERR::
                MDOMX:param-name => 'node',
                swcfg21:parentNodeType => {$this_node_type},
                swcfg21:childNodeType => {$that_node_type},
              }__;
            }
          } else {
            if ($that_node_type eq '#document' or
                $that_node_type eq '#fragment') {
              __EXCEPTION{HIERARCHY_BAD_TYPE_ERR::
                MDOMX:param-name => 'node',
                swcfg21:parentNodeType => {$this_node_type},
                swcfg21:childNodeType => {$that_node_type},
              }__;
            }
          }
          unless (($self-><AG::SWCFGNode.ownerDocument> || $self) eq
              $node-><AG::SWCFGNode.ownerDocument>) {
            __EXCEPTION{EXTERNAL_NODE_ERR::
              MDOMX:param-name => 'node',
            }__;
          }
          my $this_node = $node;
          ANCESTOR: {
            if ($this_node eq $self) {
              __EXCEPTION{HIERARCHY_ANCESTOR_OR_SELF_ERR::
                MDOMX:param-name => 'node',
              }__;
            }
            redo ANCESTOR if $this_node = $this_node-><AG::SWCFGNode.parentNode>;
          }

          if ($node-><AG::SWCFGNode.nodeType> eq '#fragment') {
            $self->{<H::mn:node>}
                 -><M::NodeStem.importTree> ($node->{<H::mn:node>});
            for my $cn (@{$node->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
              $cn->{<H::swcfg21:parent>} = $self->{<H::mn:node>};
            }
            push @{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}, 
       \         @{$node->{<H::mn:node>}->{<H::swcfg21:childNodes>}};
            $node->{<H::mn:node>}->{<H::swcfg21:childNodes>} = [];
            $node->{<H::mn:node>}-><M::NodeStem.orphanate>;
            $r = $self;
          } else {
            if ($node->{<H::mn:node>}->{<H::swcfg21:parent>}) {
              my @pl = $node->{<H::mn:node>}->{<H::swcfg21:parent>}
                                                  ->{<H::swcfg21:childNodes>};
              for my $i (0..$#pl) {
                if ($pl[$i] eq $node->{<H::mn:node>}) {
                  splice @pl, $i, 1, ();
                  last;
                }
              }
            }
            $self->{<H::mn:node>}-><M::NodeStem
                          .importTree> ($node->{<H::mn:node>});
            push @{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}},
                 $node->{<H::mn:node>};
            $node->{<H::mn:node>}->{<H::swcfg21:parent>}
                             = $self->{<H::mn:node>};
            $r = $node;
          }
        }

  @Method:
    @@Name:appendNewNode
    @@Description:
      @@@lang:en
      @@@@:
        Constructs a new node object and appends it to the child list 
        of this node. 
    @@TypeParam:
    @@LocalNameParam:
    @@NSURIParam:
    @@ValueParam:
    @@Return:
      @@@Type:SWCFGNode
      @@@actualType:ManakaiSWCFGNode
      @@@Description:
        @@@@lang:en
        @@@@@: The newly created node. 
      @@@RaiseException:
        @@@@@: HIERARCHY_ANCESTOR_OR_SELF_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> is an ancestor of this node or this node itself. 
      @@@RaiseException:
        @@@@@: HIERARCHY_BAD_TYPE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to append non-element node on element or 
            document fragment node or an attempt is made to append any 
            node on comment node or document or document fragment 
            node on any node. 
      @@@RaiseException:
        @@@@@: EXTERNAL_NODE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::node> does not belong to the same document 
            as the owner of this node. 
      @@@PerlDef:
        my $this_type = $self-><AG::SWCFGNode.nodeType>;
        if ($this_type eq '#comment') {
          __EXCEPTION{HIERARCHY_BAD_TYPE_ERR::
            MDOMX:param-name => 'type',
            swcfg21:parentNodeType => {$this_type},
            swcfg21:childNodeType => {$type},
          }__;
        }
        if ($type eq '#element') {
          __DEEP{
            $r = ($self-><AG::SWCFGNode.ownerDocument> || $self)
                       -><M::SWCFGDocument.createElementNS>
                                  ($namespaceURI, $localName);
          }__;
          $r->{<H::mn:node>}->{<H::swcfg21:value>} = $value
            if defined $value;
        } elsif ($type eq '#comment') {
          if ($this_type ne '#document') {
            __EXCEPTION{HIERARCHY_BAD_TYPE_ERR::
              MDOMX:param-name => 'type',
              swcfg21:parentNodeType => {$this_type},
              swcfg21:childNodeType => {$type},
            }__;
          }
          __DEEP{
            $r = ($self-><AG::SWCFGNode.ownerDocument> || $self)
                             -><M::SWCFGDocument.createComment> ($value);
          }__;
        } else {
          __EXCEPTION{HIERARCHY_BAD_TYPE_ERR::
            MDOMX:param-name => 'type',
            swcfg21:parentNodeType => {$this_type},
            swcfg21:childNodeType => {$type},
          }__;
        }
        $self->{<H::mn:node>}-><M::NodeStem
                          .importTree> ($r->{<H::mn:node>});
        push @{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}},
             $r->{<H::mn:node>};
        $r->{<H::mn:node>}->{<H::swcfg21:parent>} = $self->{<H::mn:node>};

  @Method:
    @@Name:appendText
    @@Description:
      @@@lang:en
      @@@@:
        Appends a string to the value of this node.  If the node value 
        is of list, the string is added as a new item.  Otherwise, 
        it is simply added at the end of the current value. 
    @@Param:
      @@@Name:text
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          A text to append. 
    @@Return:
      @@@RaiseException:
        @@@@@: HIERARCHY_NO_VALUE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to set a value to document node.
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        my $nt = $self-><AG::SWCFGNode.nodeType>;
        if ($nt eq '#document') {
          __EXCEPTION{HIERARCHY_NO_VALUE_ERR::
            MDOMX:param-name => 'text',
            swcfg21:parentNodeType => {$nt},
          }__;
        } elsif (ref ($node->{<H::swcfg21:value>}) eq 'ARRAY') {
          push @{$node->{<H::swcfg21:value>}}, $text;
        } elsif (defined $node->{<H::swcfg21:value>}) {
          $node->{<H::swcfg21:value>} .= $text;
        } else {
          __CODE{expandETBinding:: $node => $node}__;
          if (defined $node->{<H::swcfg21:shadowContent>} and
              defined $node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:value>}) {
            $node->{<H::swcfg21:value>}
               = $node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:value>} . $text;
          } else {
            $node->{<H::swcfg21:value>} = $text;
          }
        }

  @Method:
    @@Name:removeChildNode
    @@Description:
      @@@lang:en
      @@@@:
        Removes a node from the child node list of this node. 
        \
        {TODO:: How this method should do for shadow tree is not 
                decided yet. 
        \
        }
    @@Param:
      @@@Name:node
      @@@Type:SWCFGNode
      @@@actualType:ManakaiSWCFGNode
      @@@Description:
        @@@@lang:en
        @@@@@:
          The node to remove.  If the <P::node> is not a child of 
          this node, no action has taken. 
    @@Return:
      @@@PerlDef:
        my $n = $node->{<H::mn:node>};
        $self->{<H::mn:node>}->{<H::swcfg21:childNodes>}
           = [grep {not $_ eq $n} @{$self->{<H::mn:node>}
                                         ->{<H::swcfg21:childNodes>}}];
        $node->{<H::mn:node>}-><M::NodeStem.orphanate>;
  @Method:
    @@Name:getAttribute
    @@Description:
      @@@lang:en
      @@@@:
        Returns the first child element node object whose local name matches 
        with the given name, if any. 
    @@NSVariant:.getAttributeNS
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of element to return. 
    @@MakeNewNodeParam:
    @@Return:
      @@@Type:SWCFGElement
      @@@Description:
        @@@@lang:en
        @@@@@:
          The first child element node whose local name matches to 
          <P::name>. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGElement
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            There is no child element found whose name is <P::name>. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __DEEP{
        FIND: {
          my $node = $self->{<H::mn:node>};
          __CODE{expandETBinding:: $node => $node}__;
          my @c = (@{$node->{<H::swcfg21:childNodes>}},
                   ($node->{<H::swcfg21:shadowContent>}
                    ? @{$node->{<H::swcfg21:shadowContent>}
                             ->{<H::swcfg21:childNodes>}} : ()));
          while (@c) {
            my $c = $self-><M::ManakaiSWCFGNode.getNodeReference>
                                                  (my $cn = shift @c);
            if ($c-><AG::SWCFGNode.nodeType> eq '#element' and
                $c-><AG::SWCFGNode.localName> eq $localName) {
              $r = $c;
              last FIND;
            }
            __CODE{expandETBinding:: $node => $cn}__;
            if ($cn->{<H::swcfg21:shadowSibling>}) {
              push @c, @{$cn->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}};
            }
          }
          ## Not found
          if ($makeNewNode) {
            $r = ($self-><AG::SWCFGNode.ownerDocument> || $self)
                        -><M::SWCFGDocument.createElementNS> (null, $localName);
            $self-><M::SWCFGNode.appendNode> ($r);
          }
        } # FIND
        }__;

  @Method:
    @@Name:getAttributeNS
    @@Description:
      @@@lang:en
      @@@@:
        Returns the first child node whose name matches to the 
        pair of namespace URI and local name. 
    @@NewIn21:
    @@NonNSVariant:.getAttribute
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the element to get. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Description:
          @@@@@lang:en
          @@@@@@: The null namespace. 
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the element to get. 
    @@MakeNewNodeParam:
    @@Return:
      @@@Type:SWCFGElement
      @@@Description:
        @@@@lang:en
        @@@@@:
          The first child element node whose name matches to 
          <P::namespaceURI> and <P::localName>. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGElement
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            There is no child element found whose name is <P::namespaceURI>
            and <P::localName> pair. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        FIND: {
          my $node = $self->{<H::mn:node>};
          __CODE{expandETBinding:: $node => $node}__;
          my @c = (@{$node->{<H::swcfg21:childNodes>}},
                   ($node->{<H::swcfg21:shadowContent>}
                    ? @{$node->{<H::swcfg21:shadowContent>}
                             ->{<H::swcfg21:childNodes>}} : ()));
          while (@c) {
            my $c = $self-><M::ManakaiSWCFGNode.getNodeReference>
                                               (my $cn = shift @c);
            if ($c-><AG::SWCFGNode.nodeType> eq '#element' and
                ((not defined $namespaceURI and 
                  not defined $c-><AG::SWCFGNode.namespaceURI>) or
                 (defined $namespaceURI and
                  defined $c-><AG::SWCFGNode.namespaceURI> and
                  $namespaceURI eq $c-><AG::SWCFGNode.namespaceURI>)) and
                $c-><AG::SWCFGNode.localName> eq $localName) {
              $r = $c;
              last FIND;
            }
            __CODE{expandETBinding:: $node => $cn}__;
            if ($cn->{<H::swcfg21:shadowSibling>}) {
              push @c, @{$cn->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}};
            }
          }
          ## Not found
          if ($makeNewNode) {
            __DEEP{
              $r = ($self-><AG::SWCFGNode.ownerDocument> || $self)
                        -><M::SWCFGDocument.createElementNS>
                                 ($namespaceURI, $localName);
              $self-><M::SWCFGNode.appendNode> ($r);
            }__;
          }
        } # FIND

  @Method:
    @@Name:getAttributeValue
    @@Description:
      @@@lang:en
      @@@@:
        Returns the value of the first child element with a given 
        local name. 
    @@NSVariant:.getAttributeValueNS
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the child element to get its value. 
    @@DefaultParam:
    @@DefaultListParam:
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The value of specified child element.  It might be either 
          a simple string value, a list (array reference) value or 
          a <DOM::null> value. 
          \
          If the element value is <DOM::null> or there is no such element 
          exist and the <P::default> parameter is specified, then 
          the <P::default> value is returned.  If the element 
          value is of list and it have zero item and the <P::defaultList> 
          parameter is specified, then the <P::defaultValue> is returned. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Either if there is no such child element found, if 
            the element value is <DOM::null> or if the <P::default> 
            value is specified as <DOM::null>. 
      @@@PerlDef:
        __DEEP{
          my $node = $self-><M::SWCFGNode.getAttribute> ($localName);
          if (ref $node) {
            $r = $node-><M::SWCFGNode.value> (%opt);
            if ($defaultList and ref $r eq 'ARRAY' and @$r == 0) {
              $r = $defaultList;
            }
          } else {
            $r = $defaultList || $default;
          }
        }__;

  @Method:
    @@Name:getAttributeValueNS
    @@Description:
      @@@lang:en
      @@@@:
        Returns the value of the first child element with a given 
        local name and namespace URI pair. 
    @@NewIn21:
    @@NonNSVariant:.getAttributeValue
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the element to get. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Description:
          @@@@@lang:en
          @@@@@@: The null namespace. 
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the child element to get its value. 
    @@DefaultParam:
    @@DefaultListParam:
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The value of specified child element.  It might be either 
          a simple string value, a list (array reference) value or 
          a <DOM::null> value. 
          \
          If the element value is <DOM::null> or there is no such element 
          exist and the <P::default> parameter is specified, then 
          the <P::default> value is returned.  If the element 
          value is of list and it have zero item and the <P::defaultList> 
          parameter is specified, then the <P::defaultValue> is returned. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Either if there is no such child element found, if 
            the element value is <DOM::null> or if the <P::default> 
            value is specified as <DOM::null>. 
      @@@PerlDef:
        __DEEP{
          my $node = $self-><M::SWCFGNode.getAttributeNS>
                                 ($namespaceURI, $localName);
          if (ref $node) {
            $r = $node-><M::SWCFGNode.value> (%opt);
            if ($defaultList and ref $r eq 'ARRAY' and @$r == 0) {
              $r = $defaultList;
            }
          } else {
            $r = $defaultList || $default;
          }
        }__;

  @Method:
    @@Name:getElementBy
    @@Description:
      @@@lang:en
      @@@@:
        Returns the first child element node that satisfies the 
        given condition, if any. 
    @@Param:
      @@@Name:code
      @@@Type: DISPerl|CODE||ManakaiDOM|all
      @@@Description:
        @@@@lang:en
        @@@@@:
          An anonymous function whose arguments are a <IF::SWCFGElement> 
          node and a named parameter list (Perl hash) and
          returning a boolean value.  This method calls this 
          function to test an element node should be returned as 
          the result.  The element node to test is passed as the first 
          argument and any named parameters to this method are 
          passed to the function. 
    @@NamedParam:
      @@@Name:makeNewNode
      @@@Type: DISPerl|CODE||ManakaiDOM|all
      @@@Description:
        @@@@lang:en
        @@@@@:
          An anonymous function whose arguments are a newly created 
          <IF::SWCFGElement> node and a named parameter list (Perl hash) 
          with no return value expected.  Any named parameters to this 
          method are passed to the function.  The function is expected 
          to modify the node of the first argument (including, but 
          not limited to, renaming its name) to match the <P::code>'s 
          condition, although it is not tested. 
    @@Return:
      @@@Type:SWCFGElement
      @@@Description:
        @@@@lang:en
        @@@@@:
          The first matching child element node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGElement
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            There is no element node with which the <P::code> returns 
            a <DOM::true> value. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        FIND: {
          my $node = $self->{<H::mn:node>};
          __CODE{expandETBinding:: $node => $node}__;
          __DEEP{
            my @c = (@{$node->{<H::swcfg21:childNodes>}},
                     ($node->{<H::swcfg21:shadowContent>}
                      ? @{$node->{<H::swcfg21:shadowContent>}
                               ->{<H::swcfg21:childNodes>}} : ()));
            while (@c) {
              my $this = $self-><M::ManakaiSWCFGNode.getNodeReference>
                              (my $t = shift @c);
              if ($t->{<H::swcfg21:nodeType>} eq '#element' and
                  $code->($self, $this, %opt)) {
                $r = $this;
                last FIND;
              }
              __CODE{expandETBinding:: $node => $t}__;
              if ($t->{<H::swcfg21:shadowSibling>}) {
                push @c, @{$t->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}};
              }
            }
          }__;
          ## Not found
          if ($makeNewNode) {
            __DEEP{
              $r = $self-><M::SWCFGNode.appendNewNode>
                                (type => '#element',
                                 namespace_uri =>
                                     ($self-><AG::SWCFGNode.ownerDocument> ||
                                      $self)
                                          -><AG::SWCFGDocument
                                                .defaultElementTypeNamespaceURI>,
                                 local_name => 'Node');
              if (ref $makeNewNode eq 'CODE') {
                $makeNewNode->($self, $r, %opt);
              }
            }__;
          }
        } # FIND

  @Method:
    @@Name:setAttribute
    @@Description:
      @@@lang:en
      @@@@:
        Sets the value of the first child element with the given name.  If 
        it does not exist, a new element has created and the value is set 
        to it. 
        \
        {TODO:: How this method treats shadow tree is not yet decided.
        \
        }
    @@NSVariant:.setAttributeNS
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The name of the element to set the value. 
    @@Param:
      @@@Name:value
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@: The value to set. 
    @@Return:
      @@@Type:SWCFGElement
      @@@Description:
        @@@@lang:en
        @@@@@: The element to which the value is set. 
      @@@RaiseException:
        @@@@@:BAD_VALUE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to set a value whose type is neither 
            a string, a list (array reference) or a blessed object. 
      @@@PerlDef:
        if ({qw/HASH 1 CODE 1/}->{ref ($value)}) {
          __EXCEPTION{BAD_VALUE_ERR::
            swcfg21:actualType => {ref $value},
          }__;
        }

        FIND: {
          for my $cn (@{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
            my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn);
            if ($c-><AG::SWCFGNode.nodeType> eq '#element' and
                $c-><AG::SWCFGNode.localName> eq $localName) {
              $r = $c;
              $r->{<H::mn:node>}->{<H::swcfg21:value>} = $value;
              for my $rcn (@{$r->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
                CORE::delete $rcn->{<H::swcfg21:parent>};
                $rcn-><M::NodeStem.orphanate>;
              }
              $r->{<H::mn:node>}->{<H::swcfg21:childNodes>} = [];
              last FIND;
            }
          }
          ## Not found
          __DEEP{
            $r = ($self-><AG::SWCFGNode.ownerDocument> || $self)
                      -><M::SWCFGDocument.createElementNS> (null, $localName);
            $self-><M::SWCFGNode.appendNode> ($r);
            $r->{<H::mn:node>}->{<H::swcfg21:value>} = $value;
          }__;
        } # FIND

  @Method:
    @@Name:setAttributeNS
    @@Description:
      @@@lang:en
      @@@@:
        Sets the value of the first child element with the given name.  If 
        it does not exist, a new element has created and the value is set 
        to it. 
        \
        {TODO:: How this method treats shadow tree is not yet decided.
        \
        }
    @@NonNSVariant:.setAttribute
    @@NewIn21:
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the element to set the value. 
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The name of the element to set the value. 
    @@Param:
      @@@Name:value
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@: The value to set. 
    @@Return:
      @@@Type:SWCFGElement
      @@@Description:
        @@@@lang:en
        @@@@@: The element to which the value is set. 
      @@@RaiseException:
        @@@@@:BAD_VALUE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to set a value whose type is neither 
            a string, a list (array reference) or a blessed object. 
      @@@PerlDef:
        if ({qw/HASH 1 CODE 1/}->{ref ($value)}) {
          __EXCEPTION{BAD_VALUE_ERR::
            swcfg21:actualType => {ref $value},
          }__;
        }

        FIND: {
          for my $cn (@{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
            my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn);
            my $cnsuri = $c-><AG::SWCFGNode.namespaceURI>;
            if ($c-><AG::SWCFGNode.nodeType> eq '#element' and
                ((not defined $namespaceURI and 
                  not defined $cnsuri) or
                 (defined $namespaceURI and defined $cnsuri and
                  $namespaceURI eq $cnsuri)) and
                $cn-><AG::SWCFGNode.localName> eq $localName) {
              $r = $c;
              $r->{<H::mn:node>}->{<H::swcfg21:value>} = $value;
              for my $rcn (@{$r->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
                CORE::delete $rcn->{<H::swcfg21:parent>};
                $rcn-><M::NodeStem.orphanate>;
              }
              $r->{<H::mn:node>}->{<H::swcfg21:childNodes>} = [];
              last FIND;
            }
          }
          ## Not found
          __DEEP{
            $r = ($self-><AG::SWCFGNode.ownerDocument> || $self)
                      -><M::SWCFGDocument.createElementNS>
                                        ($namespaceURI, $localName);
            $self-><M::SWCFGNode.appendNode> ($r);
            $r->{<H::mn:node>}->{<H::swcfg21:value>} = $value;
          }__;
        } # FIND

  @Method:
    @@Name: removeAttribute
    @@Description:
      @@@lang:en
      @@@@:
        Removes all child elements with the given name. 
        \
        {TODO:: How this method treats shadow tree is not yet decided.
        \
        }
    @@NSVariant:.removeAttributeNS
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the element to remove.
    @@Return:
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Always returns <DOM::true>. 
      @@@PerlDef:
        my @removed;
        $self->{<H::mn:node>}->{<H::swcfg21:childNodes>} = [grep {
          my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($_);
          if ($c-><AG::SWCFGNode.nodeType> eq '#element' and
              $c-><AG::SWCFGNode.localName> eq $localName) {
            push @removed, $_;
            CORE::delete $_->{<H::swcfg21:parent>};
            false;
          } else {
            true;
          }
        } @{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}];
        for my $n (@removed) {
          $n-><M::NodeStem.orphanate>;
        }
        $r = true;

  @Method:
    @@Name: removeAttributeNS
    @@Description:
      @@@lang:en
      @@@@:
        Removes all child elements with the given name. 
        \
        {TODO:: How this method treats shadow tree is not yet decided.
        \
        }
    @@NonNSVariant:.removeAttribute
    @@NewIn21:
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the element to remove. 
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the element to remove.
    @@Return:
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Always returns <DOM::true>. 
      @@@PerlDef:
        my @removed;
        $self->{<H::mn:node>}->{<H::swcfg21:childNodes>} = [grep {
          my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($_);
          my $cnsuri = $c-><AG::SWCFGNode.namespaceURI>;
          if ($c-><AG::SWCFGNode.nodeType> eq '#element' and
              ((not defined $namespaceURI and not defined $cnsuri) or
               (defined $namespaceURI and defined $cnsuri and
                $namespaceURI eq $cnsuri)) and
              $c-><AG::SWCFGNode.localName> eq $localName) {
            push @removed, $_;
            CORE::delete $_->{<H::swcfg21:parent>};
            false;
          } else {
            true;
          }
        } @{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}];
        for my $n (@removed) {
          $n-><M::NodeStem.orphanate>;
        }
        $r = true;

  @Attr:
    @@Name: childNodes
    @@Type: SWCFGChildNodeList
    @@actualType: ManakaiSWCFGChildNodeList
    @@Description:
      @@@lang:en
      @@@@:
        The list of child nodes, including nodes from shadow trees. 
        If the type of the node is 
        <CODE::#comment>, the list is always empty. 
    @@Get:
      @@@PerlDef:
        __CODE{ManakaiNode|getNewReference||ManakaiDOM|Perl::
          $object => {$self->{<H::mn:node>}},
          $ref => {$r},
          $class => {<ClassName::ManakaiSWCFGChildNodeList>},
        }__;
        $r->{nodeClass} = ref $self;

  @Attr:
    @@Name:localName
    @@Description:
      @@@lang:en
      @@@@:
        The local name of the node.  
    @@Type:SWCFGString
    @@Get:
      @@@disDef:
        @@@@DISLang:nop:
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the node. 
      @@@Type:SWCFGString
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node does not have the local name. 
            No node of type other than <CODE::#element> has the local name. 
    @@Set:
      @@@disDef:
        @@@@DISLang:nop:
      @@@Description:
        @@@@lang:en
        @@@@@:
          Sets the local name.  Setting the local name to the node 
          whose type is other than <CODE::#element> has no effect. 

  @Attr:
    @@Name:namespaceURI
    @@NewIn21:
    @@Description:
      @@@lang:en
      @@@@:
        The namespace URI of the node. 
    @@Type:SWCFGString
    @@Get:
      @@@disDef:
        @@@@DISLang:nop:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node does not have the namespace URI. 
            No node of type other than <CODE::#element> has the local name. 
    @@Set:
      @@@disDef:
        @@@@DISLang:nop:
      @@@Description:
        @@@@lang:en
        @@@@@:
          Sets the namespace URI.  Setting the local name to the node 
          whose type is other than <CODE::#element> has no effect. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@: 
            Sets the node not to have its namespace URI (or sets 
            the namespace as the <QUOTE::<DOM::null> namespace>. 

  @Attr:
    @@Name:nodeType
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The type of the node. 
    @@Get:
      @@@Type:SWCFGString
      @@@disDef:
        @@@@ConstValue:\#element
      @@@InCase:
        @@@@Value:\#comment
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is a comment node. 
      @@@InCase:
        @@@@Value:\#document
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is a document node. 
      @@@InCase:
        @@@@Value:\#element
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is an element node. 
      @@@InCase:
        @@@@Value:\#fragment
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is a document fragment node. 

  @Attr:
    @@Name:parentNode
    @@Type:SWCFGNode
    @@Description:
      @@@lang:en
      @@@@:
        The parent node of this node, if any. 
    @@ModIn21:
    @@Get:
      @@@Description:
        @@@@lang:en
        @@@@@:The parent node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGNode
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node has no parent node. 
      @@@PerlDef:
        $r = $self->{<H::mn:node>}->{<H::swcfg21:parent>};
        if ($r) {
          if ($r->{<H::swcfg21:shadowParent>}) {
            $r = $r->{<H::swcfg21:shadowParent>};
          } elsif ($r->{<H::swcfg21:shadowSiblingOf>}) {
            $r = $r->{<H::swcfg21:shadowSiblingOf>}->{<H::swcfg21:parent>};
          }
        }
        $r = $self-><M::ManakaiSWCFGNode.getNodeReference> ($r) if $r;

  @Attr:
    @@Name:realParentNode
    @@Type:SWCFGNode
    @@Description:
      @@@lang:en
      @@@@:
        The parent node of this node, if any. 
    @@NewIn21:
    @@Get:
      @@@Description:
        @@@@lang:en
        @@@@@:The parent node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGNode
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node has no parent node. 
      @@@PerlDef:
        $r = $self->{<H::mn|node>}->{<H::swcfg21|parent>};
        if (defined $r) {
          $r = <ClassM::ManakaiSWCFGNode.getNodeReference> ($r);
        }

  @Attr:
    @@Name:count
    @@Type: unsignedLong
    @@Description:
      @@@lang:en
      @@@@:
        The number of children of this node, includeing 
        child nodes in shadow trees.  If this node has 
        the value, it is also counted as a <QUOTE::child>. 
    @@ModIn21:
    @@Get:
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        $r = (defined $node->{<H::swcfg21:value>} ? 1 : 0)
           + @{$node->{<H::swcfg21:childNodes>}};
        __CODE{expandETBinding:: $node => $node}__;
        if ($node->{<H::swcfg21:shadowContent>}) {
          $r++ if not defined $node->{<H::swcfg21:value>} and
                  defined $node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:value>};
          $r += @{$node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:childNodes>}};
        }
        for my $cc (@{$node->{<H::swcfg21:childNodes>}}) {
          __CODE{expandETBinding:: $node => $cc}__;
          $r += @{$cc->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}}
             if $cc->{<H::swcfg21:shadowSibling>};
        }

  @Attr:
    @@Name:realCount
    @@Type: unsignedLong
    @@Description:
      @@@lang:en
      @@@@:
        The number of children of this node.  If this node has 
        the value, it is also counted as a <QUOTE::child>. 
    @@NewIn21:
    @@Get:
      @@@PerlDef:
        $r = (defined $self->{<H::mn:node>}->{<H::swcfg21:value>} ? 1 : 0)
           + @{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}};

  @Method:
    @@Name:innerText
    @@Description:
      @@@lang:en
      @@@@:
        Returns the text value of this node. 
    @@ModIn21:
    @@NamedParam:
      @@@Name:newValue
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          The new node value.  If <P::newValue> is specified, 
          the node value is changed before returning the value. 
          Sets a value to document or document fragment node has no effect. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The value of this node.  If the value is of list, 
          values are separeted by a <CHAR::LINE FEED> character. 
          Note that the last item of the list will <EM::not> 
          suffixed by a <CHAR::LINE FEED>. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node has no value. 
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        if (defined $newValue) {
          $node->{<H::swcfg21:value>} = $newValue;
        }
        my $v;
        if (defined $node->{<H::swcfg21:value>}) {
          $v = $node->{<H::swcfg21:value>};
        } else {
          __CODE{expandETBinding:: $node => $node}__;
          $v = defined $node->{<H::swcfg21:shadowContent>}
                     ? $node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:value>} : null;
        }
        $r = ref $v eq 'ARRAY' ? join "\x0A", @$v : $v;

  @Method:
    @@Name:actualInnerText
    @@Description:
      @@@lang:en
      @@@@:
        Returns the text value of this node. 
    @@NewIn21:
    @@NamedParam:
      @@@Name:newValue
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          The new node value.  If <P::newValue> is specified, 
          the node value is changed before returning the value. 
          Sets a value to document or document fragment node has no effect. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The value of this node.  If the value is of list, 
          values are separeted by a <CHAR::LINE FEED> character. 
          Note that the last item of the list will <EM::not> 
          suffixed by a <CHAR::LINE FEED>. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node has no value. 
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        if (defined $newValue) {
          $node->{<H::swcfg21:value>} = $newValue;
        }
        my $v;
        if (defined $node->{<H::swcfg21:value>}) {
          $v = $node->{<H::swcfg21:value>};
        }
        $r = ref $v eq 'ARRAY' ? join "\x0A", @$v : $v;

  @Method:
    @@Name:value
    @@Description:
      @@@lang:en
      @@@@:
        Returns the value of this node. 
    @@ModIn21:
    @@NamedParam:
      @@@Name:asArray
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Whether the value should be returned as an array reference 
          even if the node value is a simple string. 
      @@@InCase:
        @@@@Value:
          @@@@@@:1
          @@@@@ContentType: DISCore|Boolean
        @@@@Type: boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node value is always returned as an array reference. 
      @@@InCase:
        @@@@Value:
          @@@@@@:0
          @@@@@ContentType: DISCore|Boolean
        @@@@Type: boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node value is returned as an array reference if and 
            only if the node value is a list value. 
    @@Return:
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          The node value. If the <P::asArray> value is <DOM::false>, 
          the current node value is returned as is.  If the <P::asArray> 
          value is <DOM::true> and the node value is a simple string, 
          then an array reference containing the value as an only item 
          is returned.  If <DOM::true> and the node value is not defined, 
          then an empty array reference is returned. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        my $v;
        if (defined $node->{<H::swcfg21:value>}) {
          $v = $node->{<H::swcfg21:value>};
        } else {
          __CODE{expandETBinding:: $node => $node}__;
          $v = defined $node->{<H::swcfg21:shadowContent>}
                     ? $node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:value>} : null;
        }
        if ($asArray and ref $v ne 'ARRAY') {
          $r = defined $v ? [$v] : [];
        } else {
          $r = $v;
        }

  @Attr:
    @@Name:valueRef
    @@Description:
      @@@lang:en
      @@@@:
        A reference to the value of this node. 
    @@NewIn21:
    @@Get:
      @@@Type: DISPerl|SCALAR||ManakaiDOM|all
      @@@Description:
        @@@@lang:en
        @@@@@:
          A reference to the node value.  If the value is a list,
          the value is <EM::unspecified>.

          {NOTE:: Applications <kwd:SHOULD-NOT> try to modify
                  the value via the reference; such operations
                  might result in broken object model.
          }
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
          @@@@@enDesc:
            The node has no value.
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        if (defined $node->{<H::swcfg21:value>}) {
          $r = \ ($node->{<H::swcfg21:value>});
        } else {
          __CODE{expandETBinding:: $node => $node}__;
          $r = defined $node->{<H::swcfg21:shadowContent>}
                     ? \ ($node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:value>}) : null;
        }

  @Method:
    @@Operator:
      @@@ContentType: DISCore|QName
      @@@@:
        DISPerl:AsStringMethod
    @@Description:
      @@@lang:en
      @@@@:
        The string representation of the node, i.e. the serialized 
        text form of a SuikaWikiConfig/2.0 document or document fragment. 
        \
        {NOTE:: If a namespace URI in any node in the subtree rooted 
                by this node does not have its corresponding namespace 
                prefix, then this method assigns a prefix to that URI. 
        \
        }
        \
        {NOTE:: This method results in a ill-formed SuikaWikiConfig 
                document (fragment) if any node has unserializable 
                property, e.g. a value starts with <CODE::?SuikaWikiConfig> 
                on the comment node. 
        \
        }
    @@ModIn21:
    @@NamedParam:
      @@@Name:outputHeader
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Whether the magic identifier (the signature header) should 
          be prefixed or not, if this node is the document node. 
    @@Return:
      @@@Type:SWCFGString
      @@@PerlDef:
        my $nt = $self-><AG::SWCFGNode.nodeType>;
        my $node = $self->{<H::mn:node>};
        if ($nt eq '#element') {
          $r = $self-><M::SWCFGNode.actualInnerText>;
          if (scalar @{$node->{<H::swcfg21:childNodes>}}) {
            if (defined $r) {
              $r =~ s/(^|\x0A)(?=([\\\@\#\s]|$))?/$1."  ".
                                                  (defined $2?"\\":"")/ges;
              $r = $self-><AG::SWCFGElement.realQualifiedName>
                 . ":\x0A  \@\@"
                 . (ref ($node->{<H::swcfg21:value>}) eq 'ARRAY' ? '[list]' : '')
                 . ":" . ((($r !~ /[\x0D\x0A:]/) and (length ($r) < 50))
                          ? '' : "\x0A")
                 . (length $r ? $r : '\\') . "\x0A";
            } else {
              $r = $self-><AG::SWCFGElement.realQualifiedName>
                 . ":\x0A";
            }
            for my $cn (@{$node->{<H::swcfg21:childNodes>}}) {
              next unless $cn->{<H::swcfg21:nodeType>} eq '#element';
              my $rc = $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn)
                         ->stringify;
              $rc =~ s/\x0A  /\x0A     /gs;
              $rc =~ s/(\x0A +\@)/$1\@/gs;
              $r .= '  @' . $rc;
            }
          } else {
            $r = '' unless defined $r;
            $r =~ s/(^|\x0A)(?=([\\\@\#\s]|$))?/$1."  ".(defined $2?"\\":"")/ges;
            $r = $self-><AG::SWCFGElement.realQualifiedName>
               . (ref ($node->{<H::swcfg21:value>}) eq 'ARRAY' ? '[list]' : '')
               . ":" . ((($r !~ /[\x0D\x0A:]/) and (length ($r) < 50))
                        ? '' : "\x0A")
               . (length $r ? $r : '\\') . "\x0A";
          }
          $r = "\\" . $r if substr ($r, 0, 1) =~ /[\\\@\#\s]/;
        } elsif ($nt eq '#document') {
          if ($outputHeader) {
            $r = '#?SuikaWikiConfig/' . $node->{<H::swcfg21:version>} . "\n";
          }
          
          for my $cn (@{$node->{<H::swcfg21:childNodes>}}) {
            $r .= "\x0A";
            $r .= $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn)->stringify;
          }

          ## Element Type Binding
          my $eb = '';
          for my $bk (sort keys %{$self->{<H::mn:node>}
                                       ->{<H::swcfg21:etBinding>}}) {
            my $b = $self->{<H::mn:node>}->{<H::swcfg21:etBinding>}->{$bk};
            next unless $b;
            $eb .= "\x0A" . 'ElementTypeBinding:' . "\x0A"
                          . '  @Name:' . "\x0A"
                          . '    ' . $b->{elementType} . "\x0A"
                          . '  @ElementType:' . "\x0A"
                          . '    ';
            if ($b->{namespaceExpanded}) {
              $eb .= $self-><M::SWCFGNode.lookupNamespacePrefix>
                            ($b->{shadowNamespaceURI}, make_new_binding => true);
              $eb .= $b->{shadowLocalName};
            } else {
              ## NOTE: If namespace binding has changed, 
              ##       associated namespace URI might change. 
              $eb .= $b->{shadowLocalName};
            }
            $eb .= "\x0A";
            for my $p (qw/shadowContent shadowSibling/) {
              next unless $b->{$p};
              $eb .= '  @' . ucfirst ($p) . ":\x0A";
              my $rc = $self-><M::ManakaiSWCFGNode.getNodeReference> ($b->{$p});
              my $ebc = $rc->stringify;
              $ebc =~ s/\x0A  /\x0A       /gs;
              $ebc =~ s/(\x0A +\@)/$1\@\@/gs;
              $ebc =~ s/\x0A(?=\S)/\x0A    \@\@/gs;
              $eb .= '    @@' . $ebc;
              $ebc = $rc-><M::SWCFGNode.innerText>;
              if (defined $ebc) {
                $ebc =~ s/(^|\x0A)(?=([\\\@\#\s]|$))?/$1.'      '.
                                                  (defined $2?"\\":"")/ges;
                $eb .= '    @@@'
                    . (ref ($b->{$p}->{<H::swcfg21:value>}) eq 'ARRAY' ? '[list]' : '')
                    . ":" . ((($ebc !~ /[\x0D\x0A:]/) and (length ($ebc) < 50))
                             ? '' : "\x0A")
                    . (length $ebc ? $ebc : '\\') . "\x0A";
              }
            }
          } # swcfg21:etBinding
          $r .= $eb;

          ## Namespace bindings
          my $ns = '';
          for my $pfx (sort keys %{$self->{<H::mn:node>}
                                        ->{<H::swcfg21:nsBinding>}}) {
            if ($pfx ne 'URI') {
              $ns .= '  @' . $pfx . ':' . "\x0A"
                  .  '    ';
              my $uri = $self->{<H::mn:node>}->{<H::swcfg21:nsBinding>}->{$pfx};
              if (defined $uri) {
                if (length $uri) {
                  if ($uri =~ /^[\\#\s\@]/) {
                    $ns .= '\\' . $uri . "\x0A";
                  } else {
                    $ns .= $uri . "\x0A";
                  }
                } else {
                  $ns .= "\\\x0A";
                }
              } else {
                $ns .= '@@is-null: 1' . "\x0A";
              }
            }
          }
          $r .= "\x0A" . 'Namespace:' . "\x0A" . $ns . "\x0A" if length $ns;
        } elsif ($nt eq '#comment') {
          $r = $self-><M::SWCFGNode.innerText>;
          $r =~ s/\x0A/\x0A#/gs;
          $r = '#' . $r . "\n";
        } elsif ($nt eq '#fragment') {
          for my $cn (@{$node->{<H::swcfg21:childNodes>}}) {
            $r .= $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn)->stringify;
          }
        } else {
          __ASSERT{DISPerl:invariant::
            msg => {qq[Node type: "$nt"]},
          }__;
        }

  @Attr:
    @@Name:rootNode
    @@Description:
      @@@lang:en
      @@@@:
        The root node of the tree to which this node belongs. 
        If this node is part of a shadow master tree, the root node 
        of the main tree. 
    @@Get:
      @@@Type:SWCFGNode
      @@@PerlDef:
        $r = $self->{<H::mn:node>};
        {
          if ($r->{<H::swcfg21:parent>}) {
            $r = $r->{<H::swcfg21:parent>};
            redo;
          } elsif ($r->{<H::swcfg21:shadowParent>}) {
            $r = $r->{<H::swcfg21:shadowParent>};
            redo;
          } elsif ($r->{<H::swcfg21:shadowSiblingOf>}) {
            $r = $r->{<H::swcfg21:shadowSiblingOf>};
            redo;
          } elsif ($r->{<H::swcfg21:isShadowMaster>}) {
            $r = $r->{<H::swcfg21:ownerDocument>};
          }
        }
        $r = $self-><M::ManakaiSWCFGNode.getNodeReference> ($r);

  @Method:
    @@Name:nodePath
    @@Description:
      @@@lang:en
      @@@@:
        Returns a string representing the position of this node 
        in the document tree. 
        \
        {NOTE:: The position is represented in the informal 
                XPath-like expression.  In the current implementation, 
                it does not conform to XPath nor is able to 
                identify the node uniquely.  
        \
        }
    @@NamedParam:
      @@@Name:key
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          Either an attribute name or a reference to an array 
          containing attribute names.  Attribute names are 
          used as <QUOTE::keys> to identify a node. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          Node path string. 
      @@@PerlDef:
      __DEEP{
        my $parent = $self-><AG::SWCFGNode.parentNode>;
        if ($parent) {
          $r = $parent-><M::SWCFGNode.nodePath> (%opt);
        } else {
          $r = '';
        }
        my $node_type = $self-><AG::SWCFGNode.nodeType>;
        if ($node_type eq '#element') {
          $r .= '/' . $self-><AG::SWCFGElement.realQualifiedName>;
          if ($key) {
            for my $k (ref $key eq 'ARRAY' ? @{$key} : $key) {
              my $key_val = $self-><M::SWCFGNode.getAttributeValue> ($k);
              if (defined $key_val) {
                $r .= '[@' . $k . '=' . $key_val . ']';
              }
            }
          }
        } elsif ($node_type eq '#comment') {
          $r .= q</comment ()>;
        } elsif ($node_type eq '#document') {
          $r .= q</document (>
             .  ($self-><M::SWCFGNode.flag> (<Q::swcfg21:fileName>) || '')
             .  q<)>;
        } elsif ($node_type eq '#fragment') {
          $r .= q</fragment ()>;
        } else {
          __ASSERT{DISPerl:invariant::
            msg => {qq<Node path = "$r" ... Oops! Node type: "$node_type">},
          }__;
        }
      }__;

  @Method:
    @@Name:flag
    @@Description:
      @@@lang:en
      @@@@:
        Gets or sets an application data associated with this node. 
        \
        {NOTE:: The SuikaWikiConfig/2.1 object implementation 
                does not use <QUOTE::flags> to decide what to do. 
                Applications are free to use this space. 
        \
        }
    @@Param:
      @@@Name:name
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The name of flag to get or set its value. 
          \
          {NOTE:: Applications are advised to use a URI reference 
                  <SRC::RFC 3986> for flag names to avoid name confliction. 
          \
          }
    @@Param:
      @@@Name:value
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          Any data to associate with this node. 
          \
          {NOTE:: Associating a node belonging to the same tree as 
                  this node might lead memory leak because of its 
                  reference loop. 
          \
          }
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type: any
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The current flag value is left unchanged. 
            \
            {NOTE:: There is no way to remove a flag entirely. 
            \
            }
    @@DefaultParam:
    @@Return:
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          The (possibly new) value associated with the flag of <P::name>. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type: any
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            No value is associated with the flag and no default value provided. 
      @@@PerlDef:
        if (defined $value) {
          $r = $self->{<H::mn:node>}->{<H::swcfg21:flag>}->{$name} = $value;
        } else {
          $r = defined $self->{<H::mn:node>}->{<H::swcfg21:flag>}->{$name}
                  ? $self->{<H::mn:node>}->{<H::swcfg21:flag>}->{$name} : $default;
        }

  @Method:
    @@Name:option
    @@Description:
      @@@lang:en
      @@@@:
        Gets or sets a named option to this node. 
        \
        {NOTE:: Currently no options has defined. 
        \
        }
    @@Param:
      @@@Name:name
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@: The option name. 
    @@Param:
      @@@Name:value
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:The option value to set. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type: any
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The option value is left unchanged. 
            \
            {NOTE:: There is no way to remove an option value.  
            \
            }
    @@Return:
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:The (possibly new) value of the option. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type: any
        @@@@Description:
          @@@@@lang:en
          @@@@@@:No value has set to the option. 
      @@@PerlDef:
        if (defined $value) {
          $self->{<H::mn:node>}->{<H::swcfg21:option>}->{$name} = $value;
        }
        $r = $self->{<H::mn:node>}->{<H::swcfg21:option>}->{$name};

  @Method:
    @@Operator:
      @@@ContentType: DISCore|QName
      @@@@:
        DISPerl:CloneMethod
    @@Description:
      @@@lang:en
      @@@@:
        Makes a copy of this node.  All child nodes are cloned and 
        all flags and options are copied (rather than cloned).  
        The new node does not have any parent.  
    @@ModIn21:
    @@Return:
      @@@Type:SWCFGNode
      @@@Description:
        @@@@lang:en
        @@@@@: 
          The cloned node.
          \
          If this node is a document node, then the another document is made.  
      @@@PerlDef:
        __DEEP{
          my $od = $self-><AG::SWCFGNode.ownerDocument> || $self;
          my $nt = $self-><AG::SWCFGNode.nodeType>;
          if ($nt eq '#element') {
            $r = $self-><M::ManakaiSWCFGNode.getNodeReference>
                      (<ClassM::ManakaiSWCFGElement.newObject>);
            for my $p (<H::swcfg21:shadowLocalName>, <H::swcfg21:shadowNamespaceURI>,
                       <H::swcfg21:localName>, <H::swcfg21:namespaceURI>,
                       <H::swcfg21:namespaceExpanded>, <H::swcfg21:etExpanded>,
                       <H::swcfg21:ownerDocument>) {
              $r->{<H::mn:node>}->{$p} = $self->{<H::mn:node>}->{$p};
            }
            $r->{<H::mn:node>}->{<H::swcfg21:value>}
                = defined $self->{<H::mn:node>}->{<H::swcfg21:value>}
                  ? ref $self->{<H::mn:node>}->{<H::swcfg21:value>} eq 'ARRAY'
                  ? [@{$self->{<H::mn:node>}->{<H::swcfg21:value>}}]
                  : $self->{<H::mn:node>}->{<H::swcfg21:value>} : null;
            for my $p (<H::swcfg21:shadowContent>, <H::swcfg21:shadowSibling>) {
              if ($self->{<H::mn:node>}->{$p}) {
                my $c = $self-><M::ManakaiSWCFGNode.getNodeReference>
                           ($self->{<H::mn:node>}->{$p})->clone;
                $r->{<H::mn:node>}->{$p} = $c->{<H::mn:node>};
                $r->{<H::mn:node>}
                  -><M::NodeStem.importTree> ($r->{<H::mn:node>}->{$p});
                $r->{<H::mn:node>}->{$p}
                  ->{+{
                        <H::swcfg21:shadowContent> => <H::swcfg21:shadowParent>,
                        <H::swcfg21:shadowSibling> => <H::swcfg21:shadowSiblingOf>,
                     }->{$p}} = $r->{<H::mn:node>};
              }
            }
            for my $cn (@{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
              my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn);
              $r-><M::SWCFGNode.appendNode> ($c->clone);
            }
          } elsif ($nt eq '#comment') {
            $r = $od-><M::SWCFGDocument.createComment>
                            ($self->{<H::mn:node>}->{<H::swcfg21:value>});
          } elsif ($nt eq '#fragment') {
            $r = $od-><M::SWCFGDocument.createDocumentFragment>;
            ## swcfg21:isShadowMaster property is not copied
            for my $cn (@{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
              my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn);
              $r-><M::SWCFGNode.appendNode> ($c->clone);
            }
            $r->{<H::mn:node>}->{<H::swcfg21:value>}
                = defined $self->{<H::mn:node>}->{<H::swcfg21:value>}
                  ? ref $self->{<H::mn:node>}->{<H::swcfg21:value>} eq 'ARRAY'
                  ? [@{$self->{<H::mn:node>}->{<H::swcfg21:value>}}]
                  : $self->{<H::mn:node>}->{<H::swcfg21:value>} : null;
          } elsif ($nt eq '#document') {
            $r = $od-><AG::SWCFGDocument.implementation>
                    -><M::SWCFGImplementation.createSWCFGDocument>;
            $r->{<H::mn:node>}->{<H::swcfg21:nsBinding>}
               = {%{$self->{<H::mn:node>}->{<H::swcfg21:nsBinding>}}};
            for my $bk (keys %{$self->{<H::mn:node>}->{<H::swcfg21:etBinding>}}) {
              my $b = $self->{<H::mn:node>}->{<H::swcfg21:etBinding>}->{$bk};
              next unless $b;
              my $c = $r->{<H::mn:node>}->{<H::swcfg21:etBinding>}->{$bk} = {
                elementType => $b->{elementType},
                shadowLocalName => $b->{shadowLocalName},
                shadowNamespaceURI => $b->{shadowNamespaceURI},
                namespaceExpanded => $b->{namespaceExpanded},
              };
              for my $p (qw/shadowContent shadowSibling/) {
                if ($b->{$p}) {
                  my $cl = $self-><M::ManakaiSWCFGNode.getNodeReference>
                                 ($b->{$p})->clone;
                  $c->{$p} = $cl->{<H::mn:node>};
                  $r->{<H::mn:node>}-><M::NodeStem.importTree> ($c->{$p});
                  my @l = $c->{$p};
                  while (@l) {
                    my $l = shift @l; next unless $l;
                    $l->{<H::swcfg21:ownerDocument>} = $r->{<H::mn:node>};
                    for my $n (@{$l->{<H::swcfg21:childNodes>}}, 
                               $l->{<H::swcfg21:shadowContent>},   ## Does not allowed
                               $l->{<H::swcfg21:shadowSibling>}) { ## but for safe
                      push @l, $n;
                    }
                  }
                  $c->{$p}->{<H::swcfg21:isShadowMaster>} = true;
                }
              }
            }
            for my $cn (@{$self->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
              my $c = $self-><M::ManakaiSWCFGNode.getNodeReference> ($cn)->clone;
              $r->{<H::mn:node>}
                -><M::NodeStem.importTree> ($c->{<H::mn:node>});
              my @l = $c->{<H::mn:node>};
              while (@l) {
                my $l = shift @l; next unless $l;
                __CODE{mn|setXRefNode||ManakaiDOM|Perl::
                  $referrer => {$l},
                  $propName => {<H::swcfg21:ownerDocument>},
                  $referent => {$r->{<H::mn:node>}},
                }__;
                for my $n (@{$l->{<H::swcfg21:childNodes>}}, 
                           $l->{<H::swcfg21:shadowContent>},
                           $l->{<H::swcfg21:shadowSibling>}) {
                  push @l, $n;
                }
              }
              $r-><M::SWCFGNode.appendNode> ($c);
            }
          } else {
            __ASSERT{DISPerl:invariant::
              msg => {qq[Node type: "$nt"]},
            }__;
          }
        }__;
        $r->{<H::mn:node>}->{<H::swcfg21:flag>}
                           = {%{$self->{<H::mn:node>}->{<H::swcfg21:flag>}||{}}};
        $r->{<H::mn:node>}->{<H::swcfg21:option>}
                           = {%{$self->{<H::mn:node>}->{<H::swcfg21:option>}||{}}};

  @Attr:
    @@Name:ownerDocument
    @@NewIn21:
    @@Description:
      @@@lang:en
      @@@@:
        The document object associated with this node. 
    @@Get:
      @@@Type:SWCFGDocument
      @@@Description:
        @@@@lang:en
        @@@@@:
          The document object associated with this node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGDocument
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            This node is a document node. 
      @@@PerlDef:
        $r = $self->{<H::mn|node>}->{<H::swcfg21|ownerDocument>};
        if (defined $r) {
          $r = <ClassM::ManakaiSWCFGNode.getNodeReference> ($r);
        }

  @Method:
    @@Name:lookupNamespacePrefix
    @@Description:
      @@@lang:en
      @@@@:
        Looks up the namespace prefix associated to the given 
        namespace URI.  The default namespaces are ignored. 
    @@NewIn21:
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI to look for. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <DOM::null> namespace. 
    @@NamedParam:
      @@@Name: makeNewBinding
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Whether a new namespace prefix should be bound when 
          no namespace URI has been associated yet. 
      @@@InCase:
        @@@@Value:
          @@@@@@:1
          @@@@@ContentType: DISCore|Boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            New binding is made if no prefix associated. 
      @@@InCase:
        @@@@Value:
          @@@@@@:0
          @@@@@ContentType: DISCore|Boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Simply returns the <DOM::null> if no prefix associated. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
           An associated namespace prefix.  If more than one prefix 
           are associated to the namespace URI, the returned prefix 
           is implementation dependent. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            No associated namespace prefix found. 
      @@@PerlDef:
        $r = null;
        my $od = $self-><AG::SWCFGNode.ownerDocument> || $self;
        my $binds = $od->{<H::mn:node>}->{<H::swcfg21:nsBinding>};
        if (defined $namespaceURI) {
          FIND: {
            for my $prefix (keys %$binds) {
              if (defined $binds->{$prefix} and
                  $binds->{$prefix} eq $namespaceURI) {
                $r = $prefix;
                last FIND;
              }
            }
            last FIND unless $makeNewBinding;
            ## Not found
            if ($namespaceURI =~ /(\w+)$/) {
              my $prefix = $1;
              unless (exists $binds->{$prefix}) {
                $binds->{$prefix} = $namespaceURI;
                $r = $prefix;
                last FIND;
              }
            }
            my $i = 1;
            {
              unless (exists $binds->{'ns'.$i}) {
                $binds->{$r = 'ns'.$i} = $namespaceURI;
                last FIND;
              }
              $i++;
              redo;
            }
          } # FIND
        } else {  ## Null namespace
          FIND: {
            if (exists $binds->{'nu'.'ll'} and not defined $binds->{'nu'.'ll'}) {
              $r = 'nu'.'ll';
              last FIND;
            }
            for my $prefix (keys %$binds) {
              if (not defined $prefix) {
                $r = $prefix;
                last FIND;
              }
            }
            last FIND unless $makeNewBinding;
            ## Not found
            my $i = '';
            {
              unless (exists $binds->{'nu'.'ll'.$i}) {
                $binds->{$r = 'nu'.'ll'.$i} = null;
                last FIND;
              }
              $i++;
              redo;
            }
          }
        }

  @Method:
    @@Name:lookupNamespaceURI
    @@Description:
      @@@lang:en
      @@@@:
        Looks up the namespace URI associated to the given prefix. 
    @@NewIn21:
    @@Param:
      @@@Name:prefix
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI to look for. 
    @@NamedParam:
      @@@Name: makeNewBinding
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@:
          Whether a new binding should be created if no namespace URI 
          is associated with the <P::prefix> or not. 
      @@@InCase:
        @@@@Value:
          @@@@@@:1
          @@@@@ContentType: DISCore|Boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            A new binding to the temporary namespace URI 
            exactly same as <P::prefix> is created 
            if no binding found. 
      @@@InCase:
        @@@@Value:
          @@@@@@:0
          @@@@@ContentType: DISCore|Boolean
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            No new binding is created if no binding found.  Note that 
            even if no association newly created, this method 
            returns the <DOM::null> value. 
    @@NamedParam:
      @@@Name: raisePrefixException
      @@@Type: boolean
      @@@enDesc:
        Whehter an exception should be thrown if <P::prefix>
        is not declared or not. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:The associated namespace URI. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            No namespace prefix is associated to the prefix or 
            the <DOM::null> namespace is associated. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        my $od = $self-><AG::SWCFGNode.ownerDocument> || $self;
        my $binds = $od->{<H::mn:node>}->{<H::swcfg21:nsBinding>};
        if (exists $binds->{$prefix}) {
          $r = $binds->{$prefix};
        } elsif ($makeNewBinding) {
          $r = $binds->{$prefix} = $prefix;
        } elsif ($raisePrefixException) {
          __EXCEPTION{DIS:UNDECLARED_NS_PREFIX_ERR::
            infoset:prefix => {$prefix},
            MDOMX:param-name => 'prefix',
            DIS:sourceNode => {$self},
          }__;
        } else {
          $r = null;
        }

  @Method:
    @@Name:bindNamespaceURI
    @@Description:
      @@@lang:en
      @@@@:
        Binds a namespace URI to a prefix. 
    @@NewIn21:
    @@Param:
      @@@Name:prefix
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace prefix to which the URI is bound. 
          If this <P::prefix> is already bound to another URI, 
          that binding is overwritten. 
      @@@InCase:
        @@@@Value:URI
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Any attempt to change the namespace URI will not success, 
            i.e. the namespace binding left unchanged. 
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The namespace binding for <P::prefix> is removed. 
    @@Return:
      @@@PerlDef:
        unless ($prefix eq 'URI') {
          my $od = $self-><AG::SWCFGNode.ownerDocument> || $self;
          if (defined $namespaceURI) {
            $od->{<H::mn:node>}->{<H::swcfg21:nsBinding>}->{$prefix}
                                   = $namespaceURI;
          } else {
            CORE::delete $od->{<H::mn:node>}->{<H::swcfg21:nsBinding>}->{$prefix};
          }
        }

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Name:getNodeReference
    @@Description:
      @@@lang:en
      @@@@:
        Returns a new reference to the node object. 
    @@ImplNote:
      @@@lang:en
      @@@@:
        Calling this method to get node reference
        might be dangerous when <M::SWCFGNode.lookupNamespaceURI>
        is overridden; it might lead a node having different namespace 
        URI from the correct one.
    @@ManakaiDOM:isStatic:1
    @@Param:
      @@@Name:object
      @@@Type: NodeStem
      @@@Description:
        @@@@lang:en
        @@@@@:
          The node object to be referred. 
    @@Return:
      @@@Type:SWCFGNode
      @@@actualType:ManakaiSWCFGNode
      @@@Description:
        @@@@lang:en
        @@@@@:
          A newly created reference.
      @@@PerlDef:
        my $class;
        if ($object->{<H::swcfg21:nodeType>} eq '#element') {
          $class = <ClassName::ManakaiSWCFGElement>;
        } elsif ($object->{<H::swcfg21:nodeType>} eq '#comment') {
          $class = <ClassName::ManakaiSWCFGComment>;
        } elsif ($object->{<H::swcfg21:nodeType>} eq '#document') {
          $class = <ClassName::ManakaiSWCFGDocument>;
        } elsif ($object->{<H::swcfg21:nodeType>} eq '#fragment') {
          $class = <ClassName::ManakaiSWCFGDocumentFragment>;
        } else {
          __ASSERT{DISPerl:invariant::
            msg => {qq[Node type: "$object->{<H::swcfg21:nodeType>}" ].
                    qq[(ref: "@{[ref $object]}")]},
          }__;
        }
        __CODE{ManakaiNode|getNewReference||ManakaiDOM|Perl::
          $object => $object, 
          $ref => $r,
          $class => $class,
        }__;
  
  @Method:
     @@Name:  isSameNode
     @@Description:
        @@@lang:en
        @@@@:
          Return whether this node is the same node as the given one.
        \
          When two node references are references to the same object, 
          even if through a proxy, the references may be used completely 
          interchangably, such that all attributes have the same values 
          and calling the same method on either reference always has 
          exactly same effect.
     @@NewIn21:
     @@Operator:
        @@@@: eq
        @@@ContentType:
          lang:Perl
     @@Param:
        @@@Name:  other
        @@@Type:  SWCFGNode
        @@@Description:
          @@@@lang:en
          @@@@@: The node to test against.
     @@Return:
        @@@Type: boolean
        @@@InCase:
          @@@@Value:
            @@@@@@:1
            @@@@@ContentType: DISCore|Boolean
          @@@@Description:
            @@@@@lang:en
            @@@@@@:
              The two nodes are the same.
        @@@InCase:
          @@@@Value:
            @@@@@@:0
            @@@@@ContentType: DISCore|Boolean
          @@@@Description:
            @@@@@lang:en
            @@@@@@: The two nodes are not same.
        @@@PerlDef:
            if (UNIVERSAL::isa ($other, <IFName::NodeRef>)
                and $other->{<H::mn:node>}->{<H::mn:nodeID>}
                  eq $self->{<H::mn:node>}->{<H::mn:nodeID>}) {
              $r = true;
            }

  @IntMethod:
    @@Name:newObject
    @@ForCheck: ManakaiDOM|ForClass
    @@ManakaiDOM:isStatic:1
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new instance object for <IF::SWCFGNode>. 
    @@Param:
      @@@Name: refClass
      @@@Type: SWCFGString
      @@@enDesc:
        The name of a <IF::mn|NodeRef||ManakaiDOM|Perl> class.
    @@Return:
      @@@Type: NodeStem
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created node object.
      @@@PerlDef:
        @@@@@:
          my $node =
             $r = <ClassM::ManakaiNode|ManakaiNodeStem||ManakaiDOM|Perl.new>
                    ($refClass);
          $node->{<H::swcfg21:childNodes>} = [];
        @@@@ImplNote:
          @@@@@lang:en
          @@@@@@:
            Required property: <Q::swcfg21:nodeType>, <Q::ownerDocument>. 
            \
            Optional properties: <Q::swcfg21:value>, <Q::swcfg21:parent>, 
                  <Q::swcfg21:childNodes>, <Q::flag>, <Q::option>. 

  @mn:origin0: swcfg21|parent
  @mn:subnode1: swcfg21|childNodes
  @mn:irefnode0: swcfg21|ownerDocument
  @mn:anydata1: swcfg21|flag
  @mn:anydata1: swcfg21|option

  @Attr:
    @@Name: nodeID
    @@Description:
      @@@lang:en
      @@@@:
        A unique identifier of this node. 
        \
        {NOTE:: Node IDs are a globally unique opaque string.  Note that 
                two nodes separetely parsed and constructed from the 
                same document would have different node IDs. 
        \
        }
    @@NewIn21:
    @@Get:
      @@@Type: SWCFGString
      @@@PerlDef:
        $r = $self->{<H::mn:node>}->{<H::mn:nodeID>};

  @Attr:
    @@Name: nodeIDRef
    @@enDesc:
      A reference to the node identifier.
    @@NewIn21:
    @@Get:
      @@@Type: DISPerl|SCALAR||ManakaiDOM|all
      @@@PerlDef:
        $r = \($self->{<H::mn:node>}->{<H::mn:nodeID>});
##SWCFGNode

ElementTypeBinding:
  @Name: XParamDef
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type: ecore|Parameter
    @@For:
      =ManakaiDOM:all

PropDef:
  @QName: fileName
  @Description:
    @@lang:en
    @@@:
      The name of the source file. 

ElementTypeBinding:
  @Name: UndeclaredPrefixException
  @ElementType:
    ManakaiDOM:raises
  @ShadowContent:
    @@@: 
      DIS:UNDECLARED_NS_PREFIX_ERR
    @@Description:
      @@@lang:en
      @@@@:
        The implementation has encounted an undeclared namespace prefix. 

IFClsDef:
  @IFQName: SWCFGComment
  @ClsQName: ManakaiSWCFGComment

  @ClsISA: ManakaiSWCFGNode

  @Description:
    @@lang:en
    @@@:
      A comment node. 
      \
      {NOTE:: A comment node have a value.  A comment node has no child node. 
              The <CODE::#?SuikaWikiConfig/2.1> magic line is not a comment. 
              The parent node of a comment node, if any, is always 
              the document node in SuikaWikiConfig versions 2.0 and 2.1. 
      \
      }
  
  @RedefAttr:
    @@Name:nodeType
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The type of the node. 
    @@Get:
      @@@disDef:
        @@@@ConstValue:\#comment
      @@@InCase:
        @@@@Value:\#comment
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is a comment node. 

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Name:newObject
    @@ManakaiDOM:isStatic:1
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new instance object for <IF::SWCFGComment>. 
    @@Return:
      @@@Type: NodeStem
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created node object.
      @@@PerlDef:
        @@@@@:
          $r = <ClassM::ManakaiSWCFGNode.newObject> ($self);
          $r->{<H::swcfg21:nodeType>} = '#comment';
          $r->{<H::swcfg21:value>} = '';
          $r->{<H::swcfg21:namespaceExpanded>} = true; ## Always t r u e
          $r->{<H::swcfg21:etExpanded>} = true; ## Always t r u e
        @@@@ImplNote:
          @@@@@lang:en
          @@@@@@:
            Required property: <Q::ownerDocument>, <Q::swcfg21:nodeType>. 
            \
            Optional properties: <Q::swcfg21:value>, <Q::swcfg21:parent>, 
                  <Q::swcfg21:childNodes>, <Q::flag>, <Q::option>. 
##SWCFGComment

IFClsDef:
  @IFQName: SWCFGElement
  @ClsQName: ManakaiSWCFGElement

  @ClsISA: ManakaiSWCFGNode

  @Description:
    @@lang:en
    @@@:
      An element node. 
      \
      {NOTE:: An element node have a value.  An element node can have 
              child elements if the value is a simple string (if any). 
              Future version of SuikaWikiConfig might allow a comment child. 
      \
      }

  @Attr:
    @@Name:expandedURI
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The expanded URI of the node. 
    @@NewIn21:
    @@Get:
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        if (defined $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>}) {
          if ($self->{<H::mn:node>}
                   ->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>) {
            $r = $self->{<H::mn:node>}->{<H::swcfg21:shadowNamespaceURI>} .
                 $self->{<H::mn:node>}->{<H::swcfg21:shadowLocalName>};
          } else {
            $r = $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} .
                 $self->{<H::mn:node>}->{<H::swcfg21:localName>};
          }
        } else {
          $r = $self->{<H::mn:node>}->{<H::swcfg21:localName>};
        }

  @Attr:
    @@Name:prefix
    @@Description:
      @@@lang:en
      @@@@:
        The namespace prefix of this node. 
    @@NewIn21:
    @@Get:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:The namespace prefix. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Either this node is not an element node or its namespace 
            is the default and no prefix is required. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        my $node = $self->{<H::mn:node>};
        my $od = $self-><AG::SWCFGNode.ownerDocument>;
        my $defURI = $od-><AG::SWCFGDocument.defaultElementTypeNamespaceURI>;
        if (defined $node->{<H::swcfg21:namespaceURI>}) {
          if (not defined $defURI or
              $node->{<H::swcfg21:namespaceURI>} ne $defURI or
              $node->{<H::swcfg21:localName>} eq 'Namespace' or
              $node->{<H::swcfg21:localName>} eq 'ElementTypeBinding' or
              $node->{<H::swcfg21:localName>} =~ /:/) {
            $r = $self-><M::SWCFGNode.lookupNamespacePrefix>
                                             ($node->{<H::swcfg21:namespaceURI>},
                                              make_new_binding => 1);
          } else {
            $r = null;
          }
        } else {  ## Null namespace
          if (defined $defURI or $node->{<H::swcfg21:localName>} =~ /:/ or
              $node->{<H::swcfg21:localName>} eq 'Namespace' or
              $node->{<H::swcfg21:localName>} eq 'ElementTypeBinding') {
            $r = $self-><M::SWCFGNode.lookupNamespacePrefix>
                                             ($node->{<H::swcfg21:namespaceURI>},
                                              make_new_binding => 1);
          } else {
            $r = null;
          }
        }

  @Attr:
    @@Name: qualifiedName
    @@Type: SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The qualified name of the element type, i.e. the local name 
        with or with out the namespace prefix followed by a <CHAR::COLON>. 
    @@NewIn21:
    @@Get:
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        my $node = $self->{<H::mn:node>};
        my $od = $self-><AG::SWCFGNode.ownerDocument>;
        my $defURI = $od-><AG::SWCFGDocument.defaultElementTypeNamespaceURI>;
        if (defined $node->{<H::swcfg21:namespaceURI>}) {
          my $nsURI = ($node->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>
                        ? $node->{<H::swcfg21:shadowNamespaceURI>}
                        : $node->{<H::swcfg21:namespaceURI>});
          my $ln = ($node->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>
                        ? $node->{<H::swcfg21:shadowLocalName>}
                        : $node->{<H::swcfg21:localName>});
          if (not defined $defURI or
              $nsURI ne $defURI or
              $ln eq 'Namespace' or
              $ln eq 'ElementTypeBinding' or
              $ln =~ /:/) {
            $r = $self-><M::SWCFGNode.lookupNamespacePrefix>
                                             ($node->{<H::swcfg21:namespaceURI>},
                                              make_new_binding => 1) .
                 ':' . $ln;
          } else {
            $r = $ln;
          }
        } else {  ## Null namespace
          if (defined $defURI or $node->{<H::swcfg21:localName>} =~ /:/ or
              $node->{<H::swcfg21:localName>} eq 'Namespace' or
              $node->{<H::swcfg21:localName>} eq 'ElementTypeBinding') {
            $r = $self-><M::SWCFGNode.lookupNamespacePrefix>
                                             ($node->{<H::swcfg21:namespaceURI>},
                                              make_new_binding => 1) .
                 ':' . $node->{<H::swcfg21:localName>};
          } else {
            $r = $node->{<H::swcfg21:localName>};
          }
        }

  @Attr:
    @@Name: realQualifiedName
    @@Type: SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The qualified name of the element type, i.e. the local name 
        with or with out the namespace prefix followed by a <CHAR::COLON>. 
    @@NewIn21:
    @@Get:
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        my $node = $self->{<H::mn:node>};
        my $od = $self-><AG::SWCFGNode.ownerDocument>;
        my $defURI = $od-><AG::SWCFGDocument.defaultElementTypeNamespaceURI>;
        if (defined $node->{<H::swcfg21:namespaceURI>}) {
          if ($node->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>) {
            $r = $node->{<H::swcfg21:localName>};
          } elsif (not defined $defURI or
              $node->{<H::swcfg21:namespaceURI>} ne $defURI or
              $node->{<H::swcfg21:localName>} eq 'Namespace' or
              $node->{<H::swcfg21:localName>} eq 'ElementTypeBinding' or
              $node->{<H::swcfg21:localName>} =~ /:/) {
            $r = $self-><M::SWCFGNode.lookupNamespacePrefix>
                                             ($node->{<H::swcfg21:namespaceURI>},
                                              make_new_binding => 1) .
                 ':' . $node->{<H::swcfg21:localName>};
          } else {
            $r = $node->{<H::swcfg21:localName>};
          }
        } else {  ## Null namespace
          if (defined $defURI or $node->{<H::swcfg21:localName>} =~ /:/ or
              $node->{<H::swcfg21:localName>} eq 'Namespace' or
              $node->{<H::swcfg21:localName>} eq 'ElementTypeBinding') {
            $r = $self-><M::SWCFGNode.lookupNamespacePrefix>
                                             ($node->{<H::swcfg21:namespaceURI>},
                                              make_new_binding => 1) .
                 ':' . $node->{<H::swcfg21:localName>};
          } else {
            $r = $node->{<H::swcfg21:localName>};
          }
        }
  
  @RedefAttr:
    @@Name:nodeType
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The type of the node. 
    @@Get:
      @@@disDef:
        @@@@ConstValue:\#element
      @@@InCase:
        @@@@Value:\#element
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is an element node. 

  @RedefAttr:
    @@Name:localName
    @@Description:
      @@@lang:en
      @@@@:
        The local name of the node. 
    @@Type:SWCFGString
    @@ModIn21:
    @@Get:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node does not have the local name. 
            No node of type other than <CODE::#element> has the local name. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        $r = (defined $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} and
              $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>)
               ? $self->{<H::mn:node>}->{<H::swcfg21:shadowLocalName>}
               : $self->{<H::mn:node>}->{<H::swcfg21:localName>};
    @@Set:
      @@@Description:
        @@@@lang:en
        @@@@@:
          Sets the local name.  Setting the local name to the node 
          whose type is other than <CODE::#element> has no effect. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        if (defined $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} and
            $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>) {
          $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>}
              = $self->{<H::mn:node>}->{<H::swcfg21:shadowNamespaceURI>};
        }
        $self->{<H::mn:node>}->{<H::swcfg21:localName>} = $given;

  @Attr:
    @@Name:realLocalName
    @@Description:
      @@@lang:en
      @@@@:
        The real local name of the node. 
    @@Type:SWCFGString
    @@NewIn21:
    @@Get:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the node.  If an element type binding 
          has bound to this element, then actual element type name. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        $r = $self->{<H::mn:node>}->{<H::swcfg21:localName>};
    @@Set:
      @@@Description:
        @@@@lang:en
        @@@@@:
          Sets the local name.  Setting the local name to the node 
          whose type is other than <CODE::#element> has no effect.  
          Changes for element type name does not take effect 
          until <M::SWCFGDocument.updateElementTypeBinding> method is called. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        $self->{<H::mn:node>}->{<H::swcfg21:localName>} = $given;

  @RedefAttr:
    @@Name:namespaceURI
    @@Description:
      @@@lang:en
      @@@@:
        The namespace URI of the node. 
    @@NewIn21:
    @@Type:SWCFGString
    @@Get:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node does not have the namespace URI. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        $r = (defined $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} and
              $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>)
             ? $self->{<H::mn:node>}->{<H::swcfg21:shadowNamespaceURI>}
             : $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>};
    @@Set:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          Sets the namespace URI.
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@: 
            Sets the node not to have its namespace URI (or sets 
            the namespace as the <QUOTE::<DOM::null> namespace>. 
      @@@InCase:
        @@@@Value:
          @@@@@ContentType: DISCore|QName
          @@@@@@:
            swcfg21:RealName
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The namespace URI (both <EM::real> or <EM::shadow>) 
            has left unchanged. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        unless (defined $given and $given eq <Q::swcfg21:RealName>) {
          __CODE{expandNamespace}__;
          if (defined $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} and
             $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} eq <Q::swcfg21:RealName>) {
            $self->{<H::mn:node>}->{<H::swcfg21:localName>}
              = $self->{<H::mn:node>}->{<H::swcfg21:localName>};
          }
          $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} = $given;
        }

  @Attr:
    @@Name:realNamespaceURI
    @@Description:
      @@@lang:en
      @@@@:
        The namespace URI of the node. 
    @@NewIn21:
    @@Type:SWCFGString
    @@Get:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the node. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node does not have the namespace URI. 
      @@@InCase:
        @@@@Value:
          @@@@@ContentType: DISCore|QName
          @@@@@@:
            swcfg21:RealName
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Any element type binding has been bound to this element; 
            the local name of this node is the <EM::real> qualified name. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        __CODE{expandNamespace}__;
        $r = $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>};
    @@Set:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          Sets the namespace URI.
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@: 
            Sets the node not to have its namespace URI (or sets 
            the namespace as the <QUOTE::<DOM::null> namespace>. 
      @@@InCase:
        @@@@Value:
          @@@@@ContentType: DISCore|QName
          @@@@@@:
            swcfg21:RealName
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The namespace URI (both <EM::real> or <EM::shadow>) 
            has left unchanged. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        unless (defined $given and $given eq <Q::swcfg21:RealName>) {
          __CODE{expandNamespace}__;
          $self->{<H::mn:node>}->{<H::swcfg21:namespaceURI>} = $given;
        }

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Name:newObject
    @@ManakaiDOM:isStatic:1
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new instance object for <IF::SWCFGElement>. 
    @@Return:
      @@@Type: NodeStem
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created node object.
      @@@PerlDef:
        @@@@@:
          $r = <ClassM::ManakaiSWCFGNode.newObject> ($self);
          $r->{<H::swcfg21:nodeType>} = '#element';
        @@@@ImplNote:
          @@@@@lang:en
          @@@@@@:
            Required property: <Q::ownerDocument>, <H::swcfg21:nodeType>, 
              <H::swcfg21:localName>. 
            \
            Optional properties: <H::swcfg21:value>, <H::swcfg21:parent>, 
                  <H::swcfg21:childNodes>, <Q::flag>, <Q::option>, 
                  <Q::namespaceURI>, <H::swcfg21:namespaceExpanded>, 
                  <H::swcfg21:shadowContent>, <H::swcfg21:shadowSibling>, 
                  <H::swcfg21:etExpanded>. 
  
  @mn:subnode0: swcfg21|shadowContent
  @mn:subnode0: swcfg21|shadowSibling

  @ResourceDef:
    @@QName: expandETBinding
    @@rdf:type: DISPerl|BlockCode
    @@Description:
      @@@lang:en
      @@@@:
        Expands element type bindings. 
    @@ForCheck: ManakaiDOM|ForClass
    @@UndeclaredPrefixException:
    @@PerlDef:
      unless ($node->{<H::swcfg21:etExpanded>}) {
      __DEEP{
        my $__qn;
        if ($node->{<H::swcfg21:namespaceExpanded>}) {
          $__qn = $self-><M::ManakaiSWCFGNode.getNodeReference> ($node)
                  -><AG::SWCFGElement.realQualifiedName>;
        } else {
          $__qn = $node->{<H::swcfg21:localName>};

        }
        my $__od = $node->{<H::swcfg21:ownerDocument>};
        if ($__od->{<H::swcfg21:etBinding>}->{$__qn}) {
          my $b = $__od->{<H::swcfg21:etBinding>}->{$__qn};
          $node->{<H::swcfg21:namespaceURI>} = <Q::swcfg21:RealName>;
          if ($node->{<H::swcfg21:namespaceExpanded>}) {
            $node->{<H::swcfg21:localName>} = $__qn;
          } else {
            $node->{<H::swcfg21:namespaceExpanded>} = true;
          }
          unless ($b->{namespaceExpanded}) {
            if ($b->{shadowLocalName} =~ s/^([^:]*)://) {
              my $__prefix = $1;
              $b->{shadowNamespaceURI}
                   = $self-><M::ManakaiSWCFGNode.getNodeReference> ($__od)
                           -><M::SWCFGNode.lookupNamespaceURI>
                                 ($__prefix, make_new_binding => false,
                                  raise_prefix_exception => true);
            }
            $b->{namespaceExpanded} = true;
          }
          $node->{<H::swcfg21:shadowNamespaceURI>} = $b->{shadowNamespaceURI};
          $node->{<H::swcfg21:shadowLocalName>} = $b->{shadowLocalName};
          for my $__p (qw/shadowContent shadowSibling/) {
            next unless $b->{$__p};
            my $cl = $self-><M::ManakaiSWCFGNode.getNodeReference> ($b->{$__p})
                        ->clone;
            my $__n = $node->{{shadowContent => <H::swcfg21:shadowContent>,
                               shadowSibling => <H::swcfg21:shadowSibling>}->{$__p}}
               = $cl->{<H::mn:node>};
            $node-><M::NodeStem.importTree> ($__n);
            $__n->{{shadowContent => <H::swcfg21:shadowParent>,
                    shadowSibling => <H::swcfg21:shadowSiblingOf>}->{$__p}} = $node;
          }
        }
        $node->{<H::swcfg21:etExpanded>} = true;
      }__;
      }

  @ResourceDef:
    @@QName: expandNamespace
    @@rdf:type: DISPerl|BlockCode
    @@ForCheck: ManakaiDOM|ForClass
    @@Description:
      @@@lang:en
      @@@@:
        Expands qualified name into namespace URI and local name. 
    @@UndeclaredPrefixException:
    @@PerlDef:
      my $__node = $self->{<H::mn:node>};
      __CODE{expandETBinding:: $node => $__node}__;
      unless ($__node->{<H::swcfg21:namespaceExpanded>}) {
        if ($__node->{<H::swcfg21:localName>} =~ s/^([^:]*)://) {
          my $__prefix = $1;
          __DEEP{
            $__node->{<H::swcfg21:namespaceURI>}
                 = $self-><M::SWCFGNode.lookupNamespaceURI>
                                 ($__prefix, make_new_binding => false, 
                                  raise_prefix_exception => true);
          }__;
        } else {
          $__node->{<H::swcfg21:namespaceURI>}
                 = $__node->{<H::swcfg21:ownerDocument>}
                          ->{<H::swcfg21:defaultETNamespaceURI>};
        }
        $__node->{<H::swcfg21:namespaceExpanded>} = true;
      }
##SWCFGElement

IFClsDef:
  @IFQName: SWCFGDocument
  @ClsQName: ManakaiSWCFGDocument

  @ClsISA: ManakaiSWCFGNode

  @Description:
    @@lang:en
    @@@:
      A document node. 
      \
      {NOTE:: A document node does not have any value.  A document node can have 
              child nodes whose type is either element or comment. 
              A document node has no parent. 
      \
      }

  @Method:
    @@Name:createElementNS
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new element. 
        \
        {NOTE:: No element type binding expansion will occur 
                at the time of creation. 
        \
        }
    @@NewIn21:
    @@Param:
      @@@Name:namespaceURI
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The namespace URI of the element to create. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@: The new element has no namespace. 
    @@Param:
      @@@Name:localName
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The local name of the element to create. 
    @@Return:
      @@@Type:SWCFGElement
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created element. 
      @@@PerlDef:
        $r = <ClassM::ManakaiSWCFGElement.newObject>;
        __CODE{mn|setXRefNode||ManakaiDOM|Perl::
          $referrer => {$r},
          $propName => {<H::swcfg21:ownerDocument>},
          $referent => {$self->{<H::mn:node>}},
        }__;
        $r->{<H::swcfg21:namespaceURI>} = $namespaceURI;
        $r->{<H::swcfg21:localName>} = $localName;
        $r->{<H::swcfg21:namespaceExpanded>} = true;
        $r->{<H::swcfg21:etExpanded>} = true;
        $r = $self-><M::ManakaiSWCFGNode.getNodeReference> ($r);

  @Method:
    @@Name:createComment
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new comment node. 
    @@NewIn21:
    @@Param:
      @@@Name:data
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The initial content of the comment. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The new comment node has the empty value. 
    @@Return:
      @@@Type:SWCFGComment
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created comment. 
      @@@PerlDef:
        $r = <ClassM::ManakaiSWCFGComment.newObject>;
        __CODE{mn|setXRefNode||ManakaiDOM|Perl::
          $referrer => {$r},
          $propName => {<H::swcfg21:ownerDocument>},
          $referent => {$self->{<H::mn:node>}},
        }__;
        $r->{<H::swcfg21:value>} = defined $data ? $data : '';
        $r = $self-><M::ManakaiSWCFGNode.getNodeReference> ($r);

  @Method:
    @@Name:createDocumentFragment
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new document fragment node. 
    @@NewIn21:
    @@Return:
      @@@Type:SWCFGDocumentFragment
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created document fragment node. 
      @@@PerlDef:
        $r = <ClassM::ManakaiSWCFGDocumentFragment.newObject>;
        __CODE{mn|setXRefNode||ManakaiDOM|Perl::
          $referrer => {$r},
          $propName => {<H::swcfg21:ownerDocument>},
          $referent => {$self->{<H::mn:node>}},
        }__;
        $r = $self-><M::ManakaiSWCFGNode.getNodeReference> ($r);

  @Attr:
    @@Name: defaultElementTypeNamespaceURI
    @@Description:
      @@@lang:en
      @@@@:
        The default namespace URI for element type names. 
    @@NewIn21:
    @@Type:SWCFGString
    @@Get:
      @@@PerlDef:
        $r = $self->{<H::mn|node>}->{<H::swcfg21|defaultETNamespaceURI>};
    @@Set:
      @@@PerlDef:
        $self->{<H::mn|node>}->{<H::swcfg21|defaultETNamespaceURI>} = $given;

  @Attr:
    @@Name: implementation
    @@Description:
      @@@lang:en
      @@@@:
        The SuikaWikiConfig implementation to which this document 
        belongs. 
    @@NewIn21:
    @@Type: SWCFGImplementation
    @@Get:
      @@@PerlDef:
        $r = $self->{<H::mn|node>}->{<H::f|implementation>};
  
  @RedefAttr:
    @@Name:nodeType
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The type of the node. 
    @@Get:
      @@@disDef:
        @@@@ConstValue:\#document
      @@@Type:SWCFGString
      @@@InCase:
        @@@@Value:\#document
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is a document node. 

  @RedefMethod:
    @@Name:innerText
    @@Description:
      @@@lang:en
      @@@@:
        Returns the text value of this node. 
    @@NamedParam:
      @@@Name:newValue
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          An attempt to set a value to document node has no effect. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The value of this node.
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node has no value. 
      @@@disDef:
        @@@@DISLang:nop:

  @Method:
    @@Name:actualInnerText
    @@Description:
      @@@lang:en
      @@@@:
        Returns the text value of this node. 
    @@NewIn21:
    @@NamedParam:
      @@@Name:newValue
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          An attempt to set a value to document node has no effect. 
    @@Return:
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The value of this node.
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The node has no value. 
      @@@disDef:
        @@@@DISLang:nop:

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Name:newObject
    @@ManakaiDOM:isStatic:1
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new instance object for <IF::SWCFGDocument>. 
    @@Return:
      @@@Type: NodeStem
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created node object.
      @@@PerlDef:
        @@@@@:
          $r = <ClassM::ManakaiSWCFGNode.newObject> ($self);
          $r->{<H::swcfg21:nodeType>} = '#document';
          $r->{<H::swcfg21:nsBinding>} = {URI => ''};
          $r->{<H::swcfg21:etBinding>} = {};
          $r->{<H::swcfg21:namespaceExpanded>} = true; ## Always t r u e
          $r->{<H::swcfg21:etExpanded>} = true; ## Always t r u e
        @@@@ImplNote:
          @@@@@lang:en
          @@@@@@:
            Required property: <Q::ownerDocument>, <Q::swcfg21:nodeType>, 
                  <Q::f|implementation>, <Q::swcfg21:nsBinding>, 
                  <Q::etBinding>. 
            \
            Optional properties: <Q::swcfg21:childNodes>, <Q::flag>, <Q::option>, 
                  <Q::defaultETNamespaceURI>. 

  @mn:subnode2: swcfg21|etBinding
##SWCFGDocument

IFClsDef:
  @IFQName: SWCFGDocumentFragment
  @ClsQName: ManakaiSWCFGDocumentFragment

  @ClsISA: ManakaiSWCFGNode

  @Description:
    @@lang:en
    @@@:
      A document fragment node. 
      \
      {NOTE:: A document fragment node may have its value if 
              and only if its <A::SWCFGDocumentFragment.isShadowMaster> 
              is <DOM::true>.
              A document fragment node can have child elements. 
              Future version of SuikaWikiConfig might allow a comment child. 
              A document fragment node has no parent. 
      \
      }

  @Attr:
    @@Name: isShadowMaster
    @@Type: boolean
    @@Description:
      @@@lang:en
      @@@@:
        Whether this node is the root node for the shadow content 
        or shadow sibling tree or not. 
    @@NewIn21:
    @@Get:
      @@@PerlDef:
        $r = $self->{<H::mn|node>}->{<H::swcfg21|isShadowMaster>};
  
  @RedefAttr:
    @@Name:nodeType
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The type of the node. 
    @@Get:
      @@@disDef:
        @@@@ConstValue:\#fragment
      @@@InCase:
        @@@@Value:\#fragment
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:This node is a document fragment node. 

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Name:newObject
    @@ManakaiDOM:isStatic:1
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new instance object for <IF::SWCFGDocumentFragment>. 
    @@Return:
      @@@Type: NodeStem
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created node object.
      @@@PerlDef:
        @@@@@:
          $r = <ClassM::ManakaiSWCFGNode.newObject> ($self);
          $r->{<H::swcfg21:nodeType>} = '#fragment';
          $r->{<H::swcfg21:namespaceExpanded>} = true; ## Always t r u e
          $r->{<H::swcfg21:etExpanded>} = true; ## Always t r u e
        @@@@ImplNote:
          @@@@@lang:en
          @@@@@@:
            Required property: <Q::ownerDocument>, <Q::swcfg21:nodeType>. 
            \
            Optional properties: <Q::swcfg21:parent>, <Q::swcfg21:value>,
                  <Q::swcfg21:childNodes>, <Q::flag>, <Q::option>, <Q::swcfg21:shadowOwner>, 
                  <Q::swcfg21:shadowParent>, <Q::swcfg21:shadowSiblingOf>. 

  @mn:origin0: swcfg21|shadowOwner
  @mn:origin0: swcfg21|shadowParent
  @mn:origin0: swcfg21|shadowSiblingOf
##SWCFGDocumentFragment

PropDef:
  @QName: swcfg21|shadowParent

PropDef:
  @QName: swcfg21|shadowSiblingOf

PropDef:
  @QName: swcfg21|shadowLocalName

PropDef:
  @QName: swcfg21|shadowNamespaceURI

IFClsDef:
  @IFQName: SWCFGChildNodeList
  @ClsQName: ManakaiSWCFGChildNodeList

  @ClsISA: ManakaiNode|ManakaiNodeRef||ManakaiDOM|Perl
  @AppISA:
    @@ForCheck: ManakaiDOM|ForClass
    @@ContentType:
      lang:Perl
    @@@:
      Tie::Array

  @Description:
    @@lang:en
    @@@:
      A child node list of a node. 

  @Attr:
    @@Name:length
    @@Type: unsignedLong
    @@Operator:
      @@@@:FETCHSIZE
      @@@ContentType:
        lang:Perl
    @@Description:
      @@@lang:en
      @@@@:
        The number of child nodes, including those belong to shadow trees. 
    @@Get:
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        my $node = $self->{<H::mn:node>};
        $r = @{$node->{<H::swcfg21:childNodes>}};
        __CODE{expandETBinding:: $node => $node,
                                   $self => {$self->{nodeClass}}}__;
        if ($node->{<H::swcfg21:shadowContent>}) {
          $r += @{$node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:childNodes>}};
        }
        for my $c (@{$node->{<H::swcfg21:childNodes>}}) {
          __CODE{expandETBinding:: $node => $c,
                                   $self => {$self->{nodeClass}}}__;
          $r += @{$c->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}}
             if $c->{<H::swcfg21:shadowSibling>};
        }

  @Method:
    @@Name:item
    @@Description:
      @@@lang:en
      @@@@:
        Returns a child node. 
    @@Operator:
      @@@@:FETCH
      @@@ContentType:
        lang:Perl
    @@NewIn21:
    @@Param:
      @@@Name:index
      @@@Type: idl|long||ManakaiDOM|all
      @@@Description:
        @@@@lang:en
        @@@@@:
          The ordinal index of the node to retrieve, counting from zero. 
          A negative index identifies a node from the end of the list. 
    @@Return:
      @@@Type:SWCFGNode
      @@@Description:
        @@@@lang:en
        @@@@@:
          The <P::index>th child node in the list. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGNode
        @@@@Description:
          @@@@@lang:en
          @@@@@@: 
            There is no <P::index>th node in the list. 
      @@@UndeclaredPrefixException:
      @@@PerlDef:
        if ($index < 0) {
          $index = $self-><AG::SWCFGChildNodeList.length> + $index;
        }
        my $node = $self->{<H::mn:node>};
        $r = $node->{<H::swcfg21:childNodes>}->[$index];
        unless ($r) {
          $index -= @{$node->{<H::swcfg21:childNodes>}};
          __CODE{expandETBinding:: $node => $node,
                                   $self => {$self->{nodeClass}}}__;
          $r = $node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:childNodes>}->[$index]
            if $node->{<H::swcfg21:shadowContent>};
          unless ($r) {
            if ($node->{<H::swcfg21:shadowContent>}) {
              $index -= @{$node->{<H::swcfg21:shadowContent>}->{<H::swcfg21:childNodes>}};
            }
            for my $c (@{$node->{<H::swcfg21:childNodes>}}) {
              __CODE{expandETBinding:: $node => $c,
                                   $self => {$self->{nodeClass}}}__;
              if ($c->{<H::swcfg21:shadowSibling>}) {
                $r = $c->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}->[$index];
                last if $r;
                $index -= @{$c->{<H::swcfg21:shadowSibling>}->{<H::swcfg21:childNodes>}};
              }
            }
          }
        }
        $r = $self->{nodeClass}
                  -><M::ManakaiSWCFGNode.getNodeReference> ($r) if $r;

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Operator:
      @@@@:TIEARRAY
      @@@ContentType:
        lang:Perl
    @@ManakaiDOM:isStatic:1
    @@Description:
      @@@lang:en
      @@@@:
        Binds a node list to an array.  This method is intended to 
        be called by Perl <Perl::tie> function. 
    @@Param:
      @@@Name: nodeList
      @@@Type: SWCFGChildNodeList
      @@@Description:
        @@@@lang:en
        @@@@@:
          A node list that is tied with an array. 
    @@Return:
      @@@Type: SWCFGChildNodeList
      @@@Description:
        @@@@lang:en
        @@@@@:
          The node list to which the array has bound, 
          i.e. <P::nodeList>.
      @@@PerlDef:
        $r = $nodeList;

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Operator:
      @@@@:@{}
      @@@ContentType:
        lang:Perl
    @@Description:
      @@@lang:en
      @@@@:
        Returns an array representation of this node list. 
        \
        {NOTE:: It is intended that most operations through the 
                array is as like ones in DOM Level 0 JavaScript 
                implementations as possible. 
        \
        }
    @@Return:
      @@@Type: DISPerl|ARRAY||ManakaiDOM|all
      @@@PerlDef:
        tie my @list, ref $self, $self;
        $r = \@list;

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Operator:
      @@@@:DESTROY
      @@@ContentType:
        lang:Perl
    @@Description:
      @@@lang:en
      @@@@:
        Redefines destructor for the class
        <Class::ManakaiNode|ManakaiNodeRef||ManakaiDOM|Perl>, 
        since the <PerlModule::Tie::Array> also has its own empty destructor. 
    @@Return:
      @@@Def:
        @@@@ContentType:
          lang:dis
        @@@@DISPerl:cloneCode:
          ManakaiNode|ManakaiNodeRef||ManakaiDOM|Perl.destroy
##SWCFGChildNodeList

PropDef:
  @QName:childNodes
  @Description:
    @@lang:en
    @@@:
      Child nodes of a node. 
  @mn:stemName: swcn

PropDef:
  @QName:shadowContent
  @Description:
    @@lang:en
    @@@:
      Child nodes of a node, copied from the shadow master tree. 
  @mn:stemName: shadow

PropDef:
  @QName:shadowSibling
  @Description:
    @@lang:en
    @@@:
      Younger sibling nodes of a node, copied from the shadow master tree. 
  @mn:stemName: shadowsib

PropDef:
  @QName: shadowOwner
  @Description:
    @@lang:en
    @@@:
      The owner document of the master shadow tree.  This property is 
      redudant (always same, if any, as <Q::ownerDocument>) 
      but need to maintain the origin-subnode relationship. 
  @mn:stemName: shadowo

PropDef:
  @QName: ownerDocument
  @enDesc:
    The owner document node. 
  @mn:stemName: swod

PropDef:
  @QName:value
  @Description:
    @@lang:en
    @@@:
      The value of a node.  It is either a simple value, represented
      as a string, or a 
      list value, represented as an array reference.  If a node 
      does not has a value, its value is <DOM::null>. 
  @mn:stemName: swval

PropDef:
  @QName:namespaceURI
  @Type:SWCFGString
  @Description:
    @@lang:en
    @@@:
      The namespace URI of an element node.  
  @InCase:
    @@Value:
      @@@is-null:1
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The node has no namespace (or has <QUOTE::<DOM::null> namespace>. 
  @mn:stemName: swns

PropDef:
  @QName:localName
  @Description:
    @@lang:en
    @@@:
      The local name of an element node. 
  @mn:stemName: swln

PropDef:
  @QName:namespaceExpanded
  @Description:
    @@lang:en
    @@@:
      Whether the namespace URI has expanded or not. 
  @Type: boolean
  @mn:stemName: nsx

PropDef:
  @QName: etExpanded
  @Description:
    @@lang:en
    @@@:
      Whether the element type binding has been expanded or not.
  @Type: boolean
  @mn:stemName: etx

PropDef:
  @QName:nsBinding
  @Description:
    @@lang:en
    @@@:
      Namespace prefix and URI bindings. 
  @mn:stemName: swnsb

PropDef:
  @QName:etBinding
  @Description:
    @@lang:en
    @@@:
      Element type bindings. 
  @mn:stemName: swetb

ResourceDef:
  @QName: RealName
  @rdf:type:
    rdfs:Class
  @Description:
    @@lang:en
    @@@:
      The special-purpose namespace to which qualified names 
      unparsed because of element type bindings belong. 
  @For:
    =ManakaiDOM:all

PropDef:
  @QName:isShadowMaster
  @Description:
    @@lang:en
    @@@:
      Whether a document fragment node is the root node of a 
      shadow master tree or not. 
  @Type: boolean
  @rdfs:range: SWCFGDocumentFragment
  @mn:stemName: shadowmaster

PropDef:
  @QName:defaultETNamespaceURI
  @Description:
    @@lang:en
    @@@:
      Default namespace URI for element type. 
  @Type: SWCFGString

PropDef:
  @QName:flag
  @Type: DISPerl|HASH||ManakaiDOM|all
  @Description:
    @@lang:en
    @@@:
      Flags associated with the node. 
  @mn:stemName: swflag

PropDef:
  @QName:option
  @Type: DISPerl|HASH||ManakaiDOM|all
  @Description:
    @@lang:en
    @@@:
      Node-wide options set to the node. 
  #@Type:c

PropDef:
  @QName:nodeType
  @Type:SWCFGString
  @Description:
    @@lang:en
    @@@:
      The node type. 
  @mn:stemName: swnt

## -- Exceptions

ResourceDef:
  @rdf:type:
    @@@: dis|MultipleResource
    @@ForCheck: !ManakaiDOM|ForIF !ManakaiDOM|ForClass
  @resourceFor: ManakaiDOM|ForIF
  @resourceFor:
    @@@: ManakaiDOM|ForClass
    @@ForCheck: ForEmpty !=ForEmpty
  @For: ForLatest
  @For: =ForEmpty

  @rdf:type:
    @@@: dx|Interface
    @@ForCheck: ManakaiDOM|ForIF

  @rdf:type:
    @@@: dx|Class
    @@ForCheck: ManakaiDOM|ForClass

  @Implement:
    @@@: ||ForEmpty||ManakaiDOM|ForIF
    @@ContentType: DISCore|TFPQNames
    @@ForCheck: ManakaiDOM|ForClass ForEmpty
  @Implement:
    @@@: ||ForLatest||ManakaiDOM|ForIF
    @@ContentType: DISCore|TFPQNames
    @@ForCheck: ManakaiDOM|ForClass ForLatest
  @dx:implementedBy: ||swcfg21|ForLatest||ManakaiDOM|ForClass

  @f:implements:
    @@@: CoreFeature21
    @@For: ForLatest

  @ISA:
    @@@: dx|Exception||ManakaiDOM|Perl
    @@ForCheck: ManakaiDOM|ForClass

  @IFQName: SWCFGException
  @ClsQName: ManakaiSWCFGException

  @Description:
    @@lang:en
    @@@:
      Exceptions raised if an attempt to make a bad operation has made. 

  @ResourceDef:
    @@rdf:type: DISLang|ConstGroup
    @@ForCheck: ManakaiDOM|ForIF !=ForEmpty

    @@IFQName: SWCFGExceptionCode

    @@rdfs:subClassOf: idl|unsignedShort||ManakaiDOM|all
    @@Type:idl|unsignedShort||ManakaiDOM|all

    @@XConst:
      @@@Name:HIERARCHY_REQUEST_ERR
      @@@Value:
        @@@@@:3
        @@@@ContentType: DISCore|Integer
      @@@Description:
        @@@@lang:en
        @@@@@: 
          An attempt is made to insert a node somewhere it does not belong. 
      @@@XSubTypeDef:
        @@@@QName:HIERARCHY_ANCESTOR_OR_SELF_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to insert an ancestor of this node or 
            this node itself. 
      @@@XSubTypeDef:
        @@@@QName:HIERARCHY_BAD_TYPE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to insert a comment node into non-document 
            node or a document or document fragment node somwehre or 
            any node into comment node. 
        @@@@enMufDef:
          An attempt is made to insert a node %p (
          name => {<Q::swcfg21:childNodeType>}, prefix => { of type });
          into the node %p (name => {<Q::swcfg21:parentNodeType>},
          prefix => {of type });, which is not allowed
        @@@@XParam:
          @@@@@QName: parentNodeType
          @@@@@Description:
            @@@@@@lang:en
            @@@@@@@:
              The type of the node into which an attempt is made to
              insert another node. 
        @@@@XParam:
          @@@@@QName: childNodeType
          @@@@@Description:
            @@@@@@lang:en
            @@@@@@@:
              The type of the node that an attempt is made to
              insert into another node.
      @@@XSubTypeDef:
        @@@@QName: HIERARCHY_NO_VALUE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to set a node value for a document node. 
        @@@@enMufDef:
          An attempt is made to set a node value for a 
          %p (name => {<Q::swcfg21:parentNodeType>}); node
        @@@@XParam:
          @@@@@QName: parentNodeType
          @@@@@Description:
            @@@@@@lang:en
            @@@@@@@:
              The type of the node to which the value is attempted to set. 
    @@XConst:
      @@@Name:WRONG_DOCUMENT_ERR
      @@@Value:
        @@@@@:4
        @@@@ContentType: DISCore|Integer
      @@@Description:
        @@@@lang:en
        @@@@@:
          A node is used in a different document than the one for which 
          it is created. 
      @@@XSubTypeDef:
        @@@@QName:EXTERNAL_NODE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            An attempt is made to insert a foreign node. 
        @@@@enMufDef:
          An attempt is made to append a node created for another document
    @@XConst:
      @@@Name:TYPE_MISMATCH_ERR
      @@@Value:
        @@@@@:17
        @@@@ContentType: DISCore|Integer
      @@@Description:
        @@@@lang:en
        @@@@@: 
          The type of an object is incompatible with the type of 
          the parameter. 
      @@@XSubTypeDef:
        @@@@QName:BAD_VALUE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The type of an object is not a string nor a list (array reference). 
        @@@@enMufDef:
          A value%p (name => {<Q::swcfg21:actualType>}, prefix => { of type }); is 
          specified where only either string or array reference is allowed
        @@@@XParam:
          @@@@@QName:actualType
          @@@@@Description:
            @@@@@@lang:en
            @@@@@@@:
              The type of the object specified. 
      @@@XSubTypeDef:
        @@@@QName:NOT_NODE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The type of an object is not <IF::SWCFGNode>. 
        @@@@XParam:
          @@@@@QName:actualType
          @@@@@Description:
            @@@@@@lang:en
            @@@@@@@:
              The type of the object specified. 
       @@@XSubTypeDef:
         @@@@QName:APPEND_NULL_TEXT_ERR
         @@@@Description:
           @@@@@lang:en
           @@@@@@:
             An attempt is made to append a <DOM::null> value. 
    @@XConst:
      @@@Name: NOT_SUPPORTED_ERR
      @@@Value:
        @@@@@: 9
        @@@@ContentType: DISCore|Integer
      @@@XSubTypeDef:
        @@@@QName:SWCFG_VERSION_NOT_SUPPORTED_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The implementation does not support the specified version 
            of SuikaWikiConfig. 
        @@@@XParam:
          @@@@@QName:version
          @@@@@Description:
            @@@@@@lang:en
            @@@@@@@:
              The version of SuikaWikiConfig that the implementation 
              does not support. 
    @@XConst:
      @@@Name: NAMESPACE_ERR
      @@@Value:
        @@@@@:14
        @@@@ContentType: DISCore|Integer
      @@@Description:
        @@@@lang:en
        @@@@@:
          An error related to namespaces has occurred. 
      @@@XSubTypeDef:
        @@@@QName: 
          DIS:UNDECLARED_NS_PREFIX_ERR
        @@@@enDesc:
          The implementation has encounted an undeclared namespace 
          prefix. 
        @@@@XParam:
          @@@@@QName: 
            infoset:prefix
          @@@@@enDesc:
            The namespace prefix. 
        @@@@XSourceNodeParam:
        @@@@enMufDef:
          Namespace prefix "%p (name => {<Q::infoset:prefix>});" is 
          not declared
    @@XConst:
      @@@Name:PARSE_ERR
      @@@Value:
        @@@@@:81
        @@@@ContentType: DISCore|Integer
      @@@XSubTypeDef:
        @@@@QName:SWCFG_PARSE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The implementation is unable to read and parse the 
            SuikaWikiConfig document. 

  @Attr:
    @@Name: text
    @@enDesc:
      The description of the error, in <LANG::i-default> language.
    @@enImplNote:
      See <A::dx|Exception.text> for super definition.
    @@Type: DISLang|String
    @@Get:
      @@@PerlDef:
        __DEEP{
          $r = $self->SUPER::text;
          if (defined $self->{<H::DIS:sourceNode>}) {
            $r = 'Node ' . $self->{<H::DIS:sourceNode>}-><M::SWCFGNode.nodePath>
                            . ': ' . $r;
          }
        }__;
##SWCFGException

ElementTypeBinding:
  @Name: enDesc
  @ElementType:
    dis:Description
  @ShadowContent:
    @@lang:en

ElementTypeBinding:
  @Name: enImplNote
  @ElementType:
    dis:ImplNote
  @ShadowContent:
    @@lang:en

ElementTypeBinding:
  @Name: XSourceNodeParam
  @ElementType:
    ecore:hasParameter
  @ShadowContent:
    @@QName: 
      DIS:sourceNode
    @@Description:
      @@@lang:en
      @@@@:
        The node in which an error has occurred. 

XParamDef:
  @QName: 
    DIS:sourceNode
  @Description:
    @@lang:en
    @@@:
      The node in which an error has occurred. 
  @Type: ManakaiSWCFGNode

XPropDef:
  @QName: parentNodeType
  @Description:
    @@lang:en
    @@@:
      The type of the node that an attempt is made to
      insert into another node.

XPropDef:
  @QName: childNodeType
  @Description:
    @@lang:en
    @@@:
      The type of the node into which an attempt is made to
      insert another node.

XPropDef:
  @QName:actualType
  @Description:
    @@lang:en
    @@@:
      The type of the actually specified value. 
  @dataType:
    DISCore:String

XPropDef:
  @QName: version
  @Type: SWCFGString
  @Description:
    @@lang:en
    @@@:
      The version of the SuikaWikiConfig format.  Currently there is 
      version <CODE::2.0> and <CODE::2.1> defined. 

## -- Datatypes

ResourceDef:
  @QName: SWCFGString
  @AliasFor: DISPerl|String||ManakaiDOM|all
  @For: swcfg21|ForEmpty

ResourceDef:
  @QName: boolean
  @AliasFor: idl|boolean||ManakaiDOM|all
  @For: swcfg21|ForEmpty

ResourceDef:
  @QName: any
  @AliasFor: idl|any||ManakaiDOM|all
  @For: swcfg21|ForEmpty

ResourceDef:
  @QName: unsignedLong
  @AliasFor: idl|unsignedLong||ManakaiDOM|all
  @For: swcfg21|ForEmpty

ElementTypeBinding:
  @Name: plCName
  @ElementType:
    DISPerl:exportTagName
  @ShadowContent:
    @@For: ManakaiDOM|Perl

## -- Load

IFClsDef:
  @IFQName: SWCFGParser
  @ClsQName: ManakaiSWCFGParser

  @ClsISA: DOMException|ManakaiDefaultExceptionHandler||ManakaiDOM|Perl

  @DISLang:role: DOMLS|ParserRole

  @Description:
    @@lang:en
    @@@:
      This interface provides methods to load SuikaWikiConfig documents. 
  
  @Method:
    @@Name: parse
    @@Description:
      @@@lang:en
      @@@@:
        Parses a SuikaWikiConfig document from a resource. 
    @@Param:
      @@@Name:input
      @@@Type: DISPerl|HASH||ManakaiDOM|all
      @@@Description:
        @@@@lang:en
        @@@@@:
          The <IF::DOMLS:LSInput> from which the source of the document 
          is to be read. 
    @@Return:
      @@@Type:SWCFGDocument
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created SuikaWikiConfig document node. 
      @@@RaiseException:
        @@@@@:SWCFG_PARSE_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <IF::SWCFGParser> was unable to load the SuikaWikiConfig 
            document. 
      @@@PerlDef:
           my $text;
           ## 1. characterStream
           if (defined (my $cs = $input->{character_stream})) {
             local $/ = undef;
             $text = \ (readline $cs);
           }
           ## 3. stringData
           elsif (defined (my $sd = $input->{string_data})) {
             $text = $sd;
           } else {
             ## TODO: no-input-specified DOM error
             __EXCEPTION{SWCFG_PARSE_ERR::
               MDOMX:param-name => 'input',
             }__;
           }
           
           my $root = $self->{<H::f|implementation>}
                           -><M::SWCFGImplementation.createSWCFGDocument>;

           ## TODO: Make configurable
           my $no_magic_line = false;
           my $no_namespace = false;
           my $no_preserve_wsp = false;
           my $no_binding = false;
           
           ## Magic line
           if (not $no_magic_line and
               $$text =~ s[^\#\?SuikaWikiConfig/(\d+\.\d+)\x0D?\x0A][]s) {
             my $version = $1;
             if ($version eq '2.1') {
               # 
             } elsif ($version eq '2.0') {
               $no_namespace = true;
               $no_preserve_wsp = true;
               $no_binding = true;
             } else {
               ## TODO: Version unsupported DOM error
               __EXCEPTION{SWCFG_PARSE_ERR::
                 MDOMX:param-name => 'input',
               }__;
             }
           }

           my $current = $root;
           my $current_element = $root;
           my $is_new_element = 0;
           my $is_list_element = 0;
           my $wsp_length = 0;
           my $vfragment = '';
           for my $line (split /\x0D?\x0A/, $$text) {
             if ($line =~ /^([^#\s].*):\s*([^\s:][^:]*)?$/) {
               my ($name, $val) = ($1, $2);
               substr ($name, 0, 1) = '' if defined $name and 
                                            substr ($name, 0, 1) eq '\\';
               substr ($val, 0, 1) = '' if defined $val and
                                           substr ($val, 0, 1) eq '\\';
              if (substr ($name, -6) eq '[list]') {
                substr ($name, -6) = '';
                $val = length ($val) ? [$val] : [];
                $is_list_element = 1;
              } else {
                $is_list_element = 0;
              }
              $current_element = $root-><M::SWCFGNode.appendNewNode>
                                            (type => '#element',
                                             local_name => $name,
                                             value => $val);
              $current_element->{<H::mn:node>}
                              ->{<H::swcfg21:namespaceExpanded>} = false
                unless $no_namespace;
              $current_element->{<H::mn:node>}
                              ->{<H::swcfg21:etExpanded>} = false
                unless $no_binding;
              if (defined $2) {  ## Foo: bar
                $current = $root;
                $current_element = $root;
              } else {           ## Foo:\n  bar\n  baz
                $current = $current_element;
                $is_new_element = 1;
              }
            } elsif ($line =~ /^\s+(\@+)(.*):\s*([^\s:][^:]*)?$/) {
              my ($nest, $name, $val) = (length $1, $2, $3);
              substr ($name, 0, 1) = '' if defined $name and 
                                           substr ($name, 0, 1) eq '\\';
              substr ($val, 0, 1) = '' if defined $val and
                                          substr ($val, 0, 1) eq '\\';
              if (substr ($name, -6) eq '[list]') {
                substr ($name, -6) = '';
                $val = (defined ($val) and length ($val)) ? [$val] : [];
                $is_list_element = 1;
              } else {
                $is_list_element = 0;
              }
              my $ce;
              if (length ($name)) {
                while ($current_element-><M::SWCFGNode.flag>
                                                   ('p__nest_level' => null,
                                                    default => 0) >= $nest) {
                  $current_element
                       = $current_element-><AG::SWCFGNode.parentNode>;
                }
                $ce = $current_element-><M::SWCFGNode.appendNewNode>
                                           (type => '#element',
                                            local_name => $name,
                                            value => $val);
                $ce->{<H::mn:node>}
                              ->{<H::swcfg21:namespaceExpanded>} = false
                  unless $no_namespace;
                $ce->{<H::mn:node>}
                              ->{<H::swcfg21:etExpanded>} = false
                  unless $no_binding;
                $ce-><M::SWCFGNode.flag> ('p__nest_level'
                      => $current_element-><M::SWCFGNode.flag>
                                             ('p__nest_level' => null,
                                              default => 0) + 1);
                unless (defined $3) {  ##  @foo: \nbar
                  $current_element = $ce;
                  $current = $ce;
                  $is_new_element = 1;
                }
              } else {  ## @@:
                while ($current_element-><M::SWCFGNode.flag>
                                           ('p__nest_level' => null,
                                            default => 0) >= $nest - 1) {
                  $current_element
                            = $current_element-><AG::SWCFGNode.parentNode>;
                }
                if (defined $val) {
                  if (defined $current_element->{<H::mn:node>}
                                              ->{<H::swcfg21:value>}) {
                    if (ref $current_element->{<H::mn:node>}->{<H::swcfg21:value>}
                          eq 'ARRAY') {
                      push @{$current_element->{<H::mn:node>}
                                             ->{<H::swcfg21:value>}}, $val;
                    } else {
                      $current_element->{<H::mn:node>}
                                             ->{<H::swcfg21:value>} .= $val;
                    }
                  } else {
                    $current_element->{<H::mn:node>}->{<H::swcfg21:value>} = $val;
                  }
                }
                $current = $current_element;
                unless (defined $3) {  ##  @@: \nbar
                  $is_new_element = 1;
                }
              }
            } elsif ($line =~ /^(\s+)(\S.*)$/) {
              my ($wsp, $val) = ($1, $2);
              if (substr ($val, 0, 1) eq '#' and
                  not $is_new_element and
                  length $wsp < $wsp_length) {  ## Not part of element
                $current = $root-><M::SWCFGNode.appendNewNode>
                                         (type => '#comment',
                                          value => substr ($val, 1));
              } else {
                if (substr ($val, 0, 1) eq '\\') {
                  substr ($val, 0, 1) = '';
                  $wsp = '';
                }
                if ($is_new_element or $is_list_element) {
                  $wsp_length = length $wsp;
                    if (defined $current_element->{<H::mn:node>}
                                                ->{<H::swcfg21:value>}) {
                      if (ref $current_element->{<H::mn:node>}
                                              ->{<H::swcfg21:value>} eq 'ARRAY') {
                        push @{$current_element->{<H::mn:node>}
                                               ->{<H::swcfg21:value>}}, $val;
                      } else {
                        $current_element->{<H::mn:node>}
                                               ->{<H::swcfg21:value>} .= $val;
                      }
                    } else {
                      $current_element->{<H::mn:node>}
                                      ->{<H::swcfg21:value>} = $val;
                    }
                  $is_new_element = 0;
                  $vfragment = '';
                } else {
                  $wsp = $no_preserve_wsp ? '' : substr ($wsp, $wsp_length);
                  $val = $vfragment . "\x0A" . $wsp . $val;
                    if (defined $current_element->{<H::mn:node>}
                                                ->{<H::swcfg21:value>}) {
                      if (ref $current_element->{<H::mn:node>}
                                              ->{<H::swcfg21:value>} eq 'ARRAY') {
                        push @{$current_element->{<H::mn:node>}
                                               ->{<H::swcfg21:value>}}, $val;
                      } else {
                        $current_element->{<H::mn:node>}
                                             ->{<H::swcfg21:value>} .= $val;
                      }
                    } else {
                      $current_element->{<H::mn:node>}
                                             ->{<H::swcfg21:value>} = $val;
                    }
                  $vfragment = '';
                }
              }
            } elsif ($line =~ /^(\s*)$/) {
              $vfragment .= "\x0A" . substr ($1, $wsp_length)
                   unless $no_preserve_wsp;
              $current = $root
                   if $current-><AG::SWCFGNode.nodeType> eq '#comment';
            } else { $line =~ /^\#?(.*)$/;
            #} elsif ($line =~ /^\#(.*)$/) {
              my ($v) = ($1);
              if ($current-><AG::SWCFGNode.nodeType> eq '#comment') {
                $current-><M::SWCFGNode.appendText> ("\x0A" . $v);
              } else {
                $current = $root-><M::SWCFGNode.appendNewNode>
                                         (type => '#comment', value => $v);
              }
            #} else {
            #  $current = $root;
            #  #print STDERR qq(**$line**\n); 
            }
          }
          unless ($no_namespace and $no_binding) {
            my @remove;
            for my $i (0..$#{$root->{<H::mn:node>}->{<H::swcfg21:childNodes>}}) {
              my $n = $root->{<H::mn:node>}->{<H::swcfg21:childNodes>}->[$i];
              next unless $n->{<H::swcfg21:nodeType>} eq '#element';
              if (not $no_namespace and $n->{<H::swcfg21:localName>} eq 'Namespace') {
                for my $cn (@{$n->{<H::swcfg21:childNodes>}}) {
                  next unless $cn->{<H::swcfg21:nodeType>} eq '#element';
                  if ($cn->{<H::swcfg21:value>}) {
                    $root->{<H::mn:node>}->{<H::swcfg21:nsBinding>}
                         ->{$cn->{<H::swcfg21:localName>}} = $cn->{<H::swcfg21:value>};
                  } else {
                    ISNULL: {
                      for my $in (@{$cn->{<H::swcfg21:childNodes>}}) {
                        if ($in->{<H::swcfg21:nodeType>} eq '#element' and
                            $in->{<H::swcfg21:localName>} eq 'is-null' and
                            $in->{<H::swcfg21:value>}) {
                          $root->{<H::mn:node>}->{<H::swcfg21:nsBinding>}
                               ->{$cn->{<H::swcfg21:localName>}} = undef;
                          last ISNULL;
                        }
                      }
                      $root->{<H::mn:node>}->{<H::swcfg21:nsBinding>}
                           ->{$cn->{<H::swcfg21:localName>}} = $cn->{<H::swcfg21:value>};
                    } # ISNULL
                  }
                }
                ## TODO: DOM error if unknown node
                push @remove, $i;
                CORE::delete $n->{<H::swcfg21:parent>};
                $n-><M::NodeStem.orphanate>;
              } elsif (not $no_binding and
                       $n->{<H::swcfg21:localName>} eq 'ElementTypeBinding') {
                my ($et, $sn, $sc, $ss) = ('', '');
                my @etr;
                CN: for my $cn (@{$n->{<H::swcfg21:childNodes>}}) {
                  unless ($cn->{<H::swcfg21:nodeType>} eq '#element') {
                    push @etr, $cn;
                    next CN;
                  }
                  if ($cn->{<H::swcfg21:localName>} eq 'Name') {
                    $et = $cn->{<H::swcfg21:value>} if defined $cn->{<H::swcfg21:value>};
                    push @etr, $cn;
                  } elsif ($cn->{<H::swcfg21:localName>} eq 'ElementType') {
                    $sn = $cn->{<H::swcfg21:value>} if defined $cn->{<H::swcfg21:value>};
                    push @etr, $cn;
                  } elsif ($cn->{<H::swcfg21:localName>} eq 'ShadowContent') {
                    $sc = $cn;
                    $sc->{<H::swcfg21:nodeType>} = '#fragment';
                    $sc->{<H::swcfg21:parent>} = null;
                    $sc->{<H::swcfg21:isShadowMaster>} = true;
                    $sc->{<H::swcfg21:shadowOwner>} = $root->{<H::mn:node>};
                    $sc->{<H::swcfg21:namespaceExpanded>} = true;
                    $sc->{<H::swcfg21:etExpanded>} = true;
                    $sc->{<H::mn:type>}
                      = <ClassName::ManakaiSWCFGDocumentFragment>;
                  } elsif ($cn->{<H::swcfg21:localName>} eq 'ShadowSibling') {
                    $ss = $cn;
                    $ss->{<H::swcfg21:nodeType>} = '#fragment';
                    $ss->{<H::swcfg21:parent>} = null;
                    $ss->{<H::swcfg21:isShadowMaster>} = true;
                    $ss->{<H::swcfg21:shadowOwner>} = $root->{<H::mn:node>};
                    $ss->{<H::swcfg21:namespaceExpanded>} = true;
                    $ss->{<H::swcfg21:etExpanded>} = true;
                    $ss->{<H::mn:type>}
                      = <ClassName::ManakaiSWCFGDocumentFragment>;
                  } else {
                    push @etr, $cn;
                  }
                }
                $n->{<H::swcfg21:childNodes>} = [];
                for (@etr) {
                  CORE::delete $_->{<H::swcfg21:parent>};
                  $_-><M::NodeStem.orphanate>;
                }
                unless (defined $root->{<H::mn:node>}
                                     ->{<H::swcfg21:etBinding>}->{$et}) {
                  $root->{<H::mn:node>}
                       ->{<H::swcfg21:etBinding>}->{$et} = {
                    elementType => $et,
                    shadowLocalName => $sn,
                    namespaceExpanded => false,
                    shadowContent => $sc,
                    shadowSibling => $ss,
                  };
                }
                ## TODO: DOM error if unknown node
                push @remove, $i;
                CORE::delete $n->{<H::swcfg21:parent>};
                $n-><M::NodeStem.orphanate>;
              }
            } # $i
            for my $i (reverse @remove) {
              splice @{$root->{<H::mn:node>}->{<H::swcfg21:childNodes>}},
                     $i, 1, ();
            }
          }
          $r = $root;

  @IntMethod:
    @@ForCheck: ManakaiDOM|ForClass
    @@Operator: 
      @@@@: DISPerl|NewMethod
      @@@ContentType: DISCore|QName
    @@ForCheck: ManakaiDOM|ForClass
    @@enDesc:
      Creates a new instance of the <IF::SWCFGParser> interface
      and returns it.

      {NOTE:: This method is compatible with the role <Q::DOMLS:ParserRole>
              so that this class is accessible via the
              <M::DOMLS|DOMImplementationLSExtended.createMLSParser>
              method.
      }
    @@Param:
      @@@Name: impl
      @@@Type: f|MinimumImplementation||ManakaiDOM|ManakaiDOMLatest
      @@@enDesc:
        An implementation object.  The <M::f|GetFeature.getFeature>
        method with parameter values <Feature::swcfg21|Core> and
        <FeatureVer::2.1> respectively <kwd:MUST> return
        an object implementing the <IF::SWCFGImplementation> interface.
    @@Param:
      @@@Name: features
      @@@Type: SWCFGString
      @@@dis:actualType: f|FeaturesString||ManakaiDOM|ManakaiDOMLatest
      @@@enDesc:
        A list of requested features.  In the current implementation
        this parameter is ignored.
    @@Return:
      @@@Type: idl|Object||ManakaiDOM|all
      @@@actualType: ManakaiSWCFGParser
      @@@enDesc: The newly created parser object.
      @@@PerlDef:
        $r = bless {<H::f|implementation> =>
                       $impl-><M::f|GetFeature
                                ||ManakaiDOM|ManakaiDOMLatest.getFeature>
                          (<Q::swcfg21:Core> => '2.1')},
                   $self;
##SWCFGParser

PropDef:
  @QName: parent
  @enDesc:
    The parent node object of this node. 
  @mn:stemName: p

## -- Bootstraps

IFClsDef:
  @IFQName: SWCFGImplementation
  @ClsQName: ManakaiSWCFGImplementation

  @ClsISA: f|ManakaiMinimumImplementation||ManakaiDOM|ManakaiDOMLatest

  @f:provides: CoreFeature21

  @Description:
    @@lang:en
    @@@:
      This interface allows applications to retrieve an instance of 
      <IF::SWCFGParser>. 
  @ImplNote:
    @@lang:en
    @@@:
      This interface should be implemented on the same object that 
      implements <IF::DOMImplementation>. 
    @@ForCheck: ManakaiDOM|ForIF

  # recognizedVersions : StringList
  
  @Method:
    @@Name: createSWCFGDocument
    @@Description:
      @@@lang:en
      @@@@:
        Creates an empty <IF::SWCFGDocument> object. 
    @@NewIn21:
    @@Param:
      @@@Name:version
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          The version of the SuikaWikiConfig format.  Currently 
          only the version <CODE::2.1> is supported. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The latest version of the SuikaWikiConfig that the implementation 
            supports is selected. 
    @@Return:
      @@@Type:SWCFGDocument
      @@@actualType:ManakaiSWCFGDocument
      @@@Description:
        @@@@lang:en
        @@@@@:The newly created SuikaWikiConfig document object.
      @@@RaiseException:
        @@@@@:SWCFG_VERSION_NOT_SUPPORTED_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The <P::version> is not supported. 
      @@@PerlDef:
        if (defined $version and $version ne '2.1') {
          __EXCEPTION{SWCFG_VERSION_NOT_SUPPORTED_ERR::
            swcfg21:version => {$version},
          }__;
        }
        $r = <ClassM::ManakaiSWCFGDocument.newObject>;
        $r->{<H::f|implementation>} = $self;
        $r->{<H::swcfg21:version>} = $version || '2.1';
        $r = <ClassM::ManakaiSWCFGNode.getNodeReference> ($r);
    
  @Method:
    @@Name: createSWCFGParser
    @@Description:
      @@@lang:en
      @@@@:
        Creates a new <IF::SWCFGParser>. 
    @@NewIn21:
    @@Param:
      @@@Name:versions
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@:
          Future version of this implementation will allow 
          a list containing the versions of SuikaWikiConfig documents 
          that can be loaded by the <IF::SWCFGParser> created. 
      @@@InCase:
        @@@@Value:
          @@@@@is-null:1
        @@@@Type:SWCFGString
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            Permits SuikaWikiConfig documents of any recognized 
            version to be loaded by the <IF::SWCFGParser>. 
    @@Return:
      @@@Type: SWCFGParser
      @@@Description:
        @@@@lang:en
        @@@@@:
          The newly created <IF::SWCFGParser>. 
      @@@RaiseException:
        @@@@@: SWCFG_VERSION_NOT_SUPPORTED_ERR
        @@@@Description:
          @@@@@lang:en
          @@@@@@:
            The implementation does not support one of the specified 
            version. 
      @@@PerlDef:
        ## TODO: Support $versions
        if (defined $versions) {
          __EXCEPTION{SWCFG_VERSION_NOT_SUPPORTED_ERR}__;
        }
        $r = <ClassName::ManakaiSWCFGParser>->new ($self);

ResourceDef:
  @QName: NodeStem
  @AliasFor: ManakaiNode|NodeStem||ManakaiDOM|Perl

ResourceDef:
  @QName: NodeRef
  @AliasFor: ManakaiNode|NodeRef||ManakaiDOM|Perl

## -- Syntax sugar

ElementTypeBinding:
  @Name: PropDef
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      rdf:Property
    @@AliasFor:
      @@@@:
        ::ManakaiDOM:all
      @@@For:
        !=ManakaiDOM:all

ElementTypeBinding:
  @Name: IFQName
  @ElementType:
    dis:QName
  @ShadowContent:
    @@ForCheck: ManakaiDOM|ForIF

ElementTypeBinding:
  @Name: ClsQName
  @ElementType:
    dis:QName
  @ShadowContent:
    @@ForCheck: ManakaiDOM|ForClass

ElementTypeBinding:
  @Name: IFISA
  @ElementType:
    dis:ISA
  @ShadowContent:
    @@ForCheck: ManakaiDOM|ForIF

ElementTypeBinding:
  @Name: ClsISA
  @ElementType:
    dis:ISA
  @ShadowContent:
    @@ForCheck: ManakaiDOM|ForClass

ElementTypeBinding:
  @Name: Method
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:Method
    @@For: !=ForEmpty

ElementTypeBinding:
  @Name: IntMethod
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:Method
    @@ManakaiDOM:isForInternal:1
    @@ForCheck: ManakaiDOM|ForClass

ElementTypeBinding:
  @Name: RedefMethod
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:Method
    @@ManakaiDOM:isRedefining:1
    @@ForCheck: ManakaiDOM|ForClass

ElementTypeBinding:
  @Name: Return
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodReturn

ElementTypeBinding:
  @Name: Param
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter

ElementTypeBinding:
  @Name: NamedParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1

ElementTypeBinding:
  @Name: MakeNewNodeParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:makeNewNode
    @@Type: boolean
    @@Description:
      @@@lang:en
      @@@@:
        Whether a new node should be made when one is not found. 
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:
        @@@@@:1
        @@@@ContentType: DISCore|Boolean
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@: A new node is created when no such node found. 
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:
        @@@@@:0
        @@@@ContentType: DISCore|Boolean
      @@@Type: boolean
      @@@Description:
        @@@@lang:en
        @@@@@: A new node is not created even when no such node found. 

ElementTypeBinding:
  @Name: DefaultParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:default
    @@Type: any
    @@Description:
      @@@lang:en
      @@@@:
        Default value that is returned when no explicit value specification 
        found. 
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Type: any
      @@@Value:
        @@@@is-null:1
      @@@Description:
        @@@@lang:en
        @@@@@: No default value. 

ElementTypeBinding:
  @Name: DefaultListParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:defaultList
    @@Type: any
    @@Description:
      @@@lang:en
      @@@@:
        Default list value that is returned when the value is of list 
        but there is <EM::zero> item found.  The <P::defaultList> value 
        should be an array reference for consistency. 
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:
        @@@@is-null:1
      @@@Type: any
      @@@Description:
        @@@@lang:en
        @@@@@: No default list value. 

ElementTypeBinding:
  @Name: TypeParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:type
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        Type of the node to create.  This parameter is <EM::required>. 
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:\#comment
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:Comment node.
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:\#document
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:Document node.
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:\#element
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:Element node.
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:\#fragment
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:Document fragment node.

ElementTypeBinding:
  @Name: LocalNameParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:localName
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The local name of the node to create.  This parameter is 
        <EM::required> when the node <P::type> is set to <CODE::#element>. 

ElementTypeBinding:
  @Name: NSURIParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:namespaceURI
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The namespace URI of the node to create.  This parameter should 
        be specified if and only if the node <P::type> is <CODE::#element>. 

ElementTypeBinding:
  @Name: ValueParam
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:MethodParameter
    @@DISPerl:isNamedParameter:1
    @@Name:value
    @@Type:SWCFGString
    @@Description:
      @@@lang:en
      @@@@:
        The value of the node to create.  This parameter should 
        only be specified for the node of <P::type> <CODE::#element> 
        or <CODE::#comment>. 
    @@ResourceDef:
      @@@rdf:type:
        ManakaiDOM:InCase
      @@@Value:
        @@@@is-null:1
      @@@Type:SWCFGString
      @@@Description:
        @@@@lang:en
        @@@@@:
          If the <P::type> is set to <CODE::#comment>, a <DOM::null> 
          value is equivalent to an empty string.  Otherwise, 
          the node created has no value. 

ElementTypeBinding:
  @Name: actualType
  @ElementType:
    dis:actualType
  @ShadowContent:
    @@ForCheck: ManakaiDOM|ForClass

ElementTypeBinding:
  @Name: Attr
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:Attribute
    @@For: !=ForEmpty

ElementTypeBinding:
  @Name: RedefAttr
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:Attribute
    @@ManakaiDOM:isRedefining:1
    @@ForCheck: ManakaiDOM|ForClass

ElementTypeBinding:
  @Name: Get
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:AttributeGet

ElementTypeBinding:
  @Name: Set
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      DISLang:AttributeSet

ElementTypeBinding:
  @Name: InCase
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type:
      ManakaiDOM:InCase

ElementTypeBinding:
  @Name: disDef
  @ElementType:
    dis:Def
  @ShadowContent:
    @@ContentType:
      lang:dis

ElementTypeBinding:
  @Name: PerlDef
  @ElementType:
    dis:Def
  @ShadowContent:
    @@ContentType:
      lang:Perl

ElementTypeBinding:
  @Name: NSVariant
  @ElementType:
    swcfg21:namespaceAwareVariant
  @ShadowSibling:
    @@DISCore:isDeprecated:1

ElementTypeBinding:
  @Name: NonNSVariant
  @ElementType:
    swcfg21:namespaceUnawareVariant

ElementTypeBinding:
  @Name: NewIn21
  @ElementType:
    dis:Description
  @ShadowContent:
    @@lang:en
    @@@:
        {NOTE:: Introduced in SuikaWikiConfig/2.1 object model. 
        \
        }

ElementTypeBinding:
  @Name: ModIn21
  @ElementType:
    dis:Description
  @ShadowContent:
    @@lang:en
    @@@:
        {NOTE:: Modified in SuikaWikiConfig/2.1 object model. 
        \
        }

ElementTypeBinding:
  @Name: RaiseException
  @ElementType:
    dx:raises

ElementTypeBinding:
  @Name: XConst
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type: dx|ErrorCode

ElementTypeBinding:
  @Name: XSubTypeDef
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type: dx|ErrorSubCode

ElementTypeBinding:
  @Name: XParam
  @ElementType:
    ecore:hasParameter

ElementTypeBinding:
  @Name: XPropDef
  @ElementType:
    dis:ResourceDef
  @ShadowContent:
    @@rdf:type: ecore|Parameter
    @@For: =ManakaiDOM|all

ElementTypeBinding:
  @Name: ConstValue
  @ElementType:
    DISLang:value
  @ShadowContent:
    @@ContentType:
      DISCore:String

ElementTypeBinding:
  @Name: enMufDef
  @ElementType:
    ecore:defaultMessage
  @ShadowContent:
    @@ContentType:
      lang:muf
    @@lang:en