52 |
@@@QName: MDOM|TreeCore |
@@@QName: MDOM|TreeCore |
53 |
@@@WithFor: ManakaiDOM|ManakaiDOMLatest |
@@@WithFor: ManakaiDOM|ManakaiDOMLatest |
54 |
@@Module: |
@@Module: |
|
@@@WithFor: ManakaiDOM|ManakaiDOM |
|
|
@@Module: |
|
|
@@@WithFor: ManakaiDOM|ManakaiDOMLatest |
|
|
@@Module: |
|
55 |
@@@QName: DISlib|DISMarkup |
@@@QName: DISlib|DISMarkup |
56 |
@@@WithFor: ManakaiDOM|all |
@@@WithFor: ManakaiDOM|all |
57 |
@DefaultFor: ManakaiDOM|ManakaiDOMLatest |
@DefaultFor: ManakaiDOM|ManakaiDOMLatest |
252 |
@@DISCore:resourceType: |
@@DISCore:resourceType: |
253 |
@@@@: DISLang|Class |
@@@@: DISLang|Class |
254 |
@@@ForCheck: ManakaiDOM|ForClass |
@@@ForCheck: ManakaiDOM|ForClass |
255 |
@@Implement: |
|
|
@@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF |
|
|
@@@ContentType: DISCore|TFPQNames |
|
|
@@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM |
|
256 |
@@Implement: |
@@Implement: |
257 |
@@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF |
@@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF |
258 |
@@@ContentType: DISCore|TFPQNames |
@@@ContentType: DISCore|TFPQNames |
286 |
@@DISCore:resourceType: |
@@DISCore:resourceType: |
287 |
@@@@: DISLang|Class |
@@@@: DISLang|Class |
288 |
@@@ForCheck: ManakaiDOM|ForClass |
@@@ForCheck: ManakaiDOM|ForClass |
289 |
@@Implement: |
|
|
@@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF |
|
|
@@@ContentType: DISCore|TFPQNames |
|
|
@@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM |
|
290 |
@@Implement: |
@@Implement: |
291 |
@@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF |
@@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF |
292 |
@@@ContentType: DISCore|TFPQNames |
@@@ContentType: DISCore|TFPQNames |
314 |
@@DISCore:resourceType: |
@@DISCore:resourceType: |
315 |
@@@@: DISLang|Class |
@@@@: DISLang|Class |
316 |
@@@ForCheck: ManakaiDOM|ForClass |
@@@ForCheck: ManakaiDOM|ForClass |
317 |
@@Implement: |
|
|
@@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF |
|
|
@@@ContentType: DISCore|TFPQNames |
|
|
@@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM |
|
318 |
@@Implement: |
@@Implement: |
319 |
@@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF |
@@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF |
320 |
@@@ContentType: DISCore|TFPQNames |
@@@ContentType: DISCore|TFPQNames |
712 |
@@PerlDef: |
@@PerlDef: |
713 |
for my $interface ( |
for my $interface ( |
714 |
<IFName::AtomImplementation>, |
<IFName::AtomImplementation>, |
|
<IFName::AtomImplementation||ManakaiDOM|ManakaiDOM>, |
|
715 |
<IFName::c|DOMImplementation>, |
<IFName::c|DOMImplementation>, |
716 |
<IFName::f|GetFeature>, |
<IFName::f|GetFeature>, |
717 |
) { |
) { |
724 |
@@PerlDef: |
@@PerlDef: |
725 |
require Message::Markup::Atom; |
require Message::Markup::Atom; |
726 |
my $impl = $Message::DOM::ImplementationRegistry |
my $impl = $Message::DOM::ImplementationRegistry |
727 |
->get_implementation ({ |
->get_dom_implementation ({ |
728 |
<Q::fe|Atom> => '1.0', |
<Q::fe|Atom> => '1.0', |
729 |
}); |
}); |
730 |
|
|
734 |
@@PerlDef: |
@@PerlDef: |
735 |
require Message::Markup::Atom; |
require Message::Markup::Atom; |
736 |
my $impl = $Message::DOM::ImplementationRegistry |
my $impl = $Message::DOM::ImplementationRegistry |
737 |
->get_implementation ({ |
->get_dom_implementation ({ |
738 |
Core => '3.0', |
Core => '3.0', |
739 |
<Q::fe|Atom> => '1.0', |
<Q::fe|Atom> => '1.0', |
740 |
}); |
}); |
745 |
@@PerlDef: |
@@PerlDef: |
746 |
require Message::Markup::Atom; |
require Message::Markup::Atom; |
747 |
my $impl = $Message::DOM::ImplementationRegistry |
my $impl = $Message::DOM::ImplementationRegistry |
748 |
->get_implementation ({ |
->get_dom_implementation ({ |
749 |
XML => '3.0', |
XML => '3.0', |
750 |
<Q::fe|Atom> => '1.0', |
<Q::fe|Atom> => '1.0', |
751 |
}); |
}); |
781 |
The implementation <kwd:MUST> treate <DOM::null> |
The implementation <kwd:MUST> treate <DOM::null> |
782 |
as if an empty string is specified. |
as if an empty string is specified. |
783 |
@@Return: |
@@Return: |
784 |
@@@Type: AtomFeedDocument |
@@@Type: AtomDocument |
785 |
@@@enDesc: |
@@@enDesc: |
786 |
The newly created Atom Feed Document. |
The newly created Atom Feed Document. |
787 |
|
|
964 |
The implementation <kwd:MUST> treate <DOM::null> |
The implementation <kwd:MUST> treate <DOM::null> |
965 |
as if an empty string is specified. |
as if an empty string is specified. |
966 |
@@Return: |
@@Return: |
967 |
@@@Type: AtomEntryDocument |
@@@Type: AtomDocument |
968 |
@@@enDesc: |
@@@enDesc: |
969 |
The newly created Atom Entry Document. |
The newly created Atom Entry Document. |
970 |
|
|
1632 |
$test->assert_isa ($doc, <IFName::AtomDocument>); |
$test->assert_isa ($doc, <IFName::AtomDocument>); |
1633 |
##AtomDocument |
##AtomDocument |
1634 |
|
|
|
IFClsDef: |
|
|
@IFQName: AtomFeedDocument |
|
|
@ClsQName: ManakaiFeedEntryDocument |
|
|
|
|
|
@domperl:implementedByObjectsOf: Document |
|
|
@domperl:classImplementedByObjectsOf: td|ManakaiDOMDocument |
|
|
|
|
|
@f:implements: AtomFeature10 |
|
|
|
|
|
@enDesc: |
|
|
The <IF::AtomFeedDocument> interface provides convenience |
|
|
methods and attributes for an Atom |
|
|
Feed Document, i.e. representation of an Atom feed. |
|
|
|
|
|
If the <Feature::fe|Atom> feature version <FeatureVer::1.0> |
|
|
is supported, a <IF::Document> object whose <A::Document.documentElement>'s |
|
|
element type, if any, is <XE::atom|feed> at least at |
|
|
the time of creation <kwd:MUST> also |
|
|
implement the <IF::AtomFeedDocument> interface. Other |
|
|
<IF::Document> objects <kwd:MAY> also implement |
|
|
the <IF::AtomFeedDocument> interface. |
|
|
|
|
|
@Test: |
|
|
@@QName: createDocument.AtomFeedDocument.test |
|
|
@@PerlDef: |
|
|
my $impl; |
|
|
__CODE{tc|createImplForTest:: $impl => $impl}__; |
|
|
|
|
|
my $doc = $impl-><M::c|DOMImplementation.createDocument> |
|
|
(<Q::atom|>, 'feed'); |
|
|
|
|
|
$test->id ('interface'); |
|
|
$test->assert_isa ($doc, <IFName::AtomFeedDocument>); |
|
|
##AtomFeedDocument |
|
|
|
|
|
IFClsDef: |
|
|
@IFQName: AtomEntryDocument |
|
|
@ClsQName: ManakaiAtomEntryDocument |
|
|
|
|
|
@domperl:implementedByObjectsOf: Document |
|
|
@domperl:classImplementedByObjectsOf: td|ManakaiDOMDocument |
|
|
|
|
|
@f:implements: AtomFeature10 |
|
|
|
|
|
@enDesc: |
|
|
The <IF::AtomEntryDocument> interface provides convenience |
|
|
methods and attributes for an Atom |
|
|
Entry Document, i.e. exactly one Atom entry, outside |
|
|
of the context of an Atom feed. |
|
|
|
|
|
If the <Feature::fe|Atom> feature version <FeatureVer::1.0> |
|
|
is supported, a <IF::Document> object whose <A::Document.documentElement>'s |
|
|
element type, if any, is <XE::atom|entry> at least at |
|
|
the time of the creation <kwd:MUST> also |
|
|
implement the <IF::AtomEntryDocument> interface. Other |
|
|
<IF::Document> objects <kwd:MAY> also implement |
|
|
the <IF::AtomEntryDocument> interface. |
|
|
|
|
|
@Test: |
|
|
@@QName: createDocument.AtomEntryDocument.test |
|
|
@@PerlDef: |
|
|
my $impl; |
|
|
__CODE{tc|createImplForTest:: $impl => $impl}__; |
|
|
|
|
|
my $doc = $impl-><M::c|DOMImplementation.createDocument> |
|
|
(<Q::atom|>, 'entry'); |
|
|
|
|
|
$test->id ('interface'); |
|
|
$test->assert_isa ($doc, <IFName::AtomEntryDocument>); |
|
|
##AtomEntryDocument |
|
|
|
|
1635 |
AGDef: |
AGDef: |
1636 |
@QName: atomCommonAttributes |
@QName: atomCommonAttributes |
1637 |
@enFN: common attributes |
@enFN: common attributes |
1768 |
@@PerlDef: |
@@PerlDef: |
1769 |
for my $interface ( |
for my $interface ( |
1770 |
<IFName::AtomElement>, |
<IFName::AtomElement>, |
|
<IFName::AtomElement||ManakaiDOM|ManakaiDOM>, |
|
1771 |
<IFName::Element>, |
<IFName::Element>, |
1772 |
<IFName::Node>, |
<IFName::Node>, |
1773 |
<IFName::f|GetFeature>, |
<IFName::f|GetFeature>, |
3120 |
$test->assert_num_equals (actual_value => 0+@$list, expected_value => 0); |
$test->assert_num_equals (actual_value => 0+@$list, expected_value => 0); |
3121 |
|
|
3122 |
$test->id ('parent'); |
$test->id ('parent'); |
3123 |
|
my $parent; |
3124 |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
3125 |
|
$parent = $_; |
3126 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3127 |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
3128 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3142 |
my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry'); |
my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry'); |
3143 |
|
|
3144 |
$test->id ('parent'); |
$test->id ('parent'); |
3145 |
|
my $parent; |
3146 |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
3147 |
|
$parent = $_; |
3148 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3149 |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
3150 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |