115 lines
2.5 KiB
Bash
115 lines
2.5 KiB
Bash
#!/bin/sh
|
|
# Compile Fortran code, adding -lf2c.
|
|
# This is a slightly modified g++ script.
|
|
|
|
: || exec /bin/sh -f $0 $argv:q
|
|
|
|
# The compiler name might be different when doing cross-compilation
|
|
# (this should be configured)
|
|
gcc_name=cc
|
|
speclang=-xnone
|
|
|
|
# replace the command name by the name of the new command
|
|
progname=`basename $0`
|
|
case "$0" in
|
|
*/*)
|
|
gcc=`echo $0 | sed -e "s;/[^/]*$;;"`/$gcc_name
|
|
;;
|
|
*)
|
|
gcc=$gcc_name
|
|
;;
|
|
esac
|
|
|
|
# $first is yes for first arg, no afterwards.
|
|
first=yes
|
|
# If next arg is the argument of an option, $quote is non-empty.
|
|
# More precisely, it is the option that wants an argument.
|
|
quote=
|
|
# $library is made empty to disable use of libf2c.
|
|
#library=-lF77 -lI77 -lm
|
|
library="-lf2c -lm"
|
|
numargs=$#
|
|
|
|
# ash requires the newline before `do'.
|
|
for arg
|
|
do
|
|
if [ $first = yes ]
|
|
then
|
|
# Need some 1st arg to `set' which does not begin with `-'.
|
|
# We get rid of it after the loop ends.
|
|
set gcc
|
|
first=no
|
|
fi
|
|
# If you have to ask what this does, you should not edit this file. :-)
|
|
# The ``S'' at the start is so that echo -nostdinc does not eat the
|
|
# -nostdinc.
|
|
arg=`echo "S$arg" | sed "s/^S//; s/'/'\\\\\\\\''/g"`
|
|
if [ x$quote != x ]
|
|
then
|
|
quote=
|
|
else
|
|
quote=
|
|
case $arg in
|
|
-nostdlib)
|
|
# Inhibit linking with -lf2c.
|
|
library=
|
|
;;
|
|
-lm | -lmath)
|
|
# Because libf2c uses things from the math library, make sure it
|
|
# always comes before the math library. We recognize both -lm
|
|
# and -lmath, since on some systems (e.g. m88k SVR3), it
|
|
# doesn't call it libm.a for some reason.
|
|
#set "$@" $library
|
|
#library=""
|
|
;;
|
|
-[bBVDUoeTuIYmLiA] | -Tdata)
|
|
# these switches take following word as argument,
|
|
# so don't treat it as a file name.
|
|
quote=$arg
|
|
;;
|
|
-[cSEM] | -MM)
|
|
# Don't specify libraries if we won't link,
|
|
# since that would cause a warning.
|
|
library=
|
|
;;
|
|
-x*)
|
|
speclang=$arg
|
|
;;
|
|
-v)
|
|
# catch `f77 -v'
|
|
if [ $numargs = 1 ] ; then library="" ; fi
|
|
;;
|
|
-*)
|
|
# Pass other options through; they don't need -x and aren't inputs.
|
|
;;
|
|
*)
|
|
# If file ends in .i, put options around it.
|
|
# But not if a specified -x option is currently active.
|
|
case "$speclang $arg" in -xnone\ *.i)
|
|
set "$@" -xf2c "'$arg'" -xnone
|
|
continue
|
|
esac
|
|
;;
|
|
esac
|
|
fi
|
|
set "$@" "'$arg'"
|
|
done
|
|
|
|
# Get rid of that initial 1st arg
|
|
if [ $first = no ]; then
|
|
shift
|
|
else
|
|
echo "$0: No input files specified."
|
|
exit 1
|
|
fi
|
|
|
|
if [ x$quote != x ]
|
|
then
|
|
echo "$0: argument to \`$quote' missing"
|
|
exit 1
|
|
fi
|
|
|
|
eval $gcc "$@" $library
|
|
|
|
|