[2] | 1 | #!/bin/ksh |
---|
[12] | 2 | # $Id$ |
---|
[2] | 3 | #--------------------------------------------------------------------- |
---|
| 4 | #- Installation of Makefiles according to an environment |
---|
| 5 | #--------------------------------------------------------------------- |
---|
[12] | 6 | function ins_make_Usage |
---|
| 7 | { |
---|
[294] | 8 | typeset -L13 h_n; typeset v0 v1 v2 v3 v4 v5 v6 v7; |
---|
| 9 | print - " |
---|
[12] | 10 | ins_make install the Makefile in the directories |
---|
| 11 | |
---|
| 12 | Usage : |
---|
| 13 | ${b_n} [-h] [-v] [-d] [-p r] [-t h] [-m m] |
---|
| 14 | |
---|
| 15 | Options : |
---|
| 16 | -h : help |
---|
| 17 | -v : verbose mode |
---|
| 18 | -d : debug mode |
---|
| 19 | -p p : int and real precision I4R4/I4R8/I8R8/4/8 |
---|
| 20 | -t h : target host_name |
---|
| 21 | -m m : mpi context choosen for the coupling MPI1/MPI2 |
---|
| 22 | |
---|
| 23 | Defaults : |
---|
| 24 | -t local_host -p I4R8 |
---|
| 25 | |
---|
| 26 | Example for remote host compilation : |
---|
| 27 | ins_make -t sx8brodie |
---|
| 28 | " |
---|
[294] | 29 | print - "Supported targets :\n" |
---|
| 30 | [[ ! -f "${MKTG}" ]] && { print - "? (${MKTG} unreachable)\n"; exit 3; } |
---|
| 31 | while read v1 v2 v3 v4 v5 v6 v7 |
---|
| 32 | do |
---|
| 33 | [[ -n "${v1}" && "${v1}${v3}" = '#-Q-#-' && \ |
---|
| 34 | -n "${v4}" && "${v4}${v5}${v6}" = 'Globaldefinitionsfor' ]] && \ |
---|
| 35 | { h_n=${v2}; print - "${h_n} : ${v7}"; } |
---|
| 36 | done <${MKTG} |
---|
| 37 | print - " |
---|
| 38 | Fot other targets, look in ${MKTG}. |
---|
| 39 | " |
---|
[12] | 40 | } |
---|
[293] | 41 | #- dirname and basename |
---|
| 42 | d_n=$(dirname ${0}); b_n=$(basename ${0}); |
---|
[294] | 43 | #- File containing global definitions |
---|
| 44 | MKTG=${d_n}'/AA_make.gdef' |
---|
[2] | 45 | #- Retrieving and validation of the options |
---|
[12] | 46 | x_v='silencious'; x_d='normal'; x_p="??"; x_t="??"; x_m='??'; |
---|
[2] | 47 | while getopts :hvdp:m:t: V |
---|
| 48 | do |
---|
[12] | 49 | case ${V} in |
---|
| 50 | (h) ins_make_Usage; exit 0;; |
---|
| 51 | (v) x_v='verbose';; |
---|
| 52 | (d) x_d='debug';; |
---|
| 53 | (p) x_p=${OPTARG};; |
---|
| 54 | (t) x_t=${OPTARG};; |
---|
| 55 | (m) x_m=${OPTARG};; |
---|
| 56 | (:) echo ${b_n}" : -"${OPTARG}" option : missing value" 1>&2; |
---|
| 57 | exit 2;; |
---|
| 58 | (\?) echo ${b_n}" : -"${OPTARG}" option : not supported" 1>&2; |
---|
| 59 | exit 2;; |
---|
| 60 | esac |
---|
[2] | 61 | done |
---|
| 62 | shift $(($OPTIND-1)); |
---|
| 63 | #- |
---|
| 64 | # Treatment of the options |
---|
| 65 | #- |
---|
| 66 | # Default INTEGER and REAL precision |
---|
| 67 | case ${x_p} in |
---|
[12] | 68 | ( I4R4 | 4 ) x_p='I4R4'; w_ip='4'; w_rp='4';; |
---|
| 69 | ( I4R8 | ?? ) x_p='I4R8'; w_ip='4'; w_rp='8';; |
---|
| 70 | ( I8R8 | 8 ) x_p='I8R8'; w_ip='8'; w_rp='8';; |
---|
[2] | 71 | (*) |
---|
[12] | 72 | echo 'Invalid precision ' 1>&2; |
---|
| 73 | echo ${x_p}' (must be I4R4, I4R8, I8R8, 4 or 8)' 1>&2; |
---|
[2] | 74 | exit 1;; |
---|
| 75 | esac |
---|
| 76 | #- |
---|
[12] | 77 | # Target_Host Name |
---|
| 78 | [[ ${x_t} = '??' ]] && \ |
---|
| 79 | { x_t=$(${d_n}/w_i_h); |
---|
| 80 | { [[ ${?} != 0 ]] && \ |
---|
| 81 | { echo "Bad installation : w_i_h/uname unreachable" 1>&2; |
---|
| 82 | exit 1; }; } || \ |
---|
| 83 | [[ ${x_t} = "Unknown" ]] && \ |
---|
| 84 | { echo "Local_Host not supported" 1>&2; exit 1; }; } |
---|
| 85 | #- |
---|
| 86 | [[ ! -f "${MKTG}" ]] && { echo "${MKTG} unreachable ..."; exit 3; } |
---|
| 87 | #- |
---|
[294] | 88 | W_XX=$(sed -n -e "s/^#-Q- *\(${x_t}\)[\t ].*$/\1/p" ${MKTG} | sort -u); |
---|
[249] | 89 | [[ '\?'"${W_XX}" != '\?'"${x_t}" ]] && \ |
---|
[12] | 90 | { echo "Target_Host "${x_t}" not supported" 1>&2; exit 1; } |
---|
| 91 | #- |
---|
[2] | 92 | case ${x_m} in |
---|
[12] | 93 | ( mpi1 | mpi2 | MPI1 | MPI2 | ?? );; |
---|
| 94 | (*) echo "MPI context "${x_m}" not supported" 1>&2; exit 1;; |
---|
[2] | 95 | esac |
---|
| 96 | #- |
---|
[12] | 97 | [[ ${x_v} = 'verbose' ]] && \ |
---|
| 98 | { echo ""; |
---|
| 99 | echo '--- Mode : '${x_v}; |
---|
| 100 | echo '--- Compilation : '${x_d}; |
---|
| 101 | echo '--- Precision : '${x_p}; |
---|
| 102 | echo '--- Target : '${x_t}; |
---|
| 103 | echo '--- MPI context : '${x_m}; } |
---|
[2] | 104 | #- |
---|
[12] | 105 | echo ""; echo "Installation of makefiles for ${x_t}"; echo ""; |
---|
| 106 | #- |
---|
[2] | 107 | l_rep=$(find ${d_n}/.. -name AA_make -print) |
---|
[12] | 108 | for i in ${l_rep} |
---|
[2] | 109 | do |
---|
[12] | 110 | j=${i%/AA_make}; |
---|
| 111 | echo "Installation in ${j}"; |
---|
| 112 | MKTL="${j}"'/AA_make.ldef'; |
---|
| 113 | [[ ! -f "${MKTL}" ]] && { echo "${MKTL} unreachable ..."; exit 3; } |
---|
| 114 | MKTR="${j}"'/AA_make'; |
---|
| 115 | cat ${MKTL} ${MKTG} ${MKTR} > mk1.$$; |
---|
[294] | 116 | W_PR='#-Q- *'; W_XX=${W_PR}${x_t}; |
---|
| 117 | sed -e "/^${W_XX}[\t ]/ s/^${W_XX} *//" -e "/^${W_PR}/d" mk1.$$ > mk2.$$; |
---|
[2] | 118 | #- |
---|
| 119 | # Default INTEGER and REAL precision |
---|
[12] | 120 | W_PR='#-P- '; W_XX=${W_PR}${x_p}; |
---|
| 121 | sed -e "/^${W_XX} */ s///" -e "/^${W_PR}/d" mk2.$$ > mk1.$$; |
---|
[2] | 122 | #- |
---|
[12] | 123 | # Handle the precision module "defprec.f90" in "IOIPSL/src" |
---|
| 124 | [[ '!!'${j##*/modeles} = '!!/IOIPSL/src' ]] && \ |
---|
| 125 | { [[ ${x_v} = 'verbose' ]] && W_XX='-v' || W_XX=""; |
---|
| 126 | ${d_n}/ins_m_prec ${W_XX} -i ${w_ip} -r ${w_rp}; r_c=${?}; |
---|
| 127 | unset w_ip w_rp; |
---|
| 128 | [[ ${r_c} != 0 ]] && exit ${r_c}; } |
---|
[2] | 129 | #- |
---|
| 130 | # Debug |
---|
[12] | 131 | W_PR='#-D- '; |
---|
| 132 | [[ ${x_d} = 'debug' ]] && W_XX=${W_PR}'MD' || W_XX=${W_PR}'MN'; |
---|
| 133 | sed -e "/^${W_XX} */ s///" -e "/^${W_PR}/d" mk1.$$ > mk2.$$; |
---|
[2] | 134 | #- |
---|
| 135 | # Retrieve the path of the directory |
---|
[108] | 136 | mk_dir=$(cd ${j};/bin/pwd;) |
---|
[2] | 137 | W_XX='MAKE_DIR =' |
---|
| 138 | # Update the value |
---|
| 139 | sed -e "s!^${W_XX}.*!${W_XX} ${mk_dir}!" mk2.$$ > mk1.$$ |
---|
| 140 | unset mk_dir; |
---|
| 141 | #- |
---|
| 142 | # Choice of mpi library for the coupling |
---|
[12] | 143 | W_XX='LIB_MPI ='; W_XX_BIS='LIB_MPI_BIS ='; |
---|
| 144 | case ${x_m} in |
---|
| 145 | ( mpi1 | MPI1 ) |
---|
| 146 | lib_mpi='MPI1'; lib_mpi_bis='MPI1'; |
---|
[2] | 147 | sed -e "s!^${W_XX}.*!${W_XX} ${lib_mpi}!" \ |
---|
[12] | 148 | -e "s!^${W_XX_BIS}.*!${W_XX_BIS} ${lib_mpi_bis}!" \ |
---|
| 149 | mk1.$$ > ${j}/Makefile;; |
---|
| 150 | ( mpi2 | MPI2 ) |
---|
| 151 | lib_mpi='MPI2'; lib_mpi_bis=''; |
---|
[2] | 152 | sed -e "s!^${W_XX}.*!${W_XX} ${lib_mpi}!" \ |
---|
[12] | 153 | -e "s!^${W_XX_BIS}.*!${W_XX_BIS} ${lib_mpi_bis}!" \ |
---|
| 154 | mk1.$$ > ${j}/Makefile;; |
---|
| 155 | (??) |
---|
| 156 | cp mk1.$$ ${j}/Makefile;; |
---|
| 157 | (*) ;; |
---|
| 158 | esac |
---|
| 159 | unset lib_mpi lib_mpi_bis; |
---|
[2] | 160 | done |
---|
| 161 | #- |
---|
[12] | 162 | echo ""; |
---|
| 163 | unset W_XX W_XX_BIS; rm -f mk1.$$ mk2.$$; |
---|
[2] | 164 | #- |
---|
| 165 | exit 0; |
---|