/[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.3 - (hide annotations) (download)
Sun Apr 30 09:48:44 2006 UTC (18 years, 6 months ago) by wakaba
Branch: MAIN
Changes since 1.2: +110 -10 lines 
++ manakai/lib/Message/DOM/ChangeLog	30 Apr 2006 09:48:30 -0000
	* CharacterData.dis (Require): A reference to
	the |MDOM:Traversal| module is added.
	(wholeText): Implemented.

2006-04-30  Wakaba  <wakaba@suika.fam.cx>
1 wakaba 1.1 #!/usr/bin/perl
2     ## This file is automatically generated
3 wakaba 1.3 ## at 2006-04-30T08:38:31+00:00,
4 wakaba 1.1 ## 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 wakaba 1.3 our $VERSION = 20060430.0838;
14 wakaba 1.1 package Message::DOM::IFLatest::CharacterData;
15 wakaba 1.3 our $VERSION = 20060430.0838;
16 wakaba 1.1 package Message::DOM::CharacterData::ManakaiDOMCharacterData;
17 wakaba 1.3 our $VERSION = 20060430.0838;
18 wakaba 1.1 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 wakaba 1.2 use Message::Util::Error;
31 wakaba 1.1 sub ___create_node_stem ($$$$) {
32     my ($self, $bag, $obj, $opt) = @_;
33     my $r = {};
34    
35     {
36    
37    
38     $obj->{
39     'con'
40     } = $opt->{
41     'con'
42     };
43    
44    
45     {
46    
47    
48     $obj->{'od'} = $opt->{'od'}->{
49     'id'
50     };
51     $bag->{${$opt->{'od'}->{
52     'id'
53     }}}
54     ->{'do'}->{${$obj->{
55     'id'
56     }}}
57     = $obj->{
58     'id'
59     };
60    
61    
62     }
63    
64     ;
65     $r = $obj;
66    
67    
68     }
69     $r}
70     sub child_nodes ($;$) {
71     if (@_ == 1) {my ($self) = @_;
72     my $r;
73    
74     {
75    
76    
77     {
78    
79    
80     $r = bless [],
81     'Message::DOM::TreeCore::ManakaiDOMEmptyNodeList'
82     ;
83    
84    
85     }
86    
87     ;
88    
89    
90     }
91     $r;
92     } else {my ($self) = @_;
93     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';
94     }
95     }
96     sub append_child ($$) {
97     my ($self, $newChild) = @_;
98     my $r;
99    
100     {
101    
102     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;
103    
104     ;
105    
106    
107     }
108     $r}
109     sub insert_before ($$;$) {
110     my ($self, $newChild, $refChild) = @_;
111     my $r;
112    
113     {
114    
115     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;
116    
117     ;
118    
119    
120     }
121     $r}
122     sub replace_child ($$$) {
123     my ($self, $newChild, $oldChild) = @_;
124     my $r;
125    
126     {
127    
128     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;
129    
130     ;
131    
132    
133     }
134     $r}
135     sub manakai_append_text ($$) {
136     my ($self, $string) = @_;
137     my $r;
138    
139     {
140    
141    
142     {
143    
144     local $Error::Depth = $Error::Depth + 1;
145    
146     {
147    
148    
149     if
150     ($self->
151     owner_document
152    
153     ->
154     strict_error_checking and
155    
156     $self->
157     manakai_read_only
158     ) {
159    
160    
161     {
162    
163     local $Error::Depth = $Error::Depth - 1;
164    
165     {
166    
167     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';
168    
169    
170     }
171    
172    
173     ;}
174    
175     ;
176     }
177     my $v;
178    
179    
180     {
181    
182    
183     $v = $self->{
184     'b'
185     }->{${$self->{
186     'id'
187     }}}
188     ->{'con'};
189    
190    
191     }
192    
193     ;
194     $$v .= ref $string eq 'SCALAR' ? $$string : $string;
195     $r = $self;
196    
197    
198    
199     }
200    
201    
202     ;}
203    
204     ;
205    
206    
207     }
208     $r}
209     sub node_value ($;$) {
210     if (@_ == 1) {my ($self) = @_;
211     my $r = '';
212    
213     {
214    
215     my
216     $v;
217    
218    
219     {
220    
221    
222     $v = $self->{
223     'b'
224     }->{${$self->{
225     'id'
226     }}}
227     ->{'con'};
228    
229    
230     }
231    
232     ;
233     $r = $$v;
234    
235    
236     }
237     $r;
238     } else {my ($self, $given) = @_;
239    
240     {
241    
242    
243     {
244    
245     if
246     ($self->
247     manakai_read_only
248     ) {
249    
250     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';
251    
252     ;
253     }
254    
255    
256     }
257    
258     ;
259     my $v;
260    
261    
262     {
263    
264    
265     $v = $self->{
266     'b'
267     }->{${$self->{
268     'id'
269     }}}
270     ->{'con'};
271    
272    
273     }
274    
275     ;
276     $$v = defined $given ? $given : '';
277     ## NOTE: Setting NULL is supported for
278     ## compatibility with |textContent|.
279    
280    
281     }
282     }
283     }
284     sub text_content ($;$) {
285     if (@_ == 1) {my ($self) = @_;
286     my $r = '';
287    
288     {
289    
290     my
291     $v;
292    
293    
294     {
295    
296    
297     $v = $self->{
298     'b'
299     }->{${$self->{
300     'id'
301     }}}
302     ->{'con'};
303    
304    
305     }
306    
307     ;
308     $r = $$v;
309    
310    
311     }
312     $r;
313     } else {my ($self, $given) = @_;
314    
315     {
316    
317    
318     {
319    
320     if
321     ($self->
322     manakai_read_only
323     ) {
324    
325     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';
326    
327     ;
328     }
329    
330    
331     }
332    
333     ;
334     my $v;
335    
336    
337     {
338    
339    
340     $v = $self->{
341     'b'
342     }->{${$self->{
343     'id'
344     }}}
345     ->{'con'};
346    
347    
348     }
349    
350     ;
351     $$v = defined $given ? $given : '';
352     ## NOTE: Setting NULL is supported for
353     ## compatibility with |textContent|.
354    
355    
356     }
357     }
358     }
359     sub base_uri ($;$) {
360     if (@_ == 1) {my ($self) = @_;
361     my $r = '';
362    
363     {
364    
365    
366     {
367    
368     local $Error::Depth = $Error::Depth + 1;
369    
370     {
371    
372    
373     my
374     $pe = $self->
375     parent_node
376     ;
377     W: {
378     while (defined $pe) {
379     my $nt = $pe->
380     node_type
381     ;
382     if ($nt ==
383     '1' or
384    
385     $nt ==
386     '2' or
387    
388     $nt ==
389     '9' or
390    
391     $nt ==
392     '11' or
393    
394     $nt ==
395     '6'
396     ) {
397     $r = $pe->
398     base_uri
399     ;
400     last W;
401     } elsif ($nt ==
402     '5'
403     ) {
404     if ($pe->
405     manakai_external
406     ) {
407     $r = $pe->
408     manakai_entity_base_uri
409     ;
410     last W;
411     }
412     }
413     $pe = $pe->
414     parent_node
415     ;
416     }
417     if ($pe) {
418     $r = $pe->
419     base_uri
420     ;
421     } else {
422     $r = $self->
423     owner_document
424     ->
425     base_uri
426     ;
427     }
428     } # W
429    
430    
431    
432     }
433    
434    
435     ;}
436    
437     ;
438    
439    
440     }
441     $r;
442     } else {my ($self) = @_;
443     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';
444     }
445     }
446     sub find_offset16 ($$) {
447     my ($self, $offset32) = @_;
448     my $r = 0;
449    
450     {
451    
452     my
453     $v;
454    
455    
456     {
457    
458    
459     $v = $self->{
460     'b'
461     }->{${$self->{
462     'id'
463     }}}
464     ->{'con'};
465    
466    
467     }
468    
469     ;
470    
471     if (not defined $offset32 or $offset32 < 0 or
472     CORE::length ($$v) < $offset32) {
473    
474     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';
475    
476     ;
477     }
478    
479     my $ss = substr $$v, 0, $offset32;
480     $r = $offset32;
481     if ($ss =~ /[\x{10000}-\x{10FFFF}]/) {
482     while ($ss =~ /[\x{10000}-\x{10FFFF}]+/g) {
483     $r += $+[0] - $-[0];
484     }
485     }
486    
487    
488     }
489     $r}
490     sub find_offset32 ($$) {
491     my ($self, $offset16) = @_;
492     my $r = 0;
493    
494     {
495    
496     my
497     $v;
498    
499    
500     {
501    
502    
503     $v = $self->{
504     'b'
505     }->{${$self->{
506     'id'
507     }}}
508     ->{'con'};
509    
510    
511     }
512    
513     ;
514    
515     if (not defined $offset16 or $offset16 < 0) {
516    
517     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';
518    
519     ;
520     }
521    
522     my $o = $offset16;
523     while ($o > 0) {
524     my $c = substr ($$v, $r, 1);
525     if (length $c) {
526     if ($c =~ /[\x{10000}-\x{10FFFF}]/) {
527     $o -= 2;
528     } else {
529     $o--;
530     }
531     $r++;
532     } else {
533    
534     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';
535    
536     ;
537     }
538     }
539    
540    
541     }
542     $r}
543     sub data ($;$) {
544     if (@_ == 1) {my ($self) = @_;
545     my $r = '';
546    
547     {
548    
549     my
550     $v;
551    
552    
553     {
554    
555    
556     $v = $self->{
557     'b'
558     }->{${$self->{
559     'id'
560     }}}
561     ->{'con'};
562    
563    
564     }
565    
566     ;
567     $r = $$v;
568    
569    
570     }
571     $r;
572     } else {my ($self, $given) = @_;
573    
574     {
575    
576    
577     {
578    
579     if
580     ($self->
581     manakai_read_only
582     ) {
583    
584     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';
585    
586     ;
587     }
588    
589    
590     }
591    
592     ;
593     my $v;
594    
595    
596     {
597    
598    
599     $v = $self->{
600     'b'
601     }->{${$self->{
602     'id'
603     }}}
604     ->{'con'};
605    
606    
607     }
608    
609     ;
610     $$v = defined $given ? $given : '';
611     ## NOTE: Setting NULL is supported for
612     ## compatibility with |textContent|.
613    
614    
615     }
616     }
617     }
618     sub length ($;$) {
619     if (@_ == 1) {my ($self) = @_;
620     my $r = 0;
621    
622     {
623    
624     my
625 wakaba 1.2 $v;
626    
627    
628     {
629    
630    
631     $v = $self->{
632     'b'
633     }->{${$self->{
634     'id'
635     }}}
636     ->{'con'};
637    
638    
639     }
640    
641 wakaba 1.1 ;
642 wakaba 1.2 $r = CORE::length $$v;
643     $r++ while $$v =~ /[\x{10000}-\x{10FFFF}]/g;
644 wakaba 1.1
645    
646     }
647     $r;
648     } else {my ($self) = @_;
649     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';
650     }
651     }
652     sub substring_data ($$$) {
653     my ($self, $offset, $count) = @_;
654     my $r = '';
655 wakaba 1.2
656     {
657    
658    
659     {
660    
661     if
662     ($self->
663     manakai_read_only
664     ) {
665    
666     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';
667    
668     ;
669     }
670    
671    
672     }
673    
674     ;
675     if ($count < 0) {
676    
677     report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INDEX_SIZE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'substring_data', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#length' => $count, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NEGATIVE_LENGTH_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#param-name' => 'count';
678    
679     ;
680     }
681     my $eoffset32;
682    
683    
684     try {local $Error::Depth = $Error::Depth + 3;
685    
686    
687     $eoffset32 = $self->
688     find_offset32
689    
690     ($offset + $count);
691     } catch
692     Message::DOM::IFLatest::DOMException with
693     {
694     my $err = shift;
695     if ($err->subtype eq
696     'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#StringIndexOutOfBoundsException'
697     ) {
698     $eoffset32 = ($offset + $count) * 2;
699     } else {
700     $err->throw;
701     }
702     };
703    
704    
705     {
706    
707     local $Error::Depth = $Error::Depth + 1;
708    
709     {
710    
711    
712     my
713     $offset32 = $self->
714     find_offset32
715     ($offset);
716     my $data = $self->
717     data
718     ;
719     $r = substr ($data, $offset32, $eoffset32 - $offset32);
720    
721    
722    
723     }
724    
725    
726     ;}
727    
728     ;
729    
730    
731     }
732 wakaba 1.1 $r}
733     sub append_data ($$) {
734     my ($self, $arg) = @_;
735    
736     {
737    
738    
739     {
740    
741     local $Error::Depth = $Error::Depth + 1;
742    
743     {
744    
745    
746    
747     $self->
748     manakai_append_text
749     (\$arg);
750    
751    
752    
753     }
754    
755    
756     ;}
757    
758     ;
759    
760    
761     }
762     }
763     sub insert_data ($$$) {
764     my ($self, $offset, $arg) = @_;
765 wakaba 1.2
766     {
767    
768    
769     {
770    
771     if
772     ($self->
773     manakai_read_only
774     ) {
775    
776     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';
777    
778     ;
779     }
780    
781    
782     }
783    
784     ;
785    
786    
787     {
788    
789     local $Error::Depth = $Error::Depth + 1;
790    
791     {
792    
793    
794     my
795     $offset32 = $self->
796     find_offset32
797     ($offset);
798     my $data = $self->
799     data
800     ;
801     substr ($data, $offset32, 0) = $arg;
802     $self->
803     data
804     ($data);
805    
806    
807    
808     }
809    
810    
811     ;}
812    
813     ;
814    
815    
816     }
817 wakaba 1.1 }
818     sub delete_data ($$$) {
819     my ($self, $offset, $count) = @_;
820 wakaba 1.2
821     {
822    
823    
824     {
825    
826     if
827     ($self->
828     manakai_read_only
829     ) {
830    
831     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';
832    
833     ;
834     }
835    
836    
837     }
838    
839     ;
840     if ($count < 0) {
841    
842     report Message::DOM::DOMCore::ManakaiDOMException -object => $self, '-type' => 'INDEX_SIZE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'delete_data', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#length' => $count, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NEGATIVE_LENGTH_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#param-name' => 'count';
843    
844     ;
845     }
846     my $eoffset32;
847    
848    
849     try {local $Error::Depth = $Error::Depth + 3;
850    
851    
852     $eoffset32 = $self->
853     find_offset32
854    
855     ($offset + $count);
856     } catch
857     Message::DOM::IFLatest::DOMException with
858     {
859     my $err = shift;
860     if ($err->subtype eq
861     'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#StringIndexOutOfBoundsException'
862     ) {
863     $eoffset32 = ($offset + $count) * 2;
864     } else {
865     $err->throw;
866     }
867     };
868    
869    
870     {
871    
872     local $Error::Depth = $Error::Depth + 1;
873    
874     {
875    
876    
877     my
878     $offset32 = $self->
879     find_offset32
880     ($offset);
881     my $data = $self->
882     data
883     ;
884     substr ($data, $offset32, $eoffset32 - $offset32) = '';
885     $self->
886     data
887     ($data);
888    
889    
890    
891     }
892    
893    
894     ;}
895    
896     ;
897    
898    
899     }
900 wakaba 1.1 }
901     sub replace_data ($$$$) {
902     my ($self, $offset, $count, $arg) = @_;
903    
904 wakaba 1.2 {
905    
906    
907     {
908    
909     local $Error::Depth = $Error::Depth + 1;
910    
911     {
912    
913    
914    
915     $self->
916     delete_data
917     ($offset, $count);
918     $self->
919     insert_data
920     ($offset, $arg);
921    
922    
923 wakaba 1.1
924     }
925 wakaba 1.2
926    
927     ;}
928    
929     ;
930    
931    
932     }
933     }
934 wakaba 1.1 $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::CharacterData::ManakaiDOMCharacterData>}->{has_feature} = {'core',
935     {'',
936     '1',
937     '1.0',
938     '1',
939     '2.0',
940     '1',
941     '3.0',
942     '1'},
943     'xml',
944     {'',
945     '1',
946     '1.0',
947     '1',
948     '2.0',
949     '1',
950     '3.0',
951     '1'},
952     'xmlversion',
953     {'',
954     '1',
955     '1.0',
956     '1',
957     '1.1',
958     '1'}};
959     $Message::DOM::ClassPoint{q<Message::DOM::CharacterData::ManakaiDOMCharacterData>} = 14.1;
960     $Message::Util::Grove::ClassProp{q<Message::DOM::CharacterData::ManakaiDOMCharacterData>} = {'o0',
961     ['parent'],
962     'w0',
963     ['od']};
964     package Message::DOM::IFLatest::Text;
965 wakaba 1.3 our $VERSION = 20060430.0838;
966 wakaba 1.1 package Message::DOM::CharacterData::ManakaiDOMText;
967 wakaba 1.3 our $VERSION = 20060430.0838;
968 wakaba 1.1 push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',
969     'Message::DOM::IF::CharacterData',
970     'Message::DOM::IF::Node',
971     'Message::DOM::IF::Text',
972     'Message::DOM::IFLatest::CharacterData',
973     'Message::DOM::IFLatest::Node',
974     'Message::DOM::IFLatest::Text',
975     'Message::DOM::IFLevel1::CharacterData',
976     'Message::DOM::IFLevel1::Node',
977     'Message::DOM::IFLevel1::Text',
978     'Message::DOM::IFLevel2::CharacterData',
979     'Message::DOM::IFLevel2::Node',
980     'Message::DOM::IFLevel2::Text',
981     'Message::DOM::IFLevel3::CharacterData',
982     'Message::DOM::IFLevel3::Node',
983     'Message::DOM::IFLevel3::Text';
984     sub node_type ($;$) {
985     if (@_ == 1) {my ($self) = @_;
986     my $r;
987     $r = '3';
988     $r;
989     } else {my ($self) = @_;
990     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';
991     }
992     }
993     sub node_name ($;$) {
994     if (@_ == 1) {my ($self) = @_;
995     my $r = '#text';
996     $r;
997     } else {my ($self) = @_;
998     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';
999     }
1000     }
1001     sub get_feature ($$$) {
1002     my ($self, $feature, $version) = @_;
1003    
1004     {
1005    
1006    
1007     $feature = lc $feature;
1008    
1009    
1010     }
1011    
1012     {
1013    
1014    
1015     $version = '' unless defined $version;
1016    
1017    
1018     }
1019     my $r;
1020    
1021     {
1022    
1023    
1024     $feature =~ s/^\+//;
1025    
1026    
1027     {
1028    
1029     if
1030     ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
1031     ->{has_feature}->{$feature}->{$version}) {
1032     $r = $self;
1033     } else {
1034     CLASS: for my $__class (sort {
1035     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
1036     } grep {
1037     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMText'}
1038     ->{compat_class}->{$_}
1039     } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMText'}
1040     ->{compat_class} or {}}) {
1041     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
1042     ->{has_feature}->{$feature}->{$version}) {
1043    
1044    
1045     {
1046    
1047    
1048     $r = ${($self->{'b'})->{${($self->{'id'})}}->{
1049     'cls'
1050     }}->___create_node_ref ({
1051    
1052     'id'
1053     => ($self->{'id'}),
1054    
1055     'b'
1056     => ($self->{'b'}),
1057     }, {
1058     'nrcls' => \$__class,
1059     });
1060     ($self->{'b'})->{${($self->{'id'})}}->{
1061     'rc'
1062     }++;
1063    
1064    
1065     }
1066    
1067     ;
1068     last CLASS;
1069     }
1070     } # CLASS
1071     }
1072    
1073    
1074     }
1075    
1076     ;
1077     unless (defined $r) {
1078    
1079    
1080     {
1081    
1082     local $Error::Depth = $Error::Depth + 1;
1083    
1084     {
1085    
1086    
1087    
1088     $r = $self->SUPER::get_feature ($feature, $version);
1089    
1090    
1091    
1092     }
1093    
1094    
1095     ;}
1096    
1097     ;
1098     }
1099    
1100    
1101     }
1102     $r}
1103     sub is_element_content_whitespace ($;$) {
1104     if (@_ == 1) {my ($self) = @_;
1105     my $r = 0;
1106    
1107     {
1108    
1109    
1110     {
1111    
1112    
1113     $r = $self->{
1114     'b'
1115     }->{${$self->{
1116     'id'
1117     }}}
1118     ->{'ecws'};
1119    
1120    
1121     }
1122    
1123     ;
1124    
1125    
1126     }
1127     $r;
1128     } else {my ($self, $given) = @_;
1129    
1130     {
1131    
1132    
1133     {
1134    
1135     if
1136     ($self->
1137     manakai_read_only
1138     ) {
1139    
1140     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';
1141    
1142     ;
1143     }
1144    
1145    
1146     }
1147    
1148     ;
1149    
1150    
1151     {
1152    
1153    
1154     $self->{
1155     'b'
1156     }->{${$self->{
1157     'id'
1158     }}}
1159     ->{'ecws'} = $given;
1160    
1161    
1162     }
1163    
1164     ;
1165    
1166    
1167     }
1168     }
1169     }
1170     sub whole_text ($;$) {
1171     if (@_ == 1) {my ($self) = @_;
1172 wakaba 1.3 my $r = '';
1173    
1174     {
1175    
1176    
1177     {
1178    
1179     local $Error::Depth = $Error::Depth + 1;
1180    
1181     {
1182    
1183    
1184     require
1185     Message::DOM::Traversal;
1186     my $doc = $self->
1187     owner_document
1188     ;
1189     my $doctrv = $doc->
1190     get_feature
1191     (Traversal => '2.0');
1192     my $tw1 = $doctrv->
1193     create_tree_walker
1194    
1195     ($doc,
1196     '4294967295'
1197     , sub {
1198     ($_[1]->
1199     node_type
1200    
1201     ==
1202     '5'
1203     )
1204     ?
1205     '3'
1206     :
1207    
1208     '1'
1209    
1210     },
1211     1
1212     );
1213     $tw1->
1214     current_node
1215     ($self);
1216     my $tw2 = $tw1->clone;
1217     $r = $self->
1218     node_value
1219     ;
1220    
1221     S: while (defined (my $node = $tw1->
1222     previous_sibling
1223     )) {
1224     my $nt = $node->
1225     node_type
1226     ;
1227     if ($nt ==
1228     '3' or
1229    
1230     $nt ==
1231     '4'
1232     ) {
1233     $r = $node->
1234     node_value
1235     . $r;
1236     } else {
1237     last S;
1238     }
1239     } # S
1240    
1241     S: while (defined (my $node = $tw2->
1242     next_sibling
1243     )) {
1244     my $nt = $node->
1245     node_type
1246     ;
1247     if ($nt ==
1248     '3' or
1249    
1250     $nt ==
1251     '4'
1252     ) {
1253     $r .= $node->
1254     node_value
1255     ;
1256     } else {
1257     last S;
1258     }
1259     } # S
1260    
1261    
1262    
1263     }
1264    
1265    
1266     ;}
1267    
1268     ;
1269    
1270    
1271     }
1272     $r;
1273 wakaba 1.1 } else {my ($self) = @_;
1274     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';
1275     }
1276     }
1277     sub replace_whole_text ($$) {
1278     my ($self, $content) = @_;
1279     my $r;
1280     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';
1281     $r}
1282     sub split_text ($$) {
1283     my ($self, $offset) = @_;
1284     my $r;
1285 wakaba 1.2
1286     {
1287    
1288    
1289     {
1290    
1291     if
1292     ($self->
1293     manakai_read_only
1294     ) {
1295    
1296     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';
1297    
1298     ;
1299     }
1300    
1301    
1302     }
1303    
1304     ;
1305     my $parent = $self->
1306     parent_node
1307     ;
1308     if (defined $parent and $parent->
1309     manakai_read_only
1310     ) {
1311    
1312     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' => '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#NOMOD_PARENT', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMText';
1313    
1314     ;
1315     }
1316    
1317    
1318    
1319     {
1320    
1321     local $Error::Depth = $Error::Depth + 1;
1322    
1323     {
1324    
1325    
1326     my
1327     $offset32 = $self->
1328     find_offset32
1329     ($offset);
1330     my $data1 = $self->
1331     data
1332     ;
1333     my $data2 = substr ($data1, $offset32);
1334     substr ($data1, $offset32) = '';
1335    
1336     $r = $self->
1337     node_type
1338     ==
1339     '3'
1340    
1341     ? $self->
1342     owner_document
1343    
1344     ->
1345     create_text_node
1346     ($data2)
1347     : $self->
1348     owner_document
1349    
1350     ->
1351     create_cdata_section
1352     ($data2);
1353     $r->
1354     is_element_content_whitespace
1355    
1356     ($self->
1357     is_element_content_whitespace
1358     );
1359     $self->
1360     data
1361     ($data1);
1362     if (defined $parent) {
1363     $parent->
1364     insert_before
1365    
1366     ($r, $self->
1367     next_sibling
1368     );
1369     }
1370    
1371    
1372    
1373     }
1374    
1375    
1376     ;}
1377    
1378     ;
1379    
1380    
1381     }
1382 wakaba 1.1 $r}
1383     $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::CharacterData::ManakaiDOMText>}->{has_feature} = {'core',
1384     {'',
1385     '1',
1386     '1.0',
1387     '1',
1388     '2.0',
1389     '1',
1390     '3.0',
1391     '1'},
1392     'xml',
1393     {'',
1394     '1',
1395     '1.0',
1396     '1',
1397     '2.0',
1398     '1',
1399     '3.0',
1400     '1'},
1401     'xmlversion',
1402     {'',
1403     '1',
1404     '1.0',
1405     '1',
1406     '1.1',
1407     '1'}};
1408     $Message::DOM::ClassPoint{q<Message::DOM::CharacterData::ManakaiDOMText>} = 14.1;
1409     $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::TreeCore::ManakaiDOMText>}->{compat_class}->{q<Message::DOM::CharacterData::ManakaiDOMText>} = 1;
1410     $Message::Util::Grove::ClassProp{q<Message::DOM::CharacterData::ManakaiDOMText>} = {'o0',
1411     ['parent'],
1412     'w0',
1413     ['od']};
1414     package Message::DOM::IFLatest::Comment;
1415 wakaba 1.3 our $VERSION = 20060430.0838;
1416 wakaba 1.1 package Message::DOM::CharacterData::ManakaiDOMComment;
1417 wakaba 1.3 our $VERSION = 20060430.0838;
1418 wakaba 1.1 push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',
1419     'Message::DOM::IF::CharacterData',
1420     'Message::DOM::IF::Comment',
1421     'Message::DOM::IF::Node',
1422     'Message::DOM::IFLatest::CharacterData',
1423     'Message::DOM::IFLatest::Comment',
1424     'Message::DOM::IFLatest::Node',
1425     'Message::DOM::IFLevel1::CharacterData',
1426     'Message::DOM::IFLevel1::Comment',
1427     'Message::DOM::IFLevel1::Node',
1428     'Message::DOM::IFLevel2::CharacterData',
1429     'Message::DOM::IFLevel2::Comment',
1430     'Message::DOM::IFLevel2::Node',
1431     'Message::DOM::IFLevel3::CharacterData',
1432     'Message::DOM::IFLevel3::Comment',
1433     'Message::DOM::IFLevel3::Node';
1434     sub node_type ($;$) {
1435     if (@_ == 1) {my ($self) = @_;
1436     my $r;
1437     $r = '8';
1438     $r;
1439     } else {my ($self) = @_;
1440     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';
1441     }
1442     }
1443     sub node_name ($;$) {
1444     if (@_ == 1) {my ($self) = @_;
1445     my $r = '';
1446     $r = '#comment';
1447     $r;
1448     } else {my ($self) = @_;
1449     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';
1450     }
1451     }
1452     sub get_feature ($$$) {
1453     my ($self, $feature, $version) = @_;
1454    
1455     {
1456    
1457    
1458     $feature = lc $feature;
1459    
1460    
1461     }
1462    
1463     {
1464    
1465    
1466     $version = '' unless defined $version;
1467    
1468    
1469     }
1470     my $r;
1471    
1472     {
1473    
1474    
1475     $feature =~ s/^\+//;
1476    
1477    
1478     {
1479    
1480     if
1481     ($Message::DOM::DOMFeature::ClassInfo->{ref $self}
1482     ->{has_feature}->{$feature}->{$version}) {
1483     $r = $self;
1484     } else {
1485     CLASS: for my $__class (sort {
1486     $Message::DOM::ClassPoint{$b} <=> $Message::DOM::ClassPoint{$a}
1487     } grep {
1488     $Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMComment'}
1489     ->{compat_class}->{$_}
1490     } keys %{$Message::DOM::DOMFeature::ClassInfo->{'Message::DOM::CharacterData::ManakaiDOMComment'}
1491     ->{compat_class} or {}}) {
1492     if ($Message::DOM::DOMFeature::ClassInfo->{$__class}
1493     ->{has_feature}->{$feature}->{$version}) {
1494    
1495    
1496     {
1497    
1498    
1499     $r = ${($self->{'b'})->{${($self->{'id'})}}->{
1500     'cls'
1501     }}->___create_node_ref ({
1502    
1503     'id'
1504     => ($self->{'id'}),
1505    
1506     'b'
1507     => ($self->{'b'}),
1508     }, {
1509     'nrcls' => \$__class,
1510     });
1511     ($self->{'b'})->{${($self->{'id'})}}->{
1512     'rc'
1513     }++;
1514    
1515    
1516     }
1517    
1518     ;
1519     last CLASS;
1520     }
1521     } # CLASS
1522     }
1523    
1524    
1525     }
1526    
1527     ;
1528     unless (defined $r) {
1529    
1530    
1531     {
1532    
1533     local $Error::Depth = $Error::Depth + 1;
1534    
1535     {
1536    
1537    
1538    
1539     $r = $self->SUPER::get_feature ($feature, $version);
1540    
1541    
1542    
1543     }
1544    
1545    
1546     ;}
1547    
1548     ;
1549     }
1550    
1551    
1552     }
1553     $r}
1554     $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::CharacterData::ManakaiDOMComment>}->{has_feature} = {'core',
1555     {'',
1556     '1',
1557     '1.0',
1558     '1',
1559     '2.0',
1560     '1',
1561     '3.0',
1562     '1'},
1563     'xml',
1564     {'',
1565     '1',
1566     '1.0',
1567     '1',
1568     '2.0',
1569     '1',
1570     '3.0',
1571     '1'},
1572     'xmlversion',
1573     {'',
1574     '1',
1575     '1.0',
1576     '1',
1577     '1.1',
1578     '1'}};
1579     $Message::DOM::ClassPoint{q<Message::DOM::CharacterData::ManakaiDOMComment>} = 14.1;
1580     $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::TreeCore::ManakaiDOMComment>}->{compat_class}->{q<Message::DOM::CharacterData::ManakaiDOMComment>} = 1;
1581     $Message::Util::Grove::ClassProp{q<Message::DOM::CharacterData::ManakaiDOMComment>} = {'o0',
1582     ['parent'],
1583     'w0',
1584     ['od']};
1585     package Message::DOM::IFLatest::StringExtended;
1586 wakaba 1.3 our $VERSION = 20060430.0838;
1587 wakaba 1.1 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::){}
1588     ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1589     1;
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24