/[suikacvs]/messaging/manakai/lib/Message/Util/ManakaiNode.pm
Suika

Contents of /messaging/manakai/lib/Message/Util/ManakaiNode.pm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.9 - (hide annotations) (download)
Wed Sep 28 04:02:00 2005 UTC (19 years, 9 months ago) by wakaba
Branch: MAIN
Changes since 1.8: +168 -203 lines 
++ manakai/lib/Message/Markup/ChangeLog	28 Sep 2005 03:49:04 -0000
2005-09-27  Wakaba  <wakaba@suika.fam.cx>

	* SuikaWikiConfig21.dis: Codes to set "TreeCore:*"
	properties removed.

++ manakai/lib/Message/Util/ChangeLog	28 Sep 2005 03:50:26 -0000
	* ManakaiNode.dis (ManakaiNodeStem->new): Don't set "TreeCore:*"
	properties.
	(generateUniqueID): Use "tag:" URI.

	* DIS.dis (targetNamespaceURI): New attribute.
	(ManakaiDISModuleLite): Extends dx:ManakaiDefaultErrorHandler.
	(ManakaiDISModuleLite->AUTOLOAD): Don't load module
	if method name is "DESTROY".

2005-09-27  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/Util/DIS/ChangeLog	28 Sep 2005 03:51:56 -0000
2005-09-27  Wakaba  <wakaba@suika.fam.cx>

	* DNLite.dis: Use new DISModule->targetNamespaceURI attribute.

	* Perl.dis (plStore): Saves module definitions into
	database submodules.

++ manakai/lib/Message/DOM/ChangeLog	28 Sep 2005 03:46:49 -0000
	* DOMCore.dis, DOMXML.dis: Codes to set properties "TreeCore:*"
	is removed.
1 wakaba 1.1 #!/usr/bin/perl
2     ## This file is automatically generated
3 wakaba 1.9 ## at 2005-09-28T03:48:05+00:00,
4 wakaba 1.1 ## from file "lib/Message/Util/ManakaiNode.dis",
5     ## module <http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/ManakaiNode>,
6     ## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl>.
7     ## Don't edit by hand!
8     use strict;
9     package Message::Util::ManakaiNode;
10 wakaba 1.9 our $VERSION = 20050928.0348;
11 wakaba 1.1 package Message::Util::ManakaiNode::ManakaiDOMNodeObject;
12 wakaba 1.9 our $VERSION = 20050928.0348;
13 wakaba 1.1 push our @ISA, 'Message::Util::IF::NodeStem';
14     sub _import_tree ($$) {
15     my ($self, $node) = @_;
16    
17     {
18 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #39)"
19 wakaba 1.1
20 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #37)"
21 wakaba 1.1 unless
22 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1)"
23 wakaba 1.1 ($node->{
24     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #2)"
25 wakaba 1.4 'tid'
26     #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3)"
27 wakaba 1.1 } eq
28     $self->{
29     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #4)"
30 wakaba 1.4 'tid'
31     #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5)"
32 wakaba 1.1 }) {
33     my @node = ($node);
34 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
35 wakaba 1.1 next unless UNIVERSAL::isa ($node,
36    
37     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #6)"
38     'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
39 wakaba 1.4 #line 6 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7)"
40 wakaba 1.1 );
41     my @n;
42     for my $p (@{$node->{
43     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #8)"
44     'subnode2'
45 wakaba 1.4 #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #9)"
46 wakaba 1.1 }}) {
47     if (ref $node->{$p} eq 'ARRAY') {
48     push @n, @{$node->{$p}};
49     } elsif (ref $node->{$p} eq 'HASH') {
50     push @n, values %{$node->{$p}};
51     }
52     }
53     for my $p (@n,
54     map {$node->{$_}} @{$node->{
55     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #10)"
56     'subnode'
57 wakaba 1.4 #line 16 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #11)"
58 wakaba 1.1 }}) {
59     if (ref $p eq 'ARRAY') {
60     push @node, grep {UNIVERSAL::isa ($_,
61    
62     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #12)"
63     'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
64 wakaba 1.4 #line 19 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #13)"
65 wakaba 1.1 )
66     and $_->{
67     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #14)"
68 wakaba 1.4 'tid'
69     #line 20 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #15)"
70 wakaba 1.1 } ne
71     $self->{
72     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #16)"
73 wakaba 1.4 'tid'
74     #line 21 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #17)"
75 wakaba 1.1 }} @$p;
76     } elsif (ref $p eq 'HASH') {
77     push @node, grep {UNIVERSAL::isa ($_,
78    
79     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #18)"
80     'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
81 wakaba 1.4 #line 24 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #19)"
82 wakaba 1.1 )
83     and $_->{
84     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #20)"
85 wakaba 1.4 'tid'
86     #line 25 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #21)"
87 wakaba 1.1 } ne
88     $self->{
89     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #22)"
90 wakaba 1.4 'tid'
91     #line 26 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #23)"
92 wakaba 1.1 }}
93     values %$p;
94     }
95     }
96     for my $p (@{$node->{
97     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #24)"
98     'origin'
99 wakaba 1.4 #line 30 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #25)"
100 wakaba 1.1 }},
101     @{$node->{
102     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #26)"
103     'subnode0'
104 wakaba 1.4 #line 31 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #27)"
105 wakaba 1.1 }}) {
106     push @node, $node->{$p}
107     if defined $node->{$p} and
108     $node->{$p}->{
109     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #28)"
110 wakaba 1.4 'tid'
111     #line 34 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #29)"
112 wakaba 1.1 } ne
113     $self->{
114     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #30)"
115 wakaba 1.4 'tid'
116     #line 35 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #31)"
117 wakaba 1.1 };
118     }
119     $node->{
120     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #32)"
121 wakaba 1.4 'tid'
122     #line 37 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #33)"
123 wakaba 1.1 } = $self->{
124     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #34)"
125 wakaba 1.4 'tid'
126     #line 37 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #35)"
127 wakaba 1.1 };
128     }
129     }
130     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #36)"
131    
132     #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #38)"
133    
134     #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #40)"
135     }
136     }
137     sub _orphanate ($) {
138     my ($self) = @_;
139    
140     {
141 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #53)"
142 wakaba 1.1
143 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #51)"
144 wakaba 1.1 if
145 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #41)"
146 wakaba 1.1 ($self->
147     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #42)"
148     _is_externally_referred
149 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #43)"
150 wakaba 1.1 ) {
151     $self->
152     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #44)"
153     _change_tree_id
154 wakaba 1.4 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #45)"
155 wakaba 1.1
156     (
157     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #46)"
158     (
159 wakaba 1.9 sprintf 'tag:suika.fam.cx,2005-09:%x:%x%s',
160 wakaba 1.1 time, $$,
161     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
162     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
163     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
164     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
165     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62]
166     )
167 wakaba 1.4 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #47)"
168 wakaba 1.1 );
169     } else {
170     $self->
171     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #48)"
172     _destroy
173 wakaba 1.4 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #49)"
174 wakaba 1.1 ;
175     }
176     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #50)"
177    
178     #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #52)"
179    
180     #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #54)"
181     }
182     }
183     sub _is_externally_referred ($) {
184     my ($self) = @_;
185     my $r;
186    
187     {
188 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #83)"
189 wakaba 1.1
190 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #81)"
191 wakaba 1.1 if
192 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #55)"
193 wakaba 1.1 ($self->{
194     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #56)"
195     'rc'
196 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #57)"
197 wakaba 1.1 }) {
198     $r =
199     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #58)"
200     1
201 wakaba 1.4 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #59)"
202 wakaba 1.1 ;
203     } else {
204     my @node = ($self);
205     my %checked;
206 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
207 wakaba 1.1 next unless UNIVERSAL::isa ($node,
208    
209     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #60)"
210     'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
211 wakaba 1.4 #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #61)"
212 wakaba 1.1 );
213     if ($node->{
214     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #62)"
215     'rc'
216 wakaba 1.4 #line 9 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #63)"
217 wakaba 1.1 }) {
218     $r =
219     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #64)"
220     1
221 wakaba 1.4 #line 10 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #65)"
222 wakaba 1.1 ;
223     last NODES;
224     } elsif ($checked{$node->{
225     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #66)"
226 wakaba 1.4 'nid'
227     #line 12 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #67)"
228 wakaba 1.1 }}) {
229     next NODES;
230     }
231     my @n;
232     for my $p (@{$node->{
233     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #68)"
234     'subnode2'
235 wakaba 1.4 #line 16 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #69)"
236 wakaba 1.1 }}) {
237     if (ref $node->{$p} eq 'ARRAY') {
238     push @n, @{$node->{$p}};
239     } elsif (ref $node->{$p} eq 'HASH') {
240     push @n, values %{$node->{$p}};
241     }
242     }
243     for my $p (@n,
244     map {$node->{$_}} @{$node->{
245     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #70)"
246     'subnode'
247 wakaba 1.4 #line 24 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #71)"
248 wakaba 1.1 }}) {
249     if (ref $p eq 'ARRAY') {
250     push @node, @$p;
251     } elsif (ref $p eq 'HASH') {
252     push @node, values %$p;
253     }
254     }
255     for my $p (@{$node->{
256     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #72)"
257     'origin'
258 wakaba 1.4 #line 31 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #73)"
259 wakaba 1.1 }}) {
260     unshift @node, $node->{$p} if $node->{$p};
261     ## NOTE: Puts the top of the list,
262     ## since upper-level nodes are expected to be referred
263     ## more than lower-levels.
264     }
265     for my $p (@{$node->{
266     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #74)"
267     'subnode0'
268 wakaba 1.4 #line 37 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #75)"
269 wakaba 1.1 }}) {
270     push @node, $node->{$p} if $node->{$p};
271     }
272     $checked{$node->{
273     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #76)"
274 wakaba 1.4 'nid'
275     #line 40 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #77)"
276     }} =
277     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #78)"
278     1
279     #line 40 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #79)"
280     ;
281 wakaba 1.1 }
282     }
283 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #80)"
284 wakaba 1.1
285 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #82)"
286 wakaba 1.1
287 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #84)"
288 wakaba 1.1 }
289     $r}
290     sub _destroy ($) {
291     my ($self) = @_;
292    
293     {
294 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #107)"
295 wakaba 1.1
296 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #105)"
297 wakaba 1.1 my
298 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #85)"
299 wakaba 1.1 @node = ($self);
300 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
301 wakaba 1.1 my @n;
302     for my $p (@{$node->{
303 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #86)"
304 wakaba 1.1 'subnode2'
305 wakaba 1.4 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #87)"
306 wakaba 1.1 }}) {
307     if (ref $node->{$p} eq 'ARRAY') {
308     push @n, @{$node->{$p}};
309     } elsif (ref $node->{$p} eq 'HASH') {
310     push @n, values %{$node->{$p}};
311     }
312     }
313     for my $p (@n,
314     map {$node->{$_}} @{$node->{
315 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #88)"
316 wakaba 1.1 'subnode'
317 wakaba 1.4 #line 12 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #89)"
318 wakaba 1.1 }}) {
319     if (ref $p eq 'ARRAY') {
320     push @node, grep {UNIVERSAL::isa ($_,
321    
322 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #90)"
323 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
324 wakaba 1.4 #line 15 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #91)"
325 wakaba 1.1 )
326     and defined $_->{
327 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #92)"
328     'nid'
329     #line 16 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #93)"
330 wakaba 1.1 }} @$p;
331     } elsif (ref $p eq 'HASH') {
332     push @node, grep {UNIVERSAL::isa ($_,
333    
334 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #94)"
335 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
336 wakaba 1.4 #line 19 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #95)"
337 wakaba 1.1 )
338     and defined $_->{
339 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #96)"
340     'nid'
341     #line 20 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #97)"
342 wakaba 1.1 }}
343     values %$p;
344     }
345     }
346     for my $p (@{$node->{
347 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #98)"
348 wakaba 1.1 'origin'
349 wakaba 1.4 #line 24 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #99)"
350 wakaba 1.1 }},
351     @{$node->{
352 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #100)"
353 wakaba 1.1 'subnode0'
354 wakaba 1.4 #line 25 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #101)"
355 wakaba 1.1 }}) {
356     push @node, $node->{$p}
357     if defined $node->{$p} and
358     defined $node->{$p}->{
359 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #102)"
360     'nid'
361     #line 28 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #103)"
362 wakaba 1.1 };
363     }
364     %$node = ();
365     }
366 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #104)"
367 wakaba 1.1
368 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #106)"
369 wakaba 1.1
370 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #108)"
371 wakaba 1.1 }
372     }
373     sub _change_tree_id ($$) {
374     my ($self, $treeID) = @_;
375    
376     {
377 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #137)"
378 wakaba 1.1
379 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #135)"
380 wakaba 1.1 unless
381 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #109)"
382 wakaba 1.1 ($self->{
383 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #110)"
384     'tid'
385     #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #111)"
386 wakaba 1.1 } eq $treeID) {
387     my @node = ($self);
388 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
389 wakaba 1.1 next unless UNIVERSAL::isa ($node,
390    
391 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #112)"
392 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
393 wakaba 1.4 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #113)"
394 wakaba 1.1 );
395     my @n;
396     for my $p (@{$node->{
397 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #114)"
398 wakaba 1.1 'subnode2'
399 wakaba 1.4 #line 7 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #115)"
400 wakaba 1.1 }}) {
401     if (ref $node->{$p} eq 'ARRAY') {
402     push @n, @{$node->{$p}};
403     } elsif (ref $node->{$p} eq 'HASH') {
404     push @n, values %{$node->{$p}};
405     }
406     }
407     for my $p (@n,
408     map {$node->{$_}} @{$node->{
409 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #116)"
410 wakaba 1.1 'subnode'
411 wakaba 1.4 #line 15 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #117)"
412 wakaba 1.1 }}) {
413     if (ref $p eq 'ARRAY') {
414     push @node, grep {UNIVERSAL::isa ($_,
415    
416 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #118)"
417 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
418 wakaba 1.4 #line 18 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #119)"
419 wakaba 1.1 )
420     and
421     $_->{
422 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #120)"
423     'tid'
424     #line 20 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #121)"
425 wakaba 1.1 } ne $treeID} @$p;
426     } elsif (ref $p eq 'HASH') {
427     push @node, grep {UNIVERSAL::isa ($_,
428    
429 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #122)"
430 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
431 wakaba 1.4 #line 23 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #123)"
432 wakaba 1.1 )
433     and $_->{
434 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #124)"
435     'tid'
436     #line 24 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #125)"
437 wakaba 1.1 } ne $treeID}
438     values %$p;
439     }
440     }
441     for my $p (@{$node->{
442 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #126)"
443 wakaba 1.1 'origin'
444 wakaba 1.4 #line 28 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #127)"
445 wakaba 1.1 }},
446     @{$node->{
447 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #128)"
448 wakaba 1.1 'subnode0'
449 wakaba 1.4 #line 29 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #129)"
450 wakaba 1.1 }}) {
451     push @node, $node->{$p}
452     if defined $node->{$p} and
453     $node->{$p}->{
454 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #130)"
455     'tid'
456     #line 32 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #131)"
457 wakaba 1.1 } ne $treeID;
458     }
459     $node->{
460 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #132)"
461     'tid'
462     #line 34 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #133)"
463 wakaba 1.1 } = $treeID;
464     }
465     }
466 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #134)"
467 wakaba 1.1
468 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #136)"
469 wakaba 1.1
470 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #138)"
471 wakaba 1.1 }
472     }
473     sub _new ($) {
474     my ($self) = @_;
475     my $r;
476    
477     {
478 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #167)"
479 wakaba 1.1
480 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #165)"
481 wakaba 1.1
482 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #139)"
483 wakaba 1.1 $r = bless {
484    
485 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #140)"
486 wakaba 1.1 'origin'
487 wakaba 1.4 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #141)"
488 wakaba 1.1 => [],
489    
490 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #142)"
491 wakaba 1.1 'subnode0'
492 wakaba 1.4 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #143)"
493 wakaba 1.1 => [],
494    
495 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #144)"
496 wakaba 1.1 'subnode'
497 wakaba 1.4 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #145)"
498 wakaba 1.1 => [],
499    
500 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #146)"
501 wakaba 1.1 'subnode2'
502 wakaba 1.4 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #147)"
503 wakaba 1.1 => [],
504    
505 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #148)"
506 wakaba 1.1 'irefnode'
507 wakaba 1.4 #line 6 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #149)"
508 wakaba 1.1 => [],
509    
510 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #150)"
511 wakaba 1.1 'anydata'
512 wakaba 1.4 #line 7 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #151)"
513 wakaba 1.1 => [],
514    
515 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #152)"
516 wakaba 1.1 'anydata2'
517 wakaba 1.4 #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #153)"
518 wakaba 1.1 => [],
519    
520 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #154)"
521 wakaba 1.1 'rc'
522 wakaba 1.4 #line 9 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #155)"
523 wakaba 1.1 => 0,
524    
525 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #156)"
526     'tid'
527     #line 10 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #157)"
528 wakaba 1.1 =>
529 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #158)"
530 wakaba 1.1 (
531 wakaba 1.9 sprintf 'tag:suika.fam.cx,2005-09:%x:%x%s',
532 wakaba 1.1 time, $$,
533     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
534     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
535     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
536     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
537     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62]
538     )
539 wakaba 1.4 #line 10 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #159)"
540 wakaba 1.1 ,
541    
542 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #160)"
543     'nid'
544     #line 11 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #161)"
545 wakaba 1.1 =>
546 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #162)"
547 wakaba 1.1 (
548 wakaba 1.9 sprintf 'tag:suika.fam.cx,2005-09:%x:%x%s',
549 wakaba 1.1 time, $$,
550     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
551     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
552     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
553     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
554     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62]
555     )
556 wakaba 1.4 #line 11 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #163)"
557 wakaba 1.1 ,
558     }, ref $self || $self;
559 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #164)"
560 wakaba 1.1
561 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #166)"
562 wakaba 1.1
563 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #168)"
564 wakaba 1.1 }
565     $r}
566     sub _is_same_node ($$) {
567     my ($self, $node) = @_;
568     my $r;
569    
570     {
571 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #181)"
572 wakaba 1.1
573 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #179)"
574 wakaba 1.1 if
575 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #169)"
576 wakaba 1.1 (ref $node and
577     UNIVERSAL::isa ($node,
578    
579 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #170)"
580 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeObject'
581 wakaba 1.4 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #171)"
582 wakaba 1.1 ) and
583     $node->{
584 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #172)"
585     'nid'
586     #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #173)"
587 wakaba 1.1 } eq $self->{
588 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #174)"
589     'nid'
590     #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #175)"
591 wakaba 1.1 }) {
592     $r =
593 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #176)"
594 wakaba 1.1 1
595 wakaba 1.4 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #177)"
596 wakaba 1.1 ;
597     }
598 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #178)"
599 wakaba 1.1
600 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #180)"
601 wakaba 1.1
602 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #182)"
603 wakaba 1.1 }
604     $r}
605     sub _new_reference ($$) {
606     my ($self, $class) = @_;
607     my $r;
608    
609     {
610 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=newReference][@type=DISLang:Method]/Return[@Type=ManakaiDOM:ManakaiDOMNodeReference][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #193)"
611 wakaba 1.1
612 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=newReference][@type=DISLang:Method]/Return[@Type=ManakaiDOM:ManakaiDOMNodeReference][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #191)"
613 wakaba 1.1
614 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=newReference][@type=DISLang:Method]/Return[@Type=ManakaiDOM:ManakaiDOMNodeReference][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #183)"
615 wakaba 1.1 $r = bless {
616    
617 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #184)"
618 wakaba 1.1 'node'
619 wakaba 1.4 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=newReference][@type=DISLang:Method]/Return[@Type=ManakaiDOM:ManakaiDOMNodeReference][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #185)"
620 wakaba 1.1 => $self,
621     }, ref $class ? ref $class : defined $class ? $class :
622    
623 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #186)"
624 wakaba 1.1 'Message::Util::ManakaiNode::ManakaiDOMNodeReference'
625 wakaba 1.4 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=newReference][@type=DISLang:Method]/Return[@Type=ManakaiDOM:ManakaiDOMNodeReference][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #187)"
626 wakaba 1.1 ;
627     $self->{
628 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #188)"
629 wakaba 1.1 'rc'
630 wakaba 1.4 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=newReference][@type=DISLang:Method]/Return[@Type=ManakaiDOM:ManakaiDOMNodeReference][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #189)"
631 wakaba 1.1 }++;
632 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #190)"
633 wakaba 1.1
634 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #192)"
635 wakaba 1.1
636 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #194)"
637 wakaba 1.1 }
638     $r}
639     use overload bool => sub () {1}, 'eq', '_is_same_node', fallback => 1;
640     $Message::DOM::ClassFeature{q<Message::Util::ManakaiNode::ManakaiDOMNodeObject>} = {};
641     $Message::DOM::ClassPoint{q<Message::Util::ManakaiNode::ManakaiDOMNodeObject>} = 0;
642     package Message::Util::ManakaiNode::ManakaiNodeStem;
643 wakaba 1.9 our $VERSION = 20050928.0348;
644 wakaba 1.1 push our @ISA, 'Message::Util::IF::NodeStem';
645     sub _import_tree ($$) {
646     my ($self, $node) = @_;
647    
648     {
649 wakaba 1.8 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #217)"
650 wakaba 1.1
651 wakaba 1.8 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #215)"
652 wakaba 1.1 my
653 wakaba 1.4 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #195)"
654 wakaba 1.1 @node = ($node);
655 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
656 wakaba 1.1 next unless ref $node;
657 wakaba 1.5 next if ${$node->{
658 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #196)"
659     'tid'
660     #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #197)"
661 wakaba 1.5 }} eq
662     ${$self->{
663 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #198)"
664     'tid'
665     #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #199)"
666 wakaba 1.5 }};
667 wakaba 1.1 my @n;
668 wakaba 1.8 my $nt = $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{
669     $node->{
670 wakaba 1.4 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #200)"
671 wakaba 1.8 't'
672     #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #201)"
673     }
674     };
675     for my $p (@{$nt->{
676     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #202)"
677     's2'
678     #line 10 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #203)"
679 wakaba 1.1 }}) {
680     if (ref $node->{$p} eq 'ARRAY') {
681     push @n, @{$node->{$p}};
682     } elsif (ref $node->{$p} eq 'HASH') {
683     push @n, values %{$node->{$p}};
684     }
685     }
686     for my $p (@n,
687 wakaba 1.8 map {$node->{$_}} @{$nt->{
688     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #204)"
689     's'
690     #line 18 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #205)"
691 wakaba 1.1 }}) {
692     if (ref $p eq 'ARRAY') {
693     push @node, @$p;
694     } elsif (ref $p eq 'HASH') {
695     push @node, values %$p;
696     }
697     }
698 wakaba 1.8 for my $p (@{$nt->{
699     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #206)"
700     'o'
701     #line 25 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #207)"
702 wakaba 1.1 }},
703 wakaba 1.8 @{$nt->{
704     #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #208)"
705     's0'
706     #line 26 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #209)"
707 wakaba 1.1 }}) {
708     push @node, $node->{$p};
709     }
710     $node->{
711 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #210)"
712 wakaba 1.4 'tid'
713 wakaba 1.8 #line 29 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #211)"
714 wakaba 1.1 } = $self->{
715 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #212)"
716 wakaba 1.4 'tid'
717 wakaba 1.8 #line 29 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=importTree][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #213)"
718 wakaba 1.1 };
719     }
720 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #214)"
721 wakaba 1.1
722 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #216)"
723 wakaba 1.1
724 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #218)"
725 wakaba 1.1 }
726     }
727 wakaba 1.7 sub _new ($$) {
728     my ($self, $className) = @_;
729 wakaba 1.1 my $r;
730    
731     {
732 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #235)"
733 wakaba 1.1
734 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #233)"
735 wakaba 1.1
736 wakaba 1.8 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #219)"
737 wakaba 1.1 $r = bless {
738    
739 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #220)"
740 wakaba 1.9 't'
741 wakaba 1.8 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #221)"
742 wakaba 1.9 => $className,
743 wakaba 1.1
744 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #222)"
745 wakaba 1.9 'rc'
746 wakaba 1.8 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #223)"
747 wakaba 1.9 => 0,
748 wakaba 1.1
749 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #224)"
750 wakaba 1.9 'tid'
751 wakaba 1.8 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #225)"
752 wakaba 1.9 => \ (
753 wakaba 1.8 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #226)"
754 wakaba 1.1 (
755 wakaba 1.9 sprintf 'tag:suika.fam.cx,2005-09:%x:%x%s',
756 wakaba 1.1 time, $$,
757     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
758     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
759     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
760     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
761     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62]
762     )
763 wakaba 1.9 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #227)"
764 wakaba 1.5 ),
765 wakaba 1.1
766 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #228)"
767 wakaba 1.4 'nid'
768 wakaba 1.9 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #229)"
769 wakaba 1.1 =>
770 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #230)"
771 wakaba 1.1 (
772 wakaba 1.9 sprintf 'tag:suika.fam.cx,2005-09:%x:%x%s',
773 wakaba 1.1 time, $$,
774     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
775     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
776     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
777     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
778     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62]
779     )
780 wakaba 1.9 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=new][@type=DISLang:Method]/Return[@Type=NodeStem][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #231)"
781 wakaba 1.1 ,
782     }, ref $self || $self;
783 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #232)"
784 wakaba 1.1
785 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #234)"
786 wakaba 1.1
787 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #236)"
788 wakaba 1.1 }
789     $r}
790     sub _orphanate ($) {
791     my ($self) = @_;
792    
793     {
794 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #249)"
795 wakaba 1.1
796 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #247)"
797 wakaba 1.1 if
798 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #237)"
799 wakaba 1.1 ($self->
800 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #238)"
801 wakaba 1.1 _is_externally_referred
802 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #239)"
803 wakaba 1.1 ) {
804     $self->
805 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #240)"
806 wakaba 1.1 _change_tree_id
807 wakaba 1.9 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #241)"
808 wakaba 1.1
809 wakaba 1.5 (\(
810 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #242)"
811 wakaba 1.1 (
812 wakaba 1.9 sprintf 'tag:suika.fam.cx,2005-09:%x:%x%s',
813 wakaba 1.1 time, $$,
814     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
815     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
816     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
817     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62] .
818     ['A'..'Z', 'a'..'z', '0'..'9']->[rand 62]
819     )
820 wakaba 1.9 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #243)"
821 wakaba 1.5 ));
822 wakaba 1.1 } else {
823     $self->
824 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #244)"
825 wakaba 1.1 _destroy
826 wakaba 1.9 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=orphanate][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #245)"
827 wakaba 1.1 ;
828     }
829 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #246)"
830 wakaba 1.1
831 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #248)"
832 wakaba 1.1
833 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #250)"
834 wakaba 1.1 }
835     }
836     sub _is_externally_referred ($) {
837     my ($self) = @_;
838     my $r;
839    
840     {
841 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #277)"
842 wakaba 1.1
843 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #275)"
844 wakaba 1.1 if
845 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #251)"
846 wakaba 1.1 ($self->{
847 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #252)"
848 wakaba 1.1 'rc'
849 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #253)"
850 wakaba 1.1 }) {
851     $r =
852 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #254)"
853 wakaba 1.1 1
854 wakaba 1.9 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #255)"
855 wakaba 1.1 ;
856     } else {
857     my @node = ($self);
858     my %checked;
859 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
860 wakaba 1.1 next unless ref $node;
861     if ($node->{
862 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #256)"
863 wakaba 1.1 'rc'
864 wakaba 1.9 #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #257)"
865 wakaba 1.1 }) {
866     $r =
867 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #258)"
868 wakaba 1.1 1
869 wakaba 1.9 #line 9 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #259)"
870 wakaba 1.1 ;
871     last NODES;
872     } elsif ($checked{$node->{
873 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #260)"
874 wakaba 1.4 'nid'
875 wakaba 1.9 #line 11 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #261)"
876 wakaba 1.1 }}) {
877     next NODES;
878     }
879     my @n;
880 wakaba 1.8 my $nt = $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{
881     $node->{
882 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #262)"
883 wakaba 1.8 't'
884 wakaba 1.9 #line 16 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #263)"
885 wakaba 1.8 }
886     };
887     for my $p (@{$nt->{
888 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #264)"
889 wakaba 1.8 's2'
890 wakaba 1.9 #line 18 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #265)"
891 wakaba 1.8 }||[]}) {
892 wakaba 1.1 if (ref $node->{$p} eq 'ARRAY') {
893     push @n, @{$node->{$p}};
894     } elsif (ref $node->{$p} eq 'HASH') {
895     push @n, values %{$node->{$p}};
896     }
897     }
898     for my $p (@n,
899 wakaba 1.8 map {$node->{$_}} @{$nt->{
900 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #266)"
901 wakaba 1.8 's'
902 wakaba 1.9 #line 26 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #267)"
903 wakaba 1.8 }||[]}) {
904 wakaba 1.1 if (ref $p eq 'ARRAY') {
905     push @node, @$p;
906     } elsif (ref $p eq 'HASH') {
907     push @node, values %$p;
908     }
909     }
910 wakaba 1.8 for my $p (@{$nt->{
911 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #268)"
912 wakaba 1.8 'o'
913 wakaba 1.9 #line 33 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #269)"
914 wakaba 1.8 }||[]}) {
915 wakaba 1.1 unshift @node, $node->{$p} if $node->{$p};
916     ## NOTE: Puts the top of the list,
917     ## since upper-level nodes are expected to be referred
918     ## more than lower-levels.
919     }
920 wakaba 1.8 for my $p (@{$nt->{
921 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #270)"
922 wakaba 1.8 's0'
923 wakaba 1.9 #line 39 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #271)"
924 wakaba 1.1 }}) {
925     push @node, $node->{$p} if $node->{$p};
926     }
927     $checked{$node->{
928 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #272)"
929 wakaba 1.4 'nid'
930 wakaba 1.9 #line 42 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isExternallyReferred][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #273)"
931 wakaba 1.1 }} = 1;
932     }
933     }
934 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #274)"
935 wakaba 1.1
936 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #276)"
937 wakaba 1.1
938 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #278)"
939 wakaba 1.1 }
940     $r}
941     sub _is_same_node ($$) {
942     my ($self, $node) = @_;
943     my $r;
944    
945     {
946 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #291)"
947 wakaba 1.1
948 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #289)"
949 wakaba 1.1 if
950 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #279)"
951 wakaba 1.1 (ref $node and
952     UNIVERSAL::isa ($node,
953 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #280)"
954 wakaba 1.8 'Message::Util::ManakaiNode::ManakaiNodeStem'
955 wakaba 1.9 #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #281)"
956 wakaba 1.1 ) and
957     $node->{
958 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #282)"
959 wakaba 1.4 'nid'
960 wakaba 1.9 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #283)"
961 wakaba 1.1 } eq $self->{
962 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #284)"
963 wakaba 1.4 'nid'
964 wakaba 1.9 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #285)"
965 wakaba 1.1 }) {
966     $r =
967 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #286)"
968 wakaba 1.1 1
969 wakaba 1.9 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=isSameNode][@type=DISLang:Method]/Return[@Type=DISPerl:Boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #287)"
970 wakaba 1.1 ;
971     }
972 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #288)"
973 wakaba 1.1
974 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #290)"
975 wakaba 1.1
976 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #292)"
977 wakaba 1.1 }
978     $r}
979     sub _destroy ($) {
980     my ($self) = @_;
981    
982     {
983 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #309)"
984 wakaba 1.1
985 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #307)"
986 wakaba 1.1 my
987 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #293)"
988 wakaba 1.1 @node = ($self);
989 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
990 wakaba 1.1 next unless ref $node and defined $node->{
991 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #294)"
992 wakaba 1.4 'nid'
993 wakaba 1.9 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #295)"
994 wakaba 1.1 };
995     my @n;
996 wakaba 1.8 my $nt = $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{
997     $node->{
998 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #296)"
999 wakaba 1.8 't'
1000 wakaba 1.9 #line 6 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #297)"
1001 wakaba 1.8 }
1002     };
1003     for my $p (@{$nt->{
1004 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #298)"
1005 wakaba 1.8 's2'
1006 wakaba 1.9 #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #299)"
1007 wakaba 1.1 }}) {
1008     if (ref $node->{$p} eq 'ARRAY') {
1009     push @n, @{$node->{$p}};
1010     } elsif (ref $node->{$p} eq 'HASH') {
1011     push @n, values %{$node->{$p}};
1012     }
1013     }
1014     for my $p (@n,
1015 wakaba 1.8 map {$node->{$_}} @{$nt->{
1016 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #300)"
1017 wakaba 1.8 's'
1018 wakaba 1.9 #line 16 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #301)"
1019 wakaba 1.1 }}) {
1020     if (ref $p eq 'ARRAY') {
1021     push @node, @$p;
1022     } elsif (ref $p eq 'HASH') {
1023     push @node, values %$p;
1024     }
1025     }
1026 wakaba 1.8 for my $p (@{$nt->{
1027 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #302)"
1028 wakaba 1.8 'o'
1029 wakaba 1.9 #line 23 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #303)"
1030 wakaba 1.1 }},
1031 wakaba 1.8 @{$nt->{
1032 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #304)"
1033 wakaba 1.8 's0'
1034 wakaba 1.9 #line 24 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #305)"
1035 wakaba 1.1 }}) {
1036     push @node, $node->{$p};
1037     }
1038     %$node = ();
1039     }
1040 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #306)"
1041 wakaba 1.1
1042 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #308)"
1043 wakaba 1.1
1044 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #310)"
1045 wakaba 1.1 }
1046     }
1047     sub _change_tree_id ($$) {
1048     my ($self, $treeID) = @_;
1049    
1050     {
1051 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #329)"
1052 wakaba 1.1
1053 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #327)"
1054 wakaba 1.1 my
1055 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #311)"
1056 wakaba 1.5 $tid = ref $treeID ? $treeID : \$treeID;
1057     my @node = ($self);
1058 wakaba 1.2 NODES: while (defined (my $node = shift @node)) {
1059 wakaba 1.1 next unless ref $node;
1060 wakaba 1.5 next if ${$node->{
1061 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #312)"
1062 wakaba 1.4 'tid'
1063 wakaba 1.9 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #313)"
1064 wakaba 1.5 }} eq $$tid;
1065 wakaba 1.1 my @n;
1066 wakaba 1.8 my $nt = $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{
1067     $node->{
1068 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #314)"
1069 wakaba 1.8 't'
1070 wakaba 1.9 #line 8 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #315)"
1071 wakaba 1.8 }
1072     };
1073     for my $p (@{$nt->{
1074 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #316)"
1075 wakaba 1.8 's2'
1076 wakaba 1.9 #line 10 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #317)"
1077 wakaba 1.1 }}) {
1078     if (ref $node->{$p} eq 'ARRAY') {
1079     push @n, @{$node->{$p}};
1080     } elsif (ref $node->{$p} eq 'HASH') {
1081     push @n, values %{$node->{$p}};
1082     }
1083     }
1084     for my $p (@n,
1085 wakaba 1.8 map {$node->{$_}} @{$nt->{
1086 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #318)"
1087 wakaba 1.8 's'
1088 wakaba 1.9 #line 18 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #319)"
1089 wakaba 1.1 }}) {
1090     if (ref $p eq 'ARRAY') {
1091     push @node, @$p;
1092     } elsif (ref $p eq 'HASH') {
1093     push @node, values %$p;
1094     }
1095     }
1096 wakaba 1.8 for my $p (@{$nt->{
1097 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #320)"
1098 wakaba 1.8 'o'
1099 wakaba 1.9 #line 25 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #321)"
1100 wakaba 1.1 }},
1101 wakaba 1.8 @{$nt->{
1102 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #322)"
1103 wakaba 1.8 's0'
1104 wakaba 1.9 #line 26 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #323)"
1105 wakaba 1.1 }}) {
1106     push @node, $node->{$p};
1107     }
1108     $node->{
1109 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #324)"
1110 wakaba 1.4 'tid'
1111 wakaba 1.9 #line 29 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=changeTreeID][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #325)"
1112 wakaba 1.5 } = $tid;
1113 wakaba 1.1 }
1114 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #326)"
1115 wakaba 1.1
1116 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #328)"
1117 wakaba 1.1
1118 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #330)"
1119 wakaba 1.1 }
1120     }
1121     use overload bool => sub () {1}, 'eq', '_is_same_node', fallback => 1;
1122     $Message::DOM::ClassFeature{q<Message::Util::ManakaiNode::ManakaiNodeStem>} = {};
1123     $Message::DOM::ClassPoint{q<Message::Util::ManakaiNode::ManakaiNodeStem>} = 0;
1124     package Message::Util::ManakaiNode::ManakaiDOMNodeReference;
1125 wakaba 1.9 our $VERSION = 20050928.0348;
1126 wakaba 1.1 push our @ISA, 'Message::Util::IF::NodeRef';
1127     *DESTROY = \&_destroy;
1128     sub _destroy ($) {
1129     my ($self) = @_;
1130    
1131     {
1132 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #347)"
1133 wakaba 1.1
1134 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #345)"
1135 wakaba 1.1 my
1136 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #331)"
1137 wakaba 1.1 $node = $self->{
1138 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #332)"
1139 wakaba 1.1 'node'
1140 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #333)"
1141 wakaba 1.1 };
1142     if ($node) {
1143     CORE::delete $self->{
1144 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #334)"
1145 wakaba 1.1 'node'
1146 wakaba 1.9 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #335)"
1147 wakaba 1.1 };
1148     unless ($self->{
1149 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #336)"
1150 wakaba 1.4 'w'
1151 wakaba 1.9 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #337)"
1152 wakaba 1.1 }) {
1153     $node->{
1154 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #338)"
1155 wakaba 1.1 'rc'
1156 wakaba 1.9 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #339)"
1157 wakaba 1.1 }--;
1158     unless ($node->
1159 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #340)"
1160 wakaba 1.1 _is_externally_referred
1161 wakaba 1.9 #line 6 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #341)"
1162 wakaba 1.1 ) {
1163     $node->
1164 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #342)"
1165 wakaba 1.1 _destroy
1166 wakaba 1.9 #line 7 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #343)"
1167 wakaba 1.1 ;
1168     }
1169     }
1170     } else {
1171     warn ref ($self) . q{->DESTROY: there is no associated }.
1172     q{node object - you have a global variable or }.
1173     qq{potential memory-leak detected\n};
1174     }
1175 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #344)"
1176 wakaba 1.1
1177 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #346)"
1178 wakaba 1.1
1179 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #348)"
1180 wakaba 1.1 }
1181     }
1182     $Message::DOM::ClassFeature{q<Message::Util::ManakaiNode::ManakaiDOMNodeReference>} = {};
1183     $Message::DOM::ClassPoint{q<Message::Util::ManakaiNode::ManakaiDOMNodeReference>} = 0;
1184     package Message::Util::ManakaiNode::ManakaiNodeRef;
1185 wakaba 1.9 our $VERSION = 20050928.0348;
1186 wakaba 1.1 push our @ISA, 'Message::Util::IF::NodeRef';
1187 wakaba 1.2 sub free ($) {
1188     my ($self) = @_;
1189    
1190     {
1191 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@Name=free][@type=DISLang|Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #357)"
1192 wakaba 1.2
1193 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@Name=free][@type=DISLang|Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #355)"
1194 wakaba 1.2
1195 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@Name=free][@type=DISLang|Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #349)"
1196 wakaba 1.2 $self->{
1197 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #350)"
1198 wakaba 1.2 'node'
1199 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@Name=free][@type=DISLang|Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #351)"
1200 wakaba 1.2 }->
1201 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #352)"
1202 wakaba 1.2 _destroy
1203 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@Name=free][@type=DISLang|Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #353)"
1204 wakaba 1.2 ;
1205 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #354)"
1206 wakaba 1.2
1207 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #356)"
1208 wakaba 1.2
1209 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #358)"
1210 wakaba 1.2 }
1211     }
1212 wakaba 1.1 *DESTROY = \&_destroy;
1213     sub _destroy ($) {
1214     my ($self) = @_;
1215    
1216     {
1217 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #375)"
1218 wakaba 1.1
1219 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #373)"
1220 wakaba 1.1 my
1221 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #359)"
1222 wakaba 1.1 $node = $self->{
1223 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #360)"
1224 wakaba 1.1 'node'
1225 wakaba 1.9 #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #361)"
1226 wakaba 1.1 };
1227     if ($node) {
1228     CORE::delete $self->{
1229 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #362)"
1230 wakaba 1.1 'node'
1231 wakaba 1.9 #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #363)"
1232 wakaba 1.1 };
1233     unless ($self->{
1234 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #364)"
1235 wakaba 1.4 'w'
1236 wakaba 1.9 #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #365)"
1237 wakaba 1.1 }) {
1238     $node->{
1239 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #366)"
1240 wakaba 1.1 'rc'
1241 wakaba 1.9 #line 5 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #367)"
1242 wakaba 1.1 }--;
1243     unless ($node->
1244 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #368)"
1245 wakaba 1.1 _is_externally_referred
1246 wakaba 1.9 #line 6 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #369)"
1247 wakaba 1.1 ) {
1248     $node->
1249 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #370)"
1250 wakaba 1.1 _destroy
1251 wakaba 1.9 #line 7 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeRef][@QName=ManakaiDOM:ManakaiDOMNodeReference][@QName=ManakaiNodeRef][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/IntMethod[@Name=destroy][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #371)"
1252 wakaba 1.1 ;
1253     }
1254     }
1255     } else {
1256     warn ref ($self) . q{->DESTROY: there is no associated }.
1257     q{node object - you have a global variable or }.
1258     qq{potential memory-leak detected\n};
1259     }
1260 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/u] (Chunk #372)"
1261 wakaba 1.1
1262 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/bc] (Chunk #374)"
1263 wakaba 1.1
1264 wakaba 1.9 #line 1 "lib/Message/Util/ManakaiNode.dis [/b] (Chunk #376)"
1265 wakaba 1.1 }
1266     }
1267     $Message::DOM::ClassFeature{q<Message::Util::ManakaiNode::ManakaiNodeRef>} = {};
1268     $Message::DOM::ClassPoint{q<Message::Util::ManakaiNode::ManakaiNodeRef>} = 0;
1269 wakaba 1.7 $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q<Message::Util::ManakaiNode::ManakaiNodeRef>} = {};
1270 wakaba 1.1 for ($Message::Util::IF::NodeRef::, $Message::Util::IF::NodeStem::){}
1271     ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1272     1;
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24