# Realisation d'une bande de distribution Le-Lisp
#
# le message d'erreur
err="usage: $0 [-system ibmrt|sun|sun4|unigraph|vax][-device /dev/r?t?][-plombe]"
# le nom du directory systeme par defaut
system=sun
# le nom du device par defaut
dev=/dev/rst8
# le support par defaut
n=k7
# pas de plombage par defaut
plombe=0

while [ x$1 != x ]
  do
  case $1 in
    -system) system=$2; shift;;
    -device) dev=$2; shift;;
    -plombe) plombe=1;;
    *) echo $err; exit 0;;
  esac
  shift
  done

case $dev in
  *mt*)    n=bande;;
  *st*)    n=k7;;
  *)       echo $err; exit 0;;
esac

echo "-- Fabrication d'une $n pour $system."

# Pour verifier que tout est la
# ( cd $system ; make -n )

if [ $plombe = 1 ]
then
tar cvof $dev `cat LLUSERFILES $system/USERFILES` -C llilog $system/LLACCESS
else
tar cvof $dev `cat LLUSERFILES $system/USERFILES`
fi

echo "    A METTRE SUR L'ETIQUETTE DE LA BANDE"
echo "+--------------------------------------------------------+"
echo "|  Pour extraire cette version Le-Lisp [utilisateur]:    |"
echo "|    - creer le directory lelisp et s'y placer,          |"
echo "|    - tar xpvf /dev/rst8    (pour streamer)             |"
echo "|    - tar xpvf /dev/rmt8    (pour bande)                |"
echo "+--------------------------------------------------------+"