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

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

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

revision 1.2 by wakaba, Sun Apr 16 12:58:53 2006 UTC revision 1.3 by wakaba, Sun Apr 30 09:48:44 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-04-16T12:54:40+00:00,  ##      at 2006-04-30T08:38:31+00:00,
4  ##      from file "CharacterData.dis",  ##      from file "CharacterData.dis",
5  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.CharacterData>,  ##      module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.CharacterData>,
6  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.  ##      for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest>.
# Line 10  require Message::DOM::DOMCore; Line 10  require Message::DOM::DOMCore;
10  require Message::DOM::TreeCore;  require Message::DOM::TreeCore;
11  require Message::Util::Error::DOMException;  require Message::Util::Error::DOMException;
12  package Message::DOM::CharacterData;  package Message::DOM::CharacterData;
13  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
14  package Message::DOM::IFLatest::CharacterData;  package Message::DOM::IFLatest::CharacterData;
15  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
16  package Message::DOM::CharacterData::ManakaiDOMCharacterData;  package Message::DOM::CharacterData::ManakaiDOMCharacterData;
17  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
18  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',  push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode',
19  'Message::DOM::IF::CharacterData',  'Message::DOM::IF::CharacterData',
20  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 962  $Message::Util::Grove::ClassProp{q<Messa Line 962  $Message::Util::Grove::ClassProp{q<Messa
962  'w0',  'w0',
963  ['od']};  ['od']};
964  package Message::DOM::IFLatest::Text;  package Message::DOM::IFLatest::Text;
965  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
966  package Message::DOM::CharacterData::ManakaiDOMText;  package Message::DOM::CharacterData::ManakaiDOMText;
967  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
968  push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',  push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',
969  'Message::DOM::IF::CharacterData',  'Message::DOM::IF::CharacterData',
970  'Message::DOM::IF::Node',  'Message::DOM::IF::Node',
# Line 1169  $self->{ Line 1169  $self->{
1169  }  }
1170  sub whole_text ($;$) {  sub whole_text ($;$) {
1171  if (@_ == 1) {my ($self) = @_;  if (@_ == 1) {my ($self) = @_;
1172  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'whole_text';  my $r = '';
1173    
1174    {
1175    
1176    
1177    {
1178    
1179    local $Error::Depth = $Error::Depth + 1;
1180    
1181    {
1182    
1183    
1184      require
1185    Message::DOM::Traversal;
1186      my $doc = $self->
1187    owner_document
1188    ;
1189      my $doctrv = $doc->
1190    get_feature
1191     (Traversal => '2.0');
1192      my $tw1 = $doctrv->
1193    create_tree_walker
1194    
1195                           ($doc,
1196    '4294967295'
1197    , sub {
1198                             ($_[1]->
1199    node_type
1200    
1201                                  ==
1202    '5'
1203    )
1204                               ?
1205    '3'
1206                               :
1207    
1208    '1'
1209    
1210                           },
1211    1
1212    );
1213      $tw1->
1214    current_node
1215     ($self);
1216      my $tw2 = $tw1->clone;
1217      $r = $self->
1218    node_value
1219    ;
1220    
1221      S: while (defined (my $node = $tw1->
1222    previous_sibling
1223    )) {
1224        my $nt = $node->
1225    node_type
1226    ;
1227        if ($nt ==
1228    '3' or
1229            
1230    $nt ==
1231    '4'
1232    ) {
1233          $r = $node->
1234    node_value
1235     . $r;
1236        } else {
1237          last S;
1238        }
1239      } # S
1240    
1241      S: while (defined (my $node = $tw2->
1242    next_sibling
1243    )) {
1244        my $nt = $node->
1245    node_type
1246    ;
1247        if ($nt ==
1248    '3' or
1249            
1250    $nt ==
1251    '4'
1252    ) {
1253          $r .= $node->
1254    node_value
1255    ;
1256        } else {
1257          last S;
1258        }
1259      } # S
1260    
1261    
1262    
1263    }
1264    
1265    
1266    ;}
1267    
1268    ;
1269    
1270    
1271    }
1272    $r;
1273  } else {my ($self) = @_;  } else {my ($self) = @_;
1274  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'whole_text';  report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::DOM::CharacterData::ManakaiDOMText', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'whole_text';
1275  }  }
# Line 1312  $Message::Util::Grove::ClassProp{q<Messa Line 1412  $Message::Util::Grove::ClassProp{q<Messa
1412  'w0',  'w0',
1413  ['od']};  ['od']};
1414  package Message::DOM::IFLatest::Comment;  package Message::DOM::IFLatest::Comment;
1415  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
1416  package Message::DOM::CharacterData::ManakaiDOMComment;  package Message::DOM::CharacterData::ManakaiDOMComment;
1417  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
1418  push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',  push our @ISA, 'Message::DOM::CharacterData::ManakaiDOMCharacterData',
1419  'Message::DOM::IF::CharacterData',  'Message::DOM::IF::CharacterData',
1420  'Message::DOM::IF::Comment',  'Message::DOM::IF::Comment',
# Line 1483  $Message::Util::Grove::ClassProp{q<Messa Line 1583  $Message::Util::Grove::ClassProp{q<Messa
1583  'w0',  'w0',
1584  ['od']};  ['od']};
1585  package Message::DOM::IFLatest::StringExtended;  package Message::DOM::IFLatest::StringExtended;
1586  our $VERSION = 20060416.1254;  our $VERSION = 20060430.0838;
1587  for ($Message::DOM::IF::CharacterData::, $Message::DOM::IF::Comment::, $Message::DOM::IF::Node::, $Message::DOM::IF::Text::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::CharacterData::, $Message::DOM::IFLevel1::Comment::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel1::Text::, $Message::DOM::IFLevel2::CharacterData::, $Message::DOM::IFLevel2::Comment::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel2::Text::, $Message::DOM::IFLevel3::CharacterData::, $Message::DOM::IFLevel3::Comment::, $Message::DOM::IFLevel3::Node::, $Message::DOM::IFLevel3::Text::){}  for ($Message::DOM::IF::CharacterData::, $Message::DOM::IF::Comment::, $Message::DOM::IF::Node::, $Message::DOM::IF::Text::, $Message::DOM::IFLatest::Node::, $Message::DOM::IFLevel1::CharacterData::, $Message::DOM::IFLevel1::Comment::, $Message::DOM::IFLevel1::Node::, $Message::DOM::IFLevel1::Text::, $Message::DOM::IFLevel2::CharacterData::, $Message::DOM::IFLevel2::Comment::, $Message::DOM::IFLevel2::Node::, $Message::DOM::IFLevel2::Text::, $Message::DOM::IFLevel3::CharacterData::, $Message::DOM::IFLevel3::Comment::, $Message::DOM::IFLevel3::Node::, $Message::DOM::IFLevel3::Text::){}
1588  ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>  ## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL>
1589  1;  1;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24