#! /bin/sh
# Charger la bibliotheque de fonctions communes:
. ${RT_MARK_DIR}/runtestlib.sh

# Essayer de trouver en quel langage est ecrit le programme ?

LANGUAGE=

function tell {
    rt_echo "Je crois que votre programme <tt>$2</tt> est en $1."
    if echo $LANGUAGE | grep $1 >/dev/null
    then rt_echo "Mais je le sais d&eacute;j&agrave;."
    else LANGUAGE=" $1 $LANGUAGE"
    fi
}

function categorize {
    case "$1" in
        *.c) 
                tell C $1
                ;;
        *.pl)
                tell Perl $1
                ;;
        *.ad[bs]|*.ali)
                tell Ada $1
                ;;
        *.ml*)
                tell Caml $1
                ;;
        *.java|*.class)
                tell Java $1
                ;;
        *.awk)
                tell Awk $1
                ;;
        *.sed)
                tell sed $1
                ;;
        *.scm)
                tell Scheme $1
                ;;
        */compil-*.sh|*/diagnostic_livraison*|*~|*/\#*\#)
                # On ignore ces fichiers
                ;;
        *.sh)
                tell sh $1
                ;;
        *.php)
                tell PHP $1
                ;;
        *.o|*.exe|*/a.out|*/core|*.txt)    # On ignore ces fichiers
                ;;
        *.html)                   # On ignore ces fichiers
                ;;
        *)
                rt_echo "Je ne sais pas ce qu'est $1."
                ;;
     esac
}

# On regarde tous les fichiers du repertoire

rt_echo "Les langages que vous avez employ&eacute;s sont $LANGUAGE."
for lang in `echo $LANGUAGE`
  do 
  rt_textual_fact "language" "$lang"
done

#fin.
