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

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

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

revision 1.2 by wakaba, Mon May 15 12:06:09 2006 UTC revision 1.4 by wakaba, Sat May 20 05:11:37 2006 UTC
# Line 3220  IFClsDef: Line 3220  IFClsDef:
3220    
3221          $test->id ('dtdText');          $test->id ('dtdText');
3222          $test->assert_equals ($el-><AG::XDPElement.dtdText>, '()');          $test->assert_equals ($el-><AG::XDPElement.dtdText>, '()');
3223    
3224      @Method:
3225        @@Name: createXDPAttrDefinition
3226        @@enDesc:
3227          Creates a <XE::xdp|attr-definition> element.
3228    
3229          {ISSUE::
3230            Declared type and default type parameters should be added?
3231          }
3232        @@Param:
3233          @@@Name: name
3234          @@@Type: DOMString
3235          @@@enDesc:
3236            The name of the attribute.
3237          @@@nullCase:
3238            @@@@enDesc:
3239              All parameters are ignored.
3240        @@Return:
3241          @@@Type: XDPElement
3242          @@@enDesc:
3243            The newly created element node.
3244    
3245            {P:: A new <IF::Element> node with following attributes
3246                 <kwd:MUST> be returned:
3247    
3248               - <A::Node.localName>::: <XE::attr-definition>.
3249    
3250               - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3251    
3252               - <A::Node.ownerDocument>::: The document.
3253              
3254            }
3255    
3256            {P:: If <P::name> is different from <DOM::null>, a
3257                 <IF::Element> node with following attributes
3258                 <kwd:MUST> be appended to the returned node
3259                 as if the <M::Node.appendChild> method were invoked.
3260    
3261               - <A::Node.localName>::: <XE::name>.
3262    
3263               - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3264    
3265               - <A::Node.ownerDocument>::: The document.
3266    
3267               - <A::Node.textContent>::: <P::name>.
3268    
3269            }
3270          @@@PerlDef:
3271            __DEEP{
3272              $r = $self-><M::Document.createElementNS>
3273                            (<Q::xdp|>, 'attr-definition');
3274              $r-><M::Node.appendChild>
3275                    ($self-><M::XDPDocument.createXDPName> ($name))
3276                if defined $name;
3277            }__;
3278    
3279        @@Test:
3280          @@@QName: XDPDocument.createXDPAttrDefinition.1.test
3281          @@@PerlDef:
3282            my $doc;
3283            __CODE{createXDPDocumentForTest}__;
3284    
3285            my $el = $doc-><M::XDPDocument.createXDPAttrDefinition> ('aname');
3286    
3287            $test->id ('interface');
3288            $test->assert_isa ($el, <IFName::XDPElement>);
3289    
3290            $test->id ('namespaceURI');
3291            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3292    
3293            $test->id ('localName');
3294            $test->assert_equals ($el-><AG::Node.localName>, 'attr-definition');
3295    
3296            $test->id ('dtdText');
3297            $test->assert_equals ($el-><AG::XDPElement.dtdText>, 'aname');
3298        @@Test:
3299          @@@QName: XDPDocument.createXDPAttrDefinition.2.test
3300          @@@PerlDef:
3301            my $doc;
3302            __CODE{createXDPDocumentForTest}__;
3303    
3304            my $el = $doc-><M::XDPDocument.createXDPAttrDefinition>;
3305    
3306            $test->id ('interface');
3307            $test->assert_isa ($el, <IFName::XDPElement>);
3308    
3309            $test->id ('namespaceURI');
3310            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3311    
3312            $test->id ('localName');
3313            $test->assert_equals ($el-><AG::Node.localName>, 'attr-definition');
3314    
3315            $test->id ('dtdText');
3316            $test->assert_equals ($el-><AG::XDPElement.dtdText>, '');
3317    
3318      @Method:
3319        @@Name: createXDPAttlist
3320        @@enDesc:
3321          Creates a <XE::xdp|attlist> element.
3322        @@Param:
3323          @@@Name: name
3324          @@@Type: DOMString
3325          @@@enDesc:
3326            The name in the declaration.
3327          @@@nullCase:
3328            @@@@enDesc:
3329              The declaration does not contain any name.
3330        @@Return:
3331          @@@Type: XDPAttlistElement
3332          @@@enDesc:
3333            The newly created element node.
3334    
3335            {P:: A new <IF::Element> node with following attributes
3336                 <kwd:MUST> be returned:
3337    
3338               - <A::Node.localName>::: <XE::attlist>.
3339    
3340               - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3341    
3342               - <A::Node.ownerDocument>::: The document.
3343              
3344            }
3345    
3346            {P:: If <P::name> is different from <DOM::null>, two
3347                 <IF::Element> nodes with following attributes
3348                 <kwd:MUST> be appended to the returned node
3349                 as if the <M::Node.appendChild> method were invoked in order.
3350    
3351               {LI::
3352                
3353                 - <A::Node.localName>::: <XE::s>.
3354    
3355                 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3356    
3357                 - <A::Node.ownerDocument>::: The document.
3358    
3359                 - <A::Node.textContent>::: A <CHAR::SPACE>.
3360    
3361               }
3362    
3363               {LI::
3364    
3365                 - <A::Node.localName>::: <XE::name>.
3366    
3367                 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3368    
3369                 - <A::Node.ownerDocument>::: The document.
3370    
3371                 - <A::Node.textContent>::: <P::name>.
3372    
3373               }
3374    
3375            }
3376          @@@PerlDef:
3377            __DEEP{
3378              $r = $self-><M::Document.createElementNS>
3379                            (<Q::xdp|>, 'attlist');
3380              if (defined $name) {
3381                $r-><M::Node.appendChild>
3382                      ($self-><M::XDPDocument.createXDPS> (' '));
3383                $r-><M::Node.appendChild>
3384                      ($self-><M::XDPDocument.createXDPName> ($name));
3385              }
3386            }__;
3387    
3388        @@Test:
3389          @@@QName: XDPDocument.createXDPAttlist.1.test
3390          @@@PerlDef:
3391            my $doc;
3392            __CODE{createXDPDocumentForTest}__;
3393    
3394            my $el = $doc-><M::XDPDocument.createXDPAttlist> ('aname');
3395    
3396            $test->id ('interface');
3397            $test->assert_isa ($el, <IFName::XDPAttlistElement>);
3398    
3399            $test->id ('namespaceURI');
3400            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3401    
3402            $test->id ('localName');
3403            $test->assert_equals ($el-><AG::Node.localName>, 'attlist');
3404    
3405            $test->id ('dtdText');
3406            $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ATTLIST aname>');
3407        @@Test:
3408          @@@QName: XDPDocument.createXDPAttlist.2.test
3409          @@@PerlDef:
3410            my $doc;
3411            __CODE{createXDPDocumentForTest}__;
3412    
3413            my $el = $doc-><M::XDPDocument.createXDPAttlist>;
3414    
3415            $test->id ('interface');
3416            $test->assert_isa ($el, <IFName::XDPAttlistElement>);
3417    
3418            $test->id ('namespaceURI');
3419            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3420    
3421            $test->id ('localName');
3422            $test->assert_equals ($el-><AG::Node.localName>, 'attlist');
3423    
3424            $test->id ('dtdText');
3425            $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ATTLIST>');
3426    
3427      @Method:
3428        @@Name: createXDPElement
3429        @@enDesc:
3430          Creates a <XE::xdp|element> element.
3431    
3432          {ISSUE::
3433            Should declared content parameter be added?
3434          }
3435        @@Param:
3436          @@@Name: name
3437          @@@Type: DOMString
3438          @@@enDesc:
3439            The name in the declaration.
3440          @@@nullCase:
3441            @@@@enDesc:
3442              The declaration does not contain any name.
3443        @@Return:
3444          @@@Type: XDPElementElement
3445          @@@enDesc:
3446            The newly created element node.
3447    
3448            {P:: A new <IF::Element> node with following attributes
3449                 <kwd:MUST> be returned:
3450    
3451               - <A::Node.localName>::: <XE::element>.
3452    
3453               - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3454    
3455               - <A::Node.ownerDocument>::: The document.
3456              
3457            }
3458    
3459            {P:: If <P::name> is different from <DOM::null>, two
3460                 <IF::Element> nodes with following attributes
3461                 <kwd:MUST> be appended to the returned node
3462                 as if the <M::Node.appendChild> method were invoked in order.
3463    
3464               {LI::
3465                
3466                 - <A::Node.localName>::: <XE::s>.
3467    
3468                 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3469    
3470                 - <A::Node.ownerDocument>::: The document.
3471    
3472                 - <A::Node.textContent>::: A <CHAR::SPACE>.
3473    
3474               }
3475    
3476               {LI::
3477    
3478                 - <A::Node.localName>::: <XE::name>.
3479    
3480                 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3481    
3482                 - <A::Node.ownerDocument>::: The document.
3483    
3484                 - <A::Node.textContent>::: <P::name>.
3485    
3486               }
3487    
3488            }
3489          @@@PerlDef:
3490            __DEEP{
3491              $r = $self-><M::Document.createElementNS>
3492                            (<Q::xdp|>, 'element');
3493              if (defined $name) {
3494                $r-><M::Node.appendChild>
3495                      ($self-><M::XDPDocument.createXDPS> (' '));
3496                $r-><M::Node.appendChild>
3497                      ($self-><M::XDPDocument.createXDPName> ($name));
3498              }
3499            }__;
3500    
3501        @@Test:
3502          @@@QName: XDPDocument.createXDPElement.1.test
3503          @@@PerlDef:
3504            my $doc;
3505            __CODE{createXDPDocumentForTest}__;
3506    
3507            my $el = $doc-><M::XDPDocument.createXDPElement> ('aname');
3508    
3509            $test->id ('interface');
3510            $test->assert_isa ($el, <IFName::XDPElementElement>);
3511    
3512            $test->id ('namespaceURI');
3513            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3514    
3515            $test->id ('localName');
3516            $test->assert_equals ($el-><AG::Node.localName>, 'element');
3517    
3518            $test->id ('dtdText');
3519            $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ELEMENT aname>');
3520        @@Test:
3521          @@@QName: XDPDocument.createXDPElement.2.test
3522          @@@PerlDef:
3523            my $doc;
3524            __CODE{createXDPDocumentForTest}__;
3525    
3526            my $el = $doc-><M::XDPDocument.createXDPElement>;
3527    
3528            $test->id ('interface');
3529            $test->assert_isa ($el, <IFName::XDPElementElement>);
3530    
3531            $test->id ('namespaceURI');
3532            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3533    
3534            $test->id ('localName');
3535            $test->assert_equals ($el-><AG::Node.localName>, 'element');
3536    
3537            $test->id ('dtdText');
3538            $test->assert_equals ($el-><AG::XDPElement.dtdText>, '<!ELEMENT>');
3539    
3540      @Method:
3541        @@Name: createXDPIf
3542        @@enDesc:
3543          Creates an <XE::xdp|if> element.
3544        @@Param:
3545          @@@Name: statusEntity
3546          @@@Type: DOMString
3547          @@@enDesc:
3548            The name of the parameter entity that contains
3549            the status of the marked section.
3550          @@@nullCase:
3551            @@@@enDesc:
3552              Same as an empty string.
3553        @@Return:
3554          @@@Type: XDPIfElement
3555          @@@enDesc:
3556            The newly created element node.
3557    
3558            {P:: A new <IF::Element> node with following attributes
3559                 <kwd:MUST> be returned:
3560    
3561               - <A::Node.localName>::: <XE::if>.
3562    
3563               - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3564    
3565               - <A::Node.ownerDocument>::: The document.
3566              
3567            }
3568    
3569            {P:: The <A::Node.attributes> <IF::tc|NamedNodeMap>
3570                 of the returned <IF:Element> node <kwd:MUST> contain
3571                 a new <IF::te|Attr> node with following attributes:
3572    
3573               - <A::Node.localName>::: <XA::status-entity>.
3574    
3575               - <A::Node.namespaceURI>::: <DOM::null>.
3576    
3577               - <A::te|Attr.specified>::: <DOM::true>.
3578    
3579               - <A::Node.textContent>::: <P::statusEntity>, or an empty
3580                                          string if <P::statusEntity>
3581                                          is <DOM::null>.
3582    
3583            }
3584    
3585            {P:: <A::Node.childNodes> <IF::tc|NodeList> of
3586                 the returned <IF::Element> node <kwd:MUST> contain
3587                 two <IF::Element> nodes in order:
3588    
3589               {LI::
3590                
3591                 - <A::Node.localName>::: <XE::true>.
3592    
3593                 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3594    
3595                 - <A::Node.ownerDocument>::: The document.
3596    
3597                 - <A::Node.textContent>::: An empty string.
3598    
3599               }
3600    
3601               {LI::
3602    
3603                 - <A::Node.localName>::: <XE::false>.
3604    
3605                 - <A::Node.namespaceURI>::: <URI^^DISCore|QName::xdp|>.
3606    
3607                 - <A::Node.ownerDocument>::: The document.
3608    
3609                 - <A::Node.textContent>::: An empty string.
3610    
3611               }
3612    
3613            }
3614          @@@PerlDef:
3615            __DEEP{
3616              $r = $self-><M::Document.createElementNS> (<Q::xdp|>, 'if');
3617              $r-><M::Element.setAttributeNS>
3618                    (null, 'status-entity',
3619                     defined $statusEntity ? $statusEntity : '');
3620              $r-><M::Node.appendChild>
3621                    ($self-><M::Document.createElementNS> (<Q::xdp|>, 'tr'.'ue'));
3622              $r-><M::Node.appendChild>
3623                    ($self-><M::Document.createElementNS> (<Q::xdp|>, 'fal'.'se'));
3624            }__;
3625    
3626        @@Test:
3627          @@@QName: XDPDocument.createXDPIf.1.test
3628          @@@PerlDef:
3629            my $doc;
3630            __CODE{createXDPDocumentForTest}__;
3631    
3632            my $el = $doc-><M::XDPDocument.createXDPIf> ('aname');
3633    
3634            $test->id ('interface');
3635            $test->assert_isa ($el, <IFName::XDPIfElement>);
3636    
3637            $test->id ('namespaceURI');
3638            $test->assert_equals ($el-><AG::Node.namespaceURI>, <Q::xdp|>);
3639    
3640            $test->id ('localName');
3641            $test->assert_equals ($el-><AG::Node.localName>, 'if');
3642    
3643            $test->id ('dtdText');
3644            $test->assert_equals ($el-><AG::XDPElement.dtdText>,
3645                                  "<![%aname;[\n<!-- end of aname -->]]>\n");
3646    
3647            $test->id ('fc');
3648            my $fc = $el-><AG::Node.firstChild>;
3649            $test->assert_isa ($fc, <IFName::XDPElement>);
3650    
3651            $test->id ('fc.namespaceURI');
3652            $test->assert_equals ($fc-><AG::Node.namespaceURI>, <Q::xdp|>);
3653    
3654            $test->id ('fc.localName');
3655            $test->assert_equals ($fc-><AG::Node.localName>, 'tr'.'ue');
3656    
3657            $test->id ('lc');
3658            my $lc = $el-><AG::Node.lastChild>;
3659            $test->assert_isa ($fc, <IFName::XDPElement>);
3660    
3661            $test->id ('lc.namespaceURI');
3662            $test->assert_equals ($lc-><AG::Node.namespaceURI>, <Q::xdp|>);
3663    
3664            $test->id ('lc.localName');
3665            $test->assert_equals ($lc-><AG::Node.localName>, 'fal'.'se');
3666  ##XDPDocument  ##XDPDocument
3667    
3668  IFClsDef:  IFClsDef:
# Line 3834  IFClsETDef: Line 4277  IFClsETDef:
4277          $r =~ s/"/%22/g;          $r =~ s/"/%22/g;
4278          $r = '"'.$r.'"';          $r = '"'.$r.'"';
4279  ##XDPSystemLiteralElement  ##XDPSystemLiteralElement
4280    
4281    IFClsETDef:
4282      @IFQName: XDPIfElement
4283      @ETQName: xdp|if
4284      @ClsQName: ManakaiDOMXDPIfElement
4285    
4286      @IFISA: XDPElement
4287      @ClsISA: ManakaiDOMXDPElement
4288    
4289      @enDesc:
4290        An <XE::xdp|if> element represents a set of XML DTD declarations
4291        with a conditional section that can be enabled by a
4292        parameter entity.
4293    
4294      @CAttr:
4295        @@Name: dtdText
4296        @@Type: DOMString
4297        @@Get:
4298          @@@PerlDef:
4299            __DEEP{
4300              require Message::DOM::Traversal;
4301              my $doctrv = $self-><AG::Node.ownerDocument>
4302                                -><M::Node.getFeature> (Traversal => '2.0');
4303              my $tw = $doctrv->create_tree_walker
4304                                  ($self, <C::NodeFilter.SHOW_ELEMENT> |
4305                                          <C::NodeFilter.SHOW_TEXT> |
4306                                          <C::NodeFilter.SHOW_CDATA_SECTION>,
4307                                   sub {
4308                                     my $node = $_[1];
4309                                     if ($node-><AG::Node.nodeType>
4310                                             == <C::Node.ELEMENT_NODE>) {
4311                                       my $ns = $node-><AG::Node.namespaceURI>;
4312                                       if (not defined $ns) {
4313                                         return <C::NodeFilter.FILTER_REJECT>;
4314                                       } elsif ($ns eq <Q::xdp|>) {
4315                                         return <C::NodeFilter.FILTER_ACCEPT>;
4316                                       } else {
4317                                         return <C::NodeFilter.FILTER_REJECT>;
4318                                       }
4319                                     } else {
4320                                       return <C::NodeFilter.FILTER_ACCEPT>;
4321                                     }
4322                                   }, true);
4323              my $current = $tw->first_child;
4324    
4325              my $pename = $self-><M::Element.getAttributeNS>
4326                                    (null, 'status-entity');
4327              $r = '<![%'.$pename.";[\n";
4328        
4329              my $has_true;
4330              C: while (defined $current) {
4331                if ($current-><AG::Node.nodeType> == <C::Node.ELEMENT_NODE>) {
4332                  if (not $has_true and
4333                      $current->manakai_expanded_uri eq <Q::xdp|true>) {
4334                    $r .= $current-><AG::XDPElement.dtdText>;
4335                    $r .= "<!-- end of $pename -->]]>";
4336                    $has_true = true;
4337                  } elsif ($current->manakai_expanded_uri eq <Q::xdp|false>) {
4338                    my $v = $current-><AG::XDPElement.dtdText>;
4339                    $r .= "\n" if length $v;
4340                    $r .= $v;
4341                  } else {
4342                    $r .= $current-><AG::XDPElement.dtdText>;
4343                  }
4344                } else {
4345                  $r .= $current-><AG::XDPElement.dtdText>;
4346                }
4347              
4348                $current = $tw->next_sibling;
4349              } # C
4350    
4351              $r .= "<!-- end of $pename -->]]>" unless $has_true;
4352            }__;
4353    ##XDPIfElement
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24