/[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.18 by wakaba, Sun Nov 5 12:31:50 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 256  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 293  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 324  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 725  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>,
716          <IFName::f|GetFeature>,          <IFName::f|GetFeature>,
717        ) {        ) {
# Line 738  IFClsDef: Line 724  IFClsDef:
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 1782  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 3135  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 3155  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.18  
changed lines
  Added in v.1.21
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24