source: modipsl/trunk/util/ins_job @ 91

#!/bin/ksh
# $Id$
#---------------------------------------------------------------------
#- Installation of jobs according to an environment
#---------------------------------------------------------------------
function ins_job_Usage
{
echo "
ins_job installs the jobs in the directories
which contain a file config.card

ins_job must be launched on the host
on which the job will be submitted

Usage :
  ${b_n} [-h] [-v]

Options :
  -h   : help
  -v   : verbose mode
"
}
#-
#   dirname and  basename
#-
d_n=${0%/*}; b_n=${0##*/};
#-
# Retrieving and validation of the options
#-
x_v='silencious';
while getopts :hv V
  do
   case $V in
    (h)  ins_job_Usage; exit 0;;
    (v)  x_v='verbose';;
    (:)  echo ${b_n}" : -"${OPTARG}" option : missing value" 1>&2;
         exit 2;;
    (\?) echo ${b_n}" : -"${OPTARG}" option : not supported" 1>&2;
         exit 2;;
    esac
  done
shift $(($OPTIND-1));
#-
# Define working files
#-
F_MOD=$(cd ${d_n}'/..';pwd)
[[ ${F_MOD##*/} != 'modipsl' ]] && \
 { print - "directory 'modipsl' unreachable"; exit 3; }
W_W=${d_n}'/../libIGCM'
[[ ! -d ${W_W} ]] && { print - "${W_W} unreachable"; exit 3; }
libIGCM=$(cd ${W_W};pwd)
F_JOB=${libIGCM}'/AA_job';
[[ ! -f ${F_JOB} ]] && { print - "${F_JOB} unreachable"; exit 3; }
F_RCI=${libIGCM}'/run.card.init';
[[ ! -f ${F_RCI} ]] && { print - "${F_RCI} unreachable"; exit 3; }
#-
# Host Name
#-
x_t=$(${d_n}/w_i_h) 2>/dev/null;
{ [[ ${?} != 0 ]] && \
   { print - "\nw_i_h or uname unreachable\n" 1>&2; exit 1; }; } || \
  [[ ${x_t} = "Unknown" ]] && \
   { print - "\nLocal_Host not supported\n" 1>&2; exit 1; };
#-
W_W=$(sed -n -e "s/^#-Q-  *\([^ ]*\).*$/\1/p" ${F_JOB} | \
       sort -u | sed -e "/${x_t}/!d");
[[ '\?'"${W_W}" != '\?'${x_t} ]] && \
  {
   print - "\nHost  "${x_t}"  not supported" 1>&2;
   print - "'default' will be used" 1>&2;
   x_t='default'
  }
#-
[[ ${x_v} = 'verbose' ]] && \
 {
  print - "";
  print - '--- Host        : '${x_t};
  print - '--- modipsl     : '${F_MOD};
  print - '--- libIGCM     : '${libIGCM};
  print - '--- basic job   : '${F_JOB};
  print - '--- basic card  : '${F_RCI};
 }
#-
print - "\nInstallation of jobs for '${x_t}'";
#-
# Accessing to functions (without stack)
#-
DEBUG_debug=false
. ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh
. ${libIGCM}/libIGCM_card/libIGCM_card.ksh
#-
# Extract list of 'config.card' files
# and create jobs with AA_job
#-
F_CFG='config.card';
l_cfg=$(find ${d_n}/.. -name ${F_CFG} -print)
for i in ${l_cfg}
do
  j=$(cd ${i%/*};pwd)
  \cp ${F_RCI} ${j}
# IGCM_card_DefineArrayFromSection ${j}'/'${F_CFG} UserChoices
  IGCM_card_DefineVariableFromOption ${j}'/'${F_CFG} UserChoices JobName
  print - "\nWorking with file ${F_CFG}";
  print - "in directory ${j}";
  print - "for Job_${config_UserChoices_JobName}"
  W_P='#-Q- '; W_W=${W_P}${x_t};
  sed -e "/^${W_W} */ s///" \
      -e "/^${W_P}/d"       \
      -e "s%::modipsl::%${F_MOD}%" \
      -e "s/::Jobname::/${config_UserChoices_JobName}/" \
      ${F_JOB} > ${j}'/Job_'${config_UserChoices_JobName}
done
#-
# Extract list of AA_* files in libIGCM
# and create jobs (but not with AA_job
#-
l_cfg=$(find ${libIGCM} -name "AA_*" -print)
for i in ${l_cfg}
do
  i_f=${i##*/};
  [[ ${i_f} = 'AA_job' ]] && continue
  i_d=${i%/*}; n_f=${i_f#AA_}'.job';
  print - "\nIn directory ${i_d}\n${i_f} -> ${n_f}"
  sed -e "/^${W_W} */ s///" \
      -e "/^${W_P}/d"       \
      ${i} > ${i_d}'/'${n_f}
done
#-
# That's all folks
#-
exit 0;