Return to f77.pyxis0 CVS log

Up to [Research Unix] / researchv10no / cmd / f2c

Annotation of researchv10no/cmd/f2c/f77.pyxis0, revision 1.1

1.1     ! root        1: #!/bin/sh
        !             2: PATH=/v/bin:/bin:/usr/bin
        !             3: #      f77 - Unix script to compile and load fortran (C, Pascal, assembly) codes
        !             4: 
        !             5: #      usage:  f77 [-O] [-o absfile] [-c] files [-l library]
        !             6: 
        !             7: #              -o objfile      Override default executable name a.out.
        !             8: 
        !             9: #              -c              Do not call linker, leave relocatables in *.o.
        !            10: 
        !            11: #              -m              produce a load map (objfile.map).
        !            12: 
        !            13: #              -S              leave assembler output on file.s
        !            14: 
        !            15: #              -l library      (passed to ld).
        !            16: 
        !            17: #              files           FORTRAN source files ending in .f .
        !            18: #                              C source files ending in .c .
        !            19: #                              Assembly language files ending in .s .
        !            20: #                              efl source files ending in .e .
        !            21: 
        !            22: F77=/usr/dmg/F77/libF77.a
        !            23: I77=/usr/dmg/I77/libI77.a
        !            24: s=/tmp/stderr_$$
        !            25: t=/tmp/f77_$$.o
        !            26: CC=${CC_f2c:-/v/bin/lcc}
        !            27: EFL=${EFL:-/usr/dmg/bin/Efl}
        !            28: EFLFLAGS=${EFLFLAGS:-'system=portable deltastno=10'}
        !            29: F2C=${F2C:-/usr/dmg/bin/f2c}
        !            30: F2CFLAGS=${F2CFLAGS:=-AR}
        !            31: rc=0
        !            32: trap "rm -f $s $t; exit \$rc" 0
        !            33: lib=/lib/num/lib.lo
        !            34: OUTF=a.out
        !            35: cOPT=1
        !            36: set -- `getopt cgmL:N:Oo:pQ:Sw123 "$@"`
        !            37: case $? in 0);; *) exit 1;; esac
        !            38: while
        !            39:        test X"$1" != X--
        !            40: do
        !            41:        case "$1"
        !            42:        in
        !            43:        -c)
        !            44:                cOPT=0
        !            45:                shift
        !            46:                ;;
        !            47:        -g)
        !            48:                CFLAGS="$CFLAGS -g"
        !            49:                shift;;
        !            50:        -o)
        !            51:                OUTF=$2
        !            52:                shift 2
        !            53:                ;;
        !            54: 
        !            55:        -O)     case $2 in -1) O=-O1;; -2) O=-O2;; -3) O=-O3;; *) O=-O;; esac
        !            56:                case $O in -O);; *) shift;; esac
        !            57:                # lcc ignores -O...
        !            58:                shift
        !            59:                ;;
        !            60: 
        !            61:        -w)
        !            62:                F2CFLAGS="$F2CFLAGS -w"
        !            63:                shift;
        !            64:                ;;
        !            65: 
        !            66:        -N)     F2CFLAGS="$F2CFLAGS $1""$2"
        !            67:                shift 2
        !            68:                ;;
        !            69: 
        !            70:        -S)
        !            71:                CFLAGS="$CFLAGS -S"
        !            72:                cOPT=0
        !            73:                shift
        !            74:                ;;
        !            75: 
        !            76:        -[123])
        !            77:                echo "invalid parameter $1" 1>&2
        !            78:                shift
        !            79:                ;;
        !            80:        *)
        !            81:                echo "invalid parameter $1" 1>&2
        !            82:                shift
        !            83:                ;;
        !            84:        esac
        !            85: done
        !            86: shift
        !            87: while
        !            88:        test -n "$1"
        !            89: do
        !            90:        case "$1"
        !            91:        in
        !            92:        *.f)
        !            93:                b=`basename $1 .f`
        !            94:                $F2C $F2CFLAGS $1
        !            95:                case $? in 0);; *) exit;; esac
        !            96:                 $CC -c $CFLAGS $b.c
        !            97:                case $? in 0);; *) exit;; esac
        !            98:                OFILES="$OFILES $b.o"
        !            99:                rm $b.c
        !           100:                case $cOPT in 1) cOPT=2;; esac
        !           101:                shift
        !           102:                ;;
        !           103:        *.e)
        !           104:                b=`basename $1 .e`
        !           105:                $EFL $EFLFLAGS $1 >$b.f
        !           106:                case $? in 0);; *) exit;; esac
        !           107:                $F2C $F2CFLAGS $b.f
        !           108:                case $? in 0);; *) exit;; esac
        !           109:                 $CC -c $CFLAGS $b.c
        !           110:                case $? in 0);; *) exit;; esac
        !           111:                OFILES="$OFILES $b.o"
        !           112:                rm $b.[ce]
        !           113:                case $cOPT in 1) cOPT=2;; esac
        !           114:                shift
        !           115:                ;;
        !           116:        *.s)
        !           117:                echo $1: 1>&2
        !           118:                OFILE=`basename $1 .s`.o
        !           119:                ${AS:-/bin/as} -o $OFILE $AFLAGS $1
        !           120:                case $? in 0);; *) exit;; esac
        !           121:                OFILES="$OFILES $OFILE"
        !           122:                case $cOPT in 1) cOPT=2;; esac
        !           123:                shift
        !           124:                ;;
        !           125:        *.c)
        !           126:                echo $1: 1>&2
        !           127:                OFILE=`basename $1 .c`.o
        !           128:                 $CC -c $CFLAGS $1
        !           129:                rc=$?; case $rc in 0);; *) exit;; esac
        !           130:                OFILES="$OFILES $OFILE"
        !           131:                case $cOPT in 1) cOPT=2;; esac
        !           132:                shift
        !           133:                ;;
        !           134:        *.o)
        !           135:                OFILES="$OFILES $1"
        !           136:                case $cOPT in 1) cOPT=2;; esac
        !           137:                shift
        !           138:                ;;
        !           139:        -l)
        !           140:                OFILES="$OFILES -l$2"
        !           141:                shift 2
        !           142:                case $cOPT in 1) cOPT=2;; esac
        !           143:                ;;
        !           144:        -l*)
        !           145:                OFILES="$OFILES $1"
        !           146:                shift
        !           147:                case $cOPT in 1) cOPT=2;; esac
        !           148:                ;;
        !           149:        -o)
        !           150:                OUTF=$2; shift 2;;
        !           151:        *)
        !           152:                OFILES="$OFILES $1"
        !           153:                shift
        !           154:                ;;
        !           155:        esac
        !           156: done
        !           157: 
        !           158: case $cOPT in 2) $CC -o $OUTF -u MAIN__ $OFILES $F77 $I77 -lm -lc;; esac
        !           159: rc=$?
        !           160: exit $rc

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.