/[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.18 - (hide annotations) (download)
Sun Oct 9 13:57:18 2005 UTC (19 years, 9 months ago) by wakaba
Branch: MAIN
Changes since 1.17: +370 -216 lines 
++ manakai/lib/Message/Markup/ChangeLog	9 Oct 2005 13:49:25 -0000
2005-10-09  Wakaba  <wakaba@suika.fam.cx>

	* SuikaWikiConfig21.dis (swcfg21:ownerDocument): Changed
	from a "mn:irefnode0" property to a "mn:xrefnode0" property.

++ manakai/lib/Message/Util/ChangeLog	9 Oct 2005 13:53:53 -0000
2005-10-09  Wakaba  <wakaba@suika.fam.cx>

	* ManakaiNode.dis: New "mn:xrefnode0" property type has
	been introduced and methods are fixed to support it.
	(mn:setXRefNode, mn:unsetXRefNode): New codes.

	* DIS.dis (loadResource): Skips a root resource definition
	if it is an alias and it has "dis:Name" attribute and
	referenced canonical definition is already read.  (Note
	that similar case that the resource definition has "dis:QName"
	attribute is already fixed in the same way.)

++ manakai/lib/Message/Util/DIS/ChangeLog	9 Oct 2005 13:56:34 -0000
2005-10-09  Wakaba  <wakaba@suika.fam.cx>

	* Perl.dis (plGeneratePerlModule): Generates information
	on new "mn:xrefnode0" property type.  Restored to generate
	error definition method code for classes, not only
	interfaces, if there are error codes.

++ manakai/lib/Message/DOM/ChangeLog	9 Oct 2005 13:48:37 -0000
2005-10-09  Wakaba  <wakaba@suika.fam.cx>

	* DOMHTML.dis, DOMWebForms.dis: Typos in element type prefix fixed.

	* DOMFeature.dis (DOMCore:implementation): Short name added.

	* DOMCore.dis (CLONE_NODE_TYPE_NOT_SUPPORTED_ERR): New error subcode.
	(DOMCore:node): New error parameter.
	(DOMCore:ownerDocument): Changed from "mn:irefnode0"
	to "mn:xrefnode0".  For this reason, all assignments
	to this property have been rewritten to references
	to code "mn:setXRefNode".
	(cloneNode): Implemented.
	(setAttributeNode): A missing "importTree" method call added.
	(setAttributeNodeNS): Perl code removed and changed
	to a reference to "setAttributeNode" method code.

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