Home

Context Navigation

source: palm/trunk/SCRIPTS/palmbuild @ 2717

Last change on this file since 2717 was 2716, checked in by kanani, 7 years ago
Correction of "Former revisions" section
Property svn:executable set to ``* Property svn:keywords set to `Id`
File size: 30.8 KB

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

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |