build_scripts/mod_tool/mod_tool.sh

#!/bin/sh
#
# Shell script to manage module files built from directories of 
# code fragments, template code and expandable macros.
# This script is 
# o used to perform overload expansions and to assemble F90 modules into a 
#   single file (a requirement of the language) from multiple sources.
#
# o used to perform overload expansions and to assemble F90 modules into a 
#   single file (a requirement of the language) from multiple sources.
#
# Usage:
#  mod_tool.sh build
#  mod_tool.sh clean
#
# Inputs:
#  module_name :: file containing name of module that will be created
#
#
export PROG_NAME=$0
fc=`which $0`
sroot=${fc%/*}
. ${sroot}/mod_tool_funcs.sh

# See which action was requested and exit with usage if it isn't
# there or is an unrecognised string.
action=$1
check_action $action

# Set name of file standard output is written
export STDOUT=build_mod.stdout
export ERROUT=build_mod.stderr
\rm -fr ${STDOUT} ${STDERR}
touch ${STDOUT} ${STDERR}
# Set name of file with module name
export MOD_NAME_FILE=module_name
# Set name of file with list of zero or more files containing interface 
# definitions
export IF_FILE_LIST=iface_file_list
export PROC_FILE_LIST=proc_file_list
export PROCTEMPLATE_FILE_LIST=proctemplate_file_list
export USE_FILE_LIST=use_file_list
# Set name of file to which output will be written
export F90_OUT_FILE=foo.F90
export F90_OUT_DIR=mod_tool_built_src
export CONTAINS_IS_WRITTEN=0

# Read the module name from ${MOD_NAME_FILE}
com='MODULE_NAME=`(grep -v '^#' ${MOD_NAME_FILE})`'
if [ -r ${MOD_NAME_FILE} ]; then
 export MODULE_NAME=`(grep -v '^#' ${MOD_NAME_FILE}) 2> ${STDOUT}`
 rc=$?
else
 rc=2
fi
check_rc_exit $rc "$com" \
              "Error reading name of module from file \"${MOD_NAME_FILE}\""

# Execute commands based on selected action.
if [ "x$action" == "xbuild" ]; then
 mod_tool_build
fi

if [ "x$action" == "xclean" ]; then
 mod_tool_clean
fi
1	cnh	1.1	#!/bin/sh
2			#
3			# Shell script to manage module files built from directories of
4			# code fragments, template code and expandable macros.
5			# This script is
6			# o used to perform overload expansions and to assemble F90 modules into a
7			# single file (a requirement of the language) from multiple sources.
8			#
9			# o used to perform overload expansions and to assemble F90 modules into a
10			# single file (a requirement of the language) from multiple sources.
11			#
12			# Usage:
13			# mod_tool.sh build
14			# mod_tool.sh clean
15			#
16			# Inputs:
17			# module_name :: file containing name of module that will be created
18			#
19			#
20			export PROG_NAME=$0
21			fc=`which $0`
22			sroot=${fc%/*}
23			. ${sroot}/mod_tool_funcs.sh
24
25			# See which action was requested and exit with usage if it isn't
26			# there or is an unrecognised string.
27			action=$1
28			check_action $action
29
30			# Set name of file standard output is written
31			export STDOUT=build_mod.stdout
32			export ERROUT=build_mod.stderr
33			\rm -fr ${STDOUT} ${STDERR}
34			touch ${STDOUT} ${STDERR}
35			# Set name of file with module name
36			export MOD_NAME_FILE=module_name
37			# Set name of file with list of zero or more files containing interface
38			# definitions
39			export IF_FILE_LIST=iface_file_list
40			export PROC_FILE_LIST=proc_file_list
41			export PROCTEMPLATE_FILE_LIST=proctemplate_file_list
42			export USE_FILE_LIST=use_file_list
43			# Set name of file to which output will be written
44			export F90_OUT_FILE=foo.F90
45			export F90_OUT_DIR=mod_tool_built_src
46			export CONTAINS_IS_WRITTEN=0
47
48			# Read the module name from ${MOD_NAME_FILE}
49			com='MODULE_NAME=`(grep -v '^#' ${MOD_NAME_FILE})`'
50			if [ -r ${MOD_NAME_FILE} ]; then
51			export MODULE_NAME=`(grep -v '^#' ${MOD_NAME_FILE}) 2> ${STDOUT}`
52			rc=$?
53			else
54			rc=2
55			fi
56			check_rc_exit $rc "$com" \
57			"Error reading name of module from file \"${MOD_NAME_FILE}\""
58
59			# Execute commands based on selected action.
60			if [ "x$action" == "xbuild" ]; then
61			mod_tool_build
62			fi
63
64			if [ "x$action" == "xclean" ]; then
65			mod_tool_clean
66			fi