#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C H O I X   D E S   M A C H I N E S   A   U T I L I S E R   P O U R   G E N E R E R   L E   F I L M  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrq/proton.K2.2$Y' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

switch    ("$mHOTE")
                                        # Definition du choix des machines a utiliser pour generer le film.                           #
                                        #                                                                                             #
                                        # Discrimination des differentes MACHINEs possibles :                                         #
     case "$CMAP23":
     case "$CMAP24":
     case "$CMAP26":
     case "$CMAP27":
     case "$CMAP28":
     case "$CMAP29":
     case "$EDFR11":
     case "$HOME11":
     case "$INFO23":
     case "$LACT11":
     case "$LACT12":
     case "$LACT71":
     case "$LACT14":
     case "$LACT15":
     case "$LACT16":
     case "$LACT17":
     case "$LACT18":
     case "$LACT19":
     case "$LACT1A":
     case "$LACT1B":
     case "$LACT21":
     case "$LACT22":
     case "$LACT23":
     case "$LACT27":
     case "$LACT28":
     case "$LACT29":
          set       Simulateur=$EXIST
          breaksw
     case "$CCVR11":
     case "$CCVR12":
     case "$CCVR13":
     case "$CCVR14":
     case "$CCVR21":
     case "$CMAP21":
     case "$CMAP22":
     case "$CMAP25":
     case "$EDFR12":
     case "$EDFR13":
     case "$EDFR14":
     case "$EDFR15":
     case "$EDFR21":
     case "$EDFR22":
     case "$EDFR22h":
     case "$IDRI11":
     case "$IDRI21":
     case "$INFO11":
     case "$INFO21":
     case "$INFO22":
     case "$INFO24":
     case "$INFO25":
     case "$INFO26":
     case "$LHYX11":
     case "$LINX11":
     case "$LINX12":
          set       Simulateur=$NEXIST
          breaksw
     default:
                                        # Cas des MACHINEs non reconnues :                                                            #
          EROR      "['"'$xrq/proton.K2.2$Y'"'] MACHINE 'mHOTE' (='$mHOTE') inconnue ('sHOTE'='$sHOTE')."
          breaksw
endsw

if   ("$mHOTE" == "$mDKVP") then
     set       Enregistreur=$EXIST
                                        # Cas ou l'on est sur la machine supportant le disque video.                                  #
else
     set       Enregistreur=$NEXIST
                                        # Cas ou l'on est sur une machine ne supportant pas le disque video.                          #
endif

if   ("$?Simulateur" == "$NEXIST") then
     set       Simulateur=$NEXIST
else
endif
if   ("$?Enregistreur" == "$NEXIST") then
     set       Enregistreur=$NEXIST
else
endif