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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by wakaba, Sat Dec 30 04:42:51 2006 UTC revision 1.27 by wakaba, Mon Dec 31 13:46:25 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  ## NOTE: This module will be renamed as Document.pm.
 ## This file is automatically generated  
 ##      at 2006-12-30T04:24:35+00:00,  
 ##      from file "Document.dis",  
 ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,  
 ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.  
 ## Don't edit by hand!  
 use strict;  
 require Message::DOM::DOMCore;  
 require Message::DOM::TreeCore;  
 require Message::Util::Error::DOMException;  
 package Message::DOM::Document;  
 our $VERSION = 20061230.0424;  
 package Message::DOM::Document::ManakaiDOMImplementationDocument;  
 our $VERSION = 20061230.0424;  
 push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>);  
 sub create_document ($;$$$) {  
 my ($self, $namespaceURI, $qualifiedName, $doctype) = @_;  
   
 {  
   
 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
   
     
   
 {  
   
   
 $namespaceURI = undef;  
     
   
   
 }  
   
 ;  
 }  
   
   
 }  
 my $r;  
   
 {  
   
 require  
 Scalar::Util;  
 $r = bless \{  
     
 'child'  
  => [],  
     
 'impl'  
  => $self,  
     
 '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  
     
   
   
 }  
   
   
 ;}  
2    
3  ;  package Message::DOM::Document;
4  } elsif (defined $namespaceURI) {  use strict;
5      our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
6  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';  push our @ISA, 'Message::DOM::Node', 'Message::IF::Document',
7        'Message::IF::DocumentTraversal', 'Message::IF::DocumentXDoctype',
8  ;      'Message::IF::DocumentSelector', # MUST in Selectors API spec
9  }      'Message::IF::HTMLDocument';
10    require Message::DOM::Node;
11    use Char::Class::XML
12  }      qw/
13  $r}        InXML_NameStartChar10 InXMLNameStartChar11
14  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {};        InXMLNameChar10 InXMLNameChar11
15  $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0;        InXML_NCNameStartChar10 InXMLNCNameStartChar11
16  package Message::DOM::IFLatest::Document;        InXMLNCNameChar10 InXMLNCNameChar11
17  our $VERSION = 20061230.0424;      /;
18  package Message::DOM::Document::ManakaiDOMDocument;  
19  our $VERSION = 20061230.0424;  sub ____new ($$) {
20  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',    my $self = shift->SUPER::____new (undef);
21  'Message::DOM::IFLatest::Document',    $$self->{implementation} = $_[0];
22  'Message::DOM::IFLatest::Node';    $$self->{strict_error_checking} = 1;
23  sub node_type ($;$) {    $$self->{child_nodes} = [];
24  if (@_ == 1) {my ($self) = @_;    $$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'} = 1;
25  my $r;    $$self->{'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'} = 1;
26  $r = 9;    $$self->{'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'} = 1;
27  $r;    $$self->{'error-handler'} = sub ($) {
28  } else {my ($self) = @_;      ## NOTE: Same as one set by |setParameter| with |undef| value.
29  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';      warn $_[0];
30  }      return $_[0]->severity != 3; # SEVERITY_FATAL_ERROR
31  }    };
32  sub append_child ($$) {    return $self;
33  my ($self, $newChild) = @_;  } # ____new
34  my $r;              
35    sub AUTOLOAD {
36  {    my $method_name = our $AUTOLOAD;
37      $method_name =~ s/.*:://;
38  my    return if $method_name eq 'DESTROY';
 $strictc = $self->  
 dom_config  
   
                    ->  
 get_parameter  
   
                        (  
 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'  
 );  
 my $child_od = $newChild->  
 owner_document  
  || $self;  
 my $child_nt = $newChild->  
 node_type  
 ;  
 if ($strictc and $self->  
 strict_error_checking  
 ) {  
     
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
     my  
 $has_el;  
     my $has_dt;  
     if ($child_nt ==  
 1  
 ) {  
       $has_el =  
 1  
 ;  
     } elsif ($child_nt ==  
 10  
 ) {  
       $has_dt =  
 1  
 ;  
     } elsif ($child_nt ==  
 11  
 ) {  
       for my $cn (@{$newChild->  
 child_nodes  
 }) {  
         my $cnt = $cn->  
 node_type  
 ;  
         if ($cnt ==  
 1  
 ) {  
           if ($has_el) {  
               
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => '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;  
   
   
 }  
   
   
 ;}  
39    
40  ;    if ({
41        ## Read-only attributes (trivial accessors)
42        implementation => 1,
43      }->{$method_name}) {
44        no strict 'refs';
45        eval qq{
46          sub $method_name (\$) {
47            return \${\$_[0]}->{$method_name};
48          }
49        };
50        goto &{ $AUTOLOAD };
51      } elsif ({
52        ## Read-write attributes (DOMString, trivial accessors)
53        manakai_charset => 1,
54        document_uri => 1,
55        input_encoding => 1,
56      }->{$method_name}) {
57        no strict 'refs';
58        eval qq{
59          sub $method_name (\$;\$) {
60            if (\@_ > 1) {
61              if (\${\$_[0]}->{strict_error_checking} and
62                  \${\$_[0]}->{manakai_read_only}) {
63                report Message::DOM::DOMException
64                    -object => \$_[0],
65                    -type => 'NO_MODIFICATION_ALLOWED_ERR',
66                    -subtype => 'READ_ONLY_NODE_ERR';
67              }
68              if (defined \$_[1]) {
69                \${\$_[0]}->{$method_name} = ''.\$_[1];
70              } else {
71                delete \${\$_[0]}->{$method_name};
72            }            }
           $has_el =  
 1  
 ;  
73          }          }
74          # DocumentType node cannot be contained in DocumentFragments          return \${\$_[0]}->{$method_name};
75        }        }
76      }      };
77        goto &{ $AUTOLOAD };
78      if ($has_el) {    } elsif ({
79        my $anode = $self->      ## Read-write attributes (boolean, trivial accessors)
80  last_child      all_declarations_processed => 1,
81  ;      manakai_has_bom => 1,
82        while (defined $anode) {    }->{$method_name}) {
83          if ($anode->      no strict 'refs';
84  node_type      eval qq{
85   ==        sub $method_name (\$;\$) {
86  1          if (\@_ > 1) {
87  ) {            if (\${\$_[0]}->{manakai_strict_error_checking} and
88                            \${\$_[0]}->{manakai_read_only}) {
89                report Message::DOM::DOMException
90  {                  -object => \$_[0],
91                    -type => 'NO_MODIFICATION_ALLOWED_ERR',
92  local $Error::Depth = $Error::Depth - 1;                  -subtype => 'READ_ONLY_NODE_ERR';
93              }
94  {            if (\$_[1]) {
95                \${\$_[0]}->{$method_name} = 1;
96  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 {
97                delete \${\$_[0]}->{$method_name};
98              }
 }  
   
   
 ;}  
   
 ;  
99          }          }
100          $anode = $anode->          return \${\$_[0]}->{$method_name};
 previous_sibling  
 ;  
101        }        }
102      } # has_el      };
103      if ($has_dt) {      goto &{ $AUTOLOAD };
104        my $anode = $self->    } elsif (my $module_name = {
105  last_child      can_dispatch => 'Message::DOM::EventTargetNode',
106  ;      create_attribute => 'Message::DOM::Attr',
107        while (defined $anode) {      create_attribute_ns => 'Message::DOM::Attr',
108          my $ant = $anode->      create_attribute_definition => 'Message::DOM::AttributeDefinition',
109  node_type      create_cdata_section => 'Message::DOM::Text',
110  ;      create_comment => 'Message::DOM::CharacterData',
111          if ($ant ==      create_document_fragment => 'Message::DOM::DocumentFragment',
112  1      create_document_type_definition => 'Message::DOM::DocumentType',
113  ) {      create_element => 'Message::DOM::Element',
114                  create_element_ns => 'Message::DOM::Element',
115        create_element_type_definition => 'Message::DOM::ElementTypeDefinition',
116  {      create_entity_reference => 'Message::DOM::EntityReference',
117        create_event => 'Message::DOM::EventTargetNode',
118  local $Error::Depth = $Error::Depth - 1;      create_general_entity => 'Message::DOM::Entity',
119        create_notation => 'Message::DOM::Notation',
120        create_processing_instruction => 'Message::DOM::ProcessingInstruction',
121        manakai_create_serial_walker => 'Message::DOM::SerialWalker',
122        create_text_node => 'Message::DOM::Text',
123        create_tree_walker => 'Message::DOM::TreeWalker',
124        query_selector => 'Message::DOM::SelectorsAPI',
125        query_selector_all => 'Message::DOM::SelectorsAPI',
126        ___query_selector_all => 'Message::DOM::SelectorsAPI',
127      }->{$method_name}) {
128        eval qq{ require $module_name } or die $@;
129        goto &{ $AUTOLOAD };
130      } else {
131        require Carp;
132        Carp::croak (qq<Can't locate method "$AUTOLOAD">);
133      }
134    } # AUTOLOAD
135    sub implementation ($);
136    sub create_attribute ($$);
137    sub create_attribute_ns ($$$);
138    sub create_attribute_definition ($$);
139    sub create_cdata_section ($$);
140    sub create_comment ($$);
141    sub create_document_fragment ($);
142    sub create_document_type_definition ($$);
143    sub create_element ($$);
144    sub create_element_ns ($$$);
145    sub create_element_type_definition ($$);
146    sub create_entity_reference ($$);
147    sub create_general_entity ($$);
148    sub create_notation ($$);
149    sub create_processing_instruction ($$$);
150    sub create_text_node ($$);
151    
152    ## |Node| attributes
153    
154    sub base_uri ($) {
155      my $v = ${$_[0]}->{manakai_entity_base_uri};
156      if (defined $v) {
157        return $v;
158      } else {
159        return ${$_[0]}->{document_uri};
160      }
161      ## TODO: HTML5 <base>
162    } # base_uri
163    
164  {  sub node_name () { '#document' }
165    
166  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
167    
168    sub text_content ($;$) {
169      my $self = shift;
170      if ($$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'}) {
171        return undef;
172      } else {
173        local $Error::Depth = $Error::Depth + 1;
174        return $self->SUPER::text_content (@_);
175      }
176    } # text_content
177    
178  }  ## |Node| methods
179    
180    sub adopt_node ($$) {
181      my ($self, $source) = @_;
182      ## TODO: Should we apply |copy-asis| configuration parameter to this method?
183    
184  ;}    return undef unless UNIVERSAL::isa ($source, 'Message::DOM::Node');
185    
186  ;    my $strict = $self->strict_error_checking;
187          } elsif ($ant ==    if ($strict and $$self->{manakai_read_only}) {
188  10      report Message::DOM::DOMException
189  ) {          -object => $self,
190                      -type => 'NO_MODIFICATION_ALLOWED_ERR',
191            -subtype => 'READ_ONLY_NODE_ERR';
192      }
193    
194  {    my $parent = $source->parent_node;
195      if ($strict and defined $parent and $$parent->{manakai_read_only}) {
196        report Message::DOM::DOMException
197            -object => $self,
198            -type => 'NO_MODIFICATION_ALLOWED_ERR',
199            -subtype => 'READ_ONLY_NODE_ERR';
200      }
201    
202  local $Error::Depth = $Error::Depth - 1;    my $nt = $source->node_type;
203      my $oe;
204      if ($nt == 2) { # ATTRIBUTE_NODE
205        $oe = $source->owner_element;
206        if ($strict and defined $oe and $$oe->{manakai_read_only}) {
207          report Message::DOM::DOMException
208              -object => $self,
209              -type => 'NO_MODIFICATION_ALLOWED_ERR',
210              -subtype => 'READ_ONLY_NODE_ERR';
211        }
212      } elsif ($nt == 9 or $nt == 10 or $nt == 6 or $nt == 12 or
213               $nt == 81001 or $nt == 81002) {
214        # DOCUMENT_NODE, DOCUMENT_TYPE_NODE, ENTITY_NODE, NOTATION_NODE,
215        # ELEMENT_TYPE_DEFINITION_NODE, ATTRIBUTE_DEFINITION_NODE
216        report Message::DOM::DOMException
217            -object => $self,
218            -type => 'NOT_SUPPORTED_ERR',
219            -subtype => 'ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR';
220      }
221    
222  {    my @change_od;
223      my @nodes = ($source);
224      while (@nodes) {
225        my $node = shift @nodes;
226        my $nt = $node->node_type;
227        if ($strict and $$node->{manakai_read_only}) {
228          report Message::DOM::DOMException
229              -object => $self,
230              -type => 'NO_MODIFICATION_ALLOWED_ERR',
231              -subtype => 'READ_ONLY_NODE_ERR';
232        }
233    
234  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;
235        push @nodes, @{$node->child_nodes}, @{$node->attributes or []};
236      } # @nodes
237    
238      local $Error::Depth = $Error::Depth + 1;
239    
240  }    if (defined $parent) {
241        $parent->remove_child ($source);
242      } elsif (defined $oe) {
243        $oe->remove_attribute_node ($source);
244      }
245    
246      return $source if $self eq $change_od[0]->owner_document;
247                             ## NOTE: The array must have more than zero
248                             ##       nodes by definition.  In addition,
249                             ##       it cannot contain document or document
250                             ##       type nodes in current implementation.
251    
252  ;}    my @ud_node;
253      for my $n (@change_od) {
254        $$n->{owner_document} = $self;
255        Scalar::Util::weaken ($$n->{owner_document});
256        if ($$n->{user_data}) {
257          push @ud_node, $n;
258        }
259      }
260    
261  ;    for my $src (@ud_node) {
262          }      my $src_ud = $$src->{user_data};
263          $anode = $anode->      for my $key (keys %{$src_ud}) {
264  previous_sibling        my $dh = $src_ud->{$key}->[1];
265  ;        if ($dh) {
266            $dh->(5, $key, $src_ud->{$key}->[0], $src, undef); # NODE_ADOPTED
267        }        }
268      } # has_dt      }
269        }
   
   
 }  
   
   
 ;}  
   
 ;  
 }  
   
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
270    
271      return $source;
272    } # adopt_node
273    
274    my  sub append_child ($$) {
275  $strict = $self->    ## NOTE: Overrides |Node|'s implementation.
276  strict_error_checking    my $self = $_[0];
277  ;    
278      ## NOTE: |$self_od| code here in some $self->node_type.
279    
280    ## -- Node Type check    ## -- Node Type check
281    my @new_child;    my @new_child;
282    if ({    my $new_child_parent;
283      3 => (not $strictc),    if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
284      5 => (not $strictc),      push @new_child, @{$_[1]->child_nodes};
285      1 => 1,      $new_child_parent = $_[1];
     4 => (not $strictc),  
     7 => 1,  
     8 => 1,  
     10 => 1,  
   }->{$child_nt}) {  
     push @new_child, $newChild;  
   } elsif ($child_nt ==  
 11  
 ) {  
     for my $cn (@{$newChild->  
 child_nodes  
 }) {  
       unless ({  
     3 => (not $strictc),  
     5 => (not $strictc),  
     1 => 1,  
     4 => (not $strictc),  
     7 => 1,  
     8 => 1,  
     10 => 1,  
   }->{$cn->  
 node_type  
 }) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
       }  
       push @new_child, $cn;  
     }  
286    } else {    } else {
287            @new_child = ($_[1]);
288        $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
289    }    }
290    
291    my $nc_parent = @new_child ? $new_child[0]->    ## NOTE: Depends on $self->node_type:
292  parent_node    if ($$self->{strict_error_checking}) {
293                               :      my $child_od = $_[1]->owner_document || $_[1]; # might be DocumentType
294        if ($self ne $child_od and $child_od->node_type != 10) {
295  undef        report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
296  ;            -object => $self,
297    if ($strict) {            -type => 'WRONG_DOCUMENT_ERR',
298      ## -- Wrong-document check            -subtype => 'EXTERNAL_OBJECT_ERR';
299      unless ($self eq $child_od) {      }
300          
301        if ($$self->{manakai_read_only} or
302  {          (@new_child and defined $new_child_parent and
303             $$new_child_parent->{manakai_read_only})) {
304  local $Error::Depth = $Error::Depth - 1;        report Message::DOM::DOMException
305              -object => $self,
306  {            -type => 'NO_MODIFICATION_ALLOWED_ERR',
307              -subtype => 'READ_ONLY_NODE_ERR';
308  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;      }
309    
310        ## NOTE: Only in |Document|:
311  }      my $strict_children = $self->dom_config->get_parameter
312            (q<http://suika.fam.cx/www/2006/dom-config/strict-document-children>);
313        if ($strict_children) {
314  ;}        my $has_el;
315          my $has_dt;
316  ;        my $child_nt = $_[1]->node_type;
317      }        if ($child_nt == 1) { # ELEMENT_NODE
318            $has_el = 1;
319      ## -- Read-onlyness check        } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
320      if ($self->          $has_dt = 1;
321  manakai_read_only        } elsif ($child_nt == 11) { # DOCUMENT_FRAGMENT_NODE
322  ) {          for my $cn (@{$_[1]->child_nodes}) {
323                    my $cnt = $cn->node_type;
324              if ($cnt == 1) { # ELEMENT_NODE
325  {              if ($has_el) {
326                  report Message::DOM::DOMException
327  local $Error::Depth = $Error::Depth - 1;                    -object => $self,
328                      -type => 'HIERARCHY_REQUEST_ERR',
329  {                    -subtype => 'CHILD_NODE_TYPE_ERR';
330                }
331  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';              $has_el = 1;
332              } elsif ($cnt == 10) { # DOCUMENT_TYPE_NODE
333                ## NOTE: |DocumentType| node cannot be contained in
334  }              ## |DocumentFragment| in strict mode.
335                if ($has_dt) {
336                  report Message::DOM::DOMException
337  ;}                    -object => $self,
338                      -type => 'HIERARCHY_REQUEST_ERR',
339  ;                    -subtype => 'CHILD_NODE_TYPE_ERR';
340                }
341                $has_dt = 1;
342              }
343            }
344          }
345      
346          if ($has_el) {
347            my $anode = $self->last_child;
348            while (defined $anode) {
349              if ($anode->node_type == 1) { # ELEMENT_NODE
350                report Message::DOM::DOMException
351                    -object => $self,
352                    -type => 'HIERARCHY_REQUEST_ERR',
353                    -subtype => 'CHILD_NODE_TYPE_ERR';
354              }
355              $anode = $anode->previous_sibling;
356            }
357          } # has_el
358          if ($has_dt) {
359            my $anode = $self->last_child;
360            while (defined $anode) {
361              my $ant = $anode->node_type;
362              if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
363                report Message::DOM::DOMException
364                    -object => $self,
365                    -type => 'HIERARCHY_REQUEST_ERR',
366                    -subtype => 'CHILD_NODE_TYPE_ERR';
367              }
368              $anode = $anode->previous_sibling;
369            }
370          } # has_dt
371      }      }
     if (@new_child) {  
       if ($nc_parent and  
           $nc_parent->  
 manakai_read_only  
 ) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
372    
373  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';      for my $cn (@new_child) {
374          unless ({
375                   3, (not $strict_children), # TEXT_NODE
376  }                 5, (not $strict_children), # ENTITY_REFERENCE_NODE
377                   1, 1, # ELEMENT_NODE
378                   4, (not $strict_children), # CDATA_SECTION_NODE
379  ;}                 7, 1, # PROCESSING_INSTRUCTION_NODE
380                   8, 1, # COMMENT_NODE
381  ;                 10, 1, # DOCUMENT_TYPE_NODE
382                  }->{$cn->node_type}) {
383            report Message::DOM::DOMException
384                -object => $self,
385                -type => 'HIERARCHY_REQUEST_ERR',
386                -subtype => 'CHILD_NODE_TYPE_ERR';
387        }        }
388      }      }
   }  
389    
390    ## -- Insert at...      ## NOTE: Ancestor check here in |Node|.
391    my $index = -1; # last    }
     
392    
393  ; # FOR !tc:ForAppendChild    ## NOTE: "Insert at" code only in insert_before and replace_child
394    
395    ## -- Removes from parent    ## -- Removes from parent
396    if ($nc_parent) {    if ($new_child_parent) {
397      if ($child_nt ==      if (@new_child == 1) {
398  11        my $v = $$new_child_parent->{child_nodes};
 ) {  
       $$newChild->{  
 'child'  
 } = [];  
     } else {  
       my $v = $$nc_parent->{  
 'child'  
 };  
399        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
400          if ($v->[$i] eq $new_child[0]) {          if ($v->[$i] eq $new_child[0]) {
401            splice @$v, $i, 1, ();            splice @$v, $i, 1, ();
402            last RP;            last RP;
403          }          }
404        } # RP        } # RP
405        } else {
406          @{$$new_child_parent->{child_nodes}} = ();
407      }      }
408    }    }
409    
410    ## -- Rewrite the |parentNode| properties    ## -- Rewrite the |parentNode| properties
411    for my $nc (@new_child) {    for my $nc (@new_child) {
412      $$nc->{      $$nc->{parent_node} = $self;
413  'parent'      Scalar::Util::weaken ($$nc->{parent_node});
 } = $self;  
     Scalar::Util::weaken ($$nc->{  
 'parent'  
 });  
414    }    }
415    
416    my $children = $$self->{    ## NOTE: Depends on method:
417  'child'    push @{$$self->{child_nodes}}, @new_child;
 };  
   
     
   
 {  
   
   
 ## -- Adds to children list  
     push @$children, @new_child;  
     $r = $newChild;  
     
   
   
 }  
   
 ;  
   
     
   
 ;  
   
     
   
 ;  
   
   
   
 }  
   
   
 ;}  
   
 ;  
   
   
 }  
   
 ;  
 if ($child_nt ==  
 10 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;  
   
 {  
418    
419      ## NOTE: Only in |Document|.
420      for (@new_child) {
421        delete $$_->{implementation};
422        $$_->{owner_document} = $self;
423        Scalar::Util::weaken ($$_->{owner_document});
424      }
425    
426      my    return $_[1];
427  $has_el;  } # apepnd_child
     my $has_dt;  
     if ($child_nt ==  
 1  
 ) {  
       $has_el =  
 1  
 ;  
     } elsif ($child_nt ==  
 10  
 ) {  
       $has_dt =  
 1  
 ;  
     } elsif ($child_nt ==  
 11  
 ) {  
       for my $cn (@{$newChild->  
 child_nodes  
 }) {  
         my $cnt = $cn->  
 node_type  
 ;  
         if ($cnt ==  
 1  
 ) {  
           if ($has_el) {  
               
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
428    
429    sub manakai_append_text ($$) {
430      my $self = shift;
431      if ($$self->{'http://suika.fam.cx/www/2006/dom-config/strict-document-children'}) {
432        #
433      } else {
434        local $Error::Depth = $Error::Depth + 1;
435        return $self->SUPER::manakai_append_text (@_);
436      }
437    } # manakai_append_text
438    
439  }  sub insert_before ($$) {
440      ## NOTE: Overrides |Node|'s implementation.
441      my $self = $_[0];
442    
443      ## NOTE: |$self_od| code here depending on $self->node_type.
444    
445  ;}    ## -- Node Type check
446      my @new_child;
447      my $new_child_parent;
448      if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
449        push @new_child, @{$_[1]->child_nodes};
450        $new_child_parent = $_[1];
451      } else {
452        @new_child = ($_[1]);
453        $new_child_parent = $_[1]->parent_node;
454      }
455    
456  ;    ## NOTE: Depends on $self->node_type:
457      if ($$self->{strict_error_checking}) {
458        my $child_od = $_[1]->owner_document || $_[1]; # might be DocumentType
459        if ($self ne $child_od and $child_od->node_type != 10) {
460          report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
461              -object => $self,
462              -type => 'WRONG_DOCUMENT_ERR',
463              -subtype => 'EXTERNAL_OBJECT_ERR';
464        }
465    
466        if ($$self->{manakai_read_only} or
467            (@new_child and defined $new_child_parent and
468             $$new_child_parent->{manakai_read_only})) {
469          report Message::DOM::DOMException
470              -object => $self,
471              -type => 'NO_MODIFICATION_ALLOWED_ERR',
472              -subtype => 'READ_ONLY_NODE_ERR';
473        }
474    
475        ## NOTE: Only in |Document|:
476        my $strict_children = $self->dom_config->get_parameter
477            (q<http://suika.fam.cx/www/2006/dom-config/strict-document-children>);
478        if ($strict_children) {
479          my $has_el;
480          my $has_dt;
481          my $child_nt = $_[1]->node_type;
482          if ($child_nt == 1) { # ELEMENT_NODE
483            $has_el = 1;
484          } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
485            $has_dt = 1;
486          } elsif ($child_nt == 11) { # DOCUMENT_FRAGMENT_NODE
487            for my $cn (@{$_[1]->child_nodes}) {
488              my $cnt = $cn->node_type;
489              if ($cnt == 1) { # ELEMENT_NODE
490                if ($has_el) {
491                  report Message::DOM::DOMException
492                      -object => $self,
493                      -type => 'HIERARCHY_REQUEST_ERR',
494                      -subtype => 'CHILD_NODE_TYPE_ERR';
495                }
496                $has_el = 1;
497              } elsif ($cnt == 10) { # DOCUMENT_TYPE_NODE
498                ## NOTE: |DocumentType| node cannot be contained in
499                ## |DocumentFragment| in strict mode.
500                if ($has_dt) {
501                  report Message::DOM::DOMException
502                      -object => $self,
503                      -type => 'HIERARCHY_REQUEST_ERR',
504                      -subtype => 'CHILD_NODE_TYPE_ERR';
505                }
506                $has_dt = 1;
507            }            }
           $has_el =  
 1  
 ;  
508          }          }
         # DocumentType node cannot be contained in DocumentFragments  
509        }        }
     }  
   
     if ($has_el) {  
       my $anode = $refChild ? $refChild->  
 previous_sibling  
                             :  
 $self->  
 last_child  
 ;  
       while (defined $anode) {  
         if ($anode->  
 node_type  
  ==  
 1  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
         }  
         $anode = $anode->  
 previous_sibling  
 ;  
       }  
       $anode = $refChild;  
       while (defined $anode) {  
         my $ant = $anode->  
 node_type  
 ;  
         if ($ant ==  
 1  
 ) {  
             
   
 {  
510    
511  local $Error::Depth = $Error::Depth - 1;        ## ISSUE: This code is wrong.  Old manakai's implementation
512          ## is better, but it is also wrong in some edge cases.
513  {        ## Maybe we should remove these code entirely.  DOM3Core
514          ## conformance is not important for this bit.  It only makes
515  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;        ## things too complex.  Same for replace_child's code.
516          if ($has_el) {
517            my $anode = $self->last_child;
518  }          while (defined $anode) {
519              if ($anode->node_type == 1) { # ELEMENT_NODE
520                report Message::DOM::DOMException
521  ;}                  -object => $self,
522                    -type => 'HIERARCHY_REQUEST_ERR',
523  ;                  -subtype => 'CHILD_NODE_TYPE_ERR';
524          } elsif ($ant ==            }
525  10            $anode = $anode->previous_sibling;
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
         }  
         $anode = $anode->  
 next_sibling  
 ;  
       }  
     } # has_el  
     if ($has_dt) {  
       my $anode = $refChild ? $refChild->  
 previous_sibling  
                             :  
 $self->  
 last_child  
 ;  
       while (defined $anode) {  
         my $ant = $anode->  
 node_type  
 ;  
         if ($ant ==  
 1  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 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 ==  
 10  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/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;  
   
   
 }  
   
   
 ;}  
   
 ;  
526          }          }
527          $anode = $anode->        } # has_el
528  previous_sibling        if ($has_dt) {
529  ;          my $anode = $self->last_child;
530        }          while (defined $anode) {
531        $anode = $refChild;            my $ant = $anode->node_type;
532        while (defined $anode) {            if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
533          if ($anode->              report Message::DOM::DOMException
534  node_type                  -object => $self,
535                    -type => 'HIERARCHY_REQUEST_ERR',
536                  ==                  -subtype => 'CHILD_NODE_TYPE_ERR';
537  10            }
538  ) {            $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;  
   
   
 }  
   
   
 ;}  
   
 ;  
539          }          }
540          $anode = $anode->        } # has_dt
541  next_sibling      }
 ;  
       }  
     } # has_dt  
     
   
   
 }  
   
   
 ;}  
   
 ;  
 }  
   
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   my  
 $strict = $self->  
 strict_error_checking  
 ;  
542    
543    ## -- Node Type check      for my $cn (@new_child) {
   my @new_child;  
   if ({  
     3 => (not $strictc),  
     5 => (not $strictc),  
     1 => 1,  
     4 => (not $strictc),  
     7 => 1,  
     8 => 1,  
     10 => 1,  
   }->{$child_nt}) {  
     push @new_child, $newChild;  
   } elsif ($child_nt ==  
 11  
 ) {  
     for my $cn (@{$newChild->  
 child_nodes  
 }) {  
544        unless ({        unless ({
545      3 => (not $strictc),                 3, (not $strict_children), # TEXT_NODE
546      5 => (not $strictc),                 5, (not $strict_children), # ENTITY_REFERENCE_NODE
547      1 => 1,                 1, 1, # ELEMENT_NODE
548      4 => (not $strictc),                 4, (not $strict_children), # CDATA_SECTION_NODE
549      7 => 1,                 7, 1, # PROCESSING_INSTRUCTION_NODE
550      8 => 1,                 8, 1, # COMMENT_NODE
551      10 => 1,                 10, 1, # DOCUMENT_TYPE_NODE
552    }->{$cn->                }->{$cn->node_type}) {
553  node_type          report Message::DOM::DOMException
554  }) {              -object => $self,
555                        -type => 'HIERARCHY_REQUEST_ERR',
556                -subtype => 'CHILD_NODE_TYPE_ERR';
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
557        }        }
       push @new_child, $cn;  
558      }      }
   } else {  
       
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
559    
560        ## NOTE: Ancestor check here in |Node|.
 }  
   
   
 ;}  
   
 ;  
561    }    }
   
   my $nc_parent = @new_child ? $new_child[0]->  
 parent_node  
                              :  
   
 undef  
 ;  
   if ($strict) {  
     ## -- Wrong-document check  
     unless ($self eq $child_od) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
     }  
   
     ## -- Read-onlyness check  
     if ($self->  
 manakai_read_only  
 ) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
     }  
     if (@new_child) {  
       if ($nc_parent and  
           $nc_parent->  
 manakai_read_only  
 ) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
       }  
     }  
   }  
   
   ## -- Insert at...  
   my $index = -1; # last  
562        
563      ## -- Insert at... ## NOTE: Only in insert_before and replace_child
564  {    my $index = -1; # last
565      if (defined $_[2]) {
566        ## error if $_[1] eq $_[2];
567  # tc:ForAppendChild & tc:ForReplaceChild      
568      if (defined $refChild) {      my $cns = $self->child_nodes;
569        if ($refChild eq $newChild) {      my $cnsl = @$cns;
570                C: {
571          $index = 0;
572  {        for my $i (0..($cnsl-1)) {
573            my $cn = $cns->[$i];
574            if ($cn eq $_[2]) {
575  {            $index += $i;
576              last C;
577  local $Error::Depth = $Error::Depth - 1;          } elsif ($cn eq $_[1]) {
578              $index = -1; # offset
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
           
   
 ;  
       }  
   
       my $cns = $self->  
 child_nodes  
 ;  
       my $cnsl = @$cns;  
       C: {  
         $index = 0;  
         for my $i (0..($cnsl-1)) {  
           my $cn = $cns->[$i];  
           if ($cn eq $refChild) {  
             $index += $i;  
             last C;  
           } elsif ($cn eq $newChild) {  
             $index = -1; # offset  
           }  
579          }          }
580                  }
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
           
   
 ;  
       } # C  
     } else { # |oldChild| is not defined  
581                
582          report Message::DOM::DOMException
583  ;            -object => $self,
584      }            -type => 'NOT_FOUND_ERR',
585                -subtype => 'NOT_CHILD_ERR';
586        } # C
587      }
588  }    ## NOTE: "else" only in replace_child
   
 ; # FOR !tc:ForAppendChild  
589    
590    ## -- Removes from parent    ## -- Removes from parent
591    if ($nc_parent) {    if ($new_child_parent) {
592      if ($child_nt ==      if (@new_child == 1) {
593  11        my $v = $$new_child_parent->{child_nodes};
 ) {  
       $$newChild->{  
 'child'  
 } = [];  
     } else {  
       my $v = $$nc_parent->{  
 'child'  
 };  
594        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
595          if ($v->[$i] eq $new_child[0]) {          if ($v->[$i] eq $new_child[0]) {
596            splice @$v, $i, 1, ();            splice @$v, $i, 1, ();
597            last RP;            last RP;
598          }          }
599        } # RP        } # RP
600        } else {
601          @{$$new_child_parent->{child_nodes}} = ();
602      }      }
603    }    }
604    
605    ## -- Rewrite the |parentNode| properties    ## -- Rewrite the |parentNode| properties
606    for my $nc (@new_child) {    for my $nc (@new_child) {
607      $$nc->{      $$nc->{parent_node} = $self;
608  'parent'      Scalar::Util::weaken ($$nc->{parent_node});
 } = $self;  
     Scalar::Util::weaken ($$nc->{  
 'parent'  
 });  
609    }    }
610    
611    my $children = $$self->{    ## NOTE: Depends on method:
612  'child'    if ($index == -1) {
613  };      push @{$$self->{child_nodes}}, @new_child;
614      } else {
615          splice @{$$self->{child_nodes}}, $index, 0, @new_child;
616      }
 ;  
   
     
   
 {  
   
   
 ## -- Adds to children list  
     if ($index == -1) {  
       push @$children, @new_child;  
     } else {  
       splice @$children, $index, 0, @new_child;  
     }  
     $r = $newChild;  
     
   
   
 }  
   
 ;  
   
     
   
 ;  
   
   
   
 }  
   
   
 ;}  
   
 ;  
   
   
 }  
   
 ;  
 if ($child_nt ==  
 10 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;  
   
 {  
   
617    
618      my    ## NOTE: Only in |Document|.
619  $has_el;    for (@new_child) {
620      my $has_dt;      delete $$_->{implementation};
621      if ($child_nt ==      $$_->{owner_document} = $self;
622  1      Scalar::Util::weaken ($$_->{owner_document});
623  ) {    }
       $has_el =  
 1  
 ;  
     } elsif ($child_nt ==  
 10  
 ) {  
       $has_dt =  
 1  
 ;  
     } elsif ($child_nt ==  
 11  
 ) {  
       for my $cn (@{$newChild->  
 child_nodes  
 }) {  
         my $cnt = $cn->  
 node_type  
 ;  
         if ($cnt ==  
 1  
 ) {  
           if ($has_el) {  
               
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
624    
625      return $_[1];
626    } # insert_before
627    
628  }  sub replace_child ($$) {
629      ## NOTE: Overrides |Node|'s implementation.
630      my $self = $_[0];
631    
632      ## NOTE: |$self_od| code here depending on $self->node_type.
633    
634  ;}    ## -- Node Type check
635      my @new_child;
636      my $new_child_parent;
637      if ($_[1]->node_type == 11) { # DOCUMENT_FRAGMENT_NODE
638        push @new_child, @{$_[1]->child_nodes};
639        $new_child_parent = $_[1];
640      } else {
641        @new_child = ($_[1]);
642        $new_child_parent = $_[1]->parent_node;
643      }
644    
645  ;    ## NOTE: Depends on $self->node_type:
646      if ($$self->{strict_error_checking}) {
647        my $child_od = $_[1]->owner_document || $_[1]; # might be DocumentType
648        if ($self ne $child_od and $child_od->node_type != 10) {
649          report Message::DOM::DOMException # DOCUMENT_TYPE_NODE
650              -object => $self,
651              -type => 'WRONG_DOCUMENT_ERR',
652              -subtype => 'EXTERNAL_OBJECT_ERR';
653        }
654    
655        if ($$self->{manakai_read_only} or
656            (@new_child and defined $new_child_parent and
657             $$new_child_parent->{manakai_read_only})) {
658          report Message::DOM::DOMException
659              -object => $self,
660              -type => 'NO_MODIFICATION_ALLOWED_ERR',
661              -subtype => 'READ_ONLY_NODE_ERR';
662        }
663    
664        ## NOTE: Only in |Document|:
665        my $strict_children = $self->dom_config->get_parameter
666            (q<http://suika.fam.cx/www/2006/dom-config/strict-document-children>);
667        if ($strict_children) {
668          my $has_el;
669          my $has_dt;
670          my $child_nt = $_[1]->node_type;
671          if ($child_nt == 1) { # ELEMENT_NODE
672            $has_el = 1;
673          } elsif ($child_nt == 10) { # DOCUMENT_TYPE_NODE
674            $has_dt = 1;
675          } elsif ($child_nt == 11) { # DOCUMENT_FRAGMENT_NODE
676            for my $cn (@{$_[1]->child_nodes}) {
677              my $cnt = $cn->node_type;
678              if ($cnt == 1) { # ELEMENT_NODE
679                if ($has_el) {
680                  report Message::DOM::DOMException
681                      -object => $self,
682                      -type => 'HIERARCHY_REQUEST_ERR',
683                      -subtype => 'CHILD_NODE_TYPE_ERR';
684                }
685                $has_el = 1;
686              } elsif ($cnt == 10) { # DOCUMENT_TYPE_NODE
687                ## NOTE: |DocumentType| node cannot be contained in
688                ## |DocumentFragment| in strict mode.
689                if ($has_dt) {
690                  report Message::DOM::DOMException
691                      -object => $self,
692                      -type => 'HIERARCHY_REQUEST_ERR',
693                      -subtype => 'CHILD_NODE_TYPE_ERR';
694                }
695                $has_dt = 1;
696            }            }
           $has_el =  
 1  
 ;  
         }  
         # DocumentType node cannot be contained in DocumentFragments  
       }  
     }  
   
     if ($has_el) {  
       my $anode = $oldChild->  
 previous_sibling  
 ;  
       while (defined $anode) {  
         if ($anode->  
 node_type  
  ==  
 1  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
         }  
         $anode = $anode->  
 previous_sibling  
 ;  
       }  
       $anode = $oldChild->  
 next_sibling  
 ;  
       while (defined $anode) {  
         my $ant = $anode->  
 node_type  
 ;  
         if ($ant ==  
 1  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
         } elsif ($ant ==  
 10  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
697          }          }
         $anode = $anode->  
 next_sibling  
 ;  
698        }        }
699      } # has_el    
700      if ($has_dt) {        if ($has_el) {
701        my $anode = $oldChild->          my $anode = $self->last_child;
702  previous_sibling          while (defined $anode) {
703  ;            if ($anode->node_type == 1) { # ELEMENT_NODE
704        while (defined $anode) {              report Message::DOM::DOMException
705          my $ant = $anode->                  -object => $self,
706  node_type                  -type => 'HIERARCHY_REQUEST_ERR',
707  ;                  -subtype => 'CHILD_NODE_TYPE_ERR';
708          if ($ant ==            }
709  1            $anode = $anode->previous_sibling;
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
         } elsif ($ant ==  
 10  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
710          }          }
711          $anode = $anode->        } # has_el
712  previous_sibling        if ($has_dt) {
713  ;          my $anode = $self->last_child;
714        }          while (defined $anode) {
715        $anode = $oldChild->            my $ant = $anode->node_type;
716  next_sibling            if ($ant == 1 or $ant == 10) { # ELEMENT_NODE or DOCUMENT_TYPE_NODE
717  ;              report Message::DOM::DOMException
718        while (defined $anode) {                  -object => $self,
719          if ($anode->                  -type => 'HIERARCHY_REQUEST_ERR',
720  node_type                  -subtype => 'CHILD_NODE_TYPE_ERR';
721              }
722                  ==            $anode = $anode->previous_sibling;
 10  
 ) {  
             
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
723          }          }
724          $anode = $anode->        } # has_dt
725  next_sibling      }
 ;  
       }  
     } # has_dt  
     
   
   
 }  
   
   
 ;}  
   
 ;  
 }  
   
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   my  
 $strict = $self->  
 strict_error_checking  
 ;  
726    
727    ## -- Node Type check      for my $cn (@new_child) {
   my @new_child;  
   if ({  
     3 => (not $strictc),  
     5 => (not $strictc),  
     1 => 1,  
     4 => (not $strictc),  
     7 => 1,  
     8 => 1,  
     10 => 1,  
   }->{$child_nt}) {  
     push @new_child, $newChild;  
   } elsif ($child_nt ==  
 11  
 ) {  
     for my $cn (@{$newChild->  
 child_nodes  
 }) {  
728        unless ({        unless ({
729      3 => (not $strictc),                 3, (not $strict_children), # TEXT_NODE
730      5 => (not $strictc),                 5, (not $strict_children), # ENTITY_REFERENCE_NODE
731      1 => 1,                 1, 1, # ELEMENT_NODE
732      4 => (not $strictc),                 4, (not $strict_children), # CDATA_SECTION_NODE
733      7 => 1,                 7, 1, # PROCESSING_INSTRUCTION_NODE
734      8 => 1,                 8, 1, # COMMENT_NODE
735      10 => 1,                 10, 1, # DOCUMENT_TYPE_NODE
736    }->{$cn->                }->{$cn->node_type}) {
737  node_type          report Message::DOM::DOMException
738  }) {              -object => $self,
739                        -type => 'HIERARCHY_REQUEST_ERR',
740                -subtype => 'CHILD_NODE_TYPE_ERR';
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
741        }        }
       push @new_child, $cn;  
     }  
   } else {  
       
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
   }  
   
   my $nc_parent = @new_child ? $new_child[0]->  
 parent_node  
                              :  
   
 undef  
 ;  
   if ($strict) {  
     ## -- Wrong-document check  
     unless ($self eq $child_od) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
742      }      }
743    
744      ## -- Read-onlyness check      ## NOTE: Ancestor check here in |Node|.
     if ($self->  
 manakai_read_only  
 ) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
     }  
     if (@new_child) {  
       if ($nc_parent and  
           $nc_parent->  
 manakai_read_only  
 ) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
       }  
     }  
745    }    }
   
   ## -- Insert at...  
   my $index = -1; # last  
746        
747      ## -- Insert at... ## NOTE: Only in insertBefore and replaceChild
748  {    my $index = -1; # last
749      if (defined $_[2]) {
750        ## error if $_[1] eq $_[2];
751  # tc:ForAppendChild & tc:ForReplaceChild      
752      if (defined $oldChild) {      my $cns = $self->child_nodes;
753        if ($oldChild eq $newChild) {      my $cnsl = @$cns;
754                C: {
755          $index = 0;
756  ;        for my $i (0..($cnsl-1)) {
757                    my $cn = $cns->[$i];
758            if ($cn eq $_[2]) {
759  {            $index += $i;
760              last C;
761            } elsif ($cn eq $_[1]) {
762  {            $index = -1; # offset
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
       }  
   
       my $cns = $self->  
 child_nodes  
 ;  
       my $cnsl = @$cns;  
       C: {  
         $index = 0;  
         for my $i (0..($cnsl-1)) {  
           my $cn = $cns->[$i];  
           if ($cn eq $oldChild) {  
             $index += $i;  
             last C;  
           } elsif ($cn eq $newChild) {  
             $index = -1; # offset  
           }  
763          }          }
764                  }
   
 ;  
           
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
       } # C  
     } else { # |oldChild| is not defined  
         
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
765                
766          report Message::DOM::DOMException
767              -object => $self,
768  }            -type => 'NOT_FOUND_ERR',
769              -subtype => 'NOT_CHILD_ERR';
770  ;      } # C
771      }    } else {
772          ## NOTE: Only in replaceChild
773        report Message::DOM::DOMException
774            -object => $self,
775  }          -type => 'NOT_FOUND_ERR',
776            -subtype => 'NOT_CHILD_ERR';
777  ; # FOR !tc:ForAppendChild    }
778    
779    ## -- Removes from parent    ## -- Removes from parent
780    if ($nc_parent) {    if ($new_child_parent) {
781      if ($child_nt ==      if (@new_child == 1) {
782  11        my $v = $$new_child_parent->{child_nodes};
 ) {  
       $$newChild->{  
 'child'  
 } = [];  
     } else {  
       my $v = $$nc_parent->{  
 'child'  
 };  
783        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
784          if ($v->[$i] eq $new_child[0]) {          if ($v->[$i] eq $new_child[0]) {
785            splice @$v, $i, 1, ();            splice @$v, $i, 1, ();
786            last RP;            last RP;
787          }          }
788        } # RP        } # RP
789        } else {
790          @{$$new_child_parent->{child_nodes}} = ();
791      }      }
792    }    }
793    
794    ## -- Rewrite the |parentNode| properties    ## -- Rewrite the |parentNode| properties
795    for my $nc (@new_child) {    for my $nc (@new_child) {
796      $$nc->{      $$nc->{parent_node} = $self;
797  'parent'      Scalar::Util::weaken ($$nc->{parent_node});
 } = $self;  
     Scalar::Util::weaken ($$nc->{  
 'parent'  
 });  
798    }    }
799    
800    my $children = $$self->{    ## NOTE: Depends on method:
801  'child'    splice @{$$self->{child_nodes}}, $index, 1, @new_child;
802  };    delete ${$_[2]}->{parent_node};
   
     
   
 ;  
   
     
   
 ;  
   
     
   
 {  
   
   
 ## -- Replaces the node  
     splice @$children, $index, 1, @new_child;  
     CORE::delete $$oldChild->{  
 'parent'  
 };  
     $r = $oldChild;  
     
   
   
 }  
   
 ;  
   
   
   
 }  
803    
804      ## NOTE: Only in |Document|.
805      for (@new_child) {
806        delete $$_->{implementation};
807        $$_->{owner_document} = $self;
808        Scalar::Util::weaken ($$_->{owner_document});
809      }
810    
811  ;}    return $_[2];
812    } # replace_child
 ;  
   
   
 }  
   
 ;  
 if ($child_nt ==  
 10 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;  
   
 {  
   
813    
814    unless  ## |Document| attributes
 ($self->  
 dom_config  
815    
816                 ->  ## NOTE: A manakai extension.
817  get_parameter  sub all_declarations_processed ($;$);
818    
819                     (  ## TODO: documentation
820  '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  
  ==  
 3  
 ) {  
       $lc->  
 manakai_append_text  
821    
822               (ref $string eq 'SCALAR' ? $string : \$string);  sub doctype ($) {
823      } else {    my $self = $_[0];
824        my $text = $self->    for (@{$self->child_nodes}) {
825  create_text_node      if ($_->node_type == 10) { # DOCUMENT_TYPE_NODE
826          return $_;
                           (ref $string eq 'SCALAR' ? $$string : $string);  
       $self->  
 append_child  
  ($text);  
827      }      }
828    }    }
829    $r = $self;    return undef;
830    } # doctype
   
831    
832  }  sub document_element ($) {
833      my $self = shift;
834      for (@{$self->child_nodes}) {
835  ;}      if ($_->node_type == 1) { # ELEMENT_NODE
836          return $_;
 ;  
   
   
 }  
 $r}  
 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;  
837      }      }
838    }    }
839        return undef;
840  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/removeChildImpl+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  } # 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 = '';  
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
841    
842  {  sub document_uri ($;$);
843    
844    sub dom_config ($) {
845      require Message::DOM::DOMConfiguration;
846      return bless \\($_[0]), 'Message::DOM::DOMConfiguration';
847    } # dom_config
848    
849    if  sub manakai_entity_base_uri ($;$) {
850  ($self->    my $self = $_[0];
851  dom_config    if (@_ > 1) {
852        if ($$self->{strict_error_checking}) {
853             ->        if ($$self->{manakai_read_only}) {
854  get_parameter          report Message::DOM::DOMException
855                -object => $self,
856                 (              -type => 'NO_MODIFICATION_ALLOWED_ERR',
857  'http://suika.fam.cx/www/2006/dom-config/strict-document-children'              -subtype => 'READ_ONLY_NODE_ERR';
 )) {  
     $r =  
 undef  
 ;  
   } else {  
     $r = '';  
     my @target = @{$self->  
 child_nodes  
 };  
     C: for my $node (@target) {  
       my $nt = $node->  
 node_type  
 ;  
       if ($nt ==  
 3 or  
             
 $nt ==  
 4  
 ) {  
         $r .= $node->  
 data  
           unless  
 $node->  
 is_element_content_whitespace  
 ;  
       } elsif ($nt ==  
 1 or  
                 
 $nt ==  
 5  
 ) {  
         unshift @target, @{$node->  
 child_nodes  
 };  
858        }        }
859      }      }
860        if (defined $_[1]) {
861          $$self->{manakai_entity_base_uri} = ''.$_[1];
862        } else {
863          delete $$self->{manakai_entity_base_uri};
864        }
865    }    }
   
   
   
 }  
   
   
 ;}  
   
 ;  
   
   
 }  
 $r;  
 } else {my ($self, $given) = @_;  
   
 {  
   
 if  
 ($self->  
 dom_config  
   
          ->  
 get_parameter  
   
              (  
 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'  
 )) {  
     
 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#setting-node-value-no-effect', 'rdata' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'text_content';  
   
 ;  
 } else {  
     
   
 {  
   
   
 {  
   
 if  
 ($self->  
 manakai_read_only  
 ) {  
866        
867  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';    if (defined $$self->{manakai_entity_base_uri}) {
868        return $$self->{manakai_entity_base_uri};
869  ;    } else {
870  }      return $$self->{document_uri};
871      }
872    } # manakai_entity_base_uri
 }  
   
 ;  
   
 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;  
   
 {  
   
873    
874  $r = bless \{  ## TODO: documentation
875      sub manakai_has_bom ($;$);
 'od'  
  => $self,  
     
 'child'  
  => [],  
 },  
 'Message::DOM::Document::ManakaiDOMDocumentFragment'  
 ;  
 Scalar::Util::weaken ($$r->{  
 'od'  
 });  
876    
877    sub input_encoding ($;$);
878    
 }  
 $r}  
879  sub strict_error_checking ($;$) {  sub strict_error_checking ($;$) {
880  if (@_ == 1) {my ($self) = @_;    ## NOTE: Same as trivial boolean accessor, except no read-only checking.
881  my $r = 0;    if (@_ > 1) {
882        if ($_[1]) {
883  {        ${$_[0]}->{strict_error_checking} = 1;
884        } else {
885          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::IFLatest::Document'],  
                   
 'Message::DOM::DOMCore::ManakaiDOMConfiguration'  
 ;  
   
   
 }  
   
 ;  
   
   
 }  
 $r;  
 } else {my ($self) = @_;  
 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dom_config';  
 }  
 }  
 sub document_element ($;$) {  
 if (@_ == 1) {my ($self) = @_;  
 my $r;  
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   F:  
 for my $child (@{$self->  
 child_nodes  
 }) {  
     if ($child->  
 node_type  
  ==  
 1  
 ) {  
       $r = $child;  
       last F;  
     }  
   } # F  
   
   
   
 }  
   
   
 ;}  
   
 ;  
   
   
 }  
 $r;  
 } else {my ($self) = @_;  
 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'document_element';  
 }  
 }  
 sub implementation ($;$) {  
 if (@_ == 1) {my ($self) = @_;  
 my $r;  
   
 {  
   
   
 $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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
 }  
   
   
 }  
   
 ;  
 if (defined $given and  
     ($given eq '1.0' or $given eq '1.1' or  
      not $self->  
 strict_error_checking  
 )) {  
   $$self->{  
 'http://www.w3.org/2001/04/infoset#version'  
 } = $given;  
 } else {  
     
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_NOSUPPORT_XMLVER', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'xml_version', 'http://www.w3.org/2001/04/infoset#version' => $given;  
   
 ;  
 }  
   
   
 }  
 }  
 }  
 sub doctype ($;$) {  
 if (@_ == 1) {my ($self) = @_;  
 my $r;  
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   F:  
 for my $child (@{$self->  
 child_nodes  
 }) {  
     my $nt = $child->  
 node_type  
 ;  
     if ($nt ==  
 10  
 ) {  
       $r = $child;  
       last F;  
     } elsif ($nt ==  
 1  
 ) { # document element  
       last F;  
886      }      }
887    } # F    }                  
888      return ${$_[0]}->{strict_error_checking};
889    } # 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
 }  
   
   
 }  
   
 ;  
 $$self->{  
 'duri'  
 } = $given;  
   
   
 }  
 }  
 }  
 sub input_encoding ($;$) {  
 if (@_ == 1) {my ($self) = @_;  
 my $r = '';  
   
 {  
   
890    
891  $r = $$self->{  ## ISSUE: Setting manakai_is_html true shadows
892  'ces'  ## xml_* properties.  Is this desired?
 };  
893    
   
 }  
 $r;  
 } else {my ($self, $given) = @_;  
   
 {  
   
   
 {  
   
 if  
 ($self->  
 manakai_read_only  
 ) {  
     
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
 }  
   
   
 }  
   
 ;  
 $$self->{  
 'ces'  
 } = $given;  
   
   
 }  
 }  
 }  
894  sub xml_encoding ($;$) {  sub xml_encoding ($;$) {
895  if (@_ == 1) {my ($self) = @_;    my $self = $_[0];
896  my $r = '';    if (@_ > 1) {
897        ## NOTE: A manakai extension.
898  {      if ($$self->{strict_error_checking}) {
899          if ($$self->{manakai_is_html}) {
900            report Message::DOM::DOMException
901  $r = $$self->{              -object => $self,
902  'xcs'              -type => 'NOT_SUPPORTED_ERR',
903  };              -subtype => 'NON_HTML_OPERATION_ERR';
904          }
905          if ($$self->{manakai_read_only}) {
906  }          report Message::DOM::DOMException
907  $r;              -object => $self,
908  } else {my ($self, $given) = @_;              -type => 'NO_MODIFICATION_ALLOWED_ERR',
909                -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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
 }  
   
   
 }  
   
 ;  
 $$self->{  
 '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
 }  
   
   
 }  
   
 ;  
 $$self->{  
 '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 ==  
 2  
 ) {  
     $oe = $source->  
 owner_element  
 ;  
     if ($strict and defined $oe and $oe->  
 manakai_read_only  
 ) {  
         
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'oe';  
   
 ;  
     }  
   } elsif ($nt ==  
 9 or  
             
 $nt ==  
 10 or  
             
 $nt ==  
 6 or  
             
 $nt ==  
 12  
 ) {  
       
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'source';  
   
 ;  
   }  
   
   my @change_od;  
   my @nodes = ($source);  
   while (@nodes) {  
     my $node = shift @nodes;  
     my $nt = $node->  
 node_type  
 ;  
     if ($strict and $node->  
 manakai_read_only  
 ) {  
         
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOMOD_DESCENDANT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $node;  
   
 ;  
     }  
     if ($nt ==  
 1  
 ) {  
       push @change_od, $node;  
       push @nodes, @{$node->  
 child_nodes  
 };  
       my $attrs = $node->  
 attributes  
 ;  
       my $attrsLength = $attrs->  
 length  
 ;  
       for my $i (0..($attrsLength - 1)) {  
         push @nodes, $attrs->  
 item  
  ($i);  
910        }        }
911      } elsif ($nt ==      }
912  2 or      if (defined $_[1]) {
913                      $$self->{xml_encoding} = ''.$_[1];
 $nt ==  
 5 or  
               
 $nt ==  
 11  
 ) {  
       push @change_od, $node;  
       push @nodes, @{$node->  
 child_nodes  
 };  
     } elsif ($nt ==  
 3 or  
               
 $nt ==  
 8 or  
               
 $nt ==  
 7 or  
               
 $nt ==  
 4  
 ) {  
       push @change_od, $node;  
914      } else {      } else {
915        ## TODO: assertion        delete $$self->{xml_encoding};
916      }      }
917    } # nodes    }
     
918        
919      if ($$self->{manakai_is_html}) {
920        return undef;
921      } else {
922        return $$self->{xml_encoding};
923      }
924    } # xml_encoding
925    
926  {  sub xml_standalone ($;$) {
927      my $self = $_[0];
928  local $Error::Depth = $Error::Depth + 1;    if (@_ > 1) {
929        if ($$self->{strict_error_checking}) {
930  {        if ($$self->{manakai_is_html}) {
931            report Message::DOM::DOMException
932                -object => $self,
933      if              -type => 'NOT_SUPPORTED_ERR',
934  (defined $parent) {              -subtype => 'NON_HTML_OPERATION_ERR';
935        $parent->        }
936  remove_child        ## NOTE: Not in DOM3.
937   ($source);        if ($$self->{manakai_read_only}) {
938      } elsif (defined $oe) {          report Message::DOM::DOMException
939        $oe->              -object => $self,
940  remove_attribute_node              -type => 'NO_MODIFICATION_ALLOWED_ERR',
941   ($source);              -subtype => 'READ_ONLY_NODE_ERR';
942          }
943        }
944        if ($_[1]) {
945          $$self->{xml_standalone} = 1;
946        } else {
947          delete $$self->{xml_standalone};
948      }      }
     
   
   
 }  
   
   
 ;}  
   
 ;  
   
   $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;  
949    }    }
950      
951    for my $n (@change_od) {    if ($$self->{manakai_is_html}) {
952      $$n->{      return 0;
953  'od'    } else {
954  } = $self;      return $$self->{xml_standalone};
     Scalar::Util::weaken ($$n->{  
 'od'  
 });  
955    }    }
956    } # xml_standalone
957    
958    for my $src (@change_od) {  sub xml_version ($;$) {
959      my $src_ud = $$src->{    my $self = $_[0];
960  'ud'    if (@_ > 1) {
961  };      my $v = ''.$_[1];
962      for my $key (keys %{$src_ud or {}}) {      if ($$self->{strict_error_checking}) {
963        my $dh = $src_ud->{$key}->[1];        if ($$self->{manakai_is_html}) {
964        if ($dh) {          report Message::DOM::DOMException
965          $dh->              -object => $self,
966  handle              -type => 'NOT_SUPPORTED_ERR',
967                -subtype => 'NON_HTML_OPERATION_ERR';
968                   (        }
969  5        if ($v ne '1.0' and $v ne '1.1') {
970  ,          report Message::DOM::DOMException
971                    $key, $src_ud->{$key}->[0], $src,              -object => $self,
972  undef              -type => 'NOT_SUPPORTED_ERR',
973  );              -subtype => 'UNKNOWN_XML_VERSION_ERR';
974        }        }
975          if ($$self->{manakai_read_only}) {
976            ## ISSUE: Not in DOM3.
977            report Message::DOM::DOMException
978                -object => $self,
979                -type => 'NO_MODIFICATION_ALLOWED_ERR',
980                -subtype => 'READ_ONLY_NODE_ERR';
981          }
982        }
983        $$self->{xml_version} = $v;
984      }
985      
986      if (defined wantarray) {
987        if ($$self->{manakai_is_html}) {
988          return undef;
989        } elsif (defined $$self->{xml_version}) {
990          return $$self->{xml_version};
991        } else {
992          return '1.0';
993      }      }
994    }    }
995  } # ADOPT  } # xml_version
996    
997    ## |Document| methods
998    
 }  
 $r}  
999  sub get_element_by_id ($$) {  sub get_element_by_id ($$) {
1000  my ($self, $elementId) = @_;    local $Error::Depth = $Error::Depth + 1;
1001  my $r;    my @nodes = @{$_[0]->child_nodes};
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   my  
 @nodes = @{$self->  
 child_nodes  
 };  
1002    N: while (@nodes) {    N: while (@nodes) {
1003      my $node = shift @nodes;      my $node = shift @nodes;
1004      next N unless $node->      next N unless $node->node_type == 1; # ELEMENT_NODE
1005  node_type      for my $attr (@{$node->attributes}) {
1006   ==        if ($attr->is_id and $attr->value eq $_[1]) {
1007  1          return $node;
 ;  
     for my $attr (@{$node->  
 attributes  
 }) {  
       if ($attr->  
 is_id and  
             
 $attr->  
 value eq  
 $elementId) {  
         $r = $attr;  
         last N;  
1008        }        }
1009      }      }
1010      unshift @nodes, @{$node->      unshift @nodes, @{$node->child_nodes};
 child_nodes  
 };  
1011    } # N    } # N
1012      return undef;
1013    } # get_element_by_id
1014    
1015    ## TODO: HTML5 case normalization
   
 }  
   
   
 ;}  
   
 ;  
   
   
 }  
 $r}  
1016  sub get_elements_by_tag_name ($$) {  sub get_elements_by_tag_name ($$) {
1017  my ($self, $name) = @_;    my $name = ''.$_[1];
1018  my $r;    my $chk;
1019      if ($name eq '*') {
1020  {      $chk = sub () { 1 };
   
   
 $name = "$name";  
 my $chk;  
 if ($name eq '*') {  
   $chk = sub {  
 1  
  };  
 } 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
   
     
   
 {  
   
   
 $namespaceURI = undef;  
     
   
   
 }  
   
 ;  
 }  
   
   
 }  
 my $r;  
   
 {  
   
   
 $namespaceURI = "$namespaceURI" if defined $namespaceURI;  
 $localName = "$localName";  
 my $chk;  
 if (not defined $namespaceURI) {  
   if ($localName eq '*') {  
     $chk = sub {  
       my $node = shift;  
       (not defined $node->  
 namespace_uri  
 );  
     };  
1021    } else {    } else {
1022      $chk = sub {      $chk = sub ($) {
1023        my $node = shift;        return $_[0]->manakai_tag_name eq $name;
       (not defined $node->  
 namespace_uri and  
         
 $node->  
 local_name eq  
 $localName);  
1024      };      };
1025    }    }
 } elsif ($namespaceURI eq '*') {  
   if ($localName eq '*') {  
     $chk = sub {  
 1  
  };  
   } 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' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
   
     
   
 {  
   
   
 $namespaceURI = undef;  
     
   
   
 }  
   
 ;  
 }  
   
   
 }  
 my $r;  
 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'rename_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';  
 $r}  
 sub manakai_entity_base_uri ($;$) {  
 if (@_ == 1) {my ($self) = @_;  
 my $r = '';  
   
 {  
   
   
 $r = $$self->{  
 '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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
 ;  
 }  
   
   
 }  
   
 ;  
 $$self->{  
 'buri'  
 } = $given;  
   
   
 }  
 }  
 }  
 sub all_declarations_processed ($;$) {  
 if (@_ == 1) {my ($self) = @_;  
 my $r = 0;  
   
 {  
   
1026    
1027  $r = $$self->{    require Message::DOM::NodeList;
1028  'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'    return bless \[$_[0], $chk], 'Message::DOM::NodeList::GetElementsList';
1029  };  } # get_elements_by_tag_name
1030    
1031    sub get_elements_by_tag_name_ns ($$$) {
1032  }    my $nsuri = defined $_[1] ? ''.$_[1] : '';
1033  $r;    my $lname = ''.$_[2];
1034  } else {my ($self, $given) = @_;    my $chk;
1035      if ($nsuri eq '*') {
1036  {      if ($lname eq '*') {
1037          $chk = sub () { 1 };
1038        } else {
1039  {        $chk = sub ($) {
1040            return $_[0]->manakai_local_name eq $lname;
1041  if        };
1042  ($self->      }
1043  manakai_read_only    } elsif ($nsuri eq '') {
1044  ) {      if ($lname eq '*') {
1045            $chk = sub ($) {
1046  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';          return not defined $_[0]->namespace_uri;
1047          };
1048  ;      } else {
1049  }        $chk = sub ($) {
1050            return (not defined $_[0]->namespace_uri and
1051                    $_[0]->manakai_local_name eq $lname);
1052  }        };
   
 ;  
 $$self->{  
 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'  
 } = $given;  
   
   
 }  
 }  
 }  
 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core',  
 {'',  
 '1',  
 '1.0',  
 '1',  
 '2.0',  
 '1',  
 '3.0',  
 '1'},  
 'xml',  
 {'',  
 '1',  
 '1.0',  
 '1',  
 '2.0',  
 '1',  
 '3.0',  
 '1'},  
 'xmlversion',  
 {'',  
 '1',  
 '1.0',  
 '1',  
 '1.1',  
 '1'}};  
 $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1;  
 package Message::DOM::IFLatest::DocumentFragment;  
 our $VERSION = 20061230.0424;  
 package Message::DOM::Document::ManakaiDOMDocumentFragment;  
 our $VERSION = 20061230.0424;  
 push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  
 'Message::DOM::IFLatest::DocumentFragment',  
 'Message::DOM::IFLatest::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 ({  
     3 => 1,  
     5 => 1,  
     1 => 1,  
     7 => 1,  
     4 => 1,  
     8 => 1,  
   }->{$child_nt}) {  
     push @new_child, $newChild;  
   } elsif ($child_nt ==  
 11  
 ) {  
     for my $cn (@{$newChild->  
 child_nodes  
 }) {  
       unless ({  
     3 => 1,  
     5 => 1,  
     1 => 1,  
     7 => 1,  
     4 => 1,  
     8 => 1,  
   }->{$cn->  
 node_type  
 }) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
       }  
       push @new_child, $cn;  
1053      }      }
1054    } else {    } else {
1055            if ($lname eq '*') {
1056          $chk = sub ($) {
1057  {          my $ns = $_[0]->namespace_uri;
1058            return (defined $ns and $ns eq $nsuri);
1059  local $Error::Depth = $Error::Depth - 1;        };
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
   }  
   
   my $nc_parent = @new_child ? $new_child[0]->  
 parent_node  
                              :  
   
 undef  
 ;  
   if ($strict) {  
     ## -- Wrong-document check  
     unless ($self_od eq $child_od) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
     }  
   
     ## -- Read-onlyness check  
     if ($self->  
 manakai_read_only  
 ) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
     }  
     if (@new_child) {  
       if ($nc_parent and  
           $nc_parent->  
 manakai_read_only  
 ) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
       }  
     }  
   }  
   
   ## -- Insert at...  
   my $index = -1; # last  
     
   
 ; # FOR !tc:ForAppendChild  
   
   ## -- Removes from parent  
   if ($nc_parent) {  
     if ($child_nt ==  
 11  
 ) {  
       $$newChild->{  
 'child'  
 } = [];  
1060      } else {      } else {
1061        my $v = $$nc_parent->{        $chk = sub ($) {
1062  'child'          my $ns = $_[0]->namespace_uri;
1063  };          return (defined $ns and $ns eq $nsuri and
1064        RP: for my $i (0..$#$v) {                  $_[0]->manakai_local_name eq $lname);
1065          if ($v->[$i] eq $new_child[0]) {        };
           splice @$v, $i, 1, ();  
           last RP;  
         }  
       } # RP  
1066      }      }
1067    }    }
1068    
1069    ## -- Rewrite the |parentNode| properties    require Message::DOM::NodeList;
1070    for my $nc (@new_child) {    return bless \[$_[0], $chk], 'Message::DOM::NodeList::GetElementsList';
1071      $$nc->{  } # get_elements_by_tag_name
 'parent'  
 } = $self;  
     Scalar::Util::weaken ($$nc->{  
 'parent'  
 });  
   }  
   
   my $children = $$self->{  
 'child'  
 };  
   
     
   
 {  
   
   
 ## -- Adds to children list  
     push @$children, @new_child;  
     $r = $newChild;  
     
   
   
 }  
   
 ;  
   
     
   
 ;  
   
     
   
 ;  
1072    
1073    ## TODO: import_node
1074    
1075    ## TODO: normalize_document
1076    
1077  }  ## TODO: rename_node
1078    
1079    ## |DocumentTraversal| methods
1080    
1081  ;}  ## TODO: create_node_iterator
1082    
1083  ;  sub manakai_create_serial_walker ($$;$$$);
1084    
1085    sub create_tree_walker ($$;$$$);
1086    
1087  }  ## |HTMLDocument| attributes
   
 ;  
   
   
 }  
 $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';  
1088    
1089  ;  sub compat_mode ($) {
1090  }    if (${$_[0]}->{manakai_is_html}) {
1091  my $self_od = $self->      if (defined ${$_[0]}->{manakai_compat_mode} and
1092  owner_document          ${$_[0]}->{manakai_compat_mode} eq 'quirks') {
1093  ;        return 'BackCompat';
1094  my $child_od = $newChild->      }
1095  owner_document    }
1096  ;    return 'CSS1Compat';
1097  my $child_nt = $newChild->  } # compat_mode
 node_type  
 ;  
   
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   my  
 $strict = $self_od->  
 strict_error_checking  
 ;  
   
   ## -- Node Type check  
   my @new_child;  
   if ({  
     3 => 1,  
     5 => 1,  
     1 => 1,  
     7 => 1,  
     4 => 1,  
     8 => 1,  
   }->{$child_nt}) {  
     push @new_child, $newChild;  
   } elsif ($child_nt ==  
 11  
 ) {  
     for my $cn (@{$newChild->  
 child_nodes  
 }) {  
       unless ({  
     3 => 1,  
     5 => 1,  
     1 => 1,  
     7 => 1,  
     4 => 1,  
     8 => 1,  
   }->{$cn->  
 node_type  
 }) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
1098    
1099  ;  sub manakai_compat_mode ($;$) {
1100        }    if (${$_[0]}->{manakai_is_html}) {
1101        push @new_child, $cn;      if (@_ > 1 and defined $_[1] and
1102            {'no quirks' => 1, 'limited quirks' => 1, 'quirks' => 1}->{$_[1]}) {
1103          ${$_[0]}->{manakai_compat_mode} = $_[1];
1104      }      }
1105        return ${$_[0]}->{manakai_compat_mode} || 'no quirks';
1106    } else {    } else {
1107            return 'no quirks';
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
1108    }    }
1109    } # manakai_compat_mode
1110    
1111    my $nc_parent = @new_child ? $new_child[0]->  sub inner_html ($;$) {
1112  parent_node    my $self = $_[0];
1113                               :    local $Error::Depth = $Error::Depth + 1;
1114    
1115  undef    if ($$self->{manakai_is_html}) {
1116  ;      require Whatpm::HTML;
1117    if ($strict) {      if (@_ > 1) {
1118      ## -- Wrong-document check        ## Step 1
1119      unless ($self_od eq $child_od) {        ## TODO: Stop parsing and ...
1120                
1121          ## Step 2
1122          my @cn = @{$self->child_nodes};
1123          for (@cn) { ## NOTE: Might throw a |NO_MODIFICATION_ALLOWED_ERR|.
1124            $self->remove_child ($_); #
1125          }
1126    
1127  {        ## Step 3, 4, 5
1128          Whatpm::HTML->parse_string ($_[1] => $self);
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
1129    
1130  ;}        ## TODO:
1131          ## <script>var input = function_to_do_xmlhttprequest (location.href);
1132          ## document.innerHTML = input</script>
1133    
1134  ;        return unless defined wantarray;
1135      }      }
1136    
1137      ## -- Read-onlyness check      require Whatpm::HTML::Serializer;
1138      if ($self->      return ${ Whatpm::HTML::Serializer->get_inner_html ($self) };
1139  manakai_read_only    } else {
1140  ) {      if (@_ > 1) {
1141          ## Step 1
1142          require Whatpm::XMLParser; # MUST
1143          my $doc = $self->implementation->create_document;
1144                
1145          ## Step 2
1146          #
1147    
1148  {        ## Step 3
1149          $doc = Whatpm::XMLParser->parse_string ($_[1] => $doc); # MUST
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
1150    
1151  ;        ## Step 4
1152      }        #
     if (@new_child) {  
       if ($nc_parent and  
           $nc_parent->  
 manakai_read_only  
 ) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
1153    
1154          ## Step 5
1155          ## TODO: ill-formed -> SYNTAX_ERR # MUST
1156    
1157  ;}        ## Step 6 # MUST
1158          my @cn = @{$self->child_nodes}; ## TODO: If read-only
1159  ;        for (@cn) {
1160            $self->remove_child ($_);
1161        }        }
     }  
   }  
   
   ## -- 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' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
1162    
1163  ;}        ## Step 7, 8, 9, 10
1164          for my $node (@{$doc->child_nodes}) {
1165  ;          $self->append_child ($self->adopt_node ($node));
           
   
   
 }  
   
 ;  
           
   
 ;  
1166        }        }
1167    
1168        my $cns = $self->        return unless defined wantarray;
 child_nodes  
 ;  
       my $cnsl = @$cns;  
       C: {  
         $index = 0;  
         for my $i (0..($cnsl-1)) {  
           my $cn = $cns->[$i];  
           if ($cn eq $refChild) {  
             $index += $i;  
             last C;  
           } elsif ($cn eq $newChild) {  
             $index = -1; # offset  
           }  
         }  
           
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
           
   
 ;  
       } # C  
     } else { # |oldChild| is not defined  
         
   
 ;  
1169      }      }
     
   
1170    
1171  }      ## TODO: This serializer is currently not conformant to HTML5 spec.
1172        require Whatpm::XMLSerializer;
1173  ; # FOR !tc:ForAppendChild      my $r = '';
1174        for (@{$self->child_nodes}) {
1175    ## -- Removes from parent        $r .= ${ Whatpm::XMLSerializer->get_outer_xml ($_, sub {
1176    if ($nc_parent) {          ## TODO: INVALID_STATE_ERR
1177      if ($child_nt ==        }) };
 11  
 ) {  
       $$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  
1178      }      }
1179        return $r;
1180    }    }
1181    } # inner_html
1182    
1183    ## -- Rewrite the |parentNode| properties  sub manakai_is_html ($;$) {
1184    for my $nc (@new_child) {    if (@_ > 1) {
1185      $$nc->{      if ($_[1]) {
1186  '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;  
1187      } else {      } else {
1188        splice @$children, $index, 0, @new_child;        delete ${$_[0]}->{manakai_is_html};
1189          delete ${$_[0]}->{manakai_compat_mode};
1190      }      }
     $r = $newChild;  
     
   
   
 }  
   
 ;  
   
     
   
 ;  
   
   
   
 }  
   
   
 ;}  
   
 ;  
   
   
 }  
   
 ;  
   
   
 }  
 $r}  
 sub replace_child ($$$) {  
 my ($self, $newChild, $oldChild) = @_;  
 my $r;  
   
 {  
   
 if  
 ($self eq $newChild) {  
     
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';  
   
 ;  
 }  
 my $self_od = $self->  
 owner_document  
 ;  
 my $child_od = $newChild->  
 owner_document  
 ;  
 my $child_nt = $newChild->  
 node_type  
 ;  
   
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth + 1;  
   
 {  
   
   
   my  
 $strict = $self_od->  
 strict_error_checking  
 ;  
   
   ## -- Node Type check  
   my @new_child;  
   if ({  
     3 => 1,  
     5 => 1,  
     1 => 1,  
     7 => 1,  
     4 => 1,  
     8 => 1,  
   }->{$child_nt}) {  
     push @new_child, $newChild;  
   } elsif ($child_nt ==  
 11  
 ) {  
     for my $cn (@{$newChild->  
 child_nodes  
 }) {  
       unless ({  
     3 => 1,  
     5 => 1,  
     1 => 1,  
     7 => 1,  
     4 => 1,  
     8 => 1,  
   }->{$cn->  
 node_type  
 }) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
       }  
       push @new_child, $cn;  
     }  
   } else {  
       
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
1191    }    }
1192      return ${$_[0]}->{manakai_is_html};
1193    } # manakai_is_html
1194    
1195    my $nc_parent = @new_child ? $new_child[0]->  package Message::IF::Document;
1196  parent_node  package Message::IF::DocumentTraversal;
1197                               :  package Message::IF::DocumentXDoctype;
1198    package Message::IF::DocumentSelector;
1199  undef  package Message::IF::HTMLDocument;
 ;  
   if ($strict) {  
     ## -- Wrong-document check  
     unless ($self_od eq $child_od) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;  
   
   
 }  
   
1200    
1201  ;}  package Message::DOM::DOMImplementation;
1202    
1203  ;  sub create_document ($;$$$) {
1204      }    my $r = Message::DOM::Document->____new ($_[0]);
   
     ## -- Read-onlyness check  
     if ($self->  
 manakai_read_only  
 ) {  
         
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
     }  
     if (@new_child) {  
       if ($nc_parent and  
           $nc_parent->  
 manakai_read_only  
 ) {  
           
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
1205    
1206  ;    if (defined $_[2]) {
1207        }      local $Error::Depth = $Error::Depth + 1;
1208      }      $r->append_child ($r->create_element_ns ($_[1], $_[2])); # NAMESPACE_ERR
1209        ## NOTE: manakai might raise DOMExceptions in cases not defined
1210        ## in DOM3Core spec: XMLNSPREFIX_NONXMLNSNS_ERR,
1211        ## XMLNS_NONXMLNSNS_ERR, and NONXMLNSPREFIX_XMLNSNS_ERR.
1212      } elsif (defined $_[1]) {
1213        report Message::DOM::DOMException
1214            -object => $_[0],
1215            -type => 'NAMESPACE_ERR',
1216            -subtype => 'QNAME_NULLNS_ERR';
1217    }    }
1218    
1219    ## -- Insert at...    if (defined $_[3]) {
1220    my $index = -1; # last      if ($_[3]->parent_node) {
1221            report Message::DOM::DOMException
1222              -object => $_[0],
1223  {            -type => 'WRONG_DOCUMENT_ERR',
1224              -subtype => 'INUSE_DOCTYPE_ERR';
   
 # tc:ForAppendChild & tc:ForReplaceChild  
     if (defined $oldChild) {  
       if ($oldChild eq $newChild) {  
           
   
 ;  
           
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
       }  
   
       my $cns = $self->  
 child_nodes  
 ;  
       my $cnsl = @$cns;  
       C: {  
         $index = 0;  
         for my $i (0..($cnsl-1)) {  
           my $cn = $cns->[$i];  
           if ($cn eq $oldChild) {  
             $index += $i;  
             last C;  
           } elsif ($cn eq $newChild) {  
             $index = -1; # offset  
           }  
         }  
           
   
 ;  
           
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
           
   
   
 }  
   
 ;  
       } # C  
     } else { # |oldChild| is not defined  
         
   
 {  
   
   
 {  
   
 local $Error::Depth = $Error::Depth - 1;  
   
 {  
   
 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  
   
   
 }  
   
   
 ;}  
   
 ;  
         
   
   
 }  
   
 ;  
1225      }      }
1226          local $Error::Depth = $Error::Depth + 1;
1227        $r->insert_before ($_[3], $r->first_child); # EXTERNAL_OBJECT_ERR
   
 }  
   
 ; # FOR !tc:ForAppendChild  
   
   ## -- Removes from parent  
   if ($nc_parent) {  
     if ($child_nt ==  
 11  
 ) {  
       $$newChild->{  
 'child'  
 } = [];  
     } else {  
       my $v = $$nc_parent->{  
 'child'  
 };  
       RP: for my $i (0..$#$v) {  
         if ($v->[$i] eq $new_child[0]) {  
           splice @$v, $i, 1, ();  
           last RP;  
         }  
       } # RP  
     }  
   }  
   
   ## -- Rewrite the |parentNode| properties  
   for my $nc (@new_child) {  
     $$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  
  ==  
 3  
 ) {  
     $lc->  
 manakai_append_text  
   
            (ref $string eq 'SCALAR' ? $string : \$string);  
   } else {  
     my $text = $self->  
 owner_document  
   
                     ->  
 create_text_node  
   
                         (ref $string eq 'SCALAR' ? $$string : $string);  
     $self->  
 append_child  
  ($text);  
1228    }    }
   $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  
 ;  
   
   
1229    
1230  }    return $r;
1231    } # create_document
1232    
1233    =head1 LICENSE
1234    
1235  ;}  Copyright 2007 Wakaba <w@suika.fam.cx>
1236    
1237  ;  This program is free software; you can redistribute it and/or
1238    modify it under the same terms as Perl itself.
1239    
1240    =cut
1241    
 }  
 $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::IFLatest::Node::){}  
 ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>  
1242  1;  1;
1243    ## $Date$
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.27
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24