view lib/IMPL/DOM/Schema/NodeSet.pm @ 407:c6e90e02dd17 ref20150831

renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
line wrap: on
line source

package IMPL::DOM::Schema::NodeSet;
use strict;
use warnings;

use IMPL::Const qw(:prop);
use IMPL::declare {
	require => {
		Label => 'IMPL::DOM::Schema::Label',
		ValidationError => 'IMPL::DOM::Schema::ValidationError',
		AnyNode => '-IMPL::DOM::Schema::AnyNode'
	},
	base => [
		'IMPL::DOM::Node' => sub { nodeName => 'NodeSet' }
	],
	props => [
		messageUnexpected => { get => 1, set => 1, dom => 1},
		messageMax => { get => 1, set => 1, dom => 1},
		messageMin => { get => 1, set => 1, dom => 1}
	]
};

sub CTOR {
    my ($this,%args) = @_;
    
    $this->messageMax( $args{messageMax} || 'Too many %node.nodeName% nodes');
    $this->messageMin( $args{messageMin} || '%schemaNode.name% nodes expected');
    $this->messageUnexpected( $args{messageUnexpected} || 'A %node.nodeName% isn\'t allowed in %node.parentNode.path%');
}

sub Validate {
    my ($this,$node,$ctx) = @_;
    
    my @errors;
    
    my %nodes;
    my $anyNode;
    
    foreach (@{$this->childNodes}) {
        if ($_->isa(AnyNode)) {
            $anyNode = {schemaNode => $_, min => $_->minOccur, max => $_->maxOccur eq 'unbounded' ? undef : $_->maxOccur , seen => 0 };
        } else {
            $nodes{$_->name} = {schemaNode => $_, min => $_->minOccur, max => $_->maxOccur eq 'unbounded' ? undef : $_->maxOccur , seen => 0 };
        }
    }
    
    foreach my $child ( @{$node->childNodes} ) {
        if (my $info = $nodes{$child->nodeName} || $anyNode) {
            $info->{seen}++;
            push @errors,ValidationError->new(
                schemaNode => $info->{schemaNode},
                node => $child,
                parent => $node,
                message =>  $this->_MakeLabel($this->messageMax)
            ) if ($info->{max} and $info->{seen} > $info->{max});
            
            if (my @localErrors = $info->{schemaNode}->Validate($child)) {
                push @errors,@localErrors;
            }
        } else {
            push @errors, ValidationError->new(
                node => $child,
                parent => $node,
                message => $this->_MakeLabel($this->messageUnexpected)
            )
        }
    }
    
    foreach my $info (values %nodes) {
        push @errors, ValidationError->new(
            schemaNode => $info->{schemaNode},
            parent => $node,
            message => $this->_MakeLabel($this->messageMin)
        ) if $info->{min} > $info->{seen};
    }
    
    return @errors;
}

sub _MakeLabel {
	my ($this,$label) = @_;
	
	if ($label =~ /^ID:(\w+)$/) {
		return Label->new($this->document->stringMap, $1);
	} else {
		return $label;
	}
}

1;

__END__

=pod

=head1 DESCRIPTION

Содержимое для сложного узла. Порядок не важен. Дочерними элементами могут быть
только C<IMPL::DOM::Schema::ComplexNode> и C<IMPL::DOM::Schema::SimpleNode>.

При проверке данного правила, проверяются имеющиеся элементы на соответсие схемы
и количества встречаемости, после чего проверяются количественные ограничения
для несуществующих элементов.

=cut