File Coverage

blib/lib/Lingua/Ogmios/Annotations/Sentence.pm

Criterion	Covered	Total	%
statement	9	78	11.5
branch	0	30	0.0
condition	0	12	0.0
subroutine	3	13	23.0
pod	0	10	0.0
total	12	143	8.3

package Lingua::Ogmios::Annotations::Sentence;

use strict;
use warnings;

use Lingua::Ogmios::Annotations::Element;
our @ISA = qw(Lingua::Ogmios::Annotations::Element);


#
#
#
#

#
#
#                          refid_end_token, form?)           >

#
#
#
#                         (#PCDATA)                          >

#
#
#
#                         (#PCDATA)                          >

#
#


sub new {
    my ($class, $fields) = @_;

    if (!defined $fields->{'id'}) {
	$fields->{'id'} = -1;
    }
    if (!defined $fields->{'refid_start_token'}) { # refid_start_token
	die("refid_start_token is not defined");
    }
    if (!defined $fields->{'refid_end_token'}) { # refid_end_token
	die("refid_end_token is not defined");
    }
    my $sentence = $class->SUPER::new({
	'id' => $fields->{'id'},
# 	'form' => $fields->{'form'},
				      }
	);
    bless ($sentence,$class);

    $sentence->refid_start_token($fields->{'refid_start_token'});
    $sentence->refid_end_token($fields->{'refid_end_token'});

    if (defined $fields->{'form'}) {
	$sentence->setForm($fields->{'form'});
    }

    if (defined $fields->{'log_id'}) {
	$sentence->setLogId($fields->{'log_id'});
    }
    if (defined $fields->{'lang'}) {
	$sentence->Lang($fields->{'lang'});
    }
    return($sentence);
}

sub start_token {
    my $self = shift;

    return($self->refid_start_token);
}

sub refid_start_token {
    my $self = shift;

    $self->{refid_start_token} = shift if @_;
    return($self->{refid_start_token});
}

# sub getFrom {
#     my $self = shift;
#     return($self->{refid_start_token});
# }

sub end_token {
    my $self = shift;

    return($self->refid_end_token);
}

sub refid_end_token {
    my $self = shift;

    $self->{refid_end_token} = shift if @_;
    return($self->{refid_end_token});
}

sub lang {
    my $self = shift;

    $self->{"lang"} = shift if @_;
    return($self->{"lang"});
}

# sub getTo {
#     my $self = shift;
#     return($self->{refid_end_token});
# }


sub XMLout {
    my ($self, $order) = @_;

    return($self->SUPER::XMLout("sentence", $order));
}

sub reference {
    my ($self) = @_;

    my @refs;
    my $token;

    $token = $self->refid_start_token;
    push @refs, $token;
    while(!$token->equals($self->refid_end_token)) {
	$token = $token->next;
	push @refs, $token;
    };
    return(\@refs);
}


sub getWordsFromSentence {
    my ($self, $document) = @_;

    my $word;
    # my $lemma;

    # my $sentLemma = "";;
    my $token = $self->start_token;

    # my $token_prec = 0;
    my @words = ();

    if (defined $token) {
	do {
	    if ($document->getAnnotations->getWordLevel->existsElementFromIndex("list_refid_token", $token->getId)) {
		$word = $document->getAnnotations->getWordLevel->getElementFromIndex("list_refid_token", $token->getId)->[0];
		# $lemma = $document->getAnnotations->getLemmaLevel->getElementFromIndex("refid_word", $word->getId)->[0];
		push @words, $word;
		$token = $word->end_token;
		# $token_prec = 0;
	    } else {
		# $offsets{length($sentLemma)} = [$token];
		# $sentLemma .= $token->getContent;
		# $token_prec = 1;
	    }
	    if (defined $token) {
		$token = $token->next;
	    }
	} while((defined $token) && (defined $token->previous) && (!($token->previous->equals($self->end_token))));
    }
    return(\@words);
}


sub getTermsFromSentence {
    my ($self, $document) = @_;

    my $word;
    # my $lemma;

    # my $sentLemma = "";;
    my $token = $self->start_token;

    # my $token_prec = 0;
    my @terms = ();
    my @semfs;
    my $semf;

    if (defined $token) {
	do {
	    if ($document->getAnnotations->getSemanticUnitLevel->existsElementFromIndex("start_token", $token->getId)) {
		@semfs = @{$document->getAnnotations->getSemanticUnitLevel->getElementFromIndex("start_token", $token->getId)};
		# $lemma = $document->getAnnotations->getLemmaLevel->getElementFromIndex("refid_word", $word->getId)->[0];
		foreach $semf (@semfs) {
		    if ($semf->isTerm) {
			push @terms, $semf;
		    }
		}
	    }
	    $token = $token->next;
	} while((defined $token) && (defined $token->previous) && (!($token->previous->equals($self->end_token))));
    }
    return(\@terms);
}



1;

__END__