source: palm/trunk/SCRIPTS/palmbuild @ 3656

Last change on this file since 3656 was 3549, checked in by raasch, 6 years ago

ssh-call for submitting batch jobs on remote systems modified to avoid output of login messages on specific systems, ssh-calls for compilations on remote systems modified to avoid output of login messages on specific systems, english translation of german comments / variable names

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