Mercurial > pub > Impl

annotate Lib/IMPL/DOM/Schema.pm @ 37:c2e7f7c96bcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
performance improvements, DOM reworked (a little)
author Sergey
date Mon, 23 Nov 2009 00:59:06 +0300
parents a8086f85a571
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
1 package IMPL::DOM::Schema;
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
2 use strict;
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
3 use warnings;
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
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;
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
13 require IMPL::DOM::Schema::Property;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
14 require IMPL::DOM::Schema::SwitchNode;
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
15
15
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
16 use base qw(IMPL::DOM::Document);
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
17 use IMPL::Class::Property;
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
18 use IMPL::Class::Property::Direct;
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
19
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
20 our %CTOR = (
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
21 'IMPL::DOM::Document' => sub { nodeName => 'schema' }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
22 );
15
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
23
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
24 BEGIN {
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
25 private _direct property _TypesMap => prop_all;
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
26 public _direct property BaseSchemas => prop_get | owner_set;
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
27 private _direct property _Validators => prop_all;
15
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
28 }
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
29
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
30 sub resolveType {
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
31 $_[0]->{$_TypesMap}->{$_[1]};
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
32 }
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
33
37
c2e7f7c96bcd performance improvements, DOM reworked (a little)
Sergey
parents: 34
diff changeset
34 sub Create {
c2e7f7c96bcd performance improvements, DOM reworked (a little)
Sergey
parents: 34
diff changeset
35 my ($this,$nodeName,$class,$refArgs) = @_;
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
36
37
c2e7f7c96bcd performance improvements, DOM reworked (a little)
Sergey
parents: 34
diff changeset
37 die new IMPL::Exception('Invalid node class') unless $class->isa('IMPL::DOM::Schema::Node');
c2e7f7c96bcd performance improvements, DOM reworked (a little)
Sergey
parents: 34
diff changeset
38
c2e7f7c96bcd performance improvements, DOM reworked (a little)
Sergey
parents: 34
diff changeset
39 goto &SUPER::Create;
c2e7f7c96bcd performance improvements, DOM reworked (a little)
Sergey
parents: 34
diff changeset
40 }
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
41
18
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
42 sub Process {
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
43 my ($this) = @_;
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
44
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
45 $this->{$_TypesMap} = { map { $_->type, $_ } $this->selectNodes(sub { $_[0]->nodeName eq 'ComplexType' || $_[0]->nodeName eq 'SimpleType' } ) };
18
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
46 }
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
47
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
48 sub Validate {
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
49 my ($this,$node) = @_;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
50
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
51 if ( my ($schemaNode) = $this->selectNodes(sub { $_[0]->name eq $node->nodeName })) {
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
52 $schemaNode->Validate($node);
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
53 } else {
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
54 return new IMPL::DOM::Schema::ValidationError(Message=> "A specified document doesn't match the schema");
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
55 }
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
56 }
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
57
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
58 my $schema;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
59
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
60 sub MetaSchema {
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
61
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
62 return $schema if $schema;
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
63
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
64 $schema = new IMPL::DOM::Schema;
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
65
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
66 $schema->appendRange(
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
67 IMPL::DOM::Schema::ComplexNode->new(name => 'schema')->appendRange(
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
68 IMPL::DOM::Schema::NodeSet->new()->appendRange(
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
69 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type => 'ComplexNode', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
70 IMPL::DOM::Schema::Node->new(name => 'ComplexType', type => 'ComplexType', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
71 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type => 'SimpleNode', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
72 IMPL::DOM::Schema::Node->new(name => 'SimpleType', type => 'SimpleType', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
73 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'),
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
74 IMPL::DOM::Schema::SimpleNode->new(name => 'Include', minOccur => 0, maxOccur=>'unbounded')->appendRange(
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
75 IMPL::DOM::Schema::Property->new(name => 'source')
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
76 )
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
77 ),
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
78 ),
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
79 IMPL::DOM::Schema::ComplexType->new(type => 'NodeSet', nativeType => 'IMPL::DOM::Schema::NodeSet')->appendRange(
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
80 IMPL::DOM::Schema::NodeSet->new()->appendRange(
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
81 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type => 'ComplexNode', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
82 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type => 'SimpleNode', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
83 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'),
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
84 IMPL::DOM::Schema::SwitchNode->new(minOccur => 0, maxOccur => 1)->appendRange(
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
85 IMPL::DOM::Schema::SimpleNode->new(name => 'AnyNode'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
86 IMPL::DOM::Schema::Node->new(name => 'SwitchNode',type => 'SwitchNode')
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
87 )
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
88 )
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
89 ),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
90 IMPL::DOM::Schema::ComplexType->new(type => 'SwitchNode', nativeType => 'IMPL::DOM::Schema::SwitchNode')->appendRange(
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
91 IMPL::DOM::Schema::NodeSet->new()->appendRange(
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
92 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type=>'ComplexNode', minOccur => 0, maxOccur=>'unbounded'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
93 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type=>'SimpleNode', minOccur => 0, maxOccur=>'unbounded'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
94 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'),
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
95 )
17
Sergey
parents: 16
diff changeset
96 ),
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
97 IMPL::DOM::Schema::ComplexType->new(type => 'NodeList', nativeType => 'IMPL::DOM::Schema::NodeList')->appendRange(
17
Sergey
parents: 16
diff changeset
98 IMPL::DOM::Schema::NodeSet->new()->appendRange(
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
99 IMPL::DOM::Schema::Node->new(name => 'ComplexNode', type => 'ComplexNode', minOccur => 0, maxOccur=>'unbounded'),
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
100 IMPL::DOM::Schema::Node->new(name => 'SimpleNode', type => 'SimpleNode', minOccur => 0, maxOccur=>'unbounded'),
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
101 IMPL::DOM::Schema::Node->new(name => 'SwitchNode',type => 'SwitchNode', minOccur => 0, maxOccur=>'unbounded'),
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
102 IMPL::DOM::Schema::SimpleNode->new(name => 'Node', minOccur => 0, maxOccur=>'unbounded'),
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
103 IMPL::DOM::Schema::SimpleNode->new(name => 'AnyNode', minOccur => 0, maxOccur=>'unbounded'),
17
Sergey
parents: 16
diff changeset
104 )
Sergey
parents: 16
diff changeset
105 ),
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
106 IMPL::DOM::Schema::ComplexType->new(type => 'ComplexType', nativeType => 'IMPL::DOM::Schema::ComplexType')->appendRange(
17
Sergey
parents: 16
diff changeset
107 IMPL::DOM::Schema::NodeList->new()->appendRange(
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
108 IMPL::DOM::Schema::SwitchNode->new()->appendRange(
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
109 IMPL::DOM::Schema::Node->new(name => 'NodeSet', type => 'NodeSet'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
110 IMPL::DOM::Schema::Node->new(name => 'NodeList',type => 'NodeList'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
111 ),
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
112 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0, type=>'Validator')
21
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
113 ),
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
114 new IMPL::DOM::Schema::Property(name => 'type')
17
Sergey
parents: 16
diff changeset
115 ),
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
116 IMPL::DOM::Schema::ComplexType->new(type => 'ComplexNode', nativeType => 'IMPL::DOM::Schema::ComplexNode')->appendRange(
17
Sergey
parents: 16
diff changeset
117 IMPL::DOM::Schema::NodeList->new()->appendRange(
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
118 IMPL::DOM::Schema::SwitchNode->new()->appendRange(
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
119 IMPL::DOM::Schema::Node->new(name => 'NodeSet', type => 'NodeSet'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
120 IMPL::DOM::Schema::Node->new(name => 'NodeList',type => 'NodeList'),
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
121 ),
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
122 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0, type=>'Validator')
21
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
123 ),
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
124 new IMPL::DOM::Schema::Property(name => 'name')
17
Sergey
parents: 16
diff changeset
125 ),
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
126 IMPL::DOM::Schema::ComplexType->new(type => 'SimpleType', nativeType => 'IMPL::DOM::Schema::SimpleType')->appendRange(
17
Sergey
parents: 16
diff changeset
127 IMPL::DOM::Schema::NodeSet->new()->appendRange(
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
128 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0, type=>'Validator')
21
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
129 ),
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
130 new IMPL::DOM::Schema::Property(name => 'type')
17
Sergey
parents: 16
diff changeset
131 ),
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
132 IMPL::DOM::Schema::ComplexType->new(type => 'SimpleNode', nativeType => 'IMPL::DOM::Schema::SimpleNode')->appendRange(
17
Sergey
parents: 16
diff changeset
133 IMPL::DOM::Schema::NodeSet->new()->appendRange(
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
134 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0, type=>'Validator')
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
135 ),
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
136 new IMPL::DOM::Schema::Property(name => 'name')
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
137 ),
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
138 IMPL::DOM::Schema::ComplexType->new(type => 'Validator', nativeType => 'IMPL::DOM::Schema::Validator')->appendRange(
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
139 IMPL::DOM::Schema::NodeList->new()->appendRange(
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 18
diff changeset
140 IMPL::DOM::Schema::AnyNode->new(maxOccur => 'unbounded', minOccur => 0)
21
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
141 ),
fafe56cfcd69 temp commit
Sergey
parents: 20
diff changeset
142 new IMPL::DOM::Schema::Property(name => 'name')
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
143 )
17
Sergey
parents: 16
diff changeset
144 );
Sergey
parents: 16
diff changeset
145
18
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
146 $schema->Process;
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
147
17
Sergey
parents: 16
diff changeset
148 return $schema;
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
149 }
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
150
15
16795016e70b Dom schema in progress
Sergey
parents:
diff changeset
151 1;
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
152
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
153 __END__
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
154
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
155 =pod
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
156
18
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
157 =head1 DESCRIPTION
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
158
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
159 . C<IMPL::DOM::Document>
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
160
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
161 =head1 METHODS
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
162
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
163 =over
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
164
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
165 =item C<< $obj->Process() >>
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
166
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
167 .
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
168
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
169 =item C<< $obj->ResolveType($typeName) >>
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
170
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
171 c C<$typeName>.
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
172
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
173 =back
818c74b038ae DOM Schema + tests
Sergey
parents: 17
diff changeset
174
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
175 =head1 DESCRIPTION
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
176
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
177 DOM - , ,
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
178 .
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
179
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
180 =head1 META SCHEMA
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
181
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
182 ,
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
183
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
184 <schema>
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
185 <ComplexNode name="schema">
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
186 <NodeSet>
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
187 <Node minOcuur="0" maxOccur="unbounded" name="ComplexNode" type="ComplexNode"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
188 <Node minOcuur="0" maxOccur="unbounded" name="SimpleNode" type="SimpleNode"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
189 <Node minOcuur="0" maxOccur="unbounded" name="ComplexType" type="ComplexType"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
190 <Node minOcuur="0" maxOccur="unbounded" name="SimpleType" type="SimpleType"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
191 <SimpleNode minOcuur="0" maxOccur="unbounded" name="Node"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
192 <SimpleNode minOcuur="0" maxOccur="unbounded" name="Include"/>
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
193 </NodeSet>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
194 </ComplexNode>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
195
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
196 <ComplexType type="NodeContainer">
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
197 <NodeSet>
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
198 <Node minOcuur="0" maxOccur="unbounded" name="ComplexNode" type="ComplexNode"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
199 <Node minOcuur="0" maxOccur="unbounded" name="SimpleNode" type="SimpleNode"/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
200 <SimpleNode minOcuur="0" maxOccur="unbounded" name="Node"/>
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
201 </NodeSet>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
202 </ComplexType>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
203
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
204 <ComplexType type="ComplexType">
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
205 <NodeList>
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
206 <Node name="NodeSet" type="NodeContainer" minOcuur=0/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
207 <Node name="NodeList" type="NodeContainer" minOccur=0/>
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
208 <AnyNode minOccur="0" maxOccur="unbounded" type="Validator"/>
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
209 </NodeList>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
210 </ComplexType>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
211
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
212 <ComplexType type="ComplexNode">
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
213 <NodeList>
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
214 <Node name="NodeSet" type="NodeContainer" minOcuur=0/>
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
215 <Node name="NodeList" type="NodeContainer" minOccur=0/>
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
216 <AnyNode minOccur="0" maxOccur="unbounded" type="Validator"/>
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
217 </NodeList>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
218 </ComplexType>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
219
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
220 <ComplexType type="SimpleNode">
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
221 <NodeSet>
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
222 <AnyNode minOccur=0 maxOccur="unbounded" type="Validator"/>
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
223 </NodeSet>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
224 </ComplexType>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
225
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
226 <ComplexType type="SimpleType">
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
227 <NodeSet>
34
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
228 <AnyNode minOccur=0 maxOccur="unbounded" type="Validator"/>
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
229 </NodeSet>
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
230 </ComplexType>
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
231
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
232 <ComplexType type="Validator">
a8086f85a571 Dom Builder
Sergey
parents: 24
diff changeset
233 <NodeSet>
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
234 <AnyNode minOccur=0 maxOccur="unbounded"/>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
235 </NodeSet>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
236 </ComplexType>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
237
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
238 </schema>
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
239
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 15
diff changeset
240 =cut