#!/usr/bin/perl -s

our ($pt2en);
use jspell;
use POSIX qw(locale_h);
setlocale(&POSIX::LC_ALL, "pt_PT");
use locale;
use strict;

my $pt_dict = jspell::new("port");
## my $en_dict = jspell::new("english");

open (D,">__debug") or die;;

if($pt2en){
while(<>){
 chomp;
 if(/(.*)=(.*)#1$/){
   my ($pt,$en)=($1,$2);
   my (@l)=$pt_dict->featagsrad($pt);  # list of analisis tags/lemmas
   print proc($pt,@l),"=$en#1\n";
   print D "$pt=",proc($pt,@l),"=$en\t", join(";",@l),"\n";
 }
 else{print "$_\n";}
}
}
else{
while(<>){
 chomp;
 my ($en,$pt,$oco)=split(/=/,$_);
 $oco = $oco ? "=$oco" : "";
 if($pt=~ /(.*)#A/) {
   $pt=$1;
   my @l= ($pt_dict->featagsrad($pt)) ;  # list of analisis tags/lemmas
   print "$en=",proc($pt,@l),"#A$oco\n";
   print D "$en=$pt=",proc($pt,@l),"\t", join("#",@l),"\n";
 }
 else{print "$_\n";}
}
}

sub proc{
  my ($p,@a)=@_;
  if(not @a){ return normman($p) }
  for my $x (@a){
    if( $x =~  /^[JX].*?:(.*)/){ return $1 }
    if( $x =~  /^VPP.*?:(.*)/){
       $p =~ s/d[ao]s?$/do/;
       return $p }
    if( $x =~ /^NC.*?:(.*)/){ return $p }
  }
  return $p;
}

sub normman{
 my $p=shift;
      $p =~ s/or[ae]s?$/or/ or
      $p =~ s/[oa]s?$/o/ or
      $p =~ s/ais$/al/ or
      $p =~ s/eis$/el/ or
      $p =~ s/([aeiou])res$/$1r/ or
      $p =~ s/ões$/ão/ or
      $p =~ s/es$/e/ ;
 return $p;
}

__END__
abandonada=VPPFS:abandonardisused#1
abandonadas=VPPFP:abandonarabandoned#1
abandonados=VPPMP:abandonarabandoned#1
abarcada=VPPFS:abarcarmarketer#1
abastecedora=XFS:abastecersupply#1
abatidas=VPPFP:abaterslaughtered#1
abatido=VPPMS:abaterslaughtered#1
abatidos=VPPMP:abaterslaughtered#1
abdominais=JNP:abdominalabdominal#1
abdominal=JNS:abdominalabdominal#1
abdullah=abdullah#1
abdutor=NCMS:abdutordelivery#1
abel=NPMN:Abelabel#1
abel-pensky=abel-pensky#1
aber=open#1
aberrantes=JNP:aberrante;JNP:aberrarabnormal#1
aberta=NCFS:aberta;JFS:abertoopen#1
abertamente=ADV:abertoopenly#1
abertas=NCFP:aberta;JFP:abertoopen#1


abandonada=disused#1
abandonadas=abandoned#1
abandonados=abandoned#1
abarcada=marketer#1
abastecedora=supply#1
abatidas=slaughtered#1
abatido=slaughtered#1
abatidos=slaughtered#1
abdominais=abdominal#1
abdominal=abdominal#1
abdullah=abdullah#1
abdutor=delivery#1
abel=abel#1
abel-pensky=abel-pensky#1
aber=open#1
aberrantes=abnormal#1
aberta=open#1
abertamente=openly#1
abertas=open#1
aberto=open#1

__END__


abandonment=abandono=63=adj=de sub
abandonment premiums=prémios de abandono=63=adj_sub=sub_de_sub
ability=aptidão=35=sub=sub
abolition=supressão=97=sub=sub
above=acima=744=adj=adj
...above=supracitados=102=adj=adj
above considerations=considerações acima=30=adj_sub=sub_adj
above criteria=critérios supracitados=102=adj_sub=sub_adj
above date=data acima=67=adj_sub=sub_adj
above limits=limites acima=69=adj_sub=sub_adj
above measures=medidas acima=36=adj_sub=sub_adj
above-mentioned=supramencionada=880=adj=adj
...above-mentioned=supramencionadas=68=adj=adj
abovementioned=acima=505=adj=adj
...abovementioned=supracitado=36=adj=adj
abovementioned agreement=acordo acima=36=adj_sub=sub_adj
abovementioned aid=auxílio acima=34=adj_sub=sub_adj
abovementioned articles=artigos acima=125=adj_sub=sub_adj
above-mentioned communication=comunicação supramencionada=178=adj_sub=sub_adj
abovementioned conditions=condições acima=48=adj_sub=sub_adj
abovementioned criteria=critérios acima=153=adj_sub=sub_adj
abovementioned decision=decisão acima=34=adj_sub=sub_adj
abovementioned products=produtos acima=39=adj_sub=sub_adj
above-mentioned proposal=proposta supramencionada=702=adj_sub=sub_adj
above-mentioned proposals=propostas supramencionadas=68=adj_sub=sub_adj
abovementioned regulation=regulamento supracitado=36=adj_sub=sub_adj
...abovementioned regulation=regulamento acima=36=adj_sub=sub_adj
above principles=princípios acima=33=adj_sub=sub_adj
above reasons=razões acima=30=adj_sub=sub_adj
above regulation=regulamento acima=73=adj_sub=sub_adj
above sectors=sectores acima=42=adj_sub=sub_adj
absolute=absoluta=196=adj=adj
...absolute=absolutos=125=adj=adj
...absolute=absoluto=90=adj=adj
absolute majority=maioria absoluta=83=adj_sub=sub_adj
absolute pressure=pressão absoluta=36=adj_sub=sub_adj
absolute priority=prioridade absoluta=34=adj_sub=sub_adj
absolute terms=termos absolutos=125=adj_sub=sub_adj
absolute territorial protection=protecção territorial absoluta=43=adj_adj_sub=sub_adj_adj
absolute value=valor absoluto=90=adj_sub=sub_adj
absorption=absorção=61=adj=de sub
absorption capacity=capacidade de absorção=61=adj_sub=sub_de_sub
abuse=abuso=71=sub=sub
academic=académico=42=adj=adj
academic recognition=reconhecimento académico=42=adj_sub=sub_adj
acceding=aderente=38=adj=adj
...acceding=aderentes=30=adj=adj
acceding country=país aderente=38=adj_sub=sub_adj
acceding states=estados aderentes=30=adj_sub=sub_adj
accelerated=acelerado=119=adj=adj
accelerated procedure=processo acelerado=78=adj_sub=sub_adj
...accelerated procedure=procedimento acelerado=41=adj_sub=sub_adj
acceptance=aceitação=94=sub=sub
...acceptance=admissão=38=adj=de sub
acceptance criteria=critérios de admissão=38=adj_sub=sub_de_sub
accepted=aceites=123=adj=adj
accepted limits=limites aceites=123=adj_sub=sub_adj
access=acesso=1367=sub=sub
access agreements=acordos de acesso=34=adj_sub=sub_de_sub
access conditions=condições de acesso=57=adj_sub=sub_de_sub
accession=adesão=604=adj=de sub
accession negotiations=negociações de adesão=208=adj_sub=sub_de_sub
accession partnership=parceria de adesão=132=adj_sub=sub_de_sub
accession partnerships=parcerias de adesão=69=adj_sub=sub_de_sub
accession process=processo de adesão=62=adj_sub=sub_de_sub
accession treaties=tratados de adesão=34=adj_sub=sub_de_sub
accession treaty=tratado de adesão=99=adj_sub=sub_de_sub
access opportunities=oportunidades de acesso=32=adj_sub=sub_de_sub
access providers=fornecedores de acesso=44=adj_sub=sub_de_sub
access rights=direitos de acesso=80=adj_sub=sub_de_sub
access services=serviços de acesso=75=adj_sub=sub_de_sub
access strategy=estratégia de acesso=40=adj_sub=sub_de_sub
access time=tempo de acesso=58=adj_sub=sub_de_sub
accident=acidente=72=sub=sub
accidental=acidental=32=adj=adj
accidental pollution=poluição acidental=32=adj_sub=sub_adj
accidents=acidentes=70=sub=sub
accommodation=alojamento=167=sub=sub
accommodation spaces=espaços de alojamento=60=adj_sub=sub_de_sub
accompanying=acompanhamento=906=adj=de sub
accompanying document=documento de acompanhamento=194=adj_sub=sub_de_sub
accompanying documents=documentos de acompanhamento=133=adj_sub=sub_de_sub
accompanying measures=medidas de acompanhamento=579=adj_sub=sub_de_sub
account=conta=751=sub=sub
accountability=responsabilidade=44=sub=sub
accounting=contabilísticos=327=adj=adj
...accounting=contabilísticas=316=adj=adj
...accounting=contabilístico=227=adj=adj
...accounting=contabilística=111=adj=adj
...accounting=contabilidade=79=adj=de sub
accounting data=dados contabilísticos=63=adj_sub=sub_adj
accounting documents=documentos contabilísticos=90=adj_sub=sub_adj
accounting methods=métodos contabilísticos=34=adj_sub=sub_adj
accounting period=período contabilístico=32=adj_sub=sub_adj
accounting periods=períodos contabilísticos=32=adj_sub=sub_adj
accounting policies=políticas contabilísticas=248=adj_sub=sub_adj
accounting policy=política contabilística=111=adj_sub=sub_adj
accounting principles=princípios contabilísticos=77=adj_sub=sub_adj
accounting profit=lucro contabilístico=44=adj_sub=sub_adj
accounting records=registos contabilísticos=31=adj_sub=sub_adj
accounting rules=regras contabilísticas=36=adj_sub=sub_adj
accounting standards=normas contabilísticas=32=adj_sub=sub_adj
accounting system=sistema contabilístico=51=adj_sub=sub_adj
...accounting system=sistema de contabilidade=40=adj_sub=sub_de_sub
accounting systems=sistemas de contabilidade=39=adj_sub=sub_de_sub
accounting treatment=tratamento contabilístico=66=adj_sub=sub_adj
accounting year=exercício contabilístico=34=adj_sub=sub_adj
accounts=contas=1280=sub=sub
...accounts=contabilidade=263=sub=sub
accreditation=acreditação=43=adj=de sub
accreditation body=organismo de acreditação=43=adj_sub=sub_de_sub
accuracy=precisão=67=sub=sub
acetate=acetato=39=sub=sub
acetic=acético=236=adj=adj
acetic acid=ácido acético=201=adj_sub=sub_adj
acetic anhydride=anidrido acético=35=adj_sub=sub_adj
acid=ácido=1550=sub=sub
...acid=ácida=50=adj=adj
acidity=acidez=62=sub=sub
acids=ácidos==oco
acid solution=solução ácida=50=adj_sub=sub_adj
acp=acp=1309=adj=adj
acp countries=países acp=595=adj_sub=sub_adj
acp-ec=acp-ce=238=adj=adj
acp-ec agreement=acordo acp-ce=140=adj_sub=sub_adj
acp-ec convention=convenção acp-ce=98=adj_sub=sub_adj
acp-eec=acp-cee=131=adj=adj
acp-eec convention=convenção acp-cee=131=adj_sub=sub_adj
acp-eu=acp-ue=141=adj=adj
acp-eu cooperation=cooperação acp-ue=31=adj_sub=sub_adj
acp-eu joint assembly=assembleia paritária acp-ue=110=adj_adj_sub=sub_adj_adj
acp state=estado acp=154=adj_sub=sub_adj
acp states=estados acp=516=adj_sub=sub_adj
acp sugar=açúcar acp=44=adj_sub=sub_adj
acquired=adquiridos=58=adj=adj
acquired rights=direitos adquiridos=58=adj_sub=sub_adj
acquis=acervo=894=sub=sub
acquisition=aquisição=37=adj=de sub
acquisition price=preço de aquisição=37=adj_sub=sub_de_sub
acrylic=acrílicas=38=adj=adj
acrylic fibres=fibras acrílicas=38=adj_sub=sub_adj
act=acto=349=sub=sub
...act=acta=286=sub=sub
...act=lei=76=sub=sub
action=acção=10673=adj=de sub
...action=actuação=114=sub=sub
action line=linha de acção=278=adj_sub=sub_de_sub
action lines=linhas de acção=150=adj_sub=sub_de_sub
action plan=plano de acção=3021=adj_sub=sub_de_sub
action plans=planos de acção=261=adj_sub=sub_de_sub
action programme=programa de acção=1665=adj_sub=sub_de_sub
action programmes=programas de acção=284=adj_sub=sub_de_sub
actions=acções=1886=sub=sub
active=activa=2253=adj=adj
...active=activas=1087=adj=adj
...active=activo=311=adj=adj
active ageing=envelhecimento activo=46=adj_sub=sub_adj
active citizenship=cidadania activa=110=adj_sub=sub_adj
active corruption=corrupção activa=32=adj_sub=sub_adj
active european citizenship=cidadania europeia activa=32=adj_adj_sub=sub_adj_adj
active involvement=participação activa=38=adj_sub=sub_adj
active life=vida activa=39=adj_sub=sub_adj
active market=mercado activo=60=adj_sub=sub_adj
active participation=participação activa=195=adj_sub=sub_adj
active policy=política activa=42=adj_sub=sub_adj
active population=população activa=53=adj_sub=sub_adj
active role=papel activo=166=adj_sub=sub_adj
active sales=vendas activas=32=adj_sub=sub_adj
active substance=substância activa=1712=adj_sub=sub_adj
active substances=substâncias activas=1055=adj_sub=sub_adj
active support=apoio activo=39=adj_sub=sub_adj
activities=actividades=4899=sub=sub
...activities=acções=220=sub=sub
activity=actividade=1614=sub=sub
acts=actos=411=sub=sub
actual=efectiva=282=adj=adj
...actual=efectivas=256=adj=adj
...actual=real=190=adj=adj
...actual=reais=112=adj=adj
actual cost=custo real=34=adj_sub=sub_adj
actual costs=custos reais=65=adj_sub=sub_adj
actual destination=destino real=44=adj_sub=sub_adj
actual expenditure=despesas reais=47=adj_sub=sub_adj
...actual expenditure=despesas efectivas=35=adj_sub=sub_adj
actual imports=importações efectivas=179=adj_sub=sub_adj
actual issue=emissão efectiva=90=adj_sub=sub_adj
actual production=produção efectiva=192=adj_sub=sub_adj
...actual production=produção real=30=adj_sub=sub_adj
actual quality=qualidade real=45=adj_sub=sub_adj
actual rents=rendas efectivas=42=adj_sub=sub_adj
actual value=valor real=37=adj_sub=sub_adj
actuarial=actuarial=52=adj=adj
...actuarial=actuariais=44=adj=adj
actuarial assumptions=pressupostos actuariais=44=adj_sub=sub_adj
actuarial present value=valor presente actuarial=52=adj_adj_sub=sub_adj_adj
acute=aguda=102=adj=adj
acute toxicity=toxicidade aguda=102=adj_sub=sub_adj
adaptation=adaptação=131=adj=de sub
adaptation period=estágio de adaptação=101=adj_sub=sub_de_sub
adaptation programme=programa de adaptação=30=adj_sub=sub_de_sub

__END__

above=acima=acima	ADV:acima
above=supracitados=supracitado	JMP:supracitado
above-mentioned=supramencionada=supramencionado	JFS:supramencionado
above-mentioned=supramencionadas=supramencionado	JFP:supramencionado
abovementioned=acima=acima	ADV:acima
abovementioned=supracitado=supracitado	JMS:supracitado
absolute=absoluta=absoluto	XFS:absoluto
absolute=absolutos=absoluto	XMP:absoluto
absolute=absoluto=absoluto	XMS:absoluto
academic=académico=académico	JMS:académico
acceding=aderente=aderente	XNS:aderente
acceding=aderentes=aderente	XNP:aderente
accelerated=acelerado=acelerado	VPPMS:acelerar
accepted=aceites=aceites	NCMP:aceite;VSH2S:aceitar
accidental=acidental=acidental	JNS:acidental
accounting=contabilísticos=contabilístico	JMP:contabilístico
accounting=contabilísticas=contabilístico	JFP:contabilístico
accounting=contabilístico=contabilístico	JMS:contabilístico
accounting=contabilística=contabilístico	JFS:contabilístico
acetic=acético=acético	JMS:acético
acid=ácida=ácido	XFS:ácido
acp=acp=acp	NPMS:ACP
acp-ec=acp-ce=acp-ce	
acp-eec=acp-cee=acp-cee	
acp-eu=acp-ue=acp-ue	
acquired=adquiridos=adquirido	VPPMP:adquirir
acrylic=acrílicas=acrílico	JFP:acrílico
active=activa=activo	XFS:activo;VIH3S:activar;VMH2S:activar
active=activas=activas	VIH2S:activar;XFP:activo
active=activo=activo	XMS:activo;VIH1S:activar