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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1.3 by wakaba,
Tue Apr  4 10:53:14 2006 UTC
+revision 1.28 by wakaba,
Sun Jan 13 06:37:46 2008 UTC
 Line 1
- #!/usr/bin/perl
+ ## NOTE: This module will be renamed as Document.pm.
- ## This file is automatically generated
- ##      at 2006-04-04T09:22:34+00:00,
- ##      from file "Document.dis",
- ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,
- ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
- ## Don't edit by hand!
- use strict;
- require Message::DOM::DOMCore;
- require Message::DOM::Element;
- require Message::DOM::TreeCore;
- require Message::Util::Error::DOMException;
- package Message::DOM::Document;
- our $VERSION = 20060404.0922;
- package Message::DOM::IFLatest::Document;
- our $VERSION = 20060404.0922;
- package Message::DOM::Document::ManakaiDOMDocument;
- our $VERSION = 20060404.0922;
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::Document',
- 'Message::DOM::IF::Node',
- 'Message::DOM::IFLatest::Document',
- 'Message::DOM::IFLatest::Node',
- 'Message::DOM::IFLevel1::Document',
- 'Message::DOM::IFLevel1::Node',
- 'Message::DOM::IFLevel2::Document',
- 'Message::DOM::IFLevel2::Node',
- 'Message::DOM::IFLevel3::Document',
- 'Message::DOM::IFLevel3::Node';
- use Char::Class::XML 'InXMLNCNameChar10',
- 'InXMLNCNameChar11',
- 'InXMLNCNameStartChar11',
- 'InXMLNameChar10',
- 'InXMLNameChar11',
- 'InXMLNameStartChar11',
- 'InXML_NCNameStartChar10',
- 'InXML_NameStartChar10';
- sub ___create_node_stem ($$$$) {
- my ($self, $bag, $obj, $opt) = @_;
- my $r = {};
- {
- $obj->{
- 'child'
- } = [];
- $obj->{
- 'do'
- } = {};
- $obj->{
- 'http://www.w3.org/2001/04/infoset#version'
- } = '1.0';
- {
- $obj->{'impl'} = $opt->{'impl'}->{
- 'id'
- };
- $bag->{${$opt->{'impl'}->{
- 'id'
- }}}
-     ->{'lpmi'}->{${$obj->{
- 'id'
- }}}
-   = $obj->{
- 'id'
- };
- }
- ;
- $r = $obj;
- }
- $r}
- sub ___create_node_ref ($$$) {
- my ($self, $obj, $opt) = @_;
- my $r;
- {
- my
- $class;
- CLS: {
-   if (defined $opt->{
- 'nrcls'
- }) {
-     $class = $opt->{
- 'nrcls'
- };
-     IFCHK: {
-       for (@{$opt->{
- 'nrifs'
- } or []}) {
-         last IFCHK unless $$class->isa ($_);
-       }
-       last CLS;
-     } # IFCHK
-   }
- {
+ package Message::DOM::Document;
+ use strict;
+ our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
+ push our @ISA, 'Message::DOM::Node', 'Message::IF::Document',
+     'Message::IF::DocumentTraversal', 'Message::IF::DocumentXDoctype',
+     'Message::IF::DocumentSelector', # MUST in Selectors API spec
+     'Message::IF::HTMLDocument';
+ require Message::DOM::Node;
+ use Char::Class::XML
+     qw/
+       InXML_NameStartChar10 InXMLNameStartChar11
+       InXMLNameChar10 InXMLNameChar11
+       InXML_NCNameStartChar10 InXMLNCNameStartChar11
+       InXMLNCNameChar10 InXMLNCNameChar11
+     /;
+ sub ____new ($$) {
+   my $self = shift->SUPER::____new (undef);
+   $$self->{implementation} = $_[0];
+   $$self->{strict_error_checking} = 1;
+   $$self->{child_nodes} = [];
+   $$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'} = 1;
+   $$self->{'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'} = 1;
+   $$self->{'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'} = 1;
+   $$self->{'error-handler'} = sub ($) {
+     ## NOTE: Same as one set by |setParameter| with |undef| value.
+     warn $_[0];
+     return $_[0]->severity != 3; # SEVERITY_FATAL_ERROR
+   };
+   return $self;
+ } # ____new
+ sub AUTOLOAD {
+   my $method_name = our $AUTOLOAD;
+   $method_name =~ s/.*:://;
+   return if $method_name eq 'DESTROY';
- $class = $obj->{
+   if ({
- 'b'
+     ## Read-only attributes (trivial accessors)
- }->{${$obj->{
+     default_view => 1,
- 'id'
+     implementation => 1,
- }}}
+   }->{$method_name}) {
-          ->{'dnrcls'};
+     no strict 'refs';
+     eval qq{
+       sub $method_name (\$) {
- }
+         return \${\$_[0]}->{$method_name};
+       }
- ;
+     };
-   if (defined $class) {
+     goto &{ $AUTOLOAD };
-     IFCHK: {
+   } elsif ({
-       for (@{$opt->{
+     ## Read-write attributes (DOMString, trivial accessors)
- 'nrifs'
+     manakai_charset => 1,
- } or []}) {
+     document_uri => 1,
-         last IFCHK unless $$class->isa ($_);
+     input_encoding => 1,
+   }->{$method_name}) {
+     no strict 'refs';
+     eval qq{
+       sub $method_name (\$;\$) {
+         if (\@_ > 1) {
+           if (\${\$_[0]}->{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 {
+             delete \${\$_[0]}->{$method_name};
+           }
+         }
+         return \${\$_[0]}->{$method_name};
        }
-       last CLS;
+     };
-     } # IFCHK
+     goto &{ $AUTOLOAD };
+   } elsif ({
+     ## Read-write attributes (boolean, trivial accessors)
+     all_declarations_processed => 1,
+     manakai_has_bom => 1,
+   }->{$method_name}) {
+     no strict 'refs';
+     eval qq{
+       sub $method_name (\$;\$) {
+         if (\@_ > 1) {
+           if (\${\$_[0]}->{manakai_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 (\$_[1]) {
+             \${\$_[0]}->{$method_name} = 1;
+           } else {
+             delete \${\$_[0]}->{$method_name};
+           }
+         }
+         return \${\$_[0]}->{$method_name};
+       }
+     };
+     goto &{ $AUTOLOAD };
+   } elsif (my $module_name = {
+     can_dispatch => 'Message::DOM::EventTargetNode',
+     create_attribute => 'Message::DOM::Attr',
+     create_attribute_ns => 'Message::DOM::Attr',
+     create_attribute_definition => 'Message::DOM::AttributeDefinition',
+     create_cdata_section => 'Message::DOM::Text',
+     create_comment => 'Message::DOM::CharacterData',
+     create_document_fragment => 'Message::DOM::DocumentFragment',
+     create_document_type_definition => 'Message::DOM::DocumentType',
+     create_element => 'Message::DOM::Element',
+     create_element_ns => 'Message::DOM::Element',
+     create_element_type_definition => 'Message::DOM::ElementTypeDefinition',
+     create_entity_reference => 'Message::DOM::EntityReference',
+     create_event => 'Message::DOM::EventTargetNode',
+     create_general_entity => 'Message::DOM::Entity',
+     create_notation => 'Message::DOM::Notation',
+     create_processing_instruction => 'Message::DOM::ProcessingInstruction',
+     manakai_create_serial_walker => 'Message::DOM::SerialWalker',
+     create_text_node => 'Message::DOM::Text',
+     create_tree_walker => 'Message::DOM::TreeWalker',
+     query_selector => 'Message::DOM::SelectorsAPI',
+     query_selector_all => 'Message::DOM::SelectorsAPI',
+     ___query_selector_all => 'Message::DOM::SelectorsAPI',
+   }->{$method_name}) {
+     eval qq{ require $module_name } or die $@;
+     goto &{ $AUTOLOAD };
+   } else {
+     require Carp;
+     Carp::croak (qq<Can't locate method "$AUTOLOAD">);
+   }
+ } # AUTOLOAD
+ sub implementation ($);
+ sub create_attribute ($$);
+ sub create_attribute_ns ($$$);
+ sub create_attribute_definition ($$);
+ sub create_cdata_section ($$);
+ sub create_comment ($$);
+ sub create_document_fragment ($);
+ sub create_document_type_definition ($$);
+ sub create_element ($$);
+ sub create_element_ns ($$$);
+ sub create_element_type_definition ($$);
+ sub create_entity_reference ($$);
+ sub create_general_entity ($$);
+ sub create_notation ($$);
+ sub create_processing_instruction ($$$);
+ sub create_text_node ($$);
+ ## |Node| attributes
+ sub base_uri ($) {
+   my $v = ${$_[0]}->{manakai_entity_base_uri};
+   if (defined $v) {
+     return $v;
+   } else {
+     return ${$_[0]}->{document_uri};
    }
+   ## TODO: HTML5 <base>
+ } # base_uri
-   my $cns;
+ sub node_name () { '#document' }
- {
- $cns = $obj->{
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-   my $bag =
- $obj->{'b'}
- ;
-   my $deh;
-   DC: for my $cnid (@$cns) {
-     my $cnh =
- {
-   'id' => $cnid,
-   'b' => $bag,
- }
- ;
-     my $cncls;
- {
+ sub node_type () { 9 } # DOCUMENT_NODE
- $cncls = $cnh->{
+ sub text_content ($;$) {
- 'b'
+   my $self = shift;
- }->{${$cnh->{
+   if ($$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'}) {
- 'id'
+     return undef;
- }}}
+   } else {
-          ->{'cls'};
+     local $Error::Depth = $Error::Depth + 1;
+     return $self->SUPER::text_content (@_);
+   }
- }
+ } # text_content
- ;
-     if ($$cncls eq
- 'Message::DOM::Element::ManakaiDOMElement'
- ) {
-       $deh = $cnh;
-       last DC;
-     }
-   } # DC
-   my $dens;
-   my $deln;
-   if (defined $deh) {
- {
- $dens = $deh->{
+ ## |Node| methods
- 'b'
- }->{${$deh->{
- 'id'
- }}}
-          ->{'ns'};
+ sub adopt_node ($$) {
+   my ($self, $source) = @_;
+   ## TODO: Should we apply |copy-asis| configuration parameter to this method?
- }
+   return undef unless UNIVERSAL::isa ($source, 'Message::DOM::Node');
- ;
+   my $strict = $self->strict_error_checking;
-     $dens = \'' unless defined $dens;
+   if ($strict and $$self->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $self,
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
- {
+   my $parent = $source->parent_node;
+   if ($strict and defined $parent and $$parent->{manakai_read_only}) {
+     report Message::DOM::DOMException
+         -object => $self,
+         -type => 'NO_MODIFICATION_ALLOWED_ERR',
+         -subtype => 'READ_ONLY_NODE_ERR';
+   }
+   my $nt = $source->node_type;
+   my $oe;
+   if ($nt == 2) { # ATTRIBUTE_NODE
+     $oe = $source->owner_element;
+     if ($strict and defined $oe and $$oe->{manakai_read_only}) {
+       report Message::DOM::DOMException
+           -object => $self,
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
+     }
+   } elsif ($nt == 9 or $nt == 10 or $nt == 6 or $nt == 12 or
+            $nt == 81001 or $nt == 81002) {
+     # DOCUMENT_NODE, DOCUMENT_TYPE_NODE, ENTITY_NODE, NOTATION_NODE,
+     # ELEMENT_TYPE_DEFINITION_NODE, ATTRIBUTE_DEFINITION_NODE
+     report Message::DOM::DOMException
+         -object => $self,
+         -type => 'NOT_SUPPORTED_ERR',
+         -subtype => 'ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR';
+   }
- $deln = $deh->{
+   my @change_od;
- 'b'
+   my @nodes = ($source);
- }->{${$deh->{
+   while (@nodes) {
- 'id'
+     my $node = shift @nodes;
- }}}
+     my $nt = $node->node_type;
-          ->{'ln'};
+     if ($strict and $$node->{manakai_read_only}) {
+       report Message::DOM::DOMException
+           -object => $self,
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
+     }
+     push @change_od, $node;
+     push @nodes, @{$node->child_nodes}, @{$node->attributes or []};
+   } # @nodes
- }
+   local $Error::Depth = $Error::Depth + 1;
- ;
+   if (defined $parent) {
-   } else {
+     $parent->remove_child ($source);
-     $dens = \'*';
+   } elsif (defined $oe) {
-     $deln = \'*';
+     $oe->remove_attribute_node ($source);
    }
-   A: {
+   return $source if $self eq $change_od[0]->owner_document;
-     ## Use cases:
+                          ## NOTE: The array must have more than zero
-     ##   - Document element is |html5:html|
+                          ##       nodes by definition.  In addition,
-     ##   - Document element is |NULL:rfc|
+                          ##       it cannot contain document or document
+                          ##       type nodes in current implementation.
-     for my $nm (
-       [$dens, $deln],
+   my @ud_node;
-       [$dens, \'*'],
+   for my $n (@change_od) {
-     ) {
+     $$n->{owner_document} = $self;
-       for my $__class (sort {
+     Scalar::Util::weaken ($$n->{owner_document});
-         $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
+     if ($$n->{user_data}) {
-       } grep {
+       push @ud_node, $n;
-         $Message::DOM::DOMFeature::ClassInfo
-             ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-             ->{compat_class_by_type}
-             ->{${$nm->[0]}}->{${$nm->[1]}}->{$_}
-       } keys %{$Message::DOM::DOMFeature::ClassInfo
-                    ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-                    ->{compat_class_by_type}
-                    ->{${$nm->[0]}}->{${$nm->[1]}} or {}}) {
-         if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-                 ->{has_feature}->{xml}->{'3.0'}) {
-           $class = \$__class;
-           IFCHK: {
-             for (@{$opt->{
- 'nrifs'
- } or []}) {
-               last IFCHK unless $$class->isa ($_);
-             }
-             last A;
-           } # IFCHK
-         }
-       }
      }
+   }
-     ## Generic
+   for my $src (@ud_node) {
-     CLASS: for my $__class (sort {
+     my $src_ud = $$src->{user_data};
-       $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
+     for my $key (keys %{$src_ud}) {
-     } grep {
+       my $dh = $src_ud->{$key}->[1];
-       $Message::DOM::DOMFeature::ClassInfo
+       if ($dh) {
-           ->{
+         $dh->(5, $key, $src_ud->{$key}->[0], $src, undef); # NODE_ADOPTED
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-           ->{compat_class}->{$_}
-     } keys %{$Message::DOM::DOMFeature::ClassInfo
-                  ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-                  ->{compat_class} or {}}) {
-       if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-               ->{has_feature}->{xml}->{'3.0'}) {
-         $class = \$__class;
-         IFCHK: {
-           for (@{$opt->{
- 'nrifs'
- } or []}) {
-             last IFCHK unless $$class->isa ($_);
-           }
-           last A;
-         } # IFCHK
        }
      }
-     ## Default
-     $class = \$self;
-   } # A
-   if (defined $deh) {
- {
- $obj->{
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-     ->{'dnrcls'} = $class;
- }
- ;
    }
- } # CLS
- $r = bless $obj, $$class;
+   return $source;
+ } # adopt_node
- }
- $r}
- sub node_type ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- $r = '9';
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
- }
- }
  sub append_child ($$) {
- my ($self, $newChild) = @_;
+   ## NOTE: Overrides |Node|'s implementation.
- my $r;
+   my $self = $_[0];
- {
- my
- $strictc = $self->
- dom_config
-                    ->
- get_parameter
-                        (
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
- );
- my $child_od = $newChild->
- owner_document
-  || $self;
- my $child_nt = $newChild->
- node_type
- ;
- if ($strictc and $self->
- strict_error_checking
- ) {
+   ## NOTE: |$self_od| code here in some $self->node_type.
- {
+   ## -- Node Type check
+   my @new_child;
- local $Error::Depth = $Error::Depth + 1;
+   my $new_child_parent;
+   if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
- {
+     push @new_child, @{$_[1]->child_nodes};
+     $new_child_parent = $_[1];
+   } else {
-     my
+     @new_child = ($_[1]);
- $has_el;
+     $new_child_parent = $_[1]->parent_node;
-     my $has_dt;
+   }
-     if ($child_nt ==
- '1'
+   ## NOTE: Depends on $self->node_type:
- ) {
+   if ($$self->{strict_error_checking}) {
-       $has_el =
+     my $child_od = $_[1]->owner_document || $_[1]; # might be DocumentType
+     if ($self ne $child_od and $child_od->node_type != 10) {
- ;
+       report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
-     } elsif ($child_nt ==
+           -object => $self,
- '10'
+           -type => 'WRONG_DOCUMENT_ERR',
- ) {
+           -subtype => 'EXTERNAL_OBJECT_ERR';
-       $has_dt =
+     }
- ;
+     if ($$self->{manakai_read_only} or
-     } elsif ($child_nt ==
+         (@new_child and defined $new_child_parent and
- '11'
+          $$new_child_parent->{manakai_read_only})) {
- ) {
+       report Message::DOM::DOMException
-       for my $cn (@{$newChild->
+           -object => $self,
- child_nodes
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
- }) {
+           -subtype => 'READ_ONLY_NODE_ERR';
-         my $cnt = $cn->
+     }
- node_type
- ;
+     ## NOTE: Only in |Document|:
-         if ($cnt ==
+     my $strict_children = $self->dom_config->get_parameter
- '1'
+         (q<http://suika.fam.cx/www/2006/dom-config/strict-document-children>);
- ) {
+     if ($strict_children) {
-           if ($has_el) {
+       my $has_el;
+       my $has_dt;
+       my $child_nt = $_[1]->node_type;
- {
+       if ($child_nt == 1) { # ELEMENT_NODE
+         $has_el = 1;
- local $Error::Depth = $Error::Depth - 1;
+       } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
+         $has_dt = 1;
- {
+       } elsif ($child_nt == 11) { # DOCUMENT_FRAGMENT_NODE
+         for my $cn (@{$_[1]->child_nodes}) {
- 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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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 $cnt = $cn->node_type;
+           if ($cnt == 1) { # ELEMENT_NODE
+             if ($has_el) {
- }
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
- ;}
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
- ;
+             $has_el = 1;
+           } elsif ($cnt == 10) { # DOCUMENT_TYPE_NODE
+             ## NOTE: |DocumentType| node cannot be contained in
+             ## |DocumentFragment| in strict mode.
+             if ($has_dt) {
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
+             $has_dt = 1;
            }
-           $has_el =
- ;
          }
-         # DocumentType node cannot be contained in DocumentFragments
        }
-     }
+       if ($has_el) {
-     if ($has_el) {
+         my $anode = $self->last_child;
-       my $anode = $self->
+         while (defined $anode) {
- last_child
+           if ($anode->node_type == 1) { # ELEMENT_NODE
- ;
+             report Message::DOM::DOMException
-       while (defined $anode) {
+                 -object => $self,
-         if ($anode->
+                 -type => 'HIERARCHY_REQUEST_ERR',
- node_type
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
-  ==
+           }
- '1'
+           $anode = $anode->previous_sibling;
- ) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
+       } # has_el
- previous_sibling
+       if ($has_dt) {
- ;
+         my $anode = $self->last_child;
-       }
+         while (defined $anode) {
-     } # has_el
+           my $ant = $anode->node_type;
-     if ($has_dt) {
+           if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
-       my $anode = $self->
+             report Message::DOM::DOMException
- last_child
+                 -object => $self,
- ;
+                 -type => 'HIERARCHY_REQUEST_ERR',
-       while (defined $anode) {
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
-         my $ant = $anode->
+           }
- node_type
+           $anode = $anode->previous_sibling;
- ;
-         if ($ant ==
- '1'
- ) {
- {
- 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#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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;
- }
- ;}
- ;
-         } elsif ($ant ==
- '10'
- ) {
- {
- 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#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#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
+       } # has_dt
- previous_sibling
+     }
- ;
-       }
-     } # has_dt
- }
- ;}
- ;
- }
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self->
- strict_error_checking
- ;
-   ## -- Node Type check
+     for my $cn (@new_child) {
-   my @new_child;
-   if ({
-     '3' => (not $strictc),
-     '5' => (not $strictc),
-     '1' => 1,
-     '4' => (not $strictc),
-     '7' => 1,
-     '8' => 1,
-     '10' => 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- '11'
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
        unless ({
-     '3' => (not $strictc),
+, (not $strict_children), # TEXT_NODE
-     '5' => (not $strictc),
+, (not $strict_children), # ENTITY_REFERENCE_NODE
-     '1' => 1,
+, 1, # ELEMENT_NODE
-     '4' => (not $strictc),
+, (not $strict_children), # CDATA_SECTION_NODE
-     '7' => 1,
+, 1, # PROCESSING_INSTRUCTION_NODE
-     '8' => 1,
+, 1, # COMMENT_NODE
-     '10' => 1,
+, 1, # DOCUMENT_TYPE_NODE
-   }->{$cn->
+               }->{$cn->node_type}) {
- node_type
+         report Message::DOM::DOMException
- }) {
+             -object => $self,
+             -type => 'HIERARCHY_REQUEST_ERR',
+             -subtype => 'CHILD_NODE_TYPE_ERR';
- {
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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
+     ## NOTE: Ancestor check here in |Node|.
-     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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
-     }
-     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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
-       }
-     }
    }
-   ## -- Insert at...
+   ## NOTE: "Insert at" code only in insert_before and replace_child
-   my $index = -1; # last
- ; # FOR !tc:ForAppendChild
    ## -- Removes from parent
-   if ($nc_parent) {
+   if ($new_child_parent) {
-     if ($child_nt ==
+     if (@new_child == 1) {
- '11'
+       my $v = $$new_child_parent->{child_nodes};
- ) {
- {
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
-     } else {
-       my $v;
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
        } # RP
+     } else {
+       @{$$new_child_parent->{child_nodes}} = ();
      }
    }
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{parent_node} = $self;
+     Scalar::Util::weaken ($$nc->{parent_node});
- {
- $nc->{
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   ## NOTE: Depends on method:
+   push @{$$self->{child_nodes}}, @new_child;
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
- {
- ## -- Adds to children list
-     push @$children, map {
- $_->{'id'}
-     } @new_child;
-     $r = $newChild;
- }
+   ## NOTE: Only in |Document|.
+   for (@new_child) {
- ;
+     delete $$_->{implementation};
+     $$_->{owner_document} = $self;
+     Scalar::Util::weaken ($$_->{owner_document});
+   }
- ;
- ;
- }
- ;}
- ;
- }
- ;
- if ($child_nt ==
- '10' and
- not defined $newChild->
- owner_document
- ) {
-   my $bag =
- $self->{'b'}
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- $bag->{
- 'm'
- }++;
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- }
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
- };
- $bag->{${$self->{
- 'id'
- }}}
-     ->{'do'}->{${$newChild->{
- 'id'
- }}}
-   = $newChild->{
- 'id'
- };
- }
- ;
- }
- }
- $r}
- sub insert_before ($$;$) {
- my ($self, $newChild, $refChild) = @_;
- my $r;
- {
- my
- $strictc = $self->
- dom_config
-                    ->
- get_parameter
-                        (
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
- );
- my $child_od = $newChild->
- owner_document
-  || $self;
- my $child_nt = $newChild->
- node_type
- ;
- if ($strictc and $self->
- strict_error_checking
- ) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     my
- $has_el;
-     my $has_dt;
-     if ($child_nt ==
- '1'
- ) {
-       $has_el =
- ;
-     } elsif ($child_nt ==
- '10'
- ) {
-       $has_dt =
- ;
-     } elsif ($child_nt ==
- '11'
- ) {
-       for my $cn (@{$newChild->
- child_nodes
- }) {
-         my $cnt = $cn->
- node_type
- ;
-         if ($cnt ==
- '1'
- ) {
-           if ($has_el) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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 $_[1];
+ } # apepnd_child
- }
+ sub manakai_append_text ($$) {
+   my $self = shift;
+   if ($$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'}) {
+     #
+   } else {
+     local $Error::Depth = $Error::Depth + 1;
+     return $self->SUPER::manakai_append_text (@_);
+   }
+ } # manakai_append_text
+ sub insert_before ($$) {
+   ## NOTE: Overrides |Node|'s implementation.
+   my $self = $_[0];
- ;}
+   ## NOTE: |$self_od| code here depending on $self->node_type.
- ;
+   ## -- Node Type check
+   my @new_child;
+   my $new_child_parent;
+   if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
+     push @new_child, @{$_[1]->child_nodes};
+     $new_child_parent = $_[1];
+   } else {
+     @new_child = ($_[1]);
+     $new_child_parent = $_[1]->parent_node;
+   }
+   ## NOTE: Depends on $self->node_type:
+   if ($$self->{strict_error_checking}) {
+     my $child_od = $_[1]->owner_document || $_[1]; # might be DocumentType
+     if ($self ne $child_od and $child_od->node_type != 10) {
+       report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
+           -object => $self,
+           -type => 'WRONG_DOCUMENT_ERR',
+           -subtype => 'EXTERNAL_OBJECT_ERR';
+     }
+     if ($$self->{manakai_read_only} or
+         (@new_child and defined $new_child_parent and
+          $$new_child_parent->{manakai_read_only})) {
+       report Message::DOM::DOMException
+           -object => $self,
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
+     }
+     ## NOTE: Only in |Document|:
+     my $strict_children = $self->dom_config->get_parameter
+         (q<http://suika.fam.cx/www/2006/dom-config/strict-document-children>);
+     if ($strict_children) {
+       my $has_el;
+       my $has_dt;
+       my $child_nt = $_[1]->node_type;
+       if ($child_nt == 1) { # ELEMENT_NODE
+         $has_el = 1;
+       } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
+         $has_dt = 1;
+       } elsif ($child_nt == 11) { # DOCUMENT_FRAGMENT_NODE
+         for my $cn (@{$_[1]->child_nodes}) {
+           my $cnt = $cn->node_type;
+           if ($cnt == 1) { # ELEMENT_NODE
+             if ($has_el) {
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
+             $has_el = 1;
+           } elsif ($cnt == 10) { # DOCUMENT_TYPE_NODE
+             ## NOTE: |DocumentType| node cannot be contained in
+             ## |DocumentFragment| in strict mode.
+             if ($has_dt) {
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
+             $has_dt = 1;
            }
-           $has_el =
- ;
-         }
-         # DocumentType node cannot be contained in DocumentFragments
-       }
-     }
-     if ($has_el) {
-       my $anode = $refChild ? $refChild->
- previous_sibling
-                             :
- $self->
- last_child
- ;
-       while (defined $anode) {
-         if ($anode->
- node_type
-  ==
- '1'
- ) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
- previous_sibling
- ;
-       }
-       $anode = $refChild;
-       while (defined $anode) {
-         my $ant = $anode->
- node_type
- ;
-         if ($ant ==
- '1'
- ) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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;
- }
- ;}
- ;
-         } elsif ($ant ==
- '10'
- ) {
- {
- 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#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
- next_sibling
- ;
        }
-     } # has_el
-     if ($has_dt) {
-       my $anode = $refChild ? $refChild->
- previous_sibling
-                             :
- $self->
- last_child
- ;
-       while (defined $anode) {
-         my $ant = $anode->
- node_type
- ;
-         if ($ant ==
- '1'
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
+       ## ISSUE: This code is wrong.  Old manakai's implementation
+       ## is better, but it is also wrong in some edge cases.
- 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/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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;
+       ## Maybe we should remove these code entirely.  DOM3Core
+       ## conformance is not important for this bit.  It only makes
+       ## things too complex.  Same for replace_child's code.
- }
+       if ($has_el) {
+         my $anode = $self->last_child;
+         while (defined $anode) {
- ;}
+           if ($anode->node_type == 1) { # ELEMENT_NODE
+             report Message::DOM::DOMException
- ;
+                 -object => $self,
-         } elsif ($ant ==
+                 -type => 'HIERARCHY_REQUEST_ERR',
- '10'
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
- ) {
+           }
+           $anode = $anode->previous_sibling;
- {
- 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#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#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
+       } # has_el
- previous_sibling
+       if ($has_dt) {
- ;
+         my $anode = $self->last_child;
-       }
+         while (defined $anode) {
-       $anode = $refChild;
+           my $ant = $anode->node_type;
-       while (defined $anode) {
+           if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
-         if ($anode->
+             report Message::DOM::DOMException
- node_type
+                 -object => $self,
+                 -type => 'HIERARCHY_REQUEST_ERR',
-                 ==
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
- '10'
+           }
- ) {
+           $anode = $anode->previous_sibling;
- {
- 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#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#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
+       } # has_dt
- next_sibling
+     }
- ;
-       }
-     } # has_dt
- }
- ;}
- ;
- }
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self->
- strict_error_checking
- ;
-   ## -- Node Type check
+     for my $cn (@new_child) {
-   my @new_child;
-   if ({
-     '3' => (not $strictc),
-     '5' => (not $strictc),
-     '1' => 1,
-     '4' => (not $strictc),
-     '7' => 1,
-     '8' => 1,
-     '10' => 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- '11'
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
        unless ({
-     '3' => (not $strictc),
+, (not $strict_children), # TEXT_NODE
-     '5' => (not $strictc),
+, (not $strict_children), # ENTITY_REFERENCE_NODE
-     '1' => 1,
+, 1, # ELEMENT_NODE
-     '4' => (not $strictc),
+, (not $strict_children), # CDATA_SECTION_NODE
-     '7' => 1,
+, 1, # PROCESSING_INSTRUCTION_NODE
-     '8' => 1,
+, 1, # COMMENT_NODE
-     '10' => 1,
+, 1, # DOCUMENT_TYPE_NODE
-   }->{$cn->
+               }->{$cn->node_type}) {
- node_type
+         report Message::DOM::DOMException
- }) {
+             -object => $self,
+             -type => 'HIERARCHY_REQUEST_ERR',
+             -subtype => 'CHILD_NODE_TYPE_ERR';
- {
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
      }
-     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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
+     ## NOTE: Ancestor check here in |Node|.
- }
- ;}
- ;
-       }
-     }
    }
-   ## -- Insert at...
-   my $index = -1; # last
+   ## -- Insert at... ## NOTE: Only in insert_before and replace_child
- {
+   my $index = -1; # last
+   if (defined $_[2]) {
+     ## error if $_[1] eq $_[2];
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $refChild) {
+     my $cns = $self->child_nodes;
-       if ($refChild eq $newChild) {
+     my $cnsl = @$cns;
+     C: {
+       $index = 0;
- {
+       for my $i (0..($cnsl-1)) {
+         my $cn = $cns->[$i];
+         if ($cn eq $_[2]) {
- {
+           $index += $i;
+           last C;
- local $Error::Depth = $Error::Depth - 1;
+         } elsif ($cn eq $_[1]) {
+           $index = -1; # offset
- {
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
- }
- ;
- ;
-       }
-       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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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
+       report Message::DOM::DOMException
- ;
+           -object => $self,
-     }
+           -type => 'NOT_FOUND_ERR',
+           -subtype => 'NOT_CHILD_ERR';
+     } # C
+   }
- }
+   ## NOTE: "else" only in replace_child
- ; # FOR !tc:ForAppendChild
    ## -- Removes from parent
-   if ($nc_parent) {
+   if ($new_child_parent) {
-     if ($child_nt ==
+     if (@new_child == 1) {
- '11'
+       my $v = $$new_child_parent->{child_nodes};
- ) {
- {
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
-     } else {
-       my $v;
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
        } # RP
+     } else {
+       @{$$new_child_parent->{child_nodes}} = ();
      }
    }
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{parent_node} = $self;
+     Scalar::Util::weaken ($$nc->{parent_node});
- {
- $nc->{
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   ## NOTE: Depends on method:
+   if ($index == -1) {
+     push @{$$self->{child_nodes}}, @new_child;
- {
+   } else {
+     splice @{$$self->{child_nodes}}, $index, 0, @new_child;
+   }
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
- ;
- {
- ## -- Adds to children list
-     if ($index == -1) {
-       push @$children, map {
- $_->{'id'}
-       } @new_child;
-     } else {
-       splice @$children, $index, 0, map {
- $_->{'id'}
-       } @new_child;
-     }
-     $r = $newChild;
- }
- ;
- ;
- }
- ;}
- ;
- }
- ;
- if ($child_nt ==
- '10' and
- not defined $newChild->
- owner_document
- ) {
-   my $bag =
- $self->{'b'}
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- $bag->{
- 'm'
- }++;
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- }
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
- };
- $bag->{${$self->{
- 'id'
- }}}
-     ->{'do'}->{${$newChild->{
- 'id'
- }}}
-   = $newChild->{
- 'id'
- };
- }
- ;
- }
- }
- $r}
- sub replace_child ($$$) {
- my ($self, $newChild, $oldChild) = @_;
- my $r;
- {
- my
- $strictc = $self->
- dom_config
-                    ->
- get_parameter
-                        (
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
- );
- my $child_od = $newChild->
- owner_document
-  || $self;
- my $child_nt = $newChild->
- node_type
- ;
- if ($strictc and $self->
- strict_error_checking
- ) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     my
- $has_el;
-     my $has_dt;
-     if ($child_nt ==
- '1'
- ) {
-       $has_el =
- ;
-     } elsif ($child_nt ==
- '10'
- ) {
-       $has_dt =
- ;
-     } elsif ($child_nt ==
- '11'
- ) {
-       for my $cn (@{$newChild->
- child_nodes
- }) {
-         my $cnt = $cn->
- node_type
- ;
-         if ($cnt ==
- '1'
- ) {
-           if ($has_el) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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;
+   ## NOTE: Only in |Document|.
+   for (@new_child) {
+     delete $$_->{implementation};
+     $$_->{owner_document} = $self;
+     Scalar::Util::weaken ($$_->{owner_document});
+   }
- }
+   return $_[1];
+ } # insert_before
+ sub replace_child ($$) {
+   ## NOTE: Overrides |Node|'s implementation.
+   my $self = $_[0];
- ;}
+   ## NOTE: |$self_od| code here depending on $self->node_type.
- ;
+   ## -- Node Type check
+   my @new_child;
+   my $new_child_parent;
+   if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
+     push @new_child, @{$_[1]->child_nodes};
+     $new_child_parent = $_[1];
+   } else {
+     @new_child = ($_[1]);
+     $new_child_parent = $_[1]->parent_node;
+   }
+   ## NOTE: Depends on $self->node_type:
+   if ($$self->{strict_error_checking}) {
+     my $child_od = $_[1]->owner_document || $_[1]; # might be DocumentType
+     if ($self ne $child_od and $child_od->node_type != 10) {
+       report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
+           -object => $self,
+           -type => 'WRONG_DOCUMENT_ERR',
+           -subtype => 'EXTERNAL_OBJECT_ERR';
+     }
+     if ($$self->{manakai_read_only} or
+         (@new_child and defined $new_child_parent and
+          $$new_child_parent->{manakai_read_only})) {
+       report Message::DOM::DOMException
+           -object => $self,
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
+     }
+     ## NOTE: Only in |Document|:
+     my $strict_children = $self->dom_config->get_parameter
+         (q<http://suika.fam.cx/www/2006/dom-config/strict-document-children>);
+     if ($strict_children) {
+       my $has_el;
+       my $has_dt;
+       my $child_nt = $_[1]->node_type;
+       if ($child_nt == 1) { # ELEMENT_NODE
+         $has_el = 1;
+       } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
+         $has_dt = 1;
+       } elsif ($child_nt == 11) { # DOCUMENT_FRAGMENT_NODE
+         for my $cn (@{$_[1]->child_nodes}) {
+           my $cnt = $cn->node_type;
+           if ($cnt == 1) { # ELEMENT_NODE
+             if ($has_el) {
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
+             $has_el = 1;
+           } elsif ($cnt == 10) { # DOCUMENT_TYPE_NODE
+             ## NOTE: |DocumentType| node cannot be contained in
+             ## |DocumentFragment| in strict mode.
+             if ($has_dt) {
+               report Message::DOM::DOMException
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
+             $has_dt = 1;
            }
-           $has_el =
- ;
-         }
-         # DocumentType node cannot be contained in DocumentFragments
-       }
-     }
-     if ($has_el) {
-       my $anode = $oldChild->
- previous_sibling
- ;
-       while (defined $anode) {
-         if ($anode->
- node_type
-  ==
- '1'
- ) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
- previous_sibling
- ;
-       }
-       $anode = $oldChild->
- next_sibling
- ;
-       while (defined $anode) {
-         my $ant = $anode->
- node_type
- ;
-         if ($ant ==
- '1'
- ) {
- {
- 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#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#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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;
- }
- ;}
- ;
-         } elsif ($ant ==
- '10'
- ) {
- {
- 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#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
- next_sibling
- ;
        }
-     } # has_el
-     if ($has_dt) {
+       if ($has_el) {
-       my $anode = $oldChild->
+         my $anode = $self->last_child;
- previous_sibling
+         while (defined $anode) {
- ;
+           if ($anode->node_type == 1) { # ELEMENT_NODE
-       while (defined $anode) {
+             report Message::DOM::DOMException
-         my $ant = $anode->
+                 -object => $self,
- node_type
+                 -type => 'HIERARCHY_REQUEST_ERR',
- ;
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
-         if ($ant ==
+           }
- '1'
+           $anode = $anode->previous_sibling;
- ) {
- {
- 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#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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;
- }
- ;}
- ;
-         } elsif ($ant ==
- '10'
- ) {
- {
- 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#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#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
+       } # has_el
- previous_sibling
+       if ($has_dt) {
- ;
+         my $anode = $self->last_child;
-       }
+         while (defined $anode) {
-       $anode = $oldChild->
+           my $ant = $anode->node_type;
- next_sibling
+           if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
- ;
+             report Message::DOM::DOMException
-       while (defined $anode) {
+                 -object => $self,
-         if ($anode->
+                 -type => 'HIERARCHY_REQUEST_ERR',
- node_type
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
+           }
-                 ==
+           $anode = $anode->previous_sibling;
- '10'
- ) {
- {
- 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#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#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', '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->
+       } # has_dt
- next_sibling
+     }
- ;
-       }
-     } # has_dt
- }
- ;}
- ;
- }
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- $strict = $self->
- strict_error_checking
- ;
-   ## -- Node Type check
+     for my $cn (@new_child) {
-   my @new_child;
-   if ({
-     '3' => (not $strictc),
-     '5' => (not $strictc),
-     '1' => 1,
-     '4' => (not $strictc),
-     '7' => 1,
-     '8' => 1,
-     '10' => 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- '11'
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
        unless ({
-     '3' => (not $strictc),
+, (not $strict_children), # TEXT_NODE
-     '5' => (not $strictc),
+, (not $strict_children), # ENTITY_REFERENCE_NODE
-     '1' => 1,
+, 1, # ELEMENT_NODE
-     '4' => (not $strictc),
+, (not $strict_children), # CDATA_SECTION_NODE
-     '7' => 1,
+, 1, # PROCESSING_INSTRUCTION_NODE
-     '8' => 1,
+, 1, # COMMENT_NODE
-     '10' => 1,
+, 1, # DOCUMENT_TYPE_NODE
-   }->{$cn->
+               }->{$cn->node_type}) {
- node_type
+         report Message::DOM::DOMException
- }) {
+             -object => $self,
+             -type => 'HIERARCHY_REQUEST_ERR',
+             -subtype => 'CHILD_NODE_TYPE_ERR';
- {
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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;
+     ## NOTE: Ancestor check here in |Node|.
- }
- ;}
- ;
    }
-   my $nc_parent = @new_child ? $new_child[0]->
- parent_node
-                              :
- undef
- ;
-   if ($strict) {
-     ## -- Wrong-document check
-     unless ($self 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
-     }
-     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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
-       }
-     }
-   }
-   ## -- Insert at...
-   my $index = -1; # last
+   ## -- Insert at... ## NOTE: Only in insertBefore and replaceChild
- {
+   my $index = -1; # last
+   if (defined $_[2]) {
+     ## error if $_[1] eq $_[2];
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $oldChild) {
+     my $cns = $self->child_nodes;
-       if ($oldChild eq $newChild) {
+     my $cnsl = @$cns;
+     C: {
+       $index = 0;
- ;
+       for my $i (0..($cnsl-1)) {
+         my $cn = $cns->[$i];
+         if ($cn eq $_[2]) {
- {
+           $index += $i;
+           last C;
+         } elsif ($cn eq $_[1]) {
- {
+           $index = -1; # offset
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
- }
- ;
-       }
-       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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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;
- }
- ;}
- ;
+       report Message::DOM::DOMException
+           -object => $self,
- }
+           -type => 'NOT_FOUND_ERR',
+           -subtype => 'NOT_CHILD_ERR';
- ;
+     } # C
-     }
+   } else {
+     ## NOTE: Only in replaceChild
+     report Message::DOM::DOMException
+         -object => $self,
- }
+         -type => 'NOT_FOUND_ERR',
+         -subtype => 'NOT_CHILD_ERR';
- ; # FOR !tc:ForAppendChild
+   }
    ## -- Removes from parent
-   if ($nc_parent) {
+   if ($new_child_parent) {
-     if ($child_nt ==
+     if (@new_child == 1) {
- '11'
+       my $v = $$new_child_parent->{child_nodes};
- ) {
- {
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
-     } else {
-       my $v;
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
        } # RP
+     } else {
+       @{$$new_child_parent->{child_nodes}} = ();
      }
    }
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{parent_node} = $self;
+     Scalar::Util::weaken ($$nc->{parent_node});
- {
- $nc->{
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   ## NOTE: Depends on method:
+   splice @{$$self->{child_nodes}}, $index, 1, @new_child;
+   delete ${$_[2]}->{parent_node};
- {
- $children = $self->{
+   ## NOTE: Only in |Document|.
- 'b'
+   for (@new_child) {
- }->{${$self->{
+     delete $$_->{implementation};
- 'id'
+     $$_->{owner_document} = $self;
- }}}
+     Scalar::Util::weaken ($$_->{owner_document});
-          ->{'child'};
- }
- ;
- ;
- ;
- {
- ## -- Replaces the node
-     splice @$children, $index, 1, map {
- $_->{'id'}
-     } @new_child;
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
-     $r = $oldChild;
- }
- ;
- }
- ;}
- ;
- }
- ;
- if ($child_nt ==
- '10' and
- not defined $newChild->
- owner_document
- ) {
-   my $bag =
- $self->{'b'}
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- $bag->{
- 'm'
- }++;
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- }
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
- };
- $bag->{${$self->{
- 'id'
- }}}
-     ->{'do'}->{${$newChild->{
- 'id'
- }}}
-   = $newChild->{
- 'id'
- };
- }
- ;
- }
- }
- $r}
- sub manakai_append_text ($$) {
- my ($self, $string) = @_;
- my $r;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   unless
- ($self->
- dom_config
-                ->
- get_parameter
-                    (
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
- )) {
-     my $lc = $self->
- last_child
- ;
-     if (defined $lc and
-         $lc->
- node_type
-  ==
- '3'
- ) {
-       $lc->
- manakai_append_text
-              (ref $string eq 'SCALAR' ? $string : \$string);
-     } else {
-       my $text = $self->
- create_text_node
-                           (ref $string eq 'SCALAR' ? $$string : $string);
-       $self->
- append_child
-  ($text);
-     }
    }
-   $r = $self;
- }
- ;}
+   return $_[2];
+ } # replace_child
- ;
+ ## |Document| attributes
+ ## NOTE: A manakai extension.
+ sub all_declarations_processed ($;$);
- }
+ ## TODO: documentation
- $r}
+ sub manakai_charset ($;$);
- sub remove_child ($$) {
- my ($self, $oldChild) = @_;
- my $r;
- {
- if
- ($self->
- 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_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#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
- ;
- }
- {
- F:
- {
-   my $i = -1;
-   for my $cld (@{$self->
- child_nodes
- }) {
-     $i++;
-     if ($cld eq $oldChild) {
-       my $v;
- {
+ sub doctype ($) {
+   my $self = $_[0];
+   for (@{$self->child_nodes}) {
- $v = $self->{
+     if ($_->node_type == 10) { # DOCUMENT_TYPE_NODE
- 'b'
+       return $_;
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-       splice @$v, $i, 1, ();
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
-       $r = $oldChild;
-       last F;
      }
    }
+   return undef;
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/removeChildImpl+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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;
+ } # doctype
- ;
- } # F
- }
- ;
- }
- $r}
- sub node_name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- $r = '#document';
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
- }
- }
- sub text_content ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- local $Error::Depth = $Error::Depth + 1;
+ sub document_element ($) {
+   my $self = shift;
- {
+   for (@{$self->child_nodes}) {
+     if ($_->node_type == 1) { # ELEMENT_NODE
+       return $_;
-   if
- ($self->
- dom_config
-            ->
- get_parameter
-                (
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
- )) {
-     $r =
- undef
- ;
-   } else {
-     $r = '';
-     my @target = @{$self->
- child_nodes
- };
-     C: for my $node (@target) {
-       my $nt = $node->
- node_type
- ;
-       if ($nt ==
- '3' or
- $nt ==
- '4'
- ) {
-         $r .= $node->
- data
-           unless
- $node->
- is_element_content_whitespace
- ;
-       } elsif ($nt ==
- '1' or
- $nt ==
- '5'
- ) {
-         unshift @target, @{$node->
- child_nodes
- };
-       }
      }
    }
+   return undef;
+ } # document_element
+ sub document_uri ($;$);
+ sub dom_config ($) {
+   require Message::DOM::DOMConfiguration;
+   return bless \\($_[0]), 'Message::DOM::DOMConfiguration';
+ } # dom_config
- }
+ sub manakai_entity_base_uri ($;$) {
+   my $self = $_[0];
+   if (@_ > 1) {
- ;}
+     if ($$self->{strict_error_checking}) {
+       if ($$self->{manakai_read_only}) {
- ;
+         report Message::DOM::DOMException
+             -object => $self,
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
- }
+             -subtype => 'READ_ONLY_NODE_ERR';
- $r;
+       }
- } else {my ($self, $given) = @_;
- {
- if
- ($self->
- dom_config
-          ->
- get_parameter
-              (
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
- )) {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#setting-node-value-no-effect', 'rdata' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'text_content';
- ;
- } else {
- {
- {
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- my @__old_children = @{$self->
- child_nodes
- };
- for my $__old_child (@__old_children) {
- {
- CORE::delete
- $__old_child->{
- 'b'
- }->{${$__old_child->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
- }
- my @__new_children;
- if (defined $given and length $given) {
-   my $__text = $self->
- create_text_node
-  ($given);
-   push @__new_children,
- $__text->{'id'}
- ;
- {
- $__text->{
- 'b'
- }->{${$__text->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
- }
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'child'} = \@__new_children;
- }
- ;
- }
- ;
- }
- }
- }
- }
- sub get_feature ($$$) {
- my ($self, $feature, $version) = @_;
- {
- $feature = lc $feature;
- }
- {
- $version = '' unless defined $version;
- }
- my $r;
- {
- $feature =~ s/^\+//;
- ## TODO: Remove this code and implement autoload
- if ($feature eq
- 'http://suika.fam.cx/www/2006/feature/xdoctype'
- ) {
-   require Message::DOM::XDoctype;
- }
- {
- if
- ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
-       ->{has_feature}->{$feature}->{$version}) {
-   $r = $self;
- } else {
-   CLASS: for my $__class (sort {
-     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-   } grep {
-     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
-         ->{compat_class}->{$_}
-   } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
-                ->{compat_class} or {}}) {
-     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-             ->{has_feature}->{$feature}->{$version}) {
- {
- $r = ${($self->{'b'})->{${($self->{'id'})}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => ($self->{'id'}),
- 'b'
-  => ($self->{'b'}),
- }, {
-           'nrcls' => \$__class,
-         });
- ($self->{'b'})->{${($self->{'id'})}}->{
- 'rc'
- }++;
- }
- ;
-       last CLASS;
-     }
-   } # CLASS
- }
- }
- ;
- 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->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'buri'};
- }
- ;
- unless (defined $r) {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- }
- ;
- }
- }
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
- }
- }
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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) {
- 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- }
- ;
- }
- }
- my $r;
- {
- require
- Message::DOM::Element;
- my ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'
-                          ? @$qualifiedName
-                          : split /:/, $qualifiedName, 2;
- ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- $qualifiedName = defined $prefix ? $prefix.':'.$lname : $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
      }
-     unless (
+     if (defined $_[1]) {
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
+       $$self->{manakai_entity_base_uri} = ''.$_[1];
- ) {
+     } else {
+       delete $$self->{manakai_entity_base_uri};
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- }
- }
- ;
-   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::Document::ManakaiDOMDocument', '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';
- ;
-   }
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Element::ManakaiDOMElement'->___create_node_stem ($bag, {
- 'rc'
+   if (defined $$self->{manakai_entity_base_uri}) {
-  => 0,
+     return $$self->{manakai_entity_base_uri};
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'ns' => \$namespaceURI,
-     'pfx' => \$prefix,
-     'ln' => \$lname,
-   });
- {
- if
- (defined 'Message::DOM::Element::ManakaiDOMElement') {
-   if (ref 'Message::DOM::Element::ManakaiDOMElement' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Element::ManakaiDOMElement';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'};
    } else {
-     require Scalar::Util;
+     return $$self->{document_uri};
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'} = \('Message::DOM::Element::ManakaiDOMElement');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'});
    }
- } else {
+ } # manakai_entity_base_uri
-   CORE::delete $stem->{'cls'};
- }
- }
+ ## TODO: documentation
+ sub manakai_has_bom ($;$);
- ;
+ sub input_encoding ($;$);
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
+ sub strict_error_checking ($;$) {
- }
+   ## NOTE: Same as trivial boolean accessor, except no read-only checking.
+   if (@_ > 1) {
- ;
+     if ($_[1]) {
+       ${$_[0]}->{strict_error_checking} = 1;
+     } else {
- {
+       delete ${$_[0]}->{strict_error_checking};
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- ## 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;
-     $__doctype = $__doctype->
- get_feature
-                              (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0');
-     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 ==
- '4' or
- $__at_default ==
- '1'
- ) {
-           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
-       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
-  (
- ));
-           }
-           $__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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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) {
- 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- }
- ;
- }
- }
- my $r;
- {
- require
- Message::DOM::Element;
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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/)
+   return ${$_[0]}->{strict_error_checking};
- ) {
+ } # strict_error_checking
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
+ ## ISSUE: Setting manakai_is_html true shadows
-     }
+ ## xml_* properties.  Is this desired?
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
+ sub xml_encoding ($;$) {
+   my $self = $_[0];
+   if (@_ > 1) {
+     ## NOTE: A manakai extension.
+     if ($$self->{strict_error_checking}) {
+       if ($$self->{manakai_is_html}) {
+         report Message::DOM::DOMException
+             -object => $self,
+             -type => 'NOT_SUPPORTED_ERR',
+             -subtype => 'NON_HTML_OPERATION_ERR';
+       }
+       if ($$self->{manakai_read_only}) {
+         report Message::DOM::DOMException
+             -object => $self,
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
+             -subtype => 'READ_ONLY_NODE_ERR';
+       }
      }
-     unless (
+     if (defined $_[1]) {
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
+       $$self->{xml_encoding} = ''.$_[1];
- ) {
+     } else {
+       delete $$self->{xml_encoding};
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- } 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- }
- }
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Element::ManakaiDOMAttr'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
+   if ($$self->{manakai_is_html}) {
-  => \
+     return undef;
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'ns' => \$namespaceURI,
-     'pfx' => \$prefix,
-     'ln' => \$lname,
-     'specified' => 1,
-   });
- {
- if
- (defined 'Message::DOM::Element::ManakaiDOMAttr') {
-   if (ref 'Message::DOM::Element::ManakaiDOMAttr' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Element::ManakaiDOMAttr';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'};
    } else {
-     require Scalar::Util;
+     return $$self->{xml_encoding};
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'} = \('Message::DOM::Element::ManakaiDOMAttr');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'});
    }
- } else {
+ } # xml_encoding
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
+ sub xml_standalone ($;$) {
- {
+   my $self = $_[0];
+   if (@_ > 1) {
+     if ($$self->{strict_error_checking}) {
- $r = ${$stem->{
+       if ($$self->{manakai_is_html}) {
- 'cls'
+         report Message::DOM::DOMException
- }}->___create_node_ref ({
+             -object => $self,
+             -type => 'NOT_SUPPORTED_ERR',
- 'id'
+             -subtype => 'NON_HTML_OPERATION_ERR';
-  => $stem->{
+       }
- 'id'
+       ## NOTE: Not in DOM3.
- },
+       if ($$self->{manakai_read_only}) {
+         report Message::DOM::DOMException
- 'b'
+             -object => $self,
-  => $bag,
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
- }, {
+             -subtype => 'READ_ONLY_NODE_ERR';
-   });
+       }
- $stem->{
- 'rc'
- }++;
- }
- ;
- ## 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
-  (
- '2'
- );
      }
+     if ($_[1]) {
+       $$self->{xml_standalone} = 1;
+     } else {
- }
+       delete $$self->{xml_standalone};
- ;}
- ;
- }
- }
- $r}
- sub create_text_node ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::TreeCore::ManakaiDOMText'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::TreeCore::ManakaiDOMText') {
-   if (ref 'Message::DOM::TreeCore::ManakaiDOMText' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMText';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'} = \('Message::DOM::TreeCore::ManakaiDOMText');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_cdata_section ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMCDATASection'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMCDATASection') {
-   if (ref 'Message::DOM::XML::ManakaiDOMCDATASection' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMCDATASection';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'} = \('Message::DOM::XML::ManakaiDOMCDATASection');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_comment ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::TreeCore::ManakaiDOMComment'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::TreeCore::ManakaiDOMComment') {
-   if (ref 'Message::DOM::TreeCore::ManakaiDOMComment' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMComment';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'} = \('Message::DOM::TreeCore::ManakaiDOMComment');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_document_fragment ($) {
- my ($self) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Document::ManakaiDOMDocumentFragment'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::Document::ManakaiDOMDocumentFragment') {
-   if (ref 'Message::DOM::Document::ManakaiDOMDocumentFragment' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Document::ManakaiDOMDocumentFragment';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'} = \('Message::DOM::Document::ManakaiDOMDocumentFragment');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_entity_reference ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- our $CreateEntityReference_OpenEntity;
-   ## NOTE: Multithread unsafe
- my $orig_strict = $self->
- strict_error_checking
- ;
- if ($orig_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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
      }
- }
- ;
- ;
- }
- }
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMEntityReference'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'xname' => \$name,
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMEntityReference') {
-   if (ref 'Message::DOM::XML::ManakaiDOMEntityReference' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMEntityReference';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'} = \('Message::DOM::XML::ManakaiDOMEntityReference');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- ## Expansion
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   unless
- ($CreateEntityReference_OpenEntity->{$name}) {
-     local $CreateEntityReference_OpenEntity->{$name} =
- ;
-     my $__doctype = $self->
- doctype
- ;
-     $__doctype = $__doctype->
- get_feature
-                              (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0')
-       if $__doctype;
-     if ($__doctype) {
-       my $__et = $__doctype->
- get_general_entity_node
-  ($name);
-       if ($__et) {
-         $self->
- strict_error_checking
-  (
- );
-         my @node;
-         for my $c (@{$__et->
- child_nodes
- }) {
-           my $clone = $c->
- clone_node
-  (
- );
-           $r->
- append_child
-  ($clone);
-           push @node, $clone;
-         }
-         $r->
- manakai_expanded
-               ($__et->
- has_replacement_tree
- );
-         $self->
- strict_error_checking
-  ($orig_strict);
-       } # entity
-     } # doctype
    }
-   $r->
- manakai_set_read_only
-  (
- ,
- );
- }
- ;}
- ;
- }
- $r}
- sub create_processing_instruction ($$$) {
- my ($self, $target, $data) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $target) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($target =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($target =~ /\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' => $target, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- ;
+   if ($$self->{manakai_is_html}) {
- ;
+     return 0;
- }
- }
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- $data = '' unless defined $data;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMProcessingInstruction'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'target' => \$target,
-     'con' => \$data,
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMProcessingInstruction') {
-   if (ref 'Message::DOM::XML::ManakaiDOMProcessingInstruction' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMProcessingInstruction';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'};
    } else {
-     require Scalar::Util;
+     return $$self->{xml_standalone};
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'} = \('Message::DOM::XML::ManakaiDOMProcessingInstruction');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'});
    }
- } else {
+ } # xml_standalone
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub strict_error_checking ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = 0;
- {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'chk'};
- }
- ;
- $r =
-unless
- defined $r;
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'chk'} = $given ? 1 : 0;
- }
- ;
- }
- }
- }
- sub dom_config ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- {
- $r = bless [$self, ($self->{'b'}->{${$self->{'id'}}}), 'Message::DOM::IFLatest::Document'],
- 'Message::DOM::DOMCore::ManakaiDOMConfiguration'
- ;
- }
- ;
- }
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dom_config';
- }
- }
- sub document_element ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   F:
- for my $child (@{$self->
- child_nodes
- }) {
-     if ($child->
- node_type
-  ==
- '1'
- ) {
-       $r = $child;
-       last F;
-     }
-   } # F
- }
- ;}
- ;
- }
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'document_element';
- }
- }
- sub implementation ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- {
- my
- $__v = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-               ->{'impl'};
- if (defined $__v) {
- {
- $r = ${$self->{'b'}->{${$__v}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $__v,
- 'b'
-  => $self->{'b'},
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::DOMImplementation'],
-   });
- $self->{'b'}->{${$__v}}->{
- 'rc'
- }++;
- }
- ;
- }
- }
- ;
- }
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'implementation';
- }
- }
  sub xml_version ($;$) {
- if (@_ == 1) {my ($self) = @_;
+   my $self = $_[0];
- my $r = '';
+   if (@_ > 1) {
+     my $v = ''.$_[1];
- {
+     if ($$self->{strict_error_checking}) {
+       if ($$self->{manakai_is_html}) {
+         report Message::DOM::DOMException
- {
+             -object => $self,
+             -type => 'NOT_SUPPORTED_ERR',
+             -subtype => 'NON_HTML_OPERATION_ERR';
- $r = $self->{
+       }
- 'b'
+       if ($v ne '1.0' and $v ne '1.1') {
- }->{${$self->{
+         report Message::DOM::DOMException
- 'id'
+             -object => $self,
- }}}
+             -type => 'NOT_SUPPORTED_ERR',
-          ->{'http://www.w3.org/2001/04/infoset#version'};
+             -subtype => 'UNKNOWN_XML_VERSION_ERR';
+       }
+       if ($$self->{manakai_read_only}) {
- }
+         ## ISSUE: Not in DOM3.
+         report Message::DOM::DOMException
- ;
+             -object => $self,
- $r = '1.0' unless defined $r;
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
+             -subtype => 'READ_ONLY_NODE_ERR';
+       }
- }
+     }
- $r;
+     $$self->{xml_version} = $v;
- } else {my ($self, $given) = @_;
+   }
- {
+   if (defined wantarray) {
+     if ($$self->{manakai_is_html}) {
+       return undef;
- {
+     } elsif (defined $$self->{xml_version}) {
+       return $$self->{xml_version};
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- if (defined $given and
-     ($given eq '1.0' or $given eq '1.1' or
-      not $self->
- strict_error_checking
- )) {
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#version'} = $given;
- }
- ;
- } else {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', '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_IMPL_NOSUPPORT_XMLVER', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'xml_version', 'http://www.w3.org/2001/04/infoset#version' => $given;
- ;
- }
- }
- }
- }
- sub doctype ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   F:
- for my $child (@{$self->
- child_nodes
- }) {
-     my $nt = $child->
- node_type
- ;
-     if ($nt ==
- '10'
- ) {
-       $r = $child;
-       last F;
-     } elsif ($nt ==
- '1'
- ) { # document element
-       last F;
-     }
-   } # F
- }
- ;}
- ;
- }
- $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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'doctype';
- }
- }
- sub document_uri ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- }
- ;
- }
- $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'duri'} = $given;
- }
- ;
- }
- }
- }
- sub input_encoding ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'ces'};
- }
- ;
- }
- $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'ces'} = $given;
- }
- ;
- }
- }
- }
- sub xml_encoding ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'xcs'};
- }
- ;
- }
- $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'xcs'} = $given;
- }
- ;
- }
- }
- }
- sub xml_standalone ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = 0;
- {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#standalone'};
- }
- ;
- }
- $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#standalone'} = $given;
- }
- ;
- }
- }
- }
- sub adopt_node ($$) {
- my ($self, $source) = @_;
- my $r;
- {
- ADOPT:
- {
-   last ADOPT
-     unless $source->isa (
- 'Message::DOM::TreeCore::ManakaiDOMNode'
- ) and
- $self->{'b'}
-                eq
- $source->{'b'}
- ;
-   my $strict = $self->
- strict_error_checking
- ;
-   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' => 'adopt_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::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'source';
- ;
-   }
-   my $parent = $source->
- parent_node
- ;
-   if ($strict and defined $parent and
-       $parent->
- 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' => 'adopt_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_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'parent';
- ;
-   }
-   my $nt = $source->
- node_type
- ;
-   my $oe;
-   if ($nt ==
- '2'
- ) {
-     $oe = $source->
- owner_element
- ;
-     if ($strict and defined $oe and $oe->
- 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' => 'adopt_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_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'oe';
- ;
-     }
-   } elsif ($nt ==
- '9' or
- $nt ==
- '10' or
- $nt ==
- '6' or
- $nt ==
- '12'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_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#ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'source';
- ;
-   }
-   my @change_od;
-   my @nodes = ($source);
-   while (@nodes) {
-     my $node = shift @nodes;
-     my $nt = $node->
- node_type
- ;
-     if ($strict and $node->
- 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' => 'adopt_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#NOMOD_DESCENDANT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $node;
- ;
-     }
-     if ($nt ==
- '1'
- ) {
-       push @change_od, $node;
-       push @nodes, @{$node->
- child_nodes
- };
-       my $attrs = $node->
- attributes
- ;
-       my $attrsLength = $attrs->
- length
- ;
-       for my $i (0..($attrsLength - 1)) {
-         push @nodes, $attrs->
- item
-  ($i);
-       }
-     } elsif ($nt ==
- '2' or
- $nt ==
- '5' or
- $nt ==
- '11'
- ) {
-       push @change_od, $node;
-       push @nodes, @{$node->
- child_nodes
- };
-     } elsif ($nt ==
- '3' or
- $nt ==
- '8' or
- $nt ==
- '7' or
- $nt ==
- '4'
- ) {
-       push @change_od, $node;
      } else {
-       ## TODO: assertion
+       return '1.0';
-     }
-   } # nodes
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     if
- (defined $parent) {
-       $parent->
- remove_child
-  ($source);
-     } elsif (defined $oe) {
-       $oe->
- remove_attribute_node
-  ($source);
      }
- }
- ;}
- ;
-   $r = $source;
-   my $old_od = $change_od[0]->
- owner_document
- ;
-                  ## NOTE: The array must have more than zero
-                  ##       nodes by definition.  In addition,
-                  ##       it cannot contain document or document
-                  ##       type nodes in current implementation.
-   if ($old_od eq $self) {
-     last ADOPT;
    }
+ } # xml_version
-   my $old_od_list;
+ ## |Document| methods
- {
- $old_od_list = $old_od->{
- 'b'
- }->{${$old_od->{
- 'id'
- }}}
-          ->{'do'};
- }
- ;
-   my $new_od_list;
- {
- $new_od_list = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'do'};
- }
- ;
-   for my $n (@change_od) {
- {
- $n->{
- 'b'
- }->{${$n->{
- 'id'
- }}}
-     ->{'od'} = $self->{
- 'id'
- };
- }
- ;
-     my $nid =
- $n->{'id'}
- ;
-     CORE::delete $old_od_list->{$$nid};
-     $new_od_list->{$$nid} = $nid;
-   }
-   for my $src (@change_od) {
-     my $src_ud;
- {
- $src_ud = $src->{
- 'b'
- }->{${$src->{
- 'id'
- }}}
-          ->{'ud'};
- }
- ;
-     for my $key (keys %{$src_ud or {}}) {
-       my $dh = $src_ud->{$key}->[1];
-       if ($dh) {
-         $dh->
- handle
-                  (
- '5'
- ,
-                   $key, $src_ud->{$key}->[0], $src,
- undef
- );
-       }
-     }
-   }
- } # ADOPT
- }
- $r}
  sub get_element_by_id ($$) {
- my ($self, $elementId) = @_;
+   local $Error::Depth = $Error::Depth + 1;
- my $r;
+   my @nodes = @{$_[0]->child_nodes};
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   my
- @nodes = @{$self->
- child_nodes
- };
    N: while (@nodes) {
      my $node = shift @nodes;
-     next N unless $node->
+     next N unless $node->node_type == 1; # ELEMENT_NODE
- node_type
+     for my $attr (@{$node->attributes}) {
-  ==
+       if ($attr->is_id and $attr->value eq $_[1]) {
- '1'
+         return $node;
- ;
-     for my $attr (@{$node->
- attributes
- }) {
-       if ($attr->
- is_id and
- $attr->
- value eq
- $elementId) {
-         $r = $attr;
-         last N;
        }
      }
-     unshift @nodes, @{$node->
+     unshift @nodes, @{$node->child_nodes};
- child_nodes
- };
    } # N
+   return undef;
+ } # get_element_by_id
+ ## TODO: HTML5 case normalization
- }
- ;}
- ;
- }
- $r}
  sub get_elements_by_tag_name ($$) {
- my ($self, $name) = @_;
+   my $name = ''.$_[1];
- my $r;
+   my $chk;
+   if ($name eq '*') {
- {
+     $chk = sub () { 1 };
- $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) {
- 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $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 {
+     $chk = sub ($) {
-       my $node = shift;
+       return $_[0]->manakai_tag_name eq $name;
-       ($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 import_node ($$;$) {
- my ($self, $importedNode, $deep) = @_;
- my $r;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'import_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#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
- $r}
- sub normalize_document ($) {
- my ($self) = @_;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'normalize_document', '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_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
- }
- sub rename_node ($$$$) {
- my ($self, $n, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
- 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- }
- ;
- }
- }
- my $r;
- report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'rename_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#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
- $r}
- sub manakai_entity_base_uri ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'buri'};
- }
- ;
- unless (defined $r) {
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- }
- ;
- }
- }
- $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- {
+   require Message::DOM::NodeList;
+   return bless \[$_[0], $chk], 'Message::DOM::NodeList::GetElementsList';
+ } # get_elements_by_tag_name
- $self->{
+ sub get_elements_by_tag_name_ns ($$$) {
- 'b'
+   my $nsuri = defined $_[1] ? ''.$_[1] : '';
- }->{${$self->{
+   my $lname = ''.$_[2];
- 'id'
+   my $chk;
- }}}
+   if ($nsuri eq '*') {
-     ->{'buri'} = $given;
+     if ($lname eq '*') {
+       $chk = sub () { 1 };
+     } else {
- }
+       $chk = sub ($) {
+         return $_[0]->manakai_local_name eq $lname;
- ;
+       };
+     }
+   } elsif ($nsuri eq '') {
- }
+     if ($lname eq '*') {
- }
+       $chk = sub ($) {
- }
+         return not defined $_[0]->namespace_uri;
- sub all_declarations_processed ($;$) {
+       };
- if (@_ == 1) {my ($self) = @_;
+     } else {
- my $r = 0;
+       $chk = sub ($) {
+         return (not defined $_[0]->namespace_uri and
- {
+                 $_[0]->manakai_local_name eq $lname);
+       };
- {
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'};
- }
- ;
- }
- $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- }
- }
- ;
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'} = $given;
- }
- ;
- }
- }
- }
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{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::Document::ManakaiDOMDocument>} = 14.1;
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{compat_class}->{q<Message::DOM::Document::ManakaiDOMDocument>} = 1;
- $Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocument>} = {'s1a',
- ['child'],
- 'v1h',
- ['do'],
- 'w0',
- ['impl']};
- package Message::DOM::IFLatest::DocumentFragment;
- our $VERSION = 20060404.0922;
- package Message::DOM::Document::ManakaiDOMDocumentFragment;
- our $VERSION = 20060404.0922;
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::DocumentFragment',
- 'Message::DOM::IF::Node',
- 'Message::DOM::IFLatest::DocumentFragment',
- 'Message::DOM::IFLatest::Node',
- 'Message::DOM::IFLevel1::DocumentFragment',
- 'Message::DOM::IFLevel1::Node',
- 'Message::DOM::IFLevel2::DocumentFragment',
- 'Message::DOM::IFLevel2::Node',
- 'Message::DOM::IFLevel3::DocumentFragment',
- 'Message::DOM::IFLevel3::Node';
- sub ___create_node_stem ($$$$) {
- my ($self, $bag, $obj, $opt) = @_;
- my $r = {};
- {
- $obj->{
- 'child'
- } = [];
- {
- $obj->{'od'} = $opt->{'od'}->{
- 'id'
- };
- $bag->{${$opt->{'od'}->{
- 'id'
- }}}
-     ->{'do'}->{${$obj->{
- 'id'
- }}}
-   = $obj->{
- 'id'
- };
- }
- ;
- $r = $obj;
- }
- $r}
- sub node_type ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- $r = '11';
- $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::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
- }
- }
- sub append_child ($$) {
- my ($self, $newChild) = @_;
- my $r;
- {
- if
- ($self 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/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';
- ;
- }
- 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 ({
-     '3' => 1,
-     '5' => 1,
-     '1' => 1,
-     '7' => 1,
-     '4' => 1,
-     '8' => 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- '11'
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-     '3' => 1,
-     '5' => 1,
-     '1' => 1,
-     '7' => 1,
-     '4' => 1,
-     '8' => 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 {
+     if ($lname eq '*') {
+       $chk = sub ($) {
- {
+         my $ns = $_[0]->namespace_uri;
+         return (defined $ns and $ns eq $nsuri);
- local $Error::Depth = $Error::Depth - 1;
+       };
+     } else {
- {
+       $chk = sub ($) {
+         my $ns = $_[0]->namespace_uri;
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 (defined $ns and $ns eq $nsuri and
+                 $_[0]->manakai_local_name eq $lname);
+       };
- }
- ;}
- ;
-   }
-   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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
-     }
-     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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
-       }
      }
    }
-   ## -- Insert at...
+   require Message::DOM::NodeList;
-   my $index = -1; # last
+   return bless \[$_[0], $chk], 'Message::DOM::NodeList::GetElementsList';
+ } # get_elements_by_tag_name
- ; # FOR !tc:ForAppendChild
+ ## TODO: import_node
-   ## -- Removes from parent
+ ## TODO: normalize_document
-   if ($nc_parent) {
-     if ($child_nt ==
- '11'
- ) {
- {
+ ## TODO: rename_node
+ ## |DocumentTraversal| methods
- $newChild->{
+ ## TODO: create_node_iterator
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
+ sub manakai_create_serial_walker ($$;$$$);
- }
+ sub create_tree_walker ($$;$$$);
- ;
-     } else {
-       my $v;
- {
+ ## |DocumentView| attribute
- $v = $nc_parent->{
+ sub default_view ($);
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
+ ## |HTMLDocument| attributes
- }
+ sub compat_mode ($) {
+   if (${$_[0]}->{manakai_is_html}) {
- ;
+     if (defined ${$_[0]}->{manakai_compat_mode} and
-       RP: for my $i (0..$#$v) {
+         ${$_[0]}->{manakai_compat_mode} eq 'quirks') {
-         my $nodeid = $v->[$i];
+       return 'BackCompat';
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
    }
+   return 'CSS1Compat';
+ } # compat_mode
-   ## -- Rewrite the |parentNode| properties
+ sub manakai_compat_mode ($;$) {
-   for my $nc (@new_child) {
+   if (${$_[0]}->{manakai_is_html}) {
+     if (@_ > 1 and defined $_[1] and
+         {'no quirks' => 1, 'limited quirks' => 1, 'quirks' => 1}->{$_[1]}) {
- {
+       ${$_[0]}->{manakai_compat_mode} = $_[1];
- $nc->{
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
-   }
-   my $children;
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
- {
- ## -- Adds to children list
-     push @$children, map {
- $_->{'id'}
-     } @new_child;
-     $r = $newChild;
- }
- ;
- ;
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub insert_before ($$;$) {
- my ($self, $newChild, $refChild) = @_;
- my $r;
- {
- if
- ($self 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/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';
- ;
- }
- 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 ({
-     '3' => 1,
-     '5' => 1,
-     '1' => 1,
-     '7' => 1,
-     '4' => 1,
-     '8' => 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- '11'
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-     '3' => 1,
-     '5' => 1,
-     '1' => 1,
-     '7' => 1,
-     '4' => 1,
-     '8' => 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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;
      }
+     return ${$_[0]}->{manakai_compat_mode} || 'no quirks';
    } else {
+     return 'no quirks';
- {
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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;
- }
- ;}
- ;
    }
+ } # manakai_compat_mode
-   my $nc_parent = @new_child ? $new_child[0]->
+ sub inner_html ($;$) {
- parent_node
+   my $self = $_[0];
-                              :
+   local $Error::Depth = $Error::Depth + 1;
- undef
+   if ($$self->{manakai_is_html}) {
- ;
+     require Whatpm::HTML;
-   if ($strict) {
+     if (@_ > 1) {
-     ## -- Wrong-document check
+       ## Step 1
-     unless ($self_od eq $child_od) {
+       ## TODO: Stop parsing and ...
+       ## Step 2
+       my @cn = @{$self->child_nodes};
+       for (@cn) { ## NOTE: Might throw a |NO_MODIFICATION_ALLOWED_ERR|.
+         $self->remove_child ($_); #
+       }
- {
+       ## Step 3, 4, 5
+       Whatpm::HTML->parse_string ($_[1] => $self);
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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:
+       ## <script>var input = function_to_do_xmlhttprequest (location.href);
+       ## document.innerHTML = input</script>
- ;
+       return unless defined wantarray;
      }
-     ## -- Read-onlyness check
+     require Whatpm::HTML::Serializer;
-     if ($self->
+     return ${ Whatpm::HTML::Serializer->get_inner_html ($self) };
- manakai_read_only
+   } else {
- ) {
+     if (@_ > 1) {
+       ## Step 1
+       require Whatpm::XMLParser; # MUST
+       my $doc = $self->implementation->create_document;
+       ## Step 2
+       #
- {
+       ## Step 3
+       $doc = Whatpm::XMLParser->parse_string ($_[1] => $doc); # MUST
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
+       ## Step 4
+       #
- ;}
+       ## Step 5
+       ## TODO: ill-formed -> SYNTAX_ERR # MUST
- ;
+       ## Step 6 # MUST
-     }
+       my @cn = @{$self->child_nodes}; ## TODO: If read-only
-     if (@new_child) {
+       for (@cn) {
-       if ($nc_parent and
+         $self->remove_child ($_);
-           $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
        }
-     }
-   }
-   ## -- Insert at...
-   my $index = -1; # last
- {
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $refChild) {
-       if ($refChild eq $newChild) {
- {
+       ## Step 7, 8, 9, 10
- {
+       for my $node (@{$doc->child_nodes}) {
+         $self->append_child ($self->adopt_node ($node));
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
- }
- ;
- ;
        }
-       my $cns = $self->
+       return unless defined wantarray;
- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 ==
- '11'
- ) {
- {
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
-     } else {
-       my $v;
- {
+     ## TODO: This serializer is currently not conformant to HTML5 spec.
- $v = $nc_parent->{
+     require Whatpm::XMLSerializer;
- 'b'
+     my $r = '';
- }->{${$nc_parent->{
+     for (@{$self->child_nodes}) {
- 'id'
+       $r .= ${ Whatpm::XMLSerializer->get_outer_xml ($_, sub {
- }}}
+         ## TODO: INVALID_STATE_ERR
-          ->{'child'};
+       }) };
- }
- ;
-       RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
+     return $r;
    }
+ } # inner_html
-   ## -- Rewrite the |parentNode| properties
+ sub manakai_is_html ($;$) {
-   for my $nc (@new_child) {
+   if (@_ > 1) {
+     if ($_[1]) {
+       ${$_[0]}->{manakai_is_html} = 1;
- {
- $nc->{
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
-   }
-   my $children;
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
- ;
- {
- ## -- Adds to children list
-     if ($index == -1) {
-       push @$children, map {
- $_->{'id'}
-       } @new_child;
      } else {
-       splice @$children, $index, 0, map {
+       delete ${$_[0]}->{manakai_is_html};
+       delete ${$_[0]}->{manakai_compat_mode};
- $_->{'id'}
-       } @new_child;
      }
-     $r = $newChild;
- }
- ;
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub replace_child ($$$) {
- my ($self, $newChild, $oldChild) = @_;
- my $r;
- {
- if
- ($self 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/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';
- ;
- }
- 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 ({
-     '3' => 1,
-     '5' => 1,
-     '1' => 1,
-     '7' => 1,
-     '4' => 1,
-     '8' => 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- '11'
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-     '3' => 1,
-     '5' => 1,
-     '1' => 1,
-     '7' => 1,
-     '4' => 1,
-     '8' => 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 ${$_[0]}->{manakai_is_html};
+ } # manakai_is_html
-   my $nc_parent = @new_child ? $new_child[0]->
+ package Message::IF::Document;
- parent_node
+ package Message::IF::DocumentTraversal;
-                              :
+ package Message::IF::DocumentXDoctype;
+ package Message::IF::DocumentSelector;
- undef
+ package Message::IF::HTMLDocument;
- ;
-   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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
+ package Message::DOM::DOMImplementation;
- ;
+ sub create_document ($;$$$) {
-     }
+   my $r = Message::DOM::Document->____new ($_[0]);
-     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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
+   if (defined $_[2]) {
- }
+     local $Error::Depth = $Error::Depth + 1;
+     $r->append_child ($r->create_element_ns ($_[1], $_[2])); # NAMESPACE_ERR
+     ## NOTE: manakai might raise DOMExceptions in cases not defined
- ;}
+     ## in DOM3Core spec: XMLNSPREFIX_NONXMLNSNS_ERR,
+     ## XMLNS_NONXMLNSNS_ERR, and NONXMLNSPREFIX_XMLNSNS_ERR.
- ;
+   } elsif (defined $_[1]) {
-       }
+     report Message::DOM::DOMException
-     }
+         -object => $_[0],
+         -type => 'NAMESPACE_ERR',
+         -subtype => 'QNAME_NULLNS_ERR';
    }
-   ## -- Insert at...
+   if (defined $_[3]) {
-   my $index = -1; # last
+     if ($_[3]->parent_node) {
+       report Message::DOM::DOMException
+           -object => $_[0],
- {
+           -type => 'WRONG_DOCUMENT_ERR',
+           -subtype => 'INUSE_DOCTYPE_ERR';
- # 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- }
- ;}
- ;
- }
- ;
-       }
-       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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', '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 ==
- '11'
- ) {
- {
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
-     } else {
-       my $v;
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-       RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
+     local $Error::Depth = $Error::Depth + 1;
+     $r->insert_before ($_[3], $r->first_child); # EXTERNAL_OBJECT_ERR
    }
-   ## -- Rewrite the |parentNode| properties
+   return $r;
-   for my $nc (@new_child) {
+ } # create_document
- {
- $nc->{
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
-   }
-   my $children;
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
- ;
- ;
- {
- ## -- Replaces the node
-     splice @$children, $index, 1, map {
- $_->{'id'}
-     } @new_child;
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
-     $r = $oldChild;
- }
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub node_name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- $r = '#document-fragment';
- $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::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_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
-  ==
- '3'
- ) {
-     $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::DOM::DOMFeature::ClassInfo->{ref $self}
-       ->{has_feature}->{$feature}->{$version}) {
-   $r = $self;
- } else {
-   CLASS: for my $__class (sort {
-     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-   } grep {
-     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
-         ->{compat_class}->{$_}
-   } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
-                ->{compat_class} or {}}) {
-     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-             ->{has_feature}->{$feature}->{$version}) {
- {
- $r = ${($self->{'b'})->{${($self->{'id'})}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => ($self->{'id'}),
- 'b'
-  => ($self->{'b'}),
- }, {
-           'nrcls' => \$__class,
-         });
- ($self->{'b'})->{${($self->{'id'})}}->{
- 'rc'
- }++;
- }
- ;
-       last CLASS;
-     }
-   } # CLASS
- }
- }
- ;
- 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 = '';
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $r = $self->
- owner_document
- ->
- base_uri
- ;
- }
+ =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;
- } 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::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
- }
- }
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{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::Document::ManakaiDOMDocumentFragment>} = 14.1;
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{compat_class}->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 1;
- $Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = {'s1a',
- ['child'],
- 'w0',
- ['od']};
- for ($Message::DOM::IF::Document::, $Message::DOM::IF::DocumentFragment::, $Message::DOM::IF::Node::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::Document::, $Message::DOM::IFLevel1::DocumentFragment::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel2::Document::, $Message::DOM::IFLevel2::DocumentFragment::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel3::Document::, $Message::DOM::IFLevel3::DocumentFragment::, $Message::DOM::IFLevel3::Node::){}
- ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
 ;
+ ## $Date$

 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.28
 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.28
-Removed from v.1.3
+Added in v.1.28

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24