/[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.5 - (show annotations) (download)
Sat May 20 10:13:02 2006 UTC (18 years, 6 months ago) by wakaba
Branch: MAIN
Changes since 1.4: +2 -1 lines 
++ manakai/lib/Message/Markup/ChangeLog	20 May 2006 10:11:52 -0000
	* Atom.dis (AtomDataTypes): New module.

2006-05-20  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/Message/DOM/ChangeLog	20 May 2006 10:11:29 -0000
	* XDP.dis (createXDPRNIKeyword): The Perl method
	name property is added.

2006-05-20  Wakaba  <wakaba@suika.fam.cx>

++ manakai/lib/manakai/ChangeLog	20 May 2006 10:12:52 -0000
	* DISMarkup.dis: Definitions are added.

	* daf-dtd-modules.pl: Supports for element content
	models and attribute type groups are added.

2006-05-20  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/20 05:11:37 $
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 a <IF::Text> node is 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 a <IF::Text> node is 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 a <IF::Text> node is 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 a <IF::Text> node is 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 @@dlp:methodName: create_xdp_rni_keyword
853 @@enDesc:
854 Creates a <XE::xdp|rni-keyword> element.
855 @@Param:
856 @@@Name: value
857 @@@Type: DOMString
858 @@@enDesc:
859 The value of the element.
860 @@@nullCase:
861 @@@@enDesc:
862 Same as an empty string.
863 @@Return:
864 @@@Type: XDPRNIKeywordElement
865 @@@enDesc:
866 The newly created element node.
867
868 {P:: A new <IF::Element> node with following attributes
869 <kwd:MUST> be returned:
870
871 - <A::Node.localName>::: <XE::rni-keyword>.
872
873 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
874
875 - <A::Node.ownerDocument>::: The document.
876
877 - <A::Node.textContent>::: <P::value>, or an empty
878 string if <P::value> is <DOM::null>.
879
880 }
881
882 If a <IF::Text> node is created, its
883 <A::Text.isElementContentWhitespace> attribute value
884 <kwd:MUST> be set to <DOM::false>.
885 @@@PerlDef:
886 __DEEP{
887 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'rni-keyword');
888 $r-><AS::Node.textContent> (defined $value ? $value : '');
889 }__;
890
891 @@Test:
892 @@@QName: XDPDocument.createXDPRNIKeyword.1.test
893 @@@PerlDef:
894 my $doc;
895 __CODE{createXDPDocumentForTest}__;
896
897 my $value = "PCDATA";
898 my $el = $doc-><M::XDPDocument.createXDPRNIKeyword> ($value);
899
900 $test->id ('interface');
901 $test->assert_isa ($el, <IFName::XDPElement>);
902
903 $test->id ('namespaceURI');
904 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
905
906 $test->id ('localName');
907 $test->assert_equals ($el-><AG::Node.localName>, 'rni-keyword');
908
909 $test->id ('textContent');
910 $test->assert_equals ($el-><AG::Node.textContent>, $value);
911
912 $test->id ('dtdText');
913 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '#'.$value);
914 @@Test:
915 @@@QName: XDPDocument.createXDPRNIKeyword.2.test
916 @@@PerlDef:
917 my $doc;
918 __CODE{createXDPDocumentForTest}__;
919
920 my $el = $doc-><M::XDPDocument.createXDPRNIKeyword> (null);
921
922 $test->id ('interface');
923 $test->assert_isa ($el, <IFName::XDPElement>);
924
925 $test->id ('namespaceURI');
926 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
927
928 $test->id ('localName');
929 $test->assert_equals ($el-><AG::Node.localName>, 'rni-keyword');
930
931 $test->id ('textContent');
932 $test->assert_equals ($el-><AG::Node.textContent>, '');
933
934 $test->id ('dtdText');
935 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '#');
936
937 @Method:
938 @@Name: createXDPDelimiter
939 @@enDesc:
940 Creates a <XE::xdp|delimiter> element.
941 @@Param:
942 @@@Name: value
943 @@@Type: DOMString
944 @@@enDesc:
945 The value of the element.
946 @@@nullCase:
947 @@@@enDesc:
948 Same as an empty string.
949 @@Return:
950 @@@Type: XDPElement
951 @@@enDesc:
952 The newly created element node.
953
954 {P:: A new <IF::Element> node with following attributes
955 <kwd:MUST> be returned:
956
957 - <A::Node.localName>::: <XE::delimiter>.
958
959 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
960
961 - <A::Node.ownerDocument>::: The document.
962
963 - <A::Node.textContent>::: <P::value>, or an empty
964 string if <P::value> is <DOM::null>.
965
966 }
967
968 If a <IF::Text> node is created, its
969 <A::Text.isElementContentWhitespace> attribute value
970 <kwd:MUST> be set to <DOM::false>.
971 @@@PerlDef:
972 __DEEP{
973 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'delimiter');
974 $r-><AS::Node.textContent> (defined $value ? $value : '');
975 }__;
976
977 @@Test:
978 @@@QName: XDPDocument.createXDPDelimiter.1.test
979 @@@PerlDef:
980 my $doc;
981 __CODE{createXDPDocumentForTest}__;
982
983 my $value = "%";
984 my $el = $doc-><M::XDPDocument.createXDPDelimiter> ($value);
985
986 $test->id ('interface');
987 $test->assert_isa ($el, <IFName::XDPElement>);
988
989 $test->id ('namespaceURI');
990 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
991
992 $test->id ('localName');
993 $test->assert_equals ($el-><AG::Node.localName>, 'delimiter');
994
995 $test->id ('textContent');
996 $test->assert_equals ($el-><AG::Node.textContent>, $value);
997
998 $test->id ('dtdText');
999 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value);
1000 @@Test:
1001 @@@QName: XDPDocument.createXDPDelimiter.2.test
1002 @@@PerlDef:
1003 my $doc;
1004 __CODE{createXDPDocumentForTest}__;
1005
1006 my $el = $doc-><M::XDPDocument.createXDPDelimiter> (null);
1007
1008 $test->id ('interface');
1009 $test->assert_isa ($el, <IFName::XDPElement>);
1010
1011 $test->id ('namespaceURI');
1012 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1013
1014 $test->id ('localName');
1015 $test->assert_equals ($el-><AG::Node.localName>, 'delimiter');
1016
1017 $test->id ('textContent');
1018 $test->assert_equals ($el-><AG::Node.textContent>, '');
1019
1020 $test->id ('dtdText');
1021 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
1022
1023 @Method:
1024 @@Name: createXDPEntityValue
1025 @@enDesc:
1026 Creates a <XE::xdp|entity-value> element.
1027 @@Param:
1028 @@@Name: value
1029 @@@Type: DOMString
1030 @@@enDesc:
1031 The value of the element.
1032 @@@nullCase:
1033 @@@@enDesc:
1034 Same as an empty string.
1035 @@Return:
1036 @@@Type: XDPEntityValueElement
1037 @@@enDesc:
1038 The newly created element node.
1039
1040 {P:: A new <IF::Element> node with following attributes
1041 <kwd:MUST> be returned:
1042
1043 - <A::Node.localName>::: <XE::entity-value>.
1044
1045 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1046
1047 - <A::Node.ownerDocument>::: The document.
1048
1049 - <A::Node.textContent>::: <P::value>, or an empty
1050 string if <P::value> is <DOM::null>.
1051
1052 }
1053
1054 If a <IF::Text> node is created, its
1055 <A::Text.isElementContentWhitespace> attribute value
1056 <kwd:MUST> be set to <DOM::false>.
1057 @@@PerlDef:
1058 __DEEP{
1059 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'entity-value');
1060 $r-><AS::Node.textContent> (defined $value ? $value : '');
1061 }__;
1062
1063 @@Test:
1064 @@@QName: XDPDocument.createXDPEntityValue.1.test
1065 @@@PerlDef:
1066 my $doc;
1067 __CODE{createXDPDocumentForTest}__;
1068
1069 my $value = q<a%b;c&d;e"f"g'h'i>;
1070 my $qvalue = q<'a&#x25;b;c&#x26;d;e"f"g&#x27;h&#x27;i'>;
1071 my $el = $doc-><M::XDPDocument.createXDPEntityValue> ($value);
1072
1073 $test->id ('interface');
1074 $test->assert_isa ($el, <IFName::XDPEntityValueElement>);
1075
1076 $test->id ('namespaceURI');
1077 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1078
1079 $test->id ('localName');
1080 $test->assert_equals ($el-><AG::Node.localName>, 'entity-value');
1081
1082 $test->id ('textContent');
1083 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1084
1085 $test->id ('dtdText');
1086 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1087 @@Test:
1088 @@@QName: XDPDocument.createXDPEntityValue.2.test
1089 @@@PerlDef:
1090 my $doc;
1091 __CODE{createXDPDocumentForTest}__;
1092
1093 my $el = $doc-><M::XDPDocument.createXDPEntityValue> (null);
1094
1095 $test->id ('interface');
1096 $test->assert_isa ($el, <IFName::XDPEntityValueElement>);
1097
1098 $test->id ('namespaceURI');
1099 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1100
1101 $test->id ('localName');
1102 $test->assert_equals ($el-><AG::Node.localName>, 'entity-value');
1103
1104 $test->id ('textContent');
1105 $test->assert_equals ($el-><AG::Node.textContent>, '');
1106
1107 $test->id ('dtdText');
1108 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1109
1110 @Method:
1111 @@Name: createXDPMinimumLiteral
1112 @@enDesc:
1113 Creates a <XE::xdp|minimum-literal> element.
1114 @@Param:
1115 @@@Name: value
1116 @@@Type: DOMString
1117 @@@enDesc:
1118 The value of the element.
1119 @@@nullCase:
1120 @@@@enDesc:
1121 Same as an empty string.
1122 @@Return:
1123 @@@Type: XDPMinimumLiteralElement
1124 @@@enDesc:
1125 The newly created element node.
1126
1127 {P:: A new <IF::Element> node with following attributes
1128 <kwd:MUST> be returned:
1129
1130 - <A::Node.localName>::: <XE::minimum-literal>.
1131
1132 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1133
1134 - <A::Node.ownerDocument>::: The document.
1135
1136 - <A::Node.textContent>::: <P::value>, or an empty
1137 string if <P::value> is <DOM::null>.
1138
1139 }
1140
1141 If a <IF::Text> node is created, its
1142 <A::Text.isElementContentWhitespace> attribute value
1143 <kwd:MUST> be set to <DOM::false>.
1144 @@@PerlDef:
1145 __DEEP{
1146 $r = $self-><M::Document.createElementNS>
1147 (<Q::xdp|>, 'minimum-literal');
1148 $r-><AS::Node.textContent> (defined $value ? $value : '');
1149 }__;
1150
1151 @@Test:
1152 @@@QName: XDPDocument.createXDPMinimumLiteral.1.test
1153 @@@PerlDef:
1154 my $doc;
1155 __CODE{createXDPDocumentForTest}__;
1156
1157 my $value = q<a%b;c&d;e"f"g'h'i>;
1158 my $qvalue = q<"a%b;c&d;e%22f%22g'h'i">;
1159 my $el = $doc-><M::XDPDocument.createXDPMinimumLiteral> ($value);
1160
1161 $test->id ('interface');
1162 $test->assert_isa ($el, <IFName::XDPMinimumLiteralElement>);
1163
1164 $test->id ('namespaceURI');
1165 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1166
1167 $test->id ('localName');
1168 $test->assert_equals ($el-><AG::Node.localName>, 'minimum-literal');
1169
1170 $test->id ('textContent');
1171 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1172
1173 $test->id ('dtdText');
1174 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1175 @@Test:
1176 @@@QName: XDPDocument.createXDPMinimumLiteral.2.test
1177 @@@PerlDef:
1178 my $doc;
1179 __CODE{createXDPDocumentForTest}__;
1180
1181 my $el = $doc-><M::XDPDocument.createXDPMinimumLiteral> (null);
1182
1183 $test->id ('interface');
1184 $test->assert_isa ($el, <IFName::XDPMinimumLiteralElement>);
1185
1186 $test->id ('namespaceURI');
1187 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1188
1189 $test->id ('localName');
1190 $test->assert_equals ($el-><AG::Node.localName>, 'minimum-literal');
1191
1192 $test->id ('textContent');
1193 $test->assert_equals ($el-><AG::Node.textContent>, '');
1194
1195 $test->id ('dtdText');
1196 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1197
1198 @Method:
1199 @@Name: createXDPSystemLiteral
1200 @@enDesc:
1201 Creates a <XE::xdp|system-literal> element.
1202 @@Param:
1203 @@@Name: value
1204 @@@Type: DOMString
1205 @@@enDesc:
1206 The value of the element.
1207 @@@nullCase:
1208 @@@@enDesc:
1209 Same as an empty string.
1210 @@Return:
1211 @@@Type: XDPSystemLiteralElement
1212 @@@enDesc:
1213 The newly created element node.
1214
1215 {P:: A new <IF::Element> node with following attributes
1216 <kwd:MUST> be returned:
1217
1218 - <A::Node.localName>::: <XE::system-literal>.
1219
1220 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1221
1222 - <A::Node.ownerDocument>::: The document.
1223
1224 - <A::Node.textContent>::: <P::value>, or an empty
1225 string if <P::value> is <DOM::null>.
1226
1227 }
1228
1229 If a <IF::Text> node is created, its
1230 <A::Text.isElementContentWhitespace> attribute value
1231 <kwd:MUST> be set to <DOM::false>.
1232 @@@PerlDef:
1233 __DEEP{
1234 $r = $self-><M::Document.createElementNS>
1235 (<Q::xdp|>, 'system-literal');
1236 $r-><AS::Node.textContent> (defined $value ? $value : '');
1237 }__;
1238
1239 @@Test:
1240 @@@QName: XDPDocument.createXDPSystemLiteral.1.test
1241 @@@PerlDef:
1242 my $doc;
1243 __CODE{createXDPDocumentForTest}__;
1244
1245 my $value = q<a%b;c&d;e"f"g'h'i>;
1246 my $qvalue = q<"a%b;c&d;e%22f%22g'h'i">;
1247 my $el = $doc-><M::XDPDocument.createXDPSystemLiteral> ($value);
1248
1249 $test->id ('interface');
1250 $test->assert_isa ($el, <IFName::XDPSystemLiteralElement>);
1251
1252 $test->id ('namespaceURI');
1253 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1254
1255 $test->id ('localName');
1256 $test->assert_equals ($el-><AG::Node.localName>, 'system-literal');
1257
1258 $test->id ('textContent');
1259 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1260
1261 $test->id ('dtdText');
1262 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1263 @@Test:
1264 @@@QName: XDPDocument.createXDPSystemLiteral.2.test
1265 @@@PerlDef:
1266 my $doc;
1267 __CODE{createXDPDocumentForTest}__;
1268
1269 my $el = $doc-><M::XDPDocument.createXDPSystemLiteral> (null);
1270
1271 $test->id ('interface');
1272 $test->assert_isa ($el, <IFName::XDPSystemLiteralElement>);
1273
1274 $test->id ('namespaceURI');
1275 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1276
1277 $test->id ('localName');
1278 $test->assert_equals ($el-><AG::Node.localName>, 'system-literal');
1279
1280 $test->id ('textContent');
1281 $test->assert_equals ($el-><AG::Node.textContent>, '');
1282
1283 $test->id ('dtdText');
1284 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1285
1286 @Method:
1287 @@Name: createXDPAttrLiteral
1288 @@enDesc:
1289 Creates a <XE::xdp|attr-literal> element.
1290 @@Param:
1291 @@@Name: value
1292 @@@Type: DOMString
1293 @@@enDesc:
1294 The value of the element.
1295 @@@nullCase:
1296 @@@@enDesc:
1297 Same as an empty string.
1298 @@Return:
1299 @@@Type: XDPAttrLiteralElement
1300 @@@enDesc:
1301 The newly created element node.
1302
1303 {P:: A new <IF::Element> node with following attributes
1304 <kwd:MUST> be returned:
1305
1306 - <A::Node.localName>::: <XE::attr-literal>.
1307
1308 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1309
1310 - <A::Node.ownerDocument>::: The document.
1311
1312 - <A::Node.textContent>::: <P::value>, or an empty
1313 string if <P::value> is <DOM::null>.
1314
1315 }
1316
1317 If a <IF::Text> node is created, its
1318 <A::Text.isElementContentWhitespace> attribute value
1319 <kwd:MUST> be set to <DOM::false>.
1320 @@@PerlDef:
1321 __DEEP{
1322 $r = $self-><M::Document.createElementNS>
1323 (<Q::xdp|>, 'attr-literal');
1324 $r-><AS::Node.textContent> (defined $value ? $value : '');
1325 }__;
1326
1327 @@Test:
1328 @@@QName: XDPDocument.createXDPAttrLiteral.1.test
1329 @@@PerlDef:
1330 my $doc;
1331 __CODE{createXDPDocumentForTest}__;
1332
1333 my $value = q<a%b;c&d;e"f"g'h'i>;
1334 my $qvalue = q<'a%b;c&amp;d;e"f"g&apos;h&apos;i'>;
1335 my $el = $doc-><M::XDPDocument.createXDPAttrLiteral> ($value);
1336
1337 $test->id ('interface');
1338 $test->assert_isa ($el, <IFName::XDPAttrLiteralElement>);
1339
1340 $test->id ('namespaceURI');
1341 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1342
1343 $test->id ('localName');
1344 $test->assert_equals ($el-><AG::Node.localName>, 'attr-literal');
1345
1346 $test->id ('textContent');
1347 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1348
1349 $test->id ('dtdText');
1350 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $qvalue);
1351 @@Test:
1352 @@@QName: XDPDocument.createXDPAttrLiteral.2.test
1353 @@@PerlDef:
1354 my $doc;
1355 __CODE{createXDPDocumentForTest}__;
1356
1357 my $el = $doc-><M::XDPDocument.createXDPAttrLiteral> (null);
1358
1359 $test->id ('interface');
1360 $test->assert_isa ($el, <IFName::XDPAttrLiteralElement>);
1361
1362 $test->id ('namespaceURI');
1363 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1364
1365 $test->id ('localName');
1366 $test->assert_equals ($el-><AG::Node.localName>, 'attr-literal');
1367
1368 $test->id ('textContent');
1369 $test->assert_equals ($el-><AG::Node.textContent>, '');
1370
1371 $test->id ('dtdText');
1372 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '""');
1373
1374 @Method:
1375 @@Name: createXDPCharRef
1376 @@enDesc:
1377 Creates an <XE::xdp|hcr> element.
1378 @@Param:
1379 @@@Name: value
1380 @@@Type: unsignedLong
1381 @@@enDesc:
1382 The code point of the character represented
1383 by the element to create.
1384 @@Return:
1385 @@@Type: XDPHCRElement
1386 @@@enDesc:
1387 The newly created element node.
1388
1389 {P:: A new <IF::Element> node with following attributes
1390 <kwd:MUST> be returned:
1391
1392 - <A::Node.localName>::: <XE::hcr>.
1393
1394 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1395
1396 - <A::Node.ownerDocument>::: The document.
1397
1398 - <A::Node.textContent>::: A hexadecimal representation
1399 of the <P::value>, in upper case.
1400
1401 }
1402
1403 If a <IF::Text> node is created, its
1404 <A::Text.isElementContentWhitespace> attribute value
1405 <kwd:MUST> be set to <DOM::false>.
1406 @@@PerlDef:
1407 __DEEP{
1408 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'hcr');
1409 $r-><AS::Node.textContent> (sprintf '%04X', $value);
1410 }__;
1411
1412 @@Test:
1413 @@@QName: XDPDocument.createXDPCharRef.1.test
1414 @@@PerlDef:
1415 my $doc;
1416 __CODE{createXDPDocumentForTest}__;
1417
1418 my $el = $doc-><M::XDPDocument.createXDPCharRef> (0x4E00);
1419
1420 $test->id ('interface');
1421 $test->assert_isa ($el, <IFName::XDPHCRElement>);
1422
1423 $test->id ('namespaceURI');
1424 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1425
1426 $test->id ('localName');
1427 $test->assert_equals ($el-><AG::Node.localName>, 'hcr');
1428
1429 $test->id ('textContent');
1430 $test->assert_equals ($el-><AG::Node.textContent>, '4E00');
1431
1432 $test->id ('dtdText');
1433 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '&#x4E00;');
1434
1435 @Method:
1436 @@Name: createXDPPERef
1437 @@dlp:methodName: create_xdp_peref
1438 @@enDesc:
1439 Creates a <XE::xdp|peref> element.
1440 @@Param:
1441 @@@Name: value
1442 @@@Type: DOMString
1443 @@@enDesc:
1444 The value of the element, i.e. the name of the
1445 parameter entity.
1446 @@@nullCase:
1447 @@@@enDesc:
1448 Same as an empty string.
1449 @@Return:
1450 @@@Type: XDPPERefElement
1451 @@@enDesc:
1452 The newly created element node.
1453
1454 {P:: A new <IF::Element> node with following attributes
1455 <kwd:MUST> be returned:
1456
1457 - <A::Node.localName>::: <XE::peref>.
1458
1459 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1460
1461 - <A::Node.ownerDocument>::: The document.
1462
1463 - <A::Node.textContent>::: <P::value>, or an empty
1464 string if <P::value> is <DOM::null>.
1465
1466 }
1467
1468 If a <IF::Text> node is created, its
1469 <A::Text.isElementContentWhitespace> attribute value
1470 <kwd:MUST> be set to <DOM::false>.
1471 @@@PerlDef:
1472 __DEEP{
1473 $r = $self-><M::Document.createElementNS>
1474 (<Q::xdp|>, 'peref');
1475 $r-><AS::Node.textContent> (defined $value ? $value : '');
1476 }__;
1477
1478 @@Test:
1479 @@@QName: XDPDocument.createXDPPERef.1.test
1480 @@@PerlDef:
1481 my $doc;
1482 __CODE{createXDPDocumentForTest}__;
1483
1484 my $value = q<pename>;
1485 my $el = $doc-><M::XDPDocument.createXDPPERef> ($value);
1486
1487 $test->id ('interface');
1488 $test->assert_isa ($el, <IFName::XDPPERefElement>);
1489
1490 $test->id ('namespaceURI');
1491 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1492
1493 $test->id ('localName');
1494 $test->assert_equals ($el-><AG::Node.localName>, 'peref');
1495
1496 $test->id ('textContent');
1497 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1498
1499 $test->id ('dtdText');
1500 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '%'.$value.';');
1501 @@Test:
1502 @@@QName: XDPDocument.createXDPPERef.2.test
1503 @@@PerlDef:
1504 my $doc;
1505 __CODE{createXDPDocumentForTest}__;
1506
1507 my $el = $doc-><M::XDPDocument.createXDPPERef> (null);
1508
1509 $test->id ('interface');
1510 $test->assert_isa ($el, <IFName::XDPPERefElement>);
1511
1512 $test->id ('namespaceURI');
1513 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1514
1515 $test->id ('localName');
1516 $test->assert_equals ($el-><AG::Node.localName>, 'peref');
1517
1518 $test->id ('textContent');
1519 $test->assert_equals ($el-><AG::Node.textContent>, '');
1520
1521 $test->id ('dtdText');
1522 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '%;');
1523
1524 @Method:
1525 @@Name: createXDPGERef
1526 @@dlp:methodName: create_xdp_geref
1527 @@enDesc:
1528 Creates a <XE::xdp|geref> element.
1529 @@Param:
1530 @@@Name: value
1531 @@@Type: DOMString
1532 @@@enDesc:
1533 The value of the element, i.e. the name of the
1534 general entity.
1535 @@@nullCase:
1536 @@@@enDesc:
1537 Same as an empty string.
1538 @@Return:
1539 @@@Type: XDPGERefElement
1540 @@@enDesc:
1541 The newly created element node.
1542
1543 {P:: A new <IF::Element> node with following attributes
1544 <kwd:MUST> be returned:
1545
1546 - <A::Node.localName>::: <XE::geref>.
1547
1548 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1549
1550 - <A::Node.ownerDocument>::: The document.
1551
1552 - <A::Node.textContent>::: <P::value>, or an empty
1553 string if <P::value> is <DOM::null>.
1554
1555 }
1556
1557 If a <IF::Text> node is created, its
1558 <A::Text.isElementContentWhitespace> attribute value
1559 <kwd:MUST> be set to <DOM::false>.
1560 @@@PerlDef:
1561 __DEEP{
1562 $r = $self-><M::Document.createElementNS>
1563 (<Q::xdp|>, 'geref');
1564 $r-><AS::Node.textContent> (defined $value ? $value : '');
1565 }__;
1566
1567 @@Test:
1568 @@@QName: XDPDocument.createXDPGERef.1.test
1569 @@@PerlDef:
1570 my $doc;
1571 __CODE{createXDPDocumentForTest}__;
1572
1573 my $value = q<pename>;
1574 my $el = $doc-><M::XDPDocument.createXDPGERef> ($value);
1575
1576 $test->id ('interface');
1577 $test->assert_isa ($el, <IFName::XDPGERefElement>);
1578
1579 $test->id ('namespaceURI');
1580 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1581
1582 $test->id ('localName');
1583 $test->assert_equals ($el-><AG::Node.localName>, 'geref');
1584
1585 $test->id ('textContent');
1586 $test->assert_equals ($el-><AG::Node.textContent>, $value);
1587
1588 $test->id ('dtdText');
1589 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '&'.$value.';');
1590 @@Test:
1591 @@@QName: XDPDocument.createXDPGERef.2.test
1592 @@@PerlDef:
1593 my $doc;
1594 __CODE{createXDPDocumentForTest}__;
1595
1596 my $el = $doc-><M::XDPDocument.createXDPGERef> (null);
1597
1598 $test->id ('interface');
1599 $test->assert_isa ($el, <IFName::XDPGERefElement>);
1600
1601 $test->id ('namespaceURI');
1602 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1603
1604 $test->id ('localName');
1605 $test->assert_equals ($el-><AG::Node.localName>, 'geref');
1606
1607 $test->id ('textContent');
1608 $test->assert_equals ($el-><AG::Node.textContent>, '');
1609
1610 $test->id ('dtdText');
1611 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '&;');
1612
1613 @Method:
1614 @@Name: createXDPPAttr
1615 @@dlp:methodName: create_xdp_pattr
1616 @@enDesc:
1617 Creates a <XE::xdp|pattr> element.
1618 @@Param:
1619 @@@Name: name
1620 @@@Type: DOMString
1621 @@@enDesc:
1622 The name of the pseudo-attribute.
1623 @@@nullCase:
1624 @@@@enDesc:
1625 Same as an empty string.
1626 @@Param:
1627 @@@Name: value
1628 @@@Type: DOMString
1629 @@@enDesc:
1630 The value of the pseudo-attribute.
1631 @@@nullCase:
1632 @@@@enDesc:
1633 Same as an empty string.
1634 @@Return:
1635 @@@Type: XDPPAttrElement
1636 @@@enDesc:
1637 The newly created element node.
1638
1639 {P:: A new <IF::Element> node with following attributes
1640 <kwd:MUST> be returned:
1641
1642 - <A::Node.localName>::: <XE::pattr>.
1643
1644 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1645
1646 - <A::Node.ownerDocument>::: The document.
1647
1648 {LI:: <A::Node.childNodes>::: A new <IF::tc|NodeList> with
1649 three nodes in this order:
1650
1651 {OLI::
1652
1653 - <A::Node.localName>::: <XE::name>.
1654
1655 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1656
1657 - <A::Node.nodeType>::: <C::Node.ELEMENT_NODE>.
1658
1659 - <A::Node.ownerDocument>::: The document.
1660
1661 - <A::Node.textContent>::: <P::name>, or an empty
1662 string if <P::name> is <DOM::null>.
1663
1664 }
1665
1666 {OLI::
1667
1668 - <A::Node.localName>::: <XE::delimiter>.
1669
1670 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1671
1672 - <A::Node.nodeType>::: <C::Node.ELEMENT_NODE>.
1673
1674 - <A::Node.ownerDocument>::: The document.
1675
1676 - <A::Node.textContent>::: <XML::=>.
1677
1678 }
1679
1680 {OLI::
1681
1682 - <A::Node.localName>::: <XE::attr-literal>.
1683
1684 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1685
1686 - <A::Node.nodeType>::: <C::Node.ELEMENT_NODE>.
1687
1688 - <A::Node.ownerDocument>::: The document.
1689
1690 - <A::Node.textContent>::: <P::value>, or an empty
1691 string if <P::value> is <DOM::null>.
1692
1693 }
1694
1695 }
1696
1697 }
1698
1699 If a <IF::Text> node is created, its
1700 <A::Text.isElementContentWhitespace> attribute value
1701 <kwd:MUST> be set to <DOM::false>.
1702 @@@PerlDef:
1703 __DEEP{
1704 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'pattr');
1705 my $name_el = $self-><M::XDPDocument.createXDPName> ($name);
1706 $r-><M::Node.appendChild> ($name_el);
1707 my $vi_el = $self-><M::XDPDocument.createXDPDelimiter> ('=');
1708 $r-><M::Node.appendChild> ($vi_el);
1709 my $value_el = $self-><M::XDPDocument.createXDPAttrLiteral> ($value);
1710 $r-><M::Node.appendChild> ($value_el);
1711 }__;
1712
1713 @@Test:
1714 @@@QName: XDPDocument.createXDPPAttr.1.test
1715 @@@PerlDef:
1716 my $doc;
1717 __CODE{createXDPDocumentForTest}__;
1718
1719 my $el = $doc-><M::XDPDocument.createXDPPAttr> ('paname' => 'pavalue');
1720
1721 $test->id ('interface');
1722 $test->assert_isa ($el, <IFName::XDPPAttrElement>);
1723
1724 $test->id ('namespaceURI');
1725 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1726
1727 $test->id ('localName');
1728 $test->assert_equals ($el-><AG::Node.localName>, 'pattr');
1729
1730 $test->id ('dtdText');
1731 $test->assert_equals ($el-><AG::XDPElement.dtdText>, 'paname="pavalue"');
1732 @@Test:
1733 @@@QName: XDPDocument.createXDPPAttr.2.test
1734 @@@PerlDef:
1735 my $doc;
1736 __CODE{createXDPDocumentForTest}__;
1737
1738 my $el = $doc-><M::XDPDocument.createXDPPAttr> (null, null);
1739
1740 $test->id ('interface');
1741 $test->assert_isa ($el, <IFName::XDPPAttrElement>);
1742
1743 $test->id ('namespaceURI');
1744 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1745
1746 $test->id ('localName');
1747 $test->assert_equals ($el-><AG::Node.localName>, 'pattr');
1748
1749 $test->id ('dtdText');
1750 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '=""');
1751
1752 @Method:
1753 @@Name: createXDPTextDecl
1754 @@enDesc:
1755 Creates a <XE::xdp|text-decl> element.
1756 @@Param:
1757 @@@Name: version
1758 @@@Type: DOMString
1759 @@@enDesc:
1760 The value of the <XA::version> pseudo-attribute of
1761 the text declaration.
1762 @@@nullCase:
1763 @@@@enDesc:
1764 If <P::encoding> is also <DOM::null>, it is treated
1765 as if <XML::1.0> is specified. Otherwise,
1766 no <XA::version> pseudo-attribute will appear.
1767 @@Param:
1768 @@@Name: encoding
1769 @@@Type: DOMString
1770 @@@enDesc:
1771 The value of the <XE::encoding> pseudo-attribute
1772 of the text declaration.
1773 @@@nullCase:
1774 @@@@enDesc:
1775 No <XA::encoding> pseudo-attribute will appear.
1776 @@Return:
1777 @@@Type: XDPTextDeclElement
1778 @@@enDesc:
1779 The newly created element node.
1780
1781 {P:: A new <IF::Element> node with following attributes
1782 <kwd:MUST> be returned:
1783
1784 - <A::Node.localName>::: <XE::text-decl>.
1785
1786 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1787
1788 - <A::Node.ownerDocument>::: The document.
1789
1790 }
1791
1792 {P:: In addition, the returned node <kwd:MUST> have following
1793 child nodes in order:
1794
1795 = If <P::version> is different from <DOM::null> and / or
1796 if <P::encoding> is <DOM::null>, an <CODE::S> node.
1797
1798 = If <P::version> is different from <DOM::null> and / or
1799 if <P::encoding> is <DOM::null>, a pseudo-attribute
1800 node whose <VAR::name> is <XA::version> and
1801 whose <VAR::value> is <P::version>, if it is
1802 not <DOM::null>, or <XML::1.0>, otherwise.
1803
1804 = An <CODE::S> node.
1805
1806 = If <P::encoding> is different from <DOM::null>,
1807 a pseudo-attribute node whose <VAR::name> is
1808 <XA::encoding> and whose <VAR::value> is <P::encoding>.
1809
1810 }
1811
1812 {P:: <DFN::An <CODE::S> node> <kwd:MUST> be a <IF::Node>
1813 that contains following attribute values:
1814
1815 - <A::Node.localName>::: <XE::s>.
1816
1817 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1818
1819 - <A::Node.nodeType>::: <C::Node.ELEMENT_NODE>.
1820
1821 - <A::Node.ownerDocument>::: The document.
1822
1823 - <A::Node.textContent>::: A <CHAR::SPACE>.
1824
1825 }
1826
1827 <DFN::A pseudo-attribute node> with <VAR::name> and
1828 <VAR::value> <kwd:MUST> be a <IF::Node> that would be
1829 returned when the <A::XDPDocument.createXDPPAttr> method
1830 on the document with parameters <VAR::name> and <VAR::value>
1831 were invoked.
1832
1833 If a <IF::Text> node is created, its
1834 <A::Text.isElementContentWhitespace> attribute value
1835 <kwd:MUST> be set to <DOM::false>.
1836 @@@PerlDef:
1837 __DEEP{
1838 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'text-decl');
1839 if (defined $version or not defined $encoding) {
1840 $r-><M::Node.appendChild> ($self-><M::XDPDocument.createXDPS> (' '));
1841 my $ver_el = $self-><M::XDPDocument.createXDPPAttr>
1842 (version => defined $version
1843 ? $version : '1.0');
1844 $r-><M::Node.appendChild> ($ver_el);
1845 }
1846 if (defined $encoding) {
1847 $r-><M::Node.appendChild> ($self-><M::XDPDocument.createXDPS> (' '));
1848 my $enc_el = $self-><M::XDPDocument.createXDPPAttr>
1849 (encoding => $encoding);
1850 $r-><M::Node.appendChild> ($enc_el);
1851 }
1852 }__;
1853
1854 @@Test:
1855 @@@QName: XDPDocument.createXDPTextDecl.1.test
1856 @@@PerlDef:
1857 my $doc;
1858 __CODE{createXDPDocumentForTest}__;
1859
1860 my $el = $doc-><M::XDPDocument.createXDPTextDecl> ('1.1', 'utf-8');
1861
1862 $test->id ('interface');
1863 $test->assert_isa ($el, <IFName::XDPTextDeclElement>);
1864
1865 $test->id ('namespaceURI');
1866 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1867
1868 $test->id ('localName');
1869 $test->assert_equals ($el-><AG::Node.localName>, 'text-decl');
1870
1871 $test->id ('dtdText');
1872 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
1873 '<?xml version="1.1" encoding="utf-8"?>');
1874 @@Test:
1875 @@@QName: XDPDocument.createXDPTextDecl.2.test
1876 @@@PerlDef:
1877 my $doc;
1878 __CODE{createXDPDocumentForTest}__;
1879
1880 my $el = $doc-><M::XDPDocument.createXDPTextDecl> ('1.1');
1881
1882 $test->id ('interface');
1883 $test->assert_isa ($el, <IFName::XDPTextDeclElement>);
1884
1885 $test->id ('namespaceURI');
1886 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1887
1888 $test->id ('localName');
1889 $test->assert_equals ($el-><AG::Node.localName>, 'text-decl');
1890
1891 $test->id ('dtdText');
1892 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
1893 '<?xml version="1.1"?>');
1894 @@Test:
1895 @@@QName: XDPDocument.createXDPTextDecl.3.test
1896 @@@PerlDef:
1897 my $doc;
1898 __CODE{createXDPDocumentForTest}__;
1899
1900 my $el = $doc-><M::XDPDocument.createXDPTextDecl> (null, 'utf-8');
1901
1902 $test->id ('interface');
1903 $test->assert_isa ($el, <IFName::XDPTextDeclElement>);
1904
1905 $test->id ('namespaceURI');
1906 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1907
1908 $test->id ('localName');
1909 $test->assert_equals ($el-><AG::Node.localName>, 'text-decl');
1910
1911 $test->id ('dtdText');
1912 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
1913 '<?xml encoding="utf-8"?>');
1914 @@Test:
1915 @@@QName: XDPDocument.createXDPTextDecl.4.test
1916 @@@PerlDef:
1917 my $doc;
1918 __CODE{createXDPDocumentForTest}__;
1919
1920 my $el = $doc-><M::XDPDocument.createXDPTextDecl>;
1921
1922 $test->id ('interface');
1923 $test->assert_isa ($el, <IFName::XDPTextDeclElement>);
1924
1925 $test->id ('namespaceURI');
1926 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
1927
1928 $test->id ('localName');
1929 $test->assert_equals ($el-><AG::Node.localName>, 'text-decl');
1930
1931 $test->id ('dtdText');
1932 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
1933 '<?xml version="1.0"?>');
1934
1935 @Method:
1936 @@Name: createXDPPI
1937 @@dlp:methodName: create_xdp_pi
1938 @@enDesc:
1939 Creates a <XE::xdp|pi> element.
1940 @@Param:
1941 @@@Name: target
1942 @@@Type: DOMString
1943 @@@enDesc:
1944 The target of the processing instruction.
1945 @@@nullCase:
1946 @@@@enDesc:
1947 Same as an empty string.
1948 @@Param:
1949 @@@Name: data
1950 @@@Type: DOMString
1951 @@@enDesc:
1952 The content of the processing instruction.
1953 @@@nullCase:
1954 @@@@enDesc:
1955 No <CODE::S> is inserted after the target.
1956 @@Return:
1957 @@@Type: XDPPIElement
1958 @@@enDesc:
1959 The newly created element node.
1960
1961 {P:: A new <IF::Element> node with following attributes
1962 <kwd:MUST> be returned:
1963
1964 - <A::Node.localName>::: <XE::pi>.
1965
1966 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1967
1968 - <A::Node.ownerDocument>::: The document.
1969
1970 }
1971
1972 If the <P::value> is different from <DOM::null>,
1973 the returned value <kwd:MUST> contain two or three child
1974 element nodes: the target node, an <CODE::S> node,
1975 and if the length of <P::value> is greater than zero,
1976 the data node. Otherwise, it <kwd:MUST> contain
1977 one child element node: the target node.
1978
1979 {P:: <DFM::The target node> <kwd:MUST> be a <IF::Node>
1980 that contains following attribute values:
1981
1982 - <A::Node.localName>::: <XE::name>.
1983
1984 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
1985
1986 - <A::Node.nodeType>::: <C::Node.ELEMENT_NODE>.
1987
1988 - <A::Node.ownerDocument>::: The document.
1989
1990 - <A::Node.textContent>::: <P::target>, or an empty
1991 string if <P::target> is <DOM::null>.
1992
1993 }
1994
1995 {P:: <DFN::An <CODE::S> node> <kwd:MUST> be a <IF::Node>
1996 that contains following attribute values:
1997
1998 - <A::Node.localName>::: <XE::s>.
1999
2000 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2001
2002 - <A::Node.nodeType>::: <C::Node.ELEMENT_NODE>.
2003
2004 - <A::Node.ownerDocument>::: The document.
2005
2006 - <A::Node.textContent>::: A <CHAR::SPACE>.
2007
2008 }
2009
2010 {P:: <DFM::The data node> <kwd:MUST> be a <IF::Node>
2011 that contains following attribute values:
2012
2013 - <A::Node.nodeType>::: <C::Node.TEXT_NODE>.
2014
2015 - <A::Node.ownerDocument>::: The document.
2016
2017 - <A::Node.textContent>::: <P::data>.
2018
2019 }
2020
2021 If a <IF::Text> node are created, its
2022 <A::Text.isElementContentWhitespace> attribute value
2023 <kwd:MUST> be set to <DOM::false>.
2024 @@@PerlDef:
2025 __DEEP{
2026 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'pi');
2027 $r-><M::Node.appendChild>
2028 ($self-><M::XDPDocument.createXDPName> ($target));
2029 if (defined $data) {
2030 $r-><M::Node.appendChild> ($self-><M::XDPDocument.createXDPS> (' '));
2031 $r-><M::Node.manakaiAppendText> ($data) if length $data;
2032 }
2033 }__;
2034
2035 @@Test:
2036 @@@QName: XDPDocument.createXDPPI.1.test
2037 @@@PerlDef:
2038 my $doc;
2039 __CODE{createXDPDocumentForTest}__;
2040
2041 my $el = $doc-><M::XDPDocument.createXDPPI> ('pitarget', 'pidata');
2042
2043 $test->id ('interface');
2044 $test->assert_isa ($el, <IFName::XDPPIElement>);
2045
2046 $test->id ('namespaceURI');
2047 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2048
2049 $test->id ('localName');
2050 $test->assert_equals ($el-><AG::Node.localName>, 'pi');
2051
2052 $test->id ('dtdText');
2053 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2054 '<?pitarget pidata?>');
2055
2056 $test->id ('length');
2057 $test->assert_num_equals
2058 (actual_value => 0+@{$el-><AG::Node.childNodes>},
2059 expected_value => 3);
2060 @@Test:
2061 @@@QName: XDPDocument.createXDPPI.2.test
2062 @@@PerlDef:
2063 my $doc;
2064 __CODE{createXDPDocumentForTest}__;
2065
2066 my $el = $doc-><M::XDPDocument.createXDPPI> ('pitarget');
2067
2068 $test->id ('interface');
2069 $test->assert_isa ($el, <IFName::XDPPIElement>);
2070
2071 $test->id ('namespaceURI');
2072 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2073
2074 $test->id ('localName');
2075 $test->assert_equals ($el-><AG::Node.localName>, 'pi');
2076
2077 $test->id ('dtdText');
2078 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2079 '<?pitarget?>');
2080
2081 $test->id ('length');
2082 $test->assert_num_equals
2083 (actual_value => 0+@{$el-><AG::Node.childNodes>},
2084 expected_value => 1);
2085 @@Test:
2086 @@@QName: XDPDocument.createXDPPI.3.test
2087 @@@PerlDef:
2088 my $doc;
2089 __CODE{createXDPDocumentForTest}__;
2090
2091 my $el = $doc-><M::XDPDocument.createXDPPI> (null, 'pidata');
2092
2093 $test->id ('interface');
2094 $test->assert_isa ($el, <IFName::XDPPIElement>);
2095
2096 $test->id ('namespaceURI');
2097 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2098
2099 $test->id ('localName');
2100 $test->assert_equals ($el-><AG::Node.localName>, 'pi');
2101
2102 $test->id ('dtdText');
2103 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2104 '<? pidata?>');
2105
2106 $test->id ('length');
2107 $test->assert_num_equals
2108 (actual_value => 0+@{$el-><AG::Node.childNodes>},
2109 expected_value => 3);
2110 @@Test:
2111 @@@QName: XDPDocument.createXDPPI.4.test
2112 @@@PerlDef:
2113 my $doc;
2114 __CODE{createXDPDocumentForTest}__;
2115
2116 my $el = $doc-><M::XDPDocument.createXDPPI>;
2117
2118 $test->id ('interface');
2119 $test->assert_isa ($el, <IFName::XDPPIElement>);
2120
2121 $test->id ('namespaceURI');
2122 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2123
2124 $test->id ('localName');
2125 $test->assert_equals ($el-><AG::Node.localName>, 'pi');
2126
2127 $test->id ('dtdText');
2128 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<??>');
2129
2130 $test->id ('length');
2131 $test->assert_num_equals
2132 (actual_value => 0+@{$el-><AG::Node.childNodes>},
2133 expected_value => 1);
2134
2135 @Method:
2136 @@Name: createXDPComment
2137 @@enDesc:
2138 Creates a <XE::xdp|comment> element.
2139 @@Param:
2140 @@@Name: value
2141 @@@Type: DOMString
2142 @@@enDesc:
2143 The value of the element, i.e. the content of the comment.
2144 @@@nullCase:
2145 @@@@enDesc:
2146 Same as an empty string.
2147 @@Return:
2148 @@@Type: XDPCommentElement
2149 @@@enDesc:
2150 The newly created element node.
2151
2152 {P:: A new <IF::Element> node with following attributes
2153 <kwd:MUST> be returned:
2154
2155 - <A::Node.localName>::: <XE::comment>.
2156
2157 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2158
2159 - <A::Node.ownerDocument>::: The document.
2160
2161 - <A::Node.textContent>::: <P::value>, or an empty
2162 string if <P::value> is <DOM::null>.
2163
2164 }
2165
2166 If a <IF::Text> node is created, its
2167 <A::Text.isElementContentWhitespace> attribute value
2168 <kwd:MUST> be set to <DOM::false>.
2169 @@@PerlDef:
2170 __DEEP{
2171 $r = $self-><M::Document.createElementNS>
2172 (<Q::xdp|>, 'comment');
2173 $r-><AS::Node.textContent> (defined $value ? $value : '');
2174 }__;
2175
2176 @@Test:
2177 @@@QName: XDPDocument.createXDPComment.1.test
2178 @@@PerlDef:
2179 my $doc;
2180 __CODE{createXDPDocumentForTest}__;
2181
2182 my $value = q<pename>;
2183 my $el = $doc-><M::XDPDocument.createXDPComment> ($value);
2184
2185 $test->id ('interface');
2186 $test->assert_isa ($el, <IFName::XDPCommentElement>);
2187
2188 $test->id ('namespaceURI');
2189 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2190
2191 $test->id ('localName');
2192 $test->assert_equals ($el-><AG::Node.localName>, 'comment');
2193
2194 $test->id ('textContent');
2195 $test->assert_equals ($el-><AG::Node.textContent>, $value);
2196
2197 $test->id ('dtdText');
2198 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2199 '<!--'.$value.'-->');
2200 @@Test:
2201 @@@QName: XDPDocument.createXDPComment.2.test
2202 @@@PerlDef:
2203 my $doc;
2204 __CODE{createXDPDocumentForTest}__;
2205
2206 my $el = $doc-><M::XDPDocument.createXDPComment> (null);
2207
2208 $test->id ('interface');
2209 $test->assert_isa ($el, <IFName::XDPCommentElement>);
2210
2211 $test->id ('namespaceURI');
2212 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2213
2214 $test->id ('localName');
2215 $test->assert_equals ($el-><AG::Node.localName>, 'comment');
2216
2217 $test->id ('textContent');
2218 $test->assert_equals ($el-><AG::Node.textContent>, '');
2219
2220 $test->id ('dtdText');
2221 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!---->');
2222
2223 @Method:
2224 @@Name: createXDPMarkedSectionStatus
2225 @@enDesc:
2226 Creates a <XE::xdp|marked-section-status> element.
2227 @@Param:
2228 @@@Name: value
2229 @@@Type: DOMString
2230 @@@enDesc:
2231 The value of the element.
2232 @@@nullCase:
2233 @@@@enDesc:
2234 Same as an empty string.
2235 @@Return:
2236 @@@Type: XDPMarkedSectionStatusElement
2237 @@@enDesc:
2238 The newly created element node.
2239
2240 {P:: A new <IF::Element> node with following attributes
2241 <kwd:MUST> be returned:
2242
2243 - <A::Node.localName>::: <XE::marked-section-status>.
2244
2245 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2246
2247 - <A::Node.ownerDocument>::: The document.
2248
2249 }
2250
2251 {P:: If <P::value> is not <DOM::null> and its length
2252 is greater than zero, the returned node <kwd:MUST>
2253 contain a <IF::Element> with following attributes:
2254
2255 - <A::Node.localName>::: <XE::keyword>.
2256
2257 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2258
2259 - <A::Node.ownerDocument>::: The document.
2260
2261 - <A::Node.textContent>::: <P::value>.
2262
2263 }
2264
2265 If a <IF::Text> node is created, its
2266 <A::Text.isElementContentWhitespace> attribute value
2267 <kwd:MUST> be set to <DOM::false>.
2268 @@@PerlDef:
2269 __DEEP{
2270 $r = $self-><M::Document.createElementNS>
2271 (<Q::xdp|>, 'marked-section-status');
2272 if (defined $value and length $value) {
2273 $r-><M::Node.appendChild>
2274 ($self-><M::XDPDocument.createXDPKeyword> ($value));
2275 }
2276 }__;
2277
2278 @@Test:
2279 @@@QName: XDPDocument.createXDPMarkedSectionStatus.1.test
2280 @@@PerlDef:
2281 my $doc;
2282 __CODE{createXDPDocumentForTest}__;
2283
2284 my $value = q<INCLUDE>;
2285 my $el = $doc-><M::XDPDocument.createXDPMarkedSectionStatus> ($value);
2286
2287 $test->id ('interface');
2288 $test->assert_isa ($el, <IFName::XDPMarkedSectionStatusElement>);
2289
2290 $test->id ('namespaceURI');
2291 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2292
2293 $test->id ('localName');
2294 $test->assert_equals ($el-><AG::Node.localName>,
2295 'marked-section-status');
2296
2297 $test->id ('textContent');
2298 $test->assert_equals ($el-><AG::Node.textContent>, $value);
2299
2300 $test->id ('dtdText');
2301 $test->assert_equals ($el-><AG::XDPElement.dtdText>, $value.'[');
2302 @@Test:
2303 @@@QName: XDPDocument.createXDPMarkedSectionStatus.2.test
2304 @@@PerlDef:
2305 my $doc;
2306 __CODE{createXDPDocumentForTest}__;
2307
2308 my $el = $doc-><M::XDPDocument.createXDPMarkedSectionStatus> (null);
2309
2310 $test->id ('interface');
2311 $test->assert_isa ($el, <IFName::XDPMarkedSectionStatusElement>);
2312
2313 $test->id ('namespaceURI');
2314 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2315
2316 $test->id ('localName');
2317 $test->assert_equals ($el-><AG::Node.localName>,
2318 'marked-section-status');
2319
2320 $test->id ('textContent');
2321 $test->assert_equals ($el-><AG::Node.textContent>, '');
2322
2323 $test->id ('dtdText');
2324 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '[');
2325
2326 @Method:
2327 @@Name: createXDPMarkedSection
2328 @@enDesc:
2329 Creates a <XE::xdp|marked-section> element.
2330 @@Param:
2331 @@@Name: status
2332 @@@Type: DOMString
2333 @@@enDesc:
2334 The status value of the marked section.
2335 @@@nullCase:
2336 @@@@enDesc:
2337 Same as an empty string.
2338 @@Param:
2339 @@@Name: value
2340 @@@Type: DOMString
2341 @@@enDesc:
2342 The value of the marked section.
2343 @@@nullCase:
2344 @@@@enDesc:
2345 Same as an empty string.
2346 @@Return:
2347 @@@Type: XDPMarkedSectionElement
2348 @@@enDesc:
2349 The newly created element node.
2350
2351 {P:: A new <IF::Element> node with following attributes
2352 <kwd:MUST> be returned:
2353
2354 - <A::Node.localName>::: <XE::marked-section>.
2355
2356 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2357
2358 - <A::Node.ownerDocument>::: The document.
2359
2360 }
2361
2362 The returned <IF::Element> node <kwd:MUST> contain
2363 a child node that would be returned when the
2364 <M::XDPDocument.createXDPMarkedSectionStatus> method
2365 on the document is invoked with <P::status> as a parameter.
2366
2367 {P:: If <P::value> is not <DOM::null> and the length of
2368 <P::value> is greater than zero, the
2369 <XE::xdp|marked-section-status> <IF::Element> node
2370 <kwd:MUST> have a <A::Node.nextSibling> <IF::Node>
2371 with following attributes:
2372
2373 - <A::Node.nodeType>::: <C::Node.TEXT_NODE>.
2374
2375 - <A::Node.ownerDocument>::: The document.
2376
2377 - <A::Node.textContent>::: <P::content>, or an empty
2378 string if <P::content> is <DOM::null>.
2379
2380 }
2381
2382 If a <IF::Text> node is created, its
2383 <A::Text.isElementContentWhitespace> attribute value
2384 <kwd:MUST> be set to <DOM::false>.
2385 @@@PerlDef:
2386 __DEEP{
2387 $r = $self-><M::Document.createElementNS>
2388 (<Q::xdp|>, 'marked-section');
2389 my $mss_el = $self-><M::XDPDocument.createXDPMarkedSectionStatus>
2390 ($status);
2391 $r-><M::Node.appendChild> ($mss_el);
2392 $r-><M::Node.manakaiAppendText> ($value)
2393 if defined $value and length $value;
2394 }__;
2395
2396 @@Test:
2397 @@@QName: XDPDocument.createXDPMarkedSection.1.test
2398 @@@PerlDef:
2399 my $doc;
2400 __CODE{createXDPDocumentForTest}__;
2401
2402 my $el = $doc-><M::XDPDocument.createXDPMarkedSection> ('IGNORE', 'a');
2403
2404 $test->id ('interface');
2405 $test->assert_isa ($el, <IFName::XDPMarkedSectionElement>);
2406
2407 $test->id ('namespaceURI');
2408 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2409
2410 $test->id ('localName');
2411 $test->assert_equals ($el-><AG::Node.localName>, 'marked-section');
2412
2413 $test->id ('dtdText');
2414 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<![IGNORE[a]]>');
2415 @@Test:
2416 @@@QName: XDPDocument.createXDPMarkedSection.2.test
2417 @@@PerlDef:
2418 my $doc;
2419 __CODE{createXDPDocumentForTest}__;
2420
2421 my $el = $doc-><M::XDPDocument.createXDPMarkedSection> ('IGNORE');
2422
2423 $test->id ('interface');
2424 $test->assert_isa ($el, <IFName::XDPMarkedSectionElement>);
2425
2426 $test->id ('namespaceURI');
2427 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2428
2429 $test->id ('localName');
2430 $test->assert_equals ($el-><AG::Node.localName>, 'marked-section');
2431
2432 $test->id ('dtdText');
2433 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<![IGNORE[]]>');
2434 @@Test:
2435 @@@QName: XDPDocument.createXDPMarkedSection.3.test
2436 @@@PerlDef:
2437 my $doc;
2438 __CODE{createXDPDocumentForTest}__;
2439
2440 my $el = $doc-><M::XDPDocument.createXDPMarkedSection> (null, 'a');
2441
2442 $test->id ('interface');
2443 $test->assert_isa ($el, <IFName::XDPMarkedSectionElement>);
2444
2445 $test->id ('namespaceURI');
2446 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2447
2448 $test->id ('localName');
2449 $test->assert_equals ($el-><AG::Node.localName>, 'marked-section');
2450
2451 $test->id ('dtdText');
2452 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<![[a]]>');
2453 @@Test:
2454 @@@QName: XDPDocument.createXDPMarkedSection.4.test
2455 @@@PerlDef:
2456 my $doc;
2457 __CODE{createXDPDocumentForTest}__;
2458
2459 my $el = $doc-><M::XDPDocument.createXDPMarkedSection>;
2460
2461 $test->id ('interface');
2462 $test->assert_isa ($el, <IFName::XDPMarkedSectionElement>);
2463
2464 $test->id ('namespaceURI');
2465 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2466
2467 $test->id ('localName');
2468 $test->assert_equals ($el-><AG::Node.localName>, 'marked-section');
2469
2470 $test->id ('dtdText');
2471 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<![[]]>');
2472
2473 @Method:
2474 @@Name: createXDPNotation
2475 @@enDesc:
2476 Creates a <XE::xdp|notation> element.
2477 @@Param:
2478 @@@Name: name
2479 @@@Type: DOMString
2480 @@@enDesc:
2481 The name of the declaration.
2482 @@@nullCase:
2483 @@@@enDesc:
2484 All parameters are ignored.
2485 @@Param:
2486 @@@Name: publicId
2487 @@@Type: DOMString
2488 @@@enDesc:
2489 The public identifier in the declaration.
2490 @@@nullCase:
2491 @@@@enDesc:
2492 No public identifier.
2493 @@Param:
2494 @@@Name: systemId
2495 @@@Type: DOMString
2496 @@@enDesc:
2497 The system identifier in the declaration.
2498 @@@nullCase:
2499 @@@@enDesc:
2500 No system identifier.
2501 @@Return:
2502 @@@Type: XDPNotationElement
2503 @@@enDesc:
2504 The newly created element node.
2505
2506 {P:: A new <IF::Element> node with following attributes
2507 <kwd:MUST> be returned:
2508
2509 - <A::Node.localName>::: <XE::notation>.
2510
2511 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2512
2513 - <A::Node.ownerDocument>::: The document.
2514
2515 }
2516
2517 {P:: A series of nodes <kwd:MUST> be associated to the returned
2518 node as if the following algorithm were applied:
2519
2520 = If <P::name> is <DOM::null>, stop the algorithm.
2521
2522 = Create a node by <M::XDPDocument.createXDPS> on the document with
2523 a <CHAR::SPACE> as a parameter and append the
2524 node to the returned element by the <M::Node.appendChild> method.
2525
2526 = Create a node by <M::XDPDocument.createXDPName> on the document
2527 with <P::name> as a parameter and append the
2528 node to the returned element by the <M::Node.appendChild> method.
2529
2530 {OLI:: If <P::publicId> is different from <DOM::null>,
2531
2532 = Create a node by <M::XDPDocument.createXDPS> on the document with
2533 a <CHAR::SPACE> as a parameter and append the
2534 node to the returned element by the <M::Node.appendChild> method.
2535
2536 = Create a node by <M::XDPDocument.createXDPKeyword>
2537 on the document with a string <XML::PUBLIC> as
2538 a parameter and append the
2539 node to the returned element by the <M::Node.appendChild> method.
2540
2541 = Create a node by <M::XDPDocument.createXDPS> on the document with
2542 a <CHAR::SPACE> as a parameter and append the
2543 node to the returned element by the <M::Node.appendChild> method.
2544
2545 = Create a node by <M::XDPDocument.createXDPMinimumLiteral>
2546 on the document with <P::publicId> as a parameter
2547 and append the node to the returned element by
2548 the <M::Node.appendChild> method.
2549
2550 }
2551
2552 {OLI:: If <P::systemId> is different from <DOM::null> and
2553 <P::publicId> is <DOM::null>,
2554
2555 = Create a node by <M::XDPDocument.createXDPS> on the document with
2556 a <CHAR::SPACE> as a parameter and append the
2557 node to the returned element by the <M::Node.appendChild> method.
2558
2559 = Create a node by <M::XDPDocument.createXDPKeyword>
2560 on the document with a string <XML::SYSTEM> as
2561 a parameter and append the
2562 node to the returned element by the <M::Node.appendChild> method.
2563
2564 }
2565
2566 {OLI:: If <P::systemId> is different from <DOM::null> and
2567 <P::publicId> is <DOM::null>,
2568
2569 = Create a node by <M::XDPDocument.createXDPS> on the document with
2570 a <CHAR::SPACE> as a parameter and append the
2571 node to the returned element by the <M::Node.appendChild> method.
2572
2573 = Create a node by <M::XDPDocument.createXDPSystemLiteral>
2574 on the document with <P::systemId> as a parameter
2575 and append the node to the returned element by
2576 the <M::Node.appendChild> method.
2577
2578 }
2579
2580 }
2581 @@@PerlDef:
2582 __DEEP{
2583 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'notation');
2584 if (defined $name) {
2585 $r-><M::Node.appendChild>
2586 ($self-><M::XDPDocument.createXDPS> (' '));
2587 $r-><M::Node.appendChild>
2588 ($self-><M::XDPDocument.createXDPName> ($name));
2589
2590 if (defined $publicId) {
2591 $r-><M::Node.appendChild>
2592 ($self-><M::XDPDocument.createXDPS> (' '));
2593 $r-><M::Node.appendChild>
2594 ($self-><M::XDPDocument.createXDPKeyword> ('PUBLIC'));
2595 $r-><M::Node.appendChild>
2596 ($self-><M::XDPDocument.createXDPS> (' '));
2597 $r-><M::Node.appendChild>
2598 ($self-><M::XDPDocument.createXDPMinimumLiteral>
2599 ($publicId));
2600 if (defined $systemId) {
2601 $r-><M::Node.appendChild>
2602 ($self-><M::XDPDocument.createXDPS> (' '));
2603 $r-><M::Node.appendChild>
2604 ($self-><M::XDPDocument.createXDPSystemLiteral>
2605 ($systemId));
2606 }
2607 } elsif (defined $systemId) {
2608 $r-><M::Node.appendChild>
2609 ($self-><M::XDPDocument.createXDPS> (' '));
2610 $r-><M::Node.appendChild>
2611 ($self-><M::XDPDocument.createXDPKeyword> ('SYSTEM'));
2612 $r-><M::Node.appendChild>
2613 ($self-><M::XDPDocument.createXDPS> (' '));
2614 $r-><M::Node.appendChild>
2615 ($self-><M::XDPDocument.createXDPSystemLiteral>
2616 ($systemId));
2617 }
2618 }
2619 }__;
2620
2621 @@Test:
2622 @@@QName: XDPDocument.createXDPNotation.1.test
2623 @@@PerlDef:
2624 my $doc;
2625 __CODE{createXDPDocumentForTest}__;
2626
2627 my $el = $doc-><M::XDPDocument.createXDPNotation>
2628 ('iname', 'pubid', 'sysid');
2629
2630 $test->id ('interface');
2631 $test->assert_isa ($el, <IFName::XDPNotationElement>);
2632
2633 $test->id ('namespaceURI');
2634 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2635
2636 $test->id ('localName');
2637 $test->assert_equals ($el-><AG::Node.localName>, 'notation');
2638
2639 $test->id ('dtdText');
2640 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2641 '<!NOTATION iname PUBLIC "pubid" "sysid">');
2642 @@Test:
2643 @@@QName: XDPDocument.createXDPNotation.2.test
2644 @@@PerlDef:
2645 my $doc;
2646 __CODE{createXDPDocumentForTest}__;
2647
2648 my $el = $doc-><M::XDPDocument.createXDPNotation>
2649 ('iname', 'pubid');
2650
2651 $test->id ('dtdText');
2652 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2653 '<!NOTATION iname PUBLIC "pubid">');
2654 @@Test:
2655 @@@QName: XDPDocument.createXDPNotation.3.test
2656 @@@PerlDef:
2657 my $doc;
2658 __CODE{createXDPDocumentForTest}__;
2659
2660 my $el = $doc-><M::XDPDocument.createXDPNotation>
2661 ('iname');
2662
2663 $test->id ('dtdText');
2664 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2665 '<!NOTATION iname>');
2666 @@Test:
2667 @@@QName: XDPDocument.createXDPNotation.4.test
2668 @@@PerlDef:
2669 my $doc;
2670 __CODE{createXDPDocumentForTest}__;
2671
2672 my $el = $doc-><M::XDPDocument.createXDPNotation>;
2673
2674 $test->id ('dtdText');
2675 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2676 '<!NOTATION>');
2677 @@Test:
2678 @@@QName: XDPDocument.createXDPNotation.5.test
2679 @@@PerlDef:
2680 my $doc;
2681 __CODE{createXDPDocumentForTest}__;
2682
2683 my $el = $doc-><M::XDPDocument.createXDPNotation>
2684 ('iname', null, 'sysid');
2685
2686 $test->id ('dtdText');
2687 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2688 '<!NOTATION iname SYSTEM "sysid">');
2689 @@Test:
2690 @@@QName: XDPDocument.createXDPNotation.6.test
2691 @@@PerlDef:
2692 my $doc;
2693 __CODE{createXDPDocumentForTest}__;
2694
2695 my $el = $doc-><M::XDPDocument.createXDPNotation>
2696 (null, null, 'sysid');
2697
2698 $test->id ('dtdText');
2699 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2700 '<!NOTATION>');
2701 @@Test:
2702 @@@QName: XDPDocument.createXDPNotation.7.test
2703 @@@PerlDef:
2704 my $doc;
2705 __CODE{createXDPDocumentForTest}__;
2706
2707 my $el = $doc-><M::XDPDocument.createXDPNotation>
2708 (null, 'pubid');
2709
2710 $test->id ('dtdText');
2711 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2712 '<!NOTATION>');
2713 @@Test:
2714 @@@QName: XDPDocument.createXDPNotation.8.test
2715 @@@PerlDef:
2716 my $doc;
2717 __CODE{createXDPDocumentForTest}__;
2718
2719 my $el = $doc-><M::XDPDocument.createXDPNotation>
2720 (null, 'pubid', 'sysid');
2721
2722 $test->id ('dtdText');
2723 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
2724 '<!NOTATION>');
2725
2726 @Method:
2727 @@Name: createXDPEntity
2728 @@enDesc:
2729 Creates a <XE::xdp|entity> element.
2730 @@Param:
2731 @@@Name: isPE
2732 @@@Type: boolean
2733 @@@enDesc:
2734 Whether the declaration declares a parameter entity or not.
2735 @@@TrueCase:
2736 @@@@enDesc:
2737 The declaration declares a parameter entity. A <XML::%>
2738 delimiter will be appended to the return node.
2739 @@@FalseCase:
2740 @@@@enDesc:
2741 The declaration is not known to declare a parameter entity.
2742 @@Param:
2743 @@@Name: name
2744 @@@Type: DOMString
2745 @@@enDesc:
2746 The name of the declaration.
2747 @@@nullCase:
2748 @@@@enDesc:
2749 All parameters are ignored.
2750 @@Param:
2751 @@@Name: value
2752 @@@Type: DOMString
2753 @@@enDesc:
2754 The literal replacement text of the declaration.
2755 @@@nullCase:
2756 @@@@enDesc:
2757 Same as an empty string or no entity value in the declaration,
2758 depending on whether the <P::publicId> parameters are <DOM::null>
2759 or not.
2760 @@Param:
2761 @@@Name: publicId
2762 @@@Type: DOMString
2763 @@@enDesc:
2764 The public identifier in the declaration.
2765 @@@nullCase:
2766 @@@@enDesc:
2767 No public identifier.
2768 @@Param:
2769 @@@Name: systemId
2770 @@@Type: DOMString
2771 @@@enDesc:
2772 The system identifier in the declaration.
2773 @@@nullCase:
2774 @@@@enDesc:
2775 No system identifier.
2776 @@Param:
2777 @@@Name: notation
2778 @@@Type: DOMString
2779 @@@enDesc:
2780 The notation name in the declaration.
2781 @@@nullCase:
2782 @@@@enDesc:
2783 No notation name.
2784 @@Return:
2785 @@@Type: XDPEntityElement
2786 @@@enDesc:
2787 The newly created element node.
2788
2789 {P:: A new <IF::Element> node with following attributes
2790 <kwd:MUST> be returned:
2791
2792 - <A::Node.localName>::: <XE::entity>.
2793
2794 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
2795
2796 - <A::Node.ownerDocument>::: The document.
2797
2798 }
2799
2800 {P:: A series of nodes <kwd:MUST> be associated to the returned
2801 node as if the following algorithm were applied:
2802
2803 {OLI:: If <P::isPE> is <DOM::true>,
2804
2805 = Create a node by <M::XDPDocument.createXDPS> on the
2806 document with a <CHAR::SPACE> as a parameter and append the
2807 node to the returned element by the <M::Node.appendChild>
2808 method.
2809
2810 = Create a node by <M::XDPDocument.createXDPDelimiter>
2811 on the document with a <CHAR::PERCENT SIGN> as a parameter
2812 and append the node to the returned element by the
2813 <M::Node.appendChild> method.
2814
2815 }
2816
2817 = If <P::name> is <DOM::null>, stop the algorithm.
2818
2819 = Create a node by <M::XDPDocument.createXDPS> on the document with
2820 a <CHAR::SPACE> as a parameter and append the
2821 node to the returned element by the <M::Node.appendChild> method.
2822
2823 = Create a node by <M::XDPDocument.createXDPName> on the document
2824 with <P::name> as a parameter and append the
2825 node to the returned element by the <M::Node.appendChild> method.
2826
2827 {OLI:: If <P::systemId> is different from <DOM::null>,
2828
2829 {OLI:: If <P::publicId> is different from <DOM::null>,
2830
2831 = Create a node by <M::XDPDocument.createXDPS> on the document
2832 with a <CHAR::SPACE> as a parameter and append the
2833 node to the returned element by the <M::Node.appendChild>
2834 method.
2835
2836 = Create a node by <M::XDPDocument.createXDPKeyword>
2837 on the document with a string <XML::PUBLIC> as
2838 a parameter and append the
2839 node to the returned element by the <M::Node.appendChild>
2840 method.
2841
2842 = Create a node by <M::XDPDocument.createXDPS> on the document
2843 with a <CHAR::SPACE> as a parameter and append the
2844 node to the returned element by the <M::Node.appendChild>
2845 method.
2846
2847 = Create a node by <M::XDPDocument.createXDPMinimumLiteral>
2848 on the document with <P::publicId> as a parameter
2849 and append the node to the returned element by
2850 the <M::Node.appendChild> method.
2851
2852 }
2853
2854 {OLI:: Otherwise,
2855
2856 = Create a node by <M::XDPDocument.createXDPS> on the document
2857 with a <CHAR::SPACE> as a parameter and append the
2858 node to the returned element by the <M::Node.appendChild>
2859 method.
2860
2861 = Create a node by <M::XDPDocument.createXDPKeyword>
2862 on the document with a string <XML::SYSTEM> as
2863 a parameter and append the
2864 node to the returned element by the <M::Node.appendChild>
2865 method.
2866
2867 }
2868
2869 = Create a node by <M::XDPDocument.createXDPS> on the document with
2870 a <CHAR::SPACE> as a parameter and append the
2871 node to the returned element by the <M::Node.appendChild> method.
2872
2873 = Create a node by <M::XDPDocument.createXDPSystemLiteral>
2874 on the document with <P::systemId> as a parameter
2875 and append the node to the returned element by
2876 the <M::Node.appendChild> method.
2877
2878 {OLI:: If <P::notation> is different from <DOM::null>
2879 and <P::isPE> is <DOM::false>,
2880
2881 = Create a node by <M::XDPDocument.createXDPS> on the document
2882 with a <CHAR::SPACE> as a parameter and append the
2883 node to the returned element by the <M::Node.appendChild>
2884 method.
2885
2886 = Create a node by <M::XDPDocument.createXDPKeyword>
2887 on the document with a string <XML::NDATA> as
2888 a parameter and append the
2889 node to the returned element by the <M::Node.appendChild>
2890 method.
2891
2892 = Create a node by <M::XDPDocument.createXDPS> on the document
2893 with a <CHAR::SPACE> as a parameter and append the
2894 node to the returned element by the <M::Node.appendChild>
2895 method.
2896
2897 = Create a node by <M::XDPDocument.createXDPName>
2898 on the document with <P::notation> as a parameter
2899 and append the node to the returned element by
2900 the <M::Node.appendChild> method.
2901
2902 }
2903
2904 }
2905
2906 {OLI:: Otherwise,
2907
2908 = Create a node by <M::XDPDocument.createXDPS> on the document with
2909 a <CHAR::SPACE> as a parameter and append the
2910 node to the returned element by the <M::Node.appendChild> method.
2911
2912 = Create a node by <M::XDPDocument.createXDPEntityValue>
2913 on the document with <P::value> as a parameter
2914 and append the node to the returned element by
2915 the <M::Node.appendChild> method.
2916
2917 }
2918
2919 }
2920 @@@PerlDef:
2921 __DEEP{
2922 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'entity');
2923 if ($isPE) {
2924 $r-><M::Node.appendChild>
2925 ($self-><M::XDPDocument.createXDPS> (' '));
2926 $r-><M::Node.appendChild>
2927 ($self-><M::XDPDocument.createXDPDelimiter> ('%'));
2928 }
2929 if (defined $name) {
2930 $r-><M::Node.appendChild>
2931 ($self-><M::XDPDocument.createXDPS> (' '));
2932 $r-><M::Node.appendChild>
2933 ($self-><M::XDPDocument.createXDPName> ($name));
2934
2935 if (defined $systemId) {
2936 if (defined $publicId) {
2937 $r-><M::Node.appendChild>
2938 ($self-><M::XDPDocument.createXDPS> (' '));
2939 $r-><M::Node.appendChild>
2940 ($self-><M::XDPDocument.createXDPKeyword> ('PUBLIC'));
2941 $r-><M::Node.appendChild>
2942 ($self-><M::XDPDocument.createXDPS> (' '));
2943 $r-><M::Node.appendChild>
2944 ($self-><M::XDPDocument.createXDPMinimumLiteral>
2945 ($publicId));
2946 $r-><M::Node.appendChild>
2947 ($self-><M::XDPDocument.createXDPS> (' '));
2948 $r-><M::Node.appendChild>
2949 ($self-><M::XDPDocument.createXDPSystemLiteral>
2950 ($systemId));
2951 } else {
2952 $r-><M::Node.appendChild>
2953 ($self-><M::XDPDocument.createXDPS> (' '));
2954 $r-><M::Node.appendChild>
2955 ($self-><M::XDPDocument.createXDPKeyword> ('SYSTEM'));
2956 $r-><M::Node.appendChild>
2957 ($self-><M::XDPDocument.createXDPS> (' '));
2958 $r-><M::Node.appendChild>
2959 ($self-><M::XDPDocument.createXDPSystemLiteral>
2960 ($systemId));
2961 }
2962
2963 if (defined $notation and not $isPE) {
2964 $r-><M::Node.appendChild>
2965 ($self-><M::XDPDocument.createXDPS> (' '));
2966 $r-><M::Node.appendChild>
2967 ($self-><M::XDPDocument.createXDPKeyword> ('NDATA'));
2968 $r-><M::Node.appendChild>
2969 ($self-><M::XDPDocument.createXDPS> (' '));
2970 $r-><M::Node.appendChild>
2971 ($self-><M::XDPDocument.createXDPName> ($notation));
2972 }
2973 } else {
2974 $r-><M::Node.appendChild>
2975 ($self-><M::XDPDocument.createXDPS> (' '));
2976 $r-><M::Node.appendChild>
2977 ($self-><M::XDPDocument.createXDPEntityValue> ($value));
2978 }
2979 }
2980 }__;
2981
2982 @@Test:
2983 @@@QName: XDPDocument.createXDPEntity.1.test
2984 @@@PerlDef:
2985 my $doc;
2986 __CODE{createXDPDocumentForTest}__;
2987
2988 my $el = $doc-><M::XDPDocument.createXDPEntity>
2989 (true, 'iname', 'evalue', 'pubid', 'sysid', 'nname');
2990
2991 $test->id ('interface');
2992 $test->assert_isa ($el, <IFName::XDPEntityElement>);
2993
2994 $test->id ('namespaceURI');
2995 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
2996
2997 $test->id ('localName');
2998 $test->assert_equals ($el-><AG::Node.localName>, 'entity');
2999
3000 $test->id ('dtdText');
3001 $test->assert_equals
3002 ($el-><AG::XDPElement.dtdText>,
3003 '<!ENTITY % iname PUBLIC "pubid" "sysid">');
3004 @@Test:
3005 @@@QName: XDPDocument.createXDPEntity.2.test
3006 @@@PerlDef:
3007 my $doc;
3008 __CODE{createXDPDocumentForTest}__;
3009
3010 my $el = $doc-><M::XDPDocument.createXDPEntity>
3011 (false, 'iname', 'evalue', 'pubid', 'sysid', 'nname');
3012
3013 $test->id ('dtdText');
3014 $test->assert_equals
3015 ($el-><AG::XDPElement.dtdText>,
3016 '<!ENTITY iname PUBLIC "pubid" "sysid" NDATA nname>');
3017 @@Test:
3018 @@@QName: XDPDocument.createXDPEntity.3.test
3019 @@@PerlDef:
3020 my $doc;
3021 __CODE{createXDPDocumentForTest}__;
3022
3023 my $el = $doc-><M::XDPDocument.createXDPEntity>
3024 (false, 'iname', 'evalue', 'pubid', 'sysid');
3025
3026 $test->id ('dtdText');
3027 $test->assert_equals
3028 ($el-><AG::XDPElement.dtdText>,
3029 '<!ENTITY iname PUBLIC "pubid" "sysid">');
3030 @@Test:
3031 @@@QName: XDPDocument.createXDPEntity.4.test
3032 @@@PerlDef:
3033 my $doc;
3034 __CODE{createXDPDocumentForTest}__;
3035
3036 my $el = $doc-><M::XDPDocument.createXDPEntity>
3037 (true, 'iname', 'evalue', 'pubid', 'sysid');
3038
3039 $test->id ('dtdText');
3040 $test->assert_equals
3041 ($el-><AG::XDPElement.dtdText>,
3042 '<!ENTITY % iname PUBLIC "pubid" "sysid">');
3043 @@Test:
3044 @@@QName: XDPDocument.createXDPEntity.5.test
3045 @@@PerlDef:
3046 my $doc;
3047 __CODE{createXDPDocumentForTest}__;
3048
3049 my $el = $doc-><M::XDPDocument.createXDPEntity>
3050 (false, 'iname', 'evalue', null, 'sysid');
3051
3052 $test->id ('dtdText');
3053 $test->assert_equals
3054 ($el-><AG::XDPElement.dtdText>,
3055 '<!ENTITY iname SYSTEM "sysid">');
3056 @@Test:
3057 @@@QName: XDPDocument.createXDPEntity.6.test
3058 @@@PerlDef:
3059 my $doc;
3060 __CODE{createXDPDocumentForTest}__;
3061
3062 my $el = $doc-><M::XDPDocument.createXDPEntity>
3063 (true, 'iname', 'evalue', null, 'sysid');
3064
3065 $test->id ('dtdText');
3066 $test->assert_equals
3067 ($el-><AG::XDPElement.dtdText>,
3068 '<!ENTITY % iname SYSTEM "sysid">');
3069 @@Test:
3070 @@@QName: XDPDocument.createXDPEntity.7.test
3071 @@@PerlDef:
3072 my $doc;
3073 __CODE{createXDPDocumentForTest}__;
3074
3075 my $el = $doc-><M::XDPDocument.createXDPEntity>
3076 (false, 'iname', 'evalue');
3077
3078 $test->id ('dtdText');
3079 $test->assert_equals
3080 ($el-><AG::XDPElement.dtdText>,
3081 '<!ENTITY iname "evalue">');
3082 @@Test:
3083 @@@QName: XDPDocument.createXDPEntity.8.test
3084 @@@PerlDef:
3085 my $doc;
3086 __CODE{createXDPDocumentForTest}__;
3087
3088 my $el = $doc-><M::XDPDocument.createXDPEntity>
3089 (true, 'iname', 'evalue');
3090
3091 $test->id ('dtdText');
3092 $test->assert_equals
3093 ($el-><AG::XDPElement.dtdText>,
3094 '<!ENTITY % iname "evalue">');
3095 @@Test:
3096 @@@QName: XDPDocument.createXDPEntity.9.test
3097 @@@PerlDef:
3098 my $doc;
3099 __CODE{createXDPDocumentForTest}__;
3100
3101 my $el = $doc-><M::XDPDocument.createXDPEntity>
3102 (false, 'iname');
3103
3104 $test->id ('dtdText');
3105 $test->assert_equals
3106 ($el-><AG::XDPElement.dtdText>,
3107 '<!ENTITY iname "">');
3108 @@Test:
3109 @@@QName: XDPDocument.createXDPEntity.10.test
3110 @@@PerlDef:
3111 my $doc;
3112 __CODE{createXDPDocumentForTest}__;
3113
3114 my $el = $doc-><M::XDPDocument.createXDPEntity>
3115 (false);
3116
3117 $test->id ('dtdText');
3118 $test->assert_equals
3119 ($el-><AG::XDPElement.dtdText>,
3120 '<!ENTITY>');
3121 @@Test:
3122 @@@QName: XDPDocument.createXDPEntity.11.test
3123 @@@PerlDef:
3124 my $doc;
3125 __CODE{createXDPDocumentForTest}__;
3126
3127 my $el = $doc-><M::XDPDocument.createXDPEntity>
3128 (true);
3129
3130 $test->id ('dtdText');
3131 $test->assert_equals
3132 ($el-><AG::XDPElement.dtdText>,
3133 '<!ENTITY %>');
3134
3135 @Method:
3136 @@Name: createXDPEnumGroup
3137 @@enDesc:
3138 Creates a <XE::xdp|enum-group> element.
3139 @@Return:
3140 @@@Type: XDPEnumGroupElement
3141 @@@enDesc:
3142 The newly created element node.
3143
3144 {P:: A new <IF::Element> node with following attributes
3145 <kwd:MUST> be returned:
3146
3147 - <A::Node.localName>::: <XE::enum-group>.
3148
3149 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3150
3151 - <A::Node.ownerDocument>::: The document.
3152
3153 }
3154 @@@PerlDef:
3155 __DEEP{
3156 $r = $self-><M::Document.createElementNS>
3157 (<Q::xdp|>, 'enum-group');
3158 }__;
3159
3160 @@Test:
3161 @@@QName: XDPDocument.createXDPEnumGroup.1.test
3162 @@@PerlDef:
3163 my $doc;
3164 __CODE{createXDPDocumentForTest}__;
3165
3166 my $el = $doc-><M::XDPDocument.createXDPEnumGroup>;
3167
3168 $test->id ('interface');
3169 $test->assert_isa ($el, <IFName::XDPEnumGroupElement>);
3170
3171 $test->id ('namespaceURI');
3172 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3173
3174 $test->id ('localName');
3175 $test->assert_equals ($el-><AG::Node.localName>, 'enum-group');
3176
3177 $test->id ('dtdText');
3178 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '()');
3179
3180 @Method:
3181 @@Name: createXDPModelGroup
3182 @@enDesc:
3183 Creates a <XE::xdp|model-group> element.
3184 @@Return:
3185 @@@Type: XDPModelGroupElement
3186 @@@enDesc:
3187 The newly created element node.
3188
3189 {P:: A new <IF::Element> node with following attributes
3190 <kwd:MUST> be returned:
3191
3192 - <A::Node.localName>::: <XE::model-group>.
3193
3194 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3195
3196 - <A::Node.ownerDocument>::: The document.
3197
3198 }
3199 @@@PerlDef:
3200 __DEEP{
3201 $r = $self-><M::Document.createElementNS>
3202 (<Q::xdp|>, 'model-group');
3203 }__;
3204
3205 @@Test:
3206 @@@QName: XDPDocument.createXDPModelGroup.1.test
3207 @@@PerlDef:
3208 my $doc;
3209 __CODE{createXDPDocumentForTest}__;
3210
3211 my $el = $doc-><M::XDPDocument.createXDPModelGroup>;
3212
3213 $test->id ('interface');
3214 $test->assert_isa ($el, <IFName::XDPModelGroupElement>);
3215
3216 $test->id ('namespaceURI');
3217 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3218
3219 $test->id ('localName');
3220 $test->assert_equals ($el-><AG::Node.localName>, 'model-group');
3221
3222 $test->id ('dtdText');
3223 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '()');
3224
3225 @Method:
3226 @@Name: createXDPAttrDefinition
3227 @@enDesc:
3228 Creates a <XE::xdp|attr-definition> element.
3229
3230 {ISSUE::
3231 Declared type and default type parameters should be added?
3232 }
3233 @@Param:
3234 @@@Name: name
3235 @@@Type: DOMString
3236 @@@enDesc:
3237 The name of the attribute.
3238 @@@nullCase:
3239 @@@@enDesc:
3240 All parameters are ignored.
3241 @@Return:
3242 @@@Type: XDPElement
3243 @@@enDesc:
3244 The newly created element node.
3245
3246 {P:: A new <IF::Element> node with following attributes
3247 <kwd:MUST> be returned:
3248
3249 - <A::Node.localName>::: <XE::attr-definition>.
3250
3251 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3252
3253 - <A::Node.ownerDocument>::: The document.
3254
3255 }
3256
3257 {P:: If <P::name> is different from <DOM::null>, a
3258 <IF::Element> node with following attributes
3259 <kwd:MUST> be appended to the returned node
3260 as if the <M::Node.appendChild> method were invoked.
3261
3262 - <A::Node.localName>::: <XE::name>.
3263
3264 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3265
3266 - <A::Node.ownerDocument>::: The document.
3267
3268 - <A::Node.textContent>::: <P::name>.
3269
3270 }
3271 @@@PerlDef:
3272 __DEEP{
3273 $r = $self-><M::Document.createElementNS>
3274 (<Q::xdp|>, 'attr-definition');
3275 $r-><M::Node.appendChild>
3276 ($self-><M::XDPDocument.createXDPName> ($name))
3277 if defined $name;
3278 }__;
3279
3280 @@Test:
3281 @@@QName: XDPDocument.createXDPAttrDefinition.1.test
3282 @@@PerlDef:
3283 my $doc;
3284 __CODE{createXDPDocumentForTest}__;
3285
3286 my $el = $doc-><M::XDPDocument.createXDPAttrDefinition> ('aname');
3287
3288 $test->id ('interface');
3289 $test->assert_isa ($el, <IFName::XDPElement>);
3290
3291 $test->id ('namespaceURI');
3292 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3293
3294 $test->id ('localName');
3295 $test->assert_equals ($el-><AG::Node.localName>, 'attr-definition');
3296
3297 $test->id ('dtdText');
3298 $test->assert_equals ($el-><AG::XDPElement.dtdText>, 'aname');
3299 @@Test:
3300 @@@QName: XDPDocument.createXDPAttrDefinition.2.test
3301 @@@PerlDef:
3302 my $doc;
3303 __CODE{createXDPDocumentForTest}__;
3304
3305 my $el = $doc-><M::XDPDocument.createXDPAttrDefinition>;
3306
3307 $test->id ('interface');
3308 $test->assert_isa ($el, <IFName::XDPElement>);
3309
3310 $test->id ('namespaceURI');
3311 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3312
3313 $test->id ('localName');
3314 $test->assert_equals ($el-><AG::Node.localName>, 'attr-definition');
3315
3316 $test->id ('dtdText');
3317 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
3318
3319 @Method:
3320 @@Name: createXDPAttlist
3321 @@enDesc:
3322 Creates a <XE::xdp|attlist> element.
3323 @@Param:
3324 @@@Name: name
3325 @@@Type: DOMString
3326 @@@enDesc:
3327 The name in the declaration.
3328 @@@nullCase:
3329 @@@@enDesc:
3330 The declaration does not contain any name.
3331 @@Return:
3332 @@@Type: XDPAttlistElement
3333 @@@enDesc:
3334 The newly created element node.
3335
3336 {P:: A new <IF::Element> node with following attributes
3337 <kwd:MUST> be returned:
3338
3339 - <A::Node.localName>::: <XE::attlist>.
3340
3341 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3342
3343 - <A::Node.ownerDocument>::: The document.
3344
3345 }
3346
3347 {P:: If <P::name> is different from <DOM::null>, two
3348 <IF::Element> nodes with following attributes
3349 <kwd:MUST> be appended to the returned node
3350 as if the <M::Node.appendChild> method were invoked in order.
3351
3352 {LI::
3353
3354 - <A::Node.localName>::: <XE::s>.
3355
3356 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3357
3358 - <A::Node.ownerDocument>::: The document.
3359
3360 - <A::Node.textContent>::: A <CHAR::SPACE>.
3361
3362 }
3363
3364 {LI::
3365
3366 - <A::Node.localName>::: <XE::name>.
3367
3368 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3369
3370 - <A::Node.ownerDocument>::: The document.
3371
3372 - <A::Node.textContent>::: <P::name>.
3373
3374 }
3375
3376 }
3377 @@@PerlDef:
3378 __DEEP{
3379 $r = $self-><M::Document.createElementNS>
3380 (<Q::xdp|>, 'attlist');
3381 if (defined $name) {
3382 $r-><M::Node.appendChild>
3383 ($self-><M::XDPDocument.createXDPS> (' '));
3384 $r-><M::Node.appendChild>
3385 ($self-><M::XDPDocument.createXDPName> ($name));
3386 }
3387 }__;
3388
3389 @@Test:
3390 @@@QName: XDPDocument.createXDPAttlist.1.test
3391 @@@PerlDef:
3392 my $doc;
3393 __CODE{createXDPDocumentForTest}__;
3394
3395 my $el = $doc-><M::XDPDocument.createXDPAttlist> ('aname');
3396
3397 $test->id ('interface');
3398 $test->assert_isa ($el, <IFName::XDPAttlistElement>);
3399
3400 $test->id ('namespaceURI');
3401 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3402
3403 $test->id ('localName');
3404 $test->assert_equals ($el-><AG::Node.localName>, 'attlist');
3405
3406 $test->id ('dtdText');
3407 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ATTLIST aname>');
3408 @@Test:
3409 @@@QName: XDPDocument.createXDPAttlist.2.test
3410 @@@PerlDef:
3411 my $doc;
3412 __CODE{createXDPDocumentForTest}__;
3413
3414 my $el = $doc-><M::XDPDocument.createXDPAttlist>;
3415
3416 $test->id ('interface');
3417 $test->assert_isa ($el, <IFName::XDPAttlistElement>);
3418
3419 $test->id ('namespaceURI');
3420 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3421
3422 $test->id ('localName');
3423 $test->assert_equals ($el-><AG::Node.localName>, 'attlist');
3424
3425 $test->id ('dtdText');
3426 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ATTLIST>');
3427
3428 @Method:
3429 @@Name: createXDPElement
3430 @@enDesc:
3431 Creates a <XE::xdp|element> element.
3432
3433 {ISSUE::
3434 Should declared content parameter be added?
3435 }
3436 @@Param:
3437 @@@Name: name
3438 @@@Type: DOMString
3439 @@@enDesc:
3440 The name in the declaration.
3441 @@@nullCase:
3442 @@@@enDesc:
3443 The declaration does not contain any name.
3444 @@Return:
3445 @@@Type: XDPElementElement
3446 @@@enDesc:
3447 The newly created element node.
3448
3449 {P:: A new <IF::Element> node with following attributes
3450 <kwd:MUST> be returned:
3451
3452 - <A::Node.localName>::: <XE::element>.
3453
3454 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3455
3456 - <A::Node.ownerDocument>::: The document.
3457
3458 }
3459
3460 {P:: If <P::name> is different from <DOM::null>, two
3461 <IF::Element> nodes with following attributes
3462 <kwd:MUST> be appended to the returned node
3463 as if the <M::Node.appendChild> method were invoked in order.
3464
3465 {LI::
3466
3467 - <A::Node.localName>::: <XE::s>.
3468
3469 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3470
3471 - <A::Node.ownerDocument>::: The document.
3472
3473 - <A::Node.textContent>::: A <CHAR::SPACE>.
3474
3475 }
3476
3477 {LI::
3478
3479 - <A::Node.localName>::: <XE::name>.
3480
3481 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3482
3483 - <A::Node.ownerDocument>::: The document.
3484
3485 - <A::Node.textContent>::: <P::name>.
3486
3487 }
3488
3489 }
3490 @@@PerlDef:
3491 __DEEP{
3492 $r = $self-><M::Document.createElementNS>
3493 (<Q::xdp|>, 'element');
3494 if (defined $name) {
3495 $r-><M::Node.appendChild>
3496 ($self-><M::XDPDocument.createXDPS> (' '));
3497 $r-><M::Node.appendChild>
3498 ($self-><M::XDPDocument.createXDPName> ($name));
3499 }
3500 }__;
3501
3502 @@Test:
3503 @@@QName: XDPDocument.createXDPElement.1.test
3504 @@@PerlDef:
3505 my $doc;
3506 __CODE{createXDPDocumentForTest}__;
3507
3508 my $el = $doc-><M::XDPDocument.createXDPElement> ('aname');
3509
3510 $test->id ('interface');
3511 $test->assert_isa ($el, <IFName::XDPElementElement>);
3512
3513 $test->id ('namespaceURI');
3514 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3515
3516 $test->id ('localName');
3517 $test->assert_equals ($el-><AG::Node.localName>, 'element');
3518
3519 $test->id ('dtdText');
3520 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ELEMENT aname>');
3521 @@Test:
3522 @@@QName: XDPDocument.createXDPElement.2.test
3523 @@@PerlDef:
3524 my $doc;
3525 __CODE{createXDPDocumentForTest}__;
3526
3527 my $el = $doc-><M::XDPDocument.createXDPElement>;
3528
3529 $test->id ('interface');
3530 $test->assert_isa ($el, <IFName::XDPElementElement>);
3531
3532 $test->id ('namespaceURI');
3533 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3534
3535 $test->id ('localName');
3536 $test->assert_equals ($el-><AG::Node.localName>, 'element');
3537
3538 $test->id ('dtdText');
3539 $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ELEMENT>');
3540
3541 @Method:
3542 @@Name: createXDPIf
3543 @@enDesc:
3544 Creates an <XE::xdp|if> element.
3545 @@Param:
3546 @@@Name: statusEntity
3547 @@@Type: DOMString
3548 @@@enDesc:
3549 The name of the parameter entity that contains
3550 the status of the marked section.
3551 @@@nullCase:
3552 @@@@enDesc:
3553 Same as an empty string.
3554 @@Return:
3555 @@@Type: XDPIfElement
3556 @@@enDesc:
3557 The newly created element node.
3558
3559 {P:: A new <IF::Element> node with following attributes
3560 <kwd:MUST> be returned:
3561
3562 - <A::Node.localName>::: <XE::if>.
3563
3564 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3565
3566 - <A::Node.ownerDocument>::: The document.
3567
3568 }
3569
3570 {P:: The <A::Node.attributes> <IF::tc|NamedNodeMap>
3571 of the returned <IF:Element> node <kwd:MUST> contain
3572 a new <IF::te|Attr> node with following attributes:
3573
3574 - <A::Node.localName>::: <XA::status-entity>.
3575
3576 - <A::Node.namespaceURI>::: <DOM::null>.
3577
3578 - <A::te|Attr.specified>::: <DOM::true>.
3579
3580 - <A::Node.textContent>::: <P::statusEntity>, or an empty
3581 string if <P::statusEntity>
3582 is <DOM::null>.
3583
3584 }
3585
3586 {P:: <A::Node.childNodes> <IF::tc|NodeList> of
3587 the returned <IF::Element> node <kwd:MUST> contain
3588 two <IF::Element> nodes in order:
3589
3590 {LI::
3591
3592 - <A::Node.localName>::: <XE::true>.
3593
3594 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3595
3596 - <A::Node.ownerDocument>::: The document.
3597
3598 - <A::Node.textContent>::: An empty string.
3599
3600 }
3601
3602 {LI::
3603
3604 - <A::Node.localName>::: <XE::false>.
3605
3606 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3607
3608 - <A::Node.ownerDocument>::: The document.
3609
3610 - <A::Node.textContent>::: An empty string.
3611
3612 }
3613
3614 }
3615 @@@PerlDef:
3616 __DEEP{
3617 $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'if');
3618 $r-><M::Element.setAttributeNS>
3619 (null, 'status-entity',
3620 defined $statusEntity ? $statusEntity : '');
3621 $r-><M::Node.appendChild>
3622 ($self-><M::Document.createElementNS> (<Q::xdp|>, 'tr'.'ue'));
3623 $r-><M::Node.appendChild>
3624 ($self-><M::Document.createElementNS> (<Q::xdp|>, 'fal'.'se'));
3625 }__;
3626
3627 @@Test:
3628 @@@QName: XDPDocument.createXDPIf.1.test
3629 @@@PerlDef:
3630 my $doc;
3631 __CODE{createXDPDocumentForTest}__;
3632
3633 my $el = $doc-><M::XDPDocument.createXDPIf> ('aname');
3634
3635 $test->id ('interface');
3636 $test->assert_isa ($el, <IFName::XDPIfElement>);
3637
3638 $test->id ('namespaceURI');
3639 $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3640
3641 $test->id ('localName');
3642 $test->assert_equals ($el-><AG::Node.localName>, 'if');
3643
3644 $test->id ('dtdText');
3645 $test->assert_equals ($el-><AG::XDPElement.dtdText>,
3646 "<![%aname;[\n<!-- end of aname -->]]>\n");
3647
3648 $test->id ('fc');
3649 my $fc = $el-><AG::Node.firstChild>;
3650 $test->assert_isa ($fc, <IFName::XDPElement>);
3651
3652 $test->id ('fc.namespaceURI');
3653 $test->assert_equals ($fc-><AG::Node.namespaceURI>, <Q::xdp|>);
3654
3655 $test->id ('fc.localName');
3656 $test->assert_equals ($fc-><AG::Node.localName>, 'tr'.'ue');
3657
3658 $test->id ('lc');
3659 my $lc = $el-><AG::Node.lastChild>;
3660 $test->assert_isa ($fc, <IFName::XDPElement>);
3661
3662 $test->id ('lc.namespaceURI');
3663 $test->assert_equals ($lc-><AG::Node.namespaceURI>, <Q::xdp|>);
3664
3665 $test->id ('lc.localName');
3666 $test->assert_equals ($lc-><AG::Node.localName>, 'fal'.'se');
3667 ##XDPDocument
3668
3669 IFClsDef:
3670 @IFQName: XDPElement
3671 @ClsQName: ManakaiDOMXDPElement
3672
3673 @IFISA: Element
3674 @ClsISA: te|ManakaiDOMElement
3675
3676 @s:elementType: AnyXDPElement||ManakaiDOM|all
3677
3678 @Test:
3679 @@QName: createElementNS.XDPElement.test
3680 @@PerlDef:
3681 my $doc;
3682 __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
3683
3684 my $el = $doc-><M::Document.createElementNS> (<Q::xdp:>, 'anElement');
3685
3686 $test->assert_isa ($el, <IFName::XDPElement>);
3687
3688 @Attr:
3689 @@Name: dtdText
3690 @@enDesc:
3691 The serialized representation of the element and its descendants.
3692 @@Type: DOMString
3693 @@Get:
3694 @@@enDesc:
3695 {ISSUE::
3696 Definition
3697 }
3698 @@@PerlDef:
3699 require Message::DOM::Traversal;
3700 my $doctrv = $self-><AG::Node.ownerDocument>
3701 -><M::Node.getFeature> (Traversal => '2.0');
3702 my $tw = $doctrv->create_tree_walker
3703 ($self, <C::NodeFilter.SHOW_ELEMENT> |
3704 <C::NodeFilter.SHOW_TEXT> |
3705 <C::NodeFilter.SHOW_CDATA_SECTION>,
3706 sub {
3707 my $node = $_[1];
3708 if ($node-><AG::Node.nodeType>
3709 == <C::Node.ELEMENT_NODE>) {
3710 my $ns = $node-><AG::Node.namespaceURI>;
3711 if (not defined $ns) {
3712 return <C::NodeFilter.FILTER_REJECT>;
3713 } elsif ($ns eq <Q::xdp|>) {
3714 return <C::NodeFilter.FILTER_ACCEPT>;
3715 } else {
3716 return <C::NodeFilter.FILTER_REJECT>;
3717 }
3718 } else {
3719 return <C::NodeFilter.FILTER_ACCEPT>;
3720 }
3721 }, true);
3722 my $current = $tw->first_child;
3723 $r = '';
3724 C: while (defined $current) {
3725 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
3726 $r .= $current-><AG::XDPElement.dtdText>;
3727 } else {
3728 $r .= $current-><AG::Node.textContent>;
3729 }
3730
3731 $current = $tw->next_sibling;
3732 } # C
3733 ##XDPElement
3734
3735 ResourceDef:
3736 @QName: AnyXDPElement
3737 @DISCore:resourceType: s|AnyElementInNS
3738 @AppName:
3739 @@@: xdp|*
3740 @@ContentType: DISCore|QName
3741 @ForCheck: =ManakaiDOM|all
3742
3743 IFClsETDef:
3744 @IFQName: XDPPEElement
3745 @ETQName: xdp|pe
3746 @ClsQName: ManakaiDOMXDPPEElement
3747
3748 @IFISA: XDPElement
3749 @ClsISA: ManakaiDOMXDPElement
3750
3751 @enDesc:
3752 An <XE::xdp|pe> element represents an XML parameter
3753 entity, an XML external subset entity, or an XML internal subset.
3754 ##XDPPEElement
3755
3756 IFClsETDef:
3757 @IFQName: XDPElementElement
3758 @ETQName: xdp|element
3759 @ClsQName: ManakaiDOMXDPElementElement
3760
3761 @IFISA: XDPElement
3762 @ClsISA: ManakaiDOMXDPElement
3763
3764 @enDesc:
3765 An <XE::xdp|element> element represents an XML <XML::ELEMENT>
3766 declaration.
3767
3768 @CAttr:
3769 @@Name: dtdText
3770 @@Type: DOMString
3771 @@Get:
3772 @@@PerlDef:
3773 $r = '<!ELEMENT'.$self->SUPER::dtd_text.'>';
3774 ##XDPElementElement
3775
3776 IFClsETDef:
3777 @IFQName: XDPModelGroupElement
3778 @ETQName: xdp|model-group
3779 @ClsQName: ManakaiDOMXDPModelGroupElement
3780
3781 @IFISA: XDPElement
3782 @ClsISA: ManakaiDOMXDPElement
3783
3784 @enDesc:
3785 An <XE::xdp|model-group> element represents an XML model
3786 group.
3787
3788 @CAttr:
3789 @@Name: dtdText
3790 @@Type: DOMString
3791 @@Get:
3792 @@@PerlDef:
3793 $r = '('.$self->SUPER::dtd_text.')';
3794 ##XDPModelGroupElement
3795
3796 IFClsETDef:
3797 @IFQName: XDPAttlistElement
3798 @ETQName: xdp|attlist
3799 @ClsQName: ManakaiDOMXDPAttlistElement
3800
3801 @IFISA: XDPElement
3802 @ClsISA: ManakaiDOMXDPElement
3803
3804 @enDesc:
3805 An <XE::xdp|attlist> element represents an XML <XML::ATTLIST>
3806 declaration.
3807
3808 @CAttr:
3809 @@Name: dtdText
3810 @@Type: DOMString
3811 @@Get:
3812 @@@PerlDef:
3813 $r = '<!ATTLIST'.$self->SUPER::dtd_text.'>';
3814 ##XDPAttlistElement
3815
3816 IFClsETDef:
3817 @IFQName: XDPEnumGroupElement
3818 @ETQName: xdp|enum-group
3819 @ClsQName: ManakaiDOMXDPEnumGroupElement
3820
3821 @IFISA: XDPElement
3822 @ClsISA: ManakaiDOMXDPElement
3823
3824 @enDesc:
3825 An <XE::xdp|enum-group> element represents an XML enumeration
3826 group in an attribute definition.
3827
3828 @CAttr:
3829 @@Name: dtdText
3830 @@Type: DOMString
3831 @@Get:
3832 @@@PerlDef:
3833 $r = '('.$self->SUPER::dtd_text.')';
3834 ##XDPEnumGroupElement
3835
3836 IFClsETDef:
3837 @IFQName: XDPEntityElement
3838 @ETQName: xdp|entity
3839 @ClsQName: ManakaiDOMXDPEntityElement
3840
3841 @IFISA: XDPElement
3842 @ClsISA: ManakaiDOMXDPElement
3843
3844 @enDesc:
3845 An <XE::xdp|entity> element represents an XML <XML::ENTITY>
3846 declaration.
3847
3848 @CAttr:
3849 @@Name: dtdText
3850 @@Type: DOMString
3851 @@Get:
3852 @@@PerlDef:
3853 $r = '<!ENTITY'.$self->SUPER::dtd_text.'>';
3854 ##XDPEntityElement
3855
3856 IFClsETDef:
3857 @IFQName: XDPNotationElement
3858 @ETQName: xdp|notation
3859 @ClsQName: ManakaiDOMXDPNotationElement
3860
3861 @IFISA: XDPElement
3862 @ClsISA: ManakaiDOMXDPElement
3863
3864 @enDesc:
3865 An <XE::xdp|notation> element represents an XML <XML::NOTATION>
3866 declaration.
3867
3868 @CAttr:
3869 @@Name: dtdText
3870 @@Type: DOMString
3871 @@Get:
3872 @@@PerlDef:
3873 $r = '<!NOTATION'.$self->SUPER::dtd_text.'>';
3874 ##XDPNotationElement
3875
3876 IFClsETDef:
3877 @IFQName: XDPMarkedSectionElement
3878 @ETQName: xdp|marked-section
3879 @ClsQName: ManakaiDOMXDPMarkedSectionElement
3880
3881 @IFISA: XDPElement
3882 @ClsISA: ManakaiDOMXDPElement
3883
3884 @enDesc:
3885 An <XE::xdp|marked-section> element represents an XML conditional
3886 section.
3887
3888 @CAttr:
3889 @@Name: dtdText
3890 @@Type: DOMString
3891 @@Get:
3892 @@@PerlDef:
3893 $r = '<!['.$self->SUPER::dtd_text.']]>';
3894 ##XDPMarkedSectionElement
3895
3896 IFClsETDef:
3897 @IFQName: XDPMarkedSectionStatusElement
3898 @ETQName: xdp|marked-section-status
3899 @ClsQName: ManakaiDOMXDPMarkedSectionStatusElement
3900
3901 @IFISA: XDPElement
3902 @ClsISA: ManakaiDOMXDPElement
3903
3904 @enDesc:
3905 An <XE::xdp|marked-section-status> element represents the
3906 status part of an XML marked section.
3907
3908 @CAttr:
3909 @@Name: dtdText
3910 @@Type: DOMString
3911 @@Get:
3912 @@@PerlDef:
3913 $r = $self->SUPER::dtd_text.'[';
3914 ##XDPMarkedSectionStatusElement
3915
3916 IFClsETDef:
3917 @IFQName: XDPCommentElement
3918 @ETQName: xdp|comment
3919 @ClsQName: ManakaiDOMXDPCommentElement
3920
3921 @IFISA: XDPElement
3922 @ClsISA: ManakaiDOMXDPElement
3923
3924 @enDesc:
3925 An <XE::xdp|comment> element represents an XML comment.
3926
3927 @CAttr:
3928 @@Name: dtdText
3929 @@Type: DOMString
3930 @@Get:
3931 @@@PerlDef:
3932 $r = $self->SUPER::dtd_text;
3933 $r =~ s/--/- - /g;
3934 $r = '<!--'.$r.'-->';
3935 ##XDPCommentElement
3936
3937 IFClsETDef:
3938 @IFQName: XDPPIElement
3939 @ETQName: xdp|pi
3940 @ClsQName: ManakaiDOMXDPPIElement
3941
3942 @IFISA: XDPElement
3943 @ClsISA: ManakaiDOMXDPElement
3944
3945 @enDesc:
3946 An <XE::xdp|pi> element represents an XML processing
3947 instruction.
3948
3949 @CAttr:
3950 @@Name: dtdText
3951 @@Type: DOMString
3952 @@Get:
3953 @@@PerlDef:
3954 $r = $self->SUPER::dtd_text;
3955 $r =~ s/\?>/?&gt;/g;
3956 $r = '<?'.$r.'?>';
3957 ##XDPPIElement
3958
3959 IFClsETDef:
3960 @IFQName: XDPTextDeclElement
3961 @ETQName: xdp|text-decl
3962 @ClsQName: ManakaiDOMXDPTextDeclElement
3963
3964 @IFISA: XDPElement
3965 @ClsISA: ManakaiDOMXDPElement
3966
3967 @enDesc:
3968 An <XE::xdp|text-decl> element represents an XML text declaration.
3969
3970 @CAttr:
3971 @@Name: dtdText
3972 @@Type: DOMString
3973 @@Get:
3974 @@@PerlDef:
3975 $r = $self->SUPER::dtd_text;
3976 $r =~ s/\?>/?&gt;/g;
3977 $r = '<?xml'.$r.'?>';
3978 ##XDPTextDeclElement
3979
3980 IFClsETDef:
3981 @IFQName: XDPPAttrElement
3982 @ETQName: xdp|pattr
3983 @ClsQName: ManakaiDOMXDPPAttrElement
3984
3985 @IFISA: XDPElement
3986 @ClsISA: ManakaiDOMXDPElement
3987
3988 @enDesc:
3989 An <XE::xdp|pattr> element represents a pseudo-attribute.
3990 ##XDPPAttrElement
3991
3992 IFClsETDef:
3993 @IFQName: XDPPERefElement
3994 @ETQName: xdp|peref
3995 @ClsQName: ManakaiDOMXDPPERefElement
3996
3997 @IFISA: XDPElement
3998 @ClsISA: ManakaiDOMXDPElement
3999
4000 @enDesc:
4001 An <XE::xdp|peref> element represents an XML parameter entity
4002 reference.
4003
4004 @CAttr:
4005 @@Name: dtdText
4006 @@Type: DOMString
4007 @@Get:
4008 @@@PerlDef:
4009 $r = '%'.$self->SUPER::dtd_text.';';
4010 ##XDPPERefElement
4011
4012 IFClsETDef:
4013 @IFQName: XDPGERefElement
4014 @ETQName: xdp|geref
4015 @ClsQName: ManakaiDOMXDPGERefElement
4016
4017 @IFISA: XDPElement
4018 @ClsISA: ManakaiDOMXDPElement
4019
4020 @enDesc:
4021 An <XE::xdp|geref> element represents an XML general entity
4022 reference.
4023
4024 @CAttr:
4025 @@Name: dtdText
4026 @@Type: DOMString
4027 @@Get:
4028 @@@PerlDef:
4029 $r = '&'.$self->SUPER::dtd_text.';';
4030 ##XDPGERefElement
4031
4032 IFClsETDef:
4033 @IFQName: XDPNCRElement
4034 @ETQName: xdp|ncr
4035 @ClsQName: ManakaiDOMXDPNCRElement
4036
4037 @IFISA: XDPElement
4038 @ClsISA: ManakaiDOMXDPElement
4039
4040 @enDesc:
4041 An <XE::xdp|ncr> element represents an XML numeric character
4042 reference.
4043
4044 @CAttr:
4045 @@Name: dtdText
4046 @@Type: DOMString
4047 @@Get:
4048 @@@PerlDef:
4049 $r = '&#'.$self->SUPER::dtd_text.';';
4050 ##XDPNCRElement
4051
4052 IFClsETDef:
4053 @IFQName: XDPHCRElement
4054 @ETQName: xdp|hcr
4055 @ClsQName: ManakaiDOMXDPHCRElement
4056
4057 @IFISA: XDPElement
4058 @ClsISA: ManakaiDOMXDPElement
4059
4060 @enDesc:
4061 An <XE::xdp|hcr> element represents an XML hexadecimal character
4062 reference.
4063
4064 @CAttr:
4065 @@Name: dtdText
4066 @@Type: DOMString
4067 @@Get:
4068 @@@PerlDef:
4069 $r = '&#x'.$self->SUPER::dtd_text.';';
4070 ##XDPHCRElement
4071
4072 IFClsETDef:
4073 @IFQName: XDPRNIKeywordElement
4074 @ETQName: xdp|rni-keyword
4075 @ClsQName: ManakaiDOMXDPRNIKeywordElement
4076
4077 @IFISA: XDPElement
4078 @ClsISA: ManakaiDOMXDPElement
4079
4080 @enDesc:
4081 An <XE::xdp|rni-keyword> element represents an XML keyword
4082 prepended by a <CHAR::NUMBER SIGN>.
4083
4084 @CAttr:
4085 @@Name: dtdText
4086 @@Type: DOMString
4087 @@Get:
4088 @@@PerlDef:
4089 $r = '#'.$self->SUPER::dtd_text;
4090 ##XDPRNIKeywordElement
4091
4092 IFClsETDef:
4093 @IFQName: XDPEntityValueElement
4094 @ETQName: xdp|entity-value
4095 @ClsQName: ManakaiDOMXDPEntityValueElement
4096
4097 @IFISA: XDPElement
4098 @ClsISA: ManakaiDOMXDPElement
4099
4100 @enDesc:
4101 An <XE::xdp|entity-value> element represents an XML entity
4102 value.
4103
4104 @CAttr:
4105 @@Name: dtdText
4106 @@Type: DOMString
4107 @@Get:
4108 @@@PerlDef:
4109 require Message::DOM::Traversal;
4110 my $doctrv = $self-><AG::Node.ownerDocument>
4111 -><M::Node.getFeature> (Traversal => '2.0');
4112 my $tw = $doctrv->create_tree_walker
4113 ($self, <C::NodeFilter.SHOW_ELEMENT> |
4114 <C::NodeFilter.SHOW_TEXT> |
4115 <C::NodeFilter.SHOW_CDATA_SECTION>,
4116 sub {
4117 my $node = $_[1];
4118 if ($node-><AG::Node.nodeType>
4119 == <C::Node.ELEMENT_NODE>) {
4120 my $ns = $node-><AG::Node.namespaceURI>;
4121 if (not defined $ns) {
4122 return <C::NodeFilter.FILTER_REJECT>;
4123 } elsif ($ns eq <Q::xdp|>) {
4124 return <C::NodeFilter.FILTER_ACCEPT>;
4125 } else {
4126 return <C::NodeFilter.FILTER_REJECT>;
4127 }
4128 } else {
4129 return <C::NodeFilter.FILTER_ACCEPT>;
4130 }
4131 }, true);
4132 my $current = $tw->first_child;
4133 $r = '';
4134 C: while (defined $current) {
4135 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
4136 if ({
4137 <Q::xdp|peref> => true,
4138 }->{$current->manakai_expanded_uri}) {
4139 $r .= $current-><AG::XDPElement.dtdText>;
4140 } else {
4141 my $v = $current-><AG::XDPElement.dtdText>;
4142 $v =~ s/&/&#x26;/g;
4143 $v =~ s/%/&#x25;/g;
4144 $r .= $v;
4145 }
4146 } else {
4147 my $v = $current-><AG::Node.textContent>;
4148 $v =~ s/&/&#x26;/g;
4149 $v =~ s/%/&#x25;/g;
4150 $r .= $v;
4151 }
4152
4153 $current = $tw->next_sibling;
4154 } # C
4155
4156 if ($r =~ /"/) {
4157 $r =~ s/'/&#x27;/g;
4158 $r = "'".$r."'";
4159 } else {
4160 $r =~ s/"/&#x22;/g;
4161 $r = '"'.$r.'"';
4162 }
4163 ##XDPEntityValueElement
4164
4165 IFClsETDef:
4166 @IFQName: XDPAttrLiteralElement
4167 @ETQName: xdp|attr-literal
4168 @ClsQName: ManakaiDOMXDPAttrLiteralElement
4169
4170 @IFISA: XDPElement
4171 @ClsISA: ManakaiDOMXDPElement
4172
4173 @enDesc:
4174 An <XE::xdp|attr-literal> element represents an XML attribute
4175 value literal.
4176
4177 @CAttr:
4178 @@Name: dtdText
4179 @@Type: DOMString
4180 @@Get:
4181 @@@PerlDef:
4182 require Message::DOM::Traversal;
4183 my $doctrv = $self-><AG::Node.ownerDocument>
4184 -><M::Node.getFeature> (Traversal => '2.0');
4185 my $tw = $doctrv->create_tree_walker
4186 ($self, <C::NodeFilter.SHOW_ELEMENT> |
4187 <C::NodeFilter.SHOW_TEXT> |
4188 <C::NodeFilter.SHOW_CDATA_SECTION>,
4189 sub {
4190 my $node = $_[1];
4191 if ($node-><AG::Node.nodeType>
4192 == <C::Node.ELEMENT_NODE>) {
4193 my $ns = $node-><AG::Node.namespaceURI>;
4194 if (not defined $ns) {
4195 return <C::NodeFilter.FILTER_REJECT>;
4196 } elsif ($ns eq <Q::xdp|>) {
4197 return <C::NodeFilter.FILTER_ACCEPT>;
4198 } else {
4199 return <C::NodeFilter.FILTER_REJECT>;
4200 }
4201 } else {
4202 return <C::NodeFilter.FILTER_ACCEPT>;
4203 }
4204 }, true);
4205 my $current = $tw->first_child;
4206 $r = '';
4207 C: while (defined $current) {
4208 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
4209 if ({
4210 <Q::xdp|geref> => true,
4211 <Q::xdp|ncr> => true,
4212 <Q::xdp|hcr> => true,
4213 }->{$current->manakai_expanded_uri}) {
4214 $r .= $current-><AG::XDPElement.dtdText>;
4215 } else {
4216 my $v = $current-><AG::XDPElement.dtdText>;
4217 $v =~ s/&/&amp;/g;
4218 $r .= $v;
4219 }
4220 } else {
4221 my $v = $current-><AG::Node.textContent>;
4222 $v =~ s/&/&amp;/g;
4223 $r .= $v;
4224 }
4225
4226 $current = $tw->next_sibling;
4227 } # C
4228
4229 if ($r =~ /"/) {
4230 $r =~ s/'/&apos;/g;
4231 $r = "'".$r."'";
4232 } else {
4233 $r =~ s/"/&quot;/g;
4234 $r = '"'.$r.'"';
4235 }
4236 ##XDPPAttrLiteralElement
4237
4238 IFClsETDef:
4239 @IFQName: XDPMinimumLiteralElement
4240 @ETQName: xdp|minimum-literal
4241 @ClsQName: ManakaiDOMXDPMinimumLiteralElement
4242
4243 @IFISA: XDPElement
4244 @ClsISA: ManakaiDOMXDPElement
4245
4246 @enDesc:
4247 An <XE::xdp|minimum-literal> element represents an XML public identifier
4248 literal.
4249
4250 @CAttr:
4251 @@Name: dtdText
4252 @@Type: DOMString
4253 @@Get:
4254 @@@PerlDef:
4255 $r = $self->SUPER::dtd_text;
4256 $r =~ s/"/%22/g;
4257 $r = '"'.$r.'"';
4258 ##XDPMinimumLiteralElement
4259
4260 IFClsETDef:
4261 @IFQName: XDPSystemLiteralElement
4262 @ETQName: xdp|system-literal
4263 @ClsQName: ManakaiDOMXDPSystemLiteralElement
4264
4265 @IFISA: XDPElement
4266 @ClsISA: ManakaiDOMXDPElement
4267
4268 @enDesc:
4269 An <XE::xdp|system-literal> element represents an XML system
4270 literal.
4271
4272 @CAttr:
4273 @@Name: dtdText
4274 @@Type: DOMString
4275 @@Get:
4276 @@@PerlDef:
4277 $r = $self->SUPER::dtd_text;
4278 $r =~ s/"/%22/g;
4279 $r = '"'.$r.'"';
4280 ##XDPSystemLiteralElement
4281
4282 IFClsETDef:
4283 @IFQName: XDPIfElement
4284 @ETQName: xdp|if
4285 @ClsQName: ManakaiDOMXDPIfElement
4286
4287 @IFISA: XDPElement
4288 @ClsISA: ManakaiDOMXDPElement
4289
4290 @enDesc:
4291 An <XE::xdp|if> element represents a set of XML DTD declarations
4292 with a conditional section that can be enabled by a
4293 parameter entity.
4294
4295 @CAttr:
4296 @@Name: dtdText
4297 @@Type: DOMString
4298 @@Get:
4299 @@@PerlDef:
4300 __DEEP{
4301 require Message::DOM::Traversal;
4302 my $doctrv = $self-><AG::Node.ownerDocument>
4303 -><M::Node.getFeature> (Traversal => '2.0');
4304 my $tw = $doctrv->create_tree_walker
4305 ($self, <C::NodeFilter.SHOW_ELEMENT> |
4306 <C::NodeFilter.SHOW_TEXT> |
4307 <C::NodeFilter.SHOW_CDATA_SECTION>,
4308 sub {
4309 my $node = $_[1];
4310 if ($node-><AG::Node.nodeType>
4311 == <C::Node.ELEMENT_NODE>) {
4312 my $ns = $node-><AG::Node.namespaceURI>;
4313 if (not defined $ns) {
4314 return <C::NodeFilter.FILTER_REJECT>;
4315 } elsif ($ns eq <Q::xdp|>) {
4316 return <C::NodeFilter.FILTER_ACCEPT>;
4317 } else {
4318 return <C::NodeFilter.FILTER_REJECT>;
4319 }
4320 } else {
4321 return <C::NodeFilter.FILTER_ACCEPT>;
4322 }
4323 }, true);
4324 my $current = $tw->first_child;
4325
4326 my $pename = $self-><M::Element.getAttributeNS>
4327 (null, 'status-entity');
4328 $r = '<![%'.$pename.";[\n";
4329
4330 my $has_true;
4331 C: while (defined $current) {
4332 if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
4333 if (not $has_true and
4334 $current->manakai_expanded_uri eq <Q::xdp|true>) {
4335 $r .= $current-><AG::XDPElement.dtdText>;
4336 $r .= "<!-- end of $pename -->]]>";
4337 $has_true = true;
4338 } elsif ($current->manakai_expanded_uri eq <Q::xdp|false>) {
4339 my $v = $current-><AG::XDPElement.dtdText>;
4340 $r .= "\n" if length $v;
4341 $r .= $v;
4342 } else {
4343 $r .= $current-><AG::XDPElement.dtdText>;
4344 }
4345 } else {
4346 $r .= $current-><AG::XDPElement.dtdText>;
4347 }
4348
4349 $current = $tw->next_sibling;
4350 } # C
4351
4352 $r .= "<!-- end of $pename -->]]>" unless $has_true;
4353 }__;
4354 ##XDPIfElement
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24