Home

Context Navigation

source: palm/trunk/SCRIPTS/palmbuild @ 2504

Last change on this file since 2504 was 2500, checked in by raasch, 7 years ago
bugfix for r2492
Property svn:executable set to ``* Property svn:keywords set to `Id`
File size: 29.8 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |