File Coverage

blib/lib/Lingua/YaTeA/ParsingPatternRecordSet.pm

Criterion	Covered	Total	%
statement	45	54	83.3
branch	4	6	66.6
condition			n/a
subroutine	12	14	85.7
pod	9	9	100.0
total	70	83	84.3

package Lingua::YaTeA::ParsingPatternRecordSet;
use strict;
use warnings;

use Lingua::YaTeA::ParsingPatternRecord;
use Lingua::YaTeA::ParsingPattern;
use Lingua::YaTeA::ParsingPatternParser;

our $max_content_words = 0;

our $VERSION=$Lingua::YaTeA::VERSION;

sub new
{
    my ($class,$file_path,$tag_set,$message_set,$display_language) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{PARSING_RECORDS} = {};
    $this->loadPatterns($file_path,$tag_set,$message_set,$display_language);
    return $this;
}

sub loadPatterns
{
    my ($this,$file_path,$tag_set,$message_set,$display_language) = @_;

    my $fh = FileHandle->new("<$file_path");


    my $parser = Lingua::YaTeA::ParsingPatternParser->new();

    $parser->YYData->{PPRS} = $this;
    $parser->YYData->{FH} = $fh;
    $parser->YYData->{CANDIDATES} = $tag_set->getTagList("CANDIDATES");
    $parser->YYData->{PREPOSITIONS} = $tag_set->getTagList("PREPOSITIONS");
    $parser->YYData->{DETERMINERS} = $tag_set->getTagList("DETERMINERS");

    $parser->YYParse(yylex => \&Lingua::YaTeA::ParsingPatternParser::_Lexer, yyerror => \&Lingua::YaTeA::ParsingPatternParser::_Error);

#     print STDERR "nberr: " . $parser->YYNberr() ."\n";
}


sub checkContentWords
{
    my ($this,$num_content_words,$num_line) = @_;
    if($num_content_words == 0)
    {
	die "No content word in pattern line " . $num_line . "\n";
    }
}

sub addPattern
{
    my ($this,$pattern) = @_;
    my $record;
    if (! $this->existRecord($pattern->getPOSSequence))
    {
	$record = $this->addRecord($pattern->getPOSSequence);
    }
    else
    {
	$record = $this->getRecord($pattern->getPOSSequence);
    }
    $record->addPattern($pattern);
}

sub getRecord
{
    my ($this,$name) = @_;
    return $this->{PARSING_RECORDS}->{$name};
}

sub addRecord
{
    my ($this,$name) = @_;
    $this->{PARSING_RECORDS}->{$name} = Lingua::YaTeA::ParsingPatternRecord->new($name);

}

sub existRecord
{
    my ($this,$name) = @_;
    if (exists $this->{PARSING_RECORDS}{$name})
    {
	return $this->{PARSING_RECORDS}{$name};
    }
    return 0;
}

sub getRecordSet
{
    my ($this) = @_;
    return $this->{PARSING_RECORDS};

}


sub print
{
    my ($this) = @_;
    my $record;
    foreach $record (values %{$this->getRecordSet})
    {
	$record->print;
    }
}



1;


__END__