/[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.17 - (hide annotations) (download)
Sat Oct 8 15:05:46 2005 UTC (19 years, 9 months ago) by wakaba
Branch: MAIN
Changes since 1.16: +714 -714 lines 
++ manakai/lib/Message/Markup/ChangeLog	8 Oct 2005 14:01:45 -0000
	* SuikaWikiConfig21.dis (MUErrorHandler): Removed.
	(ManakaiSWCFGNode): Extends ManakaiDefaultErrorHandler.

2005-10-08  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/Util/ChangeLog	8 Oct 2005 15:01:39 -0000
	* DIS.dis (readProperties): Recognizes hexdecimal
	in "DISCore:Integer" (prefixed by "0x").

2005-10-08  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/Util/Error/ChangeLog	8 Oct 2005 14:04:28 -0000
	* DOMException.dis: Old long alias names removed.

2005-10-08  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/Util/DIS/ChangeLog	8 Oct 2005 15:03:27 -0000
	* Perl.dis (plCodeFragment): Ignores method name if it is a URI.

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