Lingua-YaTeA

 view release on metacpan or  search on metacpan

lib/Lingua/YaTeA/Document.pm  view on Meta::CPAN

    return $this->{ID};
}

sub getName
{
    my ($this) = @_;
    return $this->{NAME};

}

sub update
{
    my ($this,$word) = @_;
    $this->{NAME} = $word->getLexItem->getIF;
}

1;

__END__

=head1 NAME

lib/Lingua/YaTeA/Edge.pm  view on Meta::CPAN

	}
	else{
	    if ((blessed($this)) && ($this->isa('Lingua::YaTeA::PatternLeaf')))
	    {
		return "";
	    }
	}
    }
}

sub update
{
    my ($this,$new_value) = @_;
    $this = $new_value;
}



sub print
{
    my ($this,$words_a,$fh) = @_;

lib/Lingua/YaTeA/InternalNode.pm  view on Meta::CPAN

    my ($this,$father) = @_;
    $this->{FATHER} = $father;
}

sub getFather
{
    my ($this) = @_;
    return $this->{FATHER};
}

sub updateLevel
{
    my ($this,$new_level) = @_;
    $this->{LEVEL} = $new_level++;

#     warn "Debug: Level in updateLevel: $new_level \n";

    if ($new_level < 50) { # Temporary added by Thierry Hamon 02/02/2007
	if ((blessed($this->getLeftEdge)) && ($this->getLeftEdge->isa('Lingua::YaTeA::InternalNode')))
	{
	    $this->getLeftEdge->updateLevel($new_level);

lib/Lingua/YaTeA/Node.pm  view on Meta::CPAN

    }
    else
    {
	warn "searchLeaf: Going out a deep recursive method call (more than 50 calls)\n";
	return undef;
    }
    #  print STDERR "SL5\n";
    return ($node,$position); 
}

sub updateLeaves
{
    my ($this,$counter_r,$index_set) = @_;
    
    if ((blessed($this->getLeftEdge)) && ($this->getLeftEdge->isa('Lingua::YaTeA::TermLeaf')))

    {
	$this->{LEFT_EDGE} = Lingua::YaTeA::TermLeaf->new($index_set->getIndex($$counter_r++));
    }
    else
    {

lib/Lingua/YaTeA/NodeSet.pm  view on Meta::CPAN

}



sub getNode
{
    my ($this,$index) = @_;
    return $this->getNodes->[$index];
}

sub updateRoot
{
    my ($this) = @_;
    my %nodes_id;
    my $node;
    foreach $node (@{$this->getNodes})
    {
	$nodes_id{$node->getID}++;
    }

    if(scalar @{$this->getNodes} == 0)

lib/Lingua/YaTeA/PhraseSet.pm  view on Meta::CPAN

	       #	    $phrase->printForestParenthesised($fh);
	       #  print $fh "\n\n";
	       printf STDERR $message_set->getMessage('UNPARSED_PHRASES')->getContent($display_language) . "... %0.1f%%   \r", (scalar(@{$this->getUnparsed}) / $Unparsed_size) * 100 ;
	   }
	}
	print STDERR "\n";
    }
    
}

sub updateRecord
{
    my ($this,$phrase,$tag_set) = @_;
    my $key;
    my $reference;
    
    $key = $phrase->buildKey;
    
    if(exists $this->getPhrases->{$key})
    {
	delete $this->getPhrases->{$key};

lib/Lingua/YaTeA/Sentence.pm  view on Meta::CPAN

    my ($class) = @_;
    $in_doc_counter = 0;
}

sub resetStartChar
{
    my ($class) = @_;
    $start_char = 0;
}

sub updateStartChar
{
    my ($class,$word) = @_;
    $start_char += $word->getLexItem->getLength +1;
}

sub getDocument
{
    my ($this) = @_;
    return $this->{DOCUMENT};
}

lib/Lingua/YaTeA/Tree.pm  view on Meta::CPAN

    return $this->{SIMPLIFIED_INDEX_SET};
}


sub getRoot
{
    my ($this) = @_;
    return $this->getNodeSet->getRoot;
}

sub updateRoot
{
    my ($this) = @_;
    $this->getNodeSet->updateRoot;
}





sub setNodeSet

 view all matches for this distribution
 view release on metacpan -  search on metacpan