#!/usr/bin/perl -s

if($h){
 print "Usage pibabylon [options]
   options:
     -words=eng           file with many english words
     -en=english.dic      babylon english.dic
     -dic=engtopor.dic    babylon engtoany.dic

 makes a engtoany.dic.tei
 
";
 exit;
}

$babylon="/usr/share/dict/babylon";

$enWords = $words || "/usr/share/dict/en.jj.words" ;
$enfile = $en || "english.dic" ;
$dicfile = $dic || "EngtoPor.dic";

open(F,"cat $enWords | grep \"^[A-Za-z]\"| pibabylon $enfile $dicfile|") or die;

if (-e "teiheader") { system ("cp teiheader $dicfile.tei")}
else                { system ("echo 'insert TEI header ' > $dicfile.tei")}

open(G, "| sort -u >> $dicfile.tei") or die;

$/='';

while(<F>){
  chomp;
  s{\:.*\n}{}g;
  s{\&}{&amp;}g;
  s{\>}{&gt;}g;
  s{\<}{&lt;}g;

  if(/__(.*?)\s*\((.*?)\)__\n?/ ){
    ($a1,$a2,$a3)=($1,$2,$');
    $a3 =~ s/\n/|/g;
    print G  "<entry><term><orth>$a1</orth><pos>$a2</pos>",
          "</term><translation>$a3</translation></entry>\n"
  }
  else {
    s/\n/|/g;
    print G "<!-----------------------$_-->\n";
  }
}
close G;

if (-e "teifooter") { system ("cat teifooter >>  $dicfile.tei")}