|
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;
|
|
|
14 private _direct property _docClass => prop_all
|
|
|
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';
|
|
|
30
|
|
|
31 my $node;
|
|
|
32 if (! $this->{$Document}) {
|
|
|
33 $node = $this->{$Document} = $this->{$_docClass}->new(nodeName => $nodeName,%props);
|
|
|
34 } else {
|
|
|
35 die new IMPL::InvalidOperationException('Can\t create a second top level element') unless $this->{$_nodeCurrent};
|
|
|
36 $node = $this->{$Document}->Create($nodeName,$class,\%props);
|
|
|
37 push @{$this->{$_nodesPath}}, $this->{$_nodeCurrent};
|
|
|
38 $this->{$_nodeCurrent}->appendChild($node);
|
|
|
39 }
|
|
|
40
|
|
|
41 $this->{$_nodeCurrent} = $node;
|
|
|
42
|
|
|
43 return $node;
|
|
|
44 } else {
|
|
102
|
45 warn $nodeName;
|
|
49
|
46 die new IMPL::InvalidOperationException("The specified node is undefined", $nodeName);
|
|
|
47 }
|
|
|
48 }
|
|
|
49
|
|
|
50 sub Back {
|
|
|
51 my ($this) = @_;
|
|
|
52
|
|
|
53 $this->{$_schemaNavi}->SchemaBack();
|
|
|
54 $this->{$_nodeCurrent} = pop @{$this->{$_nodesPath}};
|
|
|
55 }
|
|
|
56
|
|
|
57 1;
|
|
|
58
|
|
|
59 __END__
|
|
64
|
60
|
|
49
|
61 =pod
|
|
|
62
|
|
64
|
63 =head1 NAME
|
|
|
64
|
|
|
65 C< IMPL::DOM::Navigator::Builder > - Навигатор, строящий документ по указанной схеме.
|
|
|
66
|
|
49
|
67 =head1 SYNOPSIS
|
|
|
68
|
|
64
|
69 =begin code
|
|
|
70
|
|
49
|
71 my $builder = new IMPL::DOM::Navigator::Builder(new MyApp::Document,$schema);
|
|
|
72 my $reader = new IMPL::DOM::XMLReader(Navigator => $builder);
|
|
|
73
|
|
|
74 $reader->ParseFile("document.xml");
|
|
|
75
|
|
|
76 my @errors = $schema->Validate($builder->Document);
|
|
|
77
|
|
64
|
78 =end code
|
|
|
79
|
|
49
|
80 =head1 DESCRIPTION
|
|
|
81
|
|
|
82 Построитель DOM документов по указанной схеме. Обычно используется в связке
|
|
|
83 с объектами для чтения такими как C<IMPL::DOM::XMLReader>.
|
|
|
84
|
|
|
85 =head1 METHODS
|
|
|
86
|
|
|
87 =over
|
|
|
88
|
|
64
|
89 =item C< CTOR($classDocument,$schema) >
|
|
49
|
90
|
|
64
|
91 Создает новый объект, принимает на вход класс документа (или фабрику, например
|
|
|
92 L<IMPL::Object::Factory>) и схему. В процессе процедуры построения документа
|
|
|
93 будет создан объект документа.
|
|
49
|
94
|
|
64
|
95 =item C< NavigateCreate($nodeName,\%props) >
|
|
49
|
96
|
|
|
97 Создает новый узел с указанным именем и переходит в него. В случае если в схеме
|
|
|
98 подходящий узел не найден, то вызывается исключение.
|
|
|
99
|
|
|
100 При этом по имени узла ищется его схема, после чего определяется класс для
|
|
64
|
101 создания экземпляра и созданный узел доавляется в документ. При создании
|
|
|
102 нового узла используется метод документа C<< IMPL::DOM::Document->Create >>
|
|
49
|
103
|
|
64
|
104 Свойства узла передаются при создании через параметр C<props>, но имя создаваемого
|
|
|
105 узла НЕ может быть переопределено свойством C<nodeName>, оно будет проигнорировано.
|
|
|
106
|
|
|
107 =item C< Document >
|
|
|
108
|
|
|
109 Свойство, которое содержит документ по окончании процедурв построения.
|
|
49
|
110
|
|
|
111 =back
|
|
|
112
|
|
|
113 =cut
|
