#!/bin/ksh
###############################################################
#                                                             #
#  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
    . ./.exper_cour
    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`

if(test -s ./.exper_cour) then
	. ./.exper_cour
else
	co -r"$exper" ./.exper_cour 1>/dev/null 2>/dev/null
	if(test -s ./.exper_cour) then
		. ./.exper_cour 2>/dev/null
		rm -f ./.exper_cour 2>/dev/null
	fi
fi

cd RCS

suffixes="cdk [fp]tn [fcsh] f90 txt sh dot cdk90 ftn90 $RCSEXT_SAVED"
suffixes2=""
for suf in $suffixes; do
   suffixes2="${suffixes2} *.${suf},v"
done
#echo $suffixes2
 
laliste=`echo ${suffixes2} | sed 's/,v//g'`
echo $laliste

cd $ici


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