source: modipsl/trunk/util/model @ 13

Last change on this file since 13 was 13, checked in by bellier, 17 years ago

JB: Id added
  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 12.5 KB
RevLine 
[2]1#!/bin/ksh
[12]2#- $Id$
[2]3#---------------------------------------------------------------------
[12]4# @(#)Actions concerning IPSL models
[2]5#---------------------------------------------------------------------
6#set -xv
7MAIL_ADDRESS=patricia.cadule@ipsl.jussieu.fr
8MAIL_COM=mail
9#MAIL_COM=Mail
[12]10#---
11#- Dirname and Basename
12#---
13d_n=${0%/*}; b_n=${0##*/};
14#---
15#- Retrieve and validate the options
16#---
17m_n=""; m_a=""; m_v='silencious'; no_tag='false';
[2]18while getopts :heudrvH V
19  do
20    case $V in
21      (h)  m_a='help';;
22      (e)  m_a='checkout';;
23      (u)  m_a='update';;
24      (d)  m_a='diff';;
25      (r)  m_a='remove';;
26      (v)  m_v='verbose';;
27      (H)  no_tag='true';;
28      (:)  echo ${b_n}" : option $OPTARG : missing value" 1>&2;
29           exit 2;;
30      (\?) echo ${b_n}" : option $OPTARG : not supported" 1>&2;
31           exit 2;;
32    esac
33  done
34shift $(($OPTIND-1));
[12]35#---
36#- Validate the action
37#---
38[[ -z "${m_a}" ]] && { m_a='checkout'; }
39[[ ${m_a} = help || ${m_a} = checkout || ${m_a} = update || \
40   ${m_a} = diff || ${m_a} = remove ]] || \
41  { echo 'Action '"${m_a}"' not supported' 1>&2; exit 4; }
42#---
43#- Retrieve the model name
44#---
45[[ ${#} -gt 1 ]] && \
46  { echo 'Only one model can be specified' 1>&2; exit 3; }
47[[ ${#} -eq 1 ]] && { m_n="${1}"; }
48[[ ${m_a} != 'help' && -z ${m_n} ]] && \
49 {
[2]50  echo 'Model not specified' 1>&2;
51  echo 'Try "'${b_n}' -h [model-name]"' 1>&2;
52  exit 3;
[12]53 }
54#---
55#- Test of presence of the definition file
56#---
[2]57F_DEF=${d_n}'/mod.def'
[12]58[[ ! -f "${F_DEF}" ]] && { echo "${F_DEF} unreachable ..."; exit 3; }
59#---
60#- Extract the names of the supported models
61#---
62qi=0;
63while read v0 v1 v2
64  do
65    [[ -n "${v0}" && "${v0}" = '#-C-' ]] && \
66     { ((qi=qi+1)); m_x[${qi}]=${v1}; }
67  done <${F_DEF}
68unset v0 v1 v2;
69#---
70#- Model name validation and data retrieving
71#---
72[[ -n "${m_n}" ]] && \
[2]73  {
[12]74    #- Validate the model name
[2]75    i_m=-1;
76    qi=0; while (( ${qi} < ${#m_x[@]} ))
77      do
78        ((qi=qi+1));
[12]79        [[ ${m_n} = ${m_x[${qi}]} ]] && { i_m=${qi}; break; };
[2]80      done
81    (( ${i_m} < 0 )) && \
82     { echo 'Model '"${m_n}"' unknown' 1>&2;
[12]83       echo 'Try "'${b_n}' -h"' 1>&2; exit 3; }
84    #- Extract the repository informations
85    #- ( index, repository system, servers address )
86    while read v0 v1 v2 v3
[2]87      do
[12]88        [[ -n "${v0}" && "${v0}" = '#-S-' ]] && \
89         { r_p[${v1}]=${v2}; r_s[${v1}]=${v3}; }
90      done <${F_DEF}
91    unset v0 v1 v2 v3;
92    #- Extract the model informations
93    while read v0 v1 v2
94      do
95        [[ -n "${v1}" && "${v1}" = "${m_n}" ]] && \
96         {
97          #- model manager email address
98          [[ "${v0}" = '#-M-' ]] && { m_m=${v2}; continue; }
99          #- model components
100          [[ "${v0}" = '#-C-' ]] && \
101           {
102            qi=0;
103            for i in ${v2}; do ((qi=qi+1)); m_c[${qi}]=${i}; done;
104            continue;
105           }
106          #- model tags
107          [[ "${v0}" = '#-T-' ]] && \
108           {
109            qi=0;
110            for i in ${v2}
111             do
112              ((qi=qi+1));
113              [[ ${no_tag} = 'false' ]] && \
114               { m_t[${qi}]=${i}; }     || \
115               { m_t[${qi}]='?'; }
116             done
117            continue;
118           }
119          #- model repository information indexes
120          [[ "${v0}" = '#-I-' ]] && \
121           {
122            qi=0;
123            for i in ${v2}
124             do
125               ((qi=qi+1));
126               m_p[${qi}]=${r_p[${i}]};
127               [[ ${m_p[${qi}]} = svn || ${m_p[${qi}]} = cvs ]] || \
128                {
129                 echo 'System '"${m_p[${qi}]}"' not supported' 1>&2;
130                 exit 3;
131                }
132               m_s[${qi}]=${r_s[${i}]};
133               [[ -z "${m_s[${qi}]}" ]] && \
134                {
135                 echo 'Server '${i}'  not found for '${m_n};
136                 exit 3;
137                }
138             done
139            continue;
140           }
141          #- model installation directories
142          [[ "${v0}" = '#-D-' ]] && \
143           {
144            qi=0;
145            for i in ${v2};
146             do
147              ((qi=qi+1));
148              m_d[${qi}]=${i};
149              [[ -z "${m_l[${qi}]}" ]] && { m_l[${qi}]="modeles"; }
150             done
151            continue;
152           }
153          #- model working local directories
154          [[ "${v0}" = '#-L-' ]] && \
155           {
156            qi=0;
157            for i in ${v2};
158             do
159              ((qi=qi+1));
160              m_l[${qi}]=${i};
161             done
162            continue;
163           }
164         }
165      done <${F_DEF}
166    unset v0 v1 v2
167    #- Validate the model informations
168    #- model manager email address
169    [[ -z "${m_m}" ]] && \
170     { echo 'Manager email address not found for '${m_n}; exit 3; }
171    #- model components
172    [[ ${#m_c[@]} = 0 ]] && \
173     { echo 'Components not found for '${m_n}; exit 3; }
174    #- model tags
175    [[ ${#m_t[@]} = 0 ]] && \
176     { echo 'Tags not found for '${m_n}; exit 3; }
177    #- model repository information indexes
178    [[ ${#m_p[@]} = 0 || ${#m_s[@]} = 0 ]] && \
179     { echo 'Indexes not found for '${m_n}; exit 3; }
180    #- model installation directories
181    [[ ${#m_d[@]} = 0 ]] && \
[2]182      { echo 'Target Directories not found for '${m_n}; exit 3; }
[12]183    #- model working local directories
184    # N/A
[2]185  }
[12]186#---
187#- send an email at the first use of modipsl
188#- ie directory ~/.modipsl does not exist
189#---
[2]190D_LOG=${HOME}/.modipsl
[12]191[[ -d "${D_LOG}" ]] || \
192  {
193    mkdir "${D_LOG}";
194    echo $(date +"%D %T") $(whoami) $(uname -m) \
195     first use of model | \
196    ${MAIL_COM} -s "first use of modipsl" \
197     ${MAIL_ADDRESS} >/dev/null 2>&1;
198    echo $(date +"%D %T") creation >"${D_LOG}"/first;
199  }
200#---
201#- "help" action
202#---
203[[ ${m_a} = 'help' ]] && \
204 {
[2]205  echo ' ';
[12]206  if [ -z "${m_n}" ]; then
207    echo ${b_n} 'extracts the components of a model';
208    echo ' ';
[2]209    echo 'Usage    :';
210    echo ${b_n} '[-h]';
211    echo ${b_n} '[-h] model_name';
212    echo ${b_n} '[-e/u/d/r] [-H] [-v] model_name';
213    echo 'h            : this help';
214    echo 'h model-name : help on model';
215    echo 'e/u/d/r      : extract/update/diff/remove model';
[12]216    echo 'H            : suppress the tags and take the HEAD version';
[2]217    echo 'v            : verbose mode';
218    echo 'Defaults     : -e';
219    echo ' ';
220    echo 'model_name in :';
221    qi=0; while (( ${qi} < ${#m_x[@]} ));
[12]222      do ((qi=qi+1)); echo ${m_x[${qi}]}; done
[2]223  else
[12]224    echo 'model : '${m_n};
[2]225    echo ' ';
[12]226    while read v0 v1 v2
227     do
228       [[ -n "${v0}" && "${v0}" = '#-H-' && \
229          -n "${v1}" && "${v1}" = "${m_n}" ]] && { echo ${v2}; }
230     done <${F_DEF}
231    unset v0 v1 v2;
[2]232    echo ' ';
[12]233    echo 'model manager email address : '${m_m};
234    echo ' ';
[2]235    qi=0; while (( ${qi} < ${#m_c[@]} ))
236      do
237        ((qi=qi+1));
[12]238        echo 'Component '${qi}' : '${m_c[${qi}]};
239        echo 'Tag       '${qi}' : '${m_t[${qi}]};
240        echo 'System    '${qi}' : '${m_p[${qi}]};
241        echo 'Server    '${qi}' : '${m_s[${qi}]};
242        echo 'Directory '${qi}' : '${m_d[${qi}]};
243        echo 'Local Dir '${qi}' : '${m_l[${qi}]};
[2]244      done
245  fi
246  echo ' ';
247  exit 0;
[12]248 }
249#---
250#- Record information about the action in the "log" file
251#---
[2]252F_LOG=${d_n}'/log'
253echo "${F_LOG}"
[12]254echo $(date +"%D %T") $0 $* >>"${F_LOG}"
255#---
256#- Verbose mode
257#---
[2]258[ ${m_v} = 'verbose' ] && \
259 { echo '--- Model        : '${m_n};
260   echo '--- Action       : '${m_a};
261   echo '--- Mode         : '${m_v}; }
[12]262#---
263#- Record information about the action in the "log" file
264#---
[2]265{ echo '--- Model        : '${m_n};
266  echo '--- Action       : '${m_a};
[12]267  echo '--- Mode         : '${m_v};
[2]268  echo '--- Mail address : '${m_m}; } >>"${F_LOG}"
[12]269#---
270#- Components root directory
271#---
272d_m=${d_n}'/..';
273#---
274#- send an email at the first use of this IPSL model
275#- ie file ~/.modipsl/log.${m_n} does not exist
276#---
[2]277M_LOG=${D_LOG}/log.${m_n}
[12]278[[ -f "${M_LOG}" ]] || \
279  {
280   echo $(date +"%D %T") $(whoami) $(uname -m) \
281    first usage of model ${m_n} | \
282   ${MAIL_COM} -s "first usage of model ${m_n}" \
283    ${m_m} >/dev/null 2>&1;
284   echo $(date +"%D %T") model ${m_n} >"${M_LOG}";
285  }
286#---
287#- Extract the model components
288#---
[2]289qi=0; while (( ${qi} < ${#m_c[@]} ))
290  do
[12]291    ((qi=qi+1));
292    zc=${m_c[${qi}]}; zt=${m_t[${qi}]};
293    zp=${m_p[${qi}]}; zs=${m_s[${qi}]};
294    zd=${m_d[${qi}]}; zl=${m_l[${qi}]};
295    [[ ${m_v} = 'verbose' ]] && \
[2]296     { echo '---';
297       echo '--- Component  : '${zc};
298       echo '--- Tag        : '${zt};
[12]299       echo '--- System     : '${zp};
300       echo '--- Server     : '${zs};
301       echo '--- Directory  : '${zd};
[2]302       echo '--- Local Dir  : '${zl}; }
[12]303#---
304#-   Record information about the action in the "log" file
305#---
[2]306     { echo '---';
307       echo '--- Component  : '${zc};
308       echo '--- Tag        : '${zt};
[12]309       echo '--- System     : '${zp};
310       echo '--- Server     : '${zs};
311       echo '--- Directory  : '${zd};
[2]312       echo '--- Local Dir  : '${zl}; } >>"${F_LOG}"
[12]313#---
314    [[ ${zp} = 'cvs' ]] && \
315     {
316      case ${m_a} in
317        ( checkout | update | diff )
318          c_c='(cd '${d_m}/${zl}'; '${zp}' -d :pserver:'${zs}' '${m_a};
319          [[ ${m_a} = 'checkout' && ${zt} != '?' ]] && \
320           { c_c=${c_c}' -r '${zt}; }
321          [[ ${m_a} = 'checkout' && ${zd} != '.' ]] && \
322           { c_c=${c_c}' -d '${zd}; }
323          c_c=${c_c}' '${zc}')';;
324        ( remove )
325          c_c='(cd '${d_m}/${zl}'; rm -rf '${zc}')';;
326      esac
327      grep "${zs%%/*}"'.*/'"${zs#*/}" ~/.cvspass > /dev/null;
328      [[ ${?} != 0 ]] && \
329       {
330        c_z='cvs -d :pserver:'${zs}' login';
331        [[ ${m_v} = 'verbose' ]] && { echo ${c_z}; }
332        eval ${c_z};
333       }
334     }
335#---
336    [[ ${zp} = 'svn' ]] && \
337     {
338      case ${m_a} in
339        ( checkout | update | diff )
340          c_c='(cd '${d_m}/${zl}'; '${zp}' '${m_a};
341          [[ ${m_a} = 'checkout' && ${zt} != '?' ]] && \
342           { c_c=${c_c}' -r '${zt}; }
343          c_c=${c_c}' '${zs}'/'${zc};
344          [[ ${m_a} = 'checkout' && ${zd} != '.' ]] && \
345           { c_c=${c_c}' '${zd}; }
346          c_c=${c_c}')';;
347        ( remove )
348          c_c='(cd '${d_m}/${zl}'; rm -rf '${zc##*/}')';;
349      esac
350     }
351#---
352    [[ ${m_v} = 'verbose' ]] && { echo '--- Command    : '${c_c}; }
[2]353    eval ${c_c};
354  done
[12]355#---
356#- Actions related to the WORK directory for the OPA models
357#---
[2]358case ${m_n} in
[12]359  ( EEL* |  ORCA* | OFF_TRC | IPSLCM* | ORCA_TOYATM | \
360    NEMO_ORCA2_LIM | GYRE )
[2]361    d_m1=${d_m}/modeles/OPA  ;
362    [ ${m_a} = 'checkout' -o ${m_a} = 'remove' ] &&
363      { [ -d ${d_m1}/WORK ] && \rm -rf ${d_m1}/WORK; };
364    [ ${m_a} = 'checkout' -o ${m_a} = 'update' ] &&
365   {
366     [ -d ${d_m1}/WORK ] || mkdir ${d_m1}/WORK;
[12]367     cd ${d_m1}/WORK;
[2]368# Getting the configuration files to build the Makefile
[12]369     ln -sf ../../../*/${m_n}/scripts/BB_make AA_make;
[2]370     ln -sf ../../../*/${m_n}/scripts/BB_make.ldef AA_make.ldef ;
371     case ${m_n} in
372       ( ORCA2_LMDZ96x71 )
373         echo " Creation du catalogue OPA/WORK = ORCA + LIM"
374         ln -sf ../SRC_ORCA/*.[Ffh] .
375         ln -sf ../SRC_UCL/[a-z]* .
376         ln -sf ../../${m_n}/scripts/prep.sed.coupled .;;
377       ( ORCA2 | ORCA4 | ORCA05 | EEL2 | EEL6 )
378         echo " Creation du catalogue OPA/WORK = ORCA"
379         ln -sf ../SRC_ORCA/*.[Ffh] .;;
380       ( ORCA*LIM | IPSLCM* | ORCA_TOYATM | ORCA*LMD* )
[12]381         [ "${m_n}" = "IPSLCM4_LOOP" ] && \
382          echo " Creation du catalogue OPA/WORK = ORCA + LIM + TRC" || \
383          echo " Creation du catalogue OPA/WORK = ORCA + LIM"
[2]384         ln -sf ../SRC_ORCA/*.[Ffh] .
385         [ "${m_n}" = "IPSLCM4_LOOP" ] && \rm *.passivetrc.h
[12]386         [ "${m_n}" = "IPSLCM4_LOOP" ] && \
387           ln -sf ../SRC_TRC/*.[Ffh] ../SRC_TRC/trc_sms/*.[Ffh] .
[2]388         ln -sf ../SRC_UCL/[a-z]* .;;
389       ( ORCA*_LIM_TRC )
390         echo " Creation du catalogue OPA/WORK = ORCA + LIM + TRC"
391         ln -sf ../SRC_ORCA/*.[Ffh] .
392         \rm *.passivetrc.h
393         ln -sf ../SRC_TRC/*.[Ffh] ../SRC_TRC/trc_sms/*.[Ffh] .
394         ln -sf ../SRC_UCL/[a-z]* .;;
395       ( *LOBSTER1 )
396         echo " Creation du catalogue OPA/WORK = ORCA + TRC"
397         ln -sf ../SRC_ORCA/*.[Ffh] .
398         \rm *.passivetrc.h
399         ln -sf ../SRC_TRC/*.[Ffh] ../SRC_TRC/trc_sms/*.[Ffh] .;;
400       ( ORCA*_OFF_TRC )
401         echo " Creation du catalogue OPA/WORK = TRC + OFFLINE"
402         ln -sf ../SRC_TRC/*.[Ffh] ../SRC_TRC/trc_sms/*.[Ffh] .
403         ln -sf ../SRC_OFFLINE_TRC/*.[Ffh] .;;
404     esac
405# Building the standard list of source files
[12]406     cat >.patron <<"EOF"
[2]407CVS
408SRC_PARAM
409SRC_FILE_LIST
410tmplist
411AA_make
412KEY_CPP
413Makefile
414*?.o
415 i.?*
416*?.L
417.patron
418bloc.com
419para.com
420defcst.f
421fontbc.f
422icdyna.f
423thersf.f
424EOF
[12]425     ls -1 | fgrep -v -f .patron  >SRC_FILE_LIST;
426     cp SRC_FILE_LIST SRC_FILE_LIST.temp;
[2]427#
428     KEY=$(grep P_P AA_make.ldef);
429     [ -f "KEY_CPP" ] || echo $KEY > KEY_CPP;
430    };;
431esac
[12]432#---
433#- That's all folks
434#---
[2]435exit 0;
Note: See TracBrowser for help on using the repository browser.