/[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.2 by wakaba, Mon Apr 3 12:53:24 2006 UTC revision 1.7 by wakaba, Sun Jun 18 04:12:48 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  ## This file is automatically generated  ## This file is automatically generated
3  ##      at 2006-04-03T06:00:22+00:00,  ##      at 2006-06-18T02:07:45+00:00,
4  ##      from file "Document.dis",  ##      from file "../DOM/Document.dis",
5  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,
6  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
7  ## Don't edit by hand!  ## Don't edit by hand!
# Line 11  require Message::DOM::Element; Line 11  require Message::DOM::Element;
11  require Message::DOM::TreeCore;  require Message::DOM::TreeCore;
12  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
13  package Message::DOM::Document;  package Message::DOM::Document;
14  our $VERSION = 20060403.0600;  our $VERSION = 20060618.0207;
15  package Message::DOM::IFLatest::Document;  package Message::DOM::IFLatest::Document;
16  our $VERSION = 20060403.0600;  our $VERSION = 20060618.0207;
17  package Message::DOM::Document::ManakaiDOMDocument;  package Message::DOM::Document::ManakaiDOMDocument;
18  our $VERSION = 20060403.0600;  our $VERSION = 20060618.0207;
19  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
20  'Message::DOM::IF::Document',  'Message::DOM::IF::Document',
21  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 70  $bag->{${$opt->{'impl'}->{ Line 70  $bag->{${$opt->{'impl'}->{
70  };  };
71    
72    
73  ;}  }
74    
75  ;  ;
76  $r = $obj;  $r = $obj;
77    
78    
79  ;}  }
80  $r}  $r}
81  sub ___create_node_ref ($$$) {  sub ___create_node_ref ($$$) {
82  my ($self, $obj, $opt) = @_;  my ($self, $obj, $opt) = @_;
# Line 116  $class = $obj->{ Line 116  $class = $obj->{
116           ->{'dnrcls'};           ->{'dnrcls'};
117    
118    
119  ;}  }
120    
121  ;  ;
122    if (defined $class) {    if (defined $class) {
# Line 144  $cns = $obj->{ Line 144  $cns = $obj->{
144           ->{'child'};           ->{'child'};
145    
146    
147  ;}  }
148    
149  ;  ;
150    my $bag =    my $bag =
# Line 172  $cncls = $cnh->{ Line 172  $cncls = $cnh->{
172           ->{'cls'};           ->{'cls'};
173    
174    
175  ;}  }
176    
177  ;  ;
178      if ($$cncls eq      if ($$cncls eq
# Line 198  $dens = $deh->{ Line 198  $dens = $deh->{
198           ->{'ns'};           ->{'ns'};
199    
200    
201  ;}  }
202    
203  ;  ;
204      $dens = \'' unless defined $dens;      $dens = \'' unless defined $dens;
# Line 215  $deln = $deh->{ Line 215  $deln = $deh->{
215           ->{'ln'};           ->{'ln'};
216    
217    
218  ;}  }
219    
220  ;  ;
221    } else {    } else {
# Line 308  $obj->{ Line 308  $obj->{
308      ->{'dnrcls'} = $class;      ->{'dnrcls'} = $class;
309    
310    
311  ;}  }
312    
313  ;  ;
314    }    }
# Line 316  $obj->{ Line 316  $obj->{
316  $r = bless $obj, $$class;  $r = bless $obj, $$class;
317    
318    
319  ;}  }
320  $r}  $r}
321  sub node_type ($;$) {  sub node_type ($;$) {
322  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 400  local $Error::Depth = $Error::Depth - 1; Line 400  local $Error::Depth = $Error::Depth - 1;
400  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;  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;
401    
402    
403  ;}  }
404    
405    
406  ;}  ;}
# Line 436  local $Error::Depth = $Error::Depth - 1; Line 436  local $Error::Depth = $Error::Depth - 1;
436  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;  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;
437    
438    
439  ;}  }
440    
441    
442  ;}  ;}
# Line 470  local $Error::Depth = $Error::Depth - 1; Line 470  local $Error::Depth = $Error::Depth - 1;
470  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;  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;
471    
472    
473  ;}  }
474    
475    
476  ;}  ;}
# Line 490  local $Error::Depth = $Error::Depth - 1; Line 490  local $Error::Depth = $Error::Depth - 1;
490  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;  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;
491    
492    
493  ;}  }
494    
495    
496  ;}  ;}
# Line 505  previous_sibling Line 505  previous_sibling
505        
506    
507    
508  ;}  }
509    
510    
511  ;}  ;}
# Line 569  local $Error::Depth = $Error::Depth - 1; Line 569  local $Error::Depth = $Error::Depth - 1;
569  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;  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;
570    
571    
572  ;}  }
573    
574    
575  ;}  ;}
# Line 590  local $Error::Depth = $Error::Depth - 1; Line 590  local $Error::Depth = $Error::Depth - 1;
590  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;  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;
591    
592    
593  ;}  }
594    
595    
596  ;}  ;}
# Line 618  local $Error::Depth = $Error::Depth - 1; Line 618  local $Error::Depth = $Error::Depth - 1;
618  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;  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;
619    
620    
621  ;}  }
622    
623    
624  ;}  ;}
# Line 641  local $Error::Depth = $Error::Depth - 1; Line 641  local $Error::Depth = $Error::Depth - 1;
641  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';  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';
642    
643    
644  ;}  }
645    
646    
647  ;}  ;}
# Line 664  local $Error::Depth = $Error::Depth - 1; Line 664  local $Error::Depth = $Error::Depth - 1;
664  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';  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';
665    
666    
667  ;}  }
668    
669    
670  ;}  ;}
# Line 698  $newChild->{ Line 698  $newChild->{
698      ->{'child'} = [];      ->{'child'} = [];
699    
700    
701  ;}  }
702    
703  ;  ;
704      } else {      } else {
# Line 716  $v = $nc_parent->{ Line 716  $v = $nc_parent->{
716           ->{'child'};           ->{'child'};
717    
718    
719  ;}  }
720    
721  ;  ;
722        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
# Line 748  $nc->{ Line 748  $nc->{
748  };  };
749    
750    
751  ;}  }
752    
753  ;  ;
754    }    }
# Line 767  $children = $self->{ Line 767  $children = $self->{
767           ->{'child'};           ->{'child'};
768    
769    
770  ;}  }
771    
772  ;  ;
773    
# Line 786  $_->{'id'} Line 786  $_->{'id'}
786        
787    
788    
789  ;}  }
790    
791  ;  ;
792    
# Line 800  $_->{'id'} Line 800  $_->{'id'}
800    
801    
802    
803  ;}  }
804    
805    
806  ;}  ;}
# Line 808  $_->{'id'} Line 808  $_->{'id'}
808  ;  ;
809    
810    
811  ;}  }
812    
813  ;  ;
814  if ($child_nt ==  if ($child_nt ==
# Line 832  $bag->{${$bag->{${$newChild->{ Line 832  $bag->{${$bag->{${$newChild->{
832                   ->{'lpmi'};                   ->{'lpmi'};
833  $bag->{  $bag->{
834  'm'  'm'
835  }  }++;
     ->{${$bag->{${$newChild->{  
 'id'  
 }}}->{'impl'}}}  
     =  
 1  
 ;  
836  CORE::delete $bag->{${$newChild->{  CORE::delete $bag->{${$newChild->{
837  'id'  'id'
838  }}}  }}}
839                   ->{'impl'};                   ->{'impl'};
840    
841    
842  ;}  }
843    
844  ;  ;
845        
# Line 870  $bag->{${$self->{ Line 864  $bag->{${$self->{
864  };  };
865    
866    
867  ;}  }
868    
869  ;  ;
870  }  }
871    
872    
873  ;}  }
874  $r}  $r}
875  sub insert_before ($$;$) {  sub insert_before ($$;$) {
876  my ($self, $newChild, $refChild) = @_;  my ($self, $newChild, $refChild) = @_;
# Line 951  local $Error::Depth = $Error::Depth - 1; Line 945  local $Error::Depth = $Error::Depth - 1;
945  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;  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;
946    
947    
948  ;}  }
949    
950    
951  ;}  ;}
# Line 990  local $Error::Depth = $Error::Depth - 1; Line 984  local $Error::Depth = $Error::Depth - 1;
984  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;  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;
985    
986    
987  ;}  }
988    
989    
990  ;}  ;}
# Line 1020  local $Error::Depth = $Error::Depth - 1; Line 1014  local $Error::Depth = $Error::Depth - 1;
1014  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;  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;
1015    
1016    
1017  ;}  }
1018    
1019    
1020  ;}  ;}
# Line 1040  local $Error::Depth = $Error::Depth - 1; Line 1034  local $Error::Depth = $Error::Depth - 1;
1034  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;  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;
1035    
1036    
1037  ;}  }
1038    
1039    
1040  ;}  ;}
# Line 1077  local $Error::Depth = $Error::Depth - 1; Line 1071  local $Error::Depth = $Error::Depth - 1;
1071  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;  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;
1072    
1073    
1074  ;}  }
1075    
1076    
1077  ;}  ;}
# Line 1097  local $Error::Depth = $Error::Depth - 1; Line 1091  local $Error::Depth = $Error::Depth - 1;
1091  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;  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;
1092    
1093    
1094  ;}  }
1095    
1096    
1097  ;}  ;}
# Line 1127  local $Error::Depth = $Error::Depth - 1; Line 1121  local $Error::Depth = $Error::Depth - 1;
1121  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;  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;
1122    
1123    
1124  ;}  }
1125    
1126    
1127  ;}  ;}
# Line 1142  next_sibling Line 1136  next_sibling
1136        
1137    
1138    
1139  ;}  }
1140    
1141    
1142  ;}  ;}
# Line 1206  local $Error::Depth = $Error::Depth - 1; Line 1200  local $Error::Depth = $Error::Depth - 1;
1200  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;  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;
1201    
1202    
1203  ;}  }
1204    
1205    
1206  ;}  ;}
# Line 1227  local $Error::Depth = $Error::Depth - 1; Line 1221  local $Error::Depth = $Error::Depth - 1;
1221  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;  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;
1222    
1223    
1224  ;}  }
1225    
1226    
1227  ;}  ;}
# Line 1255  local $Error::Depth = $Error::Depth - 1; Line 1249  local $Error::Depth = $Error::Depth - 1;
1249  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;  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;
1250    
1251    
1252  ;}  }
1253    
1254    
1255  ;}  ;}
# Line 1278  local $Error::Depth = $Error::Depth - 1; Line 1272  local $Error::Depth = $Error::Depth - 1;
1272  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';  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';
1273    
1274    
1275  ;}  }
1276    
1277    
1278  ;}  ;}
# Line 1301  local $Error::Depth = $Error::Depth - 1; Line 1295  local $Error::Depth = $Error::Depth - 1;
1295  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';  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';
1296    
1297    
1298  ;}  }
1299    
1300    
1301  ;}  ;}
# Line 1335  local $Error::Depth = $Error::Depth - 1; Line 1329  local $Error::Depth = $Error::Depth - 1;
1329  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';  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';
1330    
1331    
1332  ;}  }
1333    
1334    
1335  ;}  ;}
# Line 1344  report Message::DOM::DOMCore::ManakaiDOM Line 1338  report Message::DOM::DOMCore::ManakaiDOM
1338                    
1339    
1340    
1341  ;}  }
1342    
1343  ;  ;
1344                    
# Line 1381  local $Error::Depth = $Error::Depth - 1; Line 1375  local $Error::Depth = $Error::Depth - 1;
1375  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;  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;
1376    
1377    
1378  ;}  }
1379    
1380    
1381  ;}  ;}
# Line 1390  report Message::DOM::DOMCore::ManakaiDOM Line 1384  report Message::DOM::DOMCore::ManakaiDOM
1384                    
1385    
1386    
1387  ;}  }
1388    
1389  ;  ;
1390                    
# Line 1405  report Message::DOM::DOMCore::ManakaiDOM Line 1399  report Message::DOM::DOMCore::ManakaiDOM
1399        
1400    
1401    
1402  ;}  }
1403    
1404  ; # FOR !tc:ForAppendChild  ; # FOR !tc:ForAppendChild
1405    
# Line 1427  $newChild->{ Line 1421  $newChild->{
1421      ->{'child'} = [];      ->{'child'} = [];
1422    
1423    
1424  ;}  }
1425    
1426  ;  ;
1427      } else {      } else {
# Line 1445  $v = $nc_parent->{ Line 1439  $v = $nc_parent->{
1439           ->{'child'};           ->{'child'};
1440    
1441    
1442  ;}  }
1443    
1444  ;  ;
1445        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
# Line 1477  $nc->{ Line 1471  $nc->{
1471  };  };
1472    
1473    
1474  ;}  }
1475    
1476  ;  ;
1477    }    }
# Line 1496  $children = $self->{ Line 1490  $children = $self->{
1490           ->{'child'};           ->{'child'};
1491    
1492    
1493  ;}  }
1494    
1495  ;  ;
1496    
# Line 1527  $_->{'id'} Line 1521  $_->{'id'}
1521        
1522    
1523    
1524  ;}  }
1525    
1526  ;  ;
1527    
# Line 1537  $_->{'id'} Line 1531  $_->{'id'}
1531    
1532    
1533    
1534  ;}  }
1535    
1536    
1537  ;}  ;}
# Line 1545  $_->{'id'} Line 1539  $_->{'id'}
1539  ;  ;
1540    
1541    
1542  ;}  }
1543    
1544  ;  ;
1545  if ($child_nt ==  if ($child_nt ==
# Line 1569  $bag->{${$bag->{${$newChild->{ Line 1563  $bag->{${$bag->{${$newChild->{
1563                   ->{'lpmi'};                   ->{'lpmi'};
1564  $bag->{  $bag->{
1565  'm'  'm'
1566  }  }++;
     ->{${$bag->{${$newChild->{  
 'id'  
 }}}->{'impl'}}}  
     =  
 1  
 ;  
1567  CORE::delete $bag->{${$newChild->{  CORE::delete $bag->{${$newChild->{
1568  'id'  'id'
1569  }}}  }}}
1570                   ->{'impl'};                   ->{'impl'};
1571    
1572    
1573  ;}  }
1574    
1575  ;  ;
1576        
# Line 1607  $bag->{${$self->{ Line 1595  $bag->{${$self->{
1595  };  };
1596    
1597    
1598  ;}  }
1599    
1600  ;  ;
1601  }  }
1602    
1603    
1604  ;}  }
1605  $r}  $r}
1606  sub replace_child ($$$) {  sub replace_child ($$$) {
1607  my ($self, $newChild, $oldChild) = @_;  my ($self, $newChild, $oldChild) = @_;
# Line 1688  local $Error::Depth = $Error::Depth - 1; Line 1676  local $Error::Depth = $Error::Depth - 1;
1676  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;  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;
1677    
1678    
1679  ;}  }
1680    
1681    
1682  ;}  ;}
# Line 1724  local $Error::Depth = $Error::Depth - 1; Line 1712  local $Error::Depth = $Error::Depth - 1;
1712  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;  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;
1713    
1714    
1715  ;}  }
1716    
1717    
1718  ;}  ;}
# Line 1756  local $Error::Depth = $Error::Depth - 1; Line 1744  local $Error::Depth = $Error::Depth - 1;
1744  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;  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;
1745    
1746    
1747  ;}  }
1748    
1749    
1750  ;}  ;}
# Line 1776  local $Error::Depth = $Error::Depth - 1; Line 1764  local $Error::Depth = $Error::Depth - 1;
1764  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;  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;
1765    
1766    
1767  ;}  }
1768    
1769    
1770  ;}  ;}
# Line 1810  local $Error::Depth = $Error::Depth - 1; Line 1798  local $Error::Depth = $Error::Depth - 1;
1798  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;  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;
1799    
1800    
1801  ;}  }
1802    
1803    
1804  ;}  ;}
# Line 1830  local $Error::Depth = $Error::Depth - 1; Line 1818  local $Error::Depth = $Error::Depth - 1;
1818  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;  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;
1819    
1820    
1821  ;}  }
1822    
1823    
1824  ;}  ;}
# Line 1862  local $Error::Depth = $Error::Depth - 1; Line 1850  local $Error::Depth = $Error::Depth - 1;
1850  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;  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;
1851    
1852    
1853  ;}  }
1854    
1855    
1856  ;}  ;}
# Line 1877  next_sibling Line 1865  next_sibling
1865        
1866    
1867    
1868  ;}  }
1869    
1870    
1871  ;}  ;}
# Line 1941  local $Error::Depth = $Error::Depth - 1; Line 1929  local $Error::Depth = $Error::Depth - 1;
1929  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;  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;
1930    
1931    
1932  ;}  }
1933    
1934    
1935  ;}  ;}
# Line 1962  local $Error::Depth = $Error::Depth - 1; Line 1950  local $Error::Depth = $Error::Depth - 1;
1950  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;  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;
1951    
1952    
1953  ;}  }
1954    
1955    
1956  ;}  ;}
# Line 1990  local $Error::Depth = $Error::Depth - 1; Line 1978  local $Error::Depth = $Error::Depth - 1;
1978  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;  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;
1979    
1980    
1981  ;}  }
1982    
1983    
1984  ;}  ;}
# Line 2013  local $Error::Depth = $Error::Depth - 1; Line 2001  local $Error::Depth = $Error::Depth - 1;
2001  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';  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';
2002    
2003    
2004  ;}  }
2005    
2006    
2007  ;}  ;}
# Line 2036  local $Error::Depth = $Error::Depth - 1; Line 2024  local $Error::Depth = $Error::Depth - 1;
2024  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';  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';
2025    
2026    
2027  ;}  }
2028    
2029    
2030  ;}  ;}
# Line 2073  local $Error::Depth = $Error::Depth - 1; Line 2061  local $Error::Depth = $Error::Depth - 1;
2061  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';  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';
2062    
2063    
2064  ;}  }
2065    
2066    
2067  ;}  ;}
# Line 2082  report Message::DOM::DOMCore::ManakaiDOM Line 2070  report Message::DOM::DOMCore::ManakaiDOM
2070                    
2071    
2072    
2073  ;}  }
2074    
2075  ;  ;
2076        }        }
# Line 2119  local $Error::Depth = $Error::Depth - 1; Line 2107  local $Error::Depth = $Error::Depth - 1;
2107  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  report Message::DOM::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;
2108    
2109    
2110  ;}  }
2111    
2112    
2113  ;}  ;}
# Line 2128  report Message::DOM::DOMCore::ManakaiDOM Line 2116  report Message::DOM::DOMCore::ManakaiDOM
2116                    
2117    
2118    
2119  ;}  }
2120    
2121  ;  ;
2122        } # C        } # C
# Line 2147  local $Error::Depth = $Error::Depth - 1; Line 2135  local $Error::Depth = $Error::Depth - 1;
2135  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  report Message::DOM::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;
2136    
2137    
2138  ;}  }
2139    
2140    
2141  ;}  ;}
# Line 2156  report Message::DOM::DOMCore::ManakaiDOM Line 2144  report Message::DOM::DOMCore::ManakaiDOM
2144                
2145    
2146    
2147  ;}  }
2148    
2149  ;  ;
2150      }      }
2151        
2152    
2153    
2154  ;}  }
2155    
2156  ; # FOR !tc:ForAppendChild  ; # FOR !tc:ForAppendChild
2157    
# Line 2185  $newChild->{ Line 2173  $newChild->{
2173      ->{'child'} = [];      ->{'child'} = [];
2174    
2175    
2176  ;}  }
2177    
2178  ;  ;
2179      } else {      } else {
# Line 2203  $v = $nc_parent->{ Line 2191  $v = $nc_parent->{
2191           ->{'child'};           ->{'child'};
2192    
2193    
2194  ;}  }
2195    
2196  ;  ;
2197        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
# Line 2235  $nc->{ Line 2223  $nc->{
2223  };  };
2224    
2225    
2226  ;}  }
2227    
2228  ;  ;
2229    }    }
# Line 2254  $children = $self->{ Line 2242  $children = $self->{
2242           ->{'child'};           ->{'child'};
2243    
2244    
2245  ;}  }
2246    
2247  ;  ;
2248    
# Line 2290  $oldChild->{ Line 2278  $oldChild->{
2278                   ->{'parent'};                   ->{'parent'};
2279    
2280    
2281  ;}  }
2282    
2283  ;  ;
2284      $r = $oldChild;      $r = $oldChild;
2285        
2286    
2287    
2288  ;}  }
2289    
2290  ;  ;
2291    
2292    
2293    
2294  ;}  }
2295    
2296    
2297  ;}  ;}
# Line 2311  $oldChild->{ Line 2299  $oldChild->{
2299  ;  ;
2300    
2301    
2302  ;}  }
2303    
2304  ;  ;
2305  if ($child_nt ==  if ($child_nt ==
# Line 2335  $bag->{${$bag->{${$newChild->{ Line 2323  $bag->{${$bag->{${$newChild->{
2323                   ->{'lpmi'};                   ->{'lpmi'};
2324  $bag->{  $bag->{
2325  'm'  'm'
2326  }  }++;
     ->{${$bag->{${$newChild->{  
 'id'  
 }}}->{'impl'}}}  
     =  
 1  
 ;  
2327  CORE::delete $bag->{${$newChild->{  CORE::delete $bag->{${$newChild->{
2328  'id'  'id'
2329  }}}  }}}
2330                   ->{'impl'};                   ->{'impl'};
2331    
2332    
2333  ;}  }
2334    
2335  ;  ;
2336        
# Line 2373  $bag->{${$self->{ Line 2355  $bag->{${$self->{
2355  };  };
2356    
2357    
2358  ;}  }
2359    
2360  ;  ;
2361  }  }
2362    
2363    
2364  ;}  }
2365  $r}  $r}
2366  sub manakai_append_text ($$) {  sub manakai_append_text ($$) {
2367  my ($self, $string) = @_;  my ($self, $string) = @_;
# Line 2432  append_child Line 2414  append_child
2414    
2415    
2416    
2417  ;}  }
2418    
2419    
2420  ;}  ;}
# Line 2440  append_child Line 2422  append_child
2422  ;  ;
2423    
2424    
2425  ;}  }
2426  $r}  $r}
2427  sub remove_child ($$) {  sub remove_child ($$) {
2428  my ($self, $oldChild) = @_;  my ($self, $oldChild) = @_;
# Line 2486  $v = $self->{ Line 2468  $v = $self->{
2468           ->{'child'};           ->{'child'};
2469    
2470    
2471  ;}  }
2472    
2473  ;  ;
2474        splice @$v, $i, 1, ();        splice @$v, $i, 1, ();
# Line 2503  $oldChild->{ Line 2485  $oldChild->{
2485                   ->{'parent'};                   ->{'parent'};
2486    
2487    
2488  ;}  }
2489    
2490  ;  ;
2491        $r = $oldChild;        $r = $oldChild;
# Line 2517  report Message::DOM::DOMCore::ManakaiDOM Line 2499  report Message::DOM::DOMCore::ManakaiDOM
2499  } # F  } # F
2500    
2501    
2502  ;}  }
2503    
2504  ;  ;
2505    
2506    
2507  ;}  }
2508  $r}  $r}
2509  sub node_name ($;$) {  sub node_name ($;$) {
2510  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 2596  child_nodes Line 2578  child_nodes
2578    
2579    
2580    
2581  ;}  }
2582    
2583    
2584  ;}  ;}
# Line 2604  child_nodes Line 2586  child_nodes
2586  ;  ;
2587    
2588    
2589  ;}  }
2590  $r;  $r;
2591  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
2592    
# Line 2643  report Message::DOM::DOMCore::ManakaiDOM Line 2625  report Message::DOM::DOMCore::ManakaiDOM
2625  }  }
2626    
2627    
2628  ;}  }
2629    
2630  ;  ;
2631    
# Line 2664  $__old_child->{ Line 2646  $__old_child->{
2646                   ->{'parent'};                   ->{'parent'};
2647    
2648    
2649  ;}  }
2650    
2651  ;  ;
2652  }  }
# Line 2692  $__text->{ Line 2674  $__text->{
2674  };  };
2675    
2676    
2677  ;}  }
2678    
2679  ;  ;
2680  }  }
# Line 2710  $self->{ Line 2692  $self->{
2692      ->{'child'} = \@__new_children;      ->{'child'} = \@__new_children;
2693    
2694    
2695  ;}  }
2696    
2697  ;  ;
2698    
2699    
2700  ;}  }
2701    
2702  ;  ;
2703  }  }
2704    
2705    
2706  ;}  }
2707  }  }
2708  }  }
2709  sub get_feature ($$$) {  sub get_feature ($$$) {
# Line 2733  my ($self, $feature, $version) = @_; Line 2715  my ($self, $feature, $version) = @_;
2715  $feature = lc $feature;  $feature = lc $feature;
2716    
2717    
2718  ;}  }
2719    
2720  {  {
2721    
# Line 2741  $feature = lc $feature; Line 2723  $feature = lc $feature;
2723  $version = '' unless defined $version;  $version = '' unless defined $version;
2724    
2725    
2726  ;}  }
2727  my $r;  my $r;
2728    
2729  {  {
# Line 2796  $r = ${($self->{'b'})->{${($self->{'id'} Line 2778  $r = ${($self->{'b'})->{${($self->{'id'}
2778  }++;  }++;
2779    
2780    
2781  ;}  }
2782    
2783  ;  ;
2784        last CLASS;        last CLASS;
# Line 2805  $r = ${($self->{'b'})->{${($self->{'id'} Line 2787  $r = ${($self->{'b'})->{${($self->{'id'}
2787  }  }
2788    
2789    
2790  ;}  }
2791    
2792  ;  ;
2793  unless (defined $r) {  unless (defined $r) {
# Line 2823  local $Error::Depth = $Error::Depth + 1; Line 2805  local $Error::Depth = $Error::Depth + 1;
2805        
2806    
2807    
2808  ;}  }
2809    
2810    
2811  ;}  ;}
# Line 2832  local $Error::Depth = $Error::Depth + 1; Line 2814  local $Error::Depth = $Error::Depth + 1;
2814  }  }
2815    
2816    
2817  ;}  }
2818  $r}  $r}
2819  sub base_uri ($;$) {  sub base_uri ($;$) {
2820  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 2852  $r = $self->{ Line 2834  $r = $self->{
2834           ->{'buri'};           ->{'buri'};
2835    
2836    
2837  ;}  }
2838    
2839  ;  ;
2840  unless (defined $r) {  unless (defined $r) {
# Line 2869  $r = $self->{ Line 2851  $r = $self->{
2851           ->{'duri'};           ->{'duri'};
2852    
2853    
2854  ;}  }
2855    
2856  ;  ;
2857  }  }
2858    
2859    
2860  ;}  }
2861  $r;  $r;
2862  } else {my ($self) = @_;  } else {my ($self) = @_;
2863  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';  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';
# Line 2922  report Message::DOM::DOMCore::ManakaiDOM Line 2904  report Message::DOM::DOMCore::ManakaiDOM
2904        
2905    
2906    
2907  ;}  }
2908    
2909  ;  ;
2910        
# Line 2931  report Message::DOM::DOMCore::ManakaiDOM Line 2913  report Message::DOM::DOMCore::ManakaiDOM
2913  }  }
2914    
2915    
2916  ;}  }
2917    
2918  ;  ;
2919  }  }
# Line 2963  strict_error_checking Line 2945  strict_error_checking
2945    
2946    
2947    
2948  ;}  }
2949    
2950    
2951  ;}  ;}
# Line 2971  strict_error_checking Line 2953  strict_error_checking
2953  ;  ;
2954    
2955    
2956  ;}  }
2957  $r}  $r}
2958  sub create_element_ns ($$$) {  sub create_element_ns ($$$) {
2959  my ($self, $namespaceURI, $qualifiedName) = @_;  my ($self, $namespaceURI, $qualifiedName) = @_;
# Line 2981  my ($self, $namespaceURI, $qualifiedName Line 2963  my ($self, $namespaceURI, $qualifiedName
2963  if  if
2964  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
2965        
2966  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:1143811080:18264:zbjED29418+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  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:1148810725:4054:uUDJ249673+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2967    
2968  ;  ;
2969    
# Line 2994  $namespaceURI = undef; Line 2976  $namespaceURI = undef;
2976        
2977    
2978    
2979  ;}  }
2980    
2981  ;  ;
2982  }  }
2983    
2984    
2985  ;}  }
2986  my $r;  my $r;
2987    
2988  {  {
# Line 3064  report Message::DOM::DOMCore::ManakaiDOM Line 3046  report Message::DOM::DOMCore::ManakaiDOM
3046    }    }
3047    
3048    
3049  ;}  }
3050    
3051  ;  ;
3052        
# Line 3121  report Message::DOM::DOMCore::ManakaiDOM Line 3103  report Message::DOM::DOMCore::ManakaiDOM
3103  }  }
3104    
3105    
3106  ;}  }
3107    
3108  ;  ;
3109    if (defined $namespaceURI and $namespaceURI eq    if (defined $namespaceURI and $namespaceURI eq
# Line 3154  $stem = 'Message::DOM::Element::ManakaiD Line 3136  $stem = 'Message::DOM::Element::ManakaiD
3136   => \   => \
3137  (  (
3138    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3139    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3140  )  )
3141  ,  ,
# Line 3199  if Line 3165  if
3165  }  }
3166    
3167    
3168  ;}  }
3169    
3170  ;  ;
3171  $bag->{${$stem->{  $bag->{${$stem->{
# Line 3207  $bag->{${$stem->{ Line 3173  $bag->{${$stem->{
3173  }}} = $stem;  }}} = $stem;
3174    
3175    
3176  ;}  }
3177    
3178  ;  ;
3179    
# Line 3233  $stem->{ Line 3199  $stem->{
3199  }++;  }++;
3200    
3201    
3202  ;}  }
3203    
3204  ;  ;
3205    
# Line 3483  strict_error_checking Line 3449  strict_error_checking
3449    
3450    
3451    
3452  ;}  }
3453    
3454    
3455  ;}  ;}
# Line 3491  strict_error_checking Line 3457  strict_error_checking
3457  ;  ;
3458    
3459    
3460  ;}  }
3461    
3462  ;  ;
3463    
3464    
3465  ;}  }
3466  $r}  $r}
3467  sub create_attribute ($$) {  sub create_attribute ($$) {
3468  my ($self, $name) = @_;  my ($self, $name) = @_;
# Line 3539  report Message::DOM::DOMCore::ManakaiDOM Line 3505  report Message::DOM::DOMCore::ManakaiDOM
3505        
3506    
3507    
3508  ;}  }
3509    
3510  ;  ;
3511        
# Line 3548  report Message::DOM::DOMCore::ManakaiDOM Line 3514  report Message::DOM::DOMCore::ManakaiDOM
3514  }  }
3515    
3516    
3517  ;}  }
3518    
3519  ;  ;
3520  }  }
# Line 3580  strict_error_checking Line 3546  strict_error_checking
3546    
3547    
3548    
3549  ;}  }
3550    
3551    
3552  ;}  ;}
# Line 3588  strict_error_checking Line 3554  strict_error_checking
3554  ;  ;
3555    
3556    
3557  ;}  }
3558  $r}  $r}
3559  sub create_attribute_ns ($$$) {  sub create_attribute_ns ($$$) {
3560  my ($self, $namespaceURI, $qualifiedName) = @_;  my ($self, $namespaceURI, $qualifiedName) = @_;
# Line 3598  my ($self, $namespaceURI, $qualifiedName Line 3564  my ($self, $namespaceURI, $qualifiedName
3564  if  if
3565  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
3566        
3567  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:1143811080:18264:zbjED29418+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  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:1148810725:4054:uUDJ249673+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3568    
3569  ;  ;
3570    
# Line 3611  $namespaceURI = undef; Line 3577  $namespaceURI = undef;
3577        
3578    
3579    
3580  ;}  }
3581    
3582  ;  ;
3583  }  }
3584    
3585    
3586  ;}  }
3587  my $r;  my $r;
3588    
3589  {  {
# Line 3690  report Message::DOM::DOMCore::ManakaiDOM Line 3656  report Message::DOM::DOMCore::ManakaiDOM
3656    }    }
3657    
3658    
3659  ;}  }
3660    
3661  ;  ;
3662        
# Line 3747  report Message::DOM::DOMCore::ManakaiDOM Line 3713  report Message::DOM::DOMCore::ManakaiDOM
3713  }  }
3714    
3715    
3716  ;}  }
3717    
3718  ;  ;
3719  }  }
# Line 3770  $stem = 'Message::DOM::Element::ManakaiD Line 3736  $stem = 'Message::DOM::Element::ManakaiD
3736   => \   => \
3737  (  (
3738    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3739    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3740  )  )
3741  ,  ,
# Line 3816  if Line 3766  if
3766  }  }
3767    
3768    
3769  ;}  }
3770    
3771  ;  ;
3772  $bag->{${$stem->{  $bag->{${$stem->{
# Line 3824  $bag->{${$stem->{ Line 3774  $bag->{${$stem->{
3774  }}} = $stem;  }}} = $stem;
3775    
3776    
3777  ;}  }
3778    
3779  ;  ;
3780    
# Line 3850  $stem->{ Line 3800  $stem->{
3800  }++;  }++;
3801    
3802    
3803  ;}  }
3804    
3805  ;  ;
3806    
# Line 3888  manakai_attribute_type Line 3838  manakai_attribute_type
3838        
3839    
3840    
3841  ;}  }
3842    
3843    
3844  ;}  ;}
# Line 3897  manakai_attribute_type Line 3847  manakai_attribute_type
3847  }  }
3848    
3849    
3850  ;}  }
3851  $r}  $r}
3852  sub create_text_node ($$) {  sub create_text_node ($$) {
3853  my ($self, $data) = @_;  my ($self, $data) = @_;
# Line 3905  my $r; Line 3855  my $r;
3855    
3856  {  {
3857    
3858  my  require
3859  $bag =  Message::DOM::CharacterData;
3860    my $bag =
3861  $self->{'b'}  $self->{'b'}
3862  ;  ;
3863  my $stem;  my $stem;
# Line 3915  my $stem; Line 3866  my $stem;
3866  {  {
3867    
3868    
3869  $stem = 'Message::DOM::TreeCore::ManakaiDOMText'->___create_node_stem ($bag, {  $stem = 'Message::DOM::CharacterData::ManakaiDOMText'->___create_node_stem ($bag, {
3870        
3871  'rc'  'rc'
3872   => 0,   => 0,
# Line 3924  $stem = 'Message::DOM::TreeCore::Manakai Line 3875  $stem = 'Message::DOM::TreeCore::Manakai
3875   => \   => \
3876  (  (
3877    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3878    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3879  )  )
3880  ,  ,
# Line 3952  $stem = 'Message::DOM::TreeCore::Manakai Line 3887  $stem = 'Message::DOM::TreeCore::Manakai
3887  {  {
3888    
3889  if  if
3890  (defined 'Message::DOM::TreeCore::ManakaiDOMText') {  (defined 'Message::DOM::CharacterData::ManakaiDOMText') {
3891    if (ref 'Message::DOM::TreeCore::ManakaiDOMText' eq 'SCALAR') {    if (ref 'Message::DOM::CharacterData::ManakaiDOMText' eq 'SCALAR') {
3892      $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMText';      $stem->{'cls'} = 'Message::DOM::CharacterData::ManakaiDOMText';
3893    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'}) {    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'}) {
3894      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'};      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'};
3895    } else {    } else {
3896      require Scalar::Util;      require Scalar::Util;
3897      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'} = \('Message::DOM::TreeCore::ManakaiDOMText');      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'} = \('Message::DOM::CharacterData::ManakaiDOMText');
3898      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'});      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'});
3899    }    }
3900  } else {  } else {
3901    CORE::delete $stem->{'cls'};    CORE::delete $stem->{'cls'};
3902  }  }
3903    
3904    
3905  ;}  }
3906    
3907  ;  ;
3908  $bag->{${$stem->{  $bag->{${$stem->{
# Line 3975  $bag->{${$stem->{ Line 3910  $bag->{${$stem->{
3910  }}} = $stem;  }}} = $stem;
3911    
3912    
3913  ;}  }
3914    
3915  ;  ;
3916    
# Line 4001  $stem->{ Line 3936  $stem->{
3936  }++;  }++;
3937    
3938    
3939  ;}  }
3940    
3941  ;  ;
3942    
3943    
3944  ;}  }
3945  $r}  $r}
3946  sub create_cdata_section ($$) {  sub create_cdata_section ($$) {
3947  my ($self, $data) = @_;  my ($self, $data) = @_;
# Line 4034  $stem = 'Message::DOM::XML::ManakaiDOMCD Line 3969  $stem = 'Message::DOM::XML::ManakaiDOMCD
3969   => \   => \
3970  (  (
3971    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3972    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3973  )  )
3974  ,  ,
# Line 4077  if Line 3996  if
3996  }  }
3997    
3998    
3999  ;}  }
4000    
4001  ;  ;
4002  $bag->{${$stem->{  $bag->{${$stem->{
# Line 4085  $bag->{${$stem->{ Line 4004  $bag->{${$stem->{
4004  }}} = $stem;  }}} = $stem;
4005    
4006    
4007  ;}  }
4008    
4009  ;  ;
4010    
# Line 4111  $stem->{ Line 4030  $stem->{
4030  }++;  }++;
4031    
4032    
4033  ;}  }
4034    
4035  ;  ;
4036    
4037    
4038  ;}  }
4039  $r}  $r}
4040  sub create_comment ($$) {  sub create_comment ($$) {
4041  my ($self, $data) = @_;  my ($self, $data) = @_;
# Line 4124  my $r; Line 4043  my $r;
4043    
4044  {  {
4045    
4046  my  require
4047  $bag =  Message::DOM::CharacterData;
4048    my $bag =
4049  $self->{'b'}  $self->{'b'}
4050  ;  ;
4051  my $stem;  my $stem;
# Line 4134  my $stem; Line 4054  my $stem;
4054  {  {
4055    
4056    
4057  $stem = 'Message::DOM::TreeCore::ManakaiDOMComment'->___create_node_stem ($bag, {  $stem = 'Message::DOM::CharacterData::ManakaiDOMComment'->___create_node_stem ($bag, {
4058        
4059  'rc'  'rc'
4060   => 0,   => 0,
# Line 4143  $stem = 'Message::DOM::TreeCore::Manakai Line 4063  $stem = 'Message::DOM::TreeCore::Manakai
4063   => \   => \
4064  (  (
4065    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
4066    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
4067  )  )
4068  ,  ,
# Line 4171  $stem = 'Message::DOM::TreeCore::Manakai Line 4075  $stem = 'Message::DOM::TreeCore::Manakai
4075  {  {
4076    
4077  if  if
4078  (defined 'Message::DOM::TreeCore::ManakaiDOMComment') {  (defined 'Message::DOM::CharacterData::ManakaiDOMComment') {
4079    if (ref 'Message::DOM::TreeCore::ManakaiDOMComment' eq 'SCALAR') {    if (ref 'Message::DOM::CharacterData::ManakaiDOMComment' eq 'SCALAR') {
4080      $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMComment';      $stem->{'cls'} = 'Message::DOM::CharacterData::ManakaiDOMComment';
4081    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'}) {    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'}) {
4082      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'};      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'};
4083    } else {    } else {
4084      require Scalar::Util;      require Scalar::Util;
4085      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'} = \('Message::DOM::TreeCore::ManakaiDOMComment');      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'} = \('Message::DOM::CharacterData::ManakaiDOMComment');
4086      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'});      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'});
4087    }    }
4088  } else {  } else {
4089    CORE::delete $stem->{'cls'};    CORE::delete $stem->{'cls'};
4090  }  }
4091    
4092    
4093  ;}  }
4094    
4095  ;  ;
4096  $bag->{${$stem->{  $bag->{${$stem->{
# Line 4194  $bag->{${$stem->{ Line 4098  $bag->{${$stem->{
4098  }}} = $stem;  }}} = $stem;
4099    
4100    
4101  ;}  }
4102    
4103  ;  ;
4104    
# Line 4220  $stem->{ Line 4124  $stem->{
4124  }++;  }++;
4125    
4126    
4127  ;}  }
4128    
4129  ;  ;
4130    
4131    
4132  ;}  }
4133  $r}  $r}
4134  sub create_document_fragment ($) {  sub create_document_fragment ($) {
4135  my ($self) = @_;  my ($self) = @_;
# Line 4252  $stem = 'Message::DOM::Document::Manakai Line 4156  $stem = 'Message::DOM::Document::Manakai
4156   => \   => \
4157  (  (
4158    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
4159    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
4160  )  )
4161  ,  ,
# Line 4294  if Line 4182  if
4182  }  }
4183    
4184    
4185  ;}  }
4186    
4187  ;  ;
4188  $bag->{${$stem->{  $bag->{${$stem->{
# Line 4302  $bag->{${$stem->{ Line 4190  $bag->{${$stem->{
4190  }}} = $stem;  }}} = $stem;
4191    
4192    
4193  ;}  }
4194    
4195  ;  ;
4196    
# Line 4328  $stem->{ Line 4216  $stem->{
4216  }++;  }++;
4217    
4218    
4219  ;}  }
4220    
4221  ;  ;
4222    
4223    
4224  ;}  }
4225  $r}  $r}
4226  sub create_entity_reference ($$) {  sub create_entity_reference ($$) {
4227  my ($self, $name) = @_;  my ($self, $name) = @_;
# Line 4380  report Message::DOM::DOMCore::ManakaiDOM Line 4268  report Message::DOM::DOMCore::ManakaiDOM
4268        
4269    
4270    
4271  ;}  }
4272    
4273  ;  ;
4274        
# Line 4389  report Message::DOM::DOMCore::ManakaiDOM Line 4277  report Message::DOM::DOMCore::ManakaiDOM
4277  }  }
4278    
4279    
4280  ;}  }
4281    
4282  ;  ;
4283  }  }
# Line 4412  $stem = 'Message::DOM::XML::ManakaiDOMEn Line 4300  $stem = 'Message::DOM::XML::ManakaiDOMEn
4300   => \   => \
4301  (  (
4302    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
4303    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
4304  )  )
4305  ,  ,
# Line 4455  if Line 4327  if
4327  }  }
4328    
4329    
4330  ;}  }
4331    
4332  ;  ;
4333  $bag->{${$stem->{  $bag->{${$stem->{
# Line 4463  $bag->{${$stem->{ Line 4335  $bag->{${$stem->{
4335  }}} = $stem;  }}} = $stem;
4336    
4337    
4338  ;}  }
4339    
4340  ;  ;
4341    
# Line 4489  $stem->{ Line 4361  $stem->{
4361  }++;  }++;
4362    
4363    
4364  ;}  }
4365    
4366  ;  ;
4367    
# Line 4564  manakai_set_read_only Line 4436  manakai_set_read_only
4436    
4437    
4438    
4439  ;}  }
4440    
4441    
4442  ;}  ;}
# Line 4572  manakai_set_read_only Line 4444  manakai_set_read_only
4444  ;  ;
4445    
4446    
4447  ;}  }
4448  $r}  $r}
4449  sub create_processing_instruction ($$$) {  sub create_processing_instruction ($$$) {
4450  my ($self, $target, $data) = @_;  my ($self, $target, $data) = @_;
# Line 4616  report Message::DOM::DOMCore::ManakaiDOM Line 4488  report Message::DOM::DOMCore::ManakaiDOM
4488        
4489    
4490    
4491  ;}  }
4492    
4493  ;  ;
4494        
# Line 4625  report Message::DOM::DOMCore::ManakaiDOM Line 4497  report Message::DOM::DOMCore::ManakaiDOM
4497  }  }
4498    
4499    
4500  ;}  }
4501    
4502  ;  ;
4503  }  }
# Line 4649  $stem = 'Message::DOM::XML::ManakaiDOMPr Line 4521  $stem = 'Message::DOM::XML::ManakaiDOMPr
4521   => \   => \
4522  (  (
4523    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
4524    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
4525  )  )
4526  ,  ,
# Line 4693  if Line 4549  if
4549  }  }
4550    
4551    
4552  ;}  }
4553    
4554  ;  ;
4555  $bag->{${$stem->{  $bag->{${$stem->{
# Line 4701  $bag->{${$stem->{ Line 4557  $bag->{${$stem->{
4557  }}} = $stem;  }}} = $stem;
4558    
4559    
4560  ;}  }
4561    
4562  ;  ;
4563    
# Line 4727  $stem->{ Line 4583  $stem->{
4583  }++;  }++;
4584    
4585    
4586  ;}  }
4587    
4588  ;  ;
4589    
4590    
4591  ;}  }
4592  $r}  $r}
4593  sub strict_error_checking ($;$) {  sub strict_error_checking ($;$) {
4594  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 4752  $r = $self->{ Line 4608  $r = $self->{
4608           ->{'chk'};           ->{'chk'};
4609    
4610    
4611  ;}  }
4612    
4613  ;  ;
4614  $r =  $r =
# Line 4760  $r = Line 4616  $r =
4616  defined $r;  defined $r;
4617    
4618    
4619  ;}  }
4620  $r;  $r;
4621  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
4622    
# Line 4778  $self->{ Line 4634  $self->{
4634      ->{'chk'} = $given ? 1 : 0;      ->{'chk'} = $given ? 1 : 0;
4635    
4636    
4637  ;}  }
4638    
4639  ;  ;
4640    
4641    
4642  ;}  }
4643  }  }
4644  }  }
4645  sub dom_config ($;$) {  sub dom_config ($;$) {
# Line 4802  $r = bless [$self, ($self->{'b'}->{${$se Line 4658  $r = bless [$self, ($self->{'b'}->{${$se
4658  ;  ;
4659    
4660    
4661  ;}  }
4662    
4663  ;  ;
4664    
4665    
4666  ;}  }
4667  $r;  $r;
4668  } else {my ($self) = @_;  } else {my ($self) = @_;
4669  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';  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';
# Line 4843  node_type Line 4699  node_type
4699    
4700    
4701    
4702  ;}  }
4703    
4704    
4705  ;}  ;}
# Line 4851  node_type Line 4707  node_type
4707  ;  ;
4708    
4709    
4710  ;}  }
4711  $r;  $r;
4712  } else {my ($self) = @_;  } else {my ($self) = @_;
4713  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';  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';
# Line 4896  $self->{'b'}->{${$__v}}->{ Line 4752  $self->{'b'}->{${$__v}}->{
4752  }++;  }++;
4753    
4754    
4755  ;}  }
4756    
4757  ;  ;
4758  }  }
4759    
4760    
4761  ;}  }
4762    
4763  ;  ;
4764    
4765    
4766  ;}  }
4767  $r;  $r;
4768  } else {my ($self) = @_;  } else {my ($self) = @_;
4769  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';  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';
# Line 4931  $r = $self->{ Line 4787  $r = $self->{
4787           ->{'http://www.w3.org/2001/04/infoset#version'};           ->{'http://www.w3.org/2001/04/infoset#version'};
4788    
4789    
4790  ;}  }
4791    
4792  ;  ;
4793  $r = '1.0' unless defined $r;  $r = '1.0' unless defined $r;
4794    
4795    
4796  ;}  }
4797  $r;  $r;
4798  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
4799    
# Line 4957  report Message::DOM::DOMCore::ManakaiDOM Line 4813  report Message::DOM::DOMCore::ManakaiDOM
4813  }  }
4814    
4815    
4816  ;}  }
4817    
4818  ;  ;
4819  if (defined $given and  if (defined $given and
# Line 4978  $self->{ Line 4834  $self->{
4834      ->{'http://www.w3.org/2001/04/infoset#version'} = $given;      ->{'http://www.w3.org/2001/04/infoset#version'} = $given;
4835    
4836    
4837  ;}  }
4838    
4839  ;  ;
4840  } else {  } else {
# Line 4989  report Message::DOM::DOMCore::ManakaiDOM Line 4845  report Message::DOM::DOMCore::ManakaiDOM
4845  }  }
4846    
4847    
4848  ;}  }
4849  }  }
4850  }  }
4851  sub doctype ($;$) {  sub doctype ($;$) {
# Line 5027  node_type Line 4883  node_type
4883    
4884    
4885    
4886  ;}  }
4887    
4888    
4889  ;}  ;}
# Line 5035  node_type Line 4891  node_type
4891  ;  ;
4892    
4893    
4894  ;}  }
4895  $r;  $r;
4896  } else {my ($self) = @_;  } else {my ($self) = @_;
4897  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';  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';
# Line 5059  $r = $self->{ Line 4915  $r = $self->{
4915           ->{'duri'};           ->{'duri'};
4916    
4917    
4918  ;}  }
4919    
4920  ;  ;
4921    
4922    
4923  ;}  }
4924  $r;  $r;
4925  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
4926    
# Line 5084  report Message::DOM::DOMCore::ManakaiDOM Line 4940  report Message::DOM::DOMCore::ManakaiDOM
4940  }  }
4941    
4942    
4943  ;}  }
4944    
4945  ;  ;
4946    
# Line 5100  $self->{ Line 4956  $self->{
4956      ->{'duri'} = $given;      ->{'duri'} = $given;
4957    
4958    
4959  ;}  }
4960    
4961  ;  ;
4962    
4963    
4964  ;}  }
4965  }  }
4966  }  }
4967  sub input_encoding ($;$) {  sub input_encoding ($;$) {
# Line 5126  $r = $self->{ Line 4982  $r = $self->{
4982           ->{'ces'};           ->{'ces'};
4983    
4984    
4985  ;}  }
4986    
4987  ;  ;
4988    
4989    
4990  ;}  }
4991  $r;  $r;
4992  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
4993    
# Line 5151  report Message::DOM::DOMCore::ManakaiDOM Line 5007  report Message::DOM::DOMCore::ManakaiDOM
5007  }  }
5008    
5009    
5010  ;}  }
5011    
5012  ;  ;
5013    
# Line 5167  $self->{ Line 5023  $self->{
5023      ->{'ces'} = $given;      ->{'ces'} = $given;
5024    
5025    
5026  ;}  }
5027    
5028  ;  ;
5029    
5030    
5031  ;}  }
5032  }  }
5033  }  }
5034  sub xml_encoding ($;$) {  sub xml_encoding ($;$) {
# Line 5193  $r = $self->{ Line 5049  $r = $self->{
5049           ->{'xcs'};           ->{'xcs'};
5050    
5051    
5052  ;}  }
5053    
5054  ;  ;
5055    
5056    
5057  ;}  }
5058  $r;  $r;
5059  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
5060    
# Line 5218  report Message::DOM::DOMCore::ManakaiDOM Line 5074  report Message::DOM::DOMCore::ManakaiDOM
5074  }  }
5075    
5076    
5077  ;}  }
5078    
5079  ;  ;
5080    
# Line 5234  $self->{ Line 5090  $self->{
5090      ->{'xcs'} = $given;      ->{'xcs'} = $given;
5091    
5092    
5093  ;}  }
5094    
5095  ;  ;
5096    
5097    
5098  ;}  }
5099  }  }
5100  }  }
5101  sub xml_standalone ($;$) {  sub xml_standalone ($;$) {
# Line 5260  $r = $self->{ Line 5116  $r = $self->{
5116           ->{'http://www.w3.org/2001/04/infoset#standalone'};           ->{'http://www.w3.org/2001/04/infoset#standalone'};
5117    
5118    
5119  ;}  }
5120    
5121  ;  ;
5122    
5123    
5124  ;}  }
5125  $r;  $r;
5126  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
5127    
# Line 5285  report Message::DOM::DOMCore::ManakaiDOM Line 5141  report Message::DOM::DOMCore::ManakaiDOM
5141  }  }
5142    
5143    
5144  ;}  }
5145    
5146  ;  ;
5147    
# Line 5301  $self->{ Line 5157  $self->{
5157      ->{'http://www.w3.org/2001/04/infoset#standalone'} = $given;      ->{'http://www.w3.org/2001/04/infoset#standalone'} = $given;
5158    
5159    
5160  ;}  }
5161    
5162  ;  ;
5163    
5164    
5165  ;}  }
5166  }  }
5167  }  }
5168  sub adopt_node ($$) {  sub adopt_node ($$) {
# Line 5315  my $r; Line 5171  my $r;
5171    
5172  {  {
5173    
5174  if  ADOPT:
5175  ($source->isa (  {
5176      last ADOPT
5177        unless $source->isa (
5178  'Message::DOM::TreeCore::ManakaiDOMNode'  'Message::DOM::TreeCore::ManakaiDOMNode'
5179  ) and  ) and
5180                  
5181  $self->{'b'}  $self->{'b'}
5182          eq                 eq
5183    
5184  $source->{'b'}  $source->{'b'}
5185  ) {  ;
5186    
5187    my $strict = $self->    my $strict = $self->
5188  strict_error_checking  strict_error_checking
5189  ;  ;
# Line 5470  remove_attribute_node Line 5329  remove_attribute_node
5329        
5330    
5331    
5332  ;}  }
5333    
5334    
5335  ;}  ;}
5336    
5337  ;  ;
5338    
5339      $r = $source;
5340    my $old_od = $change_od[0]->    my $old_od = $change_od[0]->
5341  owner_document  owner_document
5342  ;  ;
# Line 5484  owner_document Line 5344  owner_document
5344                   ##       nodes by definition.  In addition,                   ##       nodes by definition.  In addition,
5345                   ##       it cannot contain document or document                   ##       it cannot contain document or document
5346                   ##       type nodes in current implementation.                   ##       type nodes in current implementation.
5347    
5348      if ($old_od eq $self) {
5349        last ADOPT;
5350      }
5351    
5352    my $old_od_list;    my $old_od_list;
5353        
5354    
# Line 5498  $old_od_list = $old_od->{ Line 5363  $old_od_list = $old_od->{
5363           ->{'do'};           ->{'do'};
5364    
5365    
5366  ;}  }
5367    
5368  ;  ;
5369    my $new_od_list;    my $new_od_list;
# Line 5515  $new_od_list = $self->{ Line 5380  $new_od_list = $self->{
5380           ->{'do'};           ->{'do'};
5381    
5382    
5383  ;}  }
5384    
5385  ;  ;
5386    for my $n (@change_od) {    for my $n (@change_od) {
# Line 5534  $n->{ Line 5399  $n->{
5399  };  };
5400    
5401    
5402  ;}  }
5403    
5404  ;  ;
5405      my $nid =      my $nid =
# Line 5559  $src_ud = $src->{ Line 5424  $src_ud = $src->{
5424           ->{'ud'};           ->{'ud'};
5425    
5426    
5427  ;}  }
5428    
5429  ;  ;
5430      for my $key (keys %{$src_ud or {}}) {      for my $key (keys %{$src_ud or {}}) {
# Line 5577  undef Line 5442  undef
5442        }        }
5443      }      }
5444    }    }
5445    $r = $source;  } # ADOPT
 } # compatible class  
5446    
5447    
5448  ;}  }
5449  $r}  $r}
5450  sub get_element_by_id ($$) {  sub get_element_by_id ($$) {
5451  my ($self, $elementId) = @_;  my ($self, $elementId) = @_;
# Line 5628  child_nodes Line 5492  child_nodes
5492    
5493    
5494    
5495  ;}  }
5496    
5497    
5498  ;}  ;}
# Line 5636  child_nodes Line 5500  child_nodes
5500  ;  ;
5501    
5502    
5503  ;}  }
5504  $r}  $r}
5505  sub get_elements_by_tag_name ($$) {  sub get_elements_by_tag_name ($$) {
5506  my ($self, $name) = @_;  my ($self, $name) = @_;
# Line 5670  $r = bless \[$self, $chk], Line 5534  $r = bless \[$self, $chk],
5534  ;  ;
5535    
5536    
5537  ;}  }
5538    
5539  ;  ;
5540    
5541    
5542  ;}  }
5543  $r}  $r}
5544  sub get_elements_by_tag_name_ns ($$$) {  sub get_elements_by_tag_name_ns ($$$) {
5545  my ($self, $namespaceURI, $localName) = @_;  my ($self, $namespaceURI, $localName) = @_;
# Line 5685  my ($self, $namespaceURI, $localName) = Line 5549  my ($self, $namespaceURI, $localName) =
5549  if  if
5550  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5551        
5552  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:1143811080:18264:zbjED29418+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  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:1148810725:4054:uUDJ249673+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5553    
5554  ;  ;
5555    
# Line 5698  $namespaceURI = undef; Line 5562  $namespaceURI = undef;
5562        
5563    
5564    
5565  ;}  }
5566    
5567  ;  ;
5568  }  }
5569    
5570    
5571  ;}  }
5572  my $r;  my $r;
5573    
5574  {  {
# Line 5777  $r = bless \[$self, $chk], Line 5641  $r = bless \[$self, $chk],
5641  ;  ;
5642    
5643    
5644  ;}  }
5645    
5646  ;  ;
5647    
5648    
5649  ;}  }
5650  $r}  $r}
5651  sub import_node ($$;$) {  sub import_node ($$;$) {
5652  my ($self, $importedNode, $deep) = @_;  my ($self, $importedNode, $deep) = @_;
# Line 5801  my ($self, $n, $namespaceURI, $qualified Line 5665  my ($self, $n, $namespaceURI, $qualified
5665  if  if
5666  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5667        
5668  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:1143811080:18264:zbjED29418+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';  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:1148810725:4054:uUDJ249673+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5669    
5670  ;  ;
5671    
# Line 5814  $namespaceURI = undef; Line 5678  $namespaceURI = undef;
5678        
5679    
5680    
5681  ;}  }
5682    
5683  ;  ;
5684  }  }
5685    
5686    
5687  ;}  }
5688  my $r;  my $r;
5689  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';  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';
5690  $r}  $r}
# Line 5842  $r = $self->{ Line 5706  $r = $self->{
5706           ->{'buri'};           ->{'buri'};
5707    
5708    
5709  ;}  }
5710    
5711  ;  ;
5712  unless (defined $r) {  unless (defined $r) {
# Line 5859  $r = $self->{ Line 5723  $r = $self->{
5723           ->{'duri'};           ->{'duri'};
5724    
5725    
5726  ;}  }
5727    
5728  ;  ;
5729  }  }
5730    
5731    
5732  ;}  }
5733  $r;  $r;
5734  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
5735    
# Line 5885  report Message::DOM::DOMCore::ManakaiDOM Line 5749  report Message::DOM::DOMCore::ManakaiDOM
5749  }  }
5750    
5751    
5752  ;}  }
5753    
5754  ;  ;
5755    
# Line 5901  $self->{ Line 5765  $self->{
5765      ->{'buri'} = $given;      ->{'buri'} = $given;
5766    
5767    
5768  ;}  }
5769    
5770  ;  ;
5771    
5772    
5773  ;}  }
5774  }  }
5775  }  }
5776  sub all_declarations_processed ($;$) {  sub all_declarations_processed ($;$) {
# Line 5927  $r = $self->{ Line 5791  $r = $self->{
5791           ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'};           ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'};
5792    
5793    
5794  ;}  }
5795    
5796  ;  ;
5797    
5798    
5799  ;}  }
5800  $r;  $r;
5801  } else {my ($self, $given) = @_;  } else {my ($self, $given) = @_;
5802    
# Line 5952  report Message::DOM::DOMCore::ManakaiDOM Line 5816  report Message::DOM::DOMCore::ManakaiDOM
5816  }  }
5817    
5818    
5819  ;}  }
5820    
5821  ;  ;
5822    
# Line 5968  $self->{ Line 5832  $self->{
5832      ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'} = $given;      ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'} = $given;
5833    
5834    
5835  ;}  }
5836    
5837  ;  ;
5838    
5839    
5840  ;}  }
5841  }  }
5842  }  }
5843  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core',  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core',
# Line 6010  $Message::Util::Grove::ClassProp{q<Messa Line 5874  $Message::Util::Grove::ClassProp{q<Messa
5874  'w0',  'w0',
5875  ['impl']};  ['impl']};
5876  package Message::DOM::IFLatest::DocumentFragment;  package Message::DOM::IFLatest::DocumentFragment;
5877  our $VERSION = 20060403.0600;  our $VERSION = 20060618.0208;
5878  package Message::DOM::Document::ManakaiDOMDocumentFragment;  package Message::DOM::Document::ManakaiDOMDocumentFragment;
5879  our $VERSION = 20060403.0600;  our $VERSION = 20060618.0208;
5880  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
5881  'Message::DOM::IF::DocumentFragment',  'Message::DOM::IF::DocumentFragment',
5882  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 6053  $bag->{${$opt->{'od'}->{ Line 5917  $bag->{${$opt->{'od'}->{
5917  };  };
5918    
5919    
5920  ;}  }
5921    
5922  ;  ;
5923  $r = $obj;  $r = $obj;
5924    
5925    
5926  ;}  }
5927  $r}  $r}
5928  sub node_type ($;$) {  sub node_type ($;$) {
5929  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 6147  local $Error::Depth = $Error::Depth - 1; Line 6011  local $Error::Depth = $Error::Depth - 1;
6011  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;  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;
6012    
6013    
6014  ;}  }
6015    
6016    
6017  ;}  ;}
# Line 6168  local $Error::Depth = $Error::Depth - 1; Line 6032  local $Error::Depth = $Error::Depth - 1;
6032  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;  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;
6033    
6034    
6035  ;}  }
6036    
6037    
6038  ;}  ;}
# Line 6196  local $Error::Depth = $Error::Depth - 1; Line 6060  local $Error::Depth = $Error::Depth - 1;
6060  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;  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;
6061    
6062    
6063  ;}  }
6064    
6065    
6066  ;}  ;}
# Line 6219  local $Error::Depth = $Error::Depth - 1; Line 6083  local $Error::Depth = $Error::Depth - 1;
6083  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';  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';
6084    
6085    
6086  ;}  }
6087    
6088    
6089  ;}  ;}
# Line 6242  local $Error::Depth = $Error::Depth - 1; Line 6106  local $Error::Depth = $Error::Depth - 1;
6106  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';  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';
6107    
6108    
6109  ;}  }
6110    
6111    
6112  ;}  ;}
# Line 6276  $newChild->{ Line 6140  $newChild->{
6140      ->{'child'} = [];      ->{'child'} = [];
6141    
6142    
6143  ;}  }
6144    
6145  ;  ;
6146      } else {      } else {
# Line 6294  $v = $nc_parent->{ Line 6158  $v = $nc_parent->{
6158           ->{'child'};           ->{'child'};
6159    
6160    
6161  ;}  }
6162    
6163  ;  ;
6164        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
# Line 6326  $nc->{ Line 6190  $nc->{
6190  };  };
6191    
6192    
6193  ;}  }
6194    
6195  ;  ;
6196    }    }
# Line 6345  $children = $self->{ Line 6209  $children = $self->{
6209           ->{'child'};           ->{'child'};
6210    
6211    
6212  ;}  }
6213    
6214  ;  ;
6215    
# Line 6364  $_->{'id'} Line 6228  $_->{'id'}
6228        
6229    
6230    
6231  ;}  }
6232    
6233  ;  ;
6234    
# Line 6378  $_->{'id'} Line 6242  $_->{'id'}
6242    
6243    
6244    
6245  ;}  }
6246    
6247    
6248  ;}  ;}
# Line 6386  $_->{'id'} Line 6250  $_->{'id'}
6250  ;  ;
6251    
6252    
6253  ;}  }
6254    
6255  ;  ;
6256    
6257    
6258  ;}  }
6259  $r}  $r}
6260  sub insert_before ($$;$) {  sub insert_before ($$;$) {
6261  my ($self, $newChild, $refChild) = @_;  my ($self, $newChild, $refChild) = @_;
# Line 6470  local $Error::Depth = $Error::Depth - 1; Line 6334  local $Error::Depth = $Error::Depth - 1;
6334  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;  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;
6335    
6336    
6337  ;}  }
6338    
6339    
6340  ;}  ;}
# Line 6491  local $Error::Depth = $Error::Depth - 1; Line 6355  local $Error::Depth = $Error::Depth - 1;
6355  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;  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;
6356    
6357    
6358  ;}  }
6359    
6360    
6361  ;}  ;}
# Line 6519  local $Error::Depth = $Error::Depth - 1; Line 6383  local $Error::Depth = $Error::Depth - 1;
6383  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;  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;
6384    
6385    
6386  ;}  }
6387    
6388    
6389  ;}  ;}
# Line 6542  local $Error::Depth = $Error::Depth - 1; Line 6406  local $Error::Depth = $Error::Depth - 1;
6406  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';  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';
6407    
6408    
6409  ;}  }
6410    
6411    
6412  ;}  ;}
# Line 6565  local $Error::Depth = $Error::Depth - 1; Line 6429  local $Error::Depth = $Error::Depth - 1;
6429  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';  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';
6430    
6431    
6432  ;}  }
6433    
6434    
6435  ;}  ;}
# Line 6599  local $Error::Depth = $Error::Depth - 1; Line 6463  local $Error::Depth = $Error::Depth - 1;
6463  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';  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';
6464    
6465    
6466  ;}  }
6467    
6468    
6469  ;}  ;}
# Line 6608  report Message::DOM::DOMCore::ManakaiDOM Line 6472  report Message::DOM::DOMCore::ManakaiDOM
6472                    
6473    
6474    
6475  ;}  }
6476    
6477  ;  ;
6478                    
# Line 6645  local $Error::Depth = $Error::Depth - 1; Line 6509  local $Error::Depth = $Error::Depth - 1;
6509  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;  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;
6510    
6511    
6512  ;}  }
6513    
6514    
6515  ;}  ;}
# Line 6654  report Message::DOM::DOMCore::ManakaiDOM Line 6518  report Message::DOM::DOMCore::ManakaiDOM
6518                    
6519    
6520    
6521  ;}  }
6522    
6523  ;  ;
6524                    
# Line 6669  report Message::DOM::DOMCore::ManakaiDOM Line 6533  report Message::DOM::DOMCore::ManakaiDOM
6533        
6534    
6535    
6536  ;}  }
6537    
6538  ; # FOR !tc:ForAppendChild  ; # FOR !tc:ForAppendChild
6539    
# Line 6691  $newChild->{ Line 6555  $newChild->{
6555      ->{'child'} = [];      ->{'child'} = [];
6556    
6557    
6558  ;}  }
6559    
6560  ;  ;
6561      } else {      } else {
# Line 6709  $v = $nc_parent->{ Line 6573  $v = $nc_parent->{
6573           ->{'child'};           ->{'child'};
6574    
6575    
6576  ;}  }
6577    
6578  ;  ;
6579        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
# Line 6741  $nc->{ Line 6605  $nc->{
6605  };  };
6606    
6607    
6608  ;}  }
6609    
6610  ;  ;
6611    }    }
# Line 6760  $children = $self->{ Line 6624  $children = $self->{
6624           ->{'child'};           ->{'child'};
6625    
6626    
6627  ;}  }
6628    
6629  ;  ;
6630    
# Line 6791  $_->{'id'} Line 6655  $_->{'id'}
6655        
6656    
6657    
6658  ;}  }
6659    
6660  ;  ;
6661    
# Line 6801  $_->{'id'} Line 6665  $_->{'id'}
6665    
6666    
6667    
6668  ;}  }
6669    
6670    
6671  ;}  ;}
# Line 6809  $_->{'id'} Line 6673  $_->{'id'}
6673  ;  ;
6674    
6675    
6676  ;}  }
6677    
6678  ;  ;
6679    
6680    
6681  ;}  }
6682  $r}  $r}
6683  sub replace_child ($$$) {  sub replace_child ($$$) {
6684  my ($self, $newChild, $oldChild) = @_;  my ($self, $newChild, $oldChild) = @_;
# Line 6893  local $Error::Depth = $Error::Depth - 1; Line 6757  local $Error::Depth = $Error::Depth - 1;
6757  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;  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;
6758    
6759    
6760  ;}  }
6761    
6762    
6763  ;}  ;}
# Line 6914  local $Error::Depth = $Error::Depth - 1; Line 6778  local $Error::Depth = $Error::Depth - 1;
6778  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;  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;
6779    
6780    
6781  ;}  }
6782    
6783    
6784  ;}  ;}
# Line 6942  local $Error::Depth = $Error::Depth - 1; Line 6806  local $Error::Depth = $Error::Depth - 1;
6806  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;  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;
6807    
6808    
6809  ;}  }
6810    
6811    
6812  ;}  ;}
# Line 6965  local $Error::Depth = $Error::Depth - 1; Line 6829  local $Error::Depth = $Error::Depth - 1;
6829  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';  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';
6830    
6831    
6832  ;}  }
6833    
6834    
6835  ;}  ;}
# Line 6988  local $Error::Depth = $Error::Depth - 1; Line 6852  local $Error::Depth = $Error::Depth - 1;
6852  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';  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';
6853    
6854    
6855  ;}  }
6856    
6857    
6858  ;}  ;}
# Line 7025  local $Error::Depth = $Error::Depth - 1; Line 6889  local $Error::Depth = $Error::Depth - 1;
6889  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';  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';
6890    
6891    
6892  ;}  }
6893    
6894    
6895  ;}  ;}
# Line 7034  report Message::DOM::DOMCore::ManakaiDOM Line 6898  report Message::DOM::DOMCore::ManakaiDOM
6898                    
6899    
6900    
6901  ;}  }
6902    
6903  ;  ;
6904        }        }
# Line 7071  local $Error::Depth = $Error::Depth - 1; Line 6935  local $Error::Depth = $Error::Depth - 1;
6935  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  report Message::DOM::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;
6936    
6937    
6938  ;}  }
6939    
6940    
6941  ;}  ;}
# Line 7080  report Message::DOM::DOMCore::ManakaiDOM Line 6944  report Message::DOM::DOMCore::ManakaiDOM
6944                    
6945    
6946    
6947  ;}  }
6948    
6949  ;  ;
6950        } # C        } # C
# Line 7099  local $Error::Depth = $Error::Depth - 1; Line 6963  local $Error::Depth = $Error::Depth - 1;
6963  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;  report Message::DOM::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;
6964    
6965    
6966  ;}  }
6967    
6968    
6969  ;}  ;}
# Line 7108  report Message::DOM::DOMCore::ManakaiDOM Line 6972  report Message::DOM::DOMCore::ManakaiDOM
6972                
6973    
6974    
6975  ;}  }
6976    
6977  ;  ;
6978      }      }
6979        
6980    
6981    
6982  ;}  }
6983    
6984  ; # FOR !tc:ForAppendChild  ; # FOR !tc:ForAppendChild
6985    
# Line 7137  $newChild->{ Line 7001  $newChild->{
7001      ->{'child'} = [];      ->{'child'} = [];
7002    
7003    
7004  ;}  }
7005    
7006  ;  ;
7007      } else {      } else {
# Line 7155  $v = $nc_parent->{ Line 7019  $v = $nc_parent->{
7019           ->{'child'};           ->{'child'};
7020    
7021    
7022  ;}  }
7023    
7024  ;  ;
7025        RP: for my $i (0..$#$v) {        RP: for my $i (0..$#$v) {
# Line 7187  $nc->{ Line 7051  $nc->{
7051  };  };
7052    
7053    
7054  ;}  }
7055    
7056  ;  ;
7057    }    }
# Line 7206  $children = $self->{ Line 7070  $children = $self->{
7070           ->{'child'};           ->{'child'};
7071    
7072    
7073  ;}  }
7074    
7075  ;  ;
7076    
# Line 7242  $oldChild->{ Line 7106  $oldChild->{
7106                   ->{'parent'};                   ->{'parent'};
7107    
7108    
7109  ;}  }
7110    
7111  ;  ;
7112      $r = $oldChild;      $r = $oldChild;
7113        
7114    
7115    
7116  ;}  }
7117    
7118  ;  ;
7119    
7120    
7121    
7122  ;}  }
7123    
7124    
7125  ;}  ;}
# Line 7263  $oldChild->{ Line 7127  $oldChild->{
7127  ;  ;
7128    
7129    
7130  ;}  }
7131    
7132  ;  ;
7133    
7134    
7135  ;}  }
7136  $r}  $r}
7137  sub node_name ($;$) {  sub node_name ($;$) {
7138  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 7323  append_child Line 7187  append_child
7187    
7188    
7189    
7190  ;}  }
7191    
7192    
7193  ;}  ;}
# Line 7331  append_child Line 7195  append_child
7195  ;  ;
7196    
7197    
7198  ;}  }
7199  $r}  $r}
7200  sub get_feature ($$$) {  sub get_feature ($$$) {
7201  my ($self, $feature, $version) = @_;  my ($self, $feature, $version) = @_;
# Line 7342  my ($self, $feature, $version) = @_; Line 7206  my ($self, $feature, $version) = @_;
7206  $feature = lc $feature;  $feature = lc $feature;
7207    
7208    
7209  ;}  }
7210    
7211  {  {
7212    
# Line 7350  $feature = lc $feature; Line 7214  $feature = lc $feature;
7214  $version = '' unless defined $version;  $version = '' unless defined $version;
7215    
7216    
7217  ;}  }
7218  my $r;  my $r;
7219    
7220  {  {
# Line 7397  $r = ${($self->{'b'})->{${($self->{'id'} Line 7261  $r = ${($self->{'b'})->{${($self->{'id'}
7261  }++;  }++;
7262    
7263    
7264  ;}  }
7265    
7266  ;  ;
7267        last CLASS;        last CLASS;
# Line 7406  $r = ${($self->{'b'})->{${($self->{'id'} Line 7270  $r = ${($self->{'b'})->{${($self->{'id'}
7270  }  }
7271    
7272    
7273  ;}  }
7274    
7275  ;  ;
7276  unless (defined $r) {  unless (defined $r) {
# Line 7424  local $Error::Depth = $Error::Depth + 1; Line 7288  local $Error::Depth = $Error::Depth + 1;
7288        
7289    
7290    
7291  ;}  }
7292    
7293    
7294  ;}  ;}
# Line 7433  local $Error::Depth = $Error::Depth + 1; Line 7297  local $Error::Depth = $Error::Depth + 1;
7297  }  }
7298    
7299    
7300  ;}  }
7301  $r}  $r}
7302  sub base_uri ($;$) {  sub base_uri ($;$) {
7303  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
# Line 7458  base_uri Line 7322  base_uri
7322    
7323    
7324    
7325  ;}  }
7326    
7327    
7328  ;}  ;}
# Line 7466  base_uri Line 7330  base_uri
7330  ;  ;
7331    
7332    
7333  ;}  }
7334  $r;  $r;
7335  } else {my ($self) = @_;  } else {my ($self) = @_;
7336  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';  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';

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7

[email protected]
ViewVC Help
Powered by ViewVC 1.1.24