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

Contents of /messaging/manakai/lib/Message/DOM/Notation.pm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.5 - (show annotations) (download)
Sun Jun 17 13:37:40 2007 UTC (17 years, 5 months ago) by wakaba
Branch: MAIN
Changes since 1.4: +58 -9 lines 
++ manakai/t/ChangeLog	17 Jun 2007 13:37:22 -0000
2007-06-17  Wakaba  <wakaba@suika.fam.cx>

	* DOM-Attr.t, DOM-AttributeDefinition.t, DOM-DocumentType.t,
	DOM-Element.t, DOM-Entity.t, DOM-EntityReference.t,
	DOM-Notation.t, DOM-ProcessingInstruction.t: New.

	* DOM-Document.t, DOM-Node.t: Tests for newly-implemented attributes
	and methods are added.

	* Makefile (test-module-dom-old): Renamed from |test-module-dom|.
	(test-module-dom): New.

++ manakai/lib/Message/DOM/ChangeLog	17 Jun 2007 13:34:54 -0000
2007-06-17  Wakaba  <wakaba@suika.fam.cx>

	* Attr.pm (____new): Initialize |specified| as 1.
	(base_uri, manakai_attribute_type, specified): Implemented.
	(prefix): Don't check read-only flag unless |strict_error_checking|.
	(value): Call |text_content| for now.

	* AttributeDefinition.pm (DeclaredValueType, DefaultValueType): Added.
	(declared_type, default_type): Implemented.

	* CharacterData.pm (____new): Allow a scalar reference
	as an input for the |data| attribute.
	(base_uri, manakai_append_text): Implemented.

	* DOMConfiguration.pm (set_parameter): Resetting implemented.

	* DOMDocument.pm (____new): Set default values to
	configuration parameter whose default is true.
	(document_uri, input_encoding): Implemented.
	(all_declarations_processed, manakai_is_html): Implemented.
	(base_uri, manakai_append_text,
	manakai_entity_base_uri, strict_error_checking,
	xml_encoding, xml_version, xml_standalone): Implemented.

	* DOMElement.pm (manakai_base_uri, base_uri): Implemented.
	(get_attribute, get_attribute_node): Alpha version.
	(set_attribute_node, set_attribute_node_ns): Implemented.
	(set_attribute_ns): Accept non-ARRAY qualified name.

	* DOMException.pm (___error_def): |WRONG_DOCUMENT_ERR|,
	|NOT_SUPPORTED_ERR|, and |INUSE_ATTRIBUTE_ERR| are added.

	* DocumentType.pm (public_id, system_id): Implemented.
	(base_uri, declaration_base_uri, manakai_declaration_base_uri,
	manakai_append_text): Implemented.
	(element_types, general_entities, notations,
	set_element_type_definition_node, set_general_entity_node,
	set_notation_node): Alpha version.

	* ElementTypeDefinition.pm (manakai_append_text): Implemented.
	(attribute_definitions, set_attribute_definition_node): Alpha version.

	* Entity.pm (has_replacement_tree, public_id, system_id,
	manakai_declaration_base_uri, manakai_entity_base_uri,
	manakai_entity_uri): Implemented.

	* EntityReference.pm (manakai_expanded, manakai_external): Implemented.
	(base_uri, manakai_entity_base_uri): Implemented.

	* Node.pm (base_uri): Implemented.
	(text_content): Don't check read-only or not
	unless |strict_error_checking|.
	(manakai_append_text): Implemented.
	(get_feature): Alpha.
	(manakai_set_read_only): Implemented.

	* Notation.pm (public_id, system_id, manakai_append_text,
	manakai_declaration_base_uri): Implemented.

	* ProcessingInstruction.pm (manakai_base_uri,
	base_uri, manakai_append_text): Implemented.
1 package Message::DOM::Notation;
2 use strict;
3 our $VERSION=do{my @r=(q$Revision: 1.4 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4 push our @ISA, 'Message::DOM::Node', 'Message::IF::Notation';
5 require Message::DOM::Node;
6
7 sub ____new ($$$) {
8 my $self = shift->SUPER::____new (shift);
9 $$self->{node_name} = $_[0];
10 return $self;
11 } # ____new
12
13 sub AUTOLOAD {
14 my $method_name = our $AUTOLOAD;
15 $method_name =~ s/.*:://;
16 return if $method_name eq 'DESTROY';
17
18 if ({
19 ## Read-only attributes (trivial accessors)
20 node_name => 1,
21 }->{$method_name}) {
22 no strict 'refs';
23 eval qq{
24 sub $method_name (\$) {
25 if (\@_ > 1) {
26 require Carp;
27 Carp::croak (qq<Can't modify read-only attribute>);
28 }
29 return \${\$_[0]}->{$method_name};
30 }
31 };
32 goto &{ $AUTOLOAD };
33 } elsif ({
34 ## Read-write attributes (DOMString, trivial accessors)
35 public_id => 1,
36 system_id => 1,
37 }->{$method_name}) {
38 no strict 'refs';
39 eval qq{
40 sub $method_name (\$;\$) {
41 if (\@_ > 1) {
42 if (\${\$_[0]}->{strict_error_checking} and
43 \${\$_[0]}->{manakai_read_only}) {
44 report Message::DOM::DOMException
45 -object => \$_[0],
46 -type => 'NO_MODIFICATION_ALLOWED_ERR',
47 -subtype => 'READ_ONLY_NODE_ERR';
48 }
49 if (defined \$_[1]) {
50 \${\$_[0]}->{$method_name} = ''.\$_[1];
51 } else {
52 delete \${\$_[0]}->{$method_name};
53 }
54 }
55 return \${\$_[0]}->{$method_name};
56 }
57 };
58 goto &{ $AUTOLOAD };
59 } else {
60 require Carp;
61 Carp::croak (qq<Can't locate method "$AUTOLOAD">);
62 }
63 } # AUTOLOAD
64
65 ## |Node| attributes
66
67 sub child_nodes ($) {
68 require Message::DOM::NodeList;
69 return bless \\($_[0]), 'Message::DOM::NodeList::EmptyNodeList';
70 } # child_nodes
71
72 sub node_name ($); # read-only trivial accessor
73
74 sub node_type () { 12 } # NOTATION_NODE
75
76 sub text_content () { undef }
77
78 ## |Node| methods
79
80 sub manakai_append_text () { }
81
82 ## |Notation| attributes
83
84 sub manakai_declaration_base_uri ($;$) {
85 ## NOTE: Same as |Notation|'s.
86
87 if (@_ > 1) {
88 if (${${$_[0]}->{owner_document}}->{strict_error_checking} and
89 ${$_[0]}->{manakai_read_only}) {
90 report Message::DOM::DOMException
91 -object => $_[0],
92 -type => 'NO_MODIFICATION_ALLOWED_ERR',
93 -subtype => 'READ_ONLY_NODE_ERR';
94 }
95 if (defined $_[1]) {
96 ${$_[0]}->{manakai_declaration_base_uri} = ''.$_[1];
97 } else {
98 delete ${$_[0]}->{manakai_declaration_base_uri};
99 }
100 }
101
102 if (defined wantarray) {
103 if (defined ${$_[0]}->{manakai_declaration_base_uri}) {
104 return ${$_[0]}->{manakai_declaration_base_uri};
105 } else {
106 local $Error::Depth = $Error::Depth + 1;
107 return $_[0]->base_uri;
108 }
109 }
110 } # manakai_declaration_base_uri
111
112 ## NOTE: Setter is a manakai extension.
113 sub public_id ($;$);
114
115 ## NOTE: Setter is a manakai extension.
116 sub system_id ($;$);
117
118 package Message::IF::Notation;
119
120 package Message::DOM::Document;
121
122 sub create_notation ($$) {
123 return Message::DOM::Notation->____new (@_[0, 1]);
124 } # create_notation
125
126 =head1 LICENSE
127
128 Copyright 2007 Wakaba <w@suika.fam.cx>
129
130 This program is free software; you can redistribute it and/or
131 modify it under the same terms as Perl itself.
132
133 =cut
134
135 1;
136 ## $Date: 2007/06/16 15:27:45 $
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24