source: palm/trunk/SCRIPTS/palmbuild @ 2420

Last change on this file since 2420 was 2420, checked in by raasch, 4 years ago

PALM_BIN setting removed from new scripts

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