/[suikacvs]/messaging/manakai/lib/Message/Markup/Atom.dis
Suika

Diff of /messaging/manakai/lib/Message/Markup/Atom.dis

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by wakaba, Tue Oct 3 09:37:36 2006 UTC revision 1.21 by wakaba, Sat Dec 30 04:42:55 2006 UTC
# Line 52  Module: Line 52  Module:
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
# Line 77  Namespace: Line 73  Namespace:
73      http://suika.fam.cx/~wakaba/archive/2004/dom/xdt#      http://suika.fam.cx/~wakaba/archive/2004/dom/xdt#
74    @DOMMain:    @DOMMain:
75      http://suika.fam.cx/~wakaba/archive/2004/dom/main#      http://suika.fam.cx/~wakaba/archive/2004/dom/main#
76      @domperl:
77        http://suika.fam.cx/~wakaba/archive/2006/dom/perl/
78    @dx:    @dx:
79      http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#      http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#
80    @dxm:    @dxm:
# Line 254  ElementTypeBinding: Line 252  ElementTypeBinding:
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
# Line 291  ElementTypeBinding: Line 286  ElementTypeBinding:
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
# Line 322  ElementTypeBinding: Line 314  ElementTypeBinding:
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
# Line 708  IFClsDef: Line 697  IFClsDef:
697    @IFQName: AtomImplementation    @IFQName: AtomImplementation
698    @ClsQName: ManakaiAtomImplementation    @ClsQName: ManakaiAtomImplementation
699    
700    @IFISA: c|DOMImplementation    @domperl:implementedByObjectsOf: c|DOMImplementation
701    @ClsISA: c|ManakaiDOMImplementation    @domperl:classImplementedByObjectsOf: c|ManakaiDOMImplementation
702    
703    @enDesc:    @enDesc:
704      The <IF::AtomImplementation> interface provides convenience      The <IF::AtomImplementation> interface provides convenience
# Line 723  IFClsDef: Line 712  IFClsDef:
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>,
         <IFName::urigen|URIImplementation>,  
         <IFName::f|MinimumImplementation>,  
716          <IFName::f|GetFeature>,          <IFName::f|GetFeature>,
717        ) {        ) {
718          $test->id ($interface);          $test->id ($interface);
719          $test->assert_true          $test->assert_true
720                   (<Class::ManakaiAtomImplementation>->isa ($interface));                   (<Class::c|ManakaiDOMImplementation>->isa ($interface));
721        }        }
722    @Test:    @Test:
723      @@QName: ImplementationRegistry.AtomImplementation.1.test      @@QName: ImplementationRegistry.AtomImplementation.1.test
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    
# Line 748  IFClsDef: Line 734  IFClsDef:
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                       });                       });
# Line 759  IFClsDef: Line 745  IFClsDef:
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                       });                       });
# Line 795  IFClsDef: Line 781  IFClsDef:
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    
# Line 978  IFClsDef: Line 964  IFClsDef:
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    
# Line 1619  IFClsDef: Line 1605  IFClsDef:
1605    @IFQName: AtomDocument    @IFQName: AtomDocument
1606    @ClsQName: ManakaiAtomDocument    @ClsQName: ManakaiAtomDocument
1607    
1608    @IFISA: Document    @domperl:implementedByObjectsOf: Document
1609    @ClsISA: td|ManakaiDOMDocument    @domperl:classImplementedByObjectsOf: td|ManakaiDOMDocument
1610    
1611    @f:implements: AtomFeature10    @f:implements: AtomFeature10
   @s:rootElementType: AnyAtomElement||ManakaiDOM|all  
1612    
1613    @enDesc:    @enDesc:
1614      If the <Feature::fe|Atom> feature version <FeatureVer::1.0>      If the <Feature::fe|Atom> feature version <FeatureVer::1.0>
# Line 1647  IFClsDef: Line 1632  IFClsDef:
1632        $test->assert_isa ($doc, <IFName::AtomDocument>);        $test->assert_isa ($doc, <IFName::AtomDocument>);
1633  ##AtomDocument  ##AtomDocument
1634    
 IFClsDef:  
   @IFQName: AtomFeedDocument  
   @ClsQName: ManakaiFeedEntryDocument  
   
   @IFISA: AtomDocument  
   @ClsISA: ManakaiAtomDocument  
   
   @f:implements: AtomFeature10  
   @s:rootElementType:  
     @@@: atom|feed  
     @@DISCore:stopISARecursive: 1  
   
   @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  
   
   @IFISA: AtomDocument  
   @ClsISA: ManakaiAtomDocument  
   
   @f:implements: AtomFeature10  
   @s:rootElementType:  
     @@@: atom|entry  
     @@DISCore:stopISARecursive: 1  
   
   @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
# Line 1860  IFClsDef: Line 1768  IFClsDef:
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>,
# Line 3213  IFClsETDef: Line 3120  IFClsETDef:
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>
# Line 3233  IFClsETDef: Line 3142  IFClsETDef:
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>
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.21
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24