source: palm/trunk/SCRIPTS/palmbuild @ 2490

Last change on this file since 2490 was 2489, checked in by raasch, 7 years ago

ask for compilation, if SOURCES_FOR_RUN_... exists

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