/[suikacvs]/messaging/manakai/lib/Message/DOM/Element.pm

Diff of /messaging/manakai/lib/Message/DOM/Element.pm

Parent Directory | Revision Log | View Patch Patch

-revision 1.21 by wakaba,
Sun Jul 29 08:19:59 2007 UTC
+revision 1.22 by wakaba,
Sun Jul 29 08:31:14 2007 UTC
 Line 1
- #!/usr/bin/perl
+ ## NOTE: This module will be renamed as Element.pm.
- ## This file is automatically generated
- ##      at 2006-12-31T09:30:41+00:00,
+ package Message::DOM::Element;
- ##      from file "../DOM/Element.dis",
- ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Element>.
- ## Don't edit by hand!
  use strict;
- require Message::DOM::DOMCore;
+ our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
+ push our @ISA, 'Message::DOM::Node', 'Message::IF::Element';
  require Message::DOM::Document;
- require Message::DOM::TreeCore;
- require Message::Util::Error::DOMException;
- package Message::DOM::Element;
- our $VERSION = 20061231.0930;
- sub DERIVATION_EXTENSION ();
- sub DERIVATION_LIST ();
- sub DERIVATION_RESTRICTION ();
- sub DERIVATION_UNION ();
- sub AUTOLOAD {
-         my $al = our $AUTOLOAD;
-         $al =~ s/.+:://;
-         if ({'DERIVATION_EXTENSION',
- 'Message::DOM::IF::TypeInfo::DERIVATION_EXTENSION',
- 'DERIVATION_LIST',
- 'Message::DOM::IF::TypeInfo::DERIVATION_LIST',
- 'DERIVATION_RESTRICTION',
- 'Message::DOM::IF::TypeInfo::DERIVATION_RESTRICTION',
- 'DERIVATION_UNION',
- 'Message::DOM::IF::TypeInfo::DERIVATION_UNION'}->{$al}) {
-           no strict 'refs';
-           *{$AUTOLOAD} = \&{{'DERIVATION_EXTENSION',
- 'Message::DOM::IF::TypeInfo::DERIVATION_EXTENSION',
- 'DERIVATION_LIST',
- 'Message::DOM::IF::TypeInfo::DERIVATION_LIST',
- 'DERIVATION_RESTRICTION',
- 'Message::DOM::IF::TypeInfo::DERIVATION_RESTRICTION',
- 'DERIVATION_UNION',
- 'Message::DOM::IF::TypeInfo::DERIVATION_UNION'}->{$al}};
-           goto &{$AUTOLOAD};
-         } else {
-           require Carp;
-           Carp::croak (qq<Can't locate method "$AUTOLOAD">);
-         }
- }
- sub import {
+ sub ____new ($$$$$) {
+   my $self = shift->SUPER::____new (shift);
+   ($$self->{namespace_uri},
+    $$self->{prefix},
+    $$self->{local_name}) = @_;
+   $$self->{attributes} = {};
+   $$self->{child_nodes} = [];
+   return $self;
+ } # ____new
+ sub AUTOLOAD {
+   my $method_name = our $AUTOLOAD;
+   $method_name =~ s/.*:://;
+   return if $method_name eq 'DESTROY';
-         my $self = shift;
+   if ({
-         if (@_) {
+     ## Read-only attributes (trivial accessors)
-           local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
+     namespace_uri => 1,
-           $self->SUPER::import (@_);
+   }->{$method_name}) {
-           for (grep {not /\W/} @_) {
+     no strict 'refs';
-             eval qq{$_};
+     eval qq{
+       sub $method_name (\$) {
+         return \${\$_[0]}->{$method_name};
+       }
+     };
+     goto &{ $AUTOLOAD };
+   } elsif ({
+     ## Read-write attributes (DOMString, trivial accessors)
+     manakai_base_uri => 1,
+   }->{$method_name}) {
+     no strict 'refs';
+     eval qq{
+       sub $method_name (\$;\$) {
+         if (\@_ > 1) {
+           if (\${\${\$_[0]}->{owner_document}}->{strict_error_checking} and
+               \${\$_[0]}->{manakai_read_only}) {
+             report Message::DOM::DOMException
+                 -object => \$_[0],
+                 -type => 'NO_MODIFICATION_ALLOWED_ERR',
+                 -subtype => 'READ_ONLY_NODE_ERR';
            }
-         }
+           if (defined \$_[1]) {
+             \${\$_[0]}->{$method_name} = ''.\$_[1];
- }
+           } else {
- our %EXPORT_TAG = ('DerivationMethods',
+             delete \${\$_[0]}->{$method_name};
- ['DERIVATION_EXTENSION',
- 'DERIVATION_LIST',
- 'DERIVATION_RESTRICTION',
- 'DERIVATION_UNION']);
- our @EXPORT_OK = ('DERIVATION_EXTENSION',
- 'DERIVATION_LIST',
- 'DERIVATION_RESTRICTION',
- 'DERIVATION_UNION');
- use Exporter; push our @ISA, 'Exporter';
- package Message::DOM::Element::ManakaiDOMDocumentElement;
- our $VERSION = 20061231.0930;
- push @Message::DOM::Document::ManakaiDOMDocument::ISA, q<Message::DOM::Element::ManakaiDOMDocumentElement> unless Message::DOM::Document::ManakaiDOMDocument->isa (q<Message::DOM::Element::ManakaiDOMDocumentElement>);
- use Char::Class::XML 'InXMLNCNameChar10',
- 'InXMLNCNameChar11',
- 'InXMLNCNameStartChar11',
- 'InXMLNameChar10',
- 'InXMLNameChar11',
- 'InXMLNameStartChar11',
- 'InXML_NCNameStartChar10',
- 'InXML_NameStartChar10';
- sub create_element ($$) {
- my ($self, $tagName) = @_;
- my $r;
- {
- my
- $strict = $self->
- strict_error_checking
- ;
- if ($strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $tagName) {
-     if (((not defined $version or $version eq '1.0') and
-          not
- ($tagName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($tagName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $tagName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- }
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $self->
- strict_error_checking
-  (
- );
-   $r = $self->
- create_element_ns
-  (
- undef
- , [
- undef
- , $tagName]);
-   $self->
- strict_error_checking
-  ($strict);
- }
- ;}
- ;
- }
- $r}
- sub create_element_ns ($$$) {
- my ($self, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r;
- {
- my
- ($prefix, $lname);
- if (ref $qualifiedName eq 'ARRAY') {
-   ($prefix, $lname) = @$qualifiedName;
-   $qualifiedName = defined $prefix ? $prefix.':'.$lname : $lname;
- } else {
-   ($prefix, $lname) = split /:/, $qualifiedName, 2;
-   ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- }
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $lname ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   }
- }
- }
- ;
-   if (defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- ($qualifiedName eq 'xmlns' or
-        (defined $prefix and $prefix eq 'xmlns'))) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_element_ns', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMDocumentElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'qualifiedName', 'http://www.w3.org/2001/04/infoset#localName' => $lname, 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI';
- ;
-   }
- }
- ## -- Choose the most apppropriate class for the element
- my $class =
- 'Message::DOM::Element::ManakaiDOMElement'
- ;
- my $nsuri = defined $namespaceURI ? $namespaceURI : '';
- ## Use cases:
- ##   - |html5:a| element type
- ##   - |html5:*| element types
- A: for my $nm (
-   [$nsuri, $lname],
-   [$nsuri, '*'],
- ) {
-   unless ($Message::DOM::Element::ElementClass
-       ->{$nm->[0]}->{$nm->[1]}) {
-     if ($Message::Util::AutoLoad::Registry::ElementType
-         ->{$nm->[0]}->{$nm->[1]}) {
-       eval qq{require
-           $Message::Util::AutoLoad::Registry::ElementType->{
-           $nm->[0]}->{$nm->[1]}->{module}};
-       die $@ if $@;
-     }
-   }
-   if ($Message::DOM::Element::ElementClass
-       ->{$nm->[0]}->{$nm->[1]}) {
-     $class = $Message::DOM::Element::ElementClass
-         ->{$nm->[0]}->{$nm->[1]};
-     last A;
-   }
- } # A
- $r = bless \{
- 'od'
-  => $self,
- 'child'
-  => [],
- 'attr'
-  => {},
- 'sattrs'
-  => [],
- }, $class;
- Scalar::Util::weaken ($$r->{
- 'od'
- });
- {
- if
- (defined $namespaceURI) {
-   if (ref $namespaceURI eq 'SCALAR') {
-     $$r->{'ns'} = $namespaceURI;
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{$namespaceURI}) {
-     $$r->{'ns'} = $Message::Util::ManakaiStringRef::Value{$namespaceURI};
-   } else {
-     require Scalar::Util;
-     $$r->{'ns'} = $Message::Util::ManakaiStringRef::Value{$namespaceURI} = \($namespaceURI);
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$namespaceURI});
-   }
- } else {
-   CORE::delete $$r->{'ns'};
- }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (ref $prefix eq 'SCALAR') {
-     $$r->{'pfx'} = $prefix;
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{$prefix}) {
-     $$r->{'pfx'} = $Message::Util::ManakaiStringRef::Value{$prefix};
-   } else {
-     require Scalar::Util;
-     $$r->{'pfx'} = $Message::Util::ManakaiStringRef::Value{$prefix} = \($prefix);
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$prefix});
-   }
- } else {
-   CORE::delete $$r->{'pfx'};
- }
- }
- ;
- {
- if
- (defined $lname) {
-   if (ref $lname eq 'SCALAR') {
-     $$r->{'ln'} = $lname;
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{$lname}) {
-     $$r->{'ln'} = $Message::Util::ManakaiStringRef::Value{$lname};
-   } else {
-     require Scalar::Util;
-     $$r->{'ln'} = $Message::Util::ManakaiStringRef::Value{$lname} = \($lname);
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$lname});
-   }
- } else {
-   CORE::delete $$r->{'ln'};
- }
- }
- ;
- ## Default attributes
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   XDA:
- {
-     my $__cfg = $self->
- dom_config
- ;
-     last XDA unless $__cfg->
- get_parameter
-                               (
- 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'
- );
-     my $__doctype = $self->
- doctype
- ;
-     last XDA unless defined $__doctype;
-     my $__et = $__doctype->
- get_element_type_definition_node
-                              ($qualifiedName);
-     if ($__et) {
-       my $__orig_strict = $self->
- strict_error_checking
- ;
-       $self->
- strict_error_checking
-  (
- );
-       my %__gattr;
-       my %__has_attr;
-       my %__pfx_to_uri;
-       my $__copy_asis = $__cfg->
- get_parameter
-                                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
- );
-       $__cfg->
- set_parameter
-                     (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  =>
- );
-       for my $__at (@{$__et->
- attribute_definitions
- }) {
-         my $__at_default = $__at->
- default_type
- ;
-         if ($__at_default ==
-or
- $__at_default ==
- ) {
-           my ($__nn1, $__nn2) = split /:/, $__at->
- node_name
- ;
-           if (defined $__nn2) { # prefixed
-             if ($__nn1 eq 'xmlns') {
-               ## TODO: NCName check, prefix check and NSURI check
-               my $__attr = $self->
- create_attribute_ns
-                                         (
- 'http://www.w3.org/2000/xmlns/'
- , [$__nn1, $__nn2]);
-               for my $__at_child (@{$__at->
- child_nodes
- }) {
-                 $__attr->
- append_child
-                            ($__at_child->
- clone_node
-  (
- ));
-               }
-               $__attr->
- manakai_attribute_type
-                          ($__at->
- declared_type
- );
-               my $__nsuri = $__attr->
- value
- ;
-               ## TODO: Namespace well-formedness check (NSURI), v1.1 chk
-               $__pfx_to_uri{$__nn2} = $__nsuri;
-               $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-               $__attr->
- specified
-  (
- );
-               $__has_attr{
- 'http://www.w3.org/2000/xmlns/'
- }->{$__nn2} =
- ;
-             } else {
-               ## TODO: NCName check
-               $__gattr{$__nn1}->{$__nn2} = $__at;
-             }
-           } else {            # no prefixed
-             my $__attr;
-             if ($__nn1 eq 'xmlns') {
-               $__attr = $self->
- create_attribute_ns
-                                         (
- 'http://www.w3.org/2000/xmlns/'
- , 'xmlns');
-               $__has_attr{
- 'http://www.w3.org/2000/xmlns/'
- }->{xmlns} =
- ;
-             } else {
-               $__attr = $self->
- create_attribute_ns
-                                         (
- undef
- , $__nn1);
-               ## TODO: NCName check
-             }
-             for my $__at_child (@{$__at->
- child_nodes
- }) {
-               $__attr->
- append_child
-                          ($__at_child->
- clone_node
-  (
- ));
-             }
-             $__attr->
- manakai_attribute_type
-                        ($__at->
- declared_type
- );
-             ## TODO: Namespace well-formedness check (NSURI)
-             $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-             $__attr->
- specified
-  (
- );
            }
          }
-       } # attrdefs
+         return \${\$_[0]}->{$method_name};
-       for my $__pfx (keys %__gattr) {
+       }
-         my $__nsuri = $__pfx_to_uri{$__pfx};
+     };
-         unless (defined $__nsuri) {
+     goto &{ $AUTOLOAD };
-           ## TODO: Namespace well-formedness error
-         }
-         LN: for my $__ln (keys %{$__gattr{$__pfx}}) {
-           if ($__has_attr{defined $__nsuri ? $__nsuri : ''}->{$__ln}) {
-             ## TODO: Namespace well-formedness error
-             next LN;
-           }
-           ## TODO: NCName check, prefix check and NSURI check
-           my $__at = $__gattr{$__pfx}->{$__ln};
-           my $__attr = $self->
- create_attribute_ns
-                                     ($__nsuri, [$__pfx, $__ln]);
-           for my $__at_child (@{$__at->
- child_nodes
- }) {
-             $__attr->
- append_child
-                        ($__at_child->
- clone_node
-  (
- ));
-           }
-           $__attr->
- manakai_attribute_type
-                      ($__at->
- declared_type
- );
-           $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-           $__attr->
- specified
-  (
- );
-           $__has_attr{defined $__nsuri ? $__nsuri : ''}->{$__ln} =
- ;
-         } # LN
-       } # pfx
-       $__cfg->
- set_parameter
-               (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  => $__copy_asis);
-       $self->
- strict_error_checking
-  ($__orig_strict);
-     }
-   } # XDA
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub create_attribute ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- my
- $strict = $self->
- strict_error_checking
- ;
- if ($strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $name) {
-     if (((not defined $version or $version eq '1.0') and
-          not
- ($name =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($name =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $name, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- }
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $self->
- strict_error_checking
-  (
- );
-   $r = $self->
- create_attribute_ns
-  (
- undef
- , [
- undef
- , $name]);
-   $self->
- strict_error_checking
-  ($strict);
- }
- ;}
- ;
- }
- $r}
- sub create_attribute_ns ($$$) {
- my ($self, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r;
- {
- my
- ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'
-                          ? @$qualifiedName
-                          : split /:/, $qualifiedName, 2;
- ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- ## TODO: autoload
- if ((defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace'
- ) or
-     ($lname =~ /^xml:/)) {
-   require Message::DOM::XML;
- }
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
-   $qualifiedName = defined $prefix ? $prefix.':'.$lname
-                                    : $lname;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $lname ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   }
- }
- }
- ;
- }
- $r = bless \{
- 'od'
-  => $self,
- 'child'
-  => [],
- 'specified'
-  => 1,
- },
- 'Message::DOM::Element::ManakaiDOMAttr'
- ;
- Scalar::Util::weaken ($$r->{
- 'od'
- });
- {
- if
- (defined $namespaceURI) {
-   if (ref $namespaceURI eq 'SCALAR') {
-     $$r->{'ns'} = $namespaceURI;
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{$namespaceURI}) {
-     $$r->{'ns'} = $Message::Util::ManakaiStringRef::Value{$namespaceURI};
-   } else {
-     require Scalar::Util;
-     $$r->{'ns'} = $Message::Util::ManakaiStringRef::Value{$namespaceURI} = \($namespaceURI);
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$namespaceURI});
-   }
- } else {
-   CORE::delete $$r->{'ns'};
- }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (ref $prefix eq 'SCALAR') {
-     $$r->{'pfx'} = $prefix;
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{$prefix}) {
-     $$r->{'pfx'} = $Message::Util::ManakaiStringRef::Value{$prefix};
-   } else {
-     require Scalar::Util;
-     $$r->{'pfx'} = $Message::Util::ManakaiStringRef::Value{$prefix} = \($prefix);
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$prefix});
-   }
- } else {
-   CORE::delete $$r->{'pfx'};
- }
- }
- ;
- {
- if
- (defined $lname) {
-   if (ref $lname eq 'SCALAR') {
-     $$r->{'ln'} = $lname;
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{$lname}) {
-     $$r->{'ln'} = $Message::Util::ManakaiStringRef::Value{$lname};
    } else {
-     require Scalar::Util;
+     require Carp;
-     $$r->{'ln'} = $Message::Util::ManakaiStringRef::Value{$lname} = \($lname);
+     Carp::croak (qq<Can't locate method "$AUTOLOAD">);
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$lname});
-   }
- } else {
-   CORE::delete $$r->{'ln'};
- }
- }
- ;
- ## Attribute type information
- if ((defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $lname eq 'id') or
-     (not defined $namespaceURI and $lname eq 'xml:id')) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     if
- ($self->
- dom_config
-              ->
- get_parameter
-                  (
- 'http://suika.fam.cx/www/2006/dom-config/xml-id'
- )) {
-       $r->
- manakai_attribute_type
-  (
- );
-     }
- }
- ;}
- ;
- }
- }
- $r}
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDocumentElement>}->{has_feature} = {};
- $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDocumentElement>} = 0;
- package Message::DOM::IF::Element;
- our $VERSION = 20061231.0930;
- package Message::DOM::Element::ManakaiDOMElement;
- our $VERSION = 20061231.0930;
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::Element',
- 'Message::DOM::IF::Node';
- use Char::Class::XML 'InXMLNCNameChar10',
- 'InXMLNCNameChar11',
- 'InXMLNCNameStartChar11',
- 'InXMLNameChar10',
- 'InXMLNameChar11',
- 'InXMLNameStartChar11',
- 'InXML_NCNameStartChar10',
- 'InXML_NameStartChar10';
- sub node_type ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- $r = 1;
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
- }
- }
- sub prefix ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- my
- $v = $$self->{
- 'pfx'
- };
- $r = defined $v ? $$v : undef;
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- my
- $od = $self->
- owner_document
- ;
- if ($od->
- strict_error_checking
- ) {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
-   my $nsuri = $$self->{
- 'ns'
- };
-   if (not defined $nsuri) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://www.w3.org/2001/04/infoset#prefix' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'prefix';
- ;
-   } elsif ($$nsuri ne
- 'http://www.w3.org/XML/1998/namespace' and
- defined $given and $given eq 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $self->namespace_uri, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://www.w3.org/2001/04/infoset#prefix' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'prefix';
- ;
    }
-   my $version = $od->
+ } # AUTOLOAD
- xml_version
- ;
- {
+ ## TODO: Test for create_element_ns ('', ...)
- if
+ ## |Node| attributes
- (defined $given and $given eq '') {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-prefix', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureNamespacePrefix';
- ;
+ sub attributes ($) {
-   undef $given;
+   require Message::DOM::NamedNodeMap;
- }
+   return bless \\($_[0]), 'Message::DOM::NamedNodeMap::AttrMap';
- if (defined $given) {
+ } # attributes
-   if (($version eq '1.0' and
-        not
- ($given =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-       ($version eq '1.1' and
-        not
- ($given =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://www.w3.org/2001/04/infoset#name' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureNamespacePrefix', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
+ sub base_uri ($) {
-   } elsif (index ($given, ':') > -1) {
+   my $self = $_[0];
+   return $$self->{manakai_base_uri} if defined $$self->{manakai_base_uri};
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#name' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_BAD_NCNAME', 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureNamespacePrefix', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
+   local $Error::Depth = $Error::Depth + 1;
+   my $xb = $self->get_attribute_node_ns
+     ('http://www.w3.org/XML/1998/namespace', 'base');
+   unless (defined $xb) {
+     $xb = $self->get_attribute_node_ns (undef, 'xml:base');
    }
- } # has prefix
- }
- ;
+   if ($xb) {
- } # strict
+     my $v = $self->owner_document->implementation->create_uri_reference
- if (defined $given) {
+       ($xb->value);
-   $$self->{
+     if (not defined $v->uri_scheme) { # Relative reference
- 'pfx'
+       my $xbbase = $xb->base_uri;
- } = \$given;
+       if (defined $xbbase) {
- } else {
+         return $v->get_absolute_reference ($xbbase)->uri_reference;
-   CORE::delete $$self->{
+       }
- 'pfx'
- };
- }
- }
- }
- }
- sub append_child ($$) {
- my ($self, $newChild) = @_;
- my $r;
- {
- my
- $self_od = $self->
- owner_document
- ;
- if ($self_od->
- strict_error_checking
- ) {
-   my $anode = $self;
-   while (defined $anode) {
-     if ($anode eq $newChild) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_ANCESTOR_OR_SELF', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;
      }
-     $anode = $anode->
+     return $v->uri_reference;
- parent_node
- ;
    }
- }
- my $child_od = $newChild->
- owner_document
- ;
- my $child_nt = $newChild->
- node_type
- ;
- {
+   my $pe = $$self->{parent_node};
+   while (defined $pe) {
+     my $nt = $pe->node_type;
- {
+     if ($nt == 1 or $nt == 6 or $nt == 9 or $nt == 11) {
+       ## Element, Entity, Document, or DocumentFragment
- local $Error::Depth = $Error::Depth + 1;
+       return $pe->base_uri;
+     } elsif ($nt == 5) {
- {
+       ## EntityReference
+       if ($pe->manakai_external) {
+         return $pe->manakai_entity_base_uri;
-   my
- $strict = $self_od->
- strict_error_checking
- ;
-   ## -- Node Type check
-   my @new_child;
-   if ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
        }
-       push @new_child, $cn;
      }
-   } else {
+     $pe = $$pe->{parent_node};
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
+   return $pe->base_uri if $pe;
+   return $$self->{owner_document}->base_uri;
+ } # base_uri
-   my $nc_parent = @new_child ? $new_child[0]->
+ sub local_name ($) { # TODO: HTML5 case
- parent_node
+   return ${$_[0]}->{local_name};
-                              :
+ } # local_name
- undef
- ;
-   if ($strict) {
-     ## -- Wrong-document check
-     unless ($self_od eq $child_od) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
+ sub manakai_local_name ($) {
+   return ${$_[0]}->{local_name};
+ } # manakai_local_name
+ sub namespace_uri ($);
- }
+ ## The tag name of the element [DOM1, DOM2].
+ ## Same as |Element.tagName| [DOM3].
+ *node_name = \&tag_name;
- ;}
+ sub node_type () { 1 } # ELEMENT_NODE
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
+ sub prefix ($;$) {
+   ## NOTE: No check for new value as Firefox doesn't do.
- local $Error::Depth = $Error::Depth - 1;
+   ## See <http://suika.fam.cx/gate/2005/sw/prefix>.
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
- }
- ;}
- ;
+   ## NOTE: Same as trivial setter except "" -> undef
-       }
-     }
-   }
-   ## -- Insert at...
+   ## NOTE: Same as |Attr|'s |prefix|.
-   my $index = -1; # last
+   if (@_ > 1) {
- ; # FOR !tc:ForAppendChild
+     if (${$_[0]}->{manakai_read_only}) {
+       report Message::DOM::DOMException
-   ## -- Removes from parent
+           -object => $_[0],
-   if ($nc_parent) {
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
-     if ($child_nt ==
+           -subtype => 'READ_ONLY_NODE_ERR';
+     }
- ) {
+     if (defined $_[1] and $_[1] ne '') {
-       $$newChild->{
+       ${$_[0]}->{prefix} = ''.$_[1];
- 'child'
- } = [];
      } else {
-       my $v = $$nc_parent->{
+       delete ${$_[0]}->{prefix};
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
    }
+   return ${$_[0]}->{prefix};
+ } # prefix
-   ## -- Rewrite the |parentNode| properties
+ ## |Element| attributes
-   for my $nc (@new_child) {
-     $$nc->{
- 'parent'
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- {
- ## -- Adds to children list
-     push @$children, @new_child;
-     $r = $newChild;
- }
- ;
- ;
- ;
- }
- ;}
- ;
+ sub manakai_base_uri ($;$);
- }
+ ## Defined in |HTMLElement| interface of HTML5
+ sub inner_html ($;$) {
+   my $self = $_[0];
- ;
+   ## TODO: Setter
+   if (${$$self->{owner_document}}->{manakai_is_html}) {
- }
+     require Whatpm::HTML;
- $r}
+     return ${ Whatpm::HTML->get_inner_html ($self) };
- sub insert_before ($$;$) {
+   } else {
- my ($self, $newChild, $refChild) = @_;
+     ## TODO: This serializer is not currenly conformant to HTML5.
- my $r;
+     require Whatpm::XMLSerializer;
+     my $r = '';
- {
+     for (@{$self->child_nodes}) {
+       $r .= ${ Whatpm::XMLSerializer->get_outer_xml ($_) };
- my
- $self_od = $self->
- owner_document
- ;
- if ($self_od->
- strict_error_checking
- ) {
-   my $anode = $self;
-   while (defined $anode) {
-     if ($anode eq $newChild) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_ANCESTOR_OR_SELF', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;
      }
-     $anode = $anode->
+     return $r;
- parent_node
- ;
    }
- }
+ } # inner_html
- my $child_od = $newChild->
- owner_document
- ;
- my $child_nt = $newChild->
- node_type
- ;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self_od->
- strict_error_checking
- ;
-   ## -- Node Type check
-   my @new_child;
-   if ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
+ sub schema_type_info ($) {
+   require Message::DOM::TypeInfo;
+   my $v = 0;
+   return bless \$v, 'Message::DOM::TypeInfo';
+ ## NOTE: Currently manakai does not support XML Schema, so it is
+ ## always a no-type |TypeInfo|.  It is expected that
+ ## a future version of the implementation will return an
+ ## element type definition node that also implement the
+ ## |TypeInfo| interface when the schema language is XML DTD.
+ } # schema_type_info
- }
+ ## TODO: HTML5 capitalization
+ sub tag_name ($) {
+   my $self = shift;
- ;}
+   if (defined $$self->{prefix}) {
+     return $$self->{prefix} . ':' . $$self->{local_name};
- ;
-       }
-       push @new_child, $cn;
-     }
    } else {
+     return $$self->{local_name};
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
+ } # tag_name
-   my $nc_parent = @new_child ? $new_child[0]->
+ ## TODO: Documentation
- parent_node
+ sub manakai_tag_name ($) {
-                              :
+   my $self = shift;
+   if (defined $$self->{prefix}) {
- undef
+     return $$self->{prefix} . ':' . $$self->{local_name};
- ;
+   } else {
-   if ($strict) {
+     return $$self->{local_name};
-     ## -- Wrong-document check
-     unless ($self_od eq $child_od) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
-       }
-     }
    }
+ } # manakai_tag_name
-   ## -- Insert at...
+ ## The |Element| interface - methods
-   my $index = -1; # last
- {
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $refChild) {
-       if ($refChild eq $newChild) {
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
+ sub manakai_element_type_match ($$$) {
- }
+   my ($self, $nsuri, $ln) = @_;
+   if (defined $nsuri) {
- ;
+     if (defined $$self->{namespace_uri} and $nsuri eq $$self->{namespace_uri}) {
+       return ($ln eq $$self->{local_name});
- ;
-       }
-       my $cns = $self->
- child_nodes
- ;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $refChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
-           }
-         }
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
- }
- ;}
- ;
- }
- ;
- ;
-       } # C
-     } else { # |oldChild| is not defined
- ;
-     }
- }
- ; # FOR !tc:ForAppendChild
-   ## -- Removes from parent
-   if ($nc_parent) {
-     if ($child_nt ==
- ) {
-       $$newChild->{
- 'child'
- } = [];
      } else {
-       my $v = $$nc_parent->{
+       return 0;
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
-   }
+   } else {
+     if (not defined $$self->{namespace_uri}) {
-   ## -- Rewrite the |parentNode| properties
+       return ($ln eq $$self->{local_name});
-   for my $nc (@new_child) {
-     $$nc->{
- 'parent'
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- ;
- {
- ## -- Adds to children list
-     if ($index == -1) {
-       push @$children, @new_child;
      } else {
-       splice @$children, $index, 0, @new_child;
+       return 0;
      }
-     $r = $newChild;
- }
- ;
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub replace_child ($$$) {
- my ($self, $newChild, $oldChild) = @_;
- my $r;
- {
- my
- $self_od = $self->
- owner_document
- ;
- if ($self_od->
- strict_error_checking
- ) {
-   my $anode = $self;
-   while (defined $anode) {
-     if ($anode eq $newChild) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_ANCESTOR_OR_SELF', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- ;
-     }
-     $anode = $anode->
- parent_node
- ;
    }
- }
+ } # manakai_element_type_match
- my $child_od = $newChild->
- owner_document
- ;
- my $child_nt = $newChild->
- node_type
- ;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self_od->
- strict_error_checking
- ;
-   ## -- Node Type check
-   my @new_child;
-   if ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
+ sub get_attribute ($$) {
-       }
+   my $attr = ${$_[0]}->{attributes};
-       push @new_child, $cn;
+   my $name = ''.$_[1];
-     }
-   } else {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-   }
-   my $nc_parent = @new_child ? $new_child[0]->
- parent_node
-                              :
- undef
- ;
-   if ($strict) {
-     ## -- Wrong-document check
-     unless ($self_od eq $child_od) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
+   ## NOTE: |sort|ing is required so that every |getAttribute|, |setAttribute|,
+   ## |hasAttribute|, |removeAttribute|, or any other namespace unaware
+   ## methods operates on the same node even if there is
+   ## multiple nodes with the same qualified name.
- ;}
+   ## NOTE: Same as |get_attribute_node|, except what is returned.
- ;
+   for my $ns (sort {$a cmp $b} keys %$attr) {
+     for my $ln (sort {$a cmp $b} keys %{$attr->{$ns}}) {
+       my $node = $attr->{$ns}->{$ln};
+       if ($node->manakai_name eq $name) {
+         return $node->value;
        }
      }
    }
-   ## -- Insert at...
+   return undef;
-   my $index = -1; # last
+ } # get_attribute
- {
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $oldChild) {
-       if ($oldChild eq $newChild) {
- ;
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
+ sub get_attribute_node ($$) {
+   my $attr = ${$_[0]}->{attributes};
+   my $name = ''.$_[1];
- }
+   ## NOTE: Same as |get_attribute|, except what is returned.
- ;
+   for my $ns (sort {$a cmp $b} keys %$attr) {
+     for my $ln (sort {$a cmp $b} keys %{$attr->{$ns}}) {
+       my $node = $attr->{$ns}->{$ln};
+       if ($node->manakai_name eq $name) {
+         return $node;
        }
-       my $cns = $self->
- child_nodes
- ;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $oldChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
-           }
-         }
- ;
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-       } # C
-     } else { # |oldChild| is not defined
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-     }
- }
- ; # FOR !tc:ForAppendChild
-   ## -- Removes from parent
-   if ($nc_parent) {
-     if ($child_nt ==
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
    }
-   ## -- Rewrite the |parentNode| properties
+   return undef;
-   for my $nc (@new_child) {
+ } # get_attribute_node
-     $$nc->{
- 'parent'
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- ;
- ;
+ sub get_attribute_ns ($$$) {
+   my $nsuri = defined $_[1] ? ''.$_[1] : '';
- {
+   my $ln = ''.$_[2];
+   if (my $attr = ${$_[0]}->{attributes}->{$nsuri}->{$ln}) {
+     return $attr->value;
- ## -- Replaces the node
-     splice @$children, $index, 1, @new_child;
-     CORE::delete $$oldChild->{
- 'parent'
- };
-     $r = $oldChild;
- }
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub attributes ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- $r = bless \\($self),
- 'Message::DOM::TreeCore::ManakaiDOMAttrMap'
- ;
- $$self->{
- 'hpos'
- } ||= 0;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'attributes';
- }
- }
- sub node_name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- my
- $prefix = $$self->{
- 'pfx'
- };
- my $lname = $$self->{
- 'ln'
- };
- $r = defined $prefix ? $$prefix.':'.$$lname : $$lname;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
- }
- }
- sub tag_name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- my
- $prefix = $$self->{
- 'pfx'
- };
- my $lname = $$self->{
- 'ln'
- };
- $r = defined $prefix ? $$prefix.':'.$$lname : $$lname;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'tag_name';
- }
- }
- sub manakai_append_text ($$) {
- my ($self, $string) = @_;
- my $r;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $lc = $self->
- last_child
- ;
-   if (defined $lc and
-       $lc->
- node_type
-  ==
- ) {
-     $lc->
- manakai_append_text
-            (ref $string eq 'SCALAR' ? $string : \$string);
    } else {
-     my $text = $self->
+     return undef;
- owner_document
-                     ->
- create_text_node
-                         (ref $string eq 'SCALAR' ? $$string : $string);
-     $self->
- append_child
-  ($text);
    }
-   $r = $self;
+ } # get_attribute_ns
- }
- ;}
- ;
- }
- $r}
- sub get_feature ($$$) {
- my ($self, $feature, $version) = @_;
- {
- $feature = lc $feature;
- }
- {
- $version = '' unless defined $version;
- }
- my $r;
- {
- $feature =~ s/^\+//;
- {
- if
- ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-   $r = $self;
- }
- }
- ;
- unless (defined $r) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $r = $self->SUPER::get_feature ($feature, $version);
- }
- ;}
- ;
- }
- }
- $r}
- sub base_uri ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- $r = $$self->{
- 'buri'
- };
- unless (defined $r) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     my
- $xb = $self->
- get_attribute_node_ns
-                       (
- 'http://www.w3.org/XML/1998/namespace'
- , 'base');
-     unless (defined $xb) {
-       $xb = $self->
- get_attribute_node_ns
-                      (
- undef
- , 'xml:base');
-     }
-     if ($xb) {
-       $r = $xb->
- value
- ;
-       if (
- ($r !~ m!\A[^:/?#]+:!)
- ) {
-         my $xbbase = $xb->
- base_uri
- ;
-         $r = $self->
- owner_document
-                   ->
- implementation
-                   ->
- create_uri_reference
-                       ($r)
-                   ->
- get_absolute_reference
-                       ($xbbase)
-                   ->
- uri_reference
-           if
- defined $xbbase;
-       }
-     } else {
-       my $pe = $self->
- parent_node
- ;
-       W: {
-         while (defined $pe) {
-           my $nt = $pe->
- node_type
- ;
-           if ($nt ==
-or
- $nt ==
-or
- $nt ==
-or
- $nt ==
- ) {
-             $r = $pe->
- base_uri
- ;
-             last W;
-           } elsif ($nt ==
- ) {
-             if ($pe->
- manakai_external
- ) {
-               $r = $pe->
- manakai_entity_base_uri
- ;
-               last W;
-             }
-           }
-           $pe = $pe->
- parent_node
- ;
-         }
-         if ($pe) {
-           $r = $pe->
- base_uri
- ;
-         } else {
-           $r = $self->
- owner_document
- ->
- base_uri
- ;
-         }
-       } # W
-     }
- }
- ;}
- ;
- }
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
- }
- }
- sub get_attribute ($$) {
- my ($self, $name) = @_;
- my $r = '';
- {
- my
- $node;
- {
- my
- $__attr = ${$self}->{
- 'attr'
- };
- ## Note that we no longer support DOM Level 1 nodes.
- ## If an attribute's qualified name is equal to
- ## the requested name, then the node is the answer.
- ## Note that if there is a namespace ill-formed attribute,
- ## the result is not the expected one.  For example,
- ## if an |xmlns| attribute in the |http://www.w3.org/2000/xmlns/|
- ## namespace has non-NULL |prefix|, a request to get |xmlns|
- ## attribute will not return that node.
- ## |sort|ing is required so that every |getAttribute|, |setAttribute|,
- ## |hasAttribute|, |removeAttribute|, or any other namespace unaware
- ## methods operates on the same node even if there is
- ## multiple nodes with the same qualified name.
- NS: for my $__ns (sort {$a cmp $b} keys %$__attr) {
-   for my $__ln (sort {$a cmp $b} keys %{$__attr->{$__ns}}) {
-     my $__node = $__attr->{$__ns}->{$__ln};
-     if ($__node->
- node_name eq
- $name) {
- {
- $node = $__node;
- }
- ;
- ;
-       last NS;
-     }
-   } # ln
- } # NS
- }
- ;
- if (defined $node) {
-   $r = $node->
- value
- ;
- } else {
-   $r =
- undef
- ;
- }
- }
- $r}
- sub get_attribute_ns ($$$) {
- my ($self, $namespaceURI, $localName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r = '';
- {
- my
- $node;
- {
- my
- $__attrs = ${$self}->{
- 'attr'
- };
- if (defined $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                     ->{$localName}) {
-   $node = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                         ->{$localName};
- }
- }
- ;
- if (defined $node) {
-   $r = $node->
- value
- ;
- } else {
-   $r =
- undef
- ;
- }
- }
- $r}
- sub get_attribute_node ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- {
- my
- $__attr = ${$self}->{
- 'attr'
- };
- ## Note that we no longer support DOM Level 1 nodes.
- ## If an attribute's qualified name is equal to
- ## the requested name, then the node is the answer.
- ## Note that if there is a namespace ill-formed attribute,
- ## the result is not the expected one.  For example,
- ## if an |xmlns| attribute in the |http://www.w3.org/2000/xmlns/|
- ## namespace has non-NULL |prefix|, a request to get |xmlns|
- ## attribute will not return that node.
- ## |sort|ing is required so that every |getAttribute|, |setAttribute|,
- ## |hasAttribute|, |removeAttribute|, or any other namespace unaware
- ## methods operates on the same node even if there is
- ## multiple nodes with the same qualified name.
- NS: for my $__ns (sort {$a cmp $b} keys %$__attr) {
-   for my $__ln (sort {$a cmp $b} keys %{$__attr->{$__ns}}) {
-     my $__node = $__attr->{$__ns}->{$__ln};
-     if ($__node->
- node_name eq
- $name) {
- {
- $r = $__node;
- }
- ;
- ;
-       last NS;
-     }
-   } # ln
- } # NS
- }
- ;
- }
- $r}
  sub get_attribute_node_ns ($$$) {
- my ($self, $namespaceURI, $localName) = @_;
+   return ${$_[0]}->{attributes}->{defined $_[1] ? ''.$_[1] : ''}->{''.$_[2]};
+ } # get_attribute_node_ns
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r;
- {
- {
- my
- $__attrs = ${$self}->{
- 'attr'
- };
- if (defined $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                     ->{$localName}) {
-   $r = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                         ->{$localName};
- }
- }
+ *get_elements_by_tag_name = \&Message::DOM::Document::get_elements_by_tag_name;
- ;
+ *get_elements_by_tag_name_ns
+     = \&Message::DOM::Document::get_elements_by_tag_name_ns;
- }
- $r}
  sub has_attribute ($$) {
- my ($self, $name) = @_;
+   my $attr = ${$_[0]}->{attributes};
- my $r = 0;
+   my $name = ''.$_[1];
- {
- my
- $node;
- {
- my
- $__attr = ${$self}->{
- 'attr'
- };
- ## Note that we no longer support DOM Level 1 nodes.
- ## If an attribute's qualified name is equal to
- ## the requested name, then the node is the answer.
- ## Note that if there is a namespace ill-formed attribute,
- ## the result is not the expected one.  For example,
- ## if an |xmlns| attribute in the |http://www.w3.org/2000/xmlns/|
- ## namespace has non-NULL |prefix|, a request to get |xmlns|
- ## attribute will not return that node.
- ## |sort|ing is required so that every |getAttribute|, |setAttribute|,
- ## |hasAttribute|, |removeAttribute|, or any other namespace unaware
- ## methods operates on the same node even if there is
- ## multiple nodes with the same qualified name.
- NS: for my $__ns (sort {$a cmp $b} keys %$__attr) {
-   for my $__ln (sort {$a cmp $b} keys %{$__attr->{$__ns}}) {
-     my $__node = $__attr->{$__ns}->{$__ln};
-     if ($__node->
- node_name eq
- $name) {
- {
- $node = $__node;
- }
- ;
- ;
-       last NS;
-     }
-   } # ln
- } # NS
- }
- ;
- $r = defined $node;
- }
- $r}
- sub has_attribute_ns ($$$) {
- my ($self, $namespaceURI, $localName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r = 0;
- {
- my
- $node;
- {
- my
- $__attrs = ${$self}->{
- 'attr'
- };
- if (defined $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                     ->{$localName}) {
-   $node = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                         ->{$localName};
- }
- }
- ;
- $r = defined $node;
- }
- $r}
- sub set_attribute ($$$) {
- my ($self, $name, $value) = @_;
- {
- my
- $od = $self->
- owner_document
- ;
- if ($od->
- strict_error_checking
- ) {
-   if ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-   }
-   my $version = $od->
- xml_version
- ;
- {
- if
- (defined $name) {
-     if (((not defined $version or $version eq '1.0') and
-          not
- ($name =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($name =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $name, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- }
- ;
- }
- my $__anode;
- {
- my
- $__attr = ${$self}->{
- 'attr'
- };
- ## Note that we no longer support DOM Level 1 nodes.
+   for my $ns (keys %$attr) {
+     for my $ln (keys %{$attr->{$ns}}) {
- ## If an attribute's qualified name is equal to
+       my $node = $attr->{$ns}->{$ln};
- ## the requested name, then the node is the answer.
+       if ($node->manakai_name eq $name) {
+         return 1;
- ## Note that if there is a namespace ill-formed attribute,
- ## the result is not the expected one.  For example,
- ## if an |xmlns| attribute in the |http://www.w3.org/2000/xmlns/|
- ## namespace has non-NULL |prefix|, a request to get |xmlns|
- ## attribute will not return that node.
- ## |sort|ing is required so that every |getAttribute|, |setAttribute|,
- ## |hasAttribute|, |removeAttribute|, or any other namespace unaware
- ## methods operates on the same node even if there is
- ## multiple nodes with the same qualified name.
- NS: for my $__ns (sort {$a cmp $b} keys %$__attr) {
-   for my $__ln (sort {$a cmp $b} keys %{$__attr->{$__ns}}) {
-     my $__node = $__attr->{$__ns}->{$__ln};
-     if ($__node->
- node_name eq
- $name) {
- {
- $__anode = $__node;
- }
- ;
- ;
-       last NS;
-     }
-   } # ln
- } # NS
- }
- ;
- if (defined $__anode) { ## There is already a node with such a |name|
-   if ($__anode->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_ATTR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'name', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $__anode;
- ;
-   }
- } else { ## There is no such attribute
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $__anode = $od->
- create_attribute
-  ($name);
-     CORE::delete $$self->{
- 'sattrs'
- };
-     my $__attrs = $$self->{
- 'attr'
- };
-     $__attrs->{''}->{$name} = $__anode;
-     $$__anode->{
- 'owner'
- } = $self;
-     Scalar::Util::weaken ($$__anode->{
- 'owner'
- });
- }
- ;}
- ;
- {
- ## NOTE: The |cfg:xml-id| configuration parameter does not matter
- ##       since it can be typed in the |createAttribute| method.
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   if
- ($od->
- dom_config
-                     ->
- get_parameter
-                         (
- 'http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type'
- )) {
-     my $__st_doctype = $od->
- doctype
- ;
-     $__st_doctype = $__st_doctype->
- get_feature
-                                      (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0')
-       if defined $__st_doctype;
-     if (defined $__st_doctype) {
-       my $__st_et = $__st_doctype->
- get_element_type_definition_node
-                                      ($self->
- node_name
- );
-       if (defined $__st_et) {
-         my $__st_at = $__st_et->
- get_attribute_definition_node
-                                   ($name);
-         if (defined $__st_at) {
-           $__anode->
- manakai_attribute_type
-                         ($__st_at->
- declared_type
- );
-         }
        }
      }
    }
+   return 0;
+ } # has_attribute
+ sub has_attribute_ns ($$$) {
+   return ${$_[0]}->{attributes}->{defined $_[1] ? ''.$_[1] : ''}->{''.$_[2]}?1:0;
+ } # has_attribute_ns
- }
+ sub remove_attribute ($$) {
+   my $attr = ${$_[0]}->{attributes};
+   my $name = ''.$_[1];
- ;}
- ;
- }
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $__anode->
- value
-  ($value);
-   $__anode->
- specified
-  (
- );
- }
- ;}
- ;
- }
- }
- sub set_attribute_ns ($$$$) {
- my ($self, $namespaceURI, $qualifiedName, $value) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- {
- my
- ($prefix, $localName) = ref $qualifiedName eq 'ARRAY'
-                              ? @$qualifiedName
-                              : split /:/, $qualifiedName, 2;
- ($prefix, $localName) = (
- undef
- , $prefix) unless defined $localName;
- my $od = $self->
- owner_document
- ;
- if ($od->
- strict_error_checking
- ) {
-   if ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_ns', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-   }
-   my $version = $od->
- xml_version
- ;
-   $qualifiedName = defined $prefix ? $prefix.':'.$localName
-                                    : $localName;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureXMLQName', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $localName ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#checkXMLNamesQName';
- ;
-   }
- }
- }
- ;
- }
- {
- my
- $__anode;
- {
- my
- $__attrs = ${$self}->{
- 'attr'
- };
- if (defined $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                     ->{$localName}) {
-   $__anode = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                         ->{$localName};
- }
- }
- ;
- if (defined $__anode) { ## There is already a node with such a |name|
-   if ($__anode->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_ATTR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/setAttrValueNS', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $__anode;
- ;
-   }
-   $__anode->
- prefix
-  ($prefix) if defined $prefix;
-     ## ISSUE: Should NULL be allowed here with |strictErrorChecking| off?
- } else { ## There is no such attribute
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $__anode = $od->
- create_attribute_ns
-                                 ($namespaceURI, [$prefix, $localName]);
-     CORE::delete $$self->{
- 'sattrs'
- };
-     my $__attrs = ${$self}->{
- 'attr'
- };
-     $__attrs->{defined $namespaceURI ? $namespaceURI : ''}->{$localName}
-         = $__anode;
-     $$__anode->{
- 'owner'
- } = $self;
-     Scalar::Util::weaken ($$__anode->{
- 'owner'
- });
- }
- ;}
- ;
- {
- ## NOTE: The |cfg:xml-id| configuration parameter does not matter
- ##       since it can be typed in the |createAttribute| method.
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   if
- ($od->
- dom_config
-                     ->
- get_parameter
-                         (
- 'http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type'
- )) {
-     my $__st_doctype = $od->
- doctype
- ;
-     $__st_doctype = $__st_doctype->
- get_feature
-                                      (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0')
-       if defined $__st_doctype;
-     if (defined $__st_doctype) {
-       my $__st_et = $__st_doctype->
- get_element_type_definition_node
-                                      ($self->
- node_name
- );
-       if (defined $__st_et) {
-         my $__st_at = $__st_et->
- get_attribute_definition_node
-                                   (defined $prefix ? $prefix.':'.$localName
-                                         : $localName);
-         if (defined $__st_at) {
-           $__anode->
- manakai_attribute_type
-                         ($__st_at->
+   my $list;
- declared_type
+   my $key;
- );
+   my $attr_node;
+   ATTR: {
+     for my $ns (keys %$attr) {
+       $list = $attr->{$ns};
+       for my $ln (keys %$list) {
+         $attr_node = $list->{$ln};
+         if ($attr_node->manakai_name eq $name) {
+           $key = $ln;
+           last ATTR;
          }
        }
      }
-   }
- }
- ;}
- ;
- }
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $__anode->
- value
-  (defined $value ? $value : '');
-   $__anode->
- specified
-  (
- );
- }
- ;}
- ;
- }
- ;
- }
- }
- sub set_attribute_node ($$) {
- my ($self, $newAttr) = @_;
- my $r;
- {
- my
- $self_od = $self->
- owner_document
- ;
- my $strict = $self_od->
- strict_error_checking
- ;
- if ($strict and
-     not $self_od eq $newAttr->
- owner_document
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newAttr;
- ;
- }
- my $nsuri = $newAttr->
- namespace_uri
- ;
- $nsuri = '' unless defined $nsuri;
- my $ln = $newAttr->
- local_name
- ;
- CORE::delete $$self->{
- 'sattrs'
- };
- my $attrs = $$self->{
- 'attr'
- };
- my $current = $attrs->{$nsuri}->{$ln};
- if (defined $newAttr->
- owner_element
- ) {
-   if (defined $current and $current eq $newAttr) {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'rdata' => $newAttr, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-     ## No return value
-   } else {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INUSE_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newAttr;
- ;
-   }
- } else { # not in use
-   if ($strict and $self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-   }
-   $attrs->{$nsuri}->{$ln} = $newAttr;
-   $$newAttr->{
- 'owner'
- } = $self;
-   Scalar::Util::weaken ($$newAttr->{
- 'owner'
- });
-   $newAttr->
- specified
-  (
- );
-   if (defined $current) {
-     CORE::delete $$current->{
- 'owner'
- };
-     $r = $current;
-   }
- }
- }
- $r}
- sub set_attribute_node_ns ($$) {
- my ($self, $newAttr) = @_;
- my $r;
- {
- my
- $self_od = $self->
- owner_document
- ;
- my $strict = $self_od->
- strict_error_checking
- ;
- if ($strict and
-     not $self_od eq $newAttr->
- owner_document
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newAttr;
- ;
- }
- my $nsuri = $newAttr->
- namespace_uri
- ;
- $nsuri = '' unless defined $nsuri;
- my $ln = $newAttr->
- local_name
- ;
- CORE::delete $$self->{
- 'sattrs'
- };
- my $attrs = $$self->{
- 'attr'
- };
- my $current = $attrs->{$nsuri}->{$ln};
- if (defined $newAttr->
- owner_element
- ) {
-   if (defined $current and $current eq $newAttr) {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'rdata' => $newAttr, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-     ## No return value
-   } else {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INUSE_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newAttr;
- ;
-   }
- } else { # not in use
-   if ($strict and $self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-   }
-   $attrs->{$nsuri}->{$ln} = $newAttr;
-   $$newAttr->{
- 'owner'
- } = $self;
-   Scalar::Util::weaken ($$newAttr->{
- 'owner'
- });
-   $newAttr->
- specified
-  (
- );
-   if (defined $current) {
-     CORE::delete $$current->{
- 'owner'
- };
-     $r = $current;
-   }
- }
- }
- $r}
- sub remove_attribute ($$) {
- my ($self, $name) = @_;
- {
- my
- $list;
- my $key;
- my $attr;
- {
- my
- $__attr = ${$self}->{
- 'attr'
- };
- ## Note that we no longer support DOM Level 1 nodes.
- ## If an attribute's qualified name is equal to
- ## the requested name, then the node is the answer.
- ## Note that if there is a namespace ill-formed attribute,
- ## the result is not the expected one.  For example,
- ## if an |xmlns| attribute in the |http://www.w3.org/2000/xmlns/|
- ## namespace has non-NULL |prefix|, a request to get |xmlns|
- ## attribute will not return that node.
- ## |sort|ing is required so that every |getAttribute|, |setAttribute|,
- ## |hasAttribute|, |removeAttribute|, or any other namespace unaware
- ## methods operates on the same node even if there is
- ## multiple nodes with the same qualified name.
- NS: for my $__ns (sort {$a cmp $b} keys %$__attr) {
-   for my $__ln (sort {$a cmp $b} keys %{$__attr->{$__ns}}) {
-     my $__node = $__attr->{$__ns}->{$__ln};
-     if ($__node->
- node_name eq
- $name) {
- ;
- {
- $attr = $__node;
-         $list = $__attr->{$__ns};
-         $key = $__ln;
-         CORE::delete ${$__node}->{
- 'sattrs'
- };
- }
- ;
-       last NS;
-     }
-   } # ln
- } # NS
- }
- ;
- if (defined $attr) {
-   if ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'remove_attribute', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
+     return undef; # not found
+   } # ATTR
- ;
+   my $od = ${$_[0]}->{owner_document};
+   if ($$od->{strict_error_checking} and ${$_[0]}->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
    }
-   ## Remove the attribute node
+   delete $list->{$key};
-   CORE::delete $list->{$key};
+   delete $$attr_node->{owner_element};
-   CORE::delete $$attr->{
+   $$attr_node->{specified} = 1;
- 'owner'
+   delete ${$_[0]}->{manakai_content_attribute_list};
- };
    ## Default attribute
-   my $doc = $self->
+   local $Error::Depth = $Error::Depth + 1;
- owner_document
+   my $cfg = $od->dom_config;
- ;
+   if ($cfg->get_parameter
-   my $doc_cfg = $doc->
+       (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute>)) {
- dom_config
+     my $doctype = $od->doctype;
- ;
+     if ($doctype) {
-   if ($doc_cfg->
+       my $et = $doctype->get_element_type_definition_node
- get_parameter
+           ($_[0]->manakai_tag_name);
+       if ($et) {
-                   (
+         my $at = $et->get_attribute_definition_node ($name);
- 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'
+         if ($at) {
- )) {
+           local $$od->{strict_error_checking} = 0;
-     my $prefix;
+           my $copy_asis = $cfg->get_parameter
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree>);
+           $cfg->set_parameter
- {
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1);
+           ADD: {
+             my $def_attr_node;
- {
+             my $def_prefix = $attr_node->prefix;
+             my $def_nsuri = '';
- local $Error::Depth = $Error::Depth + 1;
+             my $def_ln;
+             if (defined $def_prefix) {
- {
+               $def_nsuri =
+                   $def_prefix eq 'xml' ? q<http://www.w3.org/XML/1998/namespace>:
+                   $def_prefix eq 'xmlns' ? q<http://www.w3.org/2000/xmlns/>:
-   my
+                   $_[0]->lookup_namespace_uri ($def_prefix);
- $__doctype = $doc->
+               unless (defined $def_nsuri) {
- doctype
+                 ## TODO: Namespace well-formedness error...
- ;
+               }
-   $__doctype = $__doctype->
+               $def_ln = $attr_node->manakai_local_name;
- get_feature
+             } else {
-  (
+               $def_nsuri = $name eq 'xmlns'
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
+                   ? q<http://www.w3.org/2000/xmlns/> : undef;
- )
+               $def_ln = $name;
-     if $__doctype;
-   if (defined $__doctype) {
-     my $__et = $__doctype->
- get_element_type_definition_node
-                              ($self->node_name);
-     if (defined $__et) {
-       my $__orig_strict = $doc->
- strict_error_checking
- ;
-       $doc->
- strict_error_checking
-  (
- );
-       my $__at = $__et->
- get_attribute_definition_node
-  ($name);
-       if (defined $__at) {
-         my $__copy_asis = $doc_cfg->
- get_parameter
-                                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
- );
-         $doc_cfg->
- set_parameter
-                   (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  =>
- );
-         ADD: {
-           my $__attr;
-           CORE::delete $$self->{
- 'sattrs'
- };
-           my $__attrs = ${$self}->{
- 'attr'
- };
-           if (defined $prefix) {   ## prefixed attr
-             my $__nsuri = $self->
- lookup_namespace_uri
-                                       ($prefix);
-             unless (defined $__nsuri) {
-               ## TODO: Namespace well-formedness error
              }
-             if (defined $__attrs->{defined $__nsuri ? $__nsuri : ''}
+             if ($attr->{defined $def_nsuri ? $def_nsuri : ''}->{$def_ln}) {
-                                 ->{$name}) {
                ## TODO: Namespace well-formedness warning?
                last ADD;
              }
-             $__attr = $doc->
+             $def_attr_node = $od->create_attribute_ns
- create_attribute_ns
+                 ($def_nsuri, [$def_prefix, $def_ln]);
-                                    ($__nsuri, [$prefix, $name]);
+             for my $child (@{$at->child_nodes}) {
-           } else {                ## local attr
+               $def_attr_node->append_child ($child->clone_node (1));
-             if ($name eq 'xmlns') {
-               if (defined $__attrs->{
- 'http://www.w3.org/2000/xmlns/'
- }->{xmlns}) {
-                 ## TODO: Namespace well-formedness warning?
-                 last ADD;
-               }
-               $__attr = $doc->
- create_attribute_ns
-                                      (
- 'http://www.w3.org/2000/xmlns/'
- , 'xmlns');
-             } else {
-               if (defined $__attrs->{''}->{$name}) {
-                 ## TODO: Namespace well-formedness warning?
-                 last ADD;
-               }
-               $__attr = $doc->
- create_attribute
-  ($name);
              }
-           }
+             $def_attr_node->manakai_attribute_type ($at->declared_type);
-           for my $__at_child (@{$__at->
+             $attr->{defined $def_nsuri ? $def_nsuri : ''}->{$def_ln}
- child_nodes
+                 = $def_attr_node;
- }) {
+             $$def_attr_node->{owner_element} = $_[0];
-             $__attr->
+             Scalar::Util::weaken ($$def_attr_node->{owner_element});
- append_child
+             delete $$def_attr_node->{specified};
+           } # ADD
-                        ($__at_child->
+           $cfg->set_parameter
- clone_node
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => $copy_asis);
-  (
+         }
- ));
-           }
-           $__attr->
- manakai_attribute_type
-                      ($__at->
- declared_type
- );
-           $self->
- set_attribute_node_ns
-  ($__attr);
-                         ## This method change the |specified| flag
-           $__attr->
- specified
-  (
- );
-         } # ADD
-         $doc_cfg->
- set_parameter
-                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  => $__copy_asis);
        }
-       $doc->
+     }
- strict_error_checking
-  ($__orig_strict);
-     } # et
-   } # doctype
- }
- ;}
- ;
- }
- ;
    }
- } # exists
+   return undef;
+ } # remove_attribute
- }
+ sub remove_attribute_node ($$) {
- }
+   my $od = ${$_[0]}->{owner_document};
- sub remove_attribute_ns ($$$) {
+   if ($$od->{strict_error_checking} and ${$_[0]}->{manakai_read_only}) {
- my ($self, $namespaceURI, $localName) = @_;
+     report Message::DOM::DOMException
+         -object => $_[0],
- {
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
- if
+   }
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
+   my $attr_node = $_[1];
+   my $ln = $attr_node->manakai_local_name;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
+   my $attr = ${$_[0]}->{attributes};
+   FIND: {
- ;
+     my $nsuri = $attr_node->namespace_uri;
+     my $list = $attr->{defined $nsuri ? $nsuri : ''};
-   $namespaceURI = undef;
+     my $list_node = $list->{$ln};
- }
+     if (defined $list_node and $list_node eq $attr_node) {
+       delete $list->{$ln};
+       last FIND;
- }
+     }
- {
+     report Message::DOM::DOMException
+         -object => $_[0],
- my
+         -type => 'NOT_FOUND_ERR',
- $list;
+         -subtype => 'NOT_CHILD_ERR';
- my $attr;
+   } # FIND
+   delete ${$_[0]}->{manakai_content_attribute_list};
- {
+   delete $$attr_node->{owner_element};
+   $$attr_node->{specified} = 1;
- my
- $__attrs = ${$self}->{
- 'attr'
- };
- $list = $__attrs->{defined $namespaceURI ? $namespaceURI : ''};
- if (defined $list and defined $list->{$localName}) {
-   $attr = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
-                         ->{$localName};
-   CORE::delete ${$self}->{
- 'sattrs'
- };
- }
- }
- ;
- if (defined $attr) {
-   if ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'remove_attribute_ns', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
-   }
-   ## Removes the attribute node
-   CORE::delete $list->{$localName};
-   CORE::delete $$attr->{
- 'owner'
- };
    ## Default attribute
-   my $doc = $self->
+   ## Same as |remove_attribute|'s, except where marked as "***".
- owner_document
+   local $Error::Depth = $Error::Depth + 1;
- ;
+   my $cfg = $od->dom_config;
-   my $doc_cfg = $doc->
+   if ($cfg->get_parameter
- dom_config
+       (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute>)) {
- ;
+     my $doctype = $od->doctype;
-   if ($doc_cfg->
+     if ($doctype) {
- get_parameter
+       my $et = $doctype->get_element_type_definition_node
+           ($_[0]->manakai_tag_name);
-                   (
+       if ($et) {
- 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'
+         my $at = $et->get_attribute_definition_node ($_[1]->manakai_name); # ***
- )) {
+         if ($at) {
-     my $pfx = $attr->
+           local $$od->{strict_error_checking} = 0;
- prefix
+           my $copy_asis = $cfg->get_parameter
- ;
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree>);
-     my $name = defined $pfx ? $pfx.':'.$localName : $localName;
+           $cfg->set_parameter
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1);
+           ADD: {
- {
+             my $def_attr_node;
+             my $def_prefix = $attr_node->prefix;
+             my $def_nsuri = '';
- {
+             my $def_ln;
+             if (defined $def_prefix) {
- local $Error::Depth = $Error::Depth + 1;
+               $def_nsuri =
+                   $def_prefix eq 'xml' ? q<http://www.w3.org/XML/1998/namespace>:
- {
+                   $def_prefix eq 'xmlns' ? q<http://www.w3.org/2000/xmlns/>:
+                   $_[0]->lookup_namespace_uri ($def_prefix);
+               unless (defined $def_nsuri) {
-   my
+                 ## TODO: Namespace well-formedness error...
- $__doctype = $doc->
+               }
- doctype
+               $def_ln = $attr_node->manakai_local_name;
- ;
+             } else {
-   $__doctype = $__doctype->
+               $def_nsuri = $attr_node->manakai_name eq 'xmlns'
- get_feature
+                   ? q<http://www.w3.org/2000/xmlns/> : undef;
-  (
+               $def_ln = $attr_node->manakai_local_name; ## ***
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
- )
-     if $__doctype;
-   if (defined $__doctype) {
-     my $__et = $__doctype->
- get_element_type_definition_node
-                              ($self->node_name);
-     if (defined $__et) {
-       my $__orig_strict = $doc->
- strict_error_checking
- ;
-       $doc->
- strict_error_checking
-  (
- );
-       my $__at = $__et->
- get_attribute_definition_node
-  ($name);
-       if (defined $__at) {
-         my $__copy_asis = $doc_cfg->
- get_parameter
-                                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
- );
-         $doc_cfg->
- set_parameter
-                   (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  =>
- );
-         ADD: {
-           my $__attr;
-           CORE::delete $$self->{
- 'sattrs'
- };
-           my $__attrs = ${$self}->{
- 'attr'
- };
-           if (defined $pfx) {   ## prefixed attr
-             my $__nsuri = $self->
- lookup_namespace_uri
-                                       ($pfx);
-             unless (defined $__nsuri) {
-               ## TODO: Namespace well-formedness error
              }
-             if (defined $__attrs->{defined $__nsuri ? $__nsuri : ''}
+             if ($attr->{defined $def_nsuri ? $def_nsuri : ''}->{$def_ln}) {
-                                 ->{$localName}) {
                ## TODO: Namespace well-formedness warning?
                last ADD;
              }
-             $__attr = $doc->
+             $def_attr_node = $od->create_attribute_ns
- create_attribute_ns
+                 ($def_nsuri, [$def_prefix, $def_ln]);
-                                    ($__nsuri, [$pfx, $localName]);
+             for my $child (@{$at->child_nodes}) {
-           } else {                ## local attr
+               $def_attr_node->append_child ($child->clone_node (1));
-             if ($name eq 'xmlns') {
-               if (defined $__attrs->{
- 'http://www.w3.org/2000/xmlns/'
- }->{xmlns}) {
-                 ## TODO: Namespace well-formedness warning?
-                 last ADD;
-               }
-               $__attr = $doc->
- create_attribute_ns
-                                      (
- 'http://www.w3.org/2000/xmlns/'
- , 'xmlns');
-             } else {
-               if (defined $__attrs->{''}->{$name}) {
-                 ## TODO: Namespace well-formedness warning?
-                 last ADD;
-               }
-               $__attr = $doc->
- create_attribute
-  ($name);
              }
-           }
+             $def_attr_node->manakai_attribute_type ($at->declared_type);
-           for my $__at_child (@{$__at->
+             $attr->{defined $def_nsuri ? $def_nsuri : ''}->{$def_ln}
- child_nodes
+                 = $def_attr_node;
- }) {
+             $$def_attr_node->{owner_element} = $_[0];
-             $__attr->
+             Scalar::Util::weaken ($$def_attr_node->{owner_element});
- append_child
+             delete $$def_attr_node->{specified};
+           } # ADD
-                        ($__at_child->
+           $cfg->set_parameter
- clone_node
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => $copy_asis);
-  (
+         }
- ));
-           }
-           $__attr->
- manakai_attribute_type
-                      ($__at->
- declared_type
- );
-           $self->
- set_attribute_node_ns
-  ($__attr);
-                         ## This method change the |specified| flag
-           $__attr->
- specified
-  (
- );
-         } # ADD
-         $doc_cfg->
- set_parameter
-                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  => $__copy_asis);
        }
-       $doc->
+     }
- strict_error_checking
-  ($__orig_strict);
-     } # et
-   } # doctype
- }
- ;}
- ;
- }
- ;
-   }
- } # exists
- }
- }
- sub remove_attribute_node ($$) {
- my ($self, $oldAttr) = @_;
- my $r;
- {
- my
- $od = $self->
- owner_document
- ;
- if ($od->
- strict_error_checking and
- $self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'remove_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement';
- ;
- }
- my $ln = $oldAttr->
- local_name
- ;
- FIND: {
-   CORE::delete $$self->{
- 'sattrs'
- };
-   my $attrs = $$self->{
- 'attr'
- };
-   my $nsuri = $oldAttr->
- namespace_uri
- ;
-   my $list = $attrs->{defined $nsuri ? $nsuri : ''};
-   my $list_node = $list->{$ln};
-   if (defined $list_node and $list_node eq $oldAttr) {
-     CORE::delete $list->{$ln};
-     last FIND;
    }
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'remove_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_ATTR_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldAttr;
- ;
- } # FIND
- CORE::delete $$oldAttr->{
- 'owner'
- };
- $r = $oldAttr;
- ## Default attribute
- my $doc_cfg = $od->
- dom_config
- ;
- if ($doc_cfg->
- get_parameter
-                 (
- 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'
- )) {
-   my $name = $oldAttr->
- node_name
- ;
-   my $pfx = $oldAttr->
- prefix
- ;
- {
+   return $_[1];
+ } # remove_attribute_node
- {
+ sub remove_attribute_ns ($$$) {
+   my $attr = ${$_[0]}->{attributes};
- local $Error::Depth = $Error::Depth + 1;
- {
+   my $list = $attr->{defined $_[1] ? $_[1] : ''};
+   my $key = ''.$_[2];
+   my $attr_node = $list->{$key};
+   return undef unless defined $attr_node;
+   ## NOTE: Anything below is same as |remove_attribute|'s except "***"
+   my $od = ${$_[0]}->{owner_document};
+   if ($$od->{strict_error_checking} and ${$_[0]}->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
+   delete $list->{$key};
+   delete $$attr_node->{owner_element};
+   $$attr_node->{specified} = 1;
+   delete ${$_[0]}->{manakai_content_attribute_list};
-   my
+   ## Default attribute
- $__doctype = $od->
+   local $Error::Depth = $Error::Depth + 1;
- doctype
+   my $cfg = $od->dom_config;
- ;
+   if ($cfg->get_parameter
-   $__doctype = $__doctype->
+       (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute>)) {
- get_feature
+     my $doctype = $od->doctype;
-  (
+     if ($doctype) {
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
+       my $et = $doctype->get_element_type_definition_node
- )
+           ($_[0]->manakai_tag_name);
-     if $__doctype;
+       if ($et) {
-   if (defined $__doctype) {
+         my $at = $et->get_attribute_definition_node
-     my $__et = $__doctype->
+             ($attr_node->manakai_name); # ***
- get_element_type_definition_node
+         if ($at) {
+           local $$od->{strict_error_checking} = 0;
-                              ($self->node_name);
+           my $copy_asis = $cfg->get_parameter
-     if (defined $__et) {
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree>);
-       my $__orig_strict = $od->
+           $cfg->set_parameter
- strict_error_checking
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1);
- ;
+           ADD: {
-       $od->
+             my $def_attr_node;
- strict_error_checking
+             my $def_prefix = $attr_node->prefix;
-  (
+             my $def_nsuri = '';
+             my $def_ln;
- );
+             if (defined $def_prefix) {
+               $def_nsuri =
-       my $__at = $__et->
+                   $def_prefix eq 'xml' ? q<http://www.w3.org/XML/1998/namespace>:
- get_attribute_definition_node
+                   $def_prefix eq 'xmlns' ? q<http://www.w3.org/2000/xmlns/>:
-  ($name);
+                   $_[0]->lookup_namespace_uri ($def_prefix);
-       if (defined $__at) {
+               unless (defined $def_nsuri) {
-         my $__copy_asis = $doc_cfg->
+                 ## TODO: Namespace well-formedness error...
- get_parameter
+               }
+             } else {
-                                (
+               $def_nsuri = $attr_node->manakai_name eq 'xmlns'
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
+                   ? q<http://www.w3.org/2000/xmlns/> : undef;
- );
-         $doc_cfg->
- set_parameter
-                   (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  =>
- );
-         ADD: {
-           my $__attr;
-           CORE::delete $$self->{
- 'sattrs'
- };
-           my $__attrs = ${$self}->{
- 'attr'
- };
-           if (defined $pfx) {   ## prefixed attr
-             my $__nsuri = $self->
- lookup_namespace_uri
-                                       ($pfx);
-             unless (defined $__nsuri) {
-               ## TODO: Namespace well-formedness error
              }
-             if (defined $__attrs->{defined $__nsuri ? $__nsuri : ''}
+             $def_ln = $attr_node->manakai_local_name; # ***
-                                 ->{$ln}) {
+             if ($attr->{defined $def_nsuri ? $def_nsuri : ''}->{$def_ln}) {
                ## TODO: Namespace well-formedness warning?
                last ADD;
              }
-             $__attr = $od->
+             $def_attr_node = $od->create_attribute_ns
- create_attribute_ns
+                 ($def_nsuri, [$def_prefix, $def_ln]);
-                                    ($__nsuri, [$pfx, $ln]);
+             for my $child (@{$at->child_nodes}) {
-           } else {                ## local attr
+               $def_attr_node->append_child ($child->clone_node (1));
-             if ($name eq 'xmlns') {
-               if (defined $__attrs->{
- 'http://www.w3.org/2000/xmlns/'
- }->{xmlns}) {
-                 ## TODO: Namespace well-formedness warning?
-                 last ADD;
-               }
-               $__attr = $od->
- create_attribute_ns
-                                      (
- 'http://www.w3.org/2000/xmlns/'
- , 'xmlns');
-             } else {
-               if (defined $__attrs->{''}->{$name}) {
-                 ## TODO: Namespace well-formedness warning?
-                 last ADD;
-               }
-               $__attr = $od->
- create_attribute
-  ($name);
              }
-           }
+             $def_attr_node->manakai_attribute_type ($at->declared_type);
-           for my $__at_child (@{$__at->
+             $attr->{defined $def_nsuri ? $def_nsuri : ''}->{$def_ln}
- child_nodes
+                 = $def_attr_node;
- }) {
+             $$def_attr_node->{owner_element} = $_[0];
-             $__attr->
+             Scalar::Util::weaken ($$def_attr_node->{owner_element});
- append_child
+             delete $$def_attr_node->{specified};
+           } # ADD
-                        ($__at_child->
+           $cfg->set_parameter
- clone_node
+               (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => $copy_asis);
-  (
+         }
- ));
-           }
-           $__attr->
- manakai_attribute_type
-                      ($__at->
- declared_type
- );
-           $self->
- set_attribute_node_ns
-  ($__attr);
-                         ## This method change the |specified| flag
-           $__attr->
- specified
-  (
- );
-         } # ADD
-         $doc_cfg->
- set_parameter
-                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  => $__copy_asis);
-       }
-       $od->
- strict_error_checking
-  ($__orig_strict);
-     } # et
-   } # doctype
- }
- ;}
- ;
- }
- ;
- }
- }
- $r}
- sub schema_type_info ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- {
- my
- $v = 0 || 0;
- $r = bless \$v,
- 'Message::DOM::Element::ManakaiDOMDTDTypeInfo'
- ;
- }
- ;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'schema_type_info';
- }
- }
- sub get_elements_by_tag_name ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- $name = "$name";
- my $chk;
- if ($name eq '*') {
-   $chk = sub {
-  };
- } else {
-   $chk = sub {
-     my $node = shift;
-     my $nodeName = $node->
- node_name
- ;
-     ($nodeName eq $name);
-   };
- }
- {
- $r = bless \[$self, $chk],
- 'Message::DOM::TreeCore::ManakaiDOMGetElementsNodeList'
- ;
- }
- ;
- }
- $r}
- sub get_elements_by_tag_name_ns ($$$) {
- my ($self, $namespaceURI, $localName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r;
- {
- $namespaceURI = "$namespaceURI" if defined $namespaceURI;
- $localName = "$localName";
- my $chk;
- if (not defined $namespaceURI) {
-   if ($localName eq '*') {
-     $chk = sub {
-       my $node = shift;
-       (not defined $node->
- namespace_uri
- );
-     };
-   } else {
-     $chk = sub {
-       my $node = shift;
-       (not defined $node->
- namespace_uri and
- $node->
- local_name eq
- $localName);
-     };
-   }
- } elsif ($namespaceURI eq '*') {
-   if ($localName eq '*') {
-     $chk = sub {
-  };
-   } else {
-     $chk = sub {
-       my $node = shift;
-       ($node->
- local_name eq
- $localName);
-     };
-   }
- } else {
-   if ($localName eq '*') {
-     $chk = sub {
-       my $node = shift;
-       my $nsuri = $node->
- namespace_uri
- ;
-       (defined $nsuri and $nsuri eq $namespaceURI);
-     };
-   } else {
-     $chk = sub {
-       my $node = shift;
-       my $nsuri = $node->
- namespace_uri
- ;
-       (defined $nsuri and $nsuri eq $namespaceURI and
-        $node->
- local_name eq
- $localName);
-     };
-   }
- }
- {
- $r = bless \[$self, $chk],
- 'Message::DOM::TreeCore::ManakaiDOMGetElementsNodeList'
- ;
- }
- ;
- }
- $r}
- sub manakai_base_uri ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- $r = $$self->{
- 'buri'
- };
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- $$self->{
- 'buri'
- } = $given;
- }
- }
- }
- sub set_id_attribute ($$;$) {
- my ($self, $name, $isId) = @_;
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- my $attr = $self->
- get_attribute_node
-  ($name);
- if (not defined $attr) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_id_attribute', 'http://www.w3.org/2001/04/infoset#namespaceName' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NO_NAMED_NODE_NS_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'name', 'http://www.w3.org/2001/04/infoset#localName' => $name;
- ;
- } elsif ($attr->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_id_attribute', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_ATTR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'name', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $attr;
- ;
- } else {
-   $attr->
- is_id
-  ($isId);
- }
- }
- }
- sub set_id_attribute_ns ($$$;$) {
- my ($self, $namespaceURI, $localName, $isId) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- my $attr = $self->
- get_attribute_node_ns
-                     ($namespaceURI, $localName);
- if (not defined $attr) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_id_attribute_ns', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NO_NAMED_NODE_NS_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'name', 'http://www.w3.org/2001/04/infoset#localName' => $localName;
- ;
- } elsif ($attr->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_id_attribute_ns', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_ATTR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'name', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $attr;
- ;
- } else {
-   $attr->
- is_id
-  ($isId);
- }
- }
- }
- sub set_id_attribute_node ($$;$) {
- my ($self, $idAttr, $isId) = @_;
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- my $owner = $idAttr->
- owner_element
- ;
- if (not defined $owner or not $owner eq $self) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_id_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_ATTR_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'idAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $idAttr;
- ;
- } elsif ($idAttr->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'set_id_attribute_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_ATTR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'name', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $idAttr;
- ;
- } else {
-   $idAttr->
- is_id
-  ($isId);
- }
- }
- }
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMElement>}->{has_feature} = {'core',
- {'',
- '1',
- '1.0',
- '1',
- '2.0',
- '1',
- '3.0',
- '1'},
- 'xml',
- {'',
- '1',
- '1.0',
- '1',
- '2.0',
- '1',
- '3.0',
- '1'},
- 'xmlversion',
- {'',
- '1',
- '1.0',
- '1',
- '1.1',
- '1'}};
- $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMElement>} = 14.1;
- package Message::DOM::IF::Attr;
- our $VERSION = 20061231.0930;
- package Message::DOM::Element::ManakaiDOMAttr;
- our $VERSION = 20061231.0930;
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::Attr',
- 'Message::DOM::IF::Node';
- use Char::Class::XML 'InXMLNameChar10',
- 'InXMLNameChar11',
- 'InXMLNameStartChar11',
- 'InXML_NameStartChar10';
- sub node_type ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- $r = 2;
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
- }
- }
- sub prefix ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- my
- $v = $$self->{
- 'pfx'
- };
- $r = defined $v ? $$v :
- undef
- ;
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- my
- $od = $self->
- owner_document
- ;
- if ($od->
- strict_error_checking
- ) {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
-   my $nsuri = $$self->{
- 'ns'
- };
-   if (not defined $nsuri) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://www.w3.org/2001/04/infoset#prefix' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'prefix';
- ;
-   } elsif ($$nsuri ne
- 'http://www.w3.org/XML/1998/namespace' and
- defined $given and $given eq 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $self->namespace_uri, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://www.w3.org/2001/04/infoset#prefix' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'prefix';
- ;
-   } elsif ($$nsuri ne
- 'http://www.w3.org/2000/xmlns/' and
- defined $given and $given eq 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $self->namespace_uri, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://www.w3.org/2001/04/infoset#prefix' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'prefix';
- ;
-   } elsif ($self->
- node_name eq
- 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $self->namespace_uri, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://www.w3.org/2001/04/infoset#prefix' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_QNAME_IS_XMLNS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'prefix';
- ;
-   }
-   my $version = $od->
- xml_version
- ;
- {
- if
- (defined $given and $given eq '') {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-prefix', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureNamespacePrefix';
- ;
-   undef $given;
- }
- if (defined $given) {
-   if (($version eq '1.0' and
-        not
- ($given =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-       ($version eq '1.1' and
-        not
- ($given =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://www.w3.org/2001/04/infoset#name' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureNamespacePrefix', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-   } elsif (index ($given, ':') > -1) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#name' => $given, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_BAD_NCNAME', 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ensureNamespacePrefix', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-   }
- } # has prefix
- }
- ;
- } # strict
- if (defined $given) {
-   $$self->{
- 'pfx'
- } = \$given;
- } else {
-   CORE::delete $$self->{
- 'pfx'
- };
- }
- }
- }
- }
- sub append_child ($$) {
- my ($self, $newChild) = @_;
- my $r;
- {
- my
- $self_od = $self->
- owner_document
- ;
- my $child_od = $newChild->
- owner_document
- ;
- my $child_nt = $newChild->
- node_type
- ;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self_od->
- strict_error_checking
- ;
-   ## -- Node Type check
-   my @new_child;
-   if ({
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
        }
-       push @new_child, $cn;
      }
-   } else {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
-   my $nc_parent = @new_child ? $new_child[0]->
+   return undef;
- parent_node
+ } # remove_attribute_ns
-                              :
- undef
- ;
-   if ($strict) {
-     ## -- Wrong-document check
-     unless ($self_od eq $child_od) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
+ sub set_attribute ($$$) {
+   my $od = ${$_[0]}->{owner_document};
+   if ($$od->{strict_error_checking}) {
- }
+     if (${$_[0]}->{manakai_read_only}) {
+       report Message::DOM::DOMException
+           -object => $_[0],
- ;}
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
- ;
      }
-     if (@new_child) {
+   }
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
- }
- ;}
- ;
+   my $name = ''.$_[1];
+   my $attr = ${$_[0]}->{attributes};
+   my $attr_node;
+   NS: for my $ns (keys %$attr) {
+     for my $ln (keys %{$attr->{$ns}}) {
+       my $node = $attr->{$ns}->{$ln};
+       if ($node->manakai_name eq $name) {
+         $attr_node = $node;
+         last NS;
        }
      }
    }
-   ## -- Insert at...
-   my $index = -1; # last
+   local $Error::Depth = $Error::Depth + 1;
- ; # FOR !tc:ForAppendChild
+   if (defined $attr_node) {
+     if ($$od->{strict_error_checking}) {
-   ## -- Removes from parent
+       $od->create_attribute ($name); # or exception
-   if ($nc_parent) {
+     }
-     if ($child_nt ==
+   } else {
+     $attr_node = $od->create_attribute ($name); # return or exception
- ) {
+     delete ${$_[0]}->{manakai_content_attribute_list};
-       $$newChild->{
+     $attr->{''}->{$name} = $attr_node;
- 'child'
+     $$attr_node->{owner_element} = $_[0];
- } = [];
+     Scalar::Util::weaken ($$attr_node->{owner_element});
-     } else {
-       my $v = $$nc_parent->{
+     if ($od->dom_config->get_parameter
- 'child'
+           (q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type>)) {
- };
+       my $doctype = $od->doctype;
-       RP: for my $i (0..$#$v) {
+       if (defined $doctype) {
-         if ($v->[$i] eq $new_child[0]) {
+         my $et = $doctype->get_element_type_definition_node
-           splice @$v, $i, 1, ();
+             ($_[0]->manakai_tag_name);
-           last RP;
+         if (defined $et) {
+           my $at = $et->get_attribute_definition_node ($attr_node->manakai_name);
+           if (defined $at) {
+             $attr_node->manakai_attribute_type ($at->declared_type);
+           }
          }
-       } # RP
-     }
-   }
-   ## -- Rewrite the |parentNode| properties
-   for my $nc (@new_child) {
-     $$nc->{
- 'parent'
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- {
- ## -- Adds to children list
-     push @$children, @new_child;
-     $r = $newChild;
- }
- ;
- ;
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub insert_before ($$;$) {
- my ($self, $newChild, $refChild) = @_;
- my $r;
- {
- my
- $self_od = $self->
- owner_document
- ;
- my $child_od = $newChild->
- owner_document
- ;
- my $child_nt = $newChild->
- node_type
- ;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self_od->
- strict_error_checking
- ;
-   ## -- Node Type check
-   my @new_child;
-   if ({
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
        }
-       push @new_child, $cn;
      }
-   } else {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
-   my $nc_parent = @new_child ? $new_child[0]->
+   $attr_node->value ($_[2]); # set or exception
- parent_node
+   $attr_node->specified (1);
-                              :
+   return undef;
+ } # set_attribute
- undef
- ;
-   if ($strict) {
-     ## -- Wrong-document check
-     unless ($self_od eq $child_od) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
+ sub set_attribute_node ($$) {
+   my ($self, $new_attr) = @_;
- {
+   local $Error::Depth = $Error::Depth + 1;
+   my $check = ${$$self->{owner_document}}->{strict_error_checking};
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
+   if ($check and $$self->{owner_document} ne $new_attr->owner_document) {
+     local $Error::Depth = $Error::Depth - 1;
+     report Message::DOM::DOMException
- }
+         -object => $self,
+         -type => 'WRONG_DOCUMENT_ERR';
+   }
- ;}
+   my $nsuri = $$new_attr->{namespace_uri};
- ;
+   $nsuri = '' unless defined $nsuri;
-     }
+   my $ln = $$new_attr->{local_name};
-     if (@new_child) {
-       if ($nc_parent and
+   delete $$self->{manakai_content_attribute_list};
-           $nc_parent->
+   my $attrs = $$self->{attributes};
- manakai_read_only
+   my $current = $attrs->{$nsuri}->{$ln};
- ) {
+   if (defined $$new_attr->{owner_element}) {
+     if (defined $current and $current eq $new_attr) {
- {
+       ## No effect
+       return undef; # no return value
- local $Error::Depth = $Error::Depth - 1;
+     } else {
+       local $Error::Depth = $Error::Depth - 1;
- {
+       report Message::DOM::DOMException
+           -object => $self,
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
+           -type => 'INUSE_ATTRIBUTE_ERR';
+     }
+   } elsif ($check and $$self->{manakai_read_only}) {
- }
+     report Message::DOM::DOMException
+         -object => $self,
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
+   $attrs->{$nsuri}->{$ln} = $new_attr;
+   $$new_attr->{owner_element} = $self;
+   Scalar::Util::weaken ($$new_attr->{owner_element});
+   $$new_attr->{specified} = 1;
+   if (defined $current) {
+     delete $$current->{owner_element};
+     $$current->{specified} = 1;
+   }
+   return $current;
+ } # set_attribute_node
- ;}
+ *set_attribute_node_ns = \&set_attribute_node;
- ;
+ ## The second parameter only supports manakai extended way
-       }
+ ## to specify qualified name - "[$prefix, $local_name]" ## TODO: Document
+ sub set_attribute_ns ($$$$) {
+   my $prefix;
+   my $lname;
+   if (ref $_[2] eq 'ARRAY') {
+     ($prefix, $lname) = @{$_[2]};
+   } else {
+     ($prefix, $lname) = split /:/, $_[2], 2;
+     ($prefix, $lname) = (undef, $prefix) unless defined $lname;
+   }
+   my $od = ${$_[0]}->{owner_document};
+   if ($$od->{strict_error_checking}) {
+     if (${$_[0]}->{manakai_read_only}) {
+       report Message::DOM::DOMException
+           -object => $_[0],
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
      }
    }
-   ## -- Insert at...
+   my $attr = ${$_[0]}->{attributes};
-   my $index = -1; # last
+   my $attr_node = $attr->{defined $_[1] ? ''.$_[1] : ''}->{$lname};
+   local $Error::Depth = $Error::Depth + 1;
- {
+   if (defined $attr_node) {
+     if ($$od->{strict_error_checking}) {
+       $od->create_attribute_ns ($_[1], [$prefix, $lname]); # name exception
- # tc:ForAppendChild & tc:ForReplaceChild
+     }
-     if (defined $refChild) {
+   } else {
-       if ($refChild eq $newChild) {
+     $attr_node = $od->create_attribute_ns
+         ($_[1], [$prefix, $lname]); # or exception
+     delete ${$_[0]}->{manakai_content_attribute_list};
- {
+     $attr->{defined $_[1] ? ''.$_[1] : ''}->{$lname} = $attr_node;
+     $$attr_node->{owner_element} = $_[0];
+     Scalar::Util::weaken ($$attr_node->{owner_element});
- {
+     if ($od->dom_config->get_parameter
- local $Error::Depth = $Error::Depth - 1;
+           (q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type>)) {
+       my $doctype = $od->doctype;
- {
+       if (defined $doctype) {
+         my $et = $doctype->get_element_type_definition_node
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
+             ($_[0]->manakai_tag_name);
+         if (defined $et) {
+           my $at = $et->get_attribute_definition_node ($attr_node->manakai_name);
- }
+           if (defined $at) {
+             $attr_node->manakai_attribute_type ($at->declared_type);
- ;}
- ;
- }
- ;
- ;
-       }
-       my $cns = $self->
- child_nodes
- ;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $refChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
            }
          }
+       }
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
- }
- ;}
- ;
- }
- ;
- ;
-       } # C
-     } else { # |oldChild| is not defined
- ;
-     }
- }
- ; # FOR !tc:ForAppendChild
-   ## -- Removes from parent
-   if ($nc_parent) {
-     if ($child_nt ==
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
    }
-   ## -- Rewrite the |parentNode| properties
+   $attr_node->value ($_[3]); # set or exception
-   for my $nc (@new_child) {
+   $attr_node->prefix ($prefix);
-     $$nc->{
+   $attr_node->specified (1);
- 'parent'
+   return undef;
- } = $self;
+ } # set_attribute_ns
-     Scalar::Util::weaken ($$nc->{
- 'parent'
+ sub set_id_attribute ($$$) {
- });
+   if (${${$_[0]}->{owner_document}}->{strict_error_checking} and
+       ${$_[0]}->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
+   my $attr = $_[0]->get_attribute_node ($_[1]);
+   if (not defined $attr) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NOT_FOUND_ERR',
+         -subtype => 'NOT_CHILD_ERR';
+   } else {
+     local $Error::Depth = $Error::Depth + 1;
+     $attr->is_id ($_[2]); # or exception
+   }
+   return;
+ } # set_id_attribute
+ sub set_id_attribute_ns ($$$$) {
+   if (${${$_[0]}->{owner_document}}->{strict_error_checking} and
+       ${$_[0]}->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
+   my $attr = $_[0]->get_attribute_node_ns ($_[1], $_[2]);
+   if (not defined $attr) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NOT_FOUND_ERR',
+         -subtype => 'NOT_CHILD_ERR';
+   } else {
+     local $Error::Depth = $Error::Depth + 1;
+     $attr->is_id ($_[2]);
+   }
+   return;
+ } # set_id_attribute_ns
+ sub set_id_attribute_node ($$$$) {
+   if (${${$_[0]}->{owner_document}}->{strict_error_checking} and
+       ${$_[0]}->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
+   my $oe = $_[1]->owner_element;
+   if ($oe ne $_[0]) {
+     report Message::DOM::DOMException
+         -object => $_[0],
+         -type => 'NOT_FOUND_ERR',
+         -subtype => 'NOT_CHILD_ERR';
+   } else {
+     local $Error::Depth = $Error::Depth + 1;
+     $_[1]->is_id ($_[2]);
    }
+   return;
+ } # set_id_attribute_node
-   my $children = $$self->{
+ package Message::IF::Element;
- 'child'
- };
- ;
- {
- ## -- Adds to children list
-     if ($index == -1) {
-       push @$children, @new_child;
-     } else {
-       splice @$children, $index, 0, @new_child;
-     }
-     $r = $newChild;
- }
- ;
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub replace_child ($$$) {
- my ($self, $newChild, $oldChild) = @_;
- my $r;
- {
- my
+ package Message::DOM::Document;
- $self_od = $self->
- owner_document
- ;
- my $child_od = $newChild->
- owner_document
- ;
- my $child_nt = $newChild->
- node_type
- ;
+ sub create_element ($$) {
- {
+   my $self = $_[0];
+   if ($$self->{strict_error_checking}) {
+     my $xv = $self->xml_version;
- {
+     ## TODO: HTML Document ??
+     if (defined $xv) {
- local $Error::Depth = $Error::Depth + 1;
+       if ($xv eq '1.0' and
+           $_[1] =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/) {
- {
+         #
+       } elsif ($xv eq '1.1' and
+                $_[1] =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/) {
-   my
+         #
- $strict = $self_od->
+       } else {
- strict_error_checking
+         report Message::DOM::DOMException
- ;
+             -object => $self,
+             -type => 'INVALID_CHARACTER_ERR',
-   ## -- Node Type check
+             -subtype => 'MALFORMED_NAME_ERR';
-   my @new_child;
-   if ({
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
        }
-       push @new_child, $cn;
      }
-   } else {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
+   ## TODO: HTML5
-   my $nc_parent = @new_child ? $new_child[0]->
- parent_node
+   my $r = Message::DOM::Element->____new ($self, undef, undef, $_[1]);
-                              :
+   ## -- Default attributes
- undef
+   {
- ;
+     local $Error::Depth = $Error::Depth + 1;
-   if ($strict) {
+     my $cfg = $self->dom_config;
-     ## -- Wrong-document check
+     return $r
-     unless ($self_od eq $child_od) {
+         unless $cfg->get_parameter
+             (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute>);
- {
+     my $doctype = $self->doctype;
+     return $r unless defined $doctype;
- local $Error::Depth = $Error::Depth - 1;
+     my $et = $doctype->get_element_type_definition_node ($_[1]);
- {
+     return $r unless defined $et;
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
+     my $orig_strict = $self->strict_error_checking;
+     $self->strict_error_checking (0);
- }
+     my %gattr;
+     my %has_attr;
+     my %pfx_to_uri;
- ;}
+     my $copy_asis = $cfg->get_parameter
+         (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree>);
- ;
+     $cfg->set_parameter
-     }
+         (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1);
-     ## -- Read-onlyness check
+     for my $at (@{$et->attribute_definitions}) {
-     if ($self->
+       my $at_default = $at->default_type;
- manakai_read_only
+       if ($at_default == 4 or $at_default == 1) {
- ) {
+         # EXPLICIT_DEFAULT, FIXED_DEFAULT
+         my ($nn1, $nn2) = split /:/, $at->node_name;
+         if (defined $nn2) { # prefixed
- {
+           if ($nn1 eq 'xmlns') {
+             ## TODO: NCName check, prefix check and NSURI check
- local $Error::Depth = $Error::Depth - 1;
+             my $attr = $self->create_attribute_ns
+                 (q<http://www.w3.org/2000/xmlns/>, [$nn1, $nn2]);
- {
+             for my $at_child (@{$at->child_nodes}) {
+               $attr->append_child ($at_child->clone_node (1));
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
+             }
+             $attr->manakai_attribute_type ($at->declared_type);
+             my $nsuri = $attr->value;
- }
+             ## TODO: Namespace well-formedness check (NSURI), v1.1 chk
+             $pfx_to_uri{$nn2} = $nsuri;
+             $r->set_attribute_node_ns ($attr);
- ;}
+                 ## NOTE: This method changes |specified| flag
+             $attr->specified (0);
- ;
+             $has_attr{q<http://www.w3.org/2000/xmlns/>}->{$nn2} = 1;
-     }
+           } else {
-     if (@new_child) {
+             ## TODO: NCName check
-       if ($nc_parent and
+             $gattr{$nn1}->{$nn2} = $at;
-           $nc_parent->
+           }
- manakai_read_only
+         } else {            # no prefixed
- ) {
+           my $attr;
+           if ($nn1 eq 'xmlns') {
+             $attr = $self->create_attribute_ns
- {
+                 (q<http://www.w3.org/2000/xmlns/>, 'xmlns');
+             $has_attr{q<http://www.w3.org/2000/xmlns/>}->{xmlns} = 1;
- local $Error::Depth = $Error::Depth - 1;
+           } else {
+             $attr = $self->create_attribute_ns (undef, $nn1);
- {
+             ## TODO: NCName check
+           }
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
+           for my $at_child (@{$at->child_nodes}) {
+             $attr->append_child ($at_child->clone_node (1));
+           }
- }
+           $attr->manakai_attribute_type ($at->declared_type);
+           ## TODO: Namespace well-formedness check (NSURI)
+           $r->set_attribute_node_ns ($attr);
- ;}
+               ## NOTE: This method changes |specified| flag
+           $attr->specified (0);
- ;
+         }
        }
-     }
+     } # attrdefs
-   }
+     for my $pfx (keys %gattr) {
+       my $nsuri = $pfx_to_uri{$pfx};
-   ## -- Insert at...
+       unless (defined $nsuri) {
-   my $index = -1; # last
+         ## TODO: Namespace well-formedness error
- {
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $oldChild) {
-       if ($oldChild eq $newChild) {
- ;
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
- }
- ;
        }
+       LN: for my $ln (keys %{$gattr{$pfx}}) {
-       my $cns = $self->
+         if ($has_attr{defined $nsuri ? $nsuri : ''}->{$ln}) {
- child_nodes
+           ## TODO: Namespace well-formedness error
- ;
+           next LN;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $oldChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
-           }
          }
+         ## TODO: NCName check, prefix check and NSURI check
+         my $at = $gattr{$pfx}->{$ln};
- ;
+         my $attr = $self->create_attribute_ns ($nsuri, [$pfx, $ln]);
+         for my $at_child (@{$at->child_nodes}) {
+           $attr->append_child ($at_child->clone_node (1));
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-       } # C
-     } else { # |oldChild| is not defined
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-     }
- }
- ; # FOR !tc:ForAppendChild
-   ## -- Removes from parent
-   if ($nc_parent) {
-     if ($child_nt ==
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
          }
-       } # RP
+         $attr->manakai_attribute_type ($at->declared_type);
-     }
+         $r->set_attribute_node_ns ($attr);
+             ## NOTE: This method changes |specified| flag
+         $attr->specified (0);
+         $has_attr{defined $nsuri ? $nsuri : ''}->{$ln} = 1;
+       } # LN
+     } # pfx
+     $cfg->set_parameter
+         (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => $copy_asis);
+     $self->strict_error_checking ($orig_strict);
    }
-   ## -- Rewrite the |parentNode| properties
+   return $r;
-   for my $nc (@new_child) {
+ } # create_element
-     $$nc->{
- 'parent'
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- ;
- ;
- {
- ## -- Replaces the node
-     splice @$children, $index, 1, @new_child;
-     CORE::delete $$oldChild->{
- 'parent'
- };
-     $r = $oldChild;
- }
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub node_name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- my
- $prefix = $$self->{
- 'pfx'
- };
- my $lname = $$self->{
- 'ln'
- };
- $r = defined $prefix ? $$prefix.':'.$$lname : $$lname;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
- }
- }
- sub name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- my
- $prefix = $$self->{
- 'pfx'
- };
- my $lname = $$self->{
- 'ln'
- };
- $r = defined $prefix ? $$prefix.':'.$$lname : $$lname;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'name';
- }
- }
- sub node_value ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $r = '';
-    for my $child (@{$self->
- child_nodes
- }) {
-      if ($child->
- node_type
-  ==
- ) {
-        my $v = $child->
- text_content
- ;
-        $v =~ s/[\x09\x0A\x0D]/ /;
-        $r .= $v;
-      } else {
-        $r .= $child->
- text_content
- ;
-      }
-    } # childNodes
-    my $vt = $$self->{
- 'at'
- };
-    unless (not defined $vt or
-            $vt ==
-or
- $vt ==
-or
- $vt ==
- ) {
-      $r =~ s/\A\x20+//;
-      $r =~ s/\x20+\z//;
-      $r =~ s/\x20+/ /g;
-    }
-  if (defined $vt and $vt ==
-and
- $self->
- owner_document
- ->
- dom_config
-           ->
- get_parameter
-  (
- 'http://suika.fam.cx/www/2006/dom-config/xml-id'
- )) {
-    $r =~ s/[\x09\x0A\x0D\x20]+/ /g;
-    $r =~ s/\A //;
-    $r =~ s/ \z//;
-  }
- }
- ;}
- ;
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- for my $__old_child (@{${$self}->{
- 'child'
- }}) {
-   CORE::delete $$__old_child->{
- 'parent'
- };
- }
- my @__new_children;
- if (defined $given and length $given) {
-   my $__text = $self->owner_document->
- create_text_node
-  ($given);
-   push @__new_children, $__text;
-   $$__text->{
- 'parent'
- } = $self;
-   Scalar::Util::weaken ($$__text->{
- 'parent'
- });
- }
- ${$self}->{
- 'child'
- } = \@__new_children;
- }
- ;
- }
- }
- }
- sub manakai_append_text ($$) {
- my ($self, $string) = @_;
- my $r;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $lc = $self->
- last_child
- ;
-   if (defined $lc and
-       $lc->
- node_type
-  ==
- ) {
-     $lc->
- manakai_append_text
-            (ref $string eq 'SCALAR' ? $string : \$string);
-   } else {
-     my $text = $self->
- owner_document
-                     ->
- create_text_node
-                         (ref $string eq 'SCALAR' ? $$string : $string);
-     $self->
- append_child
-  ($text);
-   }
-   $r = $self;
- }
- ;}
- ;
- }
- $r}
- sub get_feature ($$$) {
- my ($self, $feature, $version) = @_;
- {
- $feature = lc $feature;
- }
- {
- $version = '' unless defined $version;
- }
- my $r;
- {
- $feature =~ s/^\+//;
- {
- if
- ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-   $r = $self;
- }
- }
- ;
- unless (defined $r) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $r = $self->SUPER::get_feature ($feature, $version);
- }
- ;}
- ;
- }
- }
+ sub create_element_ns ($$$) {
- $r}
+   my $self = $_[0];
- sub base_uri ($;$) {
+   my ($prefix, $lname);
- if (@_ == 1) {my ($self) = @_;
+   if (ref $_[2] eq 'ARRAY') {
- my $r = '';
+     ($prefix, $lname) = @{$_[2]};
+   } else {
- {
+     ($prefix, $lname) = split /:/, $_[2], 2;
+     ($prefix, $lname) = (undef, $prefix) unless defined $lname;
+   }
- {
+   my $nsuri = defined $_[1] ? $_[1] eq '' ? undef : $_[1] : undef;
- local $Error::Depth = $Error::Depth + 1;
+   if ($$self->{strict_error_checking}) {
+     my $xv = $self->xml_version;
- {
+     ## TODO: HTML Document ?? (NOT_SUPPORTED_ERR is different from what Web browsers do)
+     if (defined $xv) {
+       if ($xv eq '1.0') {
-   my
+         if (ref $_[2] eq 'ARRAY' or
- $oe = $self->
+             $_[2] =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/) {
- owner_element
+           if (defined $prefix) {
- ;
+             if ($prefix =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*\z/) {
-   if ($oe) {
+               #
-     my $ln = $self->local_name;
+             } else {
-     my $nsuri = $self->namespace_uri;
+               report Message::DOM::DOMException
-     if (($ln eq 'base' and defined $nsuri and $nsuri eq
+                   -object => $self,
- 'http://www.w3.org/XML/1998/namespace'
+                   -type => 'NAMESPACE_ERR',
- ) or
+                   -subtype => 'MALFORMED_QNAME_ERR';
-         ($ln eq 'xml:base' and not defined $nsuri)) {
+             }
-       my $oep = $oe->
+           }
- parent_node
+           if ($lname =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*\z/) {
- ;
+             #
-       if ($oep) {
+           } else {
-         $r = $oep->
+             report Message::DOM::DOMException
- base_uri
+                 -object => $self,
- ;
+                 -type => 'NAMESPACE_ERR',
+                 -subtype => 'MALFORMED_QNAME_ERR';
+           }
+         } else {
+           report Message::DOM::DOMException
+               -object => $self,
+               -type => 'INVALID_CHARACTER_ERR',
+               -subtype => 'MALFORMED_NAME_ERR';
+         }
+       } elsif ($xv eq '1.1') {
+         if (ref $_[2] eq 'ARRAY' or
+             $_[2] =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/) {
+           if (defined $prefix) {
+             if ($prefix =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*\z/) {
+               #
+             } else {
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'NAMESPACE_ERR',
+                   -subtype => 'MALFORMED_QNAME_ERR';
+             }
+           }
+           if ($lname =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*\z/) {
+             #
+           } else {
+             report Message::DOM::DOMException
+                 -object => $self,
+                 -type => 'NAMESPACE_ERR',
+                 -subtype => 'MALFORMED_QNAME_ERR';
+           }
+         } else {
+           report Message::DOM::DOMException
+               -object => $self,
+               -type => 'INVALID_CHARACTER_ERR',
+               -subtype => 'MALFORMED_NAME_ERR';
+         }
        } else {
-         $r = $self->
+         die "create_attribute_ns: XML version |$xv| is not supported";
- owner_document
- ->
- base_uri
- ;
        }
-     } else {
-       $r = $oe->
- base_uri
- ;
      }
-   } else {
-     $r = $self->
- owner_document
- ->
- base_uri
- ;
-   }
- }
- ;}
- ;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
- }
- }
- sub owner_element ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- $r = $$self->{
- 'owner'
- };
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_element';
- }
- }
- sub specified ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = 0;
- {
- $r = $$self->{
- 'specified'
- };
- unless ($r) {
-   unless (defined $$self->{
- 'owner'
- }) {
-     $r =
- ;
-   }
- }
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- unless ($given) {
-   $given = 1 unless defined $$self->{
- 'owner'
- };
- }
- $$self->{
- 'specified'
- } = $given;
- }
- }
- }
- sub value ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $r = '';
-    for my $child (@{$self->
- child_nodes
- }) {
-      if ($child->
- node_type
-  ==
- ) {
-        my $v = $child->
- text_content
- ;
-        $v =~ s/[\x09\x0A\x0D]/ /;
-        $r .= $v;
-      } else {
-        $r .= $child->
- text_content
- ;
-      }
-    } # childNodes
-    my $vt = $$self->{
- 'at'
- };
-    unless (not defined $vt or
-            $vt ==
-or
- $vt ==
-or
- $vt ==
- ) {
-      $r =~ s/\A\x20+//;
-      $r =~ s/\x20+\z//;
-      $r =~ s/\x20+/ /g;
-    }
-  if (defined $vt and $vt ==
-and
- $self->
- owner_document
- ->
- dom_config
-           ->
- get_parameter
-  (
- 'http://suika.fam.cx/www/2006/dom-config/xml-id'
- )) {
-    $r =~ s/[\x09\x0A\x0D\x20]+/ /g;
-    $r =~ s/\A //;
-    $r =~ s/ \z//;
-  }
- }
- ;}
- ;
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- for my $__old_child (@{${$self}->{
- 'child'
- }}) {
-   CORE::delete $$__old_child->{
- 'parent'
- };
- }
- my @__new_children;
- if (defined $given and length $given) {
-   my $__text = $self->owner_document->
- create_text_node
-  ($given);
-   push @__new_children, $__text;
-   $$__text->{
- 'parent'
- } = $self;
-   Scalar::Util::weaken ($$__text->{
- 'parent'
- });
- }
- ${$self}->{
- 'child'
- } = \@__new_children;
- }
- ;
- }
- }
- }
- sub schema_type_info ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- my
- $type = $$self->{
- 'at'
- };
- {
- my
- $v = $type || 0;
- $r = bless \$v,
- 'Message::DOM::Element::ManakaiDOMDTDTypeInfo'
- ;
- }
- ;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMAttr', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'schema_type_info';
- }
- }
- sub is_id ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = 0;
- {
- T:
- {
-   ## DTD Attribute Type
-   my $type = $$self->{
- 'at'
- };
-   if (defined $type and $type ==
- ) {
-     $r =
- ;
-     last T;
-   }
-   ## User-determined ID
-   my $udid = $$self->{
- 'isudid'
- };
-   if ($udid) {
-     $r =
- ;
-     last T;
-   }
-   ## Application-determined ID
-   my $nsuri = $self->
- namespace_uri
- ;
-   my $ln = $self->
- local_name
- ;
-   if (defined $nsuri and $nsuri eq
- 'http://www.w3.org/XML/1998/namespace' and
- $ln eq 'id') {
-     $r =
- ;
-     last T;
-   } elsif (not defined $nsuri and $ln eq 'xml:id') {
-     $r =
- ;
-     last T;
-   }
- } # T
- }
- $r;
- } else {my ($self, $given) = @_;
- {
+     if (defined $prefix) {
+       if (not defined $nsuri) {
+         report Message::DOM::DOMException
- {
+             -object => $self,
+             -type => 'NAMESPACE_ERR',
- if
+             -subtype => 'PREFIXED_NULLNS_ERR';
- ($self->
+       } elsif ($prefix eq 'xml' and
- manakai_read_only
+                $nsuri ne q<http://www.w3.org/XML/1998/namespace>) {
- ) {
+         report Message::DOM::DOMException
+             -object => $self,
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
+             -type => 'NAMESPACE_ERR',
+             -subtype => 'XMLPREFIX_NONXMLNS_ERR';
- ;
+       } elsif ($prefix eq 'xmlns' and
- }
+                $nsuri ne q<http://www.w3.org/2000/xmlns/>) {
+         report Message::DOM::DOMException
+             -object => $self,
- }
+             -type => 'NAMESPACE_ERR',
+             -subtype => 'XMLNSPREFIX_NONXMLNSNS_ERR';
- ;
+       } elsif ($nsuri eq q<http://www.w3.org/2000/xmlns/> and
- $$self->{
+                $prefix ne 'xmlns') {
- 'isudid'
+         report Message::DOM::DOMException
- } = $given;
+             -object => $self,
+             -type => 'NAMESPACE_ERR',
+             -subtype => 'NONXMLNSPREFIX_XMLNSNS_ERR';
- }
+       }
- }
+     } else { # no prefix
- }
+       if ($lname eq 'xmlns' and
- sub manakai_attribute_type ($;$) {
+           (not defined $nsuri or $nsuri ne q<http://www.w3.org/2000/xmlns/>)) {
- if (@_ == 1) {my ($self) = @_;
+         report Message::DOM::DOMException
- my $r = 0;
+             -object => $self,
+             -type => 'NAMESPACE_ERR',
- {
+             -subtype => 'XMLNS_NONXMLNSNS_ERR';
+       } elsif (not defined $nsuri) {
+         #
- $r = $$self->{
+       } elsif ($nsuri eq q<http://www.w3.org/2000/xmlns/> and
- 'at'
+                $lname ne 'xmlns') {
- };
+         report Message::DOM::DOMException
- $r =
+             -object => $self,
-unless
+             -type => 'NAMESPACE_ERR',
- defined $r;
+             -subtype => 'NONXMLNSPREFIX_XMLNSNS_ERR';
+       }
+     }
- }
+   }
- $r;
- } else {my ($self, $given) = @_;
+   ## -- Choose the most apppropriate class for the element
+   my $class = 'Message::DOM::Element';
- {
+   if (defined $nsuri) {
+     if ($nsuri eq q<http://www.w3.org/2005/Atom>) {
+       require Message::DOM::Atom::AtomElement;
- {
+       $class = {
+                 author => 'Message::DOM::Atom::AtomElement::AtomPersonConstruct',
- if
+                 category => 'Message::DOM::Atom::AtomElement::AtomCategoryElement',
- ($self->
+                 content => 'Message::DOM::Atom::AtomElement::AtomContentElement',
- manakai_read_only
+                 contributor => 'Message::DOM::Atom::AtomElement::AtomPersonConstruct',
- ) {
+                 entry => 'Message::DOM::Atom::AtomElement::AtomEntryElement',
+                 feed => 'Message::DOM::Atom::AtomElement::AtomFeedElement',
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
+                 generator => 'Message::DOM::Atom::AtomElement::AtomGeneratorElement',
+                 link => 'Message::DOM::Atom::AtomElement::AtomLinkElement',
- ;
+                 published => 'Message::DOM::Atom::AtomElement::AtomDateConstruct',
- }
+                 rights => 'Message::DOM::Atom::AtomElement::AtomTextConstruct',
+                 source => 'Message::DOM::Atom::AtomElement::AtomSourceElement',
+                 subtitle => 'Message::DOM::Atom::AtomElement::AtomTextConstruct',
- }
+                 summary => 'Message::DOM::Atom::AtomElement::AtomTextConstruct',
+                 title => 'Message::DOM::Atom::AtomElement::AtomTextConstruct',
- ;
+                 updated => 'Message::DOM::Atom::AtomElement::AtomDateConstruct',
- $$self->{
+                }->{$lname} || 'Message::DOM::Atom::AtomElement';
- 'at'
+     }
- } = $given;
+   }
+   my $r = $class->____new ($self, $nsuri, $prefix, $lname);
- }
- }
+   ## -- Default attributes
- }
+   {
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMAttr>}->{has_feature} = {'core',
+     local $Error::Depth = $Error::Depth + 1;
- {'',
+     my $cfg = $self->dom_config;
- '1',
+     return $r
- '1.0',
+         unless $cfg->get_parameter
- '1',
+             (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute>);
- '2.0',
- '1',
+     my $doctype = $self->doctype;
- '3.0',
+     return $r unless defined $doctype;
- '1'},
- 'xml',
+     my $et = $doctype->get_element_type_definition_node
- {'',
+         (defined $prefix ? $prefix . ':' . $lname : $lname);
- '1',
+     return $r unless defined $et;
- '1.0',
- '1',
+     my $orig_strict = $self->strict_error_checking;
- '2.0',
+     $self->strict_error_checking (0);
- '1',
- '3.0',
+     my %gattr;
- '1'},
+     my %has_attr;
- 'xmlversion',
+     my %pfx_to_uri;
- {'',
+     my $copy_asis = $cfg->get_parameter
- '1',
+         (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree>);
- '1.0',
+     $cfg->set_parameter
- '1',
+         (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1);
- '1.1',
- '1'}};
+     for my $at (@{$et->attribute_definitions}) {
- $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMAttr>} = 14.1;
+       my $at_default = $at->default_type;
- package Message::DOM::IF::TypeInfo;
+       if ($at_default == 4 or $at_default == 1) {
- our $VERSION = 20061231.0930;
+         # EXPLICIT_DEFAULT, FIXED_DEFAULT
- sub DERIVATION_RESTRICTION () {
+         my ($nn1, $nn2) = split /:/, $at->node_name;
-}
+         if (defined $nn2) { # prefixed
- sub DERIVATION_EXTENSION () {
+           if ($nn1 eq 'xmlns') {
-}
+             ## TODO: NCName check, prefix check and NSURI check
- sub DERIVATION_UNION () {
+             my $attr = $self->create_attribute_ns
-}
+                 (q<http://www.w3.org/2000/xmlns/>, [$nn1, $nn2]);
- sub DERIVATION_LIST () {
+             for my $at_child (@{$at->child_nodes}) {
-}
+               $attr->append_child ($at_child->clone_node (1));
- package Message::DOM::Element::ManakaiDOMDTDTypeInfo;
+             }
- our $VERSION = 20061231.0930;
+             $attr->manakai_attribute_type ($at->declared_type);
- push our @ISA, 'Message::DOM::IF::TypeInfo';
+             my $nsuri = $attr->value;
- sub type_name ($;$) {
+             ## TODO: Namespace well-formedness check (NSURI), v1.1 chk
- if (@_ == 1) {my ($self) = @_;
+             $pfx_to_uri{$nn2} = $nsuri;
- my $r = '';
+             $r->set_attribute_node_ns ($attr);
+                 ## NOTE: This method changes |specified| flag
- {
+             $attr->specified (0);
+             $has_attr{q<http://www.w3.org/2000/xmlns/>}->{$nn2} = 1;
+           } else {
- $r = {
+             ## TODO: NCName check
+             $gattr{$nn1}->{$nn2} = $at;
+           }
-  => 'CDATA',
+         } else {            # no prefixed
+           my $attr;
+           if ($nn1 eq 'xmlns') {
-  => 'ID',
+             $attr = $self->create_attribute_ns
+                 (q<http://www.w3.org/2000/xmlns/>, 'xmlns');
+             $has_attr{q<http://www.w3.org/2000/xmlns/>}->{xmlns} = 1;
-  => 'IDREF',
+           } else {
+             $attr = $self->create_attribute_ns (undef, $nn1);
+             ## TODO: NCName check
-  => 'IDREFS',
+           }
+           for my $at_child (@{$at->child_nodes}) {
+             $attr->append_child ($at_child->clone_node (1));
-  => 'ENTITY',
+           }
+           $attr->manakai_attribute_type ($at->declared_type);
+           ## TODO: Namespace well-formedness check (NSURI)
-  => 'ENTITIES',
+           $r->set_attribute_node_ns ($attr);
+               ## NOTE: This method changes |specified| flag
+           $attr->specified (0);
-  => 'NMTOKEN',
+         }
-  => 'NMTOKENS',
-  => 'NOTATION',
-  => 'ENUMERATION',
- }->{$$self};
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMDTDTypeInfo', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'type_name';
- }
- }
- sub type_namespace ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- $r = {
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
-  =>
- ,
- }->{$$self} ?
- 'http://www.w3.org/TR/REC-xml' :
- undef;
- }
- $r;
- } else {my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Element::ManakaiDOMDTDTypeInfo', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'type_namespace';
- }
- }
- sub is_derived_from ($$$$) {
- my ($self, $typeNamespaceArg, $typeNameArg, $derivationMethod) = @_;
- my $r = 0;
- $r}
- use overload
- bool => sub () {1},
- 'eq' => sub ($$) {
- my ($self, $t) = @_;
- my $r = 0;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   if
- (UNIVERSAL::isa ($t,
- 'Message::DOM::IF::TypeInfo'
- )) {
-     my $ln1 = $self->
- type_name
- ;
-     my $ln2 = $t->
- type_name
- ;
-     if ((defined $ln1 and defined $ln2 and $ln1 eq $ln2) or
-         (not defined $ln1 or not defined $ln2)) {
-       my $ns1 = $self->
- type_namespace
- ;
-       my $ns2 = $t->
- type_namespace
- ;
-       if ((defined $ns1 and defined $ns2 and $ns1 eq $ns2) or
-           (not defined $ns1 and not defined $ns2)) {
-         $r =
- ;
        }
-     }
+     } # attrdefs
+     for my $pfx (keys %gattr) {
+       my $nsuri = $pfx_to_uri{$pfx};
+       unless (defined $nsuri) {
+         ## TODO: Namespace well-formedness error
+       }
+       LN: for my $ln (keys %{$gattr{$pfx}}) {
+         if ($has_attr{defined $nsuri ? $nsuri : ''}->{$ln}) {
+           ## TODO: Namespace well-formedness error
+           next LN;
+         }
+         ## TODO: NCName check, prefix check and NSURI check
+         my $at = $gattr{$pfx}->{$ln};
+         my $attr = $self->create_attribute_ns ($nsuri, [$pfx, $ln]);
+         for my $at_child (@{$at->child_nodes}) {
+           $attr->append_child ($at_child->clone_node (1));
+         }
+         $attr->manakai_attribute_type ($at->declared_type);
+         $r->set_attribute_node_ns ($attr);
+             ## NOTE: This method changes |specified| flag
+         $attr->specified (0);
+         $has_attr{defined $nsuri ? $nsuri : ''}->{$ln} = 1;
+       } # LN
+     } # pfx
+     $cfg->set_parameter
+         (q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => $copy_asis);
+     $self->strict_error_checking ($orig_strict);
    }
+   return $r;
+ } # create_element_ns
+ =head1 LICENSE
- }
+ Copyright 2007 Wakaba <w@suika.fam.cx>
- ;}
- ;
+ This program is free software; you can redistribute it and/or
+ modify it under the same terms as Perl itself.
+ =cut
- }
- $r}
- ,
- fallback => 1;
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDTDTypeInfo>}->{has_feature} = {'core',
- {'',
- '1',
- '3.0',
- '1'},
- 'xml',
- {'',
- '1',
- '3.0',
- '1'},
- 'xmlversion',
- {'',
- '1',
- '1.0',
- '1',
- '1.1',
- '1'}};
- $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDTDTypeInfo>} = 8.1;
- for ($Message::DOM::IF::Node::){}
- ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
 ;
+ ## $Date$

 Legend:



Removed from v.1.21
 


changed lines


 
Added in v.1.22
 Legend:



Removed from v.1.21
 


changed lines


 
Added in v.1.22
-Removed from v.1.21
+Added in v.1.22

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24