Home

Context Navigation

source: palm/trunk/SCRIPTS/palmbuild @ 2499

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

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |