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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.14 - (show annotations) (download)
Sat Dec 30 04:42:51 2006 UTC (19 years, 8 months ago) by wakaba
Branch: MAIN
Changes since 1.13: +19 -36 lines 
++ manakai/lib/Message/Markup/ChangeLog	30 Dec 2006 04:39:04 -0000
2006-12-30  Wakaba  <wakaba@suika.fam.cx>

	* Atom.dis, SuikaWiki.dis: References
	to the |ManakaiDOM:ManakaiDOM| mode are removed.

++ manakai/lib/Message/Util/ChangeLog	30 Dec 2006 04:39:32 -0000
	* DIS.dis, PerlCode.dis: References to the |ManakaiDOM:ManakaiDOM|
	mode are removed.

2006-12-30  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/Util/DIS/ChangeLog	30 Dec 2006 04:42:43 -0000
	* DPG.dis, Perl.dis, Value.dis, Test.dis: References
	to |ManakaiDOM:ManakaiDOM| modes are removed.

	* Perl.dis (plCodeFragment): |local|ize
	the |DIS:plCodeFragment| cache to avoid
	ancestor nodes of the cached fragment
	are destroyed so that the cached nodes
	become invalid.

2006-12-30  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/DOM/ChangeLog	30 Dec 2006 04:37:29 -0000
	* CharacterData.dis, DOMCore.dis, DOMFeature.dis,
	GenericLS.dis, TreeCore.dis, DOMString.dis,
	XML.dis, Element.dis, Document.dis, TreeStore,dis,
	Traversal.dis, XDoctype.dis, XMLParser.dis, DOMLS.dis,
	SimpleLS.dis, DOMMain.dis: References
	to the |ManakaiDOM:ManakaiDOM|, |ManakaiDOM:ManakaiDOM1|,
	|ManakaiDOM:ManakaiDOM2|, and |ManakaiDOM:ManakaiDOM3|
	modes are removed.

2006-12-30  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/URI/ChangeLog	30 Dec 2006 04:35:39 -0000
2006-12-30  Wakaba  <wakaba@suika.fam.cx>

	* Generic.dis (Require): Reference to the |ManakaiDOM:ManakaiDOM|
	mode is removed.

++ manakai/lib/Message/Charset/ChangeLog	30 Dec 2006 04:35:23 -0000
2006-12-30  Wakaba  <wakaba@suika.fam.cx>

	* Encode.dis (Require): Reference to the |ManakaiDOM:ManakaiDOM|
	mode is removed.
1 #!/usr/bin/perl
2 ## This file is automatically generated
3 ## at 2006-12-30T04:24:35+00:00,
4 ## from file "Document.dis",
5 ## module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>,
6 ## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
7 ## Don't edit by hand!
8 use strict;
9 require Message::DOM::DOMCore;
10 require Message::DOM::TreeCore;
11 require Message::Util::Error::DOMException;
12 package Message::DOM::Document;
13 our $VERSION = 20061230.0424;
14 package Message::DOM::Document::ManakaiDOMImplementationDocument;
15 our $VERSION = 20061230.0424;
16 push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>);
17 sub create_document ($;$$$) {
18 my ($self, $namespaceURI, $qualifiedName, $doctype) = @_;
19
20 {
21
22 if
23 (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
24 require Message::DOM::DOMMain;
25
26 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
27
28 ;
29
30
31
32 {
33
34
35 $namespaceURI = undef;
36
37
38
39 }
40
41 ;
42 }
43
44
45 }
46 my $r;
47
48 {
49
50 require
51 Scalar::Util;
52 $r = bless \{
53
54 'child'
55 => [],
56
57 'impl'
58 => $self,
59
60 'http://www.w3.org/2001/04/infoset#version'
61 => '1.0',
62
63 'chk'
64 => 1,
65 },
66 'Message::DOM::Document::ManakaiDOMDocument'
67 ;
68
69 if (defined $doctype) {
70
71
72 {
73
74 local $Error::Depth = $Error::Depth + 1;
75
76 {
77
78
79
80 $r->
81 append_child
82 ($doctype);
83
84
85
86 }
87
88
89 ;}
90
91 ;
92 }
93
94 if (defined $qualifiedName) {
95
96
97 {
98
99 local $Error::Depth = $Error::Depth + 1;
100
101 {
102
103
104 my
105 $el = $r->
106 create_element_ns
107
108 ($namespaceURI, $qualifiedName);
109 $r->
110 append_child
111 ($el);
112 $r = $el->
113 owner_document
114 ;
115 ## Choose the class based on document element type
116
117
118
119 }
120
121
122 ;}
123
124 ;
125 } elsif (defined $namespaceURI) {
126
127 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'create_document', 'http://www.w3.org/2001/04/infoset#namespaceURI' => $namespaceURI, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_NS_NULL_QNAME_WITH_NON_NULL_URI', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMImplementationDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'namespaceURI';
128
129 ;
130 }
131
132
133 }
134 $r}
135 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {};
136 $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0;
137 package Message::DOM::IFLatest::Document;
138 our $VERSION = 20061230.0424;
139 package Message::DOM::Document::ManakaiDOMDocument;
140 our $VERSION = 20061230.0424;
141 push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
142 'Message::DOM::IFLatest::Document',
143 'Message::DOM::IFLatest::Node';
144 sub node_type ($;$) {
145 if (@_ == 1) {my ($self) = @_;
146 my $r;
147 $r = 9;
148 $r;
149 } else {my ($self) = @_;
150 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
151 }
152 }
153 sub append_child ($$) {
154 my ($self, $newChild) = @_;
155 my $r;
156
157 {
158
159 my
160 $strictc = $self->
161 dom_config
162
163 ->
164 get_parameter
165
166 (
167 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
168 );
169 my $child_od = $newChild->
170 owner_document
171 || $self;
172 my $child_nt = $newChild->
173 node_type
174 ;
175 if ($strictc and $self->
176 strict_error_checking
177 ) {
178
179
180 {
181
182 local $Error::Depth = $Error::Depth + 1;
183
184 {
185
186
187 my
188 $has_el;
189 my $has_dt;
190 if ($child_nt ==
191 1
192 ) {
193 $has_el =
194 1
195 ;
196 } elsif ($child_nt ==
197 10
198 ) {
199 $has_dt =
200 1
201 ;
202 } elsif ($child_nt ==
203 11
204 ) {
205 for my $cn (@{$newChild->
206 child_nodes
207 }) {
208 my $cnt = $cn->
209 node_type
210 ;
211 if ($cnt ==
212 1
213 ) {
214 if ($has_el) {
215
216
217 {
218
219 local $Error::Depth = $Error::Depth - 1;
220
221 {
222
223 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
224
225
226 }
227
228
229 ;}
230
231 ;
232 }
233 $has_el =
234 1
235 ;
236 }
237 # DocumentType node cannot be contained in DocumentFragments
238 }
239 }
240
241 if ($has_el) {
242 my $anode = $self->
243 last_child
244 ;
245 while (defined $anode) {
246 if ($anode->
247 node_type
248 ==
249 1
250 ) {
251
252
253 {
254
255 local $Error::Depth = $Error::Depth - 1;
256
257 {
258
259 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
260
261
262 }
263
264
265 ;}
266
267 ;
268 }
269 $anode = $anode->
270 previous_sibling
271 ;
272 }
273 } # has_el
274 if ($has_dt) {
275 my $anode = $self->
276 last_child
277 ;
278 while (defined $anode) {
279 my $ant = $anode->
280 node_type
281 ;
282 if ($ant ==
283 1
284 ) {
285
286
287 {
288
289 local $Error::Depth = $Error::Depth - 1;
290
291 {
292
293 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
294
295
296 }
297
298
299 ;}
300
301 ;
302 } elsif ($ant ==
303 10
304 ) {
305
306
307 {
308
309 local $Error::Depth = $Error::Depth - 1;
310
311 {
312
313 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
314
315
316 }
317
318
319 ;}
320
321 ;
322 }
323 $anode = $anode->
324 previous_sibling
325 ;
326 }
327 } # has_dt
328
329
330
331 }
332
333
334 ;}
335
336 ;
337 }
338
339
340 {
341
342
343 {
344
345 local $Error::Depth = $Error::Depth + 1;
346
347 {
348
349
350 my
351 $strict = $self->
352 strict_error_checking
353 ;
354
355 ## -- Node Type check
356 my @new_child;
357 if ({
358 3 => (not $strictc),
359 5 => (not $strictc),
360 1 => 1,
361 4 => (not $strictc),
362 7 => 1,
363 8 => 1,
364 10 => 1,
365 }->{$child_nt}) {
366 push @new_child, $newChild;
367 } elsif ($child_nt ==
368 11
369 ) {
370 for my $cn (@{$newChild->
371 child_nodes
372 }) {
373 unless ({
374 3 => (not $strictc),
375 5 => (not $strictc),
376 1 => 1,
377 4 => (not $strictc),
378 7 => 1,
379 8 => 1,
380 10 => 1,
381 }->{$cn->
382 node_type
383 }) {
384
385
386 {
387
388 local $Error::Depth = $Error::Depth - 1;
389
390 {
391
392 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
393
394
395 }
396
397
398 ;}
399
400 ;
401 }
402 push @new_child, $cn;
403 }
404 } else {
405
406
407 {
408
409 local $Error::Depth = $Error::Depth - 1;
410
411 {
412
413 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
414
415
416 }
417
418
419 ;}
420
421 ;
422 }
423
424 my $nc_parent = @new_child ? $new_child[0]->
425 parent_node
426 :
427
428 undef
429 ;
430 if ($strict) {
431 ## -- Wrong-document check
432 unless ($self eq $child_od) {
433
434
435 {
436
437 local $Error::Depth = $Error::Depth - 1;
438
439 {
440
441 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
442
443
444 }
445
446
447 ;}
448
449 ;
450 }
451
452 ## -- Read-onlyness check
453 if ($self->
454 manakai_read_only
455 ) {
456
457
458 {
459
460 local $Error::Depth = $Error::Depth - 1;
461
462 {
463
464 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
465
466
467 }
468
469
470 ;}
471
472 ;
473 }
474 if (@new_child) {
475 if ($nc_parent and
476 $nc_parent->
477 manakai_read_only
478 ) {
479
480
481 {
482
483 local $Error::Depth = $Error::Depth - 1;
484
485 {
486
487 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
488
489
490 }
491
492
493 ;}
494
495 ;
496 }
497 }
498 }
499
500 ## -- Insert at...
501 my $index = -1; # last
502
503
504 ; # FOR !tc:ForAppendChild
505
506 ## -- Removes from parent
507 if ($nc_parent) {
508 if ($child_nt ==
509 11
510 ) {
511 $$newChild->{
512 'child'
513 } = [];
514 } else {
515 my $v = $$nc_parent->{
516 'child'
517 };
518 RP: for my $i (0..$#$v) {
519 if ($v->[$i] eq $new_child[0]) {
520 splice @$v, $i, 1, ();
521 last RP;
522 }
523 } # RP
524 }
525 }
526
527 ## -- Rewrite the |parentNode| properties
528 for my $nc (@new_child) {
529 $$nc->{
530 'parent'
531 } = $self;
532 Scalar::Util::weaken ($$nc->{
533 'parent'
534 });
535 }
536
537 my $children = $$self->{
538 'child'
539 };
540
541
542
543 {
544
545
546 ## -- Adds to children list
547 push @$children, @new_child;
548 $r = $newChild;
549
550
551
552 }
553
554 ;
555
556
557
558 ;
559
560
561
562 ;
563
564
565
566 }
567
568
569 ;}
570
571 ;
572
573
574 }
575
576 ;
577 if ($child_nt ==
578 10 and
579
580 not defined $newChild->
581 owner_document
582 ) {
583 CORE::delete $$newChild->{
584 'impl'
585 };
586 $$newChild->{
587 'od'
588 } = $self;
589 Scalar::Util::weaken ($$newChild->{
590 'od'
591 });
592 }
593
594
595 }
596 $r}
597 sub insert_before ($$;$) {
598 my ($self, $newChild, $refChild) = @_;
599 my $r;
600
601 {
602
603 my
604 $strictc = $self->
605 dom_config
606
607 ->
608 get_parameter
609
610 (
611 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
612 );
613 my $child_od = $newChild->
614 owner_document
615 || $self;
616 my $child_nt = $newChild->
617 node_type
618 ;
619 if ($strictc and $self->
620 strict_error_checking
621 ) {
622
623
624 {
625
626 local $Error::Depth = $Error::Depth + 1;
627
628 {
629
630
631 my
632 $has_el;
633 my $has_dt;
634 if ($child_nt ==
635 1
636 ) {
637 $has_el =
638 1
639 ;
640 } elsif ($child_nt ==
641 10
642 ) {
643 $has_dt =
644 1
645 ;
646 } elsif ($child_nt ==
647 11
648 ) {
649 for my $cn (@{$newChild->
650 child_nodes
651 }) {
652 my $cnt = $cn->
653 node_type
654 ;
655 if ($cnt ==
656 1
657 ) {
658 if ($has_el) {
659
660
661 {
662
663 local $Error::Depth = $Error::Depth - 1;
664
665 {
666
667 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
668
669
670 }
671
672
673 ;}
674
675 ;
676 }
677 $has_el =
678 1
679 ;
680 }
681 # DocumentType node cannot be contained in DocumentFragments
682 }
683 }
684
685 if ($has_el) {
686 my $anode = $refChild ? $refChild->
687 previous_sibling
688 :
689 $self->
690 last_child
691 ;
692 while (defined $anode) {
693 if ($anode->
694 node_type
695 ==
696 1
697 ) {
698
699
700 {
701
702 local $Error::Depth = $Error::Depth - 1;
703
704 {
705
706 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
707
708
709 }
710
711
712 ;}
713
714 ;
715 }
716 $anode = $anode->
717 previous_sibling
718 ;
719 }
720 $anode = $refChild;
721 while (defined $anode) {
722 my $ant = $anode->
723 node_type
724 ;
725 if ($ant ==
726 1
727 ) {
728
729
730 {
731
732 local $Error::Depth = $Error::Depth - 1;
733
734 {
735
736 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
737
738
739 }
740
741
742 ;}
743
744 ;
745 } elsif ($ant ==
746 10
747 ) {
748
749
750 {
751
752 local $Error::Depth = $Error::Depth - 1;
753
754 {
755
756 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
757
758
759 }
760
761
762 ;}
763
764 ;
765 }
766 $anode = $anode->
767 next_sibling
768 ;
769 }
770 } # has_el
771 if ($has_dt) {
772 my $anode = $refChild ? $refChild->
773 previous_sibling
774 :
775 $self->
776 last_child
777 ;
778 while (defined $anode) {
779 my $ant = $anode->
780 node_type
781 ;
782 if ($ant ==
783 1
784 ) {
785
786
787 {
788
789 local $Error::Depth = $Error::Depth - 1;
790
791 {
792
793 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
794
795
796 }
797
798
799 ;}
800
801 ;
802 } elsif ($ant ==
803 10
804 ) {
805
806
807 {
808
809 local $Error::Depth = $Error::Depth - 1;
810
811 {
812
813 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
814
815
816 }
817
818
819 ;}
820
821 ;
822 }
823 $anode = $anode->
824 previous_sibling
825 ;
826 }
827 $anode = $refChild;
828 while (defined $anode) {
829 if ($anode->
830 node_type
831
832 ==
833 10
834 ) {
835
836
837 {
838
839 local $Error::Depth = $Error::Depth - 1;
840
841 {
842
843 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
844
845
846 }
847
848
849 ;}
850
851 ;
852 }
853 $anode = $anode->
854 next_sibling
855 ;
856 }
857 } # has_dt
858
859
860
861 }
862
863
864 ;}
865
866 ;
867 }
868
869
870 {
871
872
873 {
874
875 local $Error::Depth = $Error::Depth + 1;
876
877 {
878
879
880 my
881 $strict = $self->
882 strict_error_checking
883 ;
884
885 ## -- Node Type check
886 my @new_child;
887 if ({
888 3 => (not $strictc),
889 5 => (not $strictc),
890 1 => 1,
891 4 => (not $strictc),
892 7 => 1,
893 8 => 1,
894 10 => 1,
895 }->{$child_nt}) {
896 push @new_child, $newChild;
897 } elsif ($child_nt ==
898 11
899 ) {
900 for my $cn (@{$newChild->
901 child_nodes
902 }) {
903 unless ({
904 3 => (not $strictc),
905 5 => (not $strictc),
906 1 => 1,
907 4 => (not $strictc),
908 7 => 1,
909 8 => 1,
910 10 => 1,
911 }->{$cn->
912 node_type
913 }) {
914
915
916 {
917
918 local $Error::Depth = $Error::Depth - 1;
919
920 {
921
922 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
923
924
925 }
926
927
928 ;}
929
930 ;
931 }
932 push @new_child, $cn;
933 }
934 } else {
935
936
937 {
938
939 local $Error::Depth = $Error::Depth - 1;
940
941 {
942
943 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
944
945
946 }
947
948
949 ;}
950
951 ;
952 }
953
954 my $nc_parent = @new_child ? $new_child[0]->
955 parent_node
956 :
957
958 undef
959 ;
960 if ($strict) {
961 ## -- Wrong-document check
962 unless ($self eq $child_od) {
963
964
965 {
966
967 local $Error::Depth = $Error::Depth - 1;
968
969 {
970
971 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
972
973
974 }
975
976
977 ;}
978
979 ;
980 }
981
982 ## -- Read-onlyness check
983 if ($self->
984 manakai_read_only
985 ) {
986
987
988 {
989
990 local $Error::Depth = $Error::Depth - 1;
991
992 {
993
994 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
995
996
997 }
998
999
1000 ;}
1001
1002 ;
1003 }
1004 if (@new_child) {
1005 if ($nc_parent and
1006 $nc_parent->
1007 manakai_read_only
1008 ) {
1009
1010
1011 {
1012
1013 local $Error::Depth = $Error::Depth - 1;
1014
1015 {
1016
1017 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
1018
1019
1020 }
1021
1022
1023 ;}
1024
1025 ;
1026 }
1027 }
1028 }
1029
1030 ## -- Insert at...
1031 my $index = -1; # last
1032
1033
1034 {
1035
1036
1037 # tc:ForAppendChild & tc:ForReplaceChild
1038 if (defined $refChild) {
1039 if ($refChild eq $newChild) {
1040
1041
1042 {
1043
1044
1045 {
1046
1047 local $Error::Depth = $Error::Depth - 1;
1048
1049 {
1050
1051 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
1052
1053
1054 }
1055
1056
1057 ;}
1058
1059 ;
1060
1061
1062
1063 }
1064
1065 ;
1066
1067
1068 ;
1069 }
1070
1071 my $cns = $self->
1072 child_nodes
1073 ;
1074 my $cnsl = @$cns;
1075 C: {
1076 $index = 0;
1077 for my $i (0..($cnsl-1)) {
1078 my $cn = $cns->[$i];
1079 if ($cn eq $refChild) {
1080 $index += $i;
1081 last C;
1082 } elsif ($cn eq $newChild) {
1083 $index = -1; # offset
1084 }
1085 }
1086
1087
1088 {
1089
1090
1091 {
1092
1093 local $Error::Depth = $Error::Depth - 1;
1094
1095 {
1096
1097 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
1098
1099
1100 }
1101
1102
1103 ;}
1104
1105 ;
1106
1107
1108
1109 }
1110
1111 ;
1112
1113
1114 ;
1115 } # C
1116 } else { # |oldChild| is not defined
1117
1118
1119 ;
1120 }
1121
1122
1123
1124 }
1125
1126 ; # FOR !tc:ForAppendChild
1127
1128 ## -- Removes from parent
1129 if ($nc_parent) {
1130 if ($child_nt ==
1131 11
1132 ) {
1133 $$newChild->{
1134 'child'
1135 } = [];
1136 } else {
1137 my $v = $$nc_parent->{
1138 'child'
1139 };
1140 RP: for my $i (0..$#$v) {
1141 if ($v->[$i] eq $new_child[0]) {
1142 splice @$v, $i, 1, ();
1143 last RP;
1144 }
1145 } # RP
1146 }
1147 }
1148
1149 ## -- Rewrite the |parentNode| properties
1150 for my $nc (@new_child) {
1151 $$nc->{
1152 'parent'
1153 } = $self;
1154 Scalar::Util::weaken ($$nc->{
1155 'parent'
1156 });
1157 }
1158
1159 my $children = $$self->{
1160 'child'
1161 };
1162
1163
1164
1165 ;
1166
1167
1168
1169 {
1170
1171
1172 ## -- Adds to children list
1173 if ($index == -1) {
1174 push @$children, @new_child;
1175 } else {
1176 splice @$children, $index, 0, @new_child;
1177 }
1178 $r = $newChild;
1179
1180
1181
1182 }
1183
1184 ;
1185
1186
1187
1188 ;
1189
1190
1191
1192 }
1193
1194
1195 ;}
1196
1197 ;
1198
1199
1200 }
1201
1202 ;
1203 if ($child_nt ==
1204 10 and
1205
1206 not defined $newChild->
1207 owner_document
1208 ) {
1209 CORE::delete $$newChild->{
1210 'impl'
1211 };
1212 $$newChild->{
1213 'od'
1214 } = $self;
1215 Scalar::Util::weaken ($$newChild->{
1216 'od'
1217 });
1218 }
1219
1220
1221 }
1222 $r}
1223 sub replace_child ($$$) {
1224 my ($self, $newChild, $oldChild) = @_;
1225 my $r;
1226
1227 {
1228
1229 my
1230 $strictc = $self->
1231 dom_config
1232
1233 ->
1234 get_parameter
1235
1236 (
1237 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
1238 );
1239 my $child_od = $newChild->
1240 owner_document
1241 || $self;
1242 my $child_nt = $newChild->
1243 node_type
1244 ;
1245 if ($strictc and $self->
1246 strict_error_checking
1247 ) {
1248
1249
1250 {
1251
1252 local $Error::Depth = $Error::Depth + 1;
1253
1254 {
1255
1256
1257 my
1258 $has_el;
1259 my $has_dt;
1260 if ($child_nt ==
1261 1
1262 ) {
1263 $has_el =
1264 1
1265 ;
1266 } elsif ($child_nt ==
1267 10
1268 ) {
1269 $has_dt =
1270 1
1271 ;
1272 } elsif ($child_nt ==
1273 11
1274 ) {
1275 for my $cn (@{$newChild->
1276 child_nodes
1277 }) {
1278 my $cnt = $cn->
1279 node_type
1280 ;
1281 if ($cnt ==
1282 1
1283 ) {
1284 if ($has_el) {
1285
1286
1287 {
1288
1289 local $Error::Depth = $Error::Depth - 1;
1290
1291 {
1292
1293 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1294
1295
1296 }
1297
1298
1299 ;}
1300
1301 ;
1302 }
1303 $has_el =
1304 1
1305 ;
1306 }
1307 # DocumentType node cannot be contained in DocumentFragments
1308 }
1309 }
1310
1311 if ($has_el) {
1312 my $anode = $oldChild->
1313 previous_sibling
1314 ;
1315 while (defined $anode) {
1316 if ($anode->
1317 node_type
1318 ==
1319 1
1320 ) {
1321
1322
1323 {
1324
1325 local $Error::Depth = $Error::Depth - 1;
1326
1327 {
1328
1329 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1330
1331
1332 }
1333
1334
1335 ;}
1336
1337 ;
1338 }
1339 $anode = $anode->
1340 previous_sibling
1341 ;
1342 }
1343 $anode = $oldChild->
1344 next_sibling
1345 ;
1346 while (defined $anode) {
1347 my $ant = $anode->
1348 node_type
1349 ;
1350 if ($ant ==
1351 1
1352 ) {
1353
1354
1355 {
1356
1357 local $Error::Depth = $Error::Depth - 1;
1358
1359 {
1360
1361 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOC_ELEMENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1362
1363
1364 }
1365
1366
1367 ;}
1368
1369 ;
1370 } elsif ($ant ==
1371 10
1372 ) {
1373
1374
1375 {
1376
1377 local $Error::Depth = $Error::Depth - 1;
1378
1379 {
1380
1381 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1382
1383
1384 }
1385
1386
1387 ;}
1388
1389 ;
1390 }
1391 $anode = $anode->
1392 next_sibling
1393 ;
1394 }
1395 } # has_el
1396 if ($has_dt) {
1397 my $anode = $oldChild->
1398 previous_sibling
1399 ;
1400 while (defined $anode) {
1401 my $ant = $anode->
1402 node_type
1403 ;
1404 if ($ant ==
1405 1
1406 ) {
1407
1408
1409 {
1410
1411 local $Error::Depth = $Error::Depth - 1;
1412
1413 {
1414
1415 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#HIERARCHY_WRONG_DOCTYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1416
1417
1418 }
1419
1420
1421 ;}
1422
1423 ;
1424 } elsif ($ant ==
1425 10
1426 ) {
1427
1428
1429 {
1430
1431 local $Error::Depth = $Error::Depth - 1;
1432
1433 {
1434
1435 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1436
1437
1438 }
1439
1440
1441 ;}
1442
1443 ;
1444 }
1445 $anode = $anode->
1446 previous_sibling
1447 ;
1448 }
1449 $anode = $oldChild->
1450 next_sibling
1451 ;
1452 while (defined $anode) {
1453 if ($anode->
1454 node_type
1455
1456 ==
1457 10
1458 ) {
1459
1460
1461 {
1462
1463 local $Error::Depth = $Error::Depth - 1;
1464
1465 {
1466
1467 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_SECOND_DOCTYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1468
1469
1470 }
1471
1472
1473 ;}
1474
1475 ;
1476 }
1477 $anode = $anode->
1478 next_sibling
1479 ;
1480 }
1481 } # has_dt
1482
1483
1484
1485 }
1486
1487
1488 ;}
1489
1490 ;
1491 }
1492
1493
1494 {
1495
1496
1497 {
1498
1499 local $Error::Depth = $Error::Depth + 1;
1500
1501 {
1502
1503
1504 my
1505 $strict = $self->
1506 strict_error_checking
1507 ;
1508
1509 ## -- Node Type check
1510 my @new_child;
1511 if ({
1512 3 => (not $strictc),
1513 5 => (not $strictc),
1514 1 => 1,
1515 4 => (not $strictc),
1516 7 => 1,
1517 8 => 1,
1518 10 => 1,
1519 }->{$child_nt}) {
1520 push @new_child, $newChild;
1521 } elsif ($child_nt ==
1522 11
1523 ) {
1524 for my $cn (@{$newChild->
1525 child_nodes
1526 }) {
1527 unless ({
1528 3 => (not $strictc),
1529 5 => (not $strictc),
1530 1 => 1,
1531 4 => (not $strictc),
1532 7 => 1,
1533 8 => 1,
1534 10 => 1,
1535 }->{$cn->
1536 node_type
1537 }) {
1538
1539
1540 {
1541
1542 local $Error::Depth = $Error::Depth - 1;
1543
1544 {
1545
1546 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1547
1548
1549 }
1550
1551
1552 ;}
1553
1554 ;
1555 }
1556 push @new_child, $cn;
1557 }
1558 } else {
1559
1560
1561 {
1562
1563 local $Error::Depth = $Error::Depth - 1;
1564
1565 {
1566
1567 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1568
1569
1570 }
1571
1572
1573 ;}
1574
1575 ;
1576 }
1577
1578 my $nc_parent = @new_child ? $new_child[0]->
1579 parent_node
1580 :
1581
1582 undef
1583 ;
1584 if ($strict) {
1585 ## -- Wrong-document check
1586 unless ($self eq $child_od) {
1587
1588
1589 {
1590
1591 local $Error::Depth = $Error::Depth - 1;
1592
1593 {
1594
1595 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
1596
1597
1598 }
1599
1600
1601 ;}
1602
1603 ;
1604 }
1605
1606 ## -- Read-onlyness check
1607 if ($self->
1608 manakai_read_only
1609 ) {
1610
1611
1612 {
1613
1614 local $Error::Depth = $Error::Depth - 1;
1615
1616 {
1617
1618 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
1619
1620
1621 }
1622
1623
1624 ;}
1625
1626 ;
1627 }
1628 if (@new_child) {
1629 if ($nc_parent and
1630 $nc_parent->
1631 manakai_read_only
1632 ) {
1633
1634
1635 {
1636
1637 local $Error::Depth = $Error::Depth - 1;
1638
1639 {
1640
1641 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
1642
1643
1644 }
1645
1646
1647 ;}
1648
1649 ;
1650 }
1651 }
1652 }
1653
1654 ## -- Insert at...
1655 my $index = -1; # last
1656
1657
1658 {
1659
1660
1661 # tc:ForAppendChild & tc:ForReplaceChild
1662 if (defined $oldChild) {
1663 if ($oldChild eq $newChild) {
1664
1665
1666 ;
1667
1668
1669 {
1670
1671
1672 {
1673
1674 local $Error::Depth = $Error::Depth - 1;
1675
1676 {
1677
1678 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
1679
1680
1681 }
1682
1683
1684 ;}
1685
1686 ;
1687
1688
1689
1690 }
1691
1692 ;
1693 }
1694
1695 my $cns = $self->
1696 child_nodes
1697 ;
1698 my $cnsl = @$cns;
1699 C: {
1700 $index = 0;
1701 for my $i (0..($cnsl-1)) {
1702 my $cn = $cns->[$i];
1703 if ($cn eq $oldChild) {
1704 $index += $i;
1705 last C;
1706 } elsif ($cn eq $newChild) {
1707 $index = -1; # offset
1708 }
1709 }
1710
1711
1712 ;
1713
1714
1715 {
1716
1717
1718 {
1719
1720 local $Error::Depth = $Error::Depth - 1;
1721
1722 {
1723
1724 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
1725
1726
1727 }
1728
1729
1730 ;}
1731
1732 ;
1733
1734
1735
1736 }
1737
1738 ;
1739 } # C
1740 } else { # |oldChild| is not defined
1741
1742
1743 {
1744
1745
1746 {
1747
1748 local $Error::Depth = $Error::Depth - 1;
1749
1750 {
1751
1752 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
1753
1754
1755 }
1756
1757
1758 ;}
1759
1760 ;
1761
1762
1763
1764 }
1765
1766 ;
1767 }
1768
1769
1770
1771 }
1772
1773 ; # FOR !tc:ForAppendChild
1774
1775 ## -- Removes from parent
1776 if ($nc_parent) {
1777 if ($child_nt ==
1778 11
1779 ) {
1780 $$newChild->{
1781 'child'
1782 } = [];
1783 } else {
1784 my $v = $$nc_parent->{
1785 'child'
1786 };
1787 RP: for my $i (0..$#$v) {
1788 if ($v->[$i] eq $new_child[0]) {
1789 splice @$v, $i, 1, ();
1790 last RP;
1791 }
1792 } # RP
1793 }
1794 }
1795
1796 ## -- Rewrite the |parentNode| properties
1797 for my $nc (@new_child) {
1798 $$nc->{
1799 'parent'
1800 } = $self;
1801 Scalar::Util::weaken ($$nc->{
1802 'parent'
1803 });
1804 }
1805
1806 my $children = $$self->{
1807 'child'
1808 };
1809
1810
1811
1812 ;
1813
1814
1815
1816 ;
1817
1818
1819
1820 {
1821
1822
1823 ## -- Replaces the node
1824 splice @$children, $index, 1, @new_child;
1825 CORE::delete $$oldChild->{
1826 'parent'
1827 };
1828 $r = $oldChild;
1829
1830
1831
1832 }
1833
1834 ;
1835
1836
1837
1838 }
1839
1840
1841 ;}
1842
1843 ;
1844
1845
1846 }
1847
1848 ;
1849 if ($child_nt ==
1850 10 and
1851
1852 not defined $newChild->
1853 owner_document
1854 ) {
1855 CORE::delete $$newChild->{
1856 'impl'
1857 };
1858 $$newChild->{
1859 'od'
1860 } = $self;
1861 Scalar::Util::weaken ($$newChild->{
1862 'od'
1863 });
1864 }
1865
1866
1867 }
1868 $r}
1869 sub manakai_append_text ($$) {
1870 my ($self, $string) = @_;
1871 my $r;
1872
1873 {
1874
1875
1876 {
1877
1878 local $Error::Depth = $Error::Depth + 1;
1879
1880 {
1881
1882
1883 unless
1884 ($self->
1885 dom_config
1886
1887 ->
1888 get_parameter
1889
1890 (
1891 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
1892 )) {
1893 my $lc = $self->
1894 last_child
1895 ;
1896 if (defined $lc and
1897 $lc->
1898 node_type
1899 ==
1900 3
1901 ) {
1902 $lc->
1903 manakai_append_text
1904
1905 (ref $string eq 'SCALAR' ? $string : \$string);
1906 } else {
1907 my $text = $self->
1908 create_text_node
1909
1910 (ref $string eq 'SCALAR' ? $$string : $string);
1911 $self->
1912 append_child
1913 ($text);
1914 }
1915 }
1916 $r = $self;
1917
1918
1919
1920 }
1921
1922
1923 ;}
1924
1925 ;
1926
1927
1928 }
1929 $r}
1930 sub remove_child ($$) {
1931 my ($self, $oldChild) = @_;
1932 my $r;
1933
1934 {
1935
1936 if
1937 ($self->
1938 strict_error_checking and
1939
1940 $self->
1941 manakai_read_only
1942 ) {
1943
1944 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'remove_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
1945
1946 ;
1947 }
1948
1949
1950 {
1951
1952 F:
1953 {
1954 my $i = -1;
1955 my $v = $$self->{
1956 'child'
1957 };
1958 for my $cld (@$v) {
1959 $i++;
1960 if ($cld eq $oldChild) {
1961 splice @$v, $i, 1, ();
1962 CORE::delete $$oldChild->{
1963 'parent'
1964 };
1965 $r = $oldChild;
1966 last F;
1967 }
1968 }
1969
1970 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/removeChildImpl+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
1971
1972 ;
1973 } # F
1974
1975
1976 }
1977
1978 ;
1979
1980
1981 }
1982 $r}
1983 sub node_name ($;$) {
1984 if (@_ == 1) {my ($self) = @_;
1985 my $r = '';
1986 $r = '#document';
1987 $r;
1988 } else {my ($self) = @_;
1989 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
1990 }
1991 }
1992 sub text_content ($;$) {
1993 if (@_ == 1) {my ($self) = @_;
1994 my $r = '';
1995
1996 {
1997
1998
1999 {
2000
2001 local $Error::Depth = $Error::Depth + 1;
2002
2003 {
2004
2005
2006 if
2007 ($self->
2008 dom_config
2009
2010 ->
2011 get_parameter
2012
2013 (
2014 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
2015 )) {
2016 $r =
2017 undef
2018 ;
2019 } else {
2020 $r = '';
2021 my @target = @{$self->
2022 child_nodes
2023 };
2024 C: for my $node (@target) {
2025 my $nt = $node->
2026 node_type
2027 ;
2028 if ($nt ==
2029 3 or
2030
2031 $nt ==
2032 4
2033 ) {
2034 $r .= $node->
2035 data
2036 unless
2037 $node->
2038 is_element_content_whitespace
2039 ;
2040 } elsif ($nt ==
2041 1 or
2042
2043 $nt ==
2044 5
2045 ) {
2046 unshift @target, @{$node->
2047 child_nodes
2048 };
2049 }
2050 }
2051 }
2052
2053
2054
2055 }
2056
2057
2058 ;}
2059
2060 ;
2061
2062
2063 }
2064 $r;
2065 } else {my ($self, $given) = @_;
2066
2067 {
2068
2069 if
2070 ($self->
2071 dom_config
2072
2073 ->
2074 get_parameter
2075
2076 (
2077 'http://suika.fam.cx/www/2006/dom-config/strict-document-children'
2078 )) {
2079
2080 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#setting-node-value-no-effect', 'rdata' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'text_content';
2081
2082 ;
2083 } else {
2084
2085
2086 {
2087
2088
2089 {
2090
2091 if
2092 ($self->
2093 manakai_read_only
2094 ) {
2095
2096 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2097
2098 ;
2099 }
2100
2101
2102 }
2103
2104 ;
2105
2106 for my $__old_child (@{${$self}->{
2107 'child'
2108 }}) {
2109 CORE::delete $$__old_child->{
2110 'parent'
2111 };
2112 }
2113
2114 my @__new_children;
2115 if (defined $given and length $given) {
2116 my $__text = $self->
2117 create_text_node
2118 ($given);
2119 push @__new_children, $__text;
2120 $$__text->{
2121 'parent'
2122 } = $self;
2123 Scalar::Util::weaken ($$__text->{
2124 'parent'
2125 });
2126 }
2127
2128 ${$self}->{
2129 'child'
2130 } = \@__new_children;
2131
2132
2133 }
2134
2135 ;
2136 }
2137
2138
2139 }
2140 }
2141 }
2142 sub get_feature ($$$) {
2143 my ($self, $feature, $version) = @_;
2144
2145 {
2146
2147
2148 $feature = lc $feature;
2149
2150
2151 }
2152
2153 {
2154
2155
2156 $version = '' unless defined $version;
2157
2158
2159 }
2160 my $r;
2161
2162 {
2163
2164
2165 $feature =~ s/^\+//;
2166
2167
2168 {
2169
2170 if
2171 ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
2172 $r = $self;
2173 }
2174
2175
2176 }
2177
2178 ;
2179 unless (defined $r) {
2180
2181
2182 {
2183
2184 local $Error::Depth = $Error::Depth + 1;
2185
2186 {
2187
2188
2189
2190 $r = $self->SUPER::get_feature ($feature, $version);
2191
2192
2193
2194 }
2195
2196
2197 ;}
2198
2199 ;
2200 }
2201
2202
2203 }
2204 $r}
2205 sub base_uri ($;$) {
2206 if (@_ == 1) {my ($self) = @_;
2207 my $r = '';
2208
2209 {
2210
2211
2212 $r = $$self->{
2213 'buri'
2214 };
2215 unless (defined $r) {
2216 $r = $$self->{
2217 'duri'
2218 };
2219 }
2220
2221
2222 }
2223 $r;
2224 } else {my ($self) = @_;
2225 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
2226 }
2227 }
2228 sub create_document_fragment ($) {
2229 my ($self) = @_;
2230 my $r;
2231
2232 {
2233
2234
2235 $r = bless \{
2236
2237 'od'
2238 => $self,
2239
2240 'child'
2241 => [],
2242 },
2243 'Message::DOM::Document::ManakaiDOMDocumentFragment'
2244 ;
2245 Scalar::Util::weaken ($$r->{
2246 'od'
2247 });
2248
2249
2250 }
2251 $r}
2252 sub strict_error_checking ($;$) {
2253 if (@_ == 1) {my ($self) = @_;
2254 my $r = 0;
2255
2256 {
2257
2258
2259 $r = $$self->{
2260 'chk'
2261 };
2262
2263
2264 }
2265 $r;
2266 } else {my ($self, $given) = @_;
2267
2268 {
2269
2270
2271 $$self->{
2272 'chk'
2273 } = $given;
2274
2275
2276 }
2277 }
2278 }
2279 sub dom_config ($;$) {
2280 if (@_ == 1) {my ($self) = @_;
2281 my $r;
2282
2283 {
2284
2285
2286 {
2287
2288
2289 $r = bless [$self, $$self, 'Message::DOM::IFLatest::Document'],
2290
2291 'Message::DOM::DOMCore::ManakaiDOMConfiguration'
2292 ;
2293
2294
2295 }
2296
2297 ;
2298
2299
2300 }
2301 $r;
2302 } else {my ($self) = @_;
2303 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dom_config';
2304 }
2305 }
2306 sub document_element ($;$) {
2307 if (@_ == 1) {my ($self) = @_;
2308 my $r;
2309
2310 {
2311
2312
2313 {
2314
2315 local $Error::Depth = $Error::Depth + 1;
2316
2317 {
2318
2319
2320 F:
2321 for my $child (@{$self->
2322 child_nodes
2323 }) {
2324 if ($child->
2325 node_type
2326 ==
2327 1
2328 ) {
2329 $r = $child;
2330 last F;
2331 }
2332 } # F
2333
2334
2335
2336 }
2337
2338
2339 ;}
2340
2341 ;
2342
2343
2344 }
2345 $r;
2346 } else {my ($self) = @_;
2347 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'document_element';
2348 }
2349 }
2350 sub implementation ($;$) {
2351 if (@_ == 1) {my ($self) = @_;
2352 my $r;
2353
2354 {
2355
2356
2357 $r = $$self->{
2358 'impl'
2359 };
2360
2361
2362 }
2363 $r;
2364 } else {my ($self) = @_;
2365 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'implementation';
2366 }
2367 }
2368 sub xml_version ($;$) {
2369 if (@_ == 1) {my ($self) = @_;
2370 my $r = '';
2371
2372 {
2373
2374
2375 $r = $$self->{
2376 'http://www.w3.org/2001/04/infoset#version'
2377 };
2378
2379
2380 }
2381 $r;
2382 } else {my ($self, $given) = @_;
2383
2384 {
2385
2386
2387 {
2388
2389 if
2390 ($self->
2391 manakai_read_only
2392 ) {
2393
2394 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2395
2396 ;
2397 }
2398
2399
2400 }
2401
2402 ;
2403 if (defined $given and
2404 ($given eq '1.0' or $given eq '1.1' or
2405 not $self->
2406 strict_error_checking
2407 )) {
2408 $$self->{
2409 'http://www.w3.org/2001/04/infoset#version'
2410 } = $given;
2411 } else {
2412
2413 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'set', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_NOSUPPORT_XMLVER', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'xml_version', 'http://www.w3.org/2001/04/infoset#version' => $given;
2414
2415 ;
2416 }
2417
2418
2419 }
2420 }
2421 }
2422 sub doctype ($;$) {
2423 if (@_ == 1) {my ($self) = @_;
2424 my $r;
2425
2426 {
2427
2428
2429 {
2430
2431 local $Error::Depth = $Error::Depth + 1;
2432
2433 {
2434
2435
2436 F:
2437 for my $child (@{$self->
2438 child_nodes
2439 }) {
2440 my $nt = $child->
2441 node_type
2442 ;
2443 if ($nt ==
2444 10
2445 ) {
2446 $r = $child;
2447 last F;
2448 } elsif ($nt ==
2449 1
2450 ) { # document element
2451 last F;
2452 }
2453 } # F
2454
2455
2456
2457 }
2458
2459
2460 ;}
2461
2462 ;
2463
2464
2465 }
2466 $r;
2467 } else {my ($self) = @_;
2468 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'doctype';
2469 }
2470 }
2471 sub document_uri ($;$) {
2472 if (@_ == 1) {my ($self) = @_;
2473 my $r = '';
2474
2475 {
2476
2477
2478 $r = $$self->{
2479 'duri'
2480 };
2481
2482
2483 }
2484 $r;
2485 } else {my ($self, $given) = @_;
2486
2487 {
2488
2489
2490 {
2491
2492 if
2493 ($self->
2494 manakai_read_only
2495 ) {
2496
2497 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2498
2499 ;
2500 }
2501
2502
2503 }
2504
2505 ;
2506 $$self->{
2507 'duri'
2508 } = $given;
2509
2510
2511 }
2512 }
2513 }
2514 sub input_encoding ($;$) {
2515 if (@_ == 1) {my ($self) = @_;
2516 my $r = '';
2517
2518 {
2519
2520
2521 $r = $$self->{
2522 'ces'
2523 };
2524
2525
2526 }
2527 $r;
2528 } else {my ($self, $given) = @_;
2529
2530 {
2531
2532
2533 {
2534
2535 if
2536 ($self->
2537 manakai_read_only
2538 ) {
2539
2540 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2541
2542 ;
2543 }
2544
2545
2546 }
2547
2548 ;
2549 $$self->{
2550 'ces'
2551 } = $given;
2552
2553
2554 }
2555 }
2556 }
2557 sub xml_encoding ($;$) {
2558 if (@_ == 1) {my ($self) = @_;
2559 my $r = '';
2560
2561 {
2562
2563
2564 $r = $$self->{
2565 'xcs'
2566 };
2567
2568
2569 }
2570 $r;
2571 } else {my ($self, $given) = @_;
2572
2573 {
2574
2575
2576 {
2577
2578 if
2579 ($self->
2580 manakai_read_only
2581 ) {
2582
2583 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2584
2585 ;
2586 }
2587
2588
2589 }
2590
2591 ;
2592 $$self->{
2593 'xcs'
2594 } = $given;
2595
2596
2597 }
2598 }
2599 }
2600 sub xml_standalone ($;$) {
2601 if (@_ == 1) {my ($self) = @_;
2602 my $r = 0;
2603
2604 {
2605
2606
2607 $r = $$self->{
2608 'http://www.w3.org/2001/04/infoset#standalone'
2609 };
2610
2611
2612 }
2613 $r;
2614 } else {my ($self, $given) = @_;
2615
2616 {
2617
2618
2619 {
2620
2621 if
2622 ($self->
2623 manakai_read_only
2624 ) {
2625
2626 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2627
2628 ;
2629 }
2630
2631
2632 }
2633
2634 ;
2635 $$self->{
2636 'http://www.w3.org/2001/04/infoset#standalone'
2637 } = $given;
2638
2639
2640 }
2641 }
2642 }
2643 sub adopt_node ($$) {
2644 my ($self, $source) = @_;
2645 my $r;
2646
2647 {
2648
2649 ADOPT:
2650 {
2651 last ADOPT
2652 unless $source->isa (
2653 'Message::DOM::TreeCore::ManakaiDOMNode'
2654 );
2655
2656 my $strict = $self->
2657 strict_error_checking
2658 ;
2659 if ($strict and $self->
2660 manakai_read_only
2661 ) {
2662
2663 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'source';
2664
2665 ;
2666 }
2667 my $parent = $source->
2668 parent_node
2669 ;
2670 if ($strict and defined $parent and
2671 $parent->
2672 manakai_read_only
2673 ) {
2674
2675 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'parent';
2676
2677 ;
2678 }
2679 my $nt = $source->
2680 node_type
2681 ;
2682 my $oe;
2683 if ($nt ==
2684 2
2685 ) {
2686 $oe = $source->
2687 owner_element
2688 ;
2689 if ($strict and defined $oe and $oe->
2690 manakai_read_only
2691 ) {
2692
2693 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'oe';
2694
2695 ;
2696 }
2697 } elsif ($nt ==
2698 9 or
2699
2700 $nt ==
2701 10 or
2702
2703 $nt ==
2704 6 or
2705
2706 $nt ==
2707 12
2708 ) {
2709
2710 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => 'source';
2711
2712 ;
2713 }
2714
2715 my @change_od;
2716 my @nodes = ($source);
2717 while (@nodes) {
2718 my $node = shift @nodes;
2719 my $nt = $node->
2720 node_type
2721 ;
2722 if ($strict and $node->
2723 manakai_read_only
2724 ) {
2725
2726 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'adopt_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOMOD_DESCENDANT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'source', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $node;
2727
2728 ;
2729 }
2730 if ($nt ==
2731 1
2732 ) {
2733 push @change_od, $node;
2734 push @nodes, @{$node->
2735 child_nodes
2736 };
2737 my $attrs = $node->
2738 attributes
2739 ;
2740 my $attrsLength = $attrs->
2741 length
2742 ;
2743 for my $i (0..($attrsLength - 1)) {
2744 push @nodes, $attrs->
2745 item
2746 ($i);
2747 }
2748 } elsif ($nt ==
2749 2 or
2750
2751 $nt ==
2752 5 or
2753
2754 $nt ==
2755 11
2756 ) {
2757 push @change_od, $node;
2758 push @nodes, @{$node->
2759 child_nodes
2760 };
2761 } elsif ($nt ==
2762 3 or
2763
2764 $nt ==
2765 8 or
2766
2767 $nt ==
2768 7 or
2769
2770 $nt ==
2771 4
2772 ) {
2773 push @change_od, $node;
2774 } else {
2775 ## TODO: assertion
2776 }
2777 } # nodes
2778
2779
2780
2781 {
2782
2783 local $Error::Depth = $Error::Depth + 1;
2784
2785 {
2786
2787
2788 if
2789 (defined $parent) {
2790 $parent->
2791 remove_child
2792 ($source);
2793 } elsif (defined $oe) {
2794 $oe->
2795 remove_attribute_node
2796 ($source);
2797 }
2798
2799
2800
2801 }
2802
2803
2804 ;}
2805
2806 ;
2807
2808 $r = $source;
2809 my $old_od = $change_od[0]->
2810 owner_document
2811 ;
2812 ## NOTE: The array must have more than zero
2813 ## nodes by definition. In addition,
2814 ## it cannot contain document or document
2815 ## type nodes in current implementation.
2816
2817 if ($old_od eq $self) {
2818 last ADOPT;
2819 }
2820
2821 for my $n (@change_od) {
2822 $$n->{
2823 'od'
2824 } = $self;
2825 Scalar::Util::weaken ($$n->{
2826 'od'
2827 });
2828 }
2829
2830 for my $src (@change_od) {
2831 my $src_ud = $$src->{
2832 'ud'
2833 };
2834 for my $key (keys %{$src_ud or {}}) {
2835 my $dh = $src_ud->{$key}->[1];
2836 if ($dh) {
2837 $dh->
2838 handle
2839
2840 (
2841 5
2842 ,
2843 $key, $src_ud->{$key}->[0], $src,
2844 undef
2845 );
2846 }
2847 }
2848 }
2849 } # ADOPT
2850
2851
2852 }
2853 $r}
2854 sub get_element_by_id ($$) {
2855 my ($self, $elementId) = @_;
2856 my $r;
2857
2858 {
2859
2860
2861 {
2862
2863 local $Error::Depth = $Error::Depth + 1;
2864
2865 {
2866
2867
2868 my
2869 @nodes = @{$self->
2870 child_nodes
2871 };
2872 N: while (@nodes) {
2873 my $node = shift @nodes;
2874 next N unless $node->
2875 node_type
2876 ==
2877 1
2878 ;
2879 for my $attr (@{$node->
2880 attributes
2881 }) {
2882 if ($attr->
2883 is_id and
2884
2885 $attr->
2886 value eq
2887 $elementId) {
2888 $r = $attr;
2889 last N;
2890 }
2891 }
2892 unshift @nodes, @{$node->
2893 child_nodes
2894 };
2895 } # N
2896
2897
2898
2899 }
2900
2901
2902 ;}
2903
2904 ;
2905
2906
2907 }
2908 $r}
2909 sub get_elements_by_tag_name ($$) {
2910 my ($self, $name) = @_;
2911 my $r;
2912
2913 {
2914
2915
2916 $name = "$name";
2917 my $chk;
2918 if ($name eq '*') {
2919 $chk = sub {
2920 1
2921 };
2922 } else {
2923 $chk = sub {
2924 my $node = shift;
2925 my $nodeName = $node->
2926 node_name
2927 ;
2928 ($nodeName eq $name);
2929 };
2930 }
2931
2932
2933 {
2934
2935
2936 $r = bless \[$self, $chk],
2937 'Message::DOM::TreeCore::ManakaiDOMGetElementsNodeList'
2938 ;
2939
2940
2941 }
2942
2943 ;
2944
2945
2946 }
2947 $r}
2948 sub get_elements_by_tag_name_ns ($$$) {
2949 my ($self, $namespaceURI, $localName) = @_;
2950
2951 {
2952
2953 if
2954 (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
2955 require Message::DOM::DOMMain;
2956
2957 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
2958
2959 ;
2960
2961
2962
2963 {
2964
2965
2966 $namespaceURI = undef;
2967
2968
2969
2970 }
2971
2972 ;
2973 }
2974
2975
2976 }
2977 my $r;
2978
2979 {
2980
2981
2982 $namespaceURI = "$namespaceURI" if defined $namespaceURI;
2983 $localName = "$localName";
2984 my $chk;
2985 if (not defined $namespaceURI) {
2986 if ($localName eq '*') {
2987 $chk = sub {
2988 my $node = shift;
2989 (not defined $node->
2990 namespace_uri
2991 );
2992 };
2993 } else {
2994 $chk = sub {
2995 my $node = shift;
2996 (not defined $node->
2997 namespace_uri and
2998
2999 $node->
3000 local_name eq
3001 $localName);
3002 };
3003 }
3004 } elsif ($namespaceURI eq '*') {
3005 if ($localName eq '*') {
3006 $chk = sub {
3007 1
3008 };
3009 } else {
3010 $chk = sub {
3011 my $node = shift;
3012 ($node->
3013 local_name eq
3014 $localName);
3015 };
3016 }
3017 } else {
3018 if ($localName eq '*') {
3019 $chk = sub {
3020 my $node = shift;
3021 my $nsuri = $node->
3022 namespace_uri
3023 ;
3024 (defined $nsuri and $nsuri eq $namespaceURI);
3025 };
3026 } else {
3027 $chk = sub {
3028 my $node = shift;
3029 my $nsuri = $node->
3030 namespace_uri
3031 ;
3032 (defined $nsuri and $nsuri eq $namespaceURI and
3033 $node->
3034 local_name eq
3035 $localName);
3036 };
3037 }
3038 }
3039
3040
3041 {
3042
3043
3044 $r = bless \[$self, $chk],
3045 'Message::DOM::TreeCore::ManakaiDOMGetElementsNodeList'
3046 ;
3047
3048
3049 }
3050
3051 ;
3052
3053
3054 }
3055 $r}
3056 sub import_node ($$;$) {
3057 my ($self, $importedNode, $deep) = @_;
3058 my $r;
3059 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'import_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
3060 $r}
3061 sub normalize_document ($) {
3062 my ($self) = @_;
3063 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'normalize_document', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
3064 }
3065 sub rename_node ($$$$) {
3066 my ($self, $n, $namespaceURI, $qualifiedName) = @_;
3067
3068 {
3069
3070 if
3071 (CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) {
3072 require Message::DOM::DOMMain;
3073
3074 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:tag:suika.fam.cx,2005-09:1167450139:7187:cCkYT15288+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3075
3076 ;
3077
3078
3079
3080 {
3081
3082
3083 $namespaceURI = undef;
3084
3085
3086
3087 }
3088
3089 ;
3090 }
3091
3092
3093 }
3094 my $r;
3095 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'rename_node', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocument';
3096 $r}
3097 sub manakai_entity_base_uri ($;$) {
3098 if (@_ == 1) {my ($self) = @_;
3099 my $r = '';
3100
3101 {
3102
3103
3104 $r = $$self->{
3105 'buri'
3106 };
3107 unless (defined $r) {
3108 $r = $$self->{
3109 'duri'
3110 };
3111 }
3112
3113
3114 }
3115 $r;
3116 } else {my ($self, $given) = @_;
3117
3118 {
3119
3120
3121 {
3122
3123 if
3124 ($self->
3125 manakai_read_only
3126 ) {
3127
3128 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3129
3130 ;
3131 }
3132
3133
3134 }
3135
3136 ;
3137 $$self->{
3138 'buri'
3139 } = $given;
3140
3141
3142 }
3143 }
3144 }
3145 sub all_declarations_processed ($;$) {
3146 if (@_ == 1) {my ($self) = @_;
3147 my $r = 0;
3148
3149 {
3150
3151
3152 $r = $$self->{
3153 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
3154 };
3155
3156
3157 }
3158 $r;
3159 } else {my ($self, $given) = @_;
3160
3161 {
3162
3163
3164 {
3165
3166 if
3167 ($self->
3168 manakai_read_only
3169 ) {
3170
3171 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/NodeReadOnlyError+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3172
3173 ;
3174 }
3175
3176
3177 }
3178
3179 ;
3180 $$self->{
3181 'http://www.w3.org/2001/04/infoset#allDeclarationsProcessed'
3182 } = $given;
3183
3184
3185 }
3186 }
3187 }
3188 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core',
3189 {'',
3190 '1',
3191 '1.0',
3192 '1',
3193 '2.0',
3194 '1',
3195 '3.0',
3196 '1'},
3197 'xml',
3198 {'',
3199 '1',
3200 '1.0',
3201 '1',
3202 '2.0',
3203 '1',
3204 '3.0',
3205 '1'},
3206 'xmlversion',
3207 {'',
3208 '1',
3209 '1.0',
3210 '1',
3211 '1.1',
3212 '1'}};
3213 $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1;
3214 package Message::DOM::IFLatest::DocumentFragment;
3215 our $VERSION = 20061230.0424;
3216 package Message::DOM::Document::ManakaiDOMDocumentFragment;
3217 our $VERSION = 20061230.0424;
3218 push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
3219 'Message::DOM::IFLatest::DocumentFragment',
3220 'Message::DOM::IFLatest::Node';
3221 sub node_type ($;$) {
3222 if (@_ == 1) {my ($self) = @_;
3223 my $r;
3224 $r = 11;
3225 $r;
3226 } else {my ($self) = @_;
3227 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
3228 }
3229 }
3230 sub append_child ($$) {
3231 my ($self, $newChild) = @_;
3232 my $r;
3233
3234 {
3235
3236 if
3237 ($self eq $newChild) {
3238
3239 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'append_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';
3240
3241 ;
3242 }
3243 my $self_od = $self->
3244 owner_document
3245 ;
3246 my $child_od = $newChild->
3247 owner_document
3248 ;
3249 my $child_nt = $newChild->
3250 node_type
3251 ;
3252
3253
3254 {
3255
3256
3257 {
3258
3259 local $Error::Depth = $Error::Depth + 1;
3260
3261 {
3262
3263
3264 my
3265 $strict = $self_od->
3266 strict_error_checking
3267 ;
3268
3269 ## -- Node Type check
3270 my @new_child;
3271 if ({
3272 3 => 1,
3273 5 => 1,
3274 1 => 1,
3275 7 => 1,
3276 4 => 1,
3277 8 => 1,
3278 }->{$child_nt}) {
3279 push @new_child, $newChild;
3280 } elsif ($child_nt ==
3281 11
3282 ) {
3283 for my $cn (@{$newChild->
3284 child_nodes
3285 }) {
3286 unless ({
3287 3 => 1,
3288 5 => 1,
3289 1 => 1,
3290 7 => 1,
3291 4 => 1,
3292 8 => 1,
3293 }->{$cn->
3294 node_type
3295 }) {
3296
3297
3298 {
3299
3300 local $Error::Depth = $Error::Depth - 1;
3301
3302 {
3303
3304 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3305
3306
3307 }
3308
3309
3310 ;}
3311
3312 ;
3313 }
3314 push @new_child, $cn;
3315 }
3316 } else {
3317
3318
3319 {
3320
3321 local $Error::Depth = $Error::Depth - 1;
3322
3323 {
3324
3325 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3326
3327
3328 }
3329
3330
3331 ;}
3332
3333 ;
3334 }
3335
3336 my $nc_parent = @new_child ? $new_child[0]->
3337 parent_node
3338 :
3339
3340 undef
3341 ;
3342 if ($strict) {
3343 ## -- Wrong-document check
3344 unless ($self_od eq $child_od) {
3345
3346
3347 {
3348
3349 local $Error::Depth = $Error::Depth - 1;
3350
3351 {
3352
3353 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3354
3355
3356 }
3357
3358
3359 ;}
3360
3361 ;
3362 }
3363
3364 ## -- Read-onlyness check
3365 if ($self->
3366 manakai_read_only
3367 ) {
3368
3369
3370 {
3371
3372 local $Error::Depth = $Error::Depth - 1;
3373
3374 {
3375
3376 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3377
3378
3379 }
3380
3381
3382 ;}
3383
3384 ;
3385 }
3386 if (@new_child) {
3387 if ($nc_parent and
3388 $nc_parent->
3389 manakai_read_only
3390 ) {
3391
3392
3393 {
3394
3395 local $Error::Depth = $Error::Depth - 1;
3396
3397 {
3398
3399 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/appendChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3400
3401
3402 }
3403
3404
3405 ;}
3406
3407 ;
3408 }
3409 }
3410 }
3411
3412 ## -- Insert at...
3413 my $index = -1; # last
3414
3415
3416 ; # FOR !tc:ForAppendChild
3417
3418 ## -- Removes from parent
3419 if ($nc_parent) {
3420 if ($child_nt ==
3421 11
3422 ) {
3423 $$newChild->{
3424 'child'
3425 } = [];
3426 } else {
3427 my $v = $$nc_parent->{
3428 'child'
3429 };
3430 RP: for my $i (0..$#$v) {
3431 if ($v->[$i] eq $new_child[0]) {
3432 splice @$v, $i, 1, ();
3433 last RP;
3434 }
3435 } # RP
3436 }
3437 }
3438
3439 ## -- Rewrite the |parentNode| properties
3440 for my $nc (@new_child) {
3441 $$nc->{
3442 'parent'
3443 } = $self;
3444 Scalar::Util::weaken ($$nc->{
3445 'parent'
3446 });
3447 }
3448
3449 my $children = $$self->{
3450 'child'
3451 };
3452
3453
3454
3455 {
3456
3457
3458 ## -- Adds to children list
3459 push @$children, @new_child;
3460 $r = $newChild;
3461
3462
3463
3464 }
3465
3466 ;
3467
3468
3469
3470 ;
3471
3472
3473
3474 ;
3475
3476
3477
3478 }
3479
3480
3481 ;}
3482
3483 ;
3484
3485
3486 }
3487
3488 ;
3489
3490
3491 }
3492 $r}
3493 sub insert_before ($$;$) {
3494 my ($self, $newChild, $refChild) = @_;
3495 my $r;
3496
3497 {
3498
3499 if
3500 ($self eq $newChild) {
3501
3502 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'insert_before', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';
3503
3504 ;
3505 }
3506 my $self_od = $self->
3507 owner_document
3508 ;
3509 my $child_od = $newChild->
3510 owner_document
3511 ;
3512 my $child_nt = $newChild->
3513 node_type
3514 ;
3515
3516
3517 {
3518
3519
3520 {
3521
3522 local $Error::Depth = $Error::Depth + 1;
3523
3524 {
3525
3526
3527 my
3528 $strict = $self_od->
3529 strict_error_checking
3530 ;
3531
3532 ## -- Node Type check
3533 my @new_child;
3534 if ({
3535 3 => 1,
3536 5 => 1,
3537 1 => 1,
3538 7 => 1,
3539 4 => 1,
3540 8 => 1,
3541 }->{$child_nt}) {
3542 push @new_child, $newChild;
3543 } elsif ($child_nt ==
3544 11
3545 ) {
3546 for my $cn (@{$newChild->
3547 child_nodes
3548 }) {
3549 unless ({
3550 3 => 1,
3551 5 => 1,
3552 1 => 1,
3553 7 => 1,
3554 4 => 1,
3555 8 => 1,
3556 }->{$cn->
3557 node_type
3558 }) {
3559
3560
3561 {
3562
3563 local $Error::Depth = $Error::Depth - 1;
3564
3565 {
3566
3567 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3568
3569
3570 }
3571
3572
3573 ;}
3574
3575 ;
3576 }
3577 push @new_child, $cn;
3578 }
3579 } else {
3580
3581
3582 {
3583
3584 local $Error::Depth = $Error::Depth - 1;
3585
3586 {
3587
3588 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3589
3590
3591 }
3592
3593
3594 ;}
3595
3596 ;
3597 }
3598
3599 my $nc_parent = @new_child ? $new_child[0]->
3600 parent_node
3601 :
3602
3603 undef
3604 ;
3605 if ($strict) {
3606 ## -- Wrong-document check
3607 unless ($self_od eq $child_od) {
3608
3609
3610 {
3611
3612 local $Error::Depth = $Error::Depth - 1;
3613
3614 {
3615
3616 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3617
3618
3619 }
3620
3621
3622 ;}
3623
3624 ;
3625 }
3626
3627 ## -- Read-onlyness check
3628 if ($self->
3629 manakai_read_only
3630 ) {
3631
3632
3633 {
3634
3635 local $Error::Depth = $Error::Depth - 1;
3636
3637 {
3638
3639 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3640
3641
3642 }
3643
3644
3645 ;}
3646
3647 ;
3648 }
3649 if (@new_child) {
3650 if ($nc_parent and
3651 $nc_parent->
3652 manakai_read_only
3653 ) {
3654
3655
3656 {
3657
3658 local $Error::Depth = $Error::Depth - 1;
3659
3660 {
3661
3662 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3663
3664
3665 }
3666
3667
3668 ;}
3669
3670 ;
3671 }
3672 }
3673 }
3674
3675 ## -- Insert at...
3676 my $index = -1; # last
3677
3678
3679 {
3680
3681
3682 # tc:ForAppendChild & tc:ForReplaceChild
3683 if (defined $refChild) {
3684 if ($refChild eq $newChild) {
3685
3686
3687 {
3688
3689
3690 {
3691
3692 local $Error::Depth = $Error::Depth - 1;
3693
3694 {
3695
3696 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#insert-before-itself', 'rdata' => $refChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3697
3698
3699 }
3700
3701
3702 ;}
3703
3704 ;
3705
3706
3707
3708 }
3709
3710 ;
3711
3712
3713 ;
3714 }
3715
3716 my $cns = $self->
3717 child_nodes
3718 ;
3719 my $cnsl = @$cns;
3720 C: {
3721 $index = 0;
3722 for my $i (0..($cnsl-1)) {
3723 my $cn = $cns->[$i];
3724 if ($cn eq $refChild) {
3725 $index += $i;
3726 last C;
3727 } elsif ($cn eq $newChild) {
3728 $index = -1; # offset
3729 }
3730 }
3731
3732
3733 {
3734
3735
3736 {
3737
3738 local $Error::Depth = $Error::Depth - 1;
3739
3740 {
3741
3742 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/insertBeforeImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'refChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $refChild;
3743
3744
3745 }
3746
3747
3748 ;}
3749
3750 ;
3751
3752
3753
3754 }
3755
3756 ;
3757
3758
3759 ;
3760 } # C
3761 } else { # |oldChild| is not defined
3762
3763
3764 ;
3765 }
3766
3767
3768
3769 }
3770
3771 ; # FOR !tc:ForAppendChild
3772
3773 ## -- Removes from parent
3774 if ($nc_parent) {
3775 if ($child_nt ==
3776 11
3777 ) {
3778 $$newChild->{
3779 'child'
3780 } = [];
3781 } else {
3782 my $v = $$nc_parent->{
3783 'child'
3784 };
3785 RP: for my $i (0..$#$v) {
3786 if ($v->[$i] eq $new_child[0]) {
3787 splice @$v, $i, 1, ();
3788 last RP;
3789 }
3790 } # RP
3791 }
3792 }
3793
3794 ## -- Rewrite the |parentNode| properties
3795 for my $nc (@new_child) {
3796 $$nc->{
3797 'parent'
3798 } = $self;
3799 Scalar::Util::weaken ($$nc->{
3800 'parent'
3801 });
3802 }
3803
3804 my $children = $$self->{
3805 'child'
3806 };
3807
3808
3809
3810 ;
3811
3812
3813
3814 {
3815
3816
3817 ## -- Adds to children list
3818 if ($index == -1) {
3819 push @$children, @new_child;
3820 } else {
3821 splice @$children, $index, 0, @new_child;
3822 }
3823 $r = $newChild;
3824
3825
3826
3827 }
3828
3829 ;
3830
3831
3832
3833 ;
3834
3835
3836
3837 }
3838
3839
3840 ;}
3841
3842 ;
3843
3844
3845 }
3846
3847 ;
3848
3849
3850 }
3851 $r}
3852 sub replace_child ($$$) {
3853 my ($self, $newChild, $oldChild) = @_;
3854 my $r;
3855
3856 {
3857
3858 if
3859 ($self eq $newChild) {
3860
3861 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'replace_child', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#HIERARCHY_DOCUMENT_FRAGMENT_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild';
3862
3863 ;
3864 }
3865 my $self_od = $self->
3866 owner_document
3867 ;
3868 my $child_od = $newChild->
3869 owner_document
3870 ;
3871 my $child_nt = $newChild->
3872 node_type
3873 ;
3874
3875
3876 {
3877
3878
3879 {
3880
3881 local $Error::Depth = $Error::Depth + 1;
3882
3883 {
3884
3885
3886 my
3887 $strict = $self_od->
3888 strict_error_checking
3889 ;
3890
3891 ## -- Node Type check
3892 my @new_child;
3893 if ({
3894 3 => 1,
3895 5 => 1,
3896 1 => 1,
3897 7 => 1,
3898 4 => 1,
3899 8 => 1,
3900 }->{$child_nt}) {
3901 push @new_child, $newChild;
3902 } elsif ($child_nt ==
3903 11
3904 ) {
3905 for my $cn (@{$newChild->
3906 child_nodes
3907 }) {
3908 unless ({
3909 3 => 1,
3910 5 => 1,
3911 1 => 1,
3912 7 => 1,
3913 4 => 1,
3914 8 => 1,
3915 }->{$cn->
3916 node_type
3917 }) {
3918
3919
3920 {
3921
3922 local $Error::Depth = $Error::Depth - 1;
3923
3924 {
3925
3926 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3927
3928
3929 }
3930
3931
3932 ;}
3933
3934 ;
3935 }
3936 push @new_child, $cn;
3937 }
3938 } else {
3939
3940
3941 {
3942
3943 local $Error::Depth = $Error::Depth - 1;
3944
3945 {
3946
3947 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3948
3949
3950 }
3951
3952
3953 ;}
3954
3955 ;
3956 }
3957
3958 my $nc_parent = @new_child ? $new_child[0]->
3959 parent_node
3960 :
3961
3962 undef
3963 ;
3964 if ($strict) {
3965 ## -- Wrong-document check
3966 unless ($self_od eq $child_od) {
3967
3968
3969 {
3970
3971 local $Error::Depth = $Error::Depth - 1;
3972
3973 {
3974
3975 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'WRONG_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DIFFERENT_DOCUMENT_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'newChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $newChild;
3976
3977
3978 }
3979
3980
3981 ;}
3982
3983 ;
3984 }
3985
3986 ## -- Read-onlyness check
3987 if ($self->
3988 manakai_read_only
3989 ) {
3990
3991
3992 {
3993
3994 local $Error::Depth = $Error::Depth - 1;
3995
3996 {
3997
3998 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
3999
4000
4001 }
4002
4003
4004 ;}
4005
4006 ;
4007 }
4008 if (@new_child) {
4009 if ($nc_parent and
4010 $nc_parent->
4011 manakai_read_only
4012 ) {
4013
4014
4015 {
4016
4017 local $Error::Depth = $Error::Depth - 1;
4018
4019 {
4020
4021 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_SRC_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
4022
4023
4024 }
4025
4026
4027 ;}
4028
4029 ;
4030 }
4031 }
4032 }
4033
4034 ## -- Insert at...
4035 my $index = -1; # last
4036
4037
4038 {
4039
4040
4041 # tc:ForAppendChild & tc:ForReplaceChild
4042 if (defined $oldChild) {
4043 if ($oldChild eq $newChild) {
4044
4045
4046 ;
4047
4048
4049 {
4050
4051
4052 {
4053
4054 local $Error::Depth = $Error::Depth - 1;
4055
4056 {
4057
4058 report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/tree#replace-by-itself', 'rdata' => $oldChild, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest';
4059
4060
4061 }
4062
4063
4064 ;}
4065
4066 ;
4067
4068
4069
4070 }
4071
4072 ;
4073 }
4074
4075 my $cns = $self->
4076 child_nodes
4077 ;
4078 my $cnsl = @$cns;
4079 C: {
4080 $index = 0;
4081 for my $i (0..($cnsl-1)) {
4082 my $cn = $cns->[$i];
4083 if ($cn eq $oldChild) {
4084 $index += $i;
4085 last C;
4086 } elsif ($cn eq $newChild) {
4087 $index = -1; # offset
4088 }
4089 }
4090
4091
4092 ;
4093
4094
4095 {
4096
4097
4098 {
4099
4100 local $Error::Depth = $Error::Depth - 1;
4101
4102 {
4103
4104 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
4105
4106
4107 }
4108
4109
4110 ;}
4111
4112 ;
4113
4114
4115
4116 }
4117
4118 ;
4119 } # C
4120 } else { # |oldChild| is not defined
4121
4122
4123 {
4124
4125
4126 {
4127
4128 local $Error::Depth = $Error::Depth - 1;
4129
4130 {
4131
4132 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'NOT_FOUND_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NOT_CHILD_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/replaceChildImpl1+http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom%23ManakaiDOMLatest', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'oldChild', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#node' => $oldChild;
4133
4134
4135 }
4136
4137
4138 ;}
4139
4140 ;
4141
4142
4143
4144 }
4145
4146 ;
4147 }
4148
4149
4150
4151 }
4152
4153 ; # FOR !tc:ForAppendChild
4154
4155 ## -- Removes from parent
4156 if ($nc_parent) {
4157 if ($child_nt ==
4158 11
4159 ) {
4160 $$newChild->{
4161 'child'
4162 } = [];
4163 } else {
4164 my $v = $$nc_parent->{
4165 'child'
4166 };
4167 RP: for my $i (0..$#$v) {
4168 if ($v->[$i] eq $new_child[0]) {
4169 splice @$v, $i, 1, ();
4170 last RP;
4171 }
4172 } # RP
4173 }
4174 }
4175
4176 ## -- Rewrite the |parentNode| properties
4177 for my $nc (@new_child) {
4178 $$nc->{
4179 'parent'
4180 } = $self;
4181 Scalar::Util::weaken ($$nc->{
4182 'parent'
4183 });
4184 }
4185
4186 my $children = $$self->{
4187 'child'
4188 };
4189
4190
4191
4192 ;
4193
4194
4195
4196 ;
4197
4198
4199
4200 {
4201
4202
4203 ## -- Replaces the node
4204 splice @$children, $index, 1, @new_child;
4205 CORE::delete $$oldChild->{
4206 'parent'
4207 };
4208 $r = $oldChild;
4209
4210
4211
4212 }
4213
4214 ;
4215
4216
4217
4218 }
4219
4220
4221 ;}
4222
4223 ;
4224
4225
4226 }
4227
4228 ;
4229
4230
4231 }
4232 $r}
4233 sub node_name ($;$) {
4234 if (@_ == 1) {my ($self) = @_;
4235 my $r = '';
4236 $r = '#document-fragment';
4237 $r;
4238 } else {my ($self) = @_;
4239 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
4240 }
4241 }
4242 sub manakai_append_text ($$) {
4243 my ($self, $string) = @_;
4244 my $r;
4245
4246 {
4247
4248
4249 {
4250
4251 local $Error::Depth = $Error::Depth + 1;
4252
4253 {
4254
4255
4256 my
4257 $lc = $self->
4258 last_child
4259 ;
4260 if (defined $lc and
4261 $lc->
4262 node_type
4263 ==
4264 3
4265 ) {
4266 $lc->
4267 manakai_append_text
4268
4269 (ref $string eq 'SCALAR' ? $string : \$string);
4270 } else {
4271 my $text = $self->
4272 owner_document
4273
4274 ->
4275 create_text_node
4276
4277 (ref $string eq 'SCALAR' ? $$string : $string);
4278 $self->
4279 append_child
4280 ($text);
4281 }
4282 $r = $self;
4283
4284
4285
4286 }
4287
4288
4289 ;}
4290
4291 ;
4292
4293
4294 }
4295 $r}
4296 sub get_feature ($$$) {
4297 my ($self, $feature, $version) = @_;
4298
4299 {
4300
4301
4302 $feature = lc $feature;
4303
4304
4305 }
4306
4307 {
4308
4309
4310 $version = '' unless defined $version;
4311
4312
4313 }
4314 my $r;
4315
4316 {
4317
4318
4319 $feature =~ s/^\+//;
4320
4321
4322 {
4323
4324 if
4325 ($Message::Util::AutoLoad::Registry::Feature->{$feature}->{$version}) {
4326 $r = $self;
4327 }
4328
4329
4330 }
4331
4332 ;
4333 unless (defined $r) {
4334
4335
4336 {
4337
4338 local $Error::Depth = $Error::Depth + 1;
4339
4340 {
4341
4342
4343
4344 $r = $self->SUPER::get_feature ($feature, $version);
4345
4346
4347
4348 }
4349
4350
4351 ;}
4352
4353 ;
4354 }
4355
4356
4357 }
4358 $r}
4359 sub base_uri ($;$) {
4360 if (@_ == 1) {my ($self) = @_;
4361 my $r = '';
4362
4363 {
4364
4365
4366 {
4367
4368 local $Error::Depth = $Error::Depth + 1;
4369
4370 {
4371
4372
4373
4374 $r = $self->
4375 owner_document
4376 ->
4377 base_uri
4378 ;
4379
4380
4381
4382 }
4383
4384
4385 ;}
4386
4387 ;
4388
4389
4390 }
4391 $r;
4392 } else {my ($self) = @_;
4393 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::Document::ManakaiDOMDocumentFragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
4394 }
4395 }
4396 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{has_feature} = {'core',
4397 {'',
4398 '1',
4399 '1.0',
4400 '1',
4401 '2.0',
4402 '1',
4403 '3.0',
4404 '1'},
4405 'xml',
4406 {'',
4407 '1',
4408 '1.0',
4409 '1',
4410 '2.0',
4411 '1',
4412 '3.0',
4413 '1'},
4414 'xmlversion',
4415 {'',
4416 '1',
4417 '1.0',
4418 '1',
4419 '1.1',
4420 '1'}};
4421 $Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 14.1;
4422 for ($Message::DOM::IFLatest::Node::){}
4423 ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
4424 1;
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24