source: dynamico_lmdz/aquaplanet/IOIPSL/rebuild_src/rebuild @ 3897

#!/bin/ksh
# $Header$
#---------------------------------------------------------------------
# @(#)Rebuild IOIPSL domains
#---------------------------------------------------------------------
#-
#set -xv
#-
# Extract the calling sequence for the script (d_n/b_n)
#-
d_n=$(dirname $0); b_n=$(basename $0);
#-
# Retrieving and validation of the options
#-
r_v='silencious'; r_o="";
while getopts :hvo: V
 do
  case $V in
   (h) echo '';
       echo ${b_n} 'rebuild a model_file from several input files.';
       echo 'Each input file contains the model_data for a domain.';
       echo 'Usage :';
       echo ${b_n} '[-h]';
       echo ${b_n} '[-v] -o output_file_name list_of_input_file_names';
       echo ' -h : this help';
       echo ' -v : verbose mode';
       echo '';
       exit 0;;
   (v) r_v='verbose';;
   (o) r_o=${OPTARG};;
   (:)  echo ${b_n}" : option $OPTARG : missing value" 1>&2;
        exit 2;;
   (\?) echo ${b_n}" : option $OPTARG : not supported" 1>&2;
        exit 2;;
  esac
 done
shift $(($OPTIND-1));
#-
# Check for the output file
if [ '\?'${r_o} = '\?' ]; then
  echo ${b_n}' : output_file_name not specified. (Use -h)' 1>&2;
  exit 3;
fi;
#-
#-
# Validate the number of arguments
#-
if   [ ${#} -lt 1 ]; then
  echo ${b_n}' : Too few arguments have been specified. (Use -h)' 1>&2;
  exit 3;
fi
#-
# Validate the names of the input files
#-
qi=0;
for i in $*;
 do ((qi=qi+1));
  [ ${qi} -le ${#} ] && [ ! -f ${i} ] && \
    { echo "${i} unreachable ..."; exit 3;}
 done
#-
# Create the information file for the program
#-
echo ${r_v} > tmp.$$;
((qi=$#+1));
echo ${qi} >> tmp.$$;
for i in $*;
 do echo ${i} >> tmp.$$;
 done
echo ${r_o} >> tmp.$$;
#-
# Create the output file
#-
${d_n}/flio_rbld < tmp.$$
#-
# Clear
#-
rm -f tmp.$$
#-
# End
#-
exit 0;