source: palm/trunk/SCRIPTS/palmbuild @ 3033

Last change on this file since 3033 was 3033, checked in by raasch, 3 years ago

keyword correction

  • Property svn:executable set to *
  • Property svn:keywords set to Id Rev
File size: 31.0 KB
Line 
1#!/bin/bash
2
3# palmbuild - script for compiling the PALM code and its utility programs
4
5#------------------------------------------------------------------------------#
6# This file is part of the PALM model system.
7#
8# PALM is free software: you can redistribute it and/or modify it under the terms
9# of the GNU General Public License as published by the Free Software Foundation,
10# either version 3 of the License, or (at your option) any later version.
11#
12# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
13# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15#
16# You should have received a copy of the GNU General Public License along with
17# PALM. If not, see <http://www.gnu.org/licenses/>.
18#
19# Copyright 2017-2018  Leibniz Universitaet Hannover
20#------------------------------------------------------------------------------#
21#
22# Current revisions:
23# ------------------
24#
25#
26# Former revisions:
27# -----------------
28# $Id: palmbuild 3033 2018-05-23 15:26:19Z raasch $
29# "fname" renamed to "jobname"
30#
31# 2718 2018-01-02 08:49:38Z maronga
32# Corrected "Former revisions" section
33#
34# 2696 2017-12-14 17:12:51Z kanani
35# Change in file header (GPL part)
36#
37# 2566 2017-10-20 08:50:47Z raasch
38# informative messages switched of almost completely in silent mode
39# two header blocks merged into one
40#
41# 2506 2017-09-29 08:30:37Z raasch
42# option -V added to check for an existing SOURCES_FOR_RUN_... folder
43# host configuration added to SOURCES_FOR_RUN_... folder name
44# SOURCES_FOR_RUN_... folder is deleted in case of compilation errors
45# host_identifier renamed host_configuration
46#
47# 2500 2017-09-25 11:10:03Z raasch
48# bugfix for r2492
49#
50# 2492 2017-09-21 14:18:48Z raasch
51# ask for compilation, if SOURCES_FOR_RUN_... exists
52#
53# 2487 2017-09-21 11:30:10Z raasch
54# bugfix: abort in case of compiling/linking errors in silent mode
55#
56# 2422 2017-09-08 08:25:41Z raasch
57# initial revision
58#
59#------------------------------------------------------------------------------#
60# palmbuild - script for compiling the PALM code and its utility programs
61#
62# Procedure to compile code on local and remote hosts using the
63# make-mechanism. The source code must be provided on the local host.
64#
65# @note This script does not work on MAC OS
66#------------------------------------------------------------------------------#
67
68
69    # VARIABLE DECLARATIONS + DEFAULT VALUES
70 calltime=""
71 column1=""
72 column2=""
73 host_configuration=default
74 locat=normal
75 makefile=""
76 make_options=""
77 module_commands=""
78 program_name=palm
79 remote_ip=""
80 silent=false
81 ssh_key=""
82 suf=f90
83 use_existing_sources_folder=false
84 version="palmbuild  1.0  Rev$Rev: 3033 $"
85 working_directory=`pwd`
86
87
88
89    # ERROR HANDLING
90    # IN CASE OF EXIT:
91 trap 'rm -rf  ${source_path}/${host_configuration}_last_make_protocol
92       if [[ $locat != normal ]]
93       then
94          printf "\n\n +++ palmbuild killed \n\n"
95          exit 1
96       else
97          if [[ $silent = false ]]
98          then
99             printf "\n\n *** palmbuild finished \n\n"
100          fi
101          exit 0
102       fi
103      ' exit
104
105
106    # IN CASE OF TERMINAL-BREAK:
107 trap 'printf "\n\n +++ palmbuild killed by \"^C\" \n\n"
108       rm  ${source_path}/${host_configuration}_last_make_protocol
109       exit
110      ' 2
111
112
113
114    # READ SHELLSCRIPT-OPTIONS
115 while  getopts  :d:h:m:s:S:uvV  option
116 do
117   case  $option  in
118       (d)   jobname=$OPTARG;;
119       (h)   host_configuration=$OPTARG;;
120       (m)   makefile=$OPTARG;;
121       (s)   suf=$OPTARG;;
122       (S)   source_list="$OPTARG";;
123       (v)   silent=true;;
124       (V)   use_existing_sources_folder=true;;
125       (\?)  printf "\n  +++ unknown option $OPTARG \n";
126             locat=parameter; exit;;
127   esac
128 done
129
130
131    # FOR COMPATIBILITY REASONS SET OLD ENVIRONMENT VARIABLE
132 export fname=$jobname
133
134
135    # BUILD THE CONFIGURATION-FILE NAME AND THE SOURCES_FOR_RUN-FOLDER NAME
136 config_file=.palm.config.$host_configuration
137 sources_for_run_catalog=SOURCES_FOR_RUN_${host_configuration}_$jobname
138
139
140    # CHECK, IF CONFIGURATION-FILE EXISTS
141 if [[ ! -f $config_file ]]
142 then
143    printf "\n  +++ configuration file: "
144    printf "\n           $config_file"
145    printf "\n      does not exist"
146    locat=configuration; exit 
147 fi
148
149
150    # ### is this really required?
151 config_file=$PWD/$config_file
152
153
154    # READ VARIABLE SETTINGS FROM CONFIG FILE LINE BY LINE
155 while  read line
156 do
157
158       # FIRST REPLACE ENVIRONMENT-VARIABLES BY THEIR RESPECTIVE VALUES
159    eval  line=\"$line\"
160
161
162       # INTERPRET THE LINE
163    if [[ "$(echo $line)" = "" ]]
164    then
165
166          # EMPTY LINE, NO ACTION
167       continue
168
169    elif [[ "$(echo $line | cut -c1)"  =  "#" ]]
170    then
171
172          # LINE IS A COMMENT LINE
173       continue
174
175    elif [[ "$(echo $line | cut -c1)"  =  "%" ]]
176    then
177
178          # LINE DEFINES AN ENVIRONMENT-VARIABLE
179       var=`echo $line | cut -d" " -s -f1 | cut -c2-`
180       value=`echo $line | cut -d" " -s -f2-`
181
182          # REPLACE ":" BY " " IN COMPILER- CPP- OR LINKER-OPTIONS,
183          # "::" IS REPLACED BY ":".
184       #value=`echo $value | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'`
185
186
187          # VALUE FROM THE CONFIGURATION-FILE IS ASSIGNED TO THE
188          # ENVIRONMENT-VARIABLE, BUT ONLY IF NO VALUE HAS BEEN ALREADY
189          # ASSIGNED WITHIN THIS SCRIPT (E.G. BY SCRIPT-OPTIONS).
190          # NON-ASSIGNED VARIABLES HAVE VALUE "" OR 0 (IN CASE OF INTEGER).
191          # HENCE THE GENERAL RULE IS: SCRIPT-OPTION OVERWRITES THE
192          # CONFIGURATION-FILE.
193       if [[ "$(eval echo \$$var)" = ""  ||  "$(eval echo \$$var)" = "0" ]]
194       then
195          eval  export  $var="\$value"
196
197             # TERMINAL OUTPUT OF ENVIRONMENT-VARIABLES, IF TRACEBACK IS SWITCHED on
198          if [[ $do_trace = true ]]
199          then
200             printf "\n*** ENVIRONMENT-VARIABLE $var = $value"
201          fi
202       fi
203
204    else
205
206          # SKIP ALL OTHER LINES
207       continue
208
209    fi
210
211 done < $config_file
212
213 
214    # CHECK, IF THE BASE DIRECTORY PATH HAS BEEN GIVEN
215 if [[ "$base_directory" = "" ]]
216 then
217    printf "\n  +++ no base directory found in configuration file"
218    locat=config_file; exit
219 else
220    if [[ ! -d $base_directory ]]
221    then
222       printf "\n\n  +++ base directory \"$base_directory\" "
223       printf "\n      does not exist"
224       locat=source_path; exit
225    fi
226 fi
227
228
229    # CHECK SOURCE-CODE PATH
230 if [[ "$source_path" = "" ]]
231 then
232    printf "\n  +++ no source path found in configuration file"
233    locat=config_file; exit
234 else
235    if [[ ! -d $source_path ]]
236    then
237       printf "\n\n  +++ source path \"$source_path\" "
238       printf "\n      does not exist"
239       locat=source_path; exit
240    fi
241 fi
242
243
244    # CHECK MAKEFILE
245 [[ "$makefile" = "" ]]  &&  makefile=$source_path/Makefile
246 if [[ ! -f $makefile ]]
247 then
248    printf "\n  +++ makefile: "
249    printf "\n           $makefile"
250    printf "\n      does not exist"
251    locat=makefile; exit 
252 fi
253
254
255    # CHECK COMPILERNAME
256 if [[ "$compiler_name" = "" ]]
257 then
258    printf "\n  +++ no compiler name found in configuration file"
259    locat=config_file; exit
260 fi
261
262
263    # CHECK SERIAL COMPILERNAME
264 if [[ "$compiler_name_ser" = "" ]]
265 then
266    printf "\n  +++ no compiler name for serial compilation in configuration file"
267    locat=config_file; exit
268 fi
269
270
271    # DETERMINE SSH-KEY TO BE USED
272 if [[ "$ssh_key" != "" ]]
273 then
274    ssh_key="-i $HOME/.ssh/`echo $line | cut -d" " -s -f2`"
275 fi
276
277
278    #CHECK CPP-OPTIONS
279 if [[ "$cpp_options" = "" ]]
280 then
281    printf "\n  +++ WARNING: no cpp-options found in configuration file"
282 fi
283
284
285    # CHECK SETTINGS IN CASE OF COMPILING ON REMOTE MACHINE
286 if [[ "$remote_ip" != "" ]]
287 then
288 
289    if [[ "$remote_username" = "" ]]
290    then
291       printf "\n  +++ no user name given in configuration file"
292       locat=config_file; exit
293    fi
294
295       # GET SOURCE AND DEPOSITORY PATH ON THE REMOTE MACHINE WITHOUT EVALUATING
296       # THE $
297       # IF NOT GIVEN, USE THE LOCAL SOURCE AND DEPOSITORY PATH
298    line=`grep %remote_source_path $config_file`
299    if [[ "$line" != "" ]]
300    then
301       remote_source_path=`echo $line | cut -d" " -s -f2`
302    else
303       line=`grep %source_path $config_file`
304       remote_source_path=`echo $line | cut -d" " -s -f2`
305    fi
306
307    line=`grep %base_directory $config_file`
308    make_depository=`echo $line | cut -d" " -s -f2`/MAKE_DEPOSITORY_${host_configuration}
309
310 else
311
312    make_depository=${base_directory}/MAKE_DEPOSITORY_${host_configuration}
313
314 fi
315
316    # HEADER-OUTPUT (PART1: MESSAGES CONCERNING THE LOCAL HOST)
317 if [[ $silent = false ]]
318 then
319    calltime=$(date)
320    printf "\n"
321    printf "#------------------------------------------------------------------------# \n"
322    printf "| %-40s%30s | \n" "$version" "$calltime"
323    printf "|                                                                        | \n"
324    printf "| %-13s%-57s | \n" "called on:" "$(hostname) (IP:$local_ip)"
325    column2=$(echo $config_file | cut -c1-57 )
326    printf "| %-13s%-57s | \n" "config file:" "$column2"
327    line=$(echo "$config_file" | cut -c58-)
328    while [[ "$line" != "" ]]
329    do
330       column1=""
331       column2=$(echo $line | cut -c1-57 )
332       printf "| %-13s%-57s | \n" "$column1" "$column2"
333       line=$(echo "$line" | cut -c58-)
334    done
335    column2=$(echo $makefile | cut -c1-57 )
336    printf "| %-13s%-57s | \n" "makefile:" "$column2"
337    line=$(echo "$makefile" | cut -c58-)
338    while [[ "$line" != "" ]]
339    do
340       column1=""
341       column2=$(echo $line | cut -c1-57 )
342       printf "| %-13s%-57s | \n" "$column1" "$column2"
343       line=$(echo "$line" | cut -c58-)
344    done
345    column2=$(echo $source_path | cut -c1-57 )
346    printf "| %-13s%-57s | \n" "source path:" "$column2"
347    line=$(echo "$source_path" | cut -c58-)
348    while [[ "$line" != "" ]]
349    do
350       column1=""
351       column2=$(echo $line | cut -c1-57 )
352       printf "| %-13s%-57s | \n" "$column1" "$column2"
353       line=$(echo "$line" | cut -c58-)
354    done
355    printf "|                                                                        | \n"
356   
357    if [[ "$remote_ip" != "" ]]
358    then
359       column2="$host_configuration"
360       printf "| %-20s%-50s | \n" "host configuration:" "$column2"
361       column2=$(echo "$make_depository" | cut -c1-50 )
362       printf "| %-20s%-50s | \n" "remote depository:" "$column2"
363    else
364       column2="$host_configuration"
365       printf "| %-20s%-50s | \n" "host identifier:" "$column2"
366       column2=$(echo "$make_depository" | cut -c1-50 )
367       printf "| %-20s%-50s | \n" "local depository:" "$column2"
368    fi
369    line=$(echo "$make_depository" | cut -c51-)
370    while [[ "$line" != "" ]]
371    do
372       column1=""
373       column2=$(echo "$line" | cut -c1-50 )
374       printf "| %-20s%-50s | \n" "$column1" "$column2"
375       line=$(echo "$line" | cut -c51-)
376    done
377   
378    if [[ "$remote_ip" != "" ]]
379    then
380       printf "| %-20s%-50s | \n" "remote username:" "$remote_username"
381       printf "| %-20s%-50s | \n" "remote address:" "$remote_ip"
382    else
383       printf "| %-20s%-50s | \n" "username:" "$local_username"
384       printf "| %-20s%-50s | \n" "address:" "$local_ip"
385    fi
386   
387    printf "| %-20s%-50s | \n" "compiler:" "$compiler_name"
388    printf "| %-20s%-50s | \n" "serial compiler:" "$compiler_name_ser"
389   
390    if [[ "$make_options" != "" ]]
391    then
392       printf "| %-20s%-50s | \n" "make options:" "$make_options"
393    fi
394    column2=$(echo "$cpp_options" | cut -c1-50 )
395    printf "| %-20s%-50s | \n" "cpp options:" "$column2"
396    line=$(echo "$cpp_options" | cut -c51-)
397    while [[ "$line" != "" ]]
398    do
399       column1=""
400       column2=$(echo "$line" | cut -c1-50 )
401       printf "| %-20s%-50s | \n" "$column1" "$column2"
402       line=$(echo "$line" | cut -c51-)
403    done
404    column2=$(echo "$compiler_options" | cut -c1-50 )
405    printf "| %-20s%-50s | \n" "compiler options:" "$column2"
406    line=$(echo "$compiler_options" | cut -c51-)
407    while [[ "$line" != "" ]]
408    do
409       column1=""
410       column2=$(echo "$line" | cut -c1-50 )
411       printf "| %-20s%-50s | \n" "$column1" "$column2"
412       line=$(echo "$line" | cut -c51-)
413    done
414    column2=$(echo "$linker_options" | cut -c1-50 )
415    printf "| %-20s%-50s | \n" "linker options:" "$column2"
416    line=$(echo "$linker_options" | cut -c51-)
417    while [[ "$line" != "" ]]
418    do
419       column1=""
420       column2=$(echo "$line" | cut -c1-50 )
421       printf "| %-20s%-50s | \n" "$column1" "$column2"
422       line=$(echo "$line" | cut -c51-)
423    done
424    if [[ "$login_init_cmd" != "" ]]
425    then
426       column2=$(echo "$login_init_cmd" | cut -c1-50 )
427       printf "| %-20s%-50s | \n" "login init command:" "$column2"
428       line=$(echo "$login_init_cmd" | cut -c51-)
429       while [[ "$line" != "" ]]
430       do
431          column1=""
432          column2=$(echo "$line" | cut -c1-50 )
433          printf "| %-20s%-50s | \n" "$column1" "$column2"
434          line=$(echo "$line" | cut -c51-)
435       done
436    fi
437    if [[ "$module_commands" != "" ]]
438    then
439       column2=$(echo "$module_commands" | cut -c1-50 )
440       printf "| %-20s%-50s | \n" "module command(s):" "$column2"
441       line=$(echo "$module_commands" | cut -c51-)
442       while [[ "$line" != "" ]]
443       do
444          column1=""
445          column2=$(echo "$line" | cut -c1-50 )
446          printf "| %-20s%-50s | \n" "$column1" "$column2"
447          line=$(echo "$line" | cut -c51-)
448       done
449    fi
450    printf "#------------------------------------------------------------------------# \n"
451
452    answer=dummy
453    printf "\n"
454    while [[ "$answer" != y  &&  "$answer" != Y  && "$answer" != c  &&  "$answer" != C  && "$answer" != s  &&  "$answer" != S  &&  "$answer" != a  &&  "$answer" != A ]]
455    do
456       printf " >>> continue (y(es)/c(ontinue)/a(bort)) ?  "
457       read  answer
458    done
459    if [[ $answer = a  ||  $answer = A ]]
460    then
461       locat=user_abort; exit
462    fi
463    if [[ $answer = c  ||  $answer = C ]]
464    then
465       silent=true
466    fi
467 fi
468
469
470    # TAR THE SOURCES AND MAKEFILES
471    # UTILITIES ARE TEMPORARILY COPIED TO THE SOURCE DIRECTORY IN ORDER TO TAR
472    # THEM TOO
473 if [[ $silent = false ]]
474 then
475    printf "\n\n  *** tar of makefile and source files in"
476    printf "\n      $source_path\n"
477 fi
478 cd  $source_path
479 cp -p  ../UTIL/combine_plot_fields.f90  .
480 cp -p  ../UTIL/compare_palm_logs.f90  .
481 cp -p  ../UTIL/Makefile_utilities  .
482 tar -cf  ${program_name}_sources.tar  Makefile*  *.$suf
483 rm  combine_plot_fields.f90  compare_palm_logs.f90  Makefile_utilities
484
485
486    # MAKE ON REMOTE HOST
487 if [[ "$remote_ip" != "" ]]
488 then
489
490       # NEXT IS THE BRANCH FOR CREATING THE MAKE_DEPOSITORY_...
491    if [[ "$jobname" = "" ]]
492    then
493
494          # COPY CURRENT SOURCE CODE TO SOURCE-CODE DIRECTORY ON THE REMOTE HOST
495          # CREATE THIS DIRECTORY, IF IT DOES NOT EXIST
496       if [[ $silent = false ]]
497       then
498          echo " "
499          echo "  *** copying \"${program_name}_sources.tar\" to \"${remote_ip}:${make_depository}/\" "
500          echo "[[ ! -d ${make_depository} ]]  &&  (echo \"  *** ${make_depository} will be created\"; mkdir -p  ${make_depository})"  |  ssh  -q  $ssh_key ${remote_username}@${remote_ip}  2>&1
501          scp  $ssh_key ${source_path}/${program_name}_sources.tar  ${remote_username}@${remote_ip}:${make_depository}/${program_name}_sources.tar
502       else
503          echo "[[ ! -d ${make_depository} ]]  &&  mkdir -p  ${make_depository}"  |  ssh  -q  $ssh_key ${remote_username}@${remote_ip}  2>&1
504          scp  $ssh_key ${source_path}/${program_name}_sources.tar  ${remote_username}@${remote_ip}:${make_depository}/${program_name}_sources.tar  >  /dev/null
505       fi
506
507
508
509
510          # UNTAR PREVIOUS UPDATE ON REMOTE HOST, IF EXISTING
511       if [[ $silent = false ]]
512       then
513          echo "  *** untar previous update on remote host, if existing"
514       fi
515       echo "cd ${make_depository}; [[ -f ${program_name}_current_version.tar ]]  &&  tar -xf  ${program_name}_current_version.tar"  |  ssh  -q  $ssh_key  ${remote_username}@${remote_ip}  2>&1
516
517
518          # UNTAR CURRENT SOURCES ON REMOTE HOST
519       if [[ $silent = false ]]
520       then
521          echo "  *** untar current sources on remote host"
522       fi
523       echo  "cd ${make_depository}; tar -xf  ${program_name}_sources.tar"  |  ssh  -q  $ssh_key  ${remote_username}@${remote_ip}  2>&1
524
525
526          # CREATE INIT AND MODULE COAMMNDS
527       [[ "$login_init_cmd" != "" ]]   &&  login_init_cmd=${login_init_cmd}";"
528       [[ "$module_commands" != "" ]]  &&  module_commands=${module_commands}";"
529
530
531          # FIRST CREATE EXECUTABLES FOR THE UTILITY ROUTINES
532       if [[ $silent = false ]]
533       then
534          echo " "
535          echo "  *** creating utilities on remote host"
536       fi
537       make_call_string="make  -f Makefile_utilities  $make_options  F90=$compiler_name  F90_SER=$compiler_name_ser  COPT=\"$cpp_options\"  F90FLAGS=\"$compiler_options\"  LDFLAGS=\"$linker_options\" "
538       echo "$login_init_cmd $module_commands cd ${make_depository}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  -q  $ssh_key  ${remote_username}@${remote_ip} 2>&1 | tee ${host_configuration}_last_make_protocol
539
540       if [[ $(grep -c MAKE_ERROR ${host_configuration}_last_make_protocol) != 0 ]]
541       then
542          printf "\a\n  +++ error(s) occurred during compiling or linking of utilities"
543          printf "\n      for host configuration \"$host_configuration\" "
544          if [[ $silent = false ]]
545          then
546             answer=dummy
547             printf "\n"
548             while [[ "$answer" != c  &&  "$answer" != k ]]
549             do
550                printf "  >>> continue / list errors / kill palmbuild (c/l/k) ? "
551                read  answer
552                if [[ "$answer" = l ]]
553                then
554                   more ${host_configuration}_last_make_protocol
555                fi
556             done
557             if [[ $answer = k ]]
558             then
559                locat=user_abort; exit
560             fi
561          else
562                # ABORT ANYWAY
563             locat=user_abort; exit
564          fi
565       fi
566
567
568          # NOW COMPILE THE PALM CODE
569          # COMMANDS WILL BE COMMUNICATED TO SSH VIA PIPE, SINCE THIS WAY THE SYSTEM- AND
570          # USER-PROFILES OF THE SHELL ARE COMPLETELY EXECUTED (OTHERWISE, MAKE
571          # MAY E.G. MISS THE COMPILER-PATHS)
572       if [[ $silent = false ]]
573       then
574          echo " "
575          echo "  *** compile PALM sources on remote host"
576       fi
577       make_call_string="make  $make_options  PROG=$program_name  F90=$compiler_name  COPT=\"$cpp_options\"  F90FLAGS=\"$compiler_options\"  LDFLAGS=\"$linker_options\" "
578       echo "$login_init_cmd $module_commands cd ${make_depository}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  -q  $ssh_key  ${remote_username}@${remote_ip} 2>&1 | tee ${host_configuration}_last_make_protocol
579
580       if [[ $(grep -c MAKE_ERROR ${host_configuration}_last_make_protocol) != 0 ]]
581       then
582          printf "\a\n  +++ error(s) occurred during compiling or linking for host configuration \"$host_configuration\" "
583          if [[ $silent = false ]]
584          then
585             answer=dummy
586             printf "\n"
587             while [[ "$answer" != c  &&  "$answer" != k ]]
588             do
589                printf "  >>> continue / list errors / kill palmbuild (c/l/k) ? "
590                read  answer
591                if [[ "$answer" = l ]]
592                then
593                   more ${host_configuration}_last_make_protocol
594                fi
595             done
596             if [[ $answer = k ]]
597             then
598                locat=user_abort; exit
599             fi
600          else
601                # ABORT ANYWAY
602             locat=user_abort; exit
603          fi
604       fi
605
606          # TAR UPDATED VERSION ON THE REMOTE HOST
607       if [[ $silent = false ]]
608       then
609          printf "\n  *** tar update on remote host ..."
610       fi
611       echo  "cd ${make_depository}; chmod u+w *; tar -cf  ${program_name}_current_version.tar  ${program_name}  *.f90 *.o *.mod *.x"  |  ssh  -q  $ssh_key  ${remote_username}@${remote_ip}  2>&1
612
613
614       # NOW COMES THE BRANCH FOR CREATING THE EXECUTABLE FOR THE CURRENT RUN
615       # INCLUDING E.G. USER-INTERFACE ROUTINES. ALSO ADD OTHER UTILITY EXECUTABLES. EVERYTHING IS
616       # COLLECTED IN DIRECTORY SOURCES_FOR_RUN_...
617    elif [[ "$jobname" != "" ]]
618    then
619
620          # FIRST CHECK, IF COMPILED SOURCES FOR THIS RUN IDENTIFIER EXISTS
621          # AND ASK, IF THEY SHALL BE USED
622       echo  "[[ -d ${fast_io_catalog}/${sources_for_run_catalog} ]]  &&  echo sources for run found" | ssh  -q  $ssh_key  ${remote_username}@${remote_ip} 2>&1  >  ${host_configuration}_last_make_protocol
623       if [[ $(grep -c "sources for run found" ${host_configuration}_last_make_protocol) != 0  &&  $use_existing_sources_folder = true ]]
624       then
625          printf "\a\n  *** compiled sources for run \"$jobname\" found on remote host in folder"
626          printf "\n      ${fast_io_catalog}/${sources_for_run_catalog}"
627          printf "\n      will be used!"
628          exit
629       fi
630
631          # COPY MAKE DEPOSITORY ON REMOTE MACHINE TO SOURCES_FOR_RUN_...
632       if [[ $silent = false ]]
633       then
634          printf "\n  *** copy MAKE_DEPOSITORY_${host_configuration} on remote host to $sources_for_run_catalog \n"
635       fi
636       echo  "rm -rf ${fast_io_catalog}/${sources_for_run_catalog}; mkdir -p ${fast_io_catalog}/${sources_for_run_catalog}; cp ${make_depository}/${program_name}_current_version.tar  ${fast_io_catalog}/${sources_for_run_catalog}; cd ${fast_io_catalog}/${sources_for_run_catalog}; tar xf ${program_name}_current_version.tar"  |  ssh  -q  $ssh_key  ${remote_username}@${remote_ip}  2>&1
637
638
639          # COPY CONTENTS OF SOURCES_FOR_RUN_... TO SOURCES_FOR_RUN_... ON THE REMOTE MACHINE
640       if [[ $silent = false ]]
641       then
642          printf "\n  *** copy ${base_directory}/${sources_for_run_catalog}"
643          printf "\n      to $sources_for_run_catalog on remote host \n"
644       fi
645       scp  -q  $ssh_key  ${base_directory}/${sources_for_run_catalog}/{*,.[!.]*}  ${remote_username}@${remote_ip}:${fast_io_catalog}/${sources_for_run_catalog}
646
647
648          # CREATE EXECUTABLE FROM THE NEW/MODIFIED SOURCE FILES, IF THERE ARE ANY
649       if [[ $(ls -1 ${base_directory}/${sources_for_run_catalog}/ | grep -c .$suf) != 0 ]]
650       then
651
652          make_call_string="make  $make_options  PROG=$program_name  F90=$compiler_name  COPT=\"$cpp_options\"  F90FLAGS=\"$compiler_options\"  LDFLAGS=\"$linker_options\" "
653          [[ "$login_init_cmd" != "" ]]   &&  login_init_cmd=${login_init_cmd}";"
654          [[ "$module_commands" != "" ]]  &&  module_commands=${module_commands}";"
655          if [[ $silent = false ]]
656          then
657             echo "  *** execute \"make\" on remote host"
658          fi
659          echo "$login_init_cmd $module_commands cd ${fast_io_catalog}/${sources_for_run_catalog}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  -q  $ssh_key  ${remote_username}@${remote_ip} 2>&1 | tee ${host_configuration}_last_make_protocol
660
661          if [[ $(grep -c MAKE_ERROR ${host_configuration}_last_make_protocol) != 0 ]]
662          then
663             printf "\a\n  +++ error(s) occurred during compiling or linking for host configuration \"$host_configuration\" "
664             if [[ $silent = false ]]
665             then
666                answer=dummy
667                printf "\n"
668                while [[ "$answer" != c  &&  "$answer" != k ]]
669                do
670                   printf "  >>> continue / list errors / kill palmbuild (c/l/k) ? "
671                   read  answer
672                   if [[ "$answer" = l ]]
673                   then
674                      more ${host_configuration}_last_make_protocol
675                   fi
676                done
677                if [[ $answer = k ]]
678                then
679                   echo "rm -rf ${fast_io_catalog}/${sources_for_run_catalog}" | ssh  -q  $ssh_key  ${remote_username}@${remote_ip} 2>&1
680                   locat=user_abort; exit
681                fi
682             else
683                   # ABORT ANYWAY
684                echo "rm -rf ${fast_io_catalog}/${sources_for_run_catalog}" | ssh  -q  $ssh_key  ${remote_username}@${remote_ip} 2>&1
685                locat=user_abort; exit
686             fi
687          fi
688
689       else
690
691          echo "  *** nothing to compile for this run"
692
693       fi
694
695    fi
696
697    rm -rf  ${source_path}/${host_configuration}_last_make_protocol
698
699
700    # MAKE ON LOCAL HOST
701 else
702
703
704       # NEXT IS THE BRANCH FOR CREATING THE MAKE_DEPOSITORY_... ON THE
705       # LOCAL HOST
706    if [[ "$jobname" = "" ]]
707    then
708
709          # SET THE ENVIRONMENT (EXECUTE INIT AND MODULE COMMANDS)
710       if [[ "$login_init_cmd" != "" ]]
711       then
712          $login_init_cmd
713       fi
714
715       if [[ "$module_commands" != "" ]]
716       then
717          $module_commands
718       fi
719
720
721          # CREATE MAKE-DEPOSITORY, IF IT DOES NOT EXIST
722       eval make_depository=$make_depository
723       if [[ ! -d $make_depository ]]
724       then
725          if  mkdir -p $make_depository
726          then
727             if [[ $silent = false ]]
728             then
729                printf "\n\n  *** directory for local make depository:"
730                printf "\n           $make_depository"
731                printf "\n      was created\n"
732             fi
733          else
734             printf "\n  +++ directory for local make depository:"
735             printf "\n           $make_depository"
736             printf "\n      cannot be created"
737             locat=local_depository; exit
738          fi
739       fi
740
741          # COPY SOURCE-CODE FROM REPOSITORY TO MAKE-DEPOSITORY
742       if [[ $silent = false ]]
743       then
744          echo " "
745          echo "  *** untar current source sources on local host in"
746          echo "      $make_depository"
747       fi
748       cd  $make_depository
749       cp  $source_path/${program_name}_sources.tar  .
750       tar xf  ${program_name}_sources.tar
751
752
753          # FIRST CREATE EXECUTABLES FOR THE UTILITY ROUTINES
754       if [[ $silent = false ]]
755       then
756          echo " "
757          echo "  *** creating utilities on local host"
758       fi
759       make  -f Makefile_utilities  $make_options  F90=$compiler_name  F90_SER=$compiler_name_ser  COPT="$cpp_options"  F90FLAGS="$compiler_options"  LDFLAGS="$linker_options"
760
761
762          # CALL MAKE ON LOCAL HOST USING THE  OPTIONS DETERMINED FURTHER ABOVE
763       if [[ $silent = false ]]
764       then
765          echo " "
766          echo "  *** compile PALM sources on local host"
767       fi
768
769       make  $make_options  PROG=$program_name  F90=$compiler_name  COPT="$cpp_options"  F90FLAGS="$compiler_options"  LDFLAGS="$linker_options"  2>&1 | tee ${host_configuration}_last_make_protocol
770
771       if [[ $? != 0 ]]
772       then
773          printf "\a\n  +++ error(s) occurred during compiling or linking for host configuration \"$host_configuration\" "
774          if [[ $silent = false ]]
775          then
776             answer=dummy
777             printf "\n"
778             while [[ "$answer" != c  &&  "$answer" != k ]]
779             do
780                printf "  >>> continue / list errors / kill palmbuild (c/l/k) ? "
781                read  answer
782                if [[ "$answer" = l ]]
783                then
784                   more ${host_configuration}_last_make_protocol
785                fi
786             done
787             if [[ $answer = k ]]
788             then
789                locat=user_abort; exit
790             fi
791          else
792                # ABORT ANYWAY
793             locat=user_abort; exit
794          fi
795       fi
796
797
798          # TAR NEW VERSION ON LOCAL HOST
799       if [[ $silent = false ]]
800       then
801          printf "\n  *** tar update on local host ..."
802       fi
803       tar -cf  ${program_name}_current_version.tar  ${program_name} *.$suf *.o *.mod *.x
804
805    else
806
807          # NOW COMES THE BRANCH FOR CREATING THE EXECUTABLE FOR THE CURRENT RUN
808          # INCLUDING E.G. USER-INTERFACE ROUTINES. ALSO ADD OTHER UTILITY EXECUTABLES. EVERYTHING IS
809          # COLLECTED IN DIRECTORY SOURCES_FOR_RUN_...
810
811          # FIRST CHECK, IF COMPILED SOURCES FOR THIS RUN IDENTIFIER EXISTS
812          # AND ASK, IF THEY SHALL BE USED
813       if [[ -d ${fast_io_catalog}/${sources_for_run_catalog}  &&  $use_existing_sources_folder = true ]]
814       then
815          printf "\a\n  *** compiled sources for run \"$jobname\" found on local host in folder"
816          printf "\n      ${fast_io_catalog}/${sources_for_run_catalog}"
817          printf "\n      will be used!"
818          exit
819       fi
820
821          # SECOND CHECK, IF A DEPOSITORY EXISTS ON THE LOCAL MACHINE
822       if [[ ! -d ${make_depository} ]]
823       then
824          printf "\n  +++ directory for local make depository:"
825          printf "\n           $make_depository"
826          printf "\n      not found. Please run \"palmbuild -h $host_configuration\" "
827          locat=make_depository; exit
828       fi
829
830
831          # COPY MAKE DEPOSITORY ON LOCAL MACHINE TO SOURCES_FOR_RUN_...
832       if [[ $silent = false ]]
833       then
834          printf "\n  *** copy MAKE_DEPOSITORY_${host_configuration} on local host to "
835          printf "\n      ${fast_io_catalog}/${sources_for_run_catalog} \n"
836       fi
837       rm -rf ${fast_io_catalog}/${sources_for_run_catalog}
838       mkdir -p ${fast_io_catalog}/${sources_for_run_catalog}
839       cp ${make_depository}/${program_name}_current_version.tar  ${fast_io_catalog}/${sources_for_run_catalog}
840       cd $fast_io_catalog/${sources_for_run_catalog}
841       tar xf ${program_name}_current_version.tar
842
843
844          # COPY CONTENTS OF SOURCES_FOR_RUN_... TO SOURCES_FOR_RUN_...
845          # IN THE FAST_IO_CATALOG ON THE LOCAL MACHINE
846       if [[ $silent = false ]]
847       then
848          printf "\n  *** copy ${base_directory}/${sources_for_run_catalog} to"
849          printf "\n      ${fast_io_catalog}/${sources_for_run_catalog} on local host \n"
850       fi
851       cp  ${base_directory}/${sources_for_run_catalog}/{*,.[!.]*}  ${fast_io_catalog}/${sources_for_run_catalog}
852
853
854          # CREATE EXECUTABLE FROM THE NEW/MODIFIED SOURCE FILES, IF THERE ARE ANY
855       if [[ $(ls -1 ${base_directory}/${sources_for_run_catalog}/ | grep -c .$suf) != 0 ]]
856       then
857
858          if [[ $silent = false ]]
859          then
860             echo "  *** execute \"make\" on local host"
861          fi
862          [[ "$login_init_cmd" != "" ]]   &&  $login_init_cmd
863          [[ "$module_commands" != "" ]]  &&  $module_commands
864
865          make  $make_options  PROG=$program_name  F90=$compiler_name  COPT="$cpp_options"  F90FLAGS="$compiler_options"  LDFLAGS="$linker_options"
866
867          if [[ $? != 0 ]]
868          then
869
870             printf "\a\n  +++ error(s) occurred during compiling or linking for host configuration \"$host_configuration\" "
871             if [[ $silent = false ]]
872             then
873                answer=dummy
874                printf "\n"
875                while [[ "$answer" != c  &&  "$answer" != k ]]
876                do
877                   printf "  >>> continue / kill palmbuild (c/k) ? "
878                   read  answer
879                done
880                if [[ $answer = k ]]
881                then
882                   rm -rf ${fast_io_catalog}/${sources_for_run_catalog}
883                   locat=user_abort; exit
884                fi
885             else
886                   # ABORT ANYWAY
887                rm -rf ${fast_io_catalog}/${sources_for_run_catalog}
888                locat=user_abort; exit
889             fi
890          fi
891
892       else
893
894          echo "  *** nothing to compile for this run"
895
896       fi
897
898    fi
899 fi
Note: See TracBrowser for help on using the repository browser.