#!/bin/sh

function filtre()
{
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" 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 en minimisant les différences orthographiques (e pour ae, assimilation de consonnes, etc.)?"
read reponse
echo -e "\n\nDans quel fichier voulez-vous exporter l'arbre (format ps)?"
read fichier

if [[ $reponse == "oui" ]]
then
    filtre
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/*
./neighbor
sed "s/TMPMS\///g" outtree|cat > intree
./drawtree

rm -Rf TMPMS
mv plotfile $fichier
gv $fichier