|
49
|
1 package IMPL::DOM::Navigator::Builder;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::Object);
|
|
|
6 use IMPL::Class::Property;
|
|
|
7 use IMPL::Class::Property::Direct;
|
|
|
8 require IMPL::DOM::Navigator::SchemaNavigator;
|
|
|
9
|
|
|
10 BEGIN {
|
|
|
11 private _direct property _schemaNavi => prop_all;
|
|
|
12 private _direct property _nodesPath => prop_all;
|
|
|
13 private _direct property _nodeCurrent => prop_all;
|
|
103
|
14 private _direct property _docClass => prop_all;
|
|
49
|
15 public _direct property Document => prop_get | owner_set;
|
|
|
16 }
|
|
|
17
|
|
|
18 sub CTOR {
|
|
|
19 my ($this,$docClass,$schema) = @_;
|
|
|
20
|
|
|
21 $this->{$_docClass} = $docClass;
|
|
|
22 $this->{$_schemaNavi} = $schema ? IMPL::DOM::Navigator::SchemaNavigator->new($schema) : undef;
|
|
|
23 }
|
|
|
24
|
|
|
25 sub NavigateCreate {
|
|
|
26 my ($this,$nodeName,%props) = @_;
|
|
|
27
|
|
|
28 if (my $schemaNode = $this->{$_schemaNavi}->NavigateName($nodeName)) {
|
|
|
29 my $class = $schemaNode->can('nativeType') ? $schemaNode->nativeType : 'IMPL::DOM::Node';
|
|
103
|
30 $this->inflateProperties($schemaNode,\%props);
|
|
49
|
31
|
|
|
32 my $node;
|
|
|
33 if (! $this->{$Document}) {
|
|
|
34 $node = $this->{$Document} = $this->{$_docClass}->new(nodeName => $nodeName,%props);
|
|
|
35 } else {
|
|
|
36 die new IMPL::InvalidOperationException('Can\t create a second top level element') unless $this->{$_nodeCurrent};
|
|
|
37 $node = $this->{$Document}->Create($nodeName,$class,\%props);
|
|
|
38 push @{$this->{$_nodesPath}}, $this->{$_nodeCurrent};
|
|
|
39 $this->{$_nodeCurrent}->appendChild($node);
|
|
|
40 }
|
|
|
41
|
|
|
42 $this->{$_nodeCurrent} = $node;
|
|
|
43
|
|
|
44 return $node;
|
|
|
45 } else {
|
|
|
46 die new IMPL::InvalidOperationException("The specified node is undefined", $nodeName);
|
|
|
47 }
|
|
|
48 }
|
|
|
49
|
|
103
|
50 sub inflateProperties {
|
|
|
51 my ($this,$schemaNode,$refProps) = @_;
|
|
|
52
|
|
|
53 $refProps->{$_->name} = $_->inflator->new($refProps->{$_->name})
|
|
|
54 foreach $schemaNode->selectNodes(
|
|
|
55 sub {
|
|
|
56 $_->nodeName eq 'Property' and exists $refProps->{$_->name} and $_->inflator
|
|
|
57 }
|
|
|
58 );
|
|
|
59 }
|
|
|
60
|
|
|
61 sub inflateValue {
|
|
|
62 my ($this,$value) = @_;
|
|
|
63 my $schemaNode = $this->{$_schemaNavi}->Current;
|
|
|
64 if ($schemaNode->can('inflator') and my $inflator = $schemaNode->inflator) {
|
|
|
65 return $inflator->new($value);
|
|
|
66 } else {
|
|
|
67 return $value;
|
|
|
68 }
|
|
|
69 }
|
|
|
70
|
|
49
|
71 sub Back {
|
|
|
72 my ($this) = @_;
|
|
|
73
|
|
|
74 $this->{$_schemaNavi}->SchemaBack();
|
|
|
75 $this->{$_nodeCurrent} = pop @{$this->{$_nodesPath}};
|
|
|
76 }
|
|
|
77
|
|
|
78 1;
|
|
|
79
|
|
|
80 __END__
|
|
64
|
81
|
|
49
|
82 =pod
|
|
|
83
|
|
64
|
84 =head1 NAME
|
|
|
85
|
|
|
86 C< IMPL::DOM::Navigator::Builder > - Навигатор, строящий документ по указанной схеме.
|
|
|
87
|
|
49
|
88 =head1 SYNOPSIS
|
|
|
89
|
|
64
|
90 =begin code
|
|
|
91
|
|
49
|
92 my $builder = new IMPL::DOM::Navigator::Builder(new MyApp::Document,$schema);
|
|
|
93 my $reader = new IMPL::DOM::XMLReader(Navigator => $builder);
|
|
|
94
|
|
|
95 $reader->ParseFile("document.xml");
|
|
|
96
|
|
|
97 my @errors = $schema->Validate($builder->Document);
|
|
|
98
|
|
64
|
99 =end code
|
|
|
100
|
|
49
|
101 =head1 DESCRIPTION
|
|
|
102
|
|
|
103 Построитель DOM документов по указанной схеме. Обычно используется в связке
|
|
|
104 с объектами для чтения такими как C<IMPL::DOM::XMLReader>.
|
|
|
105
|
|
|
106 =head1 METHODS
|
|
|
107
|
|
|
108 =over
|
|
|
109
|
|
64
|
110 =item C< CTOR($classDocument,$schema) >
|
|
49
|
111
|
|
64
|
112 Создает новый объект, принимает на вход класс документа (или фабрику, например
|
|
|
113 L<IMPL::Object::Factory>) и схему. В процессе процедуры построения документа
|
|
|
114 будет создан объект документа.
|
|
49
|
115
|
|
64
|
116 =item C< NavigateCreate($nodeName,\%props) >
|
|
49
|
117
|
|
|
118 Создает новый узел с указанным именем и переходит в него. В случае если в схеме
|
|
|
119 подходящий узел не найден, то вызывается исключение.
|
|
|
120
|
|
|
121 При этом по имени узла ищется его схема, после чего определяется класс для
|
|
64
|
122 создания экземпляра и созданный узел доавляется в документ. При создании
|
|
|
123 нового узла используется метод документа C<< IMPL::DOM::Document->Create >>
|
|
49
|
124
|
|
64
|
125 Свойства узла передаются при создании через параметр C<props>, но имя создаваемого
|
|
|
126 узла НЕ может быть переопределено свойством C<nodeName>, оно будет проигнорировано.
|
|
|
127
|
|
|
128 =item C< Document >
|
|
|
129
|
|
|
130 Свойство, которое содержит документ по окончании процедурв построения.
|
|
49
|
131
|
|
|
132 =back
|
|
|
133
|
|
|
134 =cut
|
