/[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.13 - (hide annotations) (download)
Fri Sep 30 13:06:18 2005 UTC (19 years, 9 months ago) by wakaba
Branch: MAIN
Changes since 1.12: +6 -6 lines
++ manakai/bin/ChangeLog	30 Sep 2005 12:38:36 -0000
2005-09-30  Wakaba  <wakaba@suika.fam.cx>

	* mkdisdump.pl (append_module_group_documentation,
	append_document_documentation): New functions.
	(append_class_documentation, append_interface_documentation):
	Generates method/attribute/constgroup information (in partial mode)
	even if "is_partial" option is true to compute inheriting
	class member information correctly.
	(--resource-uri): New option.

	* Makefile (error.xml, minimpl.xml): New rules.

++ manakai/lib/Message/Util/ChangeLog	30 Sep 2005 12:50:16 -0000
2005-09-30  Wakaba  <wakaba@suika.fam.cx>

	* DIS.dis (readProperties): Saves property name to values.
	(getPropertyModuleList): New method.


	* ManakaiNode.dis: Use "disPerl:H" instead
	of "disPerl:Q" for hash keys.
	(NodeStem): Property value "mn:treeID"
	has changed to scalar reference.
++ manakai/lib/Message/Util/Error/ChangeLog	30 Sep 2005 12:49:59 -0000
2005-09-30  Wakaba  <wakaba@suika.fam.cx>
	* DOMException.dis (dx:ManakaiErrorModules): New documentation.
++ manakai/lib/Message/Util/DIS/ChangeLog	30 Sep 2005 12:48:08 -0000
2005-09-30  Wakaba  <wakaba@suika.fam.cx>

	* Value.dis (name): New attribute.

	* Perl.dis (plFullyQualifiedName): Use module's package
	name properties if available.

++ manakai/lib/Message/DOM/ChangeLog	30 Sep 2005 12:40:49 -0000
2005-09-30  Wakaba  <wakaba@suika.fam.cx>

	* DOMCore.dis, SimpleLS.dis: Shares namespace URIs and local
	names where possible.

	* DOMFeature.dis: Documentation for DOM Minimum Implementation
	added (still work in progress).

	* Makefile (feature.dae, feature-spec.dae): New rules.

++ manakai/lib/manakai/ChangeLog	30 Sep 2005 12:53:24 -0000
2005-09-30  Wakaba  <wakaba@suika.fam.cx>

	* DISCore.dis: Documentation-related and meta-informational
	resoruces are moved to new "Document.dis" module.  The
	module now references "Document.dis".
	(DISCore:module, DISCore:resource): New properties.

	* DISRDF.dis: Some resources added from FOAF vocabulary.

	* Document.dis: New module.

	* DISIDL.dis: Some IDL comcepts added.  New name
	given to IDL datatypes.

	* DISLang.dis (dis:prefix): Removed.  (Moved to "DISIDL.dis"
	and it is now obsolete.)

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

	* DISPerl.dis (DISPerl:HashStringRef, DISPerl:StringRef): New.

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

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24