source: palm/trunk/SCRIPTS/palmbuild @ 3523

Last change on this file since 3523 was 3523, checked in by suehring, 3 years ago

Implement interface for posix conform C-systemcalls in order to replace non-standard FORTRAN functions ftell and fseek

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