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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (show annotations) (download)
Sun Apr 16 08:20:25 2006 UTC (18 years, 7 months ago) by wakaba
Branch: MAIN 
++ manakai/t/ChangeLog	16 Apr 2006 08:00:28 -0000
2006-04-16  Wakaba  <wakaba@suika.fam.cx>

	* Makefile (dom-CharacterData.t): New test.

++ manakai/lib/Message/Util/ChangeLog	16 Apr 2006 08:02:29 -0000
2006-04-16  Wakaba  <wakaba@suika.fam.cx>

	* Makefile (.discore-all.pm): |CharacterData.pm| is added.

++ manakai/lib/Message/DOM/ChangeLog	16 Apr 2006 08:01:01 -0000
2006-04-16  Wakaba  <wakaba@suika.fam.cx>

	* CharacterData.dis: New module split from |TreeCore.dis|.

	* CharacterData.pm: Added to the CVS repository.

	* TreeCore.dis: The |CharacterData|, |Text|, and |Comment|
	interfaces are removed.
	(Require): A reference to the |MDOM:CharacterData| module
	is added.

	* DOMMain.dis (StringExtended, StringOutOfBoundsException): Removed.

	* DOMCore.dis (StringOutOfBoundsException): New error.

	* Makefile: |CharacterData.pm| is added.
1 #!/usr/bin/perl
2 ## This file is automatically generated
3 ## at 2006-04-16T08:00:50+00:00,
4 ## from file "CharacterData.dis",
5 ## module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.CharacterData>,
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::CharacterData;
13 our $VERSION = 20060416.0800;
14 package Message::DOM::IFLatest::CharacterData;
15 our $VERSION = 20060416.0800;
16 package Message::DOM::CharacterData::ManakaiDOMCharacterData;
17 our $VERSION = 20060416.0800;
18 push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
19 'Message::DOM::IF::CharacterData',
20 'Message::DOM::IF::Node',
21 'Message::DOM::IFLatest::CharacterData',
22 'Message::DOM::IFLatest::Node',
23 'Message::DOM::IFLatest::StringExtended',
24 'Message::DOM::IFLevel1::CharacterData',
25 'Message::DOM::IFLevel1::Node',
26 'Message::DOM::IFLevel2::CharacterData',
27 'Message::DOM::IFLevel2::Node',
28 'Message::DOM::IFLevel3::CharacterData',
29 'Message::DOM::IFLevel3::Node';
30 sub ___create_node_stem ($$$$) {
31 my ($self, $bag, $obj, $opt) = @_;
32 my $r = {};
33
34 {
35
36
37 $obj->{
38 'con'
39 } = $opt->{
40 'con'
41 };
42
43
44 {
45
46
47 $obj->{'od'} = $opt->{'od'}->{
48 'id'
49 };
50 $bag->{${$opt->{'od'}->{
51 'id'
52 }}}
53 ->{'do'}->{${$obj->{
54 'id'
55 }}}
56 = $obj->{
57 'id'
58 };
59
60
61 }
62
63 ;
64 $r = $obj;
65
66
67 }
68 $r}
69 sub child_nodes ($;$) {
70 if (@_ == 1) {my ($self) = @_;
71 my $r;
72
73 {
74
75
76 {
77
78
79 $r = bless [],
80 'Message::DOM::TreeCore::ManakaiDOMEmptyNodeList'
81 ;
82
83
84 }
85
86 ;
87
88
89 }
90 $r;
91 } else {my ($self) = @_;
92 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::CharacterData::ManakaiDOMCharacterData', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'child_nodes';
93 }
94 }
95 sub append_child ($$) {
96 my ($self, $newChild) = @_;
97 my $r;
98
99 {
100
101 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#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMCharacterData', '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;
102
103 ;
104
105
106 }
107 $r}
108 sub insert_before ($$;$) {
109 my ($self, $newChild, $refChild) = @_;
110 my $r;
111
112 {
113
114 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#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMCharacterData', '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;
115
116 ;
117
118
119 }
120 $r}
121 sub replace_child ($$$) {
122 my ($self, $newChild, $oldChild) = @_;
123 my $r;
124
125 {
126
127 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#HIERARCHY_BAD_TYPE', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMCharacterData', '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;
128
129 ;
130
131
132 }
133 $r}
134 sub manakai_append_text ($$) {
135 my ($self, $string) = @_;
136 my $r;
137
138 {
139
140
141 {
142
143 local $Error::Depth = $Error::Depth + 1;
144
145 {
146
147
148 if
149 ($self->
150 owner_document
151
152 ->
153 strict_error_checking and
154
155 $self->
156 manakai_read_only
157 ) {
158
159
160 {
161
162 local $Error::Depth = $Error::Depth - 1;
163
164 {
165
166 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' => 'manakai_append_text', '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::CharacterData::ManakaiDOMCharacterData';
167
168
169 }
170
171
172 ;}
173
174 ;
175 }
176 my $v;
177
178
179 {
180
181
182 $v = $self->{
183 'b'
184 }->{${$self->{
185 'id'
186 }}}
187 ->{'con'};
188
189
190 }
191
192 ;
193 $$v .= ref $string eq 'SCALAR' ? $$string : $string;
194 $r = $self;
195
196
197
198 }
199
200
201 ;}
202
203 ;
204
205
206 }
207 $r}
208 sub node_value ($;$) {
209 if (@_ == 1) {my ($self) = @_;
210 my $r = '';
211
212 {
213
214 my
215 $v;
216
217
218 {
219
220
221 $v = $self->{
222 'b'
223 }->{${$self->{
224 'id'
225 }}}
226 ->{'con'};
227
228
229 }
230
231 ;
232 $r = $$v;
233
234
235 }
236 $r;
237 } else {my ($self, $given) = @_;
238
239 {
240
241
242 {
243
244 if
245 ($self->
246 manakai_read_only
247 ) {
248
249 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';
250
251 ;
252 }
253
254
255 }
256
257 ;
258 my $v;
259
260
261 {
262
263
264 $v = $self->{
265 'b'
266 }->{${$self->{
267 'id'
268 }}}
269 ->{'con'};
270
271
272 }
273
274 ;
275 $$v = defined $given ? $given : '';
276 ## NOTE: Setting NULL is supported for
277 ## compatibility with |textContent|.
278
279
280 }
281 }
282 }
283 sub text_content ($;$) {
284 if (@_ == 1) {my ($self) = @_;
285 my $r = '';
286
287 {
288
289 my
290 $v;
291
292
293 {
294
295
296 $v = $self->{
297 'b'
298 }->{${$self->{
299 'id'
300 }}}
301 ->{'con'};
302
303
304 }
305
306 ;
307 $r = $$v;
308
309
310 }
311 $r;
312 } else {my ($self, $given) = @_;
313
314 {
315
316
317 {
318
319 if
320 ($self->
321 manakai_read_only
322 ) {
323
324 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';
325
326 ;
327 }
328
329
330 }
331
332 ;
333 my $v;
334
335
336 {
337
338
339 $v = $self->{
340 'b'
341 }->{${$self->{
342 'id'
343 }}}
344 ->{'con'};
345
346
347 }
348
349 ;
350 $$v = defined $given ? $given : '';
351 ## NOTE: Setting NULL is supported for
352 ## compatibility with |textContent|.
353
354
355 }
356 }
357 }
358 sub base_uri ($;$) {
359 if (@_ == 1) {my ($self) = @_;
360 my $r = '';
361
362 {
363
364
365 {
366
367 local $Error::Depth = $Error::Depth + 1;
368
369 {
370
371
372 my
373 $pe = $self->
374 parent_node
375 ;
376 W: {
377 while (defined $pe) {
378 my $nt = $pe->
379 node_type
380 ;
381 if ($nt ==
382 '1' or
383
384 $nt ==
385 '2' or
386
387 $nt ==
388 '9' or
389
390 $nt ==
391 '11' or
392
393 $nt ==
394 '6'
395 ) {
396 $r = $pe->
397 base_uri
398 ;
399 last W;
400 } elsif ($nt ==
401 '5'
402 ) {
403 if ($pe->
404 manakai_external
405 ) {
406 $r = $pe->
407 manakai_entity_base_uri
408 ;
409 last W;
410 }
411 }
412 $pe = $pe->
413 parent_node
414 ;
415 }
416 if ($pe) {
417 $r = $pe->
418 base_uri
419 ;
420 } else {
421 $r = $self->
422 owner_document
423 ->
424 base_uri
425 ;
426 }
427 } # W
428
429
430
431 }
432
433
434 ;}
435
436 ;
437
438
439 }
440 $r;
441 } else {my ($self) = @_;
442 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::CharacterData::ManakaiDOMCharacterData', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'base_uri';
443 }
444 }
445 sub find_offset16 ($$) {
446 my ($self, $offset32) = @_;
447 my $r = 0;
448
449 {
450
451 my
452 $v;
453
454
455 {
456
457
458 $v = $self->{
459 'b'
460 }->{${$self->{
461 'id'
462 }}}
463 ->{'con'};
464
465
466 }
467
468 ;
469
470 if (not defined $offset32 or $offset32 < 0 or
471 CORE::length ($$v) < $offset32) {
472
473 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#index' => $offset32, '-type' => 'INDEX_SIZE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'find_offset16', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#StringIndexOutOfBoundsException', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMCharacterData', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'offset32';
474
475 ;
476 }
477
478 my $ss = substr $$v, 0, $offset32;
479 $r = $offset32;
480 if ($ss =~ /[\x{10000}-\x{10FFFF}]/) {
481 while ($ss =~ /[\x{10000}-\x{10FFFF}]+/g) {
482 $r += $+[0] - $-[0];
483 }
484 }
485
486
487 }
488 $r}
489 sub find_offset32 ($$) {
490 my ($self, $offset16) = @_;
491 my $r = 0;
492
493 {
494
495 my
496 $v;
497
498
499 {
500
501
502 $v = $self->{
503 'b'
504 }->{${$self->{
505 'id'
506 }}}
507 ->{'con'};
508
509
510 }
511
512 ;
513
514 if (not defined $offset16 or $offset16 < 0) {
515
516 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#index' => $offset16, '-type' => 'INDEX_SIZE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'find_offset32', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#StringIndexOutOfBoundsException', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMCharacterData', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'offset16';
517
518 ;
519 }
520
521 my $o = $offset16;
522 while ($o > 0) {
523 my $c = substr ($$v, $r, 1);
524 if (length $c) {
525 if ($c =~ /[\x{10000}-\x{10FFFF}]/) {
526 $o -= 2;
527 } else {
528 $o--;
529 }
530 $r++;
531 } else {
532
533 report Message::DOM::DOMCore::ManakaiDOMException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#index' => $offset16, '-type' => 'INDEX_SIZE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'find_offset32', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#StringIndexOutOfBoundsException', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMCharacterData', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'offset16';
534
535 ;
536 }
537 }
538
539
540 }
541 $r}
542 sub data ($;$) {
543 if (@_ == 1) {my ($self) = @_;
544 my $r = '';
545
546 {
547
548 my
549 $v;
550
551
552 {
553
554
555 $v = $self->{
556 'b'
557 }->{${$self->{
558 'id'
559 }}}
560 ->{'con'};
561
562
563 }
564
565 ;
566 $r = $$v;
567
568
569 }
570 $r;
571 } else {my ($self, $given) = @_;
572
573 {
574
575
576 {
577
578 if
579 ($self->
580 manakai_read_only
581 ) {
582
583 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';
584
585 ;
586 }
587
588
589 }
590
591 ;
592 my $v;
593
594
595 {
596
597
598 $v = $self->{
599 'b'
600 }->{${$self->{
601 'id'
602 }}}
603 ->{'con'};
604
605
606 }
607
608 ;
609 $$v = defined $given ? $given : '';
610 ## NOTE: Setting NULL is supported for
611 ## compatibility with |textContent|.
612
613
614 }
615 }
616 }
617 sub length ($;$) {
618 if (@_ == 1) {my ($self) = @_;
619 my $r = 0;
620
621 {
622
623 my
624 $v = $self->
625 data
626 ;
627 $r = CORE::length $v;
628 $r++ while $v =~ /[\x{10000}-\x{10FFFF}]/g;
629
630
631 }
632 $r;
633 } else {my ($self) = @_;
634 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::CharacterData::ManakaiDOMCharacterData', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'length';
635 }
636 }
637 sub substring_data ($$$) {
638 my ($self, $offset, $count) = @_;
639 my $r = '';
640 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' => 'substring_data', '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::CharacterData::ManakaiDOMCharacterData';
641 $r}
642 sub append_data ($$) {
643 my ($self, $arg) = @_;
644
645 {
646
647
648 {
649
650 local $Error::Depth = $Error::Depth + 1;
651
652 {
653
654
655
656 $self->
657 manakai_append_text
658 (\$arg);
659
660
661
662 }
663
664
665 ;}
666
667 ;
668
669
670 }
671 }
672 sub insert_data ($$$) {
673 my ($self, $offset, $arg) = @_;
674 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' => 'insert_data', '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::CharacterData::ManakaiDOMCharacterData';
675 }
676 sub delete_data ($$$) {
677 my ($self, $offset, $count) = @_;
678 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' => 'delete_data', '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::CharacterData::ManakaiDOMCharacterData';
679 }
680 sub replace_data ($$$$) {
681 my ($self, $offset, $count, $arg) = @_;
682
683
684 }
685 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::CharacterData::ManakaiDOMCharacterData>}->{has_feature} = {'core',
686 {'',
687 '1',
688 '1.0',
689 '1',
690 '2.0',
691 '1',
692 '3.0',
693 '1'},
694 'xml',
695 {'',
696 '1',
697 '1.0',
698 '1',
699 '2.0',
700 '1',
701 '3.0',
702 '1'},
703 'xmlversion',
704 {'',
705 '1',
706 '1.0',
707 '1',
708 '1.1',
709 '1'}};
710 $Message::DOM::ClassPoint{q<Message::DOM::CharacterData::ManakaiDOMCharacterData>} = 14.1;
711 $Message::Util::Grove::ClassProp{q<Message::DOM::CharacterData::ManakaiDOMCharacterData>} = {'o0',
712 ['parent'],
713 'w0',
714 ['od']};
715 package Message::DOM::IFLatest::Text;
716 our $VERSION = 20060416.0800;
717 package Message::DOM::CharacterData::ManakaiDOMText;
718 our $VERSION = 20060416.0800;
719 push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',
720 'Message::DOM::IF::CharacterData',
721 'Message::DOM::IF::Node',
722 'Message::DOM::IF::Text',
723 'Message::DOM::IFLatest::CharacterData',
724 'Message::DOM::IFLatest::Node',
725 'Message::DOM::IFLatest::Text',
726 'Message::DOM::IFLevel1::CharacterData',
727 'Message::DOM::IFLevel1::Node',
728 'Message::DOM::IFLevel1::Text',
729 'Message::DOM::IFLevel2::CharacterData',
730 'Message::DOM::IFLevel2::Node',
731 'Message::DOM::IFLevel2::Text',
732 'Message::DOM::IFLevel3::CharacterData',
733 'Message::DOM::IFLevel3::Node',
734 'Message::DOM::IFLevel3::Text';
735 sub node_type ($;$) {
736 if (@_ == 1) {my ($self) = @_;
737 my $r;
738 $r = '3';
739 $r;
740 } else {my ($self) = @_;
741 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::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
742 }
743 }
744 sub node_name ($;$) {
745 if (@_ == 1) {my ($self) = @_;
746 my $r = '#text';
747 $r;
748 } else {my ($self) = @_;
749 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::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
750 }
751 }
752 sub get_feature ($$$) {
753 my ($self, $feature, $version) = @_;
754
755 {
756
757
758 $feature = lc $feature;
759
760
761 }
762
763 {
764
765
766 $version = '' unless defined $version;
767
768
769 }
770 my $r;
771
772 {
773
774
775 $feature =~ s/^\+//;
776
777
778 {
779
780 if
781 ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
782 ->{has_feature}->{$feature}->{$version}) {
783 $r = $self;
784 } else {
785 CLASS: for my $__class (sort {
786 $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
787 } grep {
788 $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMText'}
789 ->{compat_class}->{$_}
790 } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMText'}
791 ->{compat_class} or {}}) {
792 if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
793 ->{has_feature}->{$feature}->{$version}) {
794
795
796 {
797
798
799 $r = ${($self->{'b'})->{${($self->{'id'})}}->{
800 'cls'
801 }}->___create_node_ref ({
802
803 'id'
804 => ($self->{'id'}),
805
806 'b'
807 => ($self->{'b'}),
808 }, {
809 'nrcls' => \$__class,
810 });
811 ($self->{'b'})->{${($self->{'id'})}}->{
812 'rc'
813 }++;
814
815
816 }
817
818 ;
819 last CLASS;
820 }
821 } # CLASS
822 }
823
824
825 }
826
827 ;
828 unless (defined $r) {
829
830
831 {
832
833 local $Error::Depth = $Error::Depth + 1;
834
835 {
836
837
838
839 $r = $self->SUPER::get_feature ($feature, $version);
840
841
842
843 }
844
845
846 ;}
847
848 ;
849 }
850
851
852 }
853 $r}
854 sub is_element_content_whitespace ($;$) {
855 if (@_ == 1) {my ($self) = @_;
856 my $r = 0;
857
858 {
859
860
861 {
862
863
864 $r = $self->{
865 'b'
866 }->{${$self->{
867 'id'
868 }}}
869 ->{'ecws'};
870
871
872 }
873
874 ;
875
876
877 }
878 $r;
879 } else {my ($self, $given) = @_;
880
881 {
882
883
884 {
885
886 if
887 ($self->
888 manakai_read_only
889 ) {
890
891 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';
892
893 ;
894 }
895
896
897 }
898
899 ;
900
901
902 {
903
904
905 $self->{
906 'b'
907 }->{${$self->{
908 'id'
909 }}}
910 ->{'ecws'} = $given;
911
912
913 }
914
915 ;
916
917
918 }
919 }
920 }
921 sub whole_text ($;$) {
922 if (@_ == 1) {my ($self) = @_;
923 report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_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/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'whole_text';
924 } else {my ($self) = @_;
925 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::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'whole_text';
926 }
927 }
928 sub replace_whole_text ($$) {
929 my ($self, $content) = @_;
930 my $r;
931 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' => 'replace_whole_text', '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::CharacterData::ManakaiDOMText';
932 $r}
933 sub split_text ($$) {
934 my ($self, $offset) = @_;
935 my $r;
936 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' => 'split_text', '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::CharacterData::ManakaiDOMText';
937 $r}
938 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::CharacterData::ManakaiDOMText>}->{has_feature} = {'core',
939 {'',
940 '1',
941 '1.0',
942 '1',
943 '2.0',
944 '1',
945 '3.0',
946 '1'},
947 'xml',
948 {'',
949 '1',
950 '1.0',
951 '1',
952 '2.0',
953 '1',
954 '3.0',
955 '1'},
956 'xmlversion',
957 {'',
958 '1',
959 '1.0',
960 '1',
961 '1.1',
962 '1'}};
963 $Message::DOM::ClassPoint{q<Message::DOM::CharacterData::ManakaiDOMText>} = 14.1;
964 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::TreeCore::ManakaiDOMText>}->{compat_class}->{q<Message::DOM::CharacterData::ManakaiDOMText>} = 1;
965 $Message::Util::Grove::ClassProp{q<Message::DOM::CharacterData::ManakaiDOMText>} = {'o0',
966 ['parent'],
967 'w0',
968 ['od']};
969 package Message::DOM::IFLatest::Comment;
970 our $VERSION = 20060416.0800;
971 package Message::DOM::CharacterData::ManakaiDOMComment;
972 our $VERSION = 20060416.0800;
973 push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',
974 'Message::DOM::IF::CharacterData',
975 'Message::DOM::IF::Comment',
976 'Message::DOM::IF::Node',
977 'Message::DOM::IFLatest::CharacterData',
978 'Message::DOM::IFLatest::Comment',
979 'Message::DOM::IFLatest::Node',
980 'Message::DOM::IFLevel1::CharacterData',
981 'Message::DOM::IFLevel1::Comment',
982 'Message::DOM::IFLevel1::Node',
983 'Message::DOM::IFLevel2::CharacterData',
984 'Message::DOM::IFLevel2::Comment',
985 'Message::DOM::IFLevel2::Node',
986 'Message::DOM::IFLevel3::CharacterData',
987 'Message::DOM::IFLevel3::Comment',
988 'Message::DOM::IFLevel3::Node';
989 sub node_type ($;$) {
990 if (@_ == 1) {my ($self) = @_;
991 my $r;
992 $r = '8';
993 $r;
994 } else {my ($self) = @_;
995 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::CharacterData::ManakaiDOMComment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_type';
996 }
997 }
998 sub node_name ($;$) {
999 if (@_ == 1) {my ($self) = @_;
1000 my $r = '';
1001 $r = '#comment';
1002 $r;
1003 } else {my ($self) = @_;
1004 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::CharacterData::ManakaiDOMComment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'node_name';
1005 }
1006 }
1007 sub get_feature ($$$) {
1008 my ($self, $feature, $version) = @_;
1009
1010 {
1011
1012
1013 $feature = lc $feature;
1014
1015
1016 }
1017
1018 {
1019
1020
1021 $version = '' unless defined $version;
1022
1023
1024 }
1025 my $r;
1026
1027 {
1028
1029
1030 $feature =~ s/^\+//;
1031
1032
1033 {
1034
1035 if
1036 ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
1037 ->{has_feature}->{$feature}->{$version}) {
1038 $r = $self;
1039 } else {
1040 CLASS: for my $__class (sort {
1041 $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
1042 } grep {
1043 $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMComment'}
1044 ->{compat_class}->{$_}
1045 } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMComment'}
1046 ->{compat_class} or {}}) {
1047 if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
1048 ->{has_feature}->{$feature}->{$version}) {
1049
1050
1051 {
1052
1053
1054 $r = ${($self->{'b'})->{${($self->{'id'})}}->{
1055 'cls'
1056 }}->___create_node_ref ({
1057
1058 'id'
1059 => ($self->{'id'}),
1060
1061 'b'
1062 => ($self->{'b'}),
1063 }, {
1064 'nrcls' => \$__class,
1065 });
1066 ($self->{'b'})->{${($self->{'id'})}}->{
1067 'rc'
1068 }++;
1069
1070
1071 }
1072
1073 ;
1074 last CLASS;
1075 }
1076 } # CLASS
1077 }
1078
1079
1080 }
1081
1082 ;
1083 unless (defined $r) {
1084
1085
1086 {
1087
1088 local $Error::Depth = $Error::Depth + 1;
1089
1090 {
1091
1092
1093
1094 $r = $self->SUPER::get_feature ($feature, $version);
1095
1096
1097
1098 }
1099
1100
1101 ;}
1102
1103 ;
1104 }
1105
1106
1107 }
1108 $r}
1109 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::CharacterData::ManakaiDOMComment>}->{has_feature} = {'core',
1110 {'',
1111 '1',
1112 '1.0',
1113 '1',
1114 '2.0',
1115 '1',
1116 '3.0',
1117 '1'},
1118 'xml',
1119 {'',
1120 '1',
1121 '1.0',
1122 '1',
1123 '2.0',
1124 '1',
1125 '3.0',
1126 '1'},
1127 'xmlversion',
1128 {'',
1129 '1',
1130 '1.0',
1131 '1',
1132 '1.1',
1133 '1'}};
1134 $Message::DOM::ClassPoint{q<Message::DOM::CharacterData::ManakaiDOMComment>} = 14.1;
1135 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::TreeCore::ManakaiDOMComment>}->{compat_class}->{q<Message::DOM::CharacterData::ManakaiDOMComment>} = 1;
1136 $Message::Util::Grove::ClassProp{q<Message::DOM::CharacterData::ManakaiDOMComment>} = {'o0',
1137 ['parent'],
1138 'w0',
1139 ['od']};
1140 package Message::DOM::IFLatest::StringExtended;
1141 our $VERSION = 20060416.0800;
1142 for ($Message::DOM::IF::CharacterData::, $Message::DOM::IF::Comment::, $Message::DOM::IF::Node::, $Message::DOM::IF::Text::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::CharacterData::, $Message::DOM::IFLevel1::Comment::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel1::Text::, $Message::DOM::IFLevel2::CharacterData::, $Message::DOM::IFLevel2::Comment::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel2::Text::, $Message::DOM::IFLevel3::CharacterData::, $Message::DOM::IFLevel3::Comment::, $Message::DOM::IFLevel3::Node::, $Message::DOM::IFLevel3::Text::){}
1143 ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1144 1;
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24