/[suikacvs]/messaging/manakai/lib/Message/DOM/XDP.dis
Suika

Contents of /messaging/manakai/lib/Message/DOM/XDP.dis

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (show annotations) (download)
Sat May 13 12:06:21 2006 UTC (18 years, 6 months ago) by wakaba
Branch: MAIN 
++ manakai/t/ChangeLog	13 May 2006 12:06:16 -0000
2006-05-13  Wakaba  <wakaba@suika.fam.cx>

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

++ manakai/lib/Message/Util/DIS/ChangeLog	13 May 2006 12:05:54 -0000
2006-05-13  Wakaba  <wakaba@suika.fam.cx>

	* Perl.dis: Use |createPCNumberLiteral| rather
	than |createPCLiteral| where appropriate.

++ manakai/lib/Message/DOM/ChangeLog	13 May 2006 12:05:21 -0000
	* XDP.dis: New module.

	* Makefile: |XDP.dis| is added.

	* Traversal.dis (NodeFilter): |InputProcessor|
	and |OutputProcessor| are added.

2006-05-13  Wakaba  <wakaba@suika.fam.cx>
1 Module:
2 @QName: MDOM|XDP
3 @enFN:
4 XDP DOM
5 @enDesc:
6 The <DFN::XDP>, <DFN::XML DTD Physical Structure DOM>
7 provides facility to compose XML DTD with its physical
8 structure.
9
10 @Namespace:
11 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/XDP/
12
13 @DISCore:author: DISCore|Wakaba
14 @License: license|Perl+MPL
15 @Date:
16 $Date: 2006/05/13 05:40:58 $
17
18 @Require:
19 @@Module:
20 @@@QName: Markup|common
21 @@Module:
22 @@@QName: MDOM|TreeCore
23 @@@WithFor: ManakaiDOM|ManakaiDOMLatest
24 @@Module:
25 @@@WithFor: ManakaiDOM|ManakaiDOM
26 @@Module:
27 @@@WithFor: ManakaiDOM|ManakaiDOMLatest
28 @DefaultFor: ManakaiDOM|ManakaiDOMLatest
29
30 Namespace:
31 @atom:
32 http://www.w3.org/2005/Atom
33 @c:
34 http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#
35 @cfg:
36 http://suika.fam.cx/www/2006/dom-config/
37 @dis:
38 http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--
39 @doc:
40 http://suika.fam.cx/~wakaba/archive/2005/7/tutorial#
41 @d:
42 http://suika.fam.cx/~wakaba/archive/2004/dom/xdt#
43 @DOMMain:
44 http://suika.fam.cx/~wakaba/archive/2004/dom/main#
45 @dx:
46 http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#
47 @ecore:
48 http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/Core/
49 @f:
50 http://suika.fam.cx/~wakaba/archive/2004/dom/feature#
51 @fe:
52 http://suika.fam.cx/www/2006/feature/
53 @html:
54 http://www.w3.org/1999/xhtml
55 @idl:
56 http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#
57 @kwd:
58 http://suika.fam.cx/~wakaba/archive/2005/rfc2119/
59 @lang:
60 http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#
61 @license:
62 http://suika.fam.cx/~wakaba/archive/2004/8/18/license#
63 @ManakaiDOM:
64 http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#
65 @Markup:
66 http://suika.fam.cx/~wakaba/archive/2005/manakai/Markup#
67 @mat:
68 http://suika.fam.cx/~wakaba/archive/2005/manakai/Markup/Atom/
69 @MDOM:
70 http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.
71 @MDOMX:
72 http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#
73 @dlp:
74 http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#
75 @rel:
76 http://www.iana.org/assignments/relation/
77 @s:
78 http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#
79 @tc:
80 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/TreeCore/
81 @td:
82 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/Document/
83 @te:
84 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/Element/
85 @test:
86 http://suika.fam.cx/~wakaba/archive/2004/dis/Test#
87 @trv:
88 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/Traversal/
89 @tx:
90 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/XML/
91 @urigen:
92 http://suika.fam.cx/~wakaba/archive/2005/manakai/URI/Generic/
93 @xdp:
94 http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/XDP/
95 @xml:
96 http://www.w3.org/XML/1998/namespace
97
98 ElementTypeBinding:
99 @Name: CODE
100 @ElementType:
101 dis:ResourceDef
102 @ShadowContent:
103 @@DISCore:resourceType: dlp|BlockCode
104 @@ForCheck: ManakaiDOM|ForClass
105
106 ElementTypeBinding:
107 @Name: Method
108 @ElementType:
109 dis:ResourceDef
110 @ShadowContent:
111 @@DISCore:resourceType: DISLang|Method
112 @@ForCheck: !=ManakaiDOM|ManakaiDOM
113
114 ElementTypeBinding:
115 @Name: Param
116 @ElementType:
117 dis:ResourceDef
118 @ShadowContent:
119 @@DISCore:resourceType: DISLang|MethodParameter
120
121 ElementTypeBinding:
122 @Name: Return
123 @ElementType:
124 dis:ResourceDef
125 @ShadowContent:
126 @@DISCore:resourceType: DISLang|MethodReturn
127
128 ElementTypeBinding:
129 @Name: Attr
130 @ElementType:
131 dis:ResourceDef
132 @ShadowContent:
133 @@DISCore:resourceType: DISLang|Attribute
134 @@ForCheck: !=ManakaiDOM|ManakaiDOM
135
136 ElementTypeBinding:
137 @Name: CAttr
138 @ElementType:
139 dis:ResourceDef
140 @ShadowContent:
141 @@DISCore:resourceType: DISLang|Attribute
142 @@ForCheck: !=ManakaiDOM|ManakaiDOM ManakaiDOM|ForClass
143
144 ElementTypeBinding:
145 @Name: Get
146 @ElementType:
147 dis:ResourceDef
148 @ShadowContent:
149 @@DISCore:resourceType: DISLang|AttributeGet
150
151 ElementTypeBinding:
152 @Name: Set
153 @ElementType:
154 dis:ResourceDef
155 @ShadowContent:
156 @@DISCore:resourceType: DISLang|AttributeSet
157
158 ElementTypeBinding:
159 @Name: nullCase
160 @ElementType:
161 dis:ResourceDef
162 @ShadowContent:
163 @@DISCore:resourceType: ManakaiDOM|InCase
164 @@Value:
165 @@@is-null:1
166
167 ElementTypeBinding:
168 @Name: PerlDef
169 @ElementType:
170 dis:Def
171 @ShadowContent:
172 @@ContentType: lang|Perl
173 @@ForCheck: ManakaiDOM|ForClass
174
175 ElementTypeBinding:
176 @Name: PerlCDef
177 @ElementType:
178 dis:Def
179 @ShadowContent:
180 @@ContentType: lang|Perl
181
182 ElementTypeBinding:
183 @Name: enImplNote
184 @ElementType:
185 dis:ImplNote
186 @ShadowContent:
187 @@lang:en
188
189 ElementTypeBinding:
190 @Name: enFN
191 @ElementType:
192 dis:FullName
193 @ShadowContent:
194 @@lang:en
195
196 ElementTypeBinding:
197 @Name: IFClsETDef
198 @ElementType:
199 dis:ResourceDef
200 @ShadowContent:
201 @@DISCore:resourceType:
202 @@@@: dis|MultipleResource
203 @@@ForCheck: !ManakaiDOM|ForIF !ManakaiDOM|ForClass !s|ForML
204 @@resourceFor: ManakaiDOM|ForIF
205 @@resourceFor: ManakaiDOM|ForClass
206 @@resourceFor: s|ForML
207 @@For: ManakaiDOM|ManakaiDOM
208
209 @@DISCore:resourceType:
210 @@@@: DISLang|Interface
211 @@@ForCheck: ManakaiDOM|ForIF
212
213 @@DISCore:resourceType:
214 @@@@: DISLang|Class
215 @@@ForCheck: ManakaiDOM|ForClass
216 @@Implement:
217 @@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF
218 @@@ContentType: DISCore|TFPQNames
219 @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM
220 @@Implement:
221 @@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF
222 @@@ContentType: DISCore|TFPQNames
223 @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOMLatest
224
225 @@s:elementType:
226 @@@@: ||+||s|ForML
227 @@@ContentType: DISCore|TFPQNames
228 @@@DISCore:stopISARecursive:1
229
230 @@DISCore:resourceType:
231 @@@@: s|ElementType
232 @@@ForCheck: s|ForML
233
234 @@f:implements: XDPFeature30
235
236 ElementTypeBinding:
237 @Name: IFClsDef
238 @ElementType:
239 dis:ResourceDef
240 @ShadowContent:
241 @@DISCore:resourceType:
242 @@@@: dis|MultipleResource
243 @@@ForCheck: !ManakaiDOM|ForIF !ManakaiDOM|ForClass !s|ForML
244 @@resourceFor: ManakaiDOM|ForIF
245 @@resourceFor: ManakaiDOM|ForClass
246 @@For: ManakaiDOM|ManakaiDOM
247
248 @@DISCore:resourceType:
249 @@@@: DISLang|Interface
250 @@@ForCheck: ManakaiDOM|ForIF
251
252 @@DISCore:resourceType:
253 @@@@: DISLang|Class
254 @@@ForCheck: ManakaiDOM|ForClass
255 @@Implement:
256 @@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF
257 @@@ContentType: DISCore|TFPQNames
258 @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM
259 @@Implement:
260 @@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF
261 @@@ContentType: DISCore|TFPQNames
262 @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOMLatest
263
264 @@f:implements: XDPFeature30
265
266 ElementTypeBinding:
267 @Name: IFQName
268 @ElementType:
269 dis:QName
270 @ShadowContent:
271 @@ForCheck: ManakaiDOM|ForIF
272
273 ElementTypeBinding:
274 @Name: ClsQName
275 @ElementType:
276 dis:QName
277 @ShadowContent:
278 @@ForCheck: ManakaiDOM|ForClass
279
280 ElementTypeBinding:
281 @Name: ETRQName
282 @ElementType:
283 dis:QName
284 @ShadowContent:
285 @@ForCheck: s|ForML
286
287 ElementTypeBinding:
288 @Name: ETQName
289 @ElementType:
290 dis:AppName
291 @ShadowContent:
292 @@ForCheck: s|ForML
293 @@ContentType: DISCore|QName
294
295 ElementTypeBinding:
296 @Name: IFISA
297 @ElementType:
298 dis:ISA
299 @ShadowContent:
300 @@ForCheck: ManakaiDOM|ForIF
301
302 ElementTypeBinding:
303 @Name: ClsISA
304 @ElementType:
305 dis:ISA
306 @ShadowContent:
307 @@ForCheck: ManakaiDOM|ForClass
308
309 ElementTypeBinding:
310 @Name: disDef
311 @ElementType:
312 dis:Def
313 @ShadowContent:
314 @@ContentType:
315 lang:dis
316 @@ForCheck: ManakaiDOM|ForClass
317
318 ElementTypeBinding:
319 @Name: Code
320 @ElementType:
321 dis:ResourceDef
322 @ShadowContent:
323 @@DISCore:resourceType: dlp|InlineCode
324 @@ForCheck: ManakaiDOM|ForClass
325
326 ElementTypeBinding:
327 @Name: Test
328 @ElementType:
329 dis:ResourceDef
330 @ShadowContent:
331 @@DISCore:resourceType: test|StandaloneTest
332 @@ForCheck: ManakaiDOM|ForClass
333
334 ElementTypeBinding:
335 @Name: TestC
336 @ElementType:
337 dis:ResourceDef
338 @ShadowContent:
339 @@DISCore:resourceType: test|StandaloneTest
340
341 ResourceDef:
342 @QName: Document
343 @AliasFor: td|Document
344 @For: ManakaiDOM|DOM
345
346 ResourceDef:
347 @QName: Element
348 @AliasFor: te|Element
349 @For: ManakaiDOM|DOM
350
351 ResourceDef:
352 @QName: Attr
353 @AliasFor: te|Attr
354 @For: ManakaiDOM|DOM
355
356 ResourceDef:
357 @QName: Text
358 @AliasFor: te|Text
359 @For: ManakaiDOM|DOM
360
361 ResourceDef:
362 @QName: DOMString
363 @AliasFor: DOMMain|DOMString
364 @For: ManakaiDOM|DOM
365
366 ResourceDef:
367 @QName: boolean
368 @AliasFor: idl|boolean||ManakaiDOM|all
369
370 ResourceDef:
371 @QName: Node
372 @AliasFor: tc|Node
373 @For: ManakaiDOM|ManakaiDOM
374
375 ResourceDef:
376 @QName: NodeFilter
377 @AliasFor: trv|NodeFilter
378 @For: ManakaiDOM|DOM2
379
380 ResourceDef:
381 @QName: TreeWalker
382 @AliasFor: trv|TreeWalker
383 @For: ManakaiDOM|DOM2
384
385 ElementTypeBinding:
386 @Name: enDesc
387 @ElementType:
388 dis:Description
389 @ShadowContent:
390 @@lang:en
391
392 ElementTypeBinding:
393 @Name: TrueCase
394 @ElementType:
395 dis:ResourceDef
396 @ShadowContent:
397 @@DISCore:resourceType:
398 ManakaiDOM:InCase
399 @@Value:
400 @@@@: 1
401 @@@ContentType: DISCore|Boolean
402 @@Type: idl|boolean||ManakaiDOM|all
403
404 ElementTypeBinding:
405 @Name: FalseCase
406 @ElementType:
407 dis:ResourceDef
408 @ShadowContent:
409 @@DISCore:resourceType:
410 ManakaiDOM:InCase
411 @@Value:
412 @@@@: 0
413 @@@ContentType: DISCore|Boolean
414 @@Type: idl|boolean||ManakaiDOM|all
415
416 ## -- Features
417
418 ElementTypeBinding:
419 @Name: FeatureDef
420 @ElementType:
421 dis:ResourceDef
422 @ShadowContent:
423 @@DISCore:resourceType: f|Feature
424 @@For: =ManakaiDOM|all
425
426 ElementTypeBinding:
427 @Name: FeatureVerDef
428 @ElementType:
429 dis:ResourceDef
430 @ShadowContent:
431 @@DISCore:resourceType: f|Feature
432
433 ElementTypeBinding:
434 @Name: featureQName
435 @ElementType:
436 f:name
437 @ShadowContent:
438 @@ContentType: DISCore|QName
439
440 FeatureDef:
441 @featureQName: fe|XDP
442 @QName: XDPFeature
443 @FeatureVerDef:
444 @@QName: XDPFeature30
445 @@Version: 3.0
446 @@f:instanceOf: XDPFeature
447 @@f:requires: tx|XMLFeature30
448 @@enDesc:
449 The XDP DOM, version 3.0.
450
451 ## -- Document
452
453 IFClsDef:
454 @IFQName: XDPDocument
455 @ClsQName: ManakaiDOMXDPDocument
456
457 @IFISA: Document
458 @ClsISA: td|ManakaiDOMDocument
459
460 @f:implements: XDPFeature30
461 @f:provides:
462 @@@: XDPFeature30
463 @@f:through: c|ManakaiDOMImplementation
464
465 @enDesc:
466 The <IF::XDPDocument> interface provides a set of methods
467 to create instances of XDP interfaces.
468
469 If the implementation supports the <Feature::fe|XDP> feature
470 version <Feature::3.0>, <IF::Document> objects <kwd:MUST> also
471 implement the <IF::XDPDocument> interface.
472
473 @Test:
474 @@QName: XDPDocument.interface.test
475 @@PerlDef:
476 for (
477 <IFName::XDPDocument>,
478 <IFName::Document>,
479 <IFName::Node>,
480 <IFName::f|GetFeature>,
481 ) {
482 $test->id ($_);
483 $test->assert_true (<Class::ManakaiDOMXDPDocument>->isa ($_));
484 }
485
486 @Test:
487 @@QName: Document.getFeature.XDPDocument.test
488 @@PerlDef:
489 my $doc;
490 __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
491 my $docp = $doc->get_feature (<Q::fe|XDP>, '3.0');
492
493 $test->id ($docp, <IFName::XDPDocument>);
494
495 @CODE:
496 @@QName: createXDPDocumentForTest
497 @@PerlDef:
498 my $__edoc;
499 __CODE{tc|createEmptyDocumentForTest:: $doc => $__edoc}__;
500 $doc = $__edoc->get_feature (<Q::fe|XDP> => '3.0');
501
502 @Method:
503 @@Name: createXDPS
504 @@dlp:methodName: create_xdp_s
505 @@enDesc:
506 Creates a <XE::xdp|s> element.
507 @@Param:
508 @@@Name: value
509 @@@Type: DOMString
510 @@@enDesc:
511 The value of the element.
512 @@@nullCase:
513 @@@@enDesc:
514 The element's <A::Node.textContent> is set to
515 a <CHAR::SPACE>.
516 @@Return:
517 @@@Type: XDPElement
518 @@@enDesc:
519 The newly created element node.
520
521 {P:: A new <IF::Element> node with following attributes
522 <kwd:MUST> be returned:
523
524 - <A::Node.localName>::: <XE::s>.
525
526 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
527
528 - <A::Node.ownerDocument>::: The document.
529
530 - <A::Node.textContent>::: <P::value>, or a <CHAR::SPACE>
531 if <P::value> is <DOM::null>.
532
533 }
534
535 If <IF::Text> nodes are created, its
536 <A::Text.isElementContentWhitespace> attribute value
537 <kwd:MUST> be set to <DOM::false>.
538 @@@PerlDef:
539 __DEEP{
540 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 's');
541 $r-><AS::Node.textContent> (defined $value ? $value : ' ');
542 }__;
543
544 @@Test:
545 @@@QName: XDPDocument.createXDPS.1.test
546 @@@PerlDef:
547 my $doc;
548 __CODE{createXDPDocumentForTest}__;
549
550 my $value = "\t";
551 my $el = $doc-><M::XDPDocument.createXDPS> ($value);
552
553 $test->id ('interface');
554 $test->assert_isa ($el, <IFName::XDPElement>);
555
556 $test->id ('namespaceURI');
557 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
558
559 $test->id ('localName');
560 $test->assert_equals ($el-><AG::Node.localName>, 's');
561
562 $test->id ('textContent');
563 $test->assert_equals ($el-><AG::Node.textContent>, $value);
564
565 $test->id ('dtdText');
566 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value);
567 @@Test:
568 @@@QName: XDPDocument.createXDPS.2.test
569 @@@PerlDef:
570 my $doc;
571 __CODE{createXDPDocumentForTest}__;
572
573 my $value = null;
574 my $el = $doc-><M::XDPDocument.createXDPS> ($value);
575
576 $test->id ('interface');
577 $test->assert_isa ($el, <IFName::XDPElement>);
578
579 $test->id ('namespaceURI');
580 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
581
582 $test->id ('localName');
583 $test->assert_equals ($el-><AG::Node.localName>, 's');
584
585 $test->id ('textContent');
586 $test->assert_equals ($el-><AG::Node.textContent>, ' ');
587
588 $test->id ('dtdText');
589 $test->assert_equals ($el-><AG::XDPElement.dtdText>, ' ');
590
591 @Method:
592 @@Name: createXDPName
593 @@enDesc:
594 Creates a <XE::xdp|name> element.
595 @@Param:
596 @@@Name: value
597 @@@Type: DOMString
598 @@@enDesc:
599 The value of the element.
600 @@@nullCase:
601 @@@@enDesc:
602 Same as an empty string.
603 @@Return:
604 @@@Type: XDPElement
605 @@@enDesc:
606 The newly created element node.
607
608 {P:: A new <IF::Element> node with following attributes
609 <kwd:MUST> be returned:
610
611 - <A::Node.localName>::: <XE::name>.
612
613 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
614
615 - <A::Node.ownerDocument>::: The document.
616
617 - <A::Node.textContent>::: <P::value>, or an empty
618 string if <P::value> is <DOM::null>.
619
620 }
621
622 If <IF::Text> nodes are created, its
623 <A::Text.isElementContentWhitespace> attribute value
624 <kwd:MUST> be set to <DOM::false>.
625 @@@PerlDef:
626 __DEEP{
627 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'name');
628 $r-><AS::Node.textContent> (defined $value ? $value : '');
629 }__;
630
631 @@Test:
632 @@@QName: XDPDocument.createXDPName.1.test
633 @@@PerlDef:
634 my $doc;
635 __CODE{createXDPDocumentForTest}__;
636
637 my $value = "example-name";
638 my $el = $doc-><M::XDPDocument.createXDPName> ($value);
639
640 $test->id ('interface');
641 $test->assert_isa ($el, <IFName::XDPElement>);
642
643 $test->id ('namespaceURI');
644 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
645
646 $test->id ('localName');
647 $test->assert_equals ($el-><AG::Node.localName>, 'name');
648
649 $test->id ('textContent');
650 $test->assert_equals ($el-><AG::Node.textContent>, $value);
651
652 $test->id ('dtdText');
653 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value);
654 @@Test:
655 @@@QName: XDPDocument.createXDPName.2.test
656 @@@PerlDef:
657 my $doc;
658 __CODE{createXDPDocumentForTest}__;
659
660 my $value = "example-name";
661 my $el = $doc-><M::XDPDocument.createXDPName> (null);
662
663 $test->id ('interface');
664 $test->assert_isa ($el, <IFName::XDPElement>);
665
666 $test->id ('namespaceURI');
667 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
668
669 $test->id ('localName');
670 $test->assert_equals ($el-><AG::Node.localName>, 'name');
671
672 $test->id ('textContent');
673 $test->assert_equals ($el-><AG::Node.textContent>, '');
674
675 $test->id ('dtdText');
676 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
677
678 @Method:
679 @@Name: createXDPNmtoken
680 @@enDesc:
681 Creates a <XE::xdp|nmtoken> element.
682 @@Param:
683 @@@Name: value
684 @@@Type: DOMString
685 @@@enDesc:
686 The value of the element.
687 @@@nullCase:
688 @@@@enDesc:
689 Same as an empty string.
690 @@Return:
691 @@@Type: XDPElement
692 @@@enDesc:
693 The newly created element node.
694
695 {P:: A new <IF::Element> node with following attributes
696 <kwd:MUST> be returned:
697
698 - <A::Node.localName>::: <XE::nmtoken>.
699
700 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
701
702 - <A::Node.ownerDocument>::: The document.
703
704 - <A::Node.textContent>::: <P::value>, or an empty
705 string if <P::value> is <DOM::null>.
706
707 }
708
709 If <IF::Text> nodes are created, its
710 <A::Text.isElementContentWhitespace> attribute value
711 <kwd:MUST> be set to <DOM::false>.
712 @@@PerlDef:
713 __DEEP{
714 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'nmtoken');
715 $r-><AS::Node.textContent> (defined $value ? $value : '');
716 }__;
717
718 @@Test:
719 @@@QName: XDPDocument.createXDPNmtoken.1.test
720 @@@PerlDef:
721 my $doc;
722 __CODE{createXDPDocumentForTest}__;
723
724 my $value = "example-name";
725 my $el = $doc-><M::XDPDocument.createXDPNmtoken> ($value);
726
727 $test->id ('interface');
728 $test->assert_isa ($el, <IFName::XDPElement>);
729
730 $test->id ('namespaceURI');
731 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
732
733 $test->id ('localName');
734 $test->assert_equals ($el-><AG::Node.localName>, 'nmtoken');
735
736 $test->id ('textContent');
737 $test->assert_equals ($el-><AG::Node.textContent>, $value);
738
739 $test->id ('dtdText');
740 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value);
741 @@Test:
742 @@@QName: XDPDocument.createXDPNmtoken.2.test
743 @@@PerlDef:
744 my $doc;
745 __CODE{createXDPDocumentForTest}__;
746
747 my $el = $doc-><M::XDPDocument.createXDPNmtoken> (null);
748
749 $test->id ('interface');
750 $test->assert_isa ($el, <IFName::XDPElement>);
751
752 $test->id ('namespaceURI');
753 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
754
755 $test->id ('localName');
756 $test->assert_equals ($el-><AG::Node.localName>, 'nmtoken');
757
758 $test->id ('textContent');
759 $test->assert_equals ($el-><AG::Node.textContent>, '');
760
761 $test->id ('dtdText');
762 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
763
764 @Method:
765 @@Name: createXDPKeyword
766 @@enDesc:
767 Creates a <XE::xdp|keyword> element.
768 @@Param:
769 @@@Name: value
770 @@@Type: DOMString
771 @@@enDesc:
772 The value of the element.
773 @@@nullCase:
774 @@@@enDesc:
775 Same as an empty string.
776 @@Return:
777 @@@Type: XDPElement
778 @@@enDesc:
779 The newly created element node.
780
781 {P:: A new <IF::Element> node with following attributes
782 <kwd:MUST> be returned:
783
784 - <A::Node.localName>::: <XE::keyword>.
785
786 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
787
788 - <A::Node.ownerDocument>::: The document.
789
790 - <A::Node.textContent>::: <P::value>, or an empty
791 string if <P::value> is <DOM::null>.
792
793 }
794
795 If <IF::Text> nodes are created, its
796 <A::Text.isElementContentWhitespace> attribute value
797 <kwd:MUST> be set to <DOM::false>.
798 @@@PerlDef:
799 __DEEP{
800 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'keyword');
801 $r-><AS::Node.textContent> (defined $value ? $value : '');
802 }__;
803
804 @@Test:
805 @@@QName: XDPDocument.createXDPKeyword.1.test
806 @@@PerlDef:
807 my $doc;
808 __CODE{createXDPDocumentForTest}__;
809
810 my $value = "PUBLIC";
811 my $el = $doc-><M::XDPDocument.createXDPKeyword> ($value);
812
813 $test->id ('interface');
814 $test->assert_isa ($el, <IFName::XDPElement>);
815
816 $test->id ('namespaceURI');
817 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
818
819 $test->id ('localName');
820 $test->assert_equals ($el-><AG::Node.localName>, 'keyword');
821
822 $test->id ('textContent');
823 $test->assert_equals ($el-><AG::Node.textContent>, $value);
824
825 $test->id ('dtdText');
826 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value);
827 @@Test:
828 @@@QName: XDPDocument.createXDPKeyword.2.test
829 @@@PerlDef:
830 my $doc;
831 __CODE{createXDPDocumentForTest}__;
832
833 my $el = $doc-><M::XDPDocument.createXDPKeyword> (null);
834
835 $test->id ('interface');
836 $test->assert_isa ($el, <IFName::XDPElement>);
837
838 $test->id ('namespaceURI');
839 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
840
841 $test->id ('localName');
842 $test->assert_equals ($el-><AG::Node.localName>, 'keyword');
843
844 $test->id ('textContent');
845 $test->assert_equals ($el-><AG::Node.textContent>, '');
846
847 $test->id ('dtdText');
848 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
849
850 @Method:
851 @@Name: createXDPRNIKeyword
852 @@enDesc:
853 Creates a <XE::xdp|rni-keyword> element.
854 @@Param:
855 @@@Name: value
856 @@@Type: DOMString
857 @@@enDesc:
858 The value of the element.
859 @@@nullCase:
860 @@@@enDesc:
861 Same as an empty string.
862 @@Return:
863 @@@Type: XDPRNIKeywordElement
864 @@@enDesc:
865 The newly created element node.
866
867 {P:: A new <IF::Element> node with following attributes
868 <kwd:MUST> be returned:
869
870 - <A::Node.localName>::: <XE::rni-keyword>.
871
872 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
873
874 - <A::Node.ownerDocument>::: The document.
875
876 - <A::Node.textContent>::: <P::value>, or an empty
877 string if <P::value> is <DOM::null>.
878
879 }
880
881 If <IF::Text> nodes are created, its
882 <A::Text.isElementContentWhitespace> attribute value
883 <kwd:MUST> be set to <DOM::false>.
884 @@@PerlDef:
885 __DEEP{
886 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'rni-keyword');
887 $r-><AS::Node.textContent> (defined $value ? $value : '');
888 }__;
889
890 @@Test:
891 @@@QName: XDPDocument.createXDPRNIKeyword.1.test
892 @@@PerlDef:
893 my $doc;
894 __CODE{createXDPDocumentForTest}__;
895
896 my $value = "PCDATA";
897 my $el = $doc-><M::XDPDocument.createXDPRNIKeyword> ($value);
898
899 $test->id ('interface');
900 $test->assert_isa ($el, <IFName::XDPElement>);
901
902 $test->id ('namespaceURI');
903 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
904
905 $test->id ('localName');
906 $test->assert_equals ($el-><AG::Node.localName>, 'rni-keyword');
907
908 $test->id ('textContent');
909 $test->assert_equals ($el-><AG::Node.textContent>, $value);
910
911 $test->id ('dtdText');
912 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '#'.$value);
913 @@Test:
914 @@@QName: XDPDocument.createXDPRNIKeyword.2.test
915 @@@PerlDef:
916 my $doc;
917 __CODE{createXDPDocumentForTest}__;
918
919 my $el = $doc-><M::XDPDocument.createXDPRNIKeyword> (null);
920
921 $test->id ('interface');
922 $test->assert_isa ($el, <IFName::XDPElement>);
923
924 $test->id ('namespaceURI');
925 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
926
927 $test->id ('localName');
928 $test->assert_equals ($el-><AG::Node.localName>, 'rni-keyword');
929
930 $test->id ('textContent');
931 $test->assert_equals ($el-><AG::Node.textContent>, '');
932
933 $test->id ('dtdText');
934 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '#');
935
936 @Method:
937 @@Name: createXDPDelimiter
938 @@enDesc:
939 Creates a <XE::xdp|delimiter> element.
940 @@Param:
941 @@@Name: value
942 @@@Type: DOMString
943 @@@enDesc:
944 The value of the element.
945 @@@nullCase:
946 @@@@enDesc:
947 Same as an empty string.
948 @@Return:
949 @@@Type: XDPElement
950 @@@enDesc:
951 The newly created element node.
952
953 {P:: A new <IF::Element> node with following attributes
954 <kwd:MUST> be returned:
955
956 - <A::Node.localName>::: <XE::delimiter>.
957
958 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
959
960 - <A::Node.ownerDocument>::: The document.
961
962 - <A::Node.textContent>::: <P::value>, or an empty
963 string if <P::value> is <DOM::null>.
964
965 }
966
967 If <IF::Text> nodes are created, its
968 <A::Text.isElementContentWhitespace> attribute value
969 <kwd:MUST> be set to <DOM::false>.
970 @@@PerlDef:
971 __DEEP{
972 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'delimiter');
973 $r-><AS::Node.textContent> (defined $value ? $value : '');
974 }__;
975
976 @@Test:
977 @@@QName: XDPDocument.createXDPDelimiter.1.test
978 @@@PerlDef:
979 my $doc;
980 __CODE{createXDPDocumentForTest}__;
981
982 my $value = "%";
983 my $el = $doc-><M::XDPDocument.createXDPDelimiter> ($value);
984
985 $test->id ('interface');
986 $test->assert_isa ($el, <IFName::XDPElement>);
987
988 $test->id ('namespaceURI');
989 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
990
991 $test->id ('localName');
992 $test->assert_equals ($el-><AG::Node.localName>, 'delimiter');
993
994 $test->id ('textContent');
995 $test->assert_equals ($el-><AG::Node.textContent>, $value);
996
997 $test->id ('dtdText');
998 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value);
999 @@Test:
1000 @@@QName: XDPDocument.createXDPDelimiter.2.test
1001 @@@PerlDef:
1002 my $doc;
1003 __CODE{createXDPDocumentForTest}__;
1004
1005 my $el = $doc-><M::XDPDocument.createXDPDelimiter> (null);
1006
1007 $test->id ('interface');
1008 $test->assert_isa ($el, <IFName::XDPElement>);
1009
1010 $test->id ('namespaceURI');
1011 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1012
1013 $test->id ('localName');
1014 $test->assert_equals ($el-><AG::Node.localName>, 'delimiter');
1015
1016 $test->id ('textContent');
1017 $test->assert_equals ($el-><AG::Node.textContent>, '');
1018
1019 $test->id ('dtdText');
1020 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
1021
1022 @Method:
1023 @@Name: createXDPEntityValue
1024 @@enDesc:
1025 Creates a <XE::xdp|entity-value> element.
1026 @@Param:
1027 @@@Name: value
1028 @@@Type: DOMString
1029 @@@enDesc:
1030 The value of the element.
1031 @@@nullCase:
1032 @@@@enDesc:
1033 Same as an empty string.
1034 @@Return:
1035 @@@Type: XDPEntityValueElement
1036 @@@enDesc:
1037 The newly created element node.
1038
1039 {P:: A new <IF::Element> node with following attributes
1040 <kwd:MUST> be returned:
1041
1042 - <A::Node.localName>::: <XE::entity-value>.
1043
1044 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1045
1046 - <A::Node.ownerDocument>::: The document.
1047
1048 - <A::Node.textContent>::: <P::value>, or an empty
1049 string if <P::value> is <DOM::null>.
1050
1051 }
1052
1053 If <IF::Text> nodes are created, its
1054 <A::Text.isElementContentWhitespace> attribute value
1055 <kwd:MUST> be set to <DOM::false>.
1056 @@@PerlDef:
1057 __DEEP{
1058 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'entity-value');
1059 $r-><AS::Node.textContent> (defined $value ? $value : '');
1060 }__;
1061
1062 @@Test:
1063 @@@QName: XDPDocument.createXDPEntityValue.1.test
1064 @@@PerlDef:
1065 my $doc;
1066 __CODE{createXDPDocumentForTest}__;
1067
1068 my $value = q<a%b;c&d;e"f"g'h'i>;
1069 my $qvalue = q<'a&#x25;b;c&#x26;d;e"f"g&#x27;h&#x27;i'>;
1070 my $el = $doc-><M::XDPDocument.createXDPEntityValue> ($value);
1071
1072 $test->id ('interface');
1073 $test->assert_isa ($el, <IFName::XDPEntityValueElement>);
1074
1075 $test->id ('namespaceURI');
1076 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1077
1078 $test->id ('localName');
1079 $test->assert_equals ($el-><AG::Node.localName>, 'entity-value');
1080
1081 $test->id ('textContent');
1082 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1083
1084 $test->id ('dtdText');
1085 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1086 @@Test:
1087 @@@QName: XDPDocument.createXDPEntityValue.2.test
1088 @@@PerlDef:
1089 my $doc;
1090 __CODE{createXDPDocumentForTest}__;
1091
1092 my $el = $doc-><M::XDPDocument.createXDPEntityValue> (null);
1093
1094 $test->id ('interface');
1095 $test->assert_isa ($el, <IFName::XDPEntityValueElement>);
1096
1097 $test->id ('namespaceURI');
1098 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1099
1100 $test->id ('localName');
1101 $test->assert_equals ($el-><AG::Node.localName>, 'entity-value');
1102
1103 $test->id ('textContent');
1104 $test->assert_equals ($el-><AG::Node.textContent>, '');
1105
1106 $test->id ('dtdText');
1107 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1108
1109 @Method:
1110 @@Name: createXDPMinimumLiteral
1111 @@enDesc:
1112 Creates a <XE::xdp|minimum-literal> element.
1113 @@Param:
1114 @@@Name: value
1115 @@@Type: DOMString
1116 @@@enDesc:
1117 The value of the element.
1118 @@@nullCase:
1119 @@@@enDesc:
1120 Same as an empty string.
1121 @@Return:
1122 @@@Type: XDPMinimumLiteralElement
1123 @@@enDesc:
1124 The newly created element node.
1125
1126 {P:: A new <IF::Element> node with following attributes
1127 <kwd:MUST> be returned:
1128
1129 - <A::Node.localName>::: <XE::minimum-literal>.
1130
1131 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1132
1133 - <A::Node.ownerDocument>::: The document.
1134
1135 - <A::Node.textContent>::: <P::value>, or an empty
1136 string if <P::value> is <DOM::null>.
1137
1138 }
1139
1140 If <IF::Text> nodes are created, its
1141 <A::Text.isElementContentWhitespace> attribute value
1142 <kwd:MUST> be set to <DOM::false>.
1143 @@@PerlDef:
1144 __DEEP{
1145 $r = $self-><M::Document.createElementNS>
1146 (<Q::xdp|>, 'minimum-literal');
1147 $r-><AS::Node.textContent> (defined $value ? $value : '');
1148 }__;
1149
1150 @@Test:
1151 @@@QName: XDPDocument.createXDPMinimumLiteral.1.test
1152 @@@PerlDef:
1153 my $doc;
1154 __CODE{createXDPDocumentForTest}__;
1155
1156 my $value = q<a%b;c&d;e"f"g'h'i>;
1157 my $qvalue = q<"a%b;c&d;e%22f%22g'h'i">;
1158 my $el = $doc-><M::XDPDocument.createXDPMinimumLiteral> ($value);
1159
1160 $test->id ('interface');
1161 $test->assert_isa ($el, <IFName::XDPMinimumLiteralElement>);
1162
1163 $test->id ('namespaceURI');
1164 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1165
1166 $test->id ('localName');
1167 $test->assert_equals ($el-><AG::Node.localName>, 'minimum-literal');
1168
1169 $test->id ('textContent');
1170 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1171
1172 $test->id ('dtdText');
1173 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1174 @@Test:
1175 @@@QName: XDPDocument.createXDPMinimumLiteral.2.test
1176 @@@PerlDef:
1177 my $doc;
1178 __CODE{createXDPDocumentForTest}__;
1179
1180 my $el = $doc-><M::XDPDocument.createXDPMinimumLiteral> (null);
1181
1182 $test->id ('interface');
1183 $test->assert_isa ($el, <IFName::XDPMinimumLiteralElement>);
1184
1185 $test->id ('namespaceURI');
1186 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1187
1188 $test->id ('localName');
1189 $test->assert_equals ($el-><AG::Node.localName>, 'minimum-literal');
1190
1191 $test->id ('textContent');
1192 $test->assert_equals ($el-><AG::Node.textContent>, '');
1193
1194 $test->id ('dtdText');
1195 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1196
1197 @Method:
1198 @@Name: createXDPSystemLiteral
1199 @@enDesc:
1200 Creates a <XE::xdp|system-literal> element.
1201 @@Param:
1202 @@@Name: value
1203 @@@Type: DOMString
1204 @@@enDesc:
1205 The value of the element.
1206 @@@nullCase:
1207 @@@@enDesc:
1208 Same as an empty string.
1209 @@Return:
1210 @@@Type: XDPSystemLiteralElement
1211 @@@enDesc:
1212 The newly created element node.
1213
1214 {P:: A new <IF::Element> node with following attributes
1215 <kwd:MUST> be returned:
1216
1217 - <A::Node.localName>::: <XE::system-literal>.
1218
1219 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1220
1221 - <A::Node.ownerDocument>::: The document.
1222
1223 - <A::Node.textContent>::: <P::value>, or an empty
1224 string if <P::value> is <DOM::null>.
1225
1226 }
1227
1228 If <IF::Text> nodes are created, its
1229 <A::Text.isElementContentWhitespace> attribute value
1230 <kwd:MUST> be set to <DOM::false>.
1231 @@@PerlDef:
1232 __DEEP{
1233 $r = $self-><M::Document.createElementNS>
1234 (<Q::xdp|>, 'system-literal');
1235 $r-><AS::Node.textContent> (defined $value ? $value : '');
1236 }__;
1237
1238 @@Test:
1239 @@@QName: XDPDocument.createXDPSystemLiteral.1.test
1240 @@@PerlDef:
1241 my $doc;
1242 __CODE{createXDPDocumentForTest}__;
1243
1244 my $value = q<a%b;c&d;e"f"g'h'i>;
1245 my $qvalue = q<"a%b;c&d;e%22f%22g'h'i">;
1246 my $el = $doc-><M::XDPDocument.createXDPSystemLiteral> ($value);
1247
1248 $test->id ('interface');
1249 $test->assert_isa ($el, <IFName::XDPSystemLiteralElement>);
1250
1251 $test->id ('namespaceURI');
1252 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1253
1254 $test->id ('localName');
1255 $test->assert_equals ($el-><AG::Node.localName>, 'system-literal');
1256
1257 $test->id ('textContent');
1258 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1259
1260 $test->id ('dtdText');
1261 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1262 @@Test:
1263 @@@QName: XDPDocument.createXDPSystemLiteral.2.test
1264 @@@PerlDef:
1265 my $doc;
1266 __CODE{createXDPDocumentForTest}__;
1267
1268 my $el = $doc-><M::XDPDocument.createXDPSystemLiteral> (null);
1269
1270 $test->id ('interface');
1271 $test->assert_isa ($el, <IFName::XDPSystemLiteralElement>);
1272
1273 $test->id ('namespaceURI');
1274 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1275
1276 $test->id ('localName');
1277 $test->assert_equals ($el-><AG::Node.localName>, 'system-literal');
1278
1279 $test->id ('textContent');
1280 $test->assert_equals ($el-><AG::Node.textContent>, '');
1281
1282 $test->id ('dtdText');
1283 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1284
1285 @Method:
1286 @@Name: createXDPAttrLiteral
1287 @@enDesc:
1288 Creates a <XE::xdp|attr-literal> element.
1289 @@Param:
1290 @@@Name: value
1291 @@@Type: DOMString
1292 @@@enDesc:
1293 The value of the element.
1294 @@@nullCase:
1295 @@@@enDesc:
1296 Same as an empty string.
1297 @@Return:
1298 @@@Type: XDPAttrLiteralElement
1299 @@@enDesc:
1300 The newly created element node.
1301
1302 {P:: A new <IF::Element> node with following attributes
1303 <kwd:MUST> be returned:
1304
1305 - <A::Node.localName>::: <XE::attr-literal>.
1306
1307 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1308
1309 - <A::Node.ownerDocument>::: The document.
1310
1311 - <A::Node.textContent>::: <P::value>, or an empty
1312 string if <P::value> is <DOM::null>.
1313
1314 }
1315
1316 If <IF::Text> nodes are created, its
1317 <A::Text.isElementContentWhitespace> attribute value
1318 <kwd:MUST> be set to <DOM::false>.
1319 @@@PerlDef:
1320 __DEEP{
1321 $r = $self-><M::Document.createElementNS>
1322 (<Q::xdp|>, 'attr-literal');
1323 $r-><AS::Node.textContent> (defined $value ? $value : '');
1324 }__;
1325
1326 @@Test:
1327 @@@QName: XDPDocument.createXDPAttrLiteral.1.test
1328 @@@PerlDef:
1329 my $doc;
1330 __CODE{createXDPDocumentForTest}__;
1331
1332 my $value = q<a%b;c&d;e"f"g'h'i>;
1333 my $qvalue = q<'a%b;c&amp;d;e"f"g&apos;h&apos;i'>;
1334 my $el = $doc-><M::XDPDocument.createXDPAttrLiteral> ($value);
1335
1336 $test->id ('interface');
1337 $test->assert_isa ($el, <IFName::XDPAttrLiteralElement>);
1338
1339 $test->id ('namespaceURI');
1340 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1341
1342 $test->id ('localName');
1343 $test->assert_equals ($el-><AG::Node.localName>, 'attr-literal');
1344
1345 $test->id ('textContent');
1346 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1347
1348 $test->id ('dtdText');
1349 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1350 @@Test:
1351 @@@QName: XDPDocument.createXDPAttrLiteral.2.test
1352 @@@PerlDef:
1353 my $doc;
1354 __CODE{createXDPDocumentForTest}__;
1355
1356 my $el = $doc-><M::XDPDocument.createXDPAttrLiteral> (null);
1357
1358 $test->id ('interface');
1359 $test->assert_isa ($el, <IFName::XDPAttrLiteralElement>);
1360
1361 $test->id ('namespaceURI');
1362 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1363
1364 $test->id ('localName');
1365 $test->assert_equals ($el-><AG::Node.localName>, 'attr-literal');
1366
1367 $test->id ('textContent');
1368 $test->assert_equals ($el-><AG::Node.textContent>, '');
1369
1370 $test->id ('dtdText');
1371 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1372 ##XDPDocument
1373
1374 IFClsDef:
1375 @IFQName: XDPElement
1376 @ClsQName: ManakaiDOMXDPElement
1377
1378 @IFISA: Element
1379 @ClsISA: te|ManakaiDOMElement
1380
1381 @s:elementType: AnyXDPElement||ManakaiDOM|all
1382
1383 @Test:
1384 @@QName: createElementNS.XDPElement.test
1385 @@PerlDef:
1386 my $doc;
1387 __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
1388
1389 my $el = $doc-><M::Document.createElementNS> (<Q::xdp:>, 'anElement');
1390
1391 $test->assert_isa ($el, <IFName::XDPElement>);
1392
1393 @Attr:
1394 @@Name: dtdText
1395 @@enDesc:
1396 The serialized representation of the element and its descendants.
1397 @@Type: DOMString
1398 @@Get:
1399 @@@enDesc:
1400 {ISSUE::
1401 Definition
1402 }
1403 @@@PerlDef:
1404 require Message::DOM::Traversal;
1405 my $doctrv = $self-><AG::Node.ownerDocument>
1406 -><M::Node.getFeature> (Traversal => '2.0');
1407 my $tw = $doctrv->create_tree_walker
1408 ($self, <C::NodeFilter.SHOW_ELEMENT> |
1409 <C::NodeFilter.SHOW_TEXT> |
1410 <C::NodeFilter.SHOW_CDATA_SECTION>,
1411 sub {
1412 my $node = $_[1];
1413 if ($node-><AG::Node.nodeType>
1414 == <C::Node.ELEMENT_NODE>) {
1415 my $ns = $node-><AG::Node.namespaceURI>;
1416 if (not defined $ns) {
1417 return <C::NodeFilter.FILTER_REJECT>;
1418 } elsif ($ns eq <Q::xdp|>) {
1419 return <C::NodeFilter.FILTER_ACCEPT>;
1420 } else {
1421 return <C::NodeFilter.FILTER_REJECT>;
1422 }
1423 } else {
1424 return <C::NodeFilter.FILTER_ACCEPT>;
1425 }
1426 }, true);
1427 my $current = $tw->first_child;
1428 $r = '';
1429 C: while (defined $current) {
1430 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
1431 $r .= $current-><AG::XDPElement.dtdText>;
1432 } else {
1433 $r .= $current-><AG::Node.textContent>;
1434 }
1435
1436 $current = $tw->next_sibling;
1437 } # C
1438 ##XDPElement
1439
1440 ResourceDef:
1441 @QName: AnyXDPElement
1442 @DISCore:resourceType: s|AnyElementInNS
1443 @AppName:
1444 @@@: xdp|*
1445 @@ContentType: DISCore|QName
1446 @ForCheck: =ManakaiDOM|all
1447
1448 IFClsETDef:
1449 @IFQName: XDPPEElement
1450 @ETQName: xdp|pe
1451 @ClsQName: ManakaiDOMXDPPEElement
1452
1453 @IFISA: XDPElement
1454 @ClsISA: ManakaiDOMXDPElement
1455
1456 @enDesc:
1457 An <XE::xdp|pe> element represents an XML parameter
1458 entity, an XML external subset entity, or an XML internal subset.
1459 ##XDPPEElement
1460
1461 IFClsETDef:
1462 @IFQName: XDPElementElement
1463 @ETQName: xdp|element
1464 @ClsQName: ManakaiDOMXDPElementElement
1465
1466 @IFISA: XDPElement
1467 @ClsISA: ManakaiDOMXDPElement
1468
1469 @enDesc:
1470 An <XE::xdp|element> element represents an XML <XML::ELEMENT>
1471 declaration.
1472
1473 @CAttr:
1474 @@Name: dtdText
1475 @@Type: DOMString
1476 @@Get:
1477 @@@PerlDef:
1478 $r = '<!ELEMENT'.$self->SUPER::dtd_text.'>';
1479 ##XDPElementElement
1480
1481 IFClsETDef:
1482 @IFQName: XDPModelGroupElement
1483 @ETQName: xdp|model-group
1484 @ClsQName: ManakaiDOMXDPModelGroupElement
1485
1486 @IFISA: XDPElement
1487 @ClsISA: ManakaiDOMXDPElement
1488
1489 @enDesc:
1490 An <XE::xdp|model-group> element represents an XML model
1491 group.
1492
1493 @CAttr:
1494 @@Name: dtdText
1495 @@Type: DOMString
1496 @@Get:
1497 @@@PerlDef:
1498 $r = '('.$self->SUPER::dtd_text.')';
1499 ##XDPModelGroupElement
1500
1501 IFClsETDef:
1502 @IFQName: XDPAttlistElement
1503 @ETQName: xdp|attlist
1504 @ClsQName: ManakaiDOMXDPAttlistElement
1505
1506 @IFISA: XDPElement
1507 @ClsISA: ManakaiDOMXDPElement
1508
1509 @enDesc:
1510 An <XE::xdp|attlist> element represents an XML <XML::ATTLIST>
1511 declaration.
1512
1513 @CAttr:
1514 @@Name: dtdText
1515 @@Type: DOMString
1516 @@Get:
1517 @@@PerlDef:
1518 $r = '<!ATTLIST'.$self->SUPER::dtd_text.'>';
1519 ##XDPAttlistElement
1520
1521 IFClsETDef:
1522 @IFQName: XDPEnumGroupElement
1523 @ETQName: xdp|enum-group
1524 @ClsQName: ManakaiDOMXDPEnumGroupElement
1525
1526 @IFISA: XDPElement
1527 @ClsISA: ManakaiDOMXDPElement
1528
1529 @enDesc:
1530 An <XE::xdp|enum-group> element represents an XML enumeration
1531 group in an attribute definition.
1532
1533 @CAttr:
1534 @@Name: dtdText
1535 @@Type: DOMString
1536 @@Get:
1537 @@@PerlDef:
1538 $r = '('.$self->SUPER::dtd_text.')';
1539 ##XDPEnumGroupElement
1540
1541 IFClsETDef:
1542 @IFQName: XDPEntityElement
1543 @ETQName: xdp|entity
1544 @ClsQName: ManakaiDOMXDPEntityElement
1545
1546 @IFISA: XDPElement
1547 @ClsISA: ManakaiDOMXDPElement
1548
1549 @enDesc:
1550 An <XE::xdp|entity> element represents an XML <XML::ENTITY>
1551 declaration.
1552
1553 @CAttr:
1554 @@Name: dtdText
1555 @@Type: DOMString
1556 @@Get:
1557 @@@PerlDef:
1558 $r = '<!ENTITY'.$self->SUPER::dtd_text.'>';
1559 ##XDPEntityElement
1560
1561 IFClsETDef:
1562 @IFQName: XDPNotationElement
1563 @ETQName: xdp|notation
1564 @ClsQName: ManakaiDOMXDPNotationElement
1565
1566 @IFISA: XDPElement
1567 @ClsISA: ManakaiDOMXDPElement
1568
1569 @enDesc:
1570 An <XE::xdp|notation> element represents an XML <XML::NOTATION>
1571 declaration.
1572
1573 @CAttr:
1574 @@Name: dtdText
1575 @@Type: DOMString
1576 @@Get:
1577 @@@PerlDef:
1578 $r = '<!NOTATION'.$self->SUPER::dtd_text.'>';
1579 ##XDPNotationElement
1580
1581 IFClsETDef:
1582 @IFQName: XDPMarkedSectionElement
1583 @ETQName: xdp|marked-section
1584 @ClsQName: ManakaiDOMXDPMarkedSectionElement
1585
1586 @IFISA: XDPElement
1587 @ClsISA: ManakaiDOMXDPElement
1588
1589 @enDesc:
1590 An <XE::xdp|marked-section> element represents an XML conditional
1591 section.
1592
1593 @CAttr:
1594 @@Name: dtdText
1595 @@Type: DOMString
1596 @@Get:
1597 @@@PerlDef:
1598 $r = '<!['.$self->SUPER::dtd_text.']]>';
1599 ##XDPMarkedSectionElement
1600
1601 IFClsETDef:
1602 @IFQName: XDPMarkedSectionStatusElement
1603 @ETQName: xdp|marked-section-status
1604 @ClsQName: ManakaiDOMXDPMarkedSectionStatusElement
1605
1606 @IFISA: XDPElement
1607 @ClsISA: ManakaiDOMXDPElement
1608
1609 @enDesc:
1610 An <XE::xdp|marked-section-status> element represents the
1611 status part of an XML marked section.
1612
1613 @CAttr:
1614 @@Name: dtdText
1615 @@Type: DOMString
1616 @@Get:
1617 @@@PerlDef:
1618 $r = $self->SUPER::dtd_text.'[';
1619 ##XDPMarkedSectionStatusElement
1620
1621 IFClsETDef:
1622 @IFQName: XDPCommentElement
1623 @ETQName: xdp|comment
1624 @ClsQName: ManakaiDOMXDPCommentElement
1625
1626 @IFISA: XDPElement
1627 @ClsISA: ManakaiDOMXDPElement
1628
1629 @enDesc:
1630 An <XE::xdp|comment> element represents an XML comment.
1631
1632 @CAttr:
1633 @@Name: dtdText
1634 @@Type: DOMString
1635 @@Get:
1636 @@@PerlDef:
1637 $r = $self->SUPER::dtd_text;
1638 $r =~ s/--/- - /g;
1639 $r = '<!--'.$r.'-->';
1640 ##XDPCommentElement
1641
1642 IFClsETDef:
1643 @IFQName: XDPPIElement
1644 @ETQName: xdp|pi
1645 @ClsQName: ManakaiDOMXDPPIElement
1646
1647 @IFISA: XDPElement
1648 @ClsISA: ManakaiDOMXDPElement
1649
1650 @enDesc:
1651 An <XE::xdp|pi> element represents an XML processing
1652 instruction.
1653
1654 @CAttr:
1655 @@Name: dtdText
1656 @@Type: DOMString
1657 @@Get:
1658 @@@PerlDef:
1659 $r = $self->SUPER::dtd_text;
1660 $r =~ s/\?>/?&gt;/g;
1661 $r = '<?'.$r.'?>';
1662 ##XDPPIElement
1663
1664 IFClsETDef:
1665 @IFQName: XDPTextDeclElement
1666 @ETQName: xdp|text-decl
1667 @ClsQName: ManakaiDOMXDPTextDeclElement
1668
1669 @IFISA: XDPElement
1670 @ClsISA: ManakaiDOMXDPElement
1671
1672 @enDesc:
1673 An <XE::xdp|text-decl> element represents an XML text declaration.
1674
1675 @CAttr:
1676 @@Name: dtdText
1677 @@Type: DOMString
1678 @@Get:
1679 @@@PerlDef:
1680 $r = $self->SUPER::dtd_text;
1681 $r =~ s/\?>/?&gt;/g;
1682 $r = '<?'.$r.'?>';
1683 ##XDPTextDeclElement
1684
1685 IFClsETDef:
1686 @IFQName: XDPPAttrElement
1687 @ETQName: xdp|pattr
1688 @ClsQName: ManakaiDOMXDPPAttrElement
1689
1690 @IFISA: XDPElement
1691 @ClsISA: ManakaiDOMXDPElement
1692
1693 @enDesc:
1694 An <XE::xdp|pattr> element represents a pseudo-attribute.
1695 ##XDPPAttrElement
1696
1697 IFClsETDef:
1698 @IFQName: XDPPERefElement
1699 @ETQName: xdp|peref
1700 @ClsQName: ManakaiDOMXDPPERefElement
1701
1702 @IFISA: XDPElement
1703 @ClsISA: ManakaiDOMXDPElement
1704
1705 @enDesc:
1706 An <XE::xdp|peref> element represents an XML parameter entity
1707 reference.
1708
1709 @CAttr:
1710 @@Name: dtdText
1711 @@Type: DOMString
1712 @@Get:
1713 @@@PerlDef:
1714 $r = '%'.$self->SUPER::dtd_text.';';
1715 ##XDPPERefElement
1716
1717 IFClsETDef:
1718 @IFQName: XDPGERefElement
1719 @ETQName: xdp|geref
1720 @ClsQName: ManakaiDOMXDPGERefElement
1721
1722 @IFISA: XDPElement
1723 @ClsISA: ManakaiDOMXDPElement
1724
1725 @enDesc:
1726 An <XE::xdp|geref> element represents an XML general entity
1727 reference.
1728
1729 @CAttr:
1730 @@Name: dtdText
1731 @@Type: DOMString
1732 @@Get:
1733 @@@PerlDef:
1734 $r = '&'.$self->SUPER::dtd_text.';';
1735 ##XDPGERefElement
1736
1737 IFClsETDef:
1738 @IFQName: XDPNCRElement
1739 @ETQName: xdp|ncr
1740 @ClsQName: ManakaiDOMXDPNCRElement
1741
1742 @IFISA: XDPElement
1743 @ClsISA: ManakaiDOMXDPElement
1744
1745 @enDesc:
1746 An <XE::xdp|ncr> element represents an XML numeric character
1747 reference.
1748
1749 @CAttr:
1750 @@Name: dtdText
1751 @@Type: DOMString
1752 @@Get:
1753 @@@PerlDef:
1754 $r = '&#'.$self->SUPER::dtd_text.';';
1755 ##XDPNCRElement
1756
1757 IFClsETDef:
1758 @IFQName: XDPHCRElement
1759 @ETQName: xdp|hcr
1760 @ClsQName: ManakaiDOMXDPHCRElement
1761
1762 @IFISA: XDPElement
1763 @ClsISA: ManakaiDOMXDPElement
1764
1765 @enDesc:
1766 An <XE::xdp|hcr> element represents an XML hexadecimal character
1767 reference.
1768
1769 @CAttr:
1770 @@Name: dtdText
1771 @@Type: DOMString
1772 @@Get:
1773 @@@PerlDef:
1774 $r = '&#x'.$self->SUPER::dtd_text.';';
1775 ##XDPHCRElement
1776
1777 IFClsETDef:
1778 @IFQName: XDPRNIKeywordElement
1779 @ETQName: xdp|rni-keyword
1780 @ClsQName: ManakaiDOMXDPRNIKeywordElement
1781
1782 @IFISA: XDPElement
1783 @ClsISA: ManakaiDOMXDPElement
1784
1785 @enDesc:
1786 An <XE::xdp|rni-keyword> element represents an XML keyword
1787 prepended by a <CHAR::NUMBER SIGN>.
1788
1789 @CAttr:
1790 @@Name: dtdText
1791 @@Type: DOMString
1792 @@Get:
1793 @@@PerlDef:
1794 $r = '#'.$self->SUPER::dtd_text;
1795 ##XDPRNIKeywordElement
1796
1797 IFClsETDef:
1798 @IFQName: XDPEntityValueElement
1799 @ETQName: xdp|entity-value
1800 @ClsQName: ManakaiDOMXDPEntityValueElement
1801
1802 @IFISA: XDPElement
1803 @ClsISA: ManakaiDOMXDPElement
1804
1805 @enDesc:
1806 An <XE::xdp|entity-value> element represents an XML entity
1807 value.
1808
1809 @CAttr:
1810 @@Name: dtdText
1811 @@Type: DOMString
1812 @@Get:
1813 @@@PerlDef:
1814 require Message::DOM::Traversal;
1815 my $doctrv = $self-><AG::Node.ownerDocument>
1816 -><M::Node.getFeature> (Traversal => '2.0');
1817 my $tw = $doctrv->create_tree_walker
1818 ($self, <C::NodeFilter.SHOW_ELEMENT> |
1819 <C::NodeFilter.SHOW_TEXT> |
1820 <C::NodeFilter.SHOW_CDATA_SECTION>,
1821 sub {
1822 my $node = $_[1];
1823 if ($node-><AG::Node.nodeType>
1824 == <C::Node.ELEMENT_NODE>) {
1825 my $ns = $node-><AG::Node.namespaceURI>;
1826 if (not defined $ns) {
1827 return <C::NodeFilter.FILTER_REJECT>;
1828 } elsif ($ns eq <Q::xdp|>) {
1829 return <C::NodeFilter.FILTER_ACCEPT>;
1830 } else {
1831 return <C::NodeFilter.FILTER_REJECT>;
1832 }
1833 } else {
1834 return <C::NodeFilter.FILTER_ACCEPT>;
1835 }
1836 }, true);
1837 my $current = $tw->first_child;
1838 $r = '';
1839 C: while (defined $current) {
1840 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
1841 if ({
1842 <Q::xdp|peref> => true,
1843 }->{$current->manakai_expanded_uri}) {
1844 $r .= $current-><AG::XDPElement.dtdText>;
1845 } else {
1846 my $v = $current-><AG::XDPElement.dtdText>;
1847 $v =~ s/&/&#x26;/g;
1848 $v =~ s/%/&#x25;/g;
1849 $r .= $v;
1850 }
1851 } else {
1852 my $v = $current-><AG::Node.textContent>;
1853 $v =~ s/&/&#x26;/g;
1854 $v =~ s/%/&#x25;/g;
1855 $r .= $v;
1856 }
1857
1858 $current = $tw->next_sibling;
1859 } # C
1860
1861 if ($r =~ /"/) {
1862 $r =~ s/'/&#x27;/g;
1863 $r = "'".$r."'";
1864 } else {
1865 $r =~ s/"/&#x22;/g;
1866 $r = '"'.$r.'"';
1867 }
1868 ##XDPEntityValueElement
1869
1870 IFClsETDef:
1871 @IFQName: XDPAttrLiteralElement
1872 @ETQName: xdp|attr-literal
1873 @ClsQName: ManakaiDOMXDPAttrLiteralElement
1874
1875 @IFISA: XDPElement
1876 @ClsISA: ManakaiDOMXDPElement
1877
1878 @enDesc:
1879 An <XE::xdp|attr-literal> element represents an XML attribute
1880 value literal.
1881
1882 @CAttr:
1883 @@Name: dtdText
1884 @@Type: DOMString
1885 @@Get:
1886 @@@PerlDef:
1887 require Message::DOM::Traversal;
1888 my $doctrv = $self-><AG::Node.ownerDocument>
1889 -><M::Node.getFeature> (Traversal => '2.0');
1890 my $tw = $doctrv->create_tree_walker
1891 ($self, <C::NodeFilter.SHOW_ELEMENT> |
1892 <C::NodeFilter.SHOW_TEXT> |
1893 <C::NodeFilter.SHOW_CDATA_SECTION>,
1894 sub {
1895 my $node = $_[1];
1896 if ($node-><AG::Node.nodeType>
1897 == <C::Node.ELEMENT_NODE>) {
1898 my $ns = $node-><AG::Node.namespaceURI>;
1899 if (not defined $ns) {
1900 return <C::NodeFilter.FILTER_REJECT>;
1901 } elsif ($ns eq <Q::xdp|>) {
1902 return <C::NodeFilter.FILTER_ACCEPT>;
1903 } else {
1904 return <C::NodeFilter.FILTER_REJECT>;
1905 }
1906 } else {
1907 return <C::NodeFilter.FILTER_ACCEPT>;
1908 }
1909 }, true);
1910 my $current = $tw->first_child;
1911 $r = '';
1912 C: while (defined $current) {
1913 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
1914 if ({
1915 <Q::xdp|geref> => true,
1916 <Q::xdp|ncr> => true,
1917 <Q::xdp|hcr> => true,
1918 }->{$current->manakai_expanded_uri}) {
1919 $r .= $current-><AG::XDPElement.dtdText>;
1920 } else {
1921 my $v = $current-><AG::XDPElement.dtdText>;
1922 $v =~ s/&/&amp;/g;
1923 $r .= $v;
1924 }
1925 } else {
1926 my $v = $current-><AG::Node.textContent>;
1927 $v =~ s/&/&amp;/g;
1928 $r .= $v;
1929 }
1930
1931 $current = $tw->next_sibling;
1932 } # C
1933
1934 if ($r =~ /"/) {
1935 $r =~ s/'/&apos;/g;
1936 $r = "'".$r."'";
1937 } else {
1938 $r =~ s/"/&quot;/g;
1939 $r = '"'.$r.'"';
1940 }
1941 ##XDPPAttrLiteralElement
1942
1943 IFClsETDef:
1944 @IFQName: XDPMinimumLiteralElement
1945 @ETQName: xdp|minimum-literal
1946 @ClsQName: ManakaiDOMXDPMinimumLiteralElement
1947
1948 @IFISA: XDPElement
1949 @ClsISA: ManakaiDOMXDPElement
1950
1951 @enDesc:
1952 An <XE::xdp|minimum-literal> element represents an XML public identifier
1953 literal.
1954
1955 @CAttr:
1956 @@Name: dtdText
1957 @@Type: DOMString
1958 @@Get:
1959 @@@PerlDef:
1960 $r = $self->SUPER::dtd_text;
1961 $r =~ s/"/%22/g;
1962 $r = '"'.$r.'"';
1963 ##XDPMinimumLiteralElement
1964
1965 IFClsETDef:
1966 @IFQName: XDPSystemLiteralElement
1967 @ETQName: xdp|system-literal
1968 @ClsQName: ManakaiDOMXDPSystemLiteralElement
1969
1970 @IFISA: XDPElement
1971 @ClsISA: ManakaiDOMXDPElement
1972
1973 @enDesc:
1974 An <XE::xdp|system-literal> element represents an XML system
1975 literal.
1976
1977 @CAttr:
1978 @@Name: dtdText
1979 @@Type: DOMString
1980 @@Get:
1981 @@@PerlDef:
1982 $r = $self->SUPER::dtd_text;
1983 $r =~ s/"/%22/g;
1984 $r = '"'.$r.'"';
1985 ##XDPSystemLiteralElement
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24