diff options
Diffstat (limited to 'unix/hlib/f77.sh.bak')
| -rwxr-xr-x | unix/hlib/f77.sh.bak | 297 |
1 files changed, 297 insertions, 0 deletions
diff --git a/unix/hlib/f77.sh.bak b/unix/hlib/f77.sh.bak new file mode 100755 index 00000000..49db55b0 --- /dev/null +++ b/unix/hlib/f77.sh.bak @@ -0,0 +1,297 @@ +#!/bin/sh +PATH=/v/bin:/bin:/usr/bin:/usr/local/bin +# f77-style shell script to compile and load fortran, C, and assembly codes +# usage: f77 [-g] [-O|-O[23456]] [-o absfile] [-c] files [-l library] +# -o objfile Override default executable name a.out. +# -c Do not call linker, leave relocatables in *.o. +# -S leave assembler output on file.s +# -l library (passed to ld). +# -u complain about undeclared variables +# -w omit all warning messages +# -w66 omit Fortran 66 compatibility warning messages +# -f* pass thru gcc optimizer options +# -W* pass thru gcc warning options +# files FORTRAN source files ending in .f . +# C source files ending in .c . +# Assembly language files ending in .s . +# efl source files ending in .e . +# -I includepath passed to C compiler (for .c files) +# -Ntnnn allow nnn entries in table t +# -cpp -Dxxx pipe through cpp +# +# [IRAF] -- For IRAF we had to modify the f77 script that came with Linux +# to remove the "f2ctmp_XX" prefix that the script was adding to the Fortran +# file names when compiling. The main problem with this is that it prevents +# source code debugging from working since the file that was compiled (e.g. +# f2ctmp_foo.f) no longer exists at run time. A lesser problem was that the +# code which deletes the f2ctmp_ files would return an exit 4 status, causing +# problems with XC (XC was modified for Linux to ignore this but it is still +# a bug with the f77 script). NOTE -- the old behavior is still present if +# the Fortran file has a .F extension. The modified (no f2ctmp_) behavior is +# for .f files. + +s=/tmp/stderr_$$ +t=/tmp/f77_$$ +#CC=${CC_f2c:-'/usr/bin/cc -m486'} +CC=${CC_f2c:-'gcc'} +CFLAGS=${CFLAGS:-"-I${iraf}unix/bin.${IRAFARCH}"} +EFL=${EFL:-/v/bin/efl} +EFLFLAGS=${EFLFLAGS:-'system=portable deltastno=10'} +F2C=${F2C:-/usr/bin/f2c} +F2CFLAGS=${F2CFLAGS:='-KRw8 -Nn802'} +MARCH="-m64 -arch x86_64" +keepc=0 +warn=1 +xsrc=0 +rc=0 +lib=/lib/num/lib.lo +trap "rm -f $s ; exit \$rc" 0 +OUTF=a.out +cOPT=1 +G= +CPP=/bin/cat +CPPFLAGS= +# set -- `getopt cD:gI:N:Oo:Suw6 "$@"` +case $? in 0);; *) exit 1;; esac +while + test X"$1" != X-- +do + case "$1" + in + -b) CFLAGS="$CFLAGS -b $2" + shift 2 + ;; + + -K) keepc=1 + shift + ;; + + -c) cOPT=0 + shift + ;; + + -D) CPPFLAGS="$CPPFLAGS -D$2" + shift 2 + ;; + + -D*) CPPFLAGS="$CPPFLAGS $1" + shift 1 + ;; + + -f2c) F2C="$2" + F2C="${iraf}/unix/bin/f2c.e" + shift 2 + ;; + + -f*) CFLAGS="$CFLAGS $1" + shift 1 + ;; + + -g) CFLAGS="$CFLAGS -g" + F2CFLAGS="$F2CFLAGS -g" + G="-g" + shift;; + + -x64) CFLAGS="$CFLAGS -mfloat64" + shift;; + + -I) CFLAGS="$CFLAGS -I$2" + shift 2 + ;; + + -I*) CFLAGS="$CFLAGS $1" + shift 1 + ;; + + -m*) CFLAGS="$CFLAGS $1" + shift 1 + ;; + + -o) OUTF=$2 + shift 2 + ;; + + -O*) + CFLAGS="$CFLAGS $1" + shift + ;; + + -arch) CFLAGS="$CFLAGS -arch $2" + shift 2 + ;; + + -U) CFLAGS="$CFLAGS -arch ppc -arch i386" + shift + ;; + + -u) F2CFLAGS="$F2CFLAGS -u" + shift + ;; + + -P) F2CFLAGS="$F2CFLAGS -P" + shift + ;; + + -FP) CFLAGS="$CFLAGS -include $2" + shift 2 + ;; + + -W*) CFLAGS="$CFLAGS $1" + warn=1 + shift 1 + ;; + + -w) F2CFLAGS="$F2CFLAGS -w" + CFLAGS="$CFLAGS -w" + warn=0 + case $2 in -6) F2CFLAGS="$F2CFLAGS"66; shift + case $2 in -6) shift;; esac;; esac + shift + ;; + + -x) xsrc=1 + shift + ;; + + -N) F2CFLAGS="$F2CFLAGS $1""$2" + shift 2 + ;; + + -N*|-C) F2CFLAGS="$F2CFLAGS $1" + shift 1 + ;; + + -cpp) CPP="/lib/cpp -traditional" + shift 1 + ;; + + -S) CFLAGS="$CFLAGS -S" + cOPT=0 + shift + ;; + + -*) + echo "invalid parameter $1" 1>&2 + shift + ;; + + *) set -- -- $@ + ;; + esac +done +shift + +while + test -n "$1" +do + case "$1" + in + *.f) + case "$1" in *.f) f=".f";; *.F) f=".F";; esac + b=`basename $1 $f` + if [ $warn = 0 ]; then + $F2C $F2CFLAGS $b.f 2>$s + sed '/^ arg .*: here/d' $s 1>&2 + else + $F2C $F2CFLAGS $b.f + fi + if [ $xsrc = 1 ]; then + sed -e "s/$b\\.f/$b.x/" < $b.c > $b.t; mv $b.t $b.c + fi + $CC $CPPFLAGS -c $CFLAGS $b.c 2>$s + rc=$? + sed '/parameter .* is not referenced/d;/warning: too many parameters/d' $s 1>&2 + case $rc in 0);; *) exit 5;; esac + if [ $keepc = 0 ]; then + rm -f $b.c + fi + OFILES="$OFILES $b.o" + case $cOPT in 1) cOPT=2;; esac + shift + ;; + *.F) + case "$1" in *.f) f=".f";; *.F) f=".F";; esac + b=`basename $1 $f` + trap "rm -f f2ctmp_$b.* ; exit 4" 0 + sed 's/\\$/\\-/; + s/^ *INCLUDE *'\(.*\)'.*$/#include "\1"/' $1 |\ + $CPP $CPPFLAGS |\ + egrep -v '^# ' > f2ctmp_$b.f + trap "rm -f f2ctmp_$b.* ; exit 4" 0 + $F2C $F2CFLAGS f2ctmp_$b.f + case $? in 0);; *) rm f2ctmp_* ; exit 5;; esac + rm -f f2ctmp_$b.f + mv f2ctmp_$b.c $b.c + if [ -f f2ctmp_$b.P ]; then mv f2ctmp_$b.P $b.P; fi + case $? in 0);; *) rm -f $b.c ; exit 5;; esac + trap "rm -f $s ; exit 4" 0 + $CC $CPPFLAGS -c $CFLAGS $b.c 2>$s + rc=$? + sed '/parameter .* is not referenced/d;/warning: too many parameters/d' $s 1>&2 + case $rc in 0);; *) exit 5;; esac + if [ $keepc = 0 ]; then + rm -f $b.c + fi + OFILES="$OFILES $b.o" + case $cOPT in 1) cOPT=2;; esac + shift + ;; + *.e) + b=`basename $1 .e` + $EFL $EFLFLAGS $1 >$b.f + case $? in 0);; *) exit;; esac + $F2C $F2CFLAGS $b.f + case $? in 0);; *) exit;; esac + $CC -c $CFLAGS $b.c + case $? in 0);; *) exit;; esac + OFILES="$OFILES $b.o" + rm $b.[cf] + case $cOPT in 1) cOPT=2;; esac + shift + ;; + *.s) + echo $1: 1>&2 + OFILE=`basename $1 .s`.o + ${AS:-/usr/bin/as} -o $OFILE $AFLAGS $1 + case $? in 0);; *) exit;; esac + OFILES="$OFILES $OFILE" + case $cOPT in 1) cOPT=2;; esac + shift + ;; + *.c) + echo $1: 1>&2 + OFILE=`basename $1 .c`.o + $CC -c $CFLAGS $CPPFLAGS $1 + rc=$?; case $rc in 0);; *) exit;; esac + OFILES="$OFILES $OFILE" + case $cOPT in 1) cOPT=2;; esac + shift + ;; + *.o) + OFILES="$OFILES $1" + case $cOPT in 1) cOPT=2;; esac + shift + ;; + -l) + OFILES="$OFILES -l$2" + shift 2 + case $cOPT in 1) cOPT=2;; esac + ;; + -l*) + OFILES="$OFILES $1" + shift + case $cOPT in 1) cOPT=2;; esac + ;; + -o) + OUTF=$2; shift 2;; + *) + OFILES="$OFILES $1" + shift + case $cOPT in 1) cOPT=2;; esac + ;; + esac +done + +case $cOPT in 2) $CC $G -o $OUTF $OFILES -lf2c -lm;; esac +rc=$? +exit $rc |