#!/bin/bash # palmbuild - script for compiling the PALM code and its utility programs #------------------------------------------------------------------------------# # This file is part of PALM. # # PALM is free software: you can redistribute it and/or modify it under the terms # of the GNU General Public License as published by the Free Software Foundation, # either version 3 of the License, or (at your option) any later version. # # PALM is distributed in the hope that it will be useful, but WITHOUT ANY # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # # You should have received a copy of the GNU General Public License along with # PALM. If not, see . # # Copyright 2017 Leibniz Universitaet Hannover #------------------------------------------------------------------------------# # # Current revisions: # ------------------ # Initial revision # # Former revisions: # ----------------- # $Id: palmbuild 2396 2017-09-04 16:15:48Z knoop $ # #------------------------------------------------------------------------------# # palmbuild - script for compiling the PALM code and its utility programs # # Procedure to compile code on local and remote hosts using the # make-mechanism. The source code must be provided on the local host. # # @note This script does not work on MAC OS #------------------------------------------------------------------------------# # VARIABLE DECLARATIONS + DEFAULT VALUES calltime="" column1="" column2="" config_file=.palm.config host=default host_found=false locat=normal makefile="" make_options="" module_commands="" program_name=palm remote_ip="" silent=false ssh_key="" suf=f90 version="palmbuild 0.1 Rev$Rev: 2316 $" working_directory=`pwd` # ERROR HANDLING # IN CASE OF EXIT: trap 'if [[ $locat != normal ]] then printf "\n\n +++ palmbuild killed \n\n" exit 1 else printf "\n\n *** palmbuild finished \n\n" exit 0 fi' exit # IN CASE OF TERMINAL-BREAK: trap 'printf "\n\n +++ palmbuild killed by \"^C\" \n\n" exit ' 2 # READ SHELLSCRIPT-OPTIONS while getopts :d:h:m:s:S:uv option do case $option in (d) fname=$OPTARG;; (h) host=$OPTARG;; (m) makefile=$OPTARG;; (s) suf=$OPTARG;; (S) source_list="$OPTARG";; (v) silent=true;; (\?) printf "\n +++ unknown option $OPTARG \n"; locat=parameter; exit;; esac done # BUILD THE CONFIGURATION-FILE NAME config_file=${config_file}.$host # CHECK, IF CONFIGURATION-FILE EXISTS if [[ ! -f $config_file ]] then printf "\n +++ configuration file: " printf "\n $config_file" printf "\n does not exist" locat=configuration; exit fi # ### is this really required? config_file=$PWD/$config_file # READ VARIABLE SETTINGS FROM CONFIG FILE LINE BY LINE while read line do # FIRST REPLACE ENVIRONMENT-VARIABLES BY THEIR RESPECTIVE VALUES eval line=\"$line\" # INTERPRET THE LINE if [[ "$(echo $line)" = "" ]] then # EMPTY LINE, NO ACTION continue elif [[ "$(echo $line | cut -c1)" = "#" ]] then # LINE IS A COMMENT LINE continue elif [[ "$(echo $line | cut -c1)" = "%" ]] then # LINE DEFINES AN ENVIRONMENT-VARIABLE var=`echo $line | cut -d" " -s -f1 | cut -c2-` value=`echo $line | cut -d" " -s -f2-` # REPLACE ":" BY " " IN COMPILER- CPP- OR LINKER-OPTIONS, # "::" IS REPLACED BY ":". #value=`echo $value | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'` # VALUE FROM THE CONFIGURATION-FILE IS ASSIGNED TO THE # ENVIRONMENT-VARIABLE, BUT ONLY IF NO VALUE HAS BEEN ALREADY # ASSIGNED WITHIN THIS SCRIPT (E.G. BY SCRIPT-OPTIONS). # NON-ASSIGNED VARIABLES HAVE VALUE "" OR 0 (IN CASE OF INTEGER). # HENCE THE GENERAL RULE IS: SCRIPT-OPTION OVERWRITES THE # CONFIGURATION-FILE. if [[ "$(eval echo \$$var)" = "" || "$(eval echo \$$var)" = "0" ]] then eval export $var="\$value" # TERMINAL OUTPUT OF ENVIRONMENT-VARIABLES, IF TRACEBACK IS SWITCHED on if [[ $do_trace = true ]] then printf "\n*** ENVIRONMENT-VARIABLE $var = $value" fi fi else # SKIP ALL OTHER LINES continue fi done < $config_file # CHECK SOURCE-CODE PATH if [[ "$source_path" = "" ]] then printf "\n +++ no source path found in configuration file" locat=config_file; exit else if [[ ! -d $source_path ]] then printf "\n\n +++ source path \"$source_path\" " printf "\n does not exist" locat=source_path; exit fi fi # CHECK DEPOSITORY-PATH if [[ "$depository_path" = "" ]] then printf "\n +++ no depository path found in configuration file" locat=config_file; exit fi # CHECK MAKEFILE [[ "$makefile" = "" ]] && makefile=$source_path/Makefile if [[ ! -f $makefile ]] then printf "\n +++ makefile: " printf "\n $makefile" printf "\n does not exist" locat=makefile; exit fi # CHECK COMPILERNAME if [[ "$compiler_name" = "" ]] then printf "\n +++ no compiler name found in configuration file" locat=config_file; exit fi # CHECK SERIAL COMPILERNAME if [[ "$compiler_name_ser" = "" ]] then printf "\n +++ no compiler name for serial compilation in configuration file" locat=config_file; exit fi # DETERMINE SSH-KEY TO BE USED if [[ "$ssh_key" != "" ]] then ssh_key="-i $HOME/.ssh/`echo $line | cut -d" " -s -f2`" fi #CHECK CPP-OPTIONS if [[ "$cpp_options" = "" ]] then printf "\n +++ WARNING: no cpp-options found in configuration file" fi # CHECK SETTINGS IN CASE OF COMPILING ON REMOTE MACHINE if [[ "$remote_ip" != "" ]] then if [[ "$remote_username" = "" ]] then printf "\n +++ no user name given in configuration file" locat=config_file; exit fi [[ "$remote_hostname" = "" ]] && remote_hostname=$remote_ip # GET SOURCE AND DEPOSITORY PATH ON THE REMOTE MACHINE WITHOUT EVALUATING # THE $ # IF NOT GIVEN, USE THE LOCAL SOURCE AND DEPOSITORY PATH line=`grep %remote_source_path $config_file` if [[ "$line" != "" ]] then remote_source_path=`echo $line | cut -d" " -s -f2` else line=`grep %source_path $config_file` remote_source_path=`echo $line | cut -d" " -s -f2` fi line=`grep %remote_depository_path $config_file` if [[ "$line" != "" ]] then remote_depository_path=`echo $line | cut -d" " -s -f2` else line=`grep %depository_path $config_file` remote_depository_path=`echo $line | cut -d" " -s -f2` fi remote_make_depository=${remote_depository_path}/MAKE_DEPOSITORY_${host} else local_make_depository=${depository_path}/MAKE_DEPOSITORY_${host} fi # HEADER-OUTPUT (PART1: MESSAGES CONCERNING THE LOCAL HOST) calltime=$(date) printf "\n" printf "#------------------------------------------------------------------------# \n" printf "| %-40s%30s | \n" "$version" "$calltime" printf "| | \n" printf "| %-13s%-57s | \n" "called on:" "$local_hostname" column2=$(echo $config_file | cut -c1-57 ) printf "| %-13s%-57s | \n" "config file:" "$column2" line=$(echo "$config_file" | cut -c58-) while [[ "$line" != "" ]] do column1="" column2=$(echo $line | cut -c1-57 ) printf "| %-13s%-57s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c58-) done column2=$(echo $makefile | cut -c1-57 ) printf "| %-13s%-57s | \n" "makefile:" "$column2" line=$(echo "$makefile" | cut -c58-) while [[ "$line" != "" ]] do column1="" column2=$(echo $line | cut -c1-57 ) printf "| %-13s%-57s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c58-) done column2=$(echo $source_path | cut -c1-57 ) printf "| %-13s%-57s | \n" "source path:" "$column2" line=$(echo "$source_path" | cut -c58-) while [[ "$line" != "" ]] do column1="" column2=$(echo $line | cut -c1-57 ) printf "| %-13s%-57s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c58-) done printf "#------------------------------------------------------------------------# \n" # TAR THE SOURCES AND MAKEFILES # UTILITIES ARE TEMPORARILY COPIED TO THE SOURCE DIRECTORY IN ORDER TO TAR # THEM TOO cd $source_path printf "\n\n *** tar of makefile and source files in" printf "\n $source_path" cp -p ../UTIL/combine_plot_fields.f90 . cp -p ../UTIL/compare_palm_logs.f90 . cp -p ../UTIL/Makefile_utilities . tar -cf ${program_name}_sources.tar Makefile* *.$suf rm combine_plot_fields.f90 compare_palm_logs.f90 Makefile_utilities printf "\n" # GET CONFIRMATION TO CONTINUE printf "\n *** update will be made for host \"$host\" " if [[ $silent = false ]] then answer=dummy printf "\n\n" while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]] do printf " >>> continue (y/n) ? " read answer done if [[ $answer = n || $answer = N ]] then locat=user_abort; exit fi fi printf "\n\n#------------------------------------------------------------------------# \n" if [[ "$remote_ip" != "" ]] then column2=$remote_hostname printf "| %-20s%-50s | \n" "remote host:" "$column2" printf "| | \n" column2=$(echo "$remote_make_depository" | cut -c1-50 ) printf "| %-20s%-50s | \n" "remote depository:" "$column2" line=$(echo "$remote_make_depository" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done else column2=$local_hostname printf "| %-20s%-50s | \n" "local host:" "$column2" printf "| | \n" column2=$(echo "$local_make_depository" | cut -c1-50 ) printf "| %-20s%-50s | \n" "local depository:" "$column2" line=$(echo "$local_make_depository" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done fi if [[ "$remote_ip" != "" ]] then printf "| %-20s%-50s | \n" "remote username:" "$remote_username" printf "| %-20s%-50s | \n" "remote address:" "$remote_ip" else printf "| %-20s%-50s | \n" "username:" "$local_username" printf "| %-20s%-50s | \n" "address:" "$local_ip" fi printf "| %-20s%-50s | \n" "compiler:" "$compiler_name" printf "| %-20s%-50s | \n" "serial compiler:" "$compiler_name_ser" if [[ "$make_options" != "" ]] then printf "| %-20s%-50s | \n" "make options:" "$make_options" fi column2=$(echo "$cpp_options" | cut -c1-50 ) printf "| %-20s%-50s | \n" "cpp options:" "$column2" line=$(echo "$cpp_options" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done column2=$(echo "$compiler_options" | cut -c1-50 ) printf "| %-20s%-50s | \n" "compiler options:" "$column2" line=$(echo "$compiler_options" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done column2=$(echo "$linker_options" | cut -c1-50 ) printf "| %-20s%-50s | \n" "linker options:" "$column2" line=$(echo "$linker_options" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done if [[ "$login_init_cmd" != "" ]] then column2=$(echo "$login_init_cmd" | cut -c1-50 ) printf "| %-20s%-50s | \n" "login init command:" "$column2" line=$(echo "$login_init_cmd" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done fi if [[ "$module_commands" != "" ]] then column2=$(echo "$module_commands" | cut -c1-50 ) printf "| %-20s%-50s | \n" "module command(s):" "$column2" line=$(echo "$module_commands" | cut -c51-) while [[ "$line" != "" ]] do column1="" column2=$(echo "$line" | cut -c1-50 ) printf "| %-20s%-50s | \n" "$column1" "$column2" line=$(echo "$line" | cut -c51-) done fi printf "#------------------------------------------------------------------------# \n" if [[ $silent = false ]] then answer=dummy printf "\n\n" while [[ "$answer" != y && "$answer" != Y && "$answer" != c && "$answer" != C && "$answer" != s && "$answer" != S && "$answer" != a && "$answer" != A ]] do printf " >>> continue (y(es)/c(ontinue)/a(bort)/s(skip)) ? " read answer done if [[ $answer = a || $answer = A ]] then locat=user_abort; exit fi if [[ $answer = c || $answer = C ]] then silent=true fi if [[ $answer = s || $answer = S ]] then continue fi fi # MAKE ON REMOTE HOST if [[ "$remote_ip" != "" ]] then # NEXT IS THE BRANCH FOR CREATING THE MAKE_DEPOSITORY_... if [[ "$fname" = "" ]] then # COPY CURRENT SOURCE CODE TO SOURCE-CODE DIRECTORY ON THE REMOTE HOST # CREATE THIS DIRECTORY, IF IT DOES NOT EXIST echo " *** copying \"${program_name}_sources.tar\" to \"${remote_ip}:${remote_make_depository}/\" " echo "[[ ! -d ${remote_make_depository} ]] && (echo \" *** ${remote_make_depository} will be created\"; mkdir -p ${remote_make_depository})" | ssh -q $ssh_key ${remote_username}@${remote_ip} 2>&1 scp $ssh_key ${source_path}/${program_name}_sources.tar ${remote_username}@${remote_ip}:${remote_make_depository}/${program_name}_sources.tar # UNTAR PREVIOUS UPDATE ON REMOTE HOST, IF EXISTING echo " *** untar previous update on remote host, if existing" echo "cd ${remote_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 # UNTAR CURRENT SOURCES ON REMOTE HOST echo " *** untar current sources on remote host" echo "cd ${remote_make_depository}; tar -xf ${program_name}_sources.tar" | ssh -q $ssh_key ${remote_username}@${remote_ip} 2>&1 # CREATE INIT AND MODULE COAMMNDS [[ "$login_init_cmd" != "" ]] && login_init_cmd=${login_init_cmd}";" [[ "$module_commands" != "" ]] && module_commands=${module_commands}";" # FIRST CREATE EXECUTABLES FOR THE UTILITY ROUTINES echo " " echo " *** creating utilities on remote host" 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\" " echo "$login_init_cmd $module_commands cd ${remote_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 ${remote_hostname}_last_make_protokoll if [[ $(grep -c MAKE_ERROR ${remote_hostname}_last_make_protokoll) != 0 ]] then printf "\a\n +++ error(s) occurred during compiling or linking of utilities" printf "\n on host \"$remote_hostname\" " if [[ $silent = false ]] then answer=dummy printf "\n" while [[ "$answer" != c && "$answer" != k ]] do printf " >>> continue / list errors / kill palmbuild (c/l/k) ? " read answer if [[ "$answer" = l ]] then more ${remote_hostname}_last_make_protokoll fi done if [[ $answer = k ]] then locat=user_abort; exit fi fi fi # NOW COMPILE THE PALM CODE # COMMANDS WILL BE COMMUNICATED TO SSH VIA PIPE, SINCE THIS WAY THE SYSTEM- AND # USER-PROFILES OF THE SHELL ARE COMPLETELY EXECUTED (OTHERWISE, MAKE # MAY E.G. MISS THE COMPILER-PATHS) echo " " echo " *** compile PALM sources on remote host" make_call_string="make $make_options PROG=$program_name F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$linker_options\" " echo "$login_init_cmd $module_commands cd ${remote_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 ${remote_hostname}_last_make_protokoll if [[ $(grep -c MAKE_ERROR ${remote_hostname}_last_make_protokoll) != 0 ]] then printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_hostname\" " if [[ $silent = false ]] then answer=dummy printf "\n" while [[ "$answer" != c && "$answer" != k ]] do printf " >>> continue / list errors / kill palmbuild (c/l/k) ? " read answer if [[ "$answer" = l ]] then more ${remote_hostname}_last_make_protokoll fi done if [[ $answer = k ]] then locat=user_abort; exit fi fi fi # TAR UPDATED VERSION ON THE REMOTE HOST printf "\n *** tar update on remote host ..." echo "cd ${remote_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 # NOW COMES THE BRANCH FOR CREATING THE EXECUTABLE FOR THE CURRENT RUN # INCLUDING E.G. USER-INTERFACE ROUTINES. ALSO ADD OTHER UTILITY EXECUTABLES. EVERYTHING IS # COLLECTED IN DIRECTORY SOURCES_FOR_RUN_... elif [[ "$fname" != "" ]] then # FIRST CHECK, IF A DEPOSITORY EXISTS ON THE REMOTE MACHINE echo "[[ ! -d ${remote_make_depository} ]] && echo depository not found" | ssh -q $ssh_key ${remote_username}@${remote_ip} 2>&1 | tee ${remote_hostname}_last_make_protokoll # COPY MAKE DEPOSITORY ON REMOTE MACHINE TO SOURCES_FOR_RUN_... printf "\n *** copy MAKE_DEPOSITORY_${host} on remote host to SOURCES_FOR_RUN_$fname \n" echo "rm -rf $tmp_user_catalog/SOURCES_FOR_RUN_$fname; mkdir -p $tmp_user_catalog/SOURCES_FOR_RUN_$fname; cp ${remote_make_depository}/${program_name}_current_version.tar $tmp_user_catalog/SOURCES_FOR_RUN_$fname; cd $tmp_user_catalog/SOURCES_FOR_RUN_$fname; tar xf ${program_name}_current_version.tar" | ssh -q $ssh_key ${remote_username}@${remote_ip} 2>&1 # COPY CONTENTS OF SOURCES_FOR_RUN_... TO SOURCES_FOR_RUN_... ON THE REMOTE MACHINE printf "\n *** copy $base_directory/SOURCES_FOR_RUN_$fname to SOURCES_FOR_RUN_$fname on remote host \n" scp -q $ssh_key $base_directory/SOURCES_FOR_RUN_$fname/{*,.[!.]*} ${remote_username}@${remote_ip}:${tmp_user_catalog}/SOURCES_FOR_RUN_$fname # CREATE EXECUTABLE FROM THE NEW/MODIFIED SOURCE FILES, IF THERE ARE ANY if [[ $(ls -1 $base_directory/SOURCES_FOR_RUN_$fname/ | grep -c .$suf) != 0 ]] then make_call_string="make $make_options PROG=$program_name F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$linker_options\" " [[ "$login_init_cmd" != "" ]] && login_init_cmd=${login_init_cmd}";" [[ "$module_commands" != "" ]] && module_commands=${module_commands}";" echo " *** execute \"make\" on remote host" echo "$login_init_cmd $module_commands cd ${tmp_user_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 ${remote_hostname}_last_make_protokoll if [[ $(grep -c MAKE_ERROR ${remote_hostname}_last_make_protokoll) != 0 ]] then printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_hostname\" " if [[ $silent = false ]] then answer=dummy printf "\n" while [[ "$answer" != c && "$answer" != k ]] do printf " >>> continue / list errors / kill palmbuild (c/l/k) ? " read answer if [[ "$answer" = l ]] then more ${remote_hostname}_last_make_protokoll fi done if [[ $answer = k ]] then locat=user_abort; exit fi fi fi else echo " *** nothing to compile for this run" fi fi rm -rf ${remote_hostname}_last_make_protokoll # MAKE ON LOCAL HOST else # NEXT IS THE BRANCH FOR CREATING THE MAKE_DEPOSITORY_... ON THE # LOCAL HOST if [[ "$fname" = "" ]] then # SET THE ENVIRONMENT (EXECUTE INIT AND MODULE COMMANDS) if [[ "$login_init_cmd" != "" ]] then $login_init_cmd fi if [[ "$module_commands" != "" ]] then $module_commands fi # CREATE MAKE-DEPOSITORY, IF IT DOES NOT EXIST eval local_make_depository=$local_make_depository if [[ ! -d $local_make_depository ]] then if mkdir -p $local_make_depository then printf "\n\n *** directory for local make depository:" printf "\n $local_make_depository" printf "\n was created\n" else printf "\n +++ directory for local make depository:" printf "\n $local_make_depository" printf "\n cannot be created" locat=local_depository_path; exit fi fi # COPY SOURCE-CODE FROM REPOSITORY TO MAKE-DEPOSITORY echo " " echo " *** untar current source sources on local host in" echo " $local_make_depository" cd $local_make_depository cp $source_path/${program_name}_sources.tar . tar xf ${program_name}_sources.tar # FIRST CREATE EXECUTABLES FOR THE UTILITY ROUTINES echo " " echo " *** creating utilities on local host" make -f Makefile_utilities $make_options F90=$compiler_name F90_SER=$compiler_name_ser COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$linker_options" # CALL MAKE ON LOCAL HOST USING THE OPTIONS DETERMINED FURTHER ABOVE echo " " echo " *** compile PALM sources on local host" make $make_options PROG=$program_name F90=$compiler_name COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$linker_options" 2>&1 | tee ${local_hostname}_last_make_protokoll if [[ $? != 0 ]] then printf "\a\n +++ error(s) occurred during compiling or linking on host \"$local_hostname\" " if [[ $silent = false ]] then answer=dummy printf "\n" while [[ "$answer" != c && "$answer" != k ]] do printf " >>> continue / list errors / kill palmbuild (c/l/k) ? " read answer if [[ "$answer" = l ]] then more ${local_hostname}_last_make_protokoll fi done if [[ $answer = k ]] then locat=user_abort; exit fi fi fi # TAR NEW VERSION ON LOCAL HOST printf "\n *** tar update on local host ..." tar -cf ${program_name}_current_version.tar ${program_name} *.$suf *.o *.mod *.x else # NOW COMES THE BRANCH FOR CREATING THE EXECUTABLE FOR THE CURRENT RUN # INCLUDING E.G. USER-INTERFACE ROUTINES. ALSO ADD OTHER UTILITY EXECUTABLES. EVERYTHING IS # COLLECTED IN DIRECTORY SOURCES_FOR_RUN_... # FIRST CHECK, IF A DEPOSITORY EXISTS ON THE LOCAL MACHINE if [[ ! -d ${local_make_depository} ]] then printf "\n +++ directory for local make depository:" printf "\n $local_make_depository" printf "\n not found. Please run \"palmbuild -h $host\" " locat=local_make_depository; exit fi # COPY MAKE DEPOSITORY ON LOCAL MACHINE TO SOURCES_FOR_RUN_... printf "\n *** copy MAKE_DEPOSITORY_${host} on local host to " printf "\n $tmp_user_catalog/SOURCES_FOR_RUN_$fname \n" rm -rf $tmp_user_catalog/SOURCES_FOR_RUN_$fname mkdir -p $tmp_user_catalog/SOURCES_FOR_RUN_$fname cp ${local_make_depository}/${program_name}_current_version.tar $tmp_user_catalog/SOURCES_FOR_RUN_$fname cd $tmp_user_catalog/SOURCES_FOR_RUN_$fname tar xf ${program_name}_current_version.tar # COPY CONTENTS OF SOURCES_FOR_RUN_... TO SOURCES_FOR_RUN_... # IN THE TMP_USER_CATALOG ON THE LOCAL MACHINE printf "\n *** copy $base_directory/SOURCES_FOR_RUN_$fname to" printf "\n $tmp_user_catalog/SOURCES_FOR_RUN_$fname on local host \n" cp $base_directory/SOURCES_FOR_RUN_$fname/{*,.[!.]*} ${tmp_user_catalog}/SOURCES_FOR_RUN_$fname # CREATE EXECUTABLE FROM THE NEW/MODIFIED SOURCE FILES, IF THERE ARE ANY if [[ $(ls -1 $base_directory/SOURCES_FOR_RUN_$fname/ | grep -c .$suf) != 0 ]] then echo " *** execute \"make\" on local host" [[ "$login_init_cmd" != "" ]] && $login_init_cmd [[ "$module_commands" != "" ]] && $module_commands make $make_options PROG=$program_name F90=$compiler_name COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$linker_options" if [[ \$? != 0 ]] then printf "\a\n +++ error(s) occurred during compiling or linking on host \"$local_hostname\" " if [[ $silent = false ]] then answer=dummy printf "\n" while [[ "$answer" != c && "$answer" != k ]] do printf " >>> continue / list errors / kill palmbuild (c/k) ? " read answer done if [[ $answer = k ]] then locat=user_abort; exit fi fi fi else echo " *** nothing to compile for this run" fi fi fi