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

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

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

revision 1.4 by wakaba, Tue Apr 4 12:35:14 2006 UTC revision 1.8 by wakaba, Sat Nov 4 12:25:13 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  ## This file is automatically generated  ## This file is automatically generated
3  ##      at 2006-04-04T11:33:35+00:00,  ##      at 2006-11-04T09:40:20+00:00,
4  ##      from file "../lib/Message/DOM/Document.dis",  ##      from file "Document.dis",
5  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,
6  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
7  ## Don't edit by hand!  ## Don't edit by hand!
8  use strict;  use strict;
9  require Message::DOM::DOMCore;  require Message::DOM::DOMCore;
 require Message::DOM::Element;  
10  require Message::DOM::TreeCore;  require Message::DOM::TreeCore;
11  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
12  package Message::DOM::Document;  package Message::DOM::Document;
13  our $VERSION = 20060404.1133;  our $VERSION = 20061104.0940;
14  package Message::DOM::IFLatest::Document;  package Message::DOM::IFLatest::Document;
15  our $VERSION = 20060404.1133;  our $VERSION = 20061104.0940;
16  package Message::DOM::Document::ManakaiDOMDocument;  package Message::DOM::Document::ManakaiDOMDocument;
17  our $VERSION = 20060404.1133;  our $VERSION = 20061104.0940;
18  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
19  'Message::DOM::IF::Document',  'Message::DOM::IF::Document',
20  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 84  my $r; Line 83  my $r;
83    
84  {  {
85    
 my  
 $class;  
 CLS: {  
   if (defined $opt->{  
 'nrcls'  
 }) {  
     $class = $opt->{  
 'nrcls'  
 };  
     IFCHK: {  
       for (@{$opt->{  
 'nrifs'  
 } or []}) {  
         last IFCHK unless $$class->isa ($_);  
       }  
       last CLS;  
     } # IFCHK  
   }  
   
     
   
 {  
   
   
 $class = $obj->{  
 'b'  
 }->{${$obj->{  
 'id'  
 }}}  
          ->{'dnrcls'};  
   
   
 }  
   
 ;  
   if (defined $class) {  
     IFCHK: {  
       for (@{$opt->{  
 'nrifs'  
 } or []}) {  
         last IFCHK unless $$class->isa ($_);  
       }  
       last CLS;  
     } # IFCHK  
   }  
   
   my $cns;  
     
   
 {  
   
   
 $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->{  
 'b'  
 }->{${$cnh->{  
 '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'};  
   
   
 }  
   
 ;  
     $dens = \'' unless defined $dens;  
       
   
 {  
   
   
 $deln = $deh->{  
 'b'  
 }->{${$deh->{  
 'id'  
 }}}  
          ->{'ln'};  
   
   
 }  
   
 ;  
   } else {  
     $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  
         }  
       }  
     }  
86    
87      ## Generic  $r = bless $obj,
     CLASS: for my $__class (sort {  
       $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}  
     } grep {  
       $Message::DOM::DOMFeature::ClassInfo  
           ->{  
88  'Message::DOM::Document::ManakaiDOMDocument'  '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;  
   
   
 }  
   
89  ;  ;
   }  
 } # CLS  
 $r = bless $obj, $$class;  
90    
91    
92  }  }
# Line 321  $r} Line 94  $r}
94  sub node_type ($;$) {  sub node_type ($;$) {
95  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
96  my $r;  my $r;
97  $r = '9';  $r = 9;
98  $r;  $r;
99  } else {my ($self) = @_;  } else {my ($self) = @_;
100  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';  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 138  local $Error::Depth = $Error::Depth + 1;
138  $has_el;  $has_el;
139      my $has_dt;      my $has_dt;
140      if ($child_nt ==      if ($child_nt ==
141  '1'  1
142  ) {  ) {
143        $has_el =        $has_el =
144  1  1
145  ;  ;
146      } elsif ($child_nt ==      } elsif ($child_nt ==
147  '10'  10
148  ) {  ) {
149        $has_dt =        $has_dt =
150  1  1
151  ;  ;
152      } elsif ($child_nt ==      } elsif ($child_nt ==
153  '11'  11
154  ) {  ) {
155        for my $cn (@{$newChild->        for my $cn (@{$newChild->
156  child_nodes  child_nodes
# Line 386  child_nodes Line 159  child_nodes
159  node_type  node_type
160  ;  ;
161          if ($cnt ==          if ($cnt ==
162  '1'  1
163  ) {  ) {
164            if ($has_el) {            if ($has_el) {
165                            
# Line 423  last_child Line 196  last_child
196          if ($anode->          if ($anode->
197  node_type  node_type
198   ==   ==
199  '1'  1
200  ) {  ) {
201                        
202    
# Line 457  last_child Line 230  last_child
230  node_type  node_type
231  ;  ;
232          if ($ant ==          if ($ant ==
233  '1'  1
234  ) {  ) {
235                        
236    
# Line 477  report Message::DOM::DOMCore::ManakaiDOM Line 250  report Message::DOM::DOMCore::ManakaiDOM
250    
251  ;  ;
252          } elsif ($ant ==          } elsif ($ant ==
253  '10'  10
254  ) {  ) {
255                        
256    
# Line 532  strict_error_checking Line 305  strict_error_checking
305    ## -- Node Type check    ## -- Node Type check
306    my @new_child;    my @new_child;
307    if ({    if ({
308      '3' => (not $strictc),      3 => (not $strictc),
309      '5' => (not $strictc),      5 => (not $strictc),
310      '1' => 1,      1 => 1,
311      '4' => (not $strictc),      4 => (not $strictc),
312      '7' => 1,      7 => 1,
313      '8' => 1,      8 => 1,
314      '10' => 1,      10 => 1,
315    }->{$child_nt}) {    }->{$child_nt}) {
316      push @new_child, $newChild;      push @new_child, $newChild;
317    } elsif ($child_nt ==    } elsif ($child_nt ==
318  '11'  11
319  ) {  ) {
320      for my $cn (@{$newChild->      for my $cn (@{$newChild->
321  child_nodes  child_nodes
322  }) {  }) {
323        unless ({        unless ({
324      '3' => (not $strictc),      3 => (not $strictc),
325      '5' => (not $strictc),      5 => (not $strictc),
326      '1' => 1,      1 => 1,
327      '4' => (not $strictc),      4 => (not $strictc),
328      '7' => 1,      7 => 1,
329      '8' => 1,      8 => 1,
330      '10' => 1,      10 => 1,
331    }->{$cn->    }->{$cn->
332  node_type  node_type
333  }) {  }) {
# Line 683  report Message::DOM::DOMCore::ManakaiDOM Line 456  report Message::DOM::DOMCore::ManakaiDOM
456    ## -- Removes from parent    ## -- Removes from parent
457    if ($nc_parent) {    if ($nc_parent) {
458      if ($child_nt ==      if ($child_nt ==
459  '11'  11
460  ) {  ) {
461                
462    
# Line 812  $_->{'id'} Line 585  $_->{'id'}
585    
586  ;  ;
587  if ($child_nt ==  if ($child_nt ==
588  '10' and  10 and
589            
590  not defined $newChild->  not defined $newChild->
591  owner_document  owner_document
# Line 910  local $Error::Depth = $Error::Depth + 1; Line 683  local $Error::Depth = $Error::Depth + 1;
683  $has_el;  $has_el;
684      my $has_dt;      my $has_dt;
685      if ($child_nt ==      if ($child_nt ==
686  '1'  1
687  ) {  ) {
688        $has_el =        $has_el =
689  1  1
690  ;  ;
691      } elsif ($child_nt ==      } elsif ($child_nt ==
692  '10'  10
693  ) {  ) {
694        $has_dt =        $has_dt =
695  1  1
696  ;  ;
697      } elsif ($child_nt ==      } elsif ($child_nt ==
698  '11'  11
699  ) {  ) {
700        for my $cn (@{$newChild->        for my $cn (@{$newChild->
701  child_nodes  child_nodes
# Line 931  child_nodes Line 704  child_nodes
704  node_type  node_type
705  ;  ;
706          if ($cnt ==          if ($cnt ==
707  '1'  1
708  ) {  ) {
709            if ($has_el) {            if ($has_el) {
710                            
# Line 971  last_child Line 744  last_child
744          if ($anode->          if ($anode->
745  node_type  node_type
746   ==   ==
747  '1'  1
748  ) {  ) {
749                        
750    
# Line 1001  previous_sibling Line 774  previous_sibling
774  node_type  node_type
775  ;  ;
776          if ($ant ==          if ($ant ==
777  '1'  1
778  ) {  ) {
779                        
780    
# Line 1021  report Message::DOM::DOMCore::ManakaiDOM Line 794  report Message::DOM::DOMCore::ManakaiDOM
794    
795  ;  ;
796          } elsif ($ant ==          } elsif ($ant ==
797  '10'  10
798  ) {  ) {
799                        
800    
# Line 1058  last_child Line 831  last_child
831  node_type  node_type
832  ;  ;
833          if ($ant ==          if ($ant ==
834  '1'  1
835  ) {  ) {
836                        
837    
# Line 1078  report Message::DOM::DOMCore::ManakaiDOM Line 851  report Message::DOM::DOMCore::ManakaiDOM
851    
852  ;  ;
853          } elsif ($ant ==          } elsif ($ant ==
854  '10'  10
855  ) {  ) {
856                        
857    
# Line 1108  previous_sibling Line 881  previous_sibling
881  node_type  node_type
882    
883                  ==                  ==
884  '10'  10
885  ) {  ) {
886                        
887    
# Line 1163  strict_error_checking Line 936  strict_error_checking
936    ## -- Node Type check    ## -- Node Type check
937    my @new_child;    my @new_child;
938    if ({    if ({
939      '3' => (not $strictc),      3 => (not $strictc),
940      '5' => (not $strictc),      5 => (not $strictc),
941      '1' => 1,      1 => 1,
942      '4' => (not $strictc),      4 => (not $strictc),
943      '7' => 1,      7 => 1,
944      '8' => 1,      8 => 1,
945      '10' => 1,      10 => 1,
946    }->{$child_nt}) {    }->{$child_nt}) {
947      push @new_child, $newChild;      push @new_child, $newChild;
948    } elsif ($child_nt ==    } elsif ($child_nt ==
949  '11'  11
950  ) {  ) {
951      for my $cn (@{$newChild->      for my $cn (@{$newChild->
952  child_nodes  child_nodes
953  }) {  }) {
954        unless ({        unless ({
955      '3' => (not $strictc),      3 => (not $strictc),
956      '5' => (not $strictc),      5 => (not $strictc),
957      '1' => 1,      1 => 1,
958      '4' => (not $strictc),      4 => (not $strictc),
959      '7' => 1,      7 => 1,
960      '8' => 1,      8 => 1,
961      '10' => 1,      10 => 1,
962    }->{$cn->    }->{$cn->
963  node_type  node_type
964  }) {  }) {
# Line 1406  report Message::DOM::DOMCore::ManakaiDOM Line 1179  report Message::DOM::DOMCore::ManakaiDOM
1179    ## -- Removes from parent    ## -- Removes from parent
1180    if ($nc_parent) {    if ($nc_parent) {
1181      if ($child_nt ==      if ($child_nt ==
1182  '11'  11
1183  ) {  ) {
1184                
1185    
# Line 1543  $_->{'id'} Line 1316  $_->{'id'}
1316    
1317  ;  ;
1318  if ($child_nt ==  if ($child_nt ==
1319  '10' and  10 and
1320            
1321  not defined $newChild->  not defined $newChild->
1322  owner_document  owner_document
# Line 1641  local $Error::Depth = $Error::Depth + 1; Line 1414  local $Error::Depth = $Error::Depth + 1;
1414  $has_el;  $has_el;
1415      my $has_dt;      my $has_dt;
1416      if ($child_nt ==      if ($child_nt ==
1417  '1'  1
1418  ) {  ) {
1419        $has_el =        $has_el =
1420  1  1
1421  ;  ;
1422      } elsif ($child_nt ==      } elsif ($child_nt ==
1423  '10'  10
1424  ) {  ) {
1425        $has_dt =        $has_dt =
1426  1  1
1427  ;  ;
1428      } elsif ($child_nt ==      } elsif ($child_nt ==
1429  '11'  11
1430  ) {  ) {
1431        for my $cn (@{$newChild->        for my $cn (@{$newChild->
1432  child_nodes  child_nodes
# Line 1662  child_nodes Line 1435  child_nodes
1435  node_type  node_type
1436  ;  ;
1437          if ($cnt ==          if ($cnt ==
1438  '1'  1
1439  ) {  ) {
1440            if ($has_el) {            if ($has_el) {
1441                            
# Line 1699  previous_sibling Line 1472  previous_sibling
1472          if ($anode->          if ($anode->
1473  node_type  node_type
1474   ==   ==
1475  '1'  1
1476  ) {  ) {
1477                        
1478    
# Line 1731  next_sibling Line 1504  next_sibling
1504  node_type  node_type
1505  ;  ;
1506          if ($ant ==          if ($ant ==
1507  '1'  1
1508  ) {  ) {
1509                        
1510    
# Line 1751  report Message::DOM::DOMCore::ManakaiDOM Line 1524  report Message::DOM::DOMCore::ManakaiDOM
1524    
1525  ;  ;
1526          } elsif ($ant ==          } elsif ($ant ==
1527  '10'  10
1528  ) {  ) {
1529                        
1530    
# Line 1785  previous_sibling Line 1558  previous_sibling
1558  node_type  node_type
1559  ;  ;
1560          if ($ant ==          if ($ant ==
1561  '1'  1
1562  ) {  ) {
1563                        
1564    
# Line 1805  report Message::DOM::DOMCore::ManakaiDOM Line 1578  report Message::DOM::DOMCore::ManakaiDOM
1578    
1579  ;  ;
1580          } elsif ($ant ==          } elsif ($ant ==
1581  '10'  10
1582  ) {  ) {
1583                        
1584    
# Line 1837  next_sibling Line 1610  next_sibling
1610  node_type  node_type
1611    
1612                  ==                  ==
1613  '10'  10
1614  ) {  ) {
1615                        
1616    
# Line 1892  strict_error_checking Line 1665  strict_error_checking
1665    ## -- Node Type check    ## -- Node Type check
1666    my @new_child;    my @new_child;
1667    if ({    if ({
1668      '3' => (not $strictc),      3 => (not $strictc),
1669      '5' => (not $strictc),      5 => (not $strictc),
1670      '1' => 1,      1 => 1,
1671      '4' => (not $strictc),      4 => (not $strictc),
1672      '7' => 1,      7 => 1,
1673      '8' => 1,      8 => 1,
1674      '10' => 1,      10 => 1,
1675    }->{$child_nt}) {    }->{$child_nt}) {
1676      push @new_child, $newChild;      push @new_child, $newChild;
1677    } elsif ($child_nt ==    } elsif ($child_nt ==
1678  '11'  11
1679  ) {  ) {
1680      for my $cn (@{$newChild->      for my $cn (@{$newChild->
1681  child_nodes  child_nodes
1682  }) {  }) {
1683        unless ({        unless ({
1684      '3' => (not $strictc),      3 => (not $strictc),
1685      '5' => (not $strictc),      5 => (not $strictc),
1686      '1' => 1,      1 => 1,
1687      '4' => (not $strictc),      4 => (not $strictc),
1688      '7' => 1,      7 => 1,
1689      '8' => 1,      8 => 1,
1690      '10' => 1,      10 => 1,
1691    }->{$cn->    }->{$cn->
1692  node_type  node_type
1693  }) {  }) {
# Line 2158  report Message::DOM::DOMCore::ManakaiDOM Line 1931  report Message::DOM::DOMCore::ManakaiDOM
1931    ## -- Removes from parent    ## -- Removes from parent
1932    if ($nc_parent) {    if ($nc_parent) {
1933      if ($child_nt ==      if ($child_nt ==
1934  '11'  11
1935  ) {  ) {
1936                
1937    
# Line 2303  $oldChild->{ Line 2076  $oldChild->{
2076    
2077  ;  ;
2078  if ($child_nt ==  if ($child_nt ==
2079  '10' and  10 and
2080            
2081  not defined $newChild->  not defined $newChild->
2082  owner_document  owner_document
# Line 2394  last_child Line 2167  last_child
2167          $lc->          $lc->
2168  node_type  node_type
2169   ==   ==
2170  '3'  3
2171  ) {  ) {
2172        $lc->        $lc->
2173  manakai_append_text  manakai_append_text
# Line 2552  child_nodes Line 2325  child_nodes
2325  node_type  node_type
2326  ;  ;
2327        if ($nt ==        if ($nt ==
2328  '3' or  3 or
2329                        
2330  $nt ==  $nt ==
2331  '4'  4
2332  ) {  ) {
2333          $r .= $node->          $r .= $node->
2334  data  data
# Line 2564  $node-> Line 2337  $node->
2337  is_element_content_whitespace  is_element_content_whitespace
2338  ;  ;
2339        } elsif ($nt ==        } elsif ($nt ==
2340  '1' or  1 or
2341                                
2342  $nt ==  $nt ==
2343  '5'  5
2344  ) {  ) {
2345          unshift @target, @{$node->          unshift @target, @{$node->
2346  child_nodes  child_nodes
# Line 2744  if ($feature eq Line 2517  if ($feature eq
2517    
2518  if  if
2519  ($Message::DOM::DOMFeature::ClassInfo->{ref $self}  ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
2520        ->{has_feature}->{$feature}->{$version}) {        ->{has_feature}->{$feature}->{$version} or
2521        $Message::Util::AutoLoad::Registry::Feature
2522            ->{$feature}->{$version}) {
2523    $r = $self;    $r = $self;
2524  } else {  } else {
2525    CLASS: for my $__class (sort {    CLASS: for my $__class (sort {
# Line 2755  if Line 2530  if
2530    } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}    } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocument'}
2531                 ->{compat_class} or {}}) {                 ->{compat_class} or {}}) {
2532      if ($Message::DOM::DOMFeature::ClassInfo->{$__class}      if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
2533              ->{has_feature}->{$feature}->{$version}) {              ->{has_feature}->{$feature}->{$version} or
2534            $Message::Util::AutoLoad::Registry::Feature
2535                ->{$feature}->{$version}) {
2536                
2537    
2538  {  {
# Line 2963  my ($self, $namespaceURI, $qualifiedName Line 2740  my ($self, $namespaceURI, $qualifiedName
2740  if  if
2741  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
2742        
2743  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:1162624877:6535:ypQRO33355+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2744    
2745  ;  ;
2746    
# Line 3136  $stem = 'Message::DOM::Element::ManakaiD Line 2913  $stem = 'Message::DOM::Element::ManakaiD
2913   => \   => \
2914  (  (
2915    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
2916    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
2917  )  )
2918  ,  ,
# Line 3291  attribute_definitions Line 3052  attribute_definitions
3052  default_type  default_type
3053  ;  ;
3054          if ($__at_default ==          if ($__at_default ==
3055  '4' or  4 or
3056                            
3057  $__at_default ==  $__at_default ==
3058  '1'  1
3059  ) {  ) {
3060            my ($__nn1, $__nn2) = split /:/, $__at->            my ($__nn1, $__nn2) = split /:/, $__at->
3061  node_name  node_name
# Line 3580  my ($self, $namespaceURI, $qualifiedName Line 3341  my ($self, $namespaceURI, $qualifiedName
3341  if  if
3342  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
3343        
3344  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:1162624877:6535:ypQRO33355+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3345    
3346  ;  ;
3347    
# Line 3752  $stem = 'Message::DOM::Element::ManakaiD Line 3513  $stem = 'Message::DOM::Element::ManakaiD
3513   => \   => \
3514  (  (
3515    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3516    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3517  )  )
3518  ,  ,
# Line 3864  get_parameter Line 3609  get_parameter
3609        $r->        $r->
3610  manakai_attribute_type  manakai_attribute_type
3611   (   (
3612  '2'  2
3613  );  );
3614      }      }
3615        
# Line 3887  my $r; Line 3632  my $r;
3632    
3633  {  {
3634    
3635  my  require
3636  $bag =  Message::DOM::CharacterData;
3637    my $bag =
3638  $self->{'b'}  $self->{'b'}
3639  ;  ;
3640  my $stem;  my $stem;
# Line 3897  my $stem; Line 3643  my $stem;
3643  {  {
3644    
3645    
3646  $stem = 'Message::DOM::TreeCore::ManakaiDOMText'->___create_node_stem ($bag, {  $stem = 'Message::DOM::CharacterData::ManakaiDOMText'->___create_node_stem ($bag, {
3647        
3648  'rc'  'rc'
3649   => 0,   => 0,
# Line 3906  $stem = 'Message::DOM::TreeCore::Manakai Line 3652  $stem = 'Message::DOM::TreeCore::Manakai
3652   => \   => \
3653  (  (
3654    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3655    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3656  )  )
3657  ,  ,
# Line 3934  $stem = 'Message::DOM::TreeCore::Manakai Line 3664  $stem = 'Message::DOM::TreeCore::Manakai
3664  {  {
3665    
3666  if  if
3667  (defined 'Message::DOM::TreeCore::ManakaiDOMText') {  (defined 'Message::DOM::CharacterData::ManakaiDOMText') {
3668    if (ref 'Message::DOM::TreeCore::ManakaiDOMText' eq 'SCALAR') {    if (ref 'Message::DOM::CharacterData::ManakaiDOMText' eq 'SCALAR') {
3669      $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMText';      $stem->{'cls'} = 'Message::DOM::CharacterData::ManakaiDOMText';
3670    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'}) {    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'}) {
3671      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'};      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'};
3672    } else {    } else {
3673      require Scalar::Util;      require Scalar::Util;
3674      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'} = \('Message::DOM::TreeCore::ManakaiDOMText');      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'} = \('Message::DOM::CharacterData::ManakaiDOMText');
3675      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMText'});      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMText'});
3676    }    }
3677  } else {  } else {
3678    CORE::delete $stem->{'cls'};    CORE::delete $stem->{'cls'};
# Line 4016  $stem = 'Message::DOM::XML::ManakaiDOMCD Line 3746  $stem = 'Message::DOM::XML::ManakaiDOMCD
3746   => \   => \
3747  (  (
3748    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3749    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3750  )  )
3751  ,  ,
# Line 4106  my $r; Line 3820  my $r;
3820    
3821  {  {
3822    
3823  my  require
3824  $bag =  Message::DOM::CharacterData;
3825    my $bag =
3826  $self->{'b'}  $self->{'b'}
3827  ;  ;
3828  my $stem;  my $stem;
# Line 4116  my $stem; Line 3831  my $stem;
3831  {  {
3832    
3833    
3834  $stem = 'Message::DOM::TreeCore::ManakaiDOMComment'->___create_node_stem ($bag, {  $stem = 'Message::DOM::CharacterData::ManakaiDOMComment'->___create_node_stem ($bag, {
3835        
3836  'rc'  'rc'
3837   => 0,   => 0,
# Line 4125  $stem = 'Message::DOM::TreeCore::Manakai Line 3840  $stem = 'Message::DOM::TreeCore::Manakai
3840   => \   => \
3841  (  (
3842    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3843    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3844  )  )
3845  ,  ,
# Line 4153  $stem = 'Message::DOM::TreeCore::Manakai Line 3852  $stem = 'Message::DOM::TreeCore::Manakai
3852  {  {
3853    
3854  if  if
3855  (defined 'Message::DOM::TreeCore::ManakaiDOMComment') {  (defined 'Message::DOM::CharacterData::ManakaiDOMComment') {
3856    if (ref 'Message::DOM::TreeCore::ManakaiDOMComment' eq 'SCALAR') {    if (ref 'Message::DOM::CharacterData::ManakaiDOMComment' eq 'SCALAR') {
3857      $stem->{'cls'} = 'Message::DOM::TreeCore::ManakaiDOMComment';      $stem->{'cls'} = 'Message::DOM::CharacterData::ManakaiDOMComment';
3858    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'}) {    } elsif (defined $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'}) {
3859      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'};      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'};
3860    } else {    } else {
3861      require Scalar::Util;      require Scalar::Util;
3862      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'} = \('Message::DOM::TreeCore::ManakaiDOMComment');      $stem->{'cls'} = $Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'} = \('Message::DOM::CharacterData::ManakaiDOMComment');
3863      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::TreeCore::ManakaiDOMComment'});      Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{'Message::DOM::CharacterData::ManakaiDOMComment'});
3864    }    }
3865  } else {  } else {
3866    CORE::delete $stem->{'cls'};    CORE::delete $stem->{'cls'};
# Line 4234  $stem = 'Message::DOM::Document::Manakai Line 3933  $stem = 'Message::DOM::Document::Manakai
3933   => \   => \
3934  (  (
3935    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
3936    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
3937  )  )
3938  ,  ,
# Line 4394  $stem = 'Message::DOM::XML::ManakaiDOMEn Line 4077  $stem = 'Message::DOM::XML::ManakaiDOMEn
4077   => \   => \
4078  (  (
4079    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
4080    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
4081  )  )
4082  ,  ,
# Line 4631  $stem = 'Message::DOM::XML::ManakaiDOMPr Line 4298  $stem = 'Message::DOM::XML::ManakaiDOMPr
4298   => \   => \
4299  (  (
4300    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .    'tag:suika.fam.cx,2005-09:' . time . ':' . $$ . ':' .
   ($Message::Util::ManakaiNode::UniqueIDR ||=  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62] .  
     [qw/A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  
         a b c d e f g h i j k l m n o p q r s t u v w x y z  
         0 1 2 3 4 5 6 7 8 9/]->[rand 62]) .  
4301    (++$Message::Util::ManakaiNode::UniqueIDN)    (++$Message::Util::ManakaiNode::UniqueIDN)
4302  )  )
4303  ,  ,
# Line 4816  child_nodes Line 4467  child_nodes
4467      if ($child->      if ($child->
4468  node_type  node_type
4469   ==   ==
4470  '1'  1
4471  ) {  ) {
4472        $r = $child;        $r = $child;
4473        last F;        last F;
# Line 4996  child_nodes Line 4647  child_nodes
4647  node_type  node_type
4648  ;  ;
4649      if ($nt ==      if ($nt ==
4650  '10'  10
4651  ) {  ) {
4652        $r = $child;        $r = $child;
4653        last F;        last F;
4654      } elsif ($nt ==      } elsif ($nt ==
4655  '1'  1
4656  ) { # document element  ) { # document element
4657        last F;        last F;
4658      }      }
# Line 5338  node_type Line 4989  node_type
4989  ;  ;
4990    my $oe;    my $oe;
4991    if ($nt ==    if ($nt ==
4992  '2'  2
4993  ) {  ) {
4994      $oe = $source->      $oe = $source->
4995  owner_element  owner_element
# Line 5352  report Message::DOM::DOMCore::ManakaiDOM Line 5003  report Message::DOM::DOMCore::ManakaiDOM
5003  ;  ;
5004      }      }
5005    } elsif ($nt ==    } elsif ($nt ==
5006  '9' or  9 or
5007                        
5008  $nt ==  $nt ==
5009  '10' or  10 or
5010                        
5011  $nt ==  $nt ==
5012  '6' or  6 or
5013                        
5014  $nt ==  $nt ==
5015  '12'  12
5016  ) {  ) {
5017            
5018  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';  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 5036  report Message::DOM::DOMCore::ManakaiDOM
5036  ;  ;
5037      }      }
5038      if ($nt ==      if ($nt ==
5039  '1'  1
5040  ) {  ) {
5041        push @change_od, $node;        push @change_od, $node;
5042        push @nodes, @{$node->        push @nodes, @{$node->
# Line 5403  item Line 5054  item
5054   ($i);   ($i);
5055        }        }
5056      } elsif ($nt ==      } elsif ($nt ==
5057  '2' or  2 or
5058                            
5059  $nt ==  $nt ==
5060  '5' or  5 or
5061                            
5062  $nt ==  $nt ==
5063  '11'  11
5064  ) {  ) {
5065        push @change_od, $node;        push @change_od, $node;
5066        push @nodes, @{$node->        push @nodes, @{$node->
5067  child_nodes  child_nodes
5068  };  };
5069      } elsif ($nt ==      } elsif ($nt ==
5070  '3' or  3 or
5071                            
5072  $nt ==  $nt ==
5073  '8' or  8 or
5074                            
5075  $nt ==  $nt ==
5076  '7' or  7 or
5077                            
5078  $nt ==  $nt ==
5079  '4'  4
5080  ) {  ) {
5081        push @change_od, $node;        push @change_od, $node;
5082      } else {      } else {
# Line 5560  $src_ud = $src->{ Line 5211  $src_ud = $src->{
5211  handle  handle
5212    
5213                   (                   (
5214  '5'  5
5215  ,  ,
5216                    $key, $src_ud->{$key}->[0], $src,                    $key, $src_ud->{$key}->[0], $src,
5217  undef  undef
# Line 5596  child_nodes Line 5247  child_nodes
5247      next N unless $node->      next N unless $node->
5248  node_type  node_type
5249   ==   ==
5250  '1'  1
5251  ;  ;
5252      for my $attr (@{$node->      for my $attr (@{$node->
5253  attributes  attributes
# Line 5675  my ($self, $namespaceURI, $localName) = Line 5326  my ($self, $namespaceURI, $localName) =
5326  if  if
5327  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5328        
5329  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:1162624877:6535:ypQRO33355+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5330    
5331  ;  ;
5332    
# Line 5791  my ($self, $n, $namespaceURI, $qualified Line 5442  my ($self, $n, $namespaceURI, $qualified
5442  if  if
5443  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {  (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
5444        
5445  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:1162624877:6535:ypQRO33355+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
5446    
5447  ;  ;
5448    
# Line 6000  $Message::Util::Grove::ClassProp{q<Messa Line 5651  $Message::Util::Grove::ClassProp{q<Messa
5651  'w0',  'w0',
5652  ['impl']};  ['impl']};
5653  package Message::DOM::IFLatest::DocumentFragment;  package Message::DOM::IFLatest::DocumentFragment;
5654  our $VERSION = 20060404.1133;  our $VERSION = 20061104.0940;
5655  package Message::DOM::Document::ManakaiDOMDocumentFragment;  package Message::DOM::Document::ManakaiDOMDocumentFragment;
5656  our $VERSION = 20060404.1133;  our $VERSION = 20061104.0940;
5657  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
5658  'Message::DOM::IF::DocumentFragment',  'Message::DOM::IF::DocumentFragment',
5659  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 6054  $r} Line 5705  $r}
5705  sub node_type ($;$) {  sub node_type ($;$) {
5706  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
5707  my $r;  my $r;
5708  $r = '11';  $r = 11;
5709  $r;  $r;
5710  } else {my ($self) = @_;  } else {my ($self) = @_;
5711  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';  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 5753  strict_error_checking
5753    ## -- Node Type check    ## -- Node Type check
5754    my @new_child;    my @new_child;
5755    if ({    if ({
5756      '3' => 1,      3 => 1,
5757      '5' => 1,      5 => 1,
5758      '1' => 1,      1 => 1,
5759      '7' => 1,      7 => 1,
5760      '4' => 1,      4 => 1,
5761      '8' => 1,      8 => 1,
5762    }->{$child_nt}) {    }->{$child_nt}) {
5763      push @new_child, $newChild;      push @new_child, $newChild;
5764    } elsif ($child_nt ==    } elsif ($child_nt ==
5765  '11'  11
5766  ) {  ) {
5767      for my $cn (@{$newChild->      for my $cn (@{$newChild->
5768  child_nodes  child_nodes
5769  }) {  }) {
5770        unless ({        unless ({
5771      '3' => 1,      3 => 1,
5772      '5' => 1,      5 => 1,
5773      '1' => 1,      1 => 1,
5774      '7' => 1,      7 => 1,
5775      '4' => 1,      4 => 1,
5776      '8' => 1,      8 => 1,
5777    }->{$cn->    }->{$cn->
5778  node_type  node_type
5779  }) {  }) {
# Line 6251  report Message::DOM::DOMCore::ManakaiDOM Line 5902  report Message::DOM::DOMCore::ManakaiDOM
5902    ## -- Removes from parent    ## -- Removes from parent
5903    if ($nc_parent) {    if ($nc_parent) {
5904      if ($child_nt ==      if ($child_nt ==
5905  '11'  11
5906  ) {  ) {
5907                
5908    
# Line 6425  strict_error_checking Line 6076  strict_error_checking
6076    ## -- Node Type check    ## -- Node Type check
6077    my @new_child;    my @new_child;
6078    if ({    if ({
6079      '3' => 1,      3 => 1,
6080      '5' => 1,      5 => 1,
6081      '1' => 1,      1 => 1,
6082      '7' => 1,      7 => 1,
6083      '4' => 1,      4 => 1,
6084      '8' => 1,      8 => 1,
6085    }->{$child_nt}) {    }->{$child_nt}) {
6086      push @new_child, $newChild;      push @new_child, $newChild;
6087    } elsif ($child_nt ==    } elsif ($child_nt ==
6088  '11'  11
6089  ) {  ) {
6090      for my $cn (@{$newChild->      for my $cn (@{$newChild->
6091  child_nodes  child_nodes
6092  }) {  }) {
6093        unless ({        unless ({
6094      '3' => 1,      3 => 1,
6095      '5' => 1,      5 => 1,
6096      '1' => 1,      1 => 1,
6097      '7' => 1,      7 => 1,
6098      '4' => 1,      4 => 1,
6099      '8' => 1,      8 => 1,
6100    }->{$cn->    }->{$cn->
6101  node_type  node_type
6102  }) {  }) {
# Line 6666  report Message::DOM::DOMCore::ManakaiDOM Line 6317  report Message::DOM::DOMCore::ManakaiDOM
6317    ## -- Removes from parent    ## -- Removes from parent
6318    if ($nc_parent) {    if ($nc_parent) {
6319      if ($child_nt ==      if ($child_nt ==
6320  '11'  11
6321  ) {  ) {
6322                
6323    
# Line 6848  strict_error_checking Line 6499  strict_error_checking
6499    ## -- Node Type check    ## -- Node Type check
6500    my @new_child;    my @new_child;
6501    if ({    if ({
6502      '3' => 1,      3 => 1,
6503      '5' => 1,      5 => 1,
6504      '1' => 1,      1 => 1,
6505      '7' => 1,      7 => 1,
6506      '4' => 1,      4 => 1,
6507      '8' => 1,      8 => 1,
6508    }->{$child_nt}) {    }->{$child_nt}) {
6509      push @new_child, $newChild;      push @new_child, $newChild;
6510    } elsif ($child_nt ==    } elsif ($child_nt ==
6511  '11'  11
6512  ) {  ) {
6513      for my $cn (@{$newChild->      for my $cn (@{$newChild->
6514  child_nodes  child_nodes
6515  }) {  }) {
6516        unless ({        unless ({
6517      '3' => 1,      3 => 1,
6518      '5' => 1,      5 => 1,
6519      '1' => 1,      1 => 1,
6520      '7' => 1,      7 => 1,
6521      '4' => 1,      4 => 1,
6522      '8' => 1,      8 => 1,
6523    }->{$cn->    }->{$cn->
6524  node_type  node_type
6525  }) {  }) {
# Line 7112  report Message::DOM::DOMCore::ManakaiDOM Line 6763  report Message::DOM::DOMCore::ManakaiDOM
6763    ## -- Removes from parent    ## -- Removes from parent
6764    if ($nc_parent) {    if ($nc_parent) {
6765      if ($child_nt ==      if ($child_nt ==
6766  '11'  11
6767  ) {  ) {
6768                
6769    
# Line 7291  last_child Line 6942  last_child
6942        $lc->        $lc->
6943  node_type  node_type
6944   ==   ==
6945  '3'  3
6946  ) {  ) {
6947      $lc->      $lc->
6948  manakai_append_text  manakai_append_text
# Line 7353  $feature =~ s/^\+//; Line 7004  $feature =~ s/^\+//;
7004    
7005  if  if
7006  ($Message::DOM::DOMFeature::ClassInfo->{ref $self}  ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
7007        ->{has_feature}->{$feature}->{$version}) {        ->{has_feature}->{$feature}->{$version} or
7008        $Message::Util::AutoLoad::Registry::Feature
7009            ->{$feature}->{$version}) {
7010    $r = $self;    $r = $self;
7011  } else {  } else {
7012    CLASS: for my $__class (sort {    CLASS: for my $__class (sort {
# Line 7364  if Line 7017  if
7017    } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}    } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::Document::ManakaiDOMDocumentFragment'}
7018                 ->{compat_class} or {}}) {                 ->{compat_class} or {}}) {
7019      if ($Message::DOM::DOMFeature::ClassInfo->{$__class}      if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
7020              ->{has_feature}->{$feature}->{$version}) {              ->{has_feature}->{$feature}->{$version} or
7021            $Message::Util::AutoLoad::Registry::Feature
7022                ->{$feature}->{$version}) {
7023                
7024    
7025  {  {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24