Home

Context Navigation

source: palm/trunk/SCRIPTS/palmbuild @ 2532

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

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |