/[suikacvs]/messaging/manakai/lib/Message/DOM/Element.pm
Suika

Diff of /messaging/manakai/lib/Message/DOM/Element.pm

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

revision 1.17 by wakaba, Sun Dec 31 00:55:05 2006 UTC revision 1.18 by wakaba, Sun Dec 31 02:39:38 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  ## This file is automatically generated  ## This file is automatically generated
3  ##      at 2006-12-31T00:25:57+00:00,  ##      at 2006-12-31T02:08:06+00:00,
4  ##      from file "../lib/Message/DOM/Element.dis",  ##      from file "Element.dis",
5  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Element>,  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Element>,
6  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all>.  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all>.
7  ## Don't edit by hand!  ## Don't edit by hand!
# Line 11  require Message::DOM::Document; Line 11  require Message::DOM::Document;
11  require Message::DOM::TreeCore;  require Message::DOM::TreeCore;
12  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
13  package Message::DOM::Element;  package Message::DOM::Element;
14  our $VERSION = 20061231.0025;  our $VERSION = 20061231.0208;
15  sub DERIVATION_EXTENSION ();  sub DERIVATION_EXTENSION ();
16  sub DERIVATION_LIST ();  sub DERIVATION_LIST ();
17  sub DERIVATION_RESTRICTION ();  sub DERIVATION_RESTRICTION ();
# Line 69  our @EXPORT_OK = ('DERIVATION_EXTENSION' Line 69  our @EXPORT_OK = ('DERIVATION_EXTENSION'
69  'DERIVATION_UNION');  'DERIVATION_UNION');
70  use Exporter; push our @ISA, 'Exporter';  use Exporter; push our @ISA, 'Exporter';
71  package Message::DOM::Element::ManakaiDOMDocumentElement;  package Message::DOM::Element::ManakaiDOMDocumentElement;
72  our $VERSION = 20061231.0025;  our $VERSION = 20061231.0208;
73  push @Message::DOM::Document::ManakaiDOMDocument::ISA, q<Message::DOM::Element::ManakaiDOMDocumentElement> unless Message::DOM::Document::ManakaiDOMDocument->isa (q<Message::DOM::Element::ManakaiDOMDocumentElement>);  push @Message::DOM::Document::ManakaiDOMDocument::ISA, q<Message::DOM::Element::ManakaiDOMDocumentElement> unless Message::DOM::Document::ManakaiDOMDocument->isa (q<Message::DOM::Element::ManakaiDOMDocumentElement>);
74  use Char::Class::XML 'InXMLNCNameChar10',  use Char::Class::XML 'InXMLNCNameChar10',
75  'InXMLNCNameChar11',  'InXMLNCNameChar11',
# Line 180  my $r; Line 180  my $r;
180  {  {
181    
182  my  my
183  ($prefix, $lname) = ref $qualifiedName eq 'ARRAY'  ($prefix, $lname);
184                           ? @$qualifiedName  if (ref $qualifiedName eq 'ARRAY') {
185                           : split /:/, $qualifiedName, 2;    ($prefix, $lname) = @$qualifiedName;
186  ($prefix, $lname) = (    $qualifiedName = defined $prefix ? $prefix.':'.$lname : $lname;
187    } else {
188      ($prefix, $lname) = split /:/, $qualifiedName, 2;
189      ($prefix, $lname) = (
190  undef  undef
191  , $prefix) unless defined $lname;  , $prefix) unless defined $lname;
192  $qualifiedName = defined $prefix ? $prefix.':'.$lname : $lname;  }
193    
194  if ($self->  if ($self->
195  strict_error_checking  strict_error_checking
# Line 312  report Message::DOM::DOMCore::ManakaiDOM Line 315  report Message::DOM::DOMCore::ManakaiDOM
315  my $class =  my $class =
316  'Message::DOM::Element::ManakaiDOMElement'  'Message::DOM::Element::ManakaiDOMElement'
317  ;  ;
318  CLS: {  my $nsuri = defined $namespaceURI ? $namespaceURI : '';
   my $nsuri = defined $namespaceURI ? $namespaceURI : '';  
319    
320    ## Use cases:  ## Use cases:
321    ##   - |html5:a| element type  ##   - |html5:a| element type
322    ##   - |html5:*| element types  ##   - |html5:*| element types
323    A: for my $nm (  A: for my $nm (
324      [$nsuri, $lname],    [$nsuri, $lname],
325      [$nsuri, '*'],    [$nsuri, '*'],
326    ) {  ) {
327      unless ($Message::DOM::Element::ElementClass    unless ($Message::DOM::Element::ElementClass
328          ->{$nm->[0]}->{$nm->[1]}) {
329        if ($Message::Util::AutoLoad::Registry::ElementType
330          ->{$nm->[0]}->{$nm->[1]}) {          ->{$nm->[0]}->{$nm->[1]}) {
331        if ($Message::Util::AutoLoad::Registry::ElementType        eval qq{require
332            ->{$nm->[0]}->{$nm->[1]}) {            $Message::Util::AutoLoad::Registry::ElementType->{
333          eval qq{require            $nm->[0]}->{$nm->[1]}->{module}};
334              $Message::Util::AutoLoad::Registry::ElementType->{        die $@ if $@;
             $nm->[0]}->{$nm->[1]}->{module}};  
         die $@ if $@;  
       }  
335      }      }
336      }
337    
338      if ($Message::DOM::Element::ElementClass    if ($Message::DOM::Element::ElementClass
339          ->{$nm->[0]}->{$nm->[1]}) {        ->{$nm->[0]}->{$nm->[1]}) {
340        $class = $Message::DOM::Element::ElementClass      $class = $Message::DOM::Element::ElementClass
341            ->{$nm->[0]}->{$nm->[1]};          ->{$nm->[0]}->{$nm->[1]};
342        last A;      last A;
343      }    }
344    } # A  } # A
 } # CLS  
345    
346  $r = bless \{  $r = bless \{
347        
# Line 352  $r = bless \{ Line 353  $r = bless \{
353        
354  'attr'  'attr'
355   => {},   => {},
356      
357    'sattrs'
358     => [],
359  }, $class;  }, $class;
360  Scalar::Util::weaken ($$r->{  Scalar::Util::weaken ($$r->{
361  'od'  'od'
# Line 454  get_parameter Line 458  get_parameter
458  doctype  doctype
459  ;  ;
460      last XDA unless defined $__doctype;      last XDA unless defined $__doctype;
     $__doctype = $__doctype->  
 get_feature  
461    
                              (  
 'http://suika.fam.cx/www/2006/feature/XDoctype'  
  => '3.0');  
     last XDA unless defined $__doctype;  
462      my $__et = $__doctype->      my $__et = $__doctype->
463  get_element_type_definition_node  get_element_type_definition_node
464    
# Line 1050  $r} Line 1048  $r}
1048  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDocumentElement>}->{has_feature} = {};  $Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Element::ManakaiDOMDocumentElement>}->{has_feature} = {};
1049  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDocumentElement>} = 0;  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMDocumentElement>} = 0;
1050  package Message::DOM::IF::Element;  package Message::DOM::IF::Element;
1051  our $VERSION = 20061231.0025;  our $VERSION = 20061231.0208;
1052  package Message::DOM::Element::ManakaiDOMElement;  package Message::DOM::Element::ManakaiDOMElement;
1053  our $VERSION = 20061231.0025;  our $VERSION = 20061231.0208;
1054  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
1055  'Message::DOM::IF::Element',  'Message::DOM::IF::Element',
1056  'Message::DOM::IF::Node';  'Message::DOM::IF::Node';
# Line 3031  local $Error::Depth = $Error::Depth + 1; Line 3029  local $Error::Depth = $Error::Depth + 1;
3029      $__anode = $od->      $__anode = $od->
3030  create_attribute  create_attribute
3031   ($name);   ($name);
3032        CORE::delete $$self->{
3033    'sattrs'
3034    };
3035      my $__attrs = $$self->{      my $__attrs = $$self->{
3036  'attr'  'attr'
3037  };  };
# Line 3359  local $Error::Depth = $Error::Depth + 1; Line 3360  local $Error::Depth = $Error::Depth + 1;
3360  create_attribute_ns  create_attribute_ns
3361    
3362                                  ($namespaceURI, [$prefix, $localName]);                                  ($namespaceURI, [$prefix, $localName]);
3363        CORE::delete $$self->{
3364    'sattrs'
3365    };
3366      my $__attrs = ${$self}->{      my $__attrs = ${$self}->{
3367  'attr'  'attr'
3368  };  };
# Line 3521  $nsuri = '' unless defined $nsuri; Line 3525  $nsuri = '' unless defined $nsuri;
3525  my $ln = $newAttr->  my $ln = $newAttr->
3526  local_name  local_name
3527  ;  ;
3528    CORE::delete $$self->{
3529    'sattrs'
3530    };
3531  my $attrs = $$self->{  my $attrs = $$self->{
3532  'attr'  'attr'
3533  };  };
# Line 3605  $nsuri = '' unless defined $nsuri; Line 3612  $nsuri = '' unless defined $nsuri;
3612  my $ln = $newAttr->  my $ln = $newAttr->
3613  local_name  local_name
3614  ;  ;
3615    CORE::delete $$self->{
3616    'sattrs'
3617    };
3618  my $attrs = $$self->{  my $attrs = $$self->{
3619  'attr'  'attr'
3620  };  };
# Line 3710  $name) { Line 3720  $name) {
3720  $attr = $__node;  $attr = $__node;
3721          $list = $__attr->{$__ns};          $list = $__attr->{$__ns};
3722          $key = $__ln;          $key = $__ln;
3723            CORE::delete ${$__node}->{
3724    'sattrs'
3725    };
3726                
3727    
3728    
# Line 3812  set_parameter Line 3825  set_parameter
3825  );  );
3826          ADD: {          ADD: {
3827            my $__attr;            my $__attr;
3828              CORE::delete $$self->{
3829    'sattrs'
3830    };
3831            my $__attrs = ${$self}->{            my $__attrs = ${$self}->{
3832  'attr'  'attr'
3833  };  };
# Line 3952  $list = $__attrs->{defined $namespaceURI Line 3968  $list = $__attrs->{defined $namespaceURI
3968  if (defined $list and defined $list->{$localName}) {  if (defined $list and defined $list->{$localName}) {
3969    $attr = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}    $attr = $__attrs->{defined $namespaceURI ? $namespaceURI : ''}
3970                          ->{$localName};                          ->{$localName};
3971      CORE::delete ${$self}->{
3972    'sattrs'
3973    };
3974  }  }
3975    
3976    
# Line 4048  set_parameter Line 4067  set_parameter
4067  );  );
4068          ADD: {          ADD: {
4069            my $__attr;            my $__attr;
4070              CORE::delete $$self->{
4071    'sattrs'
4072    };
4073            my $__attrs = ${$self}->{            my $__attrs = ${$self}->{
4074  'attr'  'attr'
4075  };  };
# Line 4178  my $ln = $oldAttr-> Line 4200  my $ln = $oldAttr->
4200  local_name  local_name
4201  ;  ;
4202  FIND: {  FIND: {
4203      CORE::delete $$self->{
4204    'sattrs'
4205    };
4206    my $attrs = $$self->{    my $attrs = $$self->{
4207  'attr'  'attr'
4208  };  };
# Line 4274  set_parameter Line 4299  set_parameter
4299  );  );
4300          ADD: {          ADD: {
4301            my $__attr;            my $__attr;
4302              CORE::delete $$self->{
4303    'sattrs'
4304    };
4305            my $__attrs = ${$self}->{            my $__attrs = ${$self}->{
4306  'attr'  'attr'
4307  };  };
# Line 4766  $Message::DOM::DOMFeature::ClassInfo->{q Line 4794  $Message::DOM::DOMFeature::ClassInfo->{q
4794  '1'}};  '1'}};
4795  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMElement>} = 14.1;  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMElement>} = 14.1;
4796  package Message::DOM::IF::Attr;  package Message::DOM::IF::Attr;
4797  our $VERSION = 20061231.0025;  our $VERSION = 20061231.0208;
4798  package Message::DOM::Element::ManakaiDOMAttr;  package Message::DOM::Element::ManakaiDOMAttr;
4799  our $VERSION = 20061231.0025;  our $VERSION = 20061231.0208;
4800  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
4801  'Message::DOM::IF::Attr',  'Message::DOM::IF::Attr',
4802  'Message::DOM::IF::Node';  'Message::DOM::IF::Node';
# Line 6664  $Message::DOM::DOMFeature::ClassInfo->{q Line 6692  $Message::DOM::DOMFeature::ClassInfo->{q
6692  '1'}};  '1'}};
6693  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMAttr>} = 14.1;  $Message::DOM::ClassPoint{q<Message::DOM::Element::ManakaiDOMAttr>} = 14.1;
6694  package Message::DOM::IF::TypeInfo;  package Message::DOM::IF::TypeInfo;
6695  our $VERSION = 20061231.0026;  our $VERSION = 20061231.0208;
6696  sub DERIVATION_RESTRICTION () {  sub DERIVATION_RESTRICTION () {
6697  1}  1}
6698  sub DERIVATION_EXTENSION () {  sub DERIVATION_EXTENSION () {
# Line 6674  sub DERIVATION_UNION () { Line 6702  sub DERIVATION_UNION () {
6702  sub DERIVATION_LIST () {  sub DERIVATION_LIST () {
6703  8}  8}
6704  package Message::DOM::Element::ManakaiDOMDTDTypeInfo;  package Message::DOM::Element::ManakaiDOMDTDTypeInfo;
6705  our $VERSION = 20061231.0026;  our $VERSION = 20061231.0208;
6706  push our @ISA, 'Message::DOM::IF::TypeInfo';  push our @ISA, 'Message::DOM::IF::TypeInfo';
6707  sub type_name ($;$) {  sub type_name ($;$) {
6708  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24