/[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 - (hide 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 wakaba 1.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