
###############################################################
#                                                             #
#  script servant a sortir du repertoire RCS local            #
#  tous les fichiers associes a une experience                #
#                                                             #
#  james caveen - rpn - fevrier 1992                          #
#                                                             #
###############################################################

if(test -s ./.exper_cour)
then
    if(test "$CMCLNG" = "francais")
    then
      echo "il y a deja une experience en cours. On continue? (o/n)
\c"
      read reponse
    else
      echo "there is already an active experiment. Continue? (y/n)
\c"
      read reponse
    fi
  
    case $reponse in
         N*) exit 1;;
         n*) exit 1;;
    esac
fi
    

if (test "$#" = "0")
then
    if(test "$CMCLNG" = "francais")
    then
       echo "s.v.p. donnez le nom de l'experience a extraire"
       echo ' sor_exp nom_experience'
    else
       echo "please, give the name of the experiment to extract"
       echo ' sor_exp name_of_experiment'
    fi
    exit 1
fi

exper=$1
#verifier si la revision  de ./.exper_cour existe pour l'experience a extraire
rlog -r"$exper" ./.exper_cour > /dev/null
retour=$?
if(test "$retour" = "1")
   then
    if(test "$CMCLNG" = "francais")
    then
      echo " Erreur - on ne peut extraire l'experience"
      echo " Consultez le manpage de sor_exp"
    else
      echo " Error  - cannot extract the experiment"
      echo " Consult the sor_exp manpage "
    fi
exit 1
fi 

ici=`pwd`
cd RCS
laliste=`echo *.[fp]tn,v *.cdk,v *.[fcsh],v *.txt,v *.*_sh,v | sed 's/,v//g'`
cd $ici

for i in $laliste
do
   co -r"$exper" $i
   if(test -s $i)
   then
     chmod u+w $i
   else
     rm -f $i 2> /dev/null
   fi
done
