Mercurial > pub > Impl
annotate Lib/IMPL/DOM/Schema.pm @ 21:fafe56cfcd69
temp commit
| author | Sergey |
|---|---|
| date | Wed, 30 Sep 2009 10:25:41 +0400 |
| parents | 267460284fb3 |
| children | 7f00786f8210 |
| rev | line source |
|---|---|
| 15 | 1 package IMPL::DOM::Schema; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
5 require IMPL::DOM::Schema::ComplexNode; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
6 require IMPL::DOM::Schema::ComplexType; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
7 require IMPL::DOM::Schema::SimpleNode; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
8 require IMPL::DOM::Schema::SimpleType; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
9 require IMPL::DOM::Schema::Node; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
10 require IMPL::DOM::Schema::AnyNode; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
11 require IMPL::DOM::Schema::NodeList; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
12 require IMPL::DOM::Schema::NodeSet; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
13 |
| 15 | 14 use base qw(IMPL::DOM::Document); |
| 15 use IMPL::Class::Property; | |
| 16 use IMPL::Class::Property::Direct; | |
| 17 | |
| 18 __PACKAGE__->PassThroughArgs; | |
| 19 | |
| 20 BEGIN { | |
| 21 private _direct property _TypesMap => prop_all; | |
| 22 } | |
| 23 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
24 sub resolveType { |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
25 $_[0]->{$_TypesMap}->{$_[1]}; |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
26 } |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
27 |
| 18 | 28 sub Process { |
| 29 my ($this) = @_; | |
| 30 | |
| 31 $this->{$_TypesMap} = { map { $_->type, $_ } grep {$_->isa('IMPL::DOM::Schema::Type')} @{$this->childNodes} }; | |
| 32 } | |
| 33 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
34 sub Validate { |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
35 my ($this,$node) = @_; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
36 |
| 20 | 37 if ( my ($schemaNode) = $this->selectNodes(sub { $_[0]->name eq $node->nodeName })) { |
| 38 $schemaNode->Validate($node); | |
| 39 } else { | |
| 40 return IMPL::DOM::Schema::VaidationError(Message=> "A specified document doesn't match the schema"); | |
| 41 } | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
42 } |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
43 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
44 my $schema; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
45 |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
46 sub MetaSchema { |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
47 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
48 return $schema if $schema; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
49 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
50 $schema = new IMPL::DOM::Schema(nodeName => 'schema'); |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
51 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
52 $schema->appendRange( |
| 20 | 53 IMPL::DOM::Schema::ComplexNode->new(name => 'schema')->appendRange( |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
54 IMPL::DOM::Schema::NodeSet->new()->appendRange( |
| 20 | 55 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type => 'ComplexNode', minOccur => 0, maxOccur=>'unbounded'), |
| 56 IMPL::DOM::Schema::Node->new(name => 'ComplexType', type => 'ComplexType', minOccur => 0, maxOccur=>'unbounded'), | |
| 57 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type => 'SimpleNode', minOccur => 0, maxOccur=>'unbounded'), | |
| 58 IMPL::DOM::Schema::Node->new(name => 'SimpleType', type => 'SimpleType', minOccur => 0, maxOccur=>'unbounded'), | |
| 59 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'), | |
| 60 IMPL::DOM::Schema::SimpleNode->new(name => 'Include', minOccur => 0, maxOccur=>'unbounded') | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
61 ), |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
62 ), |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
63 IMPL::DOM::Schema::ComplexType->new(type => 'NodeSet', nativeType => 'IMPL::DOM::Schema::NodeSet')->appendRange( |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
64 IMPL::DOM::Schema::NodeSet->new()->appendRange( |
| 20 | 65 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type => 'ComplexNode', minOccur => 0, maxOccur=>'unbounded'), |
| 66 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type => 'SimpleNode', minOccur => 0, maxOccur=>'unbounded'), | |
| 67 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'), | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
68 ) |
| 17 | 69 ), |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
70 IMPL::DOM::Schema::ComplexType->new(type => 'NodeList', nativeType => 'IMPL::DOM::Schema::NodeList')->appendRange( |
| 17 | 71 IMPL::DOM::Schema::NodeSet->new()->appendRange( |
| 20 | 72 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type => 'ComplexNode', minOccur => 0, maxOccur=>'unbounded'), |
| 73 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type => 'SimpleNode', minOccur => 0, maxOccur=>'unbounded'), | |
| 74 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'), | |
| 17 | 75 ) |
| 76 ), | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
77 IMPL::DOM::Schema::ComplexType->new(type => 'ComplexType', nativeType => 'IMPL::DOM::Schema::ComplexType')->appendRange( |
| 17 | 78 IMPL::DOM::Schema::NodeList->new()->appendRange( |
| 20 | 79 IMPL::DOM::Schema::Node->new(name => 'NodeSet', minOccur => 0, type => 'NodeSet'), |
| 80 IMPL::DOM::Schema::Node->new(name => 'NodeList', minOccur => 0, type => 'NodeSet'), | |
| 81 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur => 'unbounded') | |
| 21 | 82 ), |
| 83 new IMPL::DOM::Schema::Property(name => 'type') | |
| 17 | 84 ), |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
85 IMPL::DOM::Schema::ComplexType->new(type => 'ComplexNode', nativeType => 'IMPL::DOM::Schema::ComplexNode')->appendRange( |
| 17 | 86 IMPL::DOM::Schema::NodeList->new()->appendRange( |
| 20 | 87 IMPL::DOM::Schema::Node->new(name => 'NodeSet', minOccur => 0, type => 'NodeSet'), |
| 88 IMPL::DOM::Schema::Node->new(name => 'NodeList', minOccur => 0, type => 'NodeSet'), | |
| 89 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur => 'unbounded') | |
| 21 | 90 ), |
| 91 new IMPL::DOM::Schema::Property(name => 'name') | |
| 17 | 92 ), |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
93 IMPL::DOM::Schema::ComplexType->new(type => 'SimpleType', nativeType => 'IMPL::DOM::Schema::SimpleType')->appendRange( |
| 17 | 94 IMPL::DOM::Schema::NodeSet->new()->appendRange( |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
95 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0) |
| 21 | 96 ), |
| 97 new IMPL::DOM::Schema::Property(name => 'type') | |
| 17 | 98 ), |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
99 IMPL::DOM::Schema::ComplexType->new(type => 'SimpleNode', nativeType => 'IMPL::DOM::Schema::SimpleNode')->appendRange( |
| 17 | 100 IMPL::DOM::Schema::NodeSet->new()->appendRange( |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
101 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0) |
| 21 | 102 ), |
| 103 new IMPL::DOM::Schema::Property(name => 'name') | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
104 ) |
| 17 | 105 ); |
| 106 | |
| 18 | 107 $schema->Process; |
| 108 | |
| 17 | 109 return $schema; |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
110 } |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
111 |
| 15 | 112 1; |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
113 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
114 __END__ |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
115 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
116 =pod |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
117 |
| 18 | 118 =head1 DESCRIPTION |
| 119 | |
| 120 . C<IMPL::DOM::Document> | |
| 121 | |
| 122 =head1 METHODS | |
| 123 | |
| 124 =over | |
| 125 | |
| 126 =item C<< $obj->Process() >> | |
| 127 | |
| 128 . | |
| 129 | |
| 130 =item C<< $obj->ResolveType($typeName) >> | |
| 131 | |
| 132 c C<$typeName>. | |
| 133 | |
| 134 =back | |
| 135 | |
| 20 | 136 =head1 DESCRIPTION |
| 137 | |
| 138 DOM - , , | |
| 139 . | |
| 140 | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
141 =head1 META SCHEMA |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
142 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
143 , |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
144 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
145 <schema> |
| 20 | 146 <ComplexNode name="schema"> |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
147 <NodeSet> |
| 20 | 148 <Node minOcuur="0" maxOccur="unbounded" name="ComplexNode" type="ComplexNode"/> |
| 149 <Node minOcuur="0" maxOccur="unbounded" name="SimpleNode" type="SimpleNode"/> | |
| 150 <Node minOcuur="0" maxOccur="unbounded" name="ComplexType" type="ComplexType"/> | |
| 151 <Node minOcuur="0" maxOccur="unbounded" name="SimpleType" type="SimpleType"/> | |
| 152 <SimpleNode minOcuur="0" maxOccur="unbounded" name="Node"/> | |
| 153 <SimpleNode minOcuur="0" maxOccur="unbounded" name="Include"/> | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
154 </NodeSet> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
155 </ComplexNode> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
156 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
157 <ComplexType type="NodeContainer"> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
158 <NodeSet> |
| 20 | 159 <Node minOcuur="0" maxOccur="unbounded" name="ComplexNode" type="ComplexNode"/> |
| 160 <Node minOcuur="0" maxOccur="unbounded" name="SimpleNode" type="SimpleNode"/> | |
| 161 <SimpleNode minOcuur="0" maxOccur="unbounded" name="Node"/> | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
162 </NodeSet> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
163 </ComplexType> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
164 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
165 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
166 <ComplexType type="ComplexType"> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
167 <NodeList> |
| 20 | 168 <Node name="NodeSet" type="NodeContainer" minOcuur=0/> |
| 169 <Node name="NodeList" type="NodeContainer" minOccur=0/> | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
170 <AnyNode minOccur="0" maxOccur="unbounded"/> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
171 </NodeList> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
172 </ComplexType> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
173 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
174 <ComplexType type="ComplexNode"> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
175 <NodeList> |
| 20 | 176 <Node name="NodeSet" type="NodeContainer" minOcuur=0/> |
| 177 <Node name="NodeList" type="NodeContainer" minOccur=0/> | |
|
16
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
178 <AnyNode minOccur="0" maxOccur="unbounded"/> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
179 </NodeList> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
180 </ComplexType> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
181 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
182 <ComplexType type="SimpleNode"> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
183 <NodeSet> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
184 <AnyNode minOccur=0 maxOccur="unbounded"/> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
185 </NodeSet> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
186 </ComplexType> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
187 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
188 <ComplexType type="SimpleType"> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
189 <NodeSet> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
190 <AnyNode minOccur=0 maxOccur="unbounded"/> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
191 </NodeSet> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
192 </ComplexType> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
193 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
194 </schema> |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
195 |
|
75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
Sergey
parents:
15
diff
changeset
|
196 =cut |
