#!/usr/local/bin/perl -w

use Lingua::PT::UnConjugate qw( unconj string_entries ) ;
				# \%hash -> @strings 

=head1 NAME

unconj - A program for recognizing conjugated forms of portuguese verbs. 

=head1 SYNOPSIS

 > unconj dormisse
 dormisse : 
   dormir, conjuntivo imperfeito, 1
   dormir, conjuntivo imperfeito, 3

 > unconj foi     
 foi : 
   ir, perfeito, 3
   ser, perfeito, 3

=head1 OPTIONS

=over 4

=item -a : Try to recognize when accents are wrong.

=item -A : If no match is found, then try to recognize with option
    -a. 

=back

=head1 BUGS

Composed tenses are not recognized. The verb list contains many
non-verbs that I have not removed yet. 

=head1 AUTHOR Etienne Grossmann, 1999 [etienne@isr.ist.utl.pt] 

=head1 CREDITS

Thanks to Soraia Almeida (salmeida@logos.it) from the Logos project
(http://www.logos.it) and Ulisses Pinto and Jos� Jo�o Almeida from
Projecto Natura (http://shiva.di.uminho.pt/~jj/pln) who made Ispell
available.

A big part of the list of verb infinitives comes from files used in
Ispell (http://shiva.di.uminho.pt/~jj/pln) and in Logos
(http://www.verba.org, http://www.logos.it).  these projects. Some
verbs were removed and others added by hand.

=cut


# print substr($inf_str,0,50),"\n" ;

@opt = () ;			# Options

while (@ARGV){
    $v = shift;
    if( $v =~ /^-/ )
    {
	push @opt, $v ;
	next ;
    }
    $a = unconj(@opt, $v) ;
    print "$v : \n  ", join("\n  ",string_entries('l',$a)),"\n" ; 
}


=head1 SEE ALSO : unconj, conjug, treinar.

=head1 VERSION 0.01

=head1 AUTHOR Etienne Grossmann, 1999 [etienne@isr.ist.utl.pt]