#!/bin/csh
#
# Transforme un lexique union (ex : lexique_union7) en une
# ressource pour le tagger/reaccentueur
#
# parametres :
#              $1 = lexique union avec lemme
#	       $2 = fichier ML arpa sur les classes

if ( $#argv < 1 ) then
 echo 'Syntax: make_lexique_reacc.csh <lex union+lemm> <ML arpa sur les classes>'
else
 echo Production du lexique accent/sans accent
 $LIA_PHON_REP/bin/lia_eclate_lexique_union < $1 > $1.compte
 $LIA_PHON_REP/bin/lia_eclate_lexique_union < $1 | $LIA_PHON_REP/bin/lia_produit_lex_reacc > $1.acc.compte

 echo Production du lexique de classes
 $LIA_PHON_REP/bin/lia_extract_lex_from_arpa < $2 > $2.sirlex
 $LIA_PHON_REP/bin/lia_compile_ml $2.sirlex $2 log_10 3g -dicho

 foreach i ( $1 $1.acc )
 
  echo Production du lexique de graphie
  cut -f1 $i.compte | sort -u > $i.graf
  $LIA_PHON_REP/bin/lia_rajoute_code < $i.graf > $i.sirlex
  $LIA_PHON_REP/bin/lia_compile_lexique $i.sirlex

  echo Compilation du modele pmc
  $LIA_PHON_REP/bin/lia_compile_pmc $i.sirlex $2.sirlex $i.compte lemme log_10 $i 
 
  echo Nettoyage
  rm $i.compte $i.sirlex

 end

 rm $2.sirlex
 echo Termine

endif