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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1.3 by wakaba,
Tue Apr  4 10:53:14 2006 UTC
+revision 1.14 by wakaba,
Sat Dec 30 04:42:51 2006 UTC
 Line 1
  #!/usr/bin/perl
  ## This file is automatically generated
- ##      at 2006-04-04T09:22:34+00:00,
+ ##      at 2006-12-30T04:24:35+00:00,
  ##      from file "Document.dis",
  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,
  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
  ## Don't edit by hand!
  use strict;
  require Message::DOM::DOMCore;
- require Message::DOM::Element;
  require Message::DOM::TreeCore;
  require Message::Util::Error::DOMException;
  package Message::DOM::Document;
- our $VERSION = 20060404.0922;
+ our $VERSION = 20061230.0424;
- package Message::DOM::IFLatest::Document;
+ package Message::DOM::Document::ManakaiDOMImplementationDocument;
- our $VERSION = 20060404.0922;
+ our $VERSION = 20061230.0424;
- package Message::DOM::Document::ManakaiDOMDocument;
+ push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>);
- our $VERSION = 20060404.0922;
+ sub create_document ($;$$$) {
- push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
+ my ($self, $namespaceURI, $qualifiedName, $doctype) = @_;
- 'Message::DOM::IF::Document',
- 'Message::DOM::IF::Node',
- 'Message::DOM::IFLatest::Document',
- 'Message::DOM::IFLatest::Node',
- 'Message::DOM::IFLevel1::Document',
- 'Message::DOM::IFLevel1::Node',
- 'Message::DOM::IFLevel2::Document',
- 'Message::DOM::IFLevel2::Node',
- 'Message::DOM::IFLevel3::Document',
- 'Message::DOM::IFLevel3::Node';
- use Char::Class::XML 'InXMLNCNameChar10',
- 'InXMLNCNameChar11',
- 'InXMLNCNameStartChar11',
- 'InXMLNameChar10',
- 'InXMLNameChar11',
- 'InXMLNameStartChar11',
- 'InXML_NCNameStartChar10',
- 'InXML_NameStartChar10';
- sub ___create_node_stem ($$$$) {
- my ($self, $bag, $obj, $opt) = @_;
- my $r = {};
  {
+ if
+ (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+   require Message::DOM::DOMMain;
+ report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- $obj->{
+ ;
- 'child'
- } = [];
- $obj->{
- 'do'
- } = {};
- $obj->{
- 'http://www.w3.org/2001/04/infoset#version'
- } = '1.0';
  {
- $obj->{'impl'} = $opt->{'impl'}->{
+ $namespaceURI = undef;
- 'id'
- };
- $bag->{${$opt->{'impl'}->{
- 'id'
- }}}
-     ->{'lpmi'}->{${$obj->{
- 'id'
- }}}
-   = $obj->{
- 'id'
- };
  }
  ;
- $r = $obj;
+ }
  }
- $r}
- sub ___create_node_ref ($$$) {
- my ($self, $obj, $opt) = @_;
  my $r;
  {
- my
+ require
- $class;
+ Scalar::Util;
- CLS: {
+ $r = bless \{
-   if (defined $opt->{
- 'nrcls'
- }) {
-     $class = $opt->{
- 'nrcls'
- };
-     IFCHK: {
-       for (@{$opt->{
- 'nrifs'
- } or []}) {
-         last IFCHK unless $$class->isa ($_);
-       }
-       last CLS;
-     } # IFCHK
-   }
+ 'child'
- {
+  => [],
+ 'impl'
- $class = $obj->{
+  => $self,
- 'b'
- }->{${$obj->{
+ 'http://www.w3.org/2001/04/infoset#version'
- 'id'
+  => '1.0',
- }}}
-          ->{'dnrcls'};
+ 'chk'
+  => 1,
+ },
- }
+ 'Message::DOM::Document::ManakaiDOMDocument'
  ;
-   if (defined $class) {
-     IFCHK: {
-       for (@{$opt->{
- 'nrifs'
- } or []}) {
-         last IFCHK unless $$class->isa ($_);
-       }
-       last CLS;
-     } # IFCHK
-   }
-   my $cns;
+ if (defined $doctype) {
  {
+ local $Error::Depth = $Error::Depth + 1;
- $cns = $obj->{
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-   my $bag =
- $obj->{'b'}
- ;
-   my $deh;
-   DC: for my $cnid (@$cns) {
-     my $cnh =
  {
-   'id' => $cnid,
-   'b' => $bag,
- }
- ;
-     my $cncls;
- {
- $cncls = $cnh->{
+     $r->
- 'b'
+ append_child
- }->{${$cnh->{
+  ($doctype);
- 'id'
- }}}
-          ->{'cls'};
  }
- ;
-     if ($$cncls eq
- 'Message::DOM::Element::ManakaiDOMElement'
- ) {
-       $deh = $cnh;
-       last DC;
-     }
-   } # DC
-   my $dens;
-   my $deln;
-   if (defined $deh) {
- {
- $dens = $deh->{
- 'b'
- }->{${$deh->{
- 'id'
- }}}
-          ->{'ns'};
+ ;}
+ ;
  }
- ;
+ if (defined $qualifiedName) {
-     $dens = \'' unless defined $dens;
  {
+ local $Error::Depth = $Error::Depth + 1;
- $deln = $deh->{
+ {
- 'b'
- }->{${$deh->{
- 'id'
- }}}
-          ->{'ln'};
- }
+     my
+ $el = $r->
+ create_element_ns
+                    ($namespaceURI, $qualifiedName);
+     $r->
+ append_child
+  ($el);
+     $r = $el->
+ owner_document
  ;
-   } else {
+            ## Choose the class based on document element type
-     $dens = \'*';
-     $deln = \'*';
-   }
-   A: {
-     ## Use cases:
-     ##   - Document element is |html5:html|
-     ##   - Document element is |NULL:rfc|
-     for my $nm (
-       [$dens, $deln],
-       [$dens, \'*'],
-     ) {
-       for my $__class (sort {
-         $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-       } grep {
-         $Message::DOM::DOMFeature::ClassInfo
-             ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-             ->{compat_class_by_type}
-             ->{${$nm->[0]}}->{${$nm->[1]}}->{$_}
-       } keys %{$Message::DOM::DOMFeature::ClassInfo
-                    ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-                    ->{compat_class_by_type}
-                    ->{${$nm->[0]}}->{${$nm->[1]}} or {}}) {
-         if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-                 ->{has_feature}->{xml}->{'3.0'}) {
-           $class = \$__class;
-           IFCHK: {
-             for (@{$opt->{
- 'nrifs'
- } or []}) {
-               last IFCHK unless $$class->isa ($_);
-             }
-             last A;
-           } # IFCHK
-         }
-       }
-     }
-     ## Generic
-     CLASS: for my $__class (sort {
-       $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-     } grep {
-       $Message::DOM::DOMFeature::ClassInfo
-           ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
  }
-           ->{compat_class}->{$_}
-     } keys %{$Message::DOM::DOMFeature::ClassInfo
-                  ->{
- 'Message::DOM::Document::ManakaiDOMDocument'
- }
-                  ->{compat_class} or {}}) {
-       if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-               ->{has_feature}->{xml}->{'3.0'}) {
-         $class = \$__class;
-         IFCHK: {
-           for (@{$opt->{
- 'nrifs'
- } or []}) {
-             last IFCHK unless $$class->isa ($_);
-           }
-           last A;
-         } # IFCHK
-       }
-     }
-     ## Default
-     $class = \$self;
-   } # A
-   if (defined $deh) {
- {
- $obj->{
+ ;}
- 'b'
- }->{${$obj->{
- 'id'
- }}}
-     ->{'dnrcls'} = $class;
- }
+ ;
+ } elsif (defined $namespaceURI) {
+ report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_document', 'http://www.w3.org/2001/04/infoset#namespaceURI' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_NULL_QNAME_WITH_NON_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMImplementationDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'namespaceURI';
  ;
-   }
+ }
- } # CLS
- $r = bless $obj, $$class;
  }
  $r}
+ $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {};
+ $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0;
+ package Message::DOM::IFLatest::Document;
+ our $VERSION = 20061230.0424;
+ package Message::DOM::Document::ManakaiDOMDocument;
+ our $VERSION = 20061230.0424;
+ push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
+ 'Message::DOM::IFLatest::Document',
+ 'Message::DOM::IFLatest::Node';
  sub node_type ($;$) {
  if (@_ == 1) {my ($self) = @_;
  my $r;
- $r = '9';
+ $r = 9;
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
-Line 365 
 local $Error::Depth = $Error::Depth + 1;
+Line 188 
 local $Error::Depth = $Error::Depth + 1;
  $has_el;
      my $has_dt;
      if ($child_nt ==
- '1'
  ) {
        $has_el =
  ;
      } elsif ($child_nt ==
- '10'
  ) {
        $has_dt =
  ;
      } elsif ($child_nt ==
- '11'
  ) {
        for my $cn (@{$newChild->
  child_nodes
-Line 386 
 child_nodes
+Line 209 
 child_nodes
  node_type
  ;
          if ($cnt ==
- '1'
  ) {
            if ($has_el) {
-Line 423 
 last_child
+Line 246 
 last_child
          if ($anode->
  node_type
   ==
- '1'
  ) {
-Line 457 
 last_child
+Line 280 
 last_child
  node_type
  ;
          if ($ant ==
- '1'
  ) {
-Line 477 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 300 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
          } elsif ($ant ==
- '10'
  ) {
-Line 532 
 strict_error_checking
+Line 355 
 strict_error_checking
    ## -- Node Type check
    my @new_child;
    if ({
-     '3' => (not $strictc),
+=> (not $strictc),
-     '5' => (not $strictc),
+=> (not $strictc),
-     '1' => 1,
+=> 1,
-     '4' => (not $strictc),
+=> (not $strictc),
-     '7' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
-     '10' => 1,
+=> 1,
    }->{$child_nt}) {
      push @new_child, $newChild;
    } elsif ($child_nt ==
- '11'
  ) {
      for my $cn (@{$newChild->
  child_nodes
  }) {
        unless ({
-     '3' => (not $strictc),
+=> (not $strictc),
-     '5' => (not $strictc),
+=> (not $strictc),
-     '1' => 1,
+=> 1,
-     '4' => (not $strictc),
+=> (not $strictc),
-     '7' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
-     '10' => 1,
+=> 1,
    }->{$cn->
  node_type
  }) {
-Line 683 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 506 
 report Message::DOM::DOMCore::ManakaiDOM
    ## -- Removes from parent
    if ($nc_parent) {
      if ($child_nt ==
- '11'
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 733 
 $v = $nc_parent->{
+Line 526 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-Line 777 
 $children = $self->{
+Line 544 
 $children = $self->{
  ## -- Adds to children list
-     push @$children, map {
+     push @$children, @new_child;
- $_->{'id'}
-     } @new_child;
      $r = $newChild;
-Line 812 
 $_->{'id'}
+Line 575 
 $_->{'id'}
  ;
  if ($child_nt ==
- '10' and
+and
  not defined $newChild->
  owner_document
  ) {
-   my $bag =
+   CORE::delete $$newChild->{
- $self->{'b'}
+ 'impl'
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- $bag->{
- 'm'
- }++;
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- }
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
  };
- $bag->{${$self->{
+   $$newChild->{
- 'id'
+ 'od'
- }}}
+ } = $self;
-     ->{'do'}->{${$newChild->{
+   Scalar::Util::weaken ($$newChild->{
- 'id'
+ 'od'
- }}}
+ });
-   = $newChild->{
- 'id'
- };
- }
- ;
  }
-Line 910 
 local $Error::Depth = $Error::Depth + 1;
+Line 632 
 local $Error::Depth = $Error::Depth + 1;
  $has_el;
      my $has_dt;
      if ($child_nt ==
- '1'
  ) {
        $has_el =
  ;
      } elsif ($child_nt ==
- '10'
  ) {
        $has_dt =
  ;
      } elsif ($child_nt ==
- '11'
  ) {
        for my $cn (@{$newChild->
  child_nodes
-Line 931 
 child_nodes
+Line 653 
 child_nodes
  node_type
  ;
          if ($cnt ==
- '1'
  ) {
            if ($has_el) {
-Line 971 
 last_child
+Line 693 
 last_child
          if ($anode->
  node_type
   ==
- '1'
  ) {
-Line 1001 
 previous_sibling
+Line 723 
 previous_sibling
  node_type
  ;
          if ($ant ==
- '1'
  ) {
-Line 1021 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 743 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
          } elsif ($ant ==
- '10'
  ) {
-Line 1058 
 last_child
+Line 780 
 last_child
  node_type
  ;
          if ($ant ==
- '1'
  ) {
-Line 1078 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 800 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
          } elsif ($ant ==
- '10'
  ) {
-Line 1108 
 previous_sibling
+Line 830 
 previous_sibling
  node_type
                  ==
- '10'
  ) {
-Line 1163 
 strict_error_checking
+Line 885 
 strict_error_checking
    ## -- Node Type check
    my @new_child;
    if ({
-     '3' => (not $strictc),
+=> (not $strictc),
-     '5' => (not $strictc),
+=> (not $strictc),
-     '1' => 1,
+=> 1,
-     '4' => (not $strictc),
+=> (not $strictc),
-     '7' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
-     '10' => 1,
+=> 1,
    }->{$child_nt}) {
      push @new_child, $newChild;
    } elsif ($child_nt ==
- '11'
  ) {
      for my $cn (@{$newChild->
  child_nodes
  }) {
        unless ({
-     '3' => (not $strictc),
+=> (not $strictc),
-     '5' => (not $strictc),
+=> (not $strictc),
-     '1' => 1,
+=> 1,
-     '4' => (not $strictc),
+=> (not $strictc),
-     '7' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
-     '10' => 1,
+=> 1,
    }->{$cn->
  node_type
  }) {
-Line 1406 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1128 
 report Message::DOM::DOMCore::ManakaiDOM
    ## -- Removes from parent
    if ($nc_parent) {
      if ($child_nt ==
- '11'
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 1456 
 $v = $nc_parent->{
+Line 1148 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-Line 1505 
 $children = $self->{
+Line 1171 
 $children = $self->{
  ## -- Adds to children list
      if ($index == -1) {
-       push @$children, map {
+       push @$children, @new_child;
- $_->{'id'}
-       } @new_child;
      } else {
-       splice @$children, $index, 0, map {
+       splice @$children, $index, 0, @new_child;
- $_->{'id'}
-       } @new_child;
      }
      $r = $newChild;
-Line 1543 
 $_->{'id'}
+Line 1201 
 $_->{'id'}
  ;
  if ($child_nt ==
- '10' and
+and
  not defined $newChild->
  owner_document
  ) {
-   my $bag =
+   CORE::delete $$newChild->{
- $self->{'b'}
+ 'impl'
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- $bag->{
- 'm'
- }++;
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- }
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
- };
- $bag->{${$self->{
- 'id'
- }}}
-     ->{'do'}->{${$newChild->{
- 'id'
- }}}
-   = $newChild->{
- 'id'
  };
+   $$newChild->{
+ 'od'
- }
+ } = $self;
+   Scalar::Util::weaken ($$newChild->{
- ;
+ 'od'
+ });
  }
-Line 1641 
 local $Error::Depth = $Error::Depth + 1;
+Line 1258 
 local $Error::Depth = $Error::Depth + 1;
  $has_el;
      my $has_dt;
      if ($child_nt ==
- '1'
  ) {
        $has_el =
  ;
      } elsif ($child_nt ==
- '10'
  ) {
        $has_dt =
  ;
      } elsif ($child_nt ==
- '11'
  ) {
        for my $cn (@{$newChild->
  child_nodes
-Line 1662 
 child_nodes
+Line 1279 
 child_nodes
  node_type
  ;
          if ($cnt ==
- '1'
  ) {
            if ($has_el) {
-Line 1699 
 previous_sibling
+Line 1316 
 previous_sibling
          if ($anode->
  node_type
   ==
- '1'
  ) {
-Line 1731 
 next_sibling
+Line 1348 
 next_sibling
  node_type
  ;
          if ($ant ==
- '1'
  ) {
-Line 1751 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1368 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
          } elsif ($ant ==
- '10'
  ) {
-Line 1785 
 previous_sibling
+Line 1402 
 previous_sibling
  node_type
  ;
          if ($ant ==
- '1'
  ) {
-Line 1805 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1422 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
          } elsif ($ant ==
- '10'
  ) {
-Line 1837 
 next_sibling
+Line 1454 
 next_sibling
  node_type
                  ==
- '10'
  ) {
-Line 1892 
 strict_error_checking
+Line 1509 
 strict_error_checking
    ## -- Node Type check
    my @new_child;
    if ({
-     '3' => (not $strictc),
+=> (not $strictc),
-     '5' => (not $strictc),
+=> (not $strictc),
-     '1' => 1,
+=> 1,
-     '4' => (not $strictc),
+=> (not $strictc),
-     '7' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
-     '10' => 1,
+=> 1,
    }->{$child_nt}) {
      push @new_child, $newChild;
    } elsif ($child_nt ==
- '11'
  ) {
      for my $cn (@{$newChild->
  child_nodes
  }) {
        unless ({
-     '3' => (not $strictc),
+=> (not $strictc),
-     '5' => (not $strictc),
+=> (not $strictc),
-     '1' => 1,
+=> 1,
-     '4' => (not $strictc),
+=> (not $strictc),
-     '7' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
-     '10' => 1,
+=> 1,
    }->{$cn->
  node_type
  }) {
-Line 2158 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1775 
 report Message::DOM::DOMCore::ManakaiDOM
    ## -- Removes from parent
    if ($nc_parent) {
      if ($child_nt ==
- '11'
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 2208 
 $v = $nc_parent->{
+Line 1795 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-Line 2260 
 $children = $self->{
+Line 1821 
 $children = $self->{
  ## -- Replaces the node
-     splice @$children, $index, 1, map {
+     splice @$children, $index, 1, @new_child;
+     CORE::delete $$oldChild->{
- $_->{'id'}
+ 'parent'
+ };
-     } @new_child;
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
      $r = $oldChild;
-Line 2303 
 $oldChild->{
+Line 1847 
 $oldChild->{
  ;
  if ($child_nt ==
- '10' and
+and
  not defined $newChild->
  owner_document
  ) {
-   my $bag =
+   CORE::delete $$newChild->{
- $self->{'b'}
+ 'impl'
- ;
- {
- CORE::delete
- $bag->{${$bag->{${$newChild->{
- 'id'
- }}}
-                           ->{'impl'} or \''}}
-                  ->{'lpmi'};
- $bag->{
- 'm'
- }++;
- CORE::delete $bag->{${$newChild->{
- 'id'
- }}}
-                  ->{'impl'};
- }
- ;
- {
- $bag->{${$newChild->{
- 'id'
- }}}->{'od'}
-   = $self->{
- 'id'
  };
- $bag->{${$self->{
+   $$newChild->{
- 'id'
+ 'od'
- }}}
+ } = $self;
-     ->{'do'}->{${$newChild->{
+   Scalar::Util::weaken ($$newChild->{
- 'id'
+ 'od'
- }}}
+ });
-   = $newChild->{
- 'id'
- };
- }
- ;
  }
-Line 2394 
 last_child
+Line 1897 
 last_child
          $lc->
  node_type
   ==
- '3'
  ) {
        $lc->
  manakai_append_text
-Line 2449 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 1952 
 report Message::DOM::DOMCore::ManakaiDOM
  F:
  {
    my $i = -1;
-   for my $cld (@{$self->
+   my $v = $$self->{
- child_nodes
+ 'child'
- }) {
+ };
+   for my $cld (@$v) {
      $i++;
      if ($cld eq $oldChild) {
-       my $v;
- {
- $v = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        splice @$v, $i, 1, ();
+       CORE::delete $$oldChild->{
+ 'parent'
- {
+ };
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
        $r = $oldChild;
        last F;
      }
-Line 2552 
 child_nodes
+Line 2026 
 child_nodes
  node_type
  ;
        if ($nt ==
- '3' or
+or
  $nt ==
- '4'
  ) {
          $r .= $node->
  data
-Line 2564 
 $node->
+Line 2038 
 $node->
  is_element_content_whitespace
  ;
        } elsif ($nt ==
- '1' or
+or
  $nt ==
- '5'
  ) {
          unshift @target, @{$node->
  child_nodes
-Line 2629 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2103 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
- my @__old_children = @{$self->
+ for my $__old_child (@{${$self}->{
- child_nodes
+ 'child'
+ }}) {
+   CORE::delete $$__old_child->{
+ 'parent'
  };
- for my $__old_child (@__old_children) {
- {
- CORE::delete
- $__old_child->{
- 'b'
- }->{${$__old_child->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
  }
  my @__new_children;
-Line 2656 
 if (defined $given and length $given) {
+Line 2116 
 if (defined $given and length $given) {
    my $__text = $self->
  create_text_node
   ($given);
-   push @__new_children,
+   push @__new_children, $__text;
- $__text->{'id'}
+   $$__text->{
- ;
+ 'parent'
+ } = $self;
+   Scalar::Util::weaken ($$__text->{
- {
+ 'parent'
+ });
- $__text->{
- 'b'
- }->{${$__text->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
- }
- {
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'child'} = \@__new_children;
  }
- ;
+ ${$self}->{
+ 'child'
+ } = \@__new_children;
  }
-Line 2731 
 my $r;
+Line 2164 
 my $r;
  $feature =~ s/^\+//;
- ## TODO: Remove this code and implement autoload
- if ($feature eq
- 'http://suika.fam.cx/www/2006/feature/xdoctype'
- ) {
-   require Message::DOM::XDoctype;
- }
  {
  if
- ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
+ ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-       ->{has_feature}->{$feature}->{$version}) {
    $r = $self;
- } else {
-   CLASS: for my $__class (sort {
-     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-   } grep {
-     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
-         ->{compat_class}->{$_}
-   } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
-                ->{compat_class} or {}}) {
-     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-             ->{has_feature}->{$feature}->{$version}) {
- {
- $r = ${($self->{'b'})->{${($self->{'id'})}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => ($self->{'id'}),
- 'b'
-  => ($self->{'b'}),
- }, {
-           'nrcls' => \$__class,
-         });
- ($self->{'b'})->{${($self->{'id'})}}->{
- 'rc'
- }++;
- }
- ;
-       last CLASS;
-     }
-   } # CLASS
  }
-Line 2823 
 my $r = '';
+Line 2209 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'buri'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'buri'};
- }
- ;
  unless (defined $r) {
+   $r = $$self->{
+ 'duri'
- {
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- }
- ;
  }
-Line 2863 
 $r;
+Line 2225 
 $r;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
  }
  }
- sub create_element ($$) {
- my ($self, $tagName) = @_;
- my $r;
- {
- my
- $strict = $self->
- strict_error_checking
- ;
- if ($strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $tagName) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($tagName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($tagName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $tagName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- ;
- ;
- }
- }
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $self->
- strict_error_checking
-  (
- );
-   $r = $self->
- create_element_ns
-  (
- undef
- , [
- undef
- , $tagName]);
-   $self->
- strict_error_checking
-  ($strict);
- }
- ;}
- ;
- }
- $r}
- sub create_element_ns ($$$) {
- my ($self, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- }
- ;
- }
- }
- my $r;
- {
- require
- Message::DOM::Element;
- my ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'
-                          ? @$qualifiedName
-                          : split /:/, $qualifiedName, 2;
- ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- $qualifiedName = defined $prefix ? $prefix.':'.$lname : $lname;
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $lname ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- }
- }
- ;
-   if (defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- ($qualifiedName eq 'xmlns' or
-        (defined $prefix and $prefix eq 'xmlns'))) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_element_ns', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'qualifiedName', 'http://www.w3.org/2001/04/infoset#localName' => $lname, 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI';
- ;
-   }
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Element::ManakaiDOMElement'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'ns' => \$namespaceURI,
-     'pfx' => \$prefix,
-     'ln' => \$lname,
-   });
- {
- if
- (defined 'Message::DOM::Element::ManakaiDOMElement') {
-   if (ref 'Message::DOM::Element::ManakaiDOMElement' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Element::ManakaiDOMElement';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'} = \('Message::DOM::Element::ManakaiDOMElement');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMElement'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- ## Default attributes
- {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   XDA:
- {
-     my $__cfg = $self->
- dom_config
- ;
-     last XDA unless $__cfg->
- get_parameter
-                               (
- 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute'
- );
-     my $__doctype = $self->
- doctype
- ;
-     last XDA unless defined $__doctype;
-     $__doctype = $__doctype->
- get_feature
-                              (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0');
-     last XDA unless defined $__doctype;
-     my $__et = $__doctype->
- get_element_type_definition_node
-                              ($qualifiedName);
-     if ($__et) {
-       my $__orig_strict = $self->
- strict_error_checking
- ;
-       $self->
- strict_error_checking
-  (
- );
-       my %__gattr;
-       my %__has_attr;
-       my %__pfx_to_uri;
-       my $__copy_asis = $__cfg->
- get_parameter
-                                (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
- );
-       $__cfg->
- set_parameter
-                     (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  =>
- );
-       for my $__at (@{$__et->
- attribute_definitions
- }) {
-         my $__at_default = $__at->
- default_type
- ;
-         if ($__at_default ==
- '4' or
- $__at_default ==
- '1'
- ) {
-           my ($__nn1, $__nn2) = split /:/, $__at->
- node_name
- ;
-           if (defined $__nn2) { # prefixed
-             if ($__nn1 eq 'xmlns') {
-               ## TODO: NCName check, prefix check and NSURI check
-               my $__attr = $self->
- create_attribute_ns
-                                         (
- 'http://www.w3.org/2000/xmlns/'
- , [$__nn1, $__nn2]);
-               for my $__at_child (@{$__at->
- child_nodes
- }) {
-                 $__attr->
- append_child
-                            ($__at_child->
- clone_node
-  (
- ));
-               }
-               $__attr->
- manakai_attribute_type
-                          ($__at->
- declared_type
- );
-               my $__nsuri = $__attr->
- value
- ;
-               ## TODO: Namespace well-formedness check (NSURI), v1.1 chk
-               $__pfx_to_uri{$__nn2} = $__nsuri;
-               $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-               $__attr->
- specified
-  (
- );
-               $__has_attr{
- 'http://www.w3.org/2000/xmlns/'
- }->{$__nn2} =
- ;
-             } else {
-               ## TODO: NCName check
-               $__gattr{$__nn1}->{$__nn2} = $__at;
-             }
-           } else {            # no prefixed
-             my $__attr;
-             if ($__nn1 eq 'xmlns') {
-               $__attr = $self->
- create_attribute_ns
-                                         (
- 'http://www.w3.org/2000/xmlns/'
- , 'xmlns');
-               $__has_attr{
- 'http://www.w3.org/2000/xmlns/'
- }->{xmlns} =
- ;
-             } else {
-               $__attr = $self->
- create_attribute_ns
-                                         (
- undef
- , $__nn1);
-               ## TODO: NCName check
-             }
-             for my $__at_child (@{$__at->
- child_nodes
- }) {
-               $__attr->
- append_child
-                          ($__at_child->
- clone_node
-  (
- ));
-             }
-             $__attr->
- manakai_attribute_type
-                        ($__at->
- declared_type
- );
-             ## TODO: Namespace well-formedness check (NSURI)
-             $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-             $__attr->
- specified
-  (
- );
-           }
-         }
-       } # attrdefs
-       for my $__pfx (keys %__gattr) {
-         my $__nsuri = $__pfx_to_uri{$__pfx};
-         unless (defined $__nsuri) {
-           ## TODO: Namespace well-formedness error
-         }
-         LN: for my $__ln (keys %{$__gattr{$__pfx}}) {
-           if ($__has_attr{defined $__nsuri ? $__nsuri : ''}->{$__ln}) {
-             ## TODO: Namespace well-formedness error
-             next LN;
-           }
-           ## TODO: NCName check, prefix check and NSURI check
-           my $__at = $__gattr{$__pfx}->{$__ln};
-           my $__attr = $self->
- create_attribute_ns
-                                     ($__nsuri, [$__pfx, $__ln]);
-           for my $__at_child (@{$__at->
- child_nodes
- }) {
-             $__attr->
- append_child
-                        ($__at_child->
- clone_node
-  (
- ));
-           }
-           $__attr->
- manakai_attribute_type
-                      ($__at->
- declared_type
- );
-           $r->
- set_attribute_node_ns
-  ($__attr);
-                        ## This method changes |specified| flag
-           $__attr->
- specified
-  (
- );
-           $__has_attr{defined $__nsuri ? $__nsuri : ''}->{$__ln} =
- ;
-         } # LN
-       } # pfx
-       $__cfg->
- set_parameter
-               (
- 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'
-  => $__copy_asis);
-       $self->
- strict_error_checking
-  ($__orig_strict);
-     }
-   } # XDA
- }
- ;}
- ;
- }
- ;
- }
- $r}
- sub create_attribute ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- my
- $strict = $self->
- strict_error_checking
- ;
- if ($strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $name) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($name =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($name =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $name, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- ;
- ;
- }
- }
- ;
- }
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   $self->
- strict_error_checking
-  (
- );
-   $r = $self->
- create_attribute_ns
-  (
- undef
- , [
- undef
- , $name]);
-   $self->
- strict_error_checking
-  ($strict);
- }
- ;}
- ;
- }
- $r}
- sub create_attribute_ns ($$$) {
- my ($self, $namespaceURI, $qualifiedName) = @_;
- {
- if
- (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
- {
- $namespaceURI = undef;
- }
- ;
- }
- }
- my $r;
- {
- require
- Message::DOM::Element;
- my ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'
-                          ? @$qualifiedName
-                          : split /:/, $qualifiedName, 2;
- ($prefix, $lname) = (
- undef
- , $prefix) unless defined $lname;
- ## TODO: autoload
- if ((defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace'
- ) or
-     ($lname =~ /^xml:/)) {
-   require Message::DOM::XML;
- }
- if ($self->
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
-   $qualifiedName = defined $prefix ? $prefix.':'.$lname
-                                    : $lname;
- {
- if
- (defined $version and $version eq '1.1') {
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*(?::\p{InXMLNCNameStartChar11}\p{InXMLNCNameChar11}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => '1.1', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   } else {
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-     unless (
- ($qualifiedName =~ /\A\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*(?::\p{InXML_NCNameStartChar10}\p{InXMLNCNameChar10}*)?\z/)
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_MALFORMED_QNAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $qualifiedName, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_NAME';
- ;
-     }
-   }
- }
- ;
- {
- if
- (defined $prefix) {
-   if (not defined $namespaceURI) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_PREFIX_WITH_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xml' and $namespaceURI ne
- 'http://www.w3.org/XML/1998/namespace'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XML_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($prefix eq 'xmlns' and $namespaceURI ne
- 'http://www.w3.org/2000/xmlns/'
- ) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#namespaceName' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_XMLNS_WITH_OTHER_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $prefix ne 'xml') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XML_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $prefix ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- } else { ## No prefix
-   if (not defined $namespaceURI) {
-     #
-   } elsif ($namespaceURI eq
- 'http://www.w3.org/2000/xmlns/' and
- $lname ne 'xmlns') {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://www.w3.org/2001/04/infoset#prefix' => undef, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_OTHER_WITH_XMLNS_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23checkXMLNamesQName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
- ;
-   }
- }
- }
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Element::ManakaiDOMAttr'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'ns' => \$namespaceURI,
-     'pfx' => \$prefix,
-     'ln' => \$lname,
-     'specified' => 1,
-   });
- {
- if
- (defined 'Message::DOM::Element::ManakaiDOMAttr') {
-   if (ref 'Message::DOM::Element::ManakaiDOMAttr' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Element::ManakaiDOMAttr';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'} = \('Message::DOM::Element::ManakaiDOMAttr');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Element::ManakaiDOMAttr'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- ## Attribute type information
- if ((defined $namespaceURI and $namespaceURI eq
- 'http://www.w3.org/XML/1998/namespace' and
- $lname eq 'id') or
-     (not defined $namespaceURI and $lname eq 'xml:id')) {
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-     if
- ($self->
- dom_config
-              ->
- get_parameter
-                  (
- 'http://suika.fam.cx/www/2006/dom-config/xml-id'
- )) {
-       $r->
- manakai_attribute_type
-  (
- '2'
- );
-     }
- }
- ;}
- ;
- }
- }
- $r}
- sub create_text_node ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::TreeCore::ManakaiDOMText'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::TreeCore::ManakaiDOMText') {
-   if (ref 'Message::DOM::TreeCore::ManakaiDOMText' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMText';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'} = \('Message::DOM::TreeCore::ManakaiDOMText');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_cdata_section ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMCDATASection'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMCDATASection') {
-   if (ref 'Message::DOM::XML::ManakaiDOMCDATASection' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMCDATASection';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'} = \('Message::DOM::XML::ManakaiDOMCDATASection');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMCDATASection'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_comment ($$) {
- my ($self, $data) = @_;
- my $r;
- {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::TreeCore::ManakaiDOMComment'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-     'con' => \$data,
-   });
- {
- if
- (defined 'Message::DOM::TreeCore::ManakaiDOMComment') {
-   if (ref 'Message::DOM::TreeCore::ManakaiDOMComment' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMComment';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'} = \('Message::DOM::TreeCore::ManakaiDOMComment');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
  sub create_document_fragment ($) {
  my ($self) = @_;
  my $r;
  {
- my
- $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::Document::ManakaiDOMDocumentFragment'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::Document::ManakaiDOMDocumentFragment') {
-   if (ref 'Message::DOM::Document::ManakaiDOMDocumentFragment' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::Document::ManakaiDOMDocumentFragment';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'} = \('Message::DOM::Document::ManakaiDOMDocumentFragment');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::Document::ManakaiDOMDocumentFragment'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- }
- $r}
- sub create_entity_reference ($$) {
- my ($self, $name) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- our $CreateEntityReference_OpenEntity;
-   ## NOTE: Multithread unsafe
- my $orig_strict = $self->
- strict_error_checking
- ;
- if ($orig_strict) {
-   my $version = $self->
- xml_version
- ;
- {
- if
- (defined $name) {
- {
- if
- (((not defined $version or $version eq '1.0') and
-          not
- ($name =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
- ) or
-         (defined $version and $version eq '1.1' and
-          not
- ($name =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $name, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- ;
- ;
- }
- }
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMEntityReference'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'xname' => \$name,
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMEntityReference') {
-   if (ref 'Message::DOM::XML::ManakaiDOMEntityReference' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMEntityReference';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'} = \('Message::DOM::XML::ManakaiDOMEntityReference');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMEntityReference'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
- ## Expansion
- {
- local $Error::Depth = $Error::Depth + 1;
- {
-   unless
- ($CreateEntityReference_OpenEntity->{$name}) {
-     local $CreateEntityReference_OpenEntity->{$name} =
- ;
-     my $__doctype = $self->
- doctype
- ;
-     $__doctype = $__doctype->
- get_feature
-                              (
- 'http://suika.fam.cx/www/2006/feature/XDoctype'
-  => '3.0')
-       if $__doctype;
-     if ($__doctype) {
-       my $__et = $__doctype->
- get_general_entity_node
-  ($name);
-       if ($__et) {
-         $self->
- strict_error_checking
-  (
- );
-         my @node;
-         for my $c (@{$__et->
- child_nodes
- }) {
-           my $clone = $c->
- clone_node
-  (
- );
-           $r->
- append_child
-  ($clone);
-           push @node, $clone;
-         }
-         $r->
- manakai_expanded
-               ($__et->
- has_replacement_tree
- );
-         $self->
- strict_error_checking
-  ($orig_strict);
-       } # entity
-     } # doctype
-   }
-   $r->
- manakai_set_read_only
-  (
- ,
- );
- }
- ;}
- ;
- }
- $r}
- sub create_processing_instruction ($$$) {
- my ($self, $target, $data) = @_;
- my $r;
- {
- require
- Message::DOM::XML;
- if ($self->
+ $r = bless \{
- strict_error_checking
- ) {
-   my $version = $self->
- xml_version
- ;
+ 'od'
- {
+  => $self,
- if
- (defined $target) {
+ 'child'
- {
+  => [],
+ },
- if
+ 'Message::DOM::Document::ManakaiDOMDocumentFragment'
- (((not defined $version or $version eq '1.0') and
+ ;
-          not
+ Scalar::Util::weaken ($$r->{
- ($target =~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/)
+ 'od'
- ) or
+ });
-         (defined $version and $version eq '1.1' and
-          not
- ($target =~ /\A\p{InXMLNameStartChar11}\p{InXMLNameChar11}*\z/)
- )) {
- report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INVALID_CHARACTER_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_BAD_NAME', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#name' => $target, 'http://www.w3.org/2001/04/infoset#version' => $version, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2004/dom/main%23ensureXMLName+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => '$INPUT_PARAM_NAME';
- ;
-     }
- }
- ;
- ;
- }
- }
- ;
- }
- my $bag =
- $self->{'b'}
- ;
- $data = '' unless defined $data;
- my $stem;
- {
- $stem = 'Message::DOM::XML::ManakaiDOMProcessingInstruction'->___create_node_stem ($bag, {
- 'rc'
-  => 0,
- 'id'
-  => \
- (
-   'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
-   ($Message::Util::ManakaiNode::UniqueIDR ||=
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62] .
-     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
-         a b c d e f g h i j k l m n o p q r s t u v w x y z
-1 2 3 4 5 6 7 8 9/]->[rand 62]) .
-   (++$Message::Util::ManakaiNode::UniqueIDN)
- )
- ,
- }, {
-     'target' => \$target,
-     'con' => \$data,
-     'od' => $self,
-   });
- {
- if
- (defined 'Message::DOM::XML::ManakaiDOMProcessingInstruction') {
-   if (ref 'Message::DOM::XML::ManakaiDOMProcessingInstruction' eq 'SCALAR') {
-     $stem->{'cls'} = 'Message::DOM::XML::ManakaiDOMProcessingInstruction';
-   } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'}) {
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'};
-   } else {
-     require Scalar::Util;
-     $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'} = \('Message::DOM::XML::ManakaiDOMProcessingInstruction');
-     Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::XML::ManakaiDOMProcessingInstruction'});
-   }
- } else {
-   CORE::delete $stem->{'cls'};
- }
- }
- ;
- $bag->{${$stem->{
- 'id'
- }}} = $stem;
- }
- ;
- {
- $r = ${$stem->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $stem->{
- 'id'
- },
- 'b'
-  => $bag,
- }, {
-   });
- $stem->{
- 'rc'
- }++;
- }
- ;
  }
-Line 4723 
 my $r = 0;
+Line 2256 
 my $r = 0;
  {
- {
+ $r = $$self->{
+ 'chk'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'chk'};
- }
- ;
- $r =
-unless
- defined $r;
  }
-Line 4749 
 $r;
+Line 2268 
 $r;
  {
- {
+ $$self->{
+ 'chk'
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'chk'} = $given ? 1 : 0;
- }
- ;
  }
-Line 4778 
 my $r;
+Line 2286 
 my $r;
  {
- $r = bless [$self, ($self->{'b'}->{${$self->{'id'}}}), 'Message::DOM::IFLatest::Document'],
+ $r = bless [$self, $$self, 'Message::DOM::IFLatest::Document'],
  'Message::DOM::DOMCore::ManakaiDOMConfiguration'
  ;
-Line 4816 
 child_nodes
+Line 2324 
 child_nodes
      if ($child->
  node_type
   ==
- '1'
  ) {
        $r = $child;
        last F;
-Line 4846 
 my $r;
+Line 2354 
 my $r;
  {
- {
+ $r = $$self->{
+ 'impl'
- my
+ };
- $__v = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-               ->{'impl'};
- if (defined $__v) {
- {
- $r = ${$self->{'b'}->{${$__v}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => $__v,
- 'b'
-  => $self->{'b'},
- }, {
-     'nrifs' => ['Message::DOM::IFLatest::DOMImplementation'],
-   });
- $self->{'b'}->{${$__v}}->{
- 'rc'
- }++;
- }
- ;
- }
- }
- ;
  }
-Line 4902 
 my $r = '';
+Line 2372 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'http://www.w3.org/2001/04/infoset#version'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#version'};
- }
- ;
- $r = '1.0' unless defined $r;
  }
-Line 4947 
 if (defined $given and
+Line 2405 
 if (defined $given and
       not $self->
  strict_error_checking
  )) {
+   $$self->{
+ 'http://www.w3.org/2001/04/infoset#version'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#version'} = $given;
- }
- ;
  } else {
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_NOSUPPORT_XMLVER', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'xml_version', 'http://www.w3.org/2001/04/infoset#version' => $given;
-Line 4996 
 child_nodes
+Line 2441 
 child_nodes
  node_type
  ;
      if ($nt ==
- '10'
  ) {
        $r = $child;
        last F;
      } elsif ($nt ==
- '1'
  ) { # document element
        last F;
      }
-Line 5030 
 my $r = '';
+Line 2475 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'duri'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- }
- ;
  }
-Line 5069 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2503 
 report Message::DOM::DOMCore::ManakaiDOM
  }
  ;
+ $$self->{
+ 'duri'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'duri'} = $given;
- }
- ;
  }
-Line 5097 
 my $r = '';
+Line 2518 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'ces'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'ces'};
- }
- ;
  }
-Line 5136 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2546 
 report Message::DOM::DOMCore::ManakaiDOM
  }
  ;
+ $$self->{
+ 'ces'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'ces'} = $given;
- }
- ;
  }
-Line 5164 
 my $r = '';
+Line 2561 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'xcs'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'xcs'};
- }
- ;
  }
-Line 5203 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2589 
 report Message::DOM::DOMCore::ManakaiDOM
  }
  ;
+ $$self->{
+ 'xcs'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'xcs'} = $given;
- }
- ;
  }
-Line 5231 
 my $r = 0;
+Line 2604 
 my $r = 0;
  {
- {
+ $r = $$self->{
+ 'http://www.w3.org/2001/04/infoset#standalone'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#standalone'};
- }
- ;
  }
-Line 5270 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2632 
 report Message::DOM::DOMCore::ManakaiDOM
  }
  ;
+ $$self->{
+ 'http://www.w3.org/2001/04/infoset#standalone'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#standalone'} = $given;
- }
- ;
  }
-Line 5302 
 ADOPT:
+Line 2651 
 ADOPT:
    last ADOPT
      unless $source->isa (
  'Message::DOM::TreeCore::ManakaiDOMNode'
- ) and
+ );
- $self->{'b'}
-                eq
- $source->{'b'}
- ;
    my $strict = $self->
  strict_error_checking
-Line 5338 
 node_type
+Line 2681 
 node_type
  ;
    my $oe;
    if ($nt ==
- '2'
  ) {
      $oe = $source->
  owner_element
-Line 5352 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2695 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
      }
    } elsif ($nt ==
- '9' or
+or
  $nt ==
- '10' or
+or
  $nt ==
- '6' or
+or
  $nt ==
- '12'
  ) {
  report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'source';
-Line 5385 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 2728 
 report Message::DOM::DOMCore::ManakaiDOM
  ;
      }
      if ($nt ==
- '1'
  ) {
        push @change_od, $node;
        push @nodes, @{$node->
-Line 5403 
 item
+Line 2746 
 item
   ($i);
        }
      } elsif ($nt ==
- '2' or
+or
  $nt ==
- '5' or
+or
  $nt ==
- '11'
  ) {
        push @change_od, $node;
        push @nodes, @{$node->
  child_nodes
  };
      } elsif ($nt ==
- '3' or
+or
  $nt ==
- '8' or
+or
  $nt ==
- '7' or
+or
  $nt ==
- '4'
  ) {
        push @change_od, $node;
      } else {
-Line 5475 
 owner_document
+Line 2818 
 owner_document
      last ADOPT;
    }
-   my $old_od_list;
- {
- $old_od_list = $old_od->{
- 'b'
- }->{${$old_od->{
- 'id'
- }}}
-          ->{'do'};
- }
- ;
-   my $new_od_list;
- {
- $new_od_list = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'do'};
- }
- ;
    for my $n (@change_od) {
+     $$n->{
+ 'od'
- {
+ } = $self;
+     Scalar::Util::weaken ($$n->{
+ 'od'
- $n->{
+ });
- 'b'
- }->{${$n->{
- 'id'
- }}}
-     ->{'od'} = $self->{
- 'id'
- };
- }
- ;
-     my $nid =
- $n->{'id'}
- ;
-     CORE::delete $old_od_list->{$$nid};
-     $new_od_list->{$$nid} = $nid;
    }
    for my $src (@change_od) {
-     my $src_ud;
+     my $src_ud = $$src->{
+ 'ud'
+ };
- {
- $src_ud = $src->{
- 'b'
- }->{${$src->{
- 'id'
- }}}
-          ->{'ud'};
- }
- ;
      for my $key (keys %{$src_ud or {}}) {
        my $dh = $src_ud->{$key}->[1];
        if ($dh) {
-Line 5560 
 $src_ud = $src->{
+Line 2838 
 $src_ud = $src->{
  handle
                   (
- '5'
  ,
                    $key, $src_ud->{$key}->[0], $src,
  undef
-Line 5596 
 child_nodes
+Line 2874 
 child_nodes
      next N unless $node->
  node_type
   ==
- '1'
  ;
      for my $attr (@{$node->
  attributes
-Line 5674 
 my ($self, $namespaceURI, $localName) =
+Line 2952 
 my ($self, $namespaceURI, $localName) =
  if
  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+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:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
  ;
-Line 5790 
 my ($self, $n, $namespaceURI, $qualified
+Line 3069 
 my ($self, $n, $namespaceURI, $qualified
  if
  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
+   require Message::DOM::DOMMain;
- report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1144080824:30455:ZO0D78781+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:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
  ;
-Line 5821 
 my $r = '';
+Line 3101 
 my $r = '';
  {
- {
+ $r = $$self->{
+ 'buri'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'buri'};
- }
- ;
  unless (defined $r) {
+   $r = $$self->{
+ 'duri'
- {
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'duri'};
- }
- ;
  }
-Line 5878 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3134 
 report Message::DOM::DOMCore::ManakaiDOM
  }
  ;
+ $$self->{
+ 'buri'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'buri'} = $given;
- }
- ;
  }
-Line 5906 
 my $r = 0;
+Line 3149 
 my $r = 0;
  {
- {
+ $r = $$self->{
+ 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
+ };
- $r = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'};
- }
- ;
  }
-Line 5945 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3177 
 report Message::DOM::DOMCore::ManakaiDOM
  }
  ;
+ $$self->{
+ 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
- {
+ } = $given;
- $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-     ->{'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'} = $given;
- }
- ;
  }
-Line 5992 
 $Message::DOM::DOMFeature::ClassInfo->{q
+Line 3211 
 $Message::DOM::DOMFeature::ClassInfo->{q
  '1.1',
  '1'}};
  $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1;
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{compat_class}->{q<Message::DOM::Document::ManakaiDOMDocument>} = 1;
- $Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocument>} = {'s1a',
- ['child'],
- 'v1h',
- ['do'],
- 'w0',
- ['impl']};
  package Message::DOM::IFLatest::DocumentFragment;
- our $VERSION = 20060404.0922;
+ our $VERSION = 20061230.0424;
  package Message::DOM::Document::ManakaiDOMDocumentFragment;
- our $VERSION = 20060404.0922;
+ our $VERSION = 20061230.0424;
  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
- 'Message::DOM::IF::DocumentFragment',
- 'Message::DOM::IF::Node',
  'Message::DOM::IFLatest::DocumentFragment',
- 'Message::DOM::IFLatest::Node',
+ 'Message::DOM::IFLatest::Node';
- 'Message::DOM::IFLevel1::DocumentFragment',
- 'Message::DOM::IFLevel1::Node',
- 'Message::DOM::IFLevel2::DocumentFragment',
- 'Message::DOM::IFLevel2::Node',
- 'Message::DOM::IFLevel3::DocumentFragment',
- 'Message::DOM::IFLevel3::Node';
- sub ___create_node_stem ($$$$) {
- my ($self, $bag, $obj, $opt) = @_;
- my $r = {};
- {
- $obj->{
- 'child'
- } = [];
- {
- $obj->{'od'} = $opt->{'od'}->{
- 'id'
- };
- $bag->{${$opt->{'od'}->{
- 'id'
- }}}
-     ->{'do'}->{${$obj->{
- 'id'
- }}}
-   = $obj->{
- 'id'
- };
- }
- ;
- $r = $obj;
- }
- $r}
  sub node_type ($;$) {
  if (@_ == 1) {my ($self) = @_;
  my $r;
- $r = '11';
+ $r = 11;
  $r;
  } else {my ($self) = @_;
  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
-Line 6102 
 strict_error_checking
+Line 3269 
 strict_error_checking
    ## -- Node Type check
    my @new_child;
    if ({
-     '3' => 1,
+=> 1,
-     '5' => 1,
+=> 1,
-     '1' => 1,
+=> 1,
-     '7' => 1,
+=> 1,
-     '4' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
    }->{$child_nt}) {
      push @new_child, $newChild;
    } elsif ($child_nt ==
- '11'
  ) {
      for my $cn (@{$newChild->
  child_nodes
  }) {
        unless ({
-     '3' => 1,
+=> 1,
-     '5' => 1,
+=> 1,
-     '1' => 1,
+=> 1,
-     '7' => 1,
+=> 1,
-     '4' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
    }->{$cn->
  node_type
  }) {
-Line 6251 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3418 
 report Message::DOM::DOMCore::ManakaiDOM
    ## -- Removes from parent
    if ($nc_parent) {
      if ($child_nt ==
- '11'
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 6301 
 $v = $nc_parent->{
+Line 3438 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-Line 6345 
 $children = $self->{
+Line 3456 
 $children = $self->{
  ## -- Adds to children list
-     push @$children, map {
+     push @$children, @new_child;
- $_->{'id'}
-     } @new_child;
      $r = $newChild;
-Line 6425 
 strict_error_checking
+Line 3532 
 strict_error_checking
    ## -- Node Type check
    my @new_child;
    if ({
-     '3' => 1,
+=> 1,
-     '5' => 1,
+=> 1,
-     '1' => 1,
+=> 1,
-     '7' => 1,
+=> 1,
-     '4' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
    }->{$child_nt}) {
      push @new_child, $newChild;
    } elsif ($child_nt ==
- '11'
  ) {
      for my $cn (@{$newChild->
  child_nodes
  }) {
        unless ({
-     '3' => 1,
+=> 1,
-     '5' => 1,
+=> 1,
-     '1' => 1,
+=> 1,
-     '7' => 1,
+=> 1,
-     '4' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
    }->{$cn->
  node_type
  }) {
-Line 6666 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 3773 
 report Message::DOM::DOMCore::ManakaiDOM
    ## -- Removes from parent
    if ($nc_parent) {
      if ($child_nt ==
- '11'
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 6716 
 $v = $nc_parent->{
+Line 3793 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-Line 6765 
 $children = $self->{
+Line 3816 
 $children = $self->{
  ## -- Adds to children list
      if ($index == -1) {
-       push @$children, map {
+       push @$children, @new_child;
- $_->{'id'}
-       } @new_child;
      } else {
-       splice @$children, $index, 0, map {
+       splice @$children, $index, 0, @new_child;
- $_->{'id'}
-       } @new_child;
      }
      $r = $newChild;
-Line 6848 
 strict_error_checking
+Line 3891 
 strict_error_checking
    ## -- Node Type check
    my @new_child;
    if ({
-     '3' => 1,
+=> 1,
-     '5' => 1,
+=> 1,
-     '1' => 1,
+=> 1,
-     '7' => 1,
+=> 1,
-     '4' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
    }->{$child_nt}) {
      push @new_child, $newChild;
    } elsif ($child_nt ==
- '11'
  ) {
      for my $cn (@{$newChild->
  child_nodes
  }) {
        unless ({
-     '3' => 1,
+=> 1,
-     '5' => 1,
+=> 1,
-     '1' => 1,
+=> 1,
-     '7' => 1,
+=> 1,
-     '4' => 1,
+=> 1,
-     '8' => 1,
+=> 1,
    }->{$cn->
  node_type
  }) {
-Line 7112 
 report Message::DOM::DOMCore::ManakaiDOM
+Line 4155 
 report Message::DOM::DOMCore::ManakaiDOM
    ## -- Removes from parent
    if ($nc_parent) {
      if ($child_nt ==
- '11'
  ) {
+       $$newChild->{
+ 'child'
- {
+ } = [];
- $newChild->{
- 'b'
- }->{${$newChild->{
- 'id'
- }}}
-     ->{'child'} = [];
- }
- ;
      } else {
-       my $v;
+       my $v = $$nc_parent->{
+ 'child'
+ };
- {
- $v = $nc_parent->{
- 'b'
- }->{${$nc_parent->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
        RP: for my $i (0..$#$v) {
-         my $nodeid = $v->[$i];
+         if ($v->[$i] eq $new_child[0]) {
-         if (
- (${$new_child[0]->{'id'}} eq ${$nodeid})
- ) {
            splice @$v, $i, 1, ();
            last RP;
          }
-Line 7162 
 $v = $nc_parent->{
+Line 4175 
 $v = $nc_parent->{
    ## -- Rewrite the |parentNode| properties
    for my $nc (@new_child) {
+     $$nc->{
+ 'parent'
- {
+ } = $self;
+     Scalar::Util::weaken ($$nc->{
+ 'parent'
- $nc->{
+ });
- 'b'
- }->{${$nc->{
- 'id'
- }}}
-     ->{'parent'} = $self->{
- 'id'
- };
- }
- ;
    }
-   my $children;
+   my $children = $$self->{
+ 'child'
+ };
- {
- $children = $self->{
- 'b'
- }->{${$self->{
- 'id'
- }}}
-          ->{'child'};
- }
- ;
-Line 7214 
 $children = $self->{
+Line 4201 
 $children = $self->{
  ## -- Replaces the node
-     splice @$children, $index, 1, map {
+     splice @$children, $index, 1, @new_child;
+     CORE::delete $$oldChild->{
- $_->{'id'}
+ 'parent'
+ };
-     } @new_child;
- {
- CORE::delete
- $oldChild->{
- 'b'
- }->{${$oldChild->{
- 'id'
- }}}
-                  ->{'parent'};
- }
- ;
      $r = $oldChild;
-Line 7291 
 last_child
+Line 4261 
 last_child
        $lc->
  node_type
   ==
- '3'
  ) {
      $lc->
  manakai_append_text
-Line 7352 
 $feature =~ s/^\+//;
+Line 4322 
 $feature =~ s/^\+//;
  {
  if
- ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
+ ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
-       ->{has_feature}->{$feature}->{$version}) {
    $r = $self;
- } else {
-   CLASS: for my $__class (sort {
-     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
-   } grep {
-     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
-         ->{compat_class}->{$_}
-   } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
-                ->{compat_class} or {}}) {
-     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
-             ->{has_feature}->{$feature}->{$version}) {
- {
- $r = ${($self->{'b'})->{${($self->{'id'})}}->{
- 'cls'
- }}->___create_node_ref ({
- 'id'
-  => ($self->{'id'}),
- 'b'
-  => ($self->{'b'}),
- }, {
-           'nrcls' => \$__class,
-         });
- ($self->{'b'})->{${($self->{'id'})}}->{
- 'rc'
- }++;
- }
- ;
-       last CLASS;
-     }
-   } # CLASS
  }
-Line 7488 
 $Message::DOM::DOMFeature::ClassInfo->{q
+Line 4419 
 $Message::DOM::DOMFeature::ClassInfo->{q
  '1.1',
  '1'}};
  $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 14.1;
- $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{compat_class}->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 1;
+ for ($Message::DOM::IFLatest::Node::){}
- $Message::Util::Grove::ClassProp{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = {'s1a',
- ['child'],
- 'w0',
- ['od']};
- for ($Message::DOM::IF::Document::, $Message::DOM::IF::DocumentFragment::, $Message::DOM::IF::Node::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::Document::, $Message::DOM::IFLevel1::DocumentFragment::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel2::Document::, $Message::DOM::IFLevel2::DocumentFragment::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel3::Document::, $Message::DOM::IFLevel3::DocumentFragment::, $Message::DOM::IFLevel3::Node::){}
  ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
 ;

 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.14
 Legend:



Removed from v.1.3
 


changed lines


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

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24