Home

Context Navigation

source: palm/trunk/SCRIPTS/palmbuild @ 2412

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

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |