/[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.19 by wakaba,
Sun Dec 31 11:45:50 2006 UTC
+revision 1.31 by wakaba,
Tue Oct 21 07:51:59 2008 UTC
 Line 1
- #!/usr/bin/perl
- ## This file is automatically generated
- ##      at 2006-12-31T09:29:15+00:00,
- ##      from file "../lib/Message/DOM/Document.dis",
- ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>.
- ## Don't edit by hand!
- use strict;
- require Message::DOM::DOMCore;
- require Message::DOM::TreeCore;
- require Message::Util::Error::DOMException;
  package Message::DOM::Document;
- our $VERSION = 20061231.0929;
+ use strict;
- package Message::DOM::Document::ManakaiDOMImplementationDocument;
+ our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
- our $VERSION = 20061231.0929;
+ push our @ISA, 'Message::DOM::Node', 'Message::IF::Document',
- push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>);
+     'Message::IF::DocumentTraversal', 'Message::IF::DocumentXDoctype',
- sub create_document ($;$$$) {
+     'Message::IF::DocumentSelector', # MUST in Selectors API spec
- my ($self, $namespaceURI, $qualifiedName, $doctype) = @_;
+     'Message::IF::HTMLDocument';
+ require Message::DOM::Node;
- {
+ use Char::Class::XML
+     qw/
- if
+       InXML_NameStartChar10 InXMLNameStartChar11
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+       InXMLNameChar10 InXMLNameChar11
-   require Message::DOM::DOMMain;
+       InXML_NCNameStartChar10 InXMLNCNameStartChar11
+       InXMLNCNameChar10 InXMLNCNameChar11
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
+     /;
- ;
+ sub ____new ($$) {
+   my $self = shift->SUPER::____new (undef);
-   $namespaceURI = 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;
- my $r;
+   $$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];
- require
+     return $_[0]->severity != 3; # SEVERITY_FATAL_ERROR
- Scalar::Util;
+   };
- $r = bless \{
+   return $self;
+ } # ____new
- 'child'
-  => [],
+ sub AUTOLOAD {
+   my $method_name = our $AUTOLOAD;
- 'impl'
+   $method_name =~ s/.*:://;
-  => $self,
+   return if $method_name eq 'DESTROY';
- 'http://www.w3.org/2001/04/infoset#version'
-  => '1.0',
- 'chk'
-  => 1,
- },
- 'Message::DOM::Document::ManakaiDOMDocument'
- ;
- if (defined $doctype) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $r->
- append_child
-  ($doctype);
- }
- ;}
- ;
- }
- if (defined $qualifiedName) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     my
- $el = $r->
- create_element_ns
-                    ($namespaceURI, $qualifiedName);
-     $r->
- append_child
-  ($el);
-     $r = $el->
- owner_document
- ;
-            ## Choose the class based on document element type
- }
- ;}
- ;
- } elsif (defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_document', 'http://www.w3.org/2001/04/infoset#namespaceURI' => $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_NULL_QNAME_WITH_NON_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMImplementationDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'namespaceURI';
- ;
- }
- }
- $r}
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {};
- $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0;
- package Message::DOM::IF::Document;
- our $VERSION = 20061231.0929;
- package Message::DOM::Document::ManakaiDOMDocument;
- our $VERSION = 20061231.0929;
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::Document',
- 'Message::DOM::IF::Node';
- 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) = @_;
- 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 ==
- ) {
-       $has_el =
- ;
-     } elsif ($child_nt ==
- ) {
-       $has_dt =
- ;
-     } elsif ($child_nt ==
- ) {
-       for my $cn (@{$newChild->
- child_nodes
- }) {
-         my $cnt = $cn->
- node_type
- ;
-         if ($cnt ==
- ) {
-           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' => '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;
- }
- ;}
- ;
+   if ({
+     ## Read-only attributes (trivial accessors)
+     default_view => 1,
+     implementation => 1,
+   }->{$method_name}) {
+     no strict 'refs';
+     eval qq{
+       sub $method_name (\$) {
+         return \${\$_[0]}->{$method_name};
+       }
+     };
+     goto &{ $AUTOLOAD };
+   } elsif ({
+     ## Read-write attributes (DOMString, trivial accessors)
+     manakai_charset => 1,
+     document_uri => 1,
+     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};
            }
-           $has_el =
- ;
          }
-         # DocumentType node cannot be contained in DocumentFragments
+         return \${\$_[0]}->{$method_name};
        }
-     }
+     };
+     goto &{ $AUTOLOAD };
-     if ($has_el) {
+   } elsif ({
-       my $anode = $self->
+     ## Read-write attributes (boolean, trivial accessors)
- last_child
+     all_declarations_processed => 1,
- ;
+     manakai_has_bom => 1,
-       while (defined $anode) {
+   }->{$method_name}) {
-         if ($anode->
+     no strict 'refs';
- node_type
+     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',
- local $Error::Depth = $Error::Depth - 1;
+                 -subtype => 'READ_ONLY_NODE_ERR';
+           }
- {
+           if (\$_[1]) {
+             \${\$_[0]}->{$method_name} = 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;
+           } else {
+             delete \${\$_[0]}->{$method_name};
+           }
- }
- ;}
- ;
          }
-         $anode = $anode->
+         return \${\$_[0]}->{$method_name};
- previous_sibling
- ;
        }
-     } # has_el
+     };
-     if ($has_dt) {
+     goto &{ $AUTOLOAD };
-       my $anode = $self->
+   } elsif (my $module_name = {
- last_child
+     can_dispatch => 'Message::DOM::EventTargetNode',
- ;
+     create_attribute => 'Message::DOM::Attr',
-       while (defined $anode) {
+     create_attribute_ns => 'Message::DOM::Attr',
-         my $ant = $anode->
+     create_attribute_definition => 'Message::DOM::AttributeDefinition',
- node_type
+     create_cdata_section => 'Message::DOM::Text',
- ;
+     create_comment => 'Message::DOM::CharacterData',
-         if ($ant ==
+     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',
- local $Error::Depth = $Error::Depth - 1;
+     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
- {
+ sub node_name () { '#document' }
- 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;
+ sub node_type () { 9 } # DOCUMENT_NODE
+ sub text_content ($;$) {
+   my $self = shift;
+   if ($$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'}) {
+     return undef;
+   } else {
+     local $Error::Depth = $Error::Depth + 1;
+     return $self->SUPER::text_content (@_);
+   }
+ } # text_content
- }
+ ## |Node| methods
+ 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;
-         } elsif ($ant ==
+   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';
+   }
- local $Error::Depth = $Error::Depth - 1;
+   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';
+   }
- {
+   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::DOMException
+           -object => $self,
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
+     }
- 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;
+     push @change_od, $node;
+     push @nodes, @{$node->child_nodes}, @{$node->attributes or []};
+   } # @nodes
+   local $Error::Depth = $Error::Depth + 1;
- }
+   if (defined $parent) {
+     $parent->remove_child ($source);
+   } elsif (defined $oe) {
+     $oe->remove_attribute_node ($source);
+   }
+   return $source if $self eq $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.
- ;}
+   my @ud_node;
+   for my $n (@change_od) {
+     $$n->{owner_document} = $self;
+     Scalar::Util::weaken ($$n->{owner_document});
+     if ($$n->{user_data}) {
+       push @ud_node, $n;
+     }
+   }
- ;
+   for my $src (@ud_node) {
-         }
+     my $src_ud = $$src->{user_data};
-         $anode = $anode->
+     for my $key (keys %{$src_ud}) {
- previous_sibling
+       my $dh = $src_ud->{$key}->[1];
- ;
+       if ($dh) {
+         $dh->(5, $key, $src_ud->{$key}->[0], $src, undef); # NODE_ADOPTED
        }
-     } # has_dt
+     }
+   }
- }
- ;}
- ;
- }
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
+   return $source;
+ } # adopt_node
-   my
+ sub append_child ($$) {
- $strict = $self->
+   ## NOTE: Overrides |Node|'s implementation.
- strict_error_checking
+   my $self = $_[0];
- ;
+   ## NOTE: |$self_od| code here in some $self->node_type.
    ## -- Node Type check
    my @new_child;
-   if ({
+   my $new_child_parent;
-=> (not $strictc),
+   if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
-=> (not $strictc),
+     push @new_child, @{$_[1]->child_nodes};
-=> 1,
+     $new_child_parent = $_[1];
-=> (not $strictc),
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> (not $strictc),
-=> (not $strictc),
-=> 1,
-=> (not $strictc),
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-       }
-       push @new_child, $cn;
-     }
    } else {
+     @new_child = ($_[1]);
+     $new_child_parent = $_[1]->parent_node;
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
-   my $nc_parent = @new_child ? $new_child[0]->
+   ## NOTE: Depends on $self->node_type:
- parent_node
+   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) {
- undef
+       report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
- ;
+           -object => $self,
-   if ($strict) {
+           -type => 'WRONG_DOCUMENT_ERR',
-     ## -- Wrong-document check
+           -subtype => 'EXTERNAL_OBJECT_ERR';
-     unless ($self eq $child_od) {
+     }
+     if ($$self->{manakai_read_only} or
- {
+         (@new_child and defined $new_child_parent and
+          $$new_child_parent->{manakai_read_only})) {
- local $Error::Depth = $Error::Depth - 1;
+       report Message::DOM::DOMException
+           -object => $self,
- {
+           -type => 'NO_MODIFICATION_ALLOWED_ERR',
+           -subtype => 'READ_ONLY_NODE_ERR';
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
+     }
+     ## 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;
-     ## -- Read-onlyness check
+       } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
-     if ($self->
+         $has_dt = 1;
- manakai_read_only
+       } 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
- local $Error::Depth = $Error::Depth - 1;
+                   -object => $self,
+                   -type => 'HIERARCHY_REQUEST_ERR',
- {
+                   -subtype => 'CHILD_NODE_TYPE_ERR';
+             }
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
+             $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;
+           }
+         }
+       }
+       if ($has_el) {
+         my $anode = $self->last_child;
+         while (defined $anode) {
+           if ($anode->node_type == 1) { # ELEMENT_NODE
+             report Message::DOM::DOMException
+                 -object => $self,
+                 -type => 'HIERARCHY_REQUEST_ERR',
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
+           }
+           $anode = $anode->previous_sibling;
+         }
+       } # has_el
+       if ($has_dt) {
+         my $anode = $self->last_child;
+         while (defined $anode) {
+           my $ant = $anode->node_type;
+           if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
+             report Message::DOM::DOMException
+                 -object => $self,
+                 -type => 'HIERARCHY_REQUEST_ERR',
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
+           }
+           $anode = $anode->previous_sibling;
+         }
+       } # has_dt
      }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
+     for my $cn (@new_child) {
+       unless ({
+, (not $strict_children), # TEXT_NODE
- }
+, (not $strict_children), # ENTITY_REFERENCE_NODE
+, 1, # ELEMENT_NODE
+, (not $strict_children), # CDATA_SECTION_NODE
- ;}
+, 1, # PROCESSING_INSTRUCTION_NODE
+, 1, # COMMENT_NODE
- ;
+, 1, # DOCUMENT_TYPE_NODE
+               }->{$cn->node_type}) {
+         report Message::DOM::DOMException
+             -object => $self,
+             -type => 'HIERARCHY_REQUEST_ERR',
+             -subtype => 'CHILD_NODE_TYPE_ERR';
        }
      }
-   }
-   ## -- Insert at...
+     ## NOTE: Ancestor check here in |Node|.
-   my $index = -1; # last
+   }
- ; # FOR !tc:ForAppendChild
+   ## NOTE: "Insert at" code only in insert_before and replace_child
    ## -- Removes from parent
-   if ($nc_parent) {
+   if ($new_child_parent) {
-     if ($child_nt ==
+     if (@new_child == 1) {
+       my $v = $$new_child_parent->{child_nodes};
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
        RP: for my $i (0..$#$v) {
          if ($v->[$i] eq $new_child[0]) {
            splice @$v, $i, 1, ();
            last RP;
          }
        } # RP
+     } else {
+       @{$$new_child_parent->{child_nodes}} = ();
      }
    }
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
-     $$nc->{
+     $$nc->{parent_node} = $self;
- 'parent'
+     Scalar::Util::weaken ($$nc->{parent_node});
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
    }
-   my $children = $$self->{
+   ## NOTE: Depends on method:
- 'child'
+   push @{$$self->{child_nodes}}, @new_child;
- };
- {
- ## -- Adds to children list
-     push @$children, @new_child;
-     $r = $newChild;
- }
- ;
- ;
- ;
- }
- ;}
- ;
- }
- ;
- if ($child_nt ==
-and
- not defined $newChild->
- owner_document
- ) {
-   CORE::delete $$newChild->{
- 'impl'
- };
-   $$newChild->{
- 'od'
- } = $self;
-   Scalar::Util::weaken ($$newChild->{
- 'od'
- });
- }
- }
- $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;
- {
+   ## NOTE: Only in |Document|.
+   for (@new_child) {
+     delete $$_->{implementation};
+     $$_->{owner_document} = $self;
+     Scalar::Util::weaken ($$_->{owner_document});
+   }
-     my
+   return $_[1];
- $has_el;
+ } # apepnd_child
-     my $has_dt;
-     if ($child_nt ==
- ) {
-       $has_el =
- ;
-     } elsif ($child_nt ==
- ) {
-       $has_dt =
- ;
-     } elsif ($child_nt ==
- ) {
-       for my $cn (@{$newChild->
- child_nodes
- }) {
-         my $cnt = $cn->
- node_type
- ;
-         if ($cnt ==
- ) {
-           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;
+ 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
-  ==
- ) {
- {
- 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 ==
- ) {
- {
- 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;
- }
+       ## ISSUE: This code is wrong.  Old manakai's implementation
- ;}
+       ## is better, but it is also wrong in some edge cases.
+       ## Maybe we should remove these code entirely.  DOM3Core
- ;
+       ## conformance is not important for this bit.  It only makes
-         } elsif ($ant ==
+       ## 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,
- local $Error::Depth = $Error::Depth - 1;
+                 -type => 'HIERARCHY_REQUEST_ERR',
+                 -subtype => 'CHILD_NODE_TYPE_ERR';
- {
+           }
+           $anode = $anode->previous_sibling;
- 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 ==
- ) {
- {
- 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;
- }
- ;}
- ;
-         } elsif ($ant ==
- ) {
- {
- 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';
+           }
- ) {
+           $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 ({
-=> (not $strictc),
-=> (not $strictc),
-=> 1,
-=> (not $strictc),
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
        unless ({
-=> (not $strictc),
+, (not $strict_children), # TEXT_NODE
-=> (not $strictc),
+, (not $strict_children), # ENTITY_REFERENCE_NODE
-=> 1,
+, 1, # ELEMENT_NODE
-=> (not $strictc),
+, (not $strict_children), # CDATA_SECTION_NODE
-=> 1,
+, 1, # PROCESSING_INSTRUCTION_NODE
-=> 1,
+, 1, # COMMENT_NODE
-=> 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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
        }
-       push @new_child, $cn;
      }
-   } else {
- {
+     ## NOTE: Ancestor check here in |Node|.
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
-   my $nc_parent = @new_child ? $new_child[0]->
- 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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
-       }
-     }
-   }
-   ## -- 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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
- }
- ;
- ;
-       }
-       my $cns = $self->
- child_nodes
- ;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $refChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
-           }
          }
+       }
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
- }
- ;}
- ;
- }
- ;
- ;
-       } # C
-     } else { # |oldChild| is not defined
+       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) {
+       my $v = $$new_child_parent->{child_nodes};
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
        RP: for my $i (0..$#$v) {
          if ($v->[$i] eq $new_child[0]) {
            splice @$v, $i, 1, ();
            last RP;
          }
        } # RP
+     } else {
+       @{$$new_child_parent->{child_nodes}} = ();
      }
    }
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
-     $$nc->{
+     $$nc->{parent_node} = $self;
- 'parent'
+     Scalar::Util::weaken ($$nc->{parent_node});
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
    }
-   my $children = $$self->{
+   ## NOTE: Depends on method:
- 'child'
+   if ($index == -1) {
- };
+     push @{$$self->{child_nodes}}, @new_child;
+   } else {
+     splice @{$$self->{child_nodes}}, $index, 0, @new_child;
+   }
- ;
- {
- ## -- Adds to children list
-     if ($index == -1) {
-       push @$children, @new_child;
-     } else {
-       splice @$children, $index, 0, @new_child;
-     }
-     $r = $newChild;
- }
- ;
- ;
- }
- ;}
- ;
- }
- ;
- if ($child_nt ==
-and
- not defined $newChild->
- owner_document
- ) {
-   CORE::delete $$newChild->{
- 'impl'
- };
-   $$newChild->{
- 'od'
- } = $self;
-   Scalar::Util::weaken ($$newChild->{
- 'od'
- });
- }
- }
- $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
+   ## NOTE: Only in |Document|.
- $has_el;
+   for (@new_child) {
-     my $has_dt;
+     delete $$_->{implementation};
-     if ($child_nt ==
+     $$_->{owner_document} = $self;
+     Scalar::Util::weaken ($$_->{owner_document});
- ) {
+   }
-       $has_el =
- ;
-     } elsif ($child_nt ==
- ) {
-       $has_dt =
- ;
-     } elsif ($child_nt ==
- ) {
-       for my $cn (@{$newChild->
- child_nodes
- }) {
-         my $cnt = $cn->
- node_type
- ;
-         if ($cnt ==
- ) {
-           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;
+   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) {
-     if ($has_el) {
+         my $anode = $self->last_child;
-       my $anode = $oldChild->
+         while (defined $anode) {
- previous_sibling
+           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';
-  ==
+           }
+           $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/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 ==
- ) {
- {
- 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 ==
- ) {
- {
- 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) {
-       my $anode = $oldChild->
- previous_sibling
- ;
-       while (defined $anode) {
-         my $ant = $anode->
- node_type
- ;
-         if ($ant ==
- ) {
- {
- 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 ==
- ) {
- {
- 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;
- ) {
- {
- 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 ({
-=> (not $strictc),
-=> (not $strictc),
-=> 1,
-=> (not $strictc),
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
        unless ({
-=> (not $strictc),
+, (not $strict_children), # TEXT_NODE
-=> (not $strictc),
+, (not $strict_children), # ENTITY_REFERENCE_NODE
-=> 1,
+, 1, # ELEMENT_NODE
-=> (not $strictc),
+, (not $strict_children), # CDATA_SECTION_NODE
-=> 1,
+, 1, # PROCESSING_INSTRUCTION_NODE
-=> 1,
+, 1, # COMMENT_NODE
-=> 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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
        }
-       push @new_child, $cn;
      }
-   } else {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-   }
-   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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
+     ## NOTE: Ancestor check here in |Node|.
-       }
-     }
    }
-   ## -- 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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
- }
- ;
-       }
-       my $cns = $self->
- child_nodes
- ;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $oldChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
-           }
          }
+       }
- ;
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-       } # C
-     } else { # |oldChild| is not defined
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
+       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) {
+       my $v = $$new_child_parent->{child_nodes};
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
        RP: for my $i (0..$#$v) {
          if ($v->[$i] eq $new_child[0]) {
            splice @$v, $i, 1, ();
            last RP;
          }
        } # RP
+     } else {
+       @{$$new_child_parent->{child_nodes}} = ();
      }
    }
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
-     $$nc->{
+     $$nc->{parent_node} = $self;
- 'parent'
+     Scalar::Util::weaken ($$nc->{parent_node});
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
    }
-   my $children = $$self->{
+   ## NOTE: Depends on method:
- 'child'
+   splice @{$$self->{child_nodes}}, $index, 1, @new_child;
- };
+   delete ${$_[2]}->{parent_node};
- ;
- ;
- {
- ## -- Replaces the node
-     splice @$children, $index, 1, @new_child;
-     CORE::delete $$oldChild->{
- 'parent'
- };
-     $r = $oldChild;
- }
- ;
- }
- ;}
- ;
- }
- ;
- if ($child_nt ==
-and
- not defined $newChild->
- owner_document
- ) {
-   CORE::delete $$newChild->{
- 'impl'
- };
-   $$newChild->{
- 'od'
- } = $self;
-   Scalar::Util::weaken ($$newChild->{
- 'od'
- });
- }
- }
- $r}
- sub manakai_append_text ($$) {
- my ($self, $string) = @_;
- my $r;
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
+   ## NOTE: Only in |Document|.
+   for (@new_child) {
+     delete $$_->{implementation};
+     $$_->{owner_document} = $self;
+     Scalar::Util::weaken ($$_->{owner_document});
+   }
+   return $_[2];
+ } # replace_child
-   unless
+ ## |Document| attributes
- ($self->
- dom_config
-                ->
+ ## NOTE: A manakai extension.
- get_parameter
+ sub all_declarations_processed ($;$);
-                    (
+ ## TODO: documentation
- 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
+ sub manakai_charset ($;$);
- )) {
-     my $lc = $self->
- last_child
- ;
-     if (defined $lc and
-         $lc->
- node_type
-  ==
- ) {
-       $lc->
- manakai_append_text
-              (ref $string eq 'SCALAR' ? $string : \$string);
+ sub doctype ($) {
-     } else {
+   my $self = $_[0];
-       my $text = $self->
+   for (@{$self->child_nodes}) {
- create_text_node
+     if ($_->node_type == 10) { # DOCUMENT_TYPE_NODE
+       return $_;
-                           (ref $string eq 'SCALAR' ? $$string : $string);
-       $self->
- append_child
-  ($text);
      }
    }
-   $r = $self;
+   return undef;
+ } # doctype
- }
- ;}
- ;
+ sub document_element ($) {
+   my $self = shift;
+   for (@{$self->child_nodes}) {
- }
+     if ($_->node_type == 1) { # ELEMENT_NODE
- $r}
+       return $_;
- 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;
-   my $v = $$self->{
- 'child'
- };
-   for my $cld (@$v) {
-     $i++;
-     if ($cld eq $oldChild) {
-       splice @$v, $i, 1, ();
-       CORE::delete $$oldChild->{
- '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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/removeChildImpl', '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;
+ } # document_element
- ;
- } # 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 = '';
- {
+ 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];
- local $Error::Depth = $Error::Depth + 1;
+   if (@_ > 1) {
+     if ($$self->{strict_error_checking}) {
- {
+       if ($$self->{manakai_read_only}) {
+         report Message::DOM::DOMException
+             -object => $self,
-   if
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
- ($self->
+             -subtype => 'READ_ONLY_NODE_ERR';
- 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 ==
-or
- $nt ==
- ) {
-         $r .= $node->
- data
-           unless
- $node->
- is_element_content_whitespace
- ;
-       } elsif ($nt ==
-or
- $nt ==
- ) {
-         unshift @target, @{$node->
- child_nodes
- };
        }
      }
+     if (defined $_[1]) {
+       $$self->{manakai_entity_base_uri} = ''.$_[1];
+     } else {
+       delete $$self->{manakai_entity_base_uri};
+     }
    }
- }
- ;}
- ;
- }
- $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';
+   if (defined $$self->{manakai_entity_base_uri}) {
+     return $$self->{manakai_entity_base_uri};
- ;
+   } else {
- } else {
+     return $$self->{document_uri};
+   }
+ } # manakai_entity_base_uri
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- for my $__old_child (@{${$self}->{
- 'child'
- }}) {
-   CORE::delete $$__old_child->{
- 'parent'
- };
- }
- my @__new_children;
- if (defined $given and length $given) {
-   my $__text = $self->
- create_text_node
-  ($given);
-   push @__new_children, $__text;
-   $$__text->{
- 'parent'
- } = $self;
-   Scalar::Util::weaken ($$__text->{
- 'parent'
- });
- }
- ${$self}->{
- 'child'
- } = \@__new_children;
- }
- ;
- }
- }
- }
- }
- sub get_feature ($$$) {
- my ($self, $feature, $version) = @_;
- {
- $feature = lc $feature;
- }
- {
- $version = '' unless defined $version;
- }
- my $r;
- {
- $feature =~ s/^\+//;
- {
- if
- ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-   $r = $self;
- }
- }
- ;
- unless (defined $r) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $r = $self->SUPER::get_feature ($feature, $version);
- }
- ;}
- ;
- }
- }
- $r}
- sub base_uri ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- $r = $$self->{
- 'buri'
- };
- unless (defined $r) {
-   $r = $$self->{
- '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_document_fragment ($) {
- my ($self) = @_;
- my $r;
- {
- $r = bless \{
+ ## TODO: documentation
+ sub manakai_has_bom ($;$);
- 'od'
-  => $self,
- 'child'
-  => [],
- },
- 'Message::DOM::Document::ManakaiDOMDocumentFragment'
- ;
- Scalar::Util::weaken ($$r->{
- 'od'
- });
+ sub input_encoding ($;$);
- }
- $r}
  sub strict_error_checking ($;$) {
- if (@_ == 1) {my ($self) = @_;
+   ## NOTE: Same as trivial boolean accessor, except no read-only checking.
- my $r = 0;
+   if (@_ > 1) {
+     if ($_[1]) {
- {
+       ${$_[0]}->{strict_error_checking} = 1;
+     } else {
+       delete ${$_[0]}->{strict_error_checking};
- $r = $$self->{
- 'chk'
- };
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- $$self->{
- 'chk'
- } = $given;
- }
- }
- }
- sub dom_config ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r;
- {
- {
- $r = bless [$self, $$self, 'Message::DOM::IF::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
-  ==
- ) {
-       $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;
- {
- $r = $$self->{
- 'impl'
- };
- }
- $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 $r = '';
- {
- $r = $$self->{
- 'http://www.w3.org/2001/04/infoset#version'
- };
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- if (defined $given and
-     ($given eq '1.0' or $given eq '1.1' or
-      not $self->
- strict_error_checking
- )) {
-   $$self->{
- '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 ==
- ) {
-       $r = $child;
-       last F;
-     } elsif ($nt ==
- ) { # document element
-       last F;
      }
-   } # F
+   }
+   return ${$_[0]}->{strict_error_checking};
+ } # strict_error_checking
- }
- ;}
- ;
- }
- $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->{
- '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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
+ ## ISSUE: Setting manakai_is_html true shadows
+ ## xml_* properties.  Is this desired?
- }
- ;
- $$self->{
- 'duri'
- } = $given;
- }
- }
- }
- sub input_encoding ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- {
- $r = $$self->{
- '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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- $$self->{
- 'ces'
- } = $given;
- }
- }
- }
  sub xml_encoding ($;$) {
- if (@_ == 1) {my ($self) = @_;
+   my $self = $_[0];
- my $r = '';
+   if (@_ > 1) {
+     ## NOTE: A manakai extension.
- {
+     if ($$self->{strict_error_checking}) {
+       if ($$self->{manakai_is_html}) {
+         report Message::DOM::DOMException
- $r = $$self->{
+             -object => $self,
- 'xcs'
+             -type => 'NOT_SUPPORTED_ERR',
- };
+             -subtype => 'NON_HTML_OPERATION_ERR';
+       }
+       if ($$self->{manakai_read_only}) {
- }
+         report Message::DOM::DOMException
- $r;
+             -object => $self,
- } else {my ($self, $given) = @_;
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
+             -subtype => 'READ_ONLY_NODE_ERR';
- {
- {
- if
- ($self->
- manakai_read_only
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- $$self->{
- 'xcs'
- } = $given;
- }
- }
- }
- sub xml_standalone ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = 0;
- {
- $r = $$self->{
- '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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- $$self->{
- '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'
- );
-   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 ==
- ) {
-     $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 ==
-or
- $nt ==
-or
- $nt ==
-or
- $nt ==
- ) {
- 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 ==
- ) {
-       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 ==
+     }
-or
+     if (defined $_[1]) {
+       $$self->{xml_encoding} = ''.$_[1];
- $nt ==
-or
- $nt ==
- ) {
-       push @change_od, $node;
-       push @nodes, @{$node->
- child_nodes
- };
-     } elsif ($nt ==
-or
- $nt ==
-or
- $nt ==
-or
- $nt ==
- ) {
-       push @change_od, $node;
      } else {
-       ## TODO: assertion
+       delete $$self->{xml_encoding};
      }
-   } # nodes
+   }
+   if ($$self->{manakai_is_html}) {
+     return undef;
+   } else {
+     return $$self->{xml_encoding};
+   }
+ } # xml_encoding
- {
+ sub xml_standalone ($;$) {
+   my $self = $_[0];
- local $Error::Depth = $Error::Depth + 1;
+   if (@_ > 1) {
+     if ($$self->{strict_error_checking}) {
- {
+       if ($$self->{manakai_is_html}) {
+         report Message::DOM::DOMException
+             -object => $self,
-     if
+             -type => 'NOT_SUPPORTED_ERR',
- (defined $parent) {
+             -subtype => 'NON_HTML_OPERATION_ERR';
-       $parent->
+       }
- remove_child
+       ## NOTE: Not in DOM3.
-  ($source);
+       if ($$self->{manakai_read_only}) {
-     } elsif (defined $oe) {
+         report Message::DOM::DOMException
-       $oe->
+             -object => $self,
- remove_attribute_node
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
-  ($source);
+             -subtype => 'READ_ONLY_NODE_ERR';
+       }
+     }
+     if ($_[1]) {
+       $$self->{xml_standalone} = 1;
+     } else {
+       delete $$self->{xml_standalone};
      }
- }
- ;}
- ;
-   $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;
    }
-   for my $n (@change_od) {
+   if ($$self->{manakai_is_html}) {
-     $$n->{
+     return 0;
- 'od'
+   } else {
- } = $self;
+     return $$self->{xml_standalone};
-     Scalar::Util::weaken ($$n->{
- 'od'
- });
    }
+ } # xml_standalone
-   for my $src (@change_od) {
+ sub xml_version ($;$) {
-     my $src_ud = $$src->{
+   my $self = $_[0];
- 'ud'
+   if (@_ > 1) {
- };
+     my $v = ''.$_[1];
-     for my $key (keys %{$src_ud or {}}) {
+     if ($$self->{strict_error_checking}) {
-       my $dh = $src_ud->{$key}->[1];
+       if ($$self->{manakai_is_html}) {
-       if ($dh) {
+         report Message::DOM::DOMException
-         $dh->
+             -object => $self,
- handle
+             -type => 'NOT_SUPPORTED_ERR',
+             -subtype => 'NON_HTML_OPERATION_ERR';
-                  (
+       }
+       if ($v ne '1.0' and $v ne '1.1') {
- ,
+         report Message::DOM::DOMException
-                   $key, $src_ud->{$key}->[0], $src,
+             -object => $self,
- undef
+             -type => 'NOT_SUPPORTED_ERR',
- );
+             -subtype => 'UNKNOWN_XML_VERSION_ERR';
        }
+       if ($$self->{manakai_read_only}) {
+         ## ISSUE: Not in DOM3.
+         report Message::DOM::DOMException
+             -object => $self,
+             -type => 'NO_MODIFICATION_ALLOWED_ERR',
+             -subtype => 'READ_ONLY_NODE_ERR';
+       }
+     }
+     $$self->{xml_version} = $v;
+   }
+   if (defined wantarray) {
+     if ($$self->{manakai_is_html}) {
+       return undef;
+     } elsif (defined $$self->{xml_version}) {
+       return $$self->{xml_version};
+     } else {
+       return '1.0';
      }
    }
- } # ADOPT
+ } # xml_version
+ ## |Document| methods
- }
- $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]) {
+         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) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r;
- {
- $namespaceURI = "$namespaceURI" if defined $namespaceURI;
- $localName = "$localName";
- my $chk;
- if (not defined $namespaceURI) {
-   if ($localName eq '*') {
-     $chk = sub {
-       my $node = shift;
-       (not defined $node->
- namespace_uri
- );
-     };
    } else {
-     $chk = sub {
+     $chk = sub ($) {
-       my $node = shift;
+       return $_[0]->manakai_tag_name eq $name;
-       (not defined $node->
- namespace_uri and
- $node->
- local_name eq
- $localName);
      };
    }
- } elsif ($namespaceURI eq '*') {
-   if ($localName eq '*') {
-     $chk = sub {
-  };
-   } else {
-     $chk = sub {
-       my $node = shift;
-       ($node->
- local_name eq
- $localName);
-     };
-   }
- } else {
-   if ($localName eq '*') {
-     $chk = sub {
-       my $node = shift;
-       my $nsuri = $node->
- namespace_uri
- ;
-       (defined $nsuri and $nsuri eq $namespaceURI);
-     };
-   } else {
-     $chk = sub {
-       my $node = shift;
-       my $nsuri = $node->
- namespace_uri
- ;
-       (defined $nsuri and $nsuri eq $namespaceURI and
-        $node->
- local_name eq
- $localName);
-     };
-   }
- }
- {
- $r = bless \[$self, $chk],
- 'Message::DOM::TreeCore::ManakaiDOMGetElementsNodeList'
- ;
- }
- ;
- }
- $r}
- sub 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) {
-   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor';
- ;
-   $namespaceURI = undef;
- }
- }
- my $r;
- 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->{
- 'buri'
- };
- unless (defined $r) {
-   $r = $$self->{
- '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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
- ;
- }
- }
- ;
- $$self->{
- 'buri'
- } = $given;
- }
- }
- }
- sub all_declarations_processed ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = 0;
- {
- $r = $$self->{
- 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
- };
- }
- $r;
- } else {my ($self, $given) = @_;
- {
- {
+   require Message::DOM::NodeList;
+   return bless \[$_[0], $chk], 'Message::DOM::NodeList::GetElementsList';
+ } # get_elements_by_tag_name
- if
+ sub get_elements_by_tag_name_ns ($$$) {
- ($self->
+   my $nsuri = defined $_[1] ? ''.$_[1] : '';
- manakai_read_only
+   my $lname = ''.$_[2];
- ) {
+   my $chk;
+   if ($nsuri eq '*') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError';
+     if ($lname eq '*') {
+       $chk = sub () { 1 };
- ;
+     } else {
- }
+       $chk = sub ($) {
+         return $_[0]->manakai_local_name eq $lname;
+       };
- }
+     }
+   } elsif ($nsuri eq '') {
- ;
+     if ($lname eq '*') {
- $$self->{
+       $chk = sub ($) {
- 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
+         return not defined $_[0]->namespace_uri;
- } = $given;
+       };
+     } else {
+       $chk = sub ($) {
- }
+         return (not defined $_[0]->namespace_uri and
- }
+                 $_[0]->manakai_local_name eq $lname);
- }
+       };
- $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;
- package Message::DOM::IF::DocumentFragment;
- our $VERSION = 20061231.0929;
- package Message::DOM::Document::ManakaiDOMDocumentFragment;
- our $VERSION = 20061231.0929;
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::DocumentFragment',
- 'Message::DOM::IF::Node';
- 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 ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-       }
-       push @new_child, $cn;
      }
    } else {
+     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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
+         return (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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
      }
+   }
-     ## -- Read-onlyness check
+   require Message::DOM::NodeList;
-     if ($self->
+   return bless \[$_[0], $chk], 'Message::DOM::NodeList::GetElementsList';
- manakai_read_only
+ } # get_elements_by_tag_name
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
- }
- ;}
+ ## TODO: import_node
- ;
+ ## TODO: normalize_document
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
+ ## TODO: rename_node
- local $Error::Depth = $Error::Depth - 1;
+ ## |DocumentTraversal| methods
- {
+ ## TODO: create_node_iterator
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1';
+ sub manakai_create_serial_walker ($$;$$$);
+ sub create_tree_walker ($$;$$$);
- }
+ ## |DocumentView| attribute
+ sub default_view ($);
- ;}
+ ## |HTMLDocument| attributes
- ;
+ sub compat_mode ($) {
-       }
+   if (${$_[0]}->{manakai_is_html}) {
+     if (defined ${$_[0]}->{manakai_compat_mode} and
+         ${$_[0]}->{manakai_compat_mode} eq 'quirks') {
+       return 'BackCompat';
      }
    }
+   return 'CSS1Compat';
+ } # compat_mode
-   ## -- Insert at...
+ sub manakai_compat_mode ($;$) {
-   my $index = -1; # last
+   if (${$_[0]}->{manakai_is_html}) {
+     if (@_ > 1 and defined $_[1] and
+         {'no quirks' => 1, 'limited quirks' => 1, 'quirks' => 1}->{$_[1]}) {
- ; # FOR !tc:ForAppendChild
+       ${$_[0]}->{manakai_compat_mode} = $_[1];
-   ## -- Removes from parent
-   if ($nc_parent) {
-     if ($child_nt ==
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
+     return ${$_[0]}->{manakai_compat_mode} || 'no quirks';
+   } else {
+     return 'no quirks';
    }
+ } # manakai_compat_mode
-   ## -- Rewrite the |parentNode| properties
+ ## TODO: documentation
-   for my $nc (@new_child) {
+ sub manakai_head ($) {
-     $$nc->{
+   local $Error::Depth = $Error::Depth + 1;
- 'parent'
+   my $html = $_[0]->manakai_html;
- } = $self;
+   return undef unless defined $html;
-     Scalar::Util::weaken ($$nc->{
+   for my $el (@{$html->child_nodes}) {
- 'parent'
+     next unless $el->node_type == 1; # ELEMENT_NODE
- });
+     my $nsuri = $el->namespace_uri;
-   }
+     next unless defined $nsuri;
+     next unless $nsuri eq q<http://www.w3.org/1999/xhtml>;
-   my $children = $$self->{
+     next unless $el->manakai_local_name eq 'head';
- 'child'
+     return $el;
- };
+   }
+   return undef;
+ } # manakai_head
- {
+ ## TODO: documentation
+ sub manakai_html ($) {
+   local $Error::Depth = $Error::Depth + 1;
- ## -- Adds to children list
+   my $de = $_[0]->document_element;
-     push @$children, @new_child;
+   my $nsuri = $de->namespace_uri;
-     $r = $newChild;
+   if (defined $nsuri and $nsuri eq q<http://www.w3.org/1999/xhtml> and
+       $de->manakai_local_name eq 'html') {
+     return $de;
- }
- ;
- ;
- ;
- }
- ;}
- ;
- }
- ;
- }
- $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 ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-       }
-       push @new_child, $cn;
-     }
    } else {
+     return undef;
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
+ } # manakai_html
-   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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
+       ## 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::XML::Parser; # MUST
+       my $doc = $self->implementation->create_document;
+       ## Step 2
+       #
- {
+       ## Step 3
+       $doc = Whatpm::XML::Parser->parse_char_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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
+       ## Step 4
+       #
- }
+       ## Step 5
+       ## TODO: ill-formed -> SYNTAX_ERR # MUST
+       ## Step 6 # MUST
- ;}
+       my @cn = @{$self->child_nodes}; ## TODO: If read-only
+       for (@cn) {
- ;
+         $self->remove_child ($_);
        }
-     }
+       ## TODO: strict-document-children option?
-   }
-   ## -- Insert at...
-   my $index = -1; # last
- {
- # tc:ForAppendChild & tc:ForReplaceChild
-     if (defined $refChild) {
-       if ($refChild eq $newChild) {
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1';
- }
- ;}
- ;
- }
- ;
- ;
+       ## Step 7, 8, 9, 10
+       for my $node (@{$doc->child_nodes}) {
+         $self->append_child ($self->adopt_node ($node));
        }
-       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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
- }
- ;}
- ;
- }
- ;
- ;
-       } # C
-     } else { # |oldChild| is not defined
- ;
      }
- }
- ; # FOR !tc:ForAppendChild
+     ## TODO: This serializer is currently not conformant to HTML5 spec.
+     require Whatpm::XMLSerializer;
-   ## -- Removes from parent
+     my $r = '';
-   if ($nc_parent) {
+     for my $node (@{$self->child_nodes}) {
-     if ($child_nt ==
+       $r .= ${ Whatpm::XMLSerializer->get_outer_xml ($node, sub {
+         ## TODO: INVALID_STATE_ERR
- ) {
+       }) };
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
+     return $r;
    }
+ } # inner_html
-   ## -- Rewrite the |parentNode| properties
+ sub manakai_is_html ($;$) {
-   for my $nc (@new_child) {
+   if (@_ > 1) {
-     $$nc->{
+     if ($_[1]) {
- 'parent'
+       ${$_[0]}->{manakai_is_html} = 1;
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- ;
- {
- ## -- Adds to children list
-     if ($index == -1) {
-       push @$children, @new_child;
      } else {
-       splice @$children, $index, 0, @new_child;
+       delete ${$_[0]}->{manakai_is_html};
+       delete ${$_[0]}->{manakai_compat_mode};
      }
-     $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 ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$child_nt}) {
-     push @new_child, $newChild;
-   } elsif ($child_nt ==
- ) {
-     for my $cn (@{$newChild->
- child_nodes
- }) {
-       unless ({
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-=> 1,
-   }->{$cn->
- node_type
- }) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-       }
-       push @new_child, $cn;
-     }
-   } else {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
    }
+   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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
- }
- ;}
- ;
-     }
-     ## -- Read-onlyness check
-     if ($self->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
-     }
-     if (@new_child) {
-       if ($nc_parent and
-           $nc_parent->
- manakai_read_only
- ) {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
+ package Message::DOM::DOMImplementation;
- }
+ sub create_document ($;$$$) {
+   my $r = Message::DOM::Document->____new ($_[0]);
- ;}
- ;
+   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' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1';
- }
- ;}
- ;
- }
- ;
-       }
-       my $cns = $self->
- child_nodes
- ;
-       my $cnsl = @$cns;
-       C: {
-         $index = 0;
-         for my $i (0..($cnsl-1)) {
-           my $cn = $cns->[$i];
-           if ($cn eq $oldChild) {
-             $index += $i;
-             last C;
-           } elsif ($cn eq $newChild) {
-             $index = -1; # offset
-           }
-         }
- ;
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-       } # C
-     } else { # |oldChild| is not defined
- {
- {
- local $Error::Depth = $Error::Depth - 1;
- {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
- }
- ;}
- ;
- }
- ;
-     }
- }
- ; # FOR !tc:ForAppendChild
-   ## -- Removes from parent
-   if ($nc_parent) {
-     if ($child_nt ==
- ) {
-       $$newChild->{
- 'child'
- } = [];
-     } else {
-       my $v = $$nc_parent->{
- 'child'
- };
-       RP: for my $i (0..$#$v) {
-         if ($v->[$i] eq $new_child[0]) {
-           splice @$v, $i, 1, ();
-           last RP;
-         }
-       } # RP
      }
+     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->{
- 'parent'
- } = $self;
-     Scalar::Util::weaken ($$nc->{
- 'parent'
- });
-   }
-   my $children = $$self->{
- 'child'
- };
- ;
- ;
- {
- ## -- Replaces the node
-     splice @$children, $index, 1, @new_child;
-     CORE::delete $$oldChild->{
- 'parent'
- };
-     $r = $oldChild;
- }
- ;
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub node_name ($;$) {
- if (@_ == 1) {my ($self) = @_;
- my $r = '';
- $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
-  ==
- ) {
-     $lc->
- manakai_append_text
-            (ref $string eq 'SCALAR' ? $string : \$string);
-   } else {
-     my $text = $self->
- owner_document
-                     ->
- create_text_node
-                         (ref $string eq 'SCALAR' ? $$string : $string);
-     $self->
- append_child
-  ($text);
-   }
-   $r = $self;
- }
- ;}
- ;
- }
- $r}
- sub get_feature ($$$) {
- my ($self, $feature, $version) = @_;
- {
- $feature = lc $feature;
- }
- {
- $version = '' unless defined $version;
- }
- my $r;
- {
- $feature =~ s/^\+//;
- {
- if
- ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-   $r = $self;
- }
- }
- ;
- unless (defined $r) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     $r = $self->SUPER::get_feature ($feature, $version);
- }
- ;}
- ;
- }
- }
- $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;
- for ($Message::DOM::IF::Node::){}
- ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
 ;
+ ## $Date$

 Legend:



Removed from v.1.19
 


changed lines


 
Added in v.1.31
 Legend:



Removed from v.1.19
 


changed lines


 
Added in v.1.31
-Removed from v.1.19
+Added in v.1.31

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24