|
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 {
|
|
|
45 die new IMPL::InvalidOperationException("The specified node is undefined", $nodeName);
|
|
|
46 }
|
|
|
47 }
|
|
|
48
|
|
|
49 sub Back {
|
|
|
50 my ($this) = @_;
|
|
|
51
|
|
|
52 $this->{$_schemaNavi}->SchemaBack();
|
|
|
53 $this->{$_nodeCurrent} = pop @{$this->{$_nodesPath}};
|
|
|
54 }
|
|
|
55
|
|
|
56 1;
|
|
|
57
|
|
|
58 __END__
|
|
|
59 =pod
|
|
|
60
|
|
|
61 =head1 SYNOPSIS
|
|
|
62
|
|
|
63 my $builder = new IMPL::DOM::Navigator::Builder(new MyApp::Document,$schema);
|
|
|
64 my $reader = new IMPL::DOM::XMLReader(Navigator => $builder);
|
|
|
65
|
|
|
66 $reader->ParseFile("document.xml");
|
|
|
67
|
|
|
68 my @errors = $schema->Validate($builder->Document);
|
|
|
69
|
|
|
70 =head1 DESCRIPTION
|
|
|
71
|
|
|
72 Построитель DOM документов по указанной схеме. Обычно используется в связке
|
|
|
73 с объектами для чтения такими как C<IMPL::DOM::XMLReader>.
|
|
|
74
|
|
|
75 =head1 METHODS
|
|
|
76
|
|
|
77 =over
|
|
|
78
|
|
|
79 =item C<CTOR($domDocument,$schema)>
|
|
|
80
|
|
|
81 Создает новый объект, принимает на вход пустой (но не обязательно) документ и
|
|
|
82 схему.
|
|
|
83
|
|
|
84 =item C<< $obj->NavigateCreate($nodeName) >>
|
|
|
85
|
|
|
86 Создает новый узел с указанным именем и переходит в него. В случае если в схеме
|
|
|
87 подходящий узел не найден, то вызывается исключение.
|
|
|
88
|
|
|
89 При этом по имени узла ищется его схема, после чего определяется класс для
|
|
|
90 создания экземпляра и созданный узел доавляется в документ.
|
|
|
91
|
|
|
92 Также имя создаваемого узла НЕ может быть переопределено свойством nodeName, оно
|
|
|
93 будет проигнорировано.
|
|
|
94
|
|
|
95 =back
|
|
|
96
|
|
|
97 =cut
|
