#!/bin/sh

function filtre1()
{
for i in `ls TMPMS`; do
sed "s/ae/e/g; s/oe/e/g;
s/dc/cc/g; s/df/ff/g; s/dg/gg/g; s/dl/ll/g; s/dm/mm/g; s/dn/nn/g; s/dp/pp/g; s/dr/rr/g; s/ds/ss/g; s/dt/tt/g; s/nm/mm/g; s/nb/mb/g; s/np/nm/g; s/nr/rr/g; s/bp/pp/g; s/cq/dq/g; 
s/y/i/g; ; s/ph/f/g; s/h//g;
s/tia/cia/g; s/tie/cie/g; s/tii/cii/g; s/tio/cio/g; s/tiu/ciu/g" TMPMS/$i |cat > TMPMS/$i.bis
rm -Rf TMPMS/$i
mv TMPMS/$i.bis TMPMS/$i
done
}

function filtre2()
{
for i in `ls TMPMS`; do
sed "s/ae/æ/g; s/cc/*c/g; s/ff/*f/g; s/nn/*n/g; s/pp/*p/g; s/rr/*r/g; s/ss/*s/g; s/tt/*t/g; s/ll/*l/g; s/mm/*m/g; s/tia/*ia/g; s/tie/*ie/g; s/tii/*ii/g; s/tio/*io/g; s/tiu/*iu/g" TMPMS/$i |cat > TMPMS/$i.bis
rm -Rf TMPMS/$i
mv TMPMS/$i.bis TMPMS/$i
done
}

cp -R $1 ./TMPMS
echo -e "\nVoulez-vous calculer la distance \n\t 1. en ne tenant pas compte des différences orthographiques (e pour ae, assimilation de consonnes, etc.) ?\n\t 2. en minimisant les différences orthographiques (c'est-à-dire en les considérant comme la moitié d'une différence « normale ») ?\n\t 3. en tenant compte pleinement des différences orthographiques ?"
read reponse
echo -e "\n\nDans quel fichier voulez-vous exporter l'arbre (format ps)?"
read fichier

if [[ $reponse == "1" ]]
then
    filtre1
elif [[ $reponse == "2" ]]
then
    filtre2
fi
echo -e "\nCalcul de la matrice des distances sur l'ensemble des textes que vous avez fournis. S'il y en a plus de 15, allez prendre un café...\n"
./distances TMPMS/*|sed "s/TMPMS\///g"|cat > intree
./drawtree

rm -Rf TMPMS
mv plotfile $fichier
gv $fichier