diff options
author | peter <peter@FreeBSD.org> | 1995-12-30 19:02:48 +0000 |
---|---|---|
committer | peter <peter@FreeBSD.org> | 1995-12-30 19:02:48 +0000 |
commit | ab124e78b0271ddb904b761b31e5c9a0cf24e070 (patch) | |
tree | 0cf1447720c45721ed3d214a4eaaa6834bda155d /usr.bin/f2c | |
parent | 15748830d0fcd29294a1969a1012655e74908c1e (diff) | |
download | FreeBSD-src-ab124e78b0271ddb904b761b31e5c9a0cf24e070.zip FreeBSD-src-ab124e78b0271ddb904b761b31e5c9a0cf24e070.tar.gz |
recording cvs-1.6 file death
Diffstat (limited to 'usr.bin/f2c')
-rw-r--r-- | usr.bin/f2c/f77.script | 114 | ||||
-rw-r--r-- | usr.bin/f2c/index | 127 | ||||
-rw-r--r-- | usr.bin/f2c/index.html | 138 | ||||
-rw-r--r-- | usr.bin/f2c/notice | 23 | ||||
-rw-r--r-- | usr.bin/f2c/readme | 145 | ||||
-rw-r--r-- | usr.bin/f2c/xsum.c | 237 |
6 files changed, 0 insertions, 784 deletions
diff --git a/usr.bin/f2c/f77.script b/usr.bin/f2c/f77.script deleted file mode 100644 index d98bd75..0000000 --- a/usr.bin/f2c/f77.script +++ /dev/null @@ -1,114 +0,0 @@ -#!/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 - - diff --git a/usr.bin/f2c/index b/usr.bin/f2c/index deleted file mode 100644 index 5212535..0000000 --- a/usr.bin/f2c/index +++ /dev/null @@ -1,127 +0,0 @@ -# ====== index for f2c/src ====== -# NOTE: "all from f2c/src" is the complete f2c source (sans libraries). -# The remaining files in this directory are the component modules -# of "all from f2c/src", so you can request just the modules that -# have changed since last you updated your f2c source. You can -# tell what has changed by looking at the timestamps at the end -# of "readme from f2c". -file f2c/src/cds.c - -file f2c/src/data.c - -file f2c/src/defines.h - -file f2c/src/defs.h - -file f2c/src/equiv.c - -file f2c/src/error.c - -file f2c/src/exec.c - -file f2c/src/expr.c - -file f2c/src/f2c.1 - -file f2c/src/f2c.1t - -file f2c/src/f2c.h - -file f2c/src/format.c - -file f2c/src/format.h - -file f2c/src/formatdata.c - -file f2c/src/ftypes.h - -file f2c/src/gram.c - -file f2c/src/gram.dcl - -file f2c/src/gram.exec - -file f2c/src/gram.expr - -file f2c/src/gram.head - -file f2c/src/gram.io - -file f2c/src/init.c - -file f2c/src/intr.c - -file f2c/src/io.c - -file f2c/src/iob.h - -file f2c/src/lex.c - -file f2c/src/machdefs.h - -file f2c/src/main.c - -file f2c/src/makefile - -file f2c/src/malloc.c - -file f2c/src/mem.c - -file f2c/src/memset.c - -file f2c/src/misc.c - -file f2c/src/names.c - -file f2c/src/names.h - -file f2c/src/niceprintf.c - -file f2c/src/niceprintf.h - -file f2c/src/notice - -file f2c/src/output.c - -file f2c/src/output.h - -file f2c/src/p1defs.h - -file f2c/src/p1output.c - -file f2c/src/parse.h - -file f2c/src/parse_args.c - -file f2c/src/pccdefs.h - -file f2c/src/pread.c - -file f2c/src/proc.c - -file f2c/src/put.c - -file f2c/src/putpcc.c - -file f2c/src/sysdep.c - -file f2c/src/sysdep.h - -file f2c/src/tokens - -file f2c/src/usignal.h - -file f2c/src/vax.c - -file f2c/src/version.c - -file f2c/src/xsum.c - -file f2c/src/xsum0.out - -file f2c/src/Notice - -file f2c/src/README - -file f2c/src/readme - diff --git a/usr.bin/f2c/index.html b/usr.bin/f2c/index.html deleted file mode 100644 index 2265f2a..0000000 --- a/usr.bin/f2c/index.html +++ /dev/null @@ -1,138 +0,0 @@ -<HTML> -<HEAD><TITLE>/netlib/f2c/src</TITLE></HEAD> -<BODY> -<H2>/netlib/f2c/src</H2> -<UL> -<PRE> -====== index for f2c/src ====== -NOTE: "all from f2c/src" is the complete f2c source (sans libraries). -The remaining files in this directory are the component modules -of "all from f2c/src", so you can request just the modules that -have changed since last you updated your f2c source. You can -tell what has changed by looking at the timestamps at the end -of "readme from f2c". -</PRE> -<LI><EM>file: </EM><A HREF="cds.c.Z">cds.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/cds.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="data.c.Z">data.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/data.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="defines.h.Z">defines.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/defines.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="defs.h.Z">defs.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/defs.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="equiv.c.Z">equiv.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/equiv.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="error.c.Z">error.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/error.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="exec.c.Z">exec.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/exec.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="expr.c.Z">expr.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/expr.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="f2c.1.Z">f2c.1</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/f2c.1.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="f2c.1t.Z">f2c.1t</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/f2c.1t.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="f2c.h.Z">f2c.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/f2c.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="format.c.Z">format.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/format.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="format.h.Z">format.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/format.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="formatdata.c.Z">formatdata.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/formatdata.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="ftypes.h.Z">ftypes.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/ftypes.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="gram.c.Z">gram.c</A><MENU> -</MENU> -<LI><EM>file: </EM><A HREF="gram.dcl.Z">gram.dcl</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/gram.dcl.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="gram.exec.Z">gram.exec</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/gram.exec.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="gram.expr.Z">gram.expr</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/gram.expr.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="gram.head.Z">gram.head</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/gram.head.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="gram.io.Z">gram.io</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/gram.io.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="init.c.Z">init.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/init.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="intr.c.Z">intr.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/intr.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="io.c.Z">io.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/io.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="iob.h.Z">iob.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/iob.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="lex.c.Z">lex.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/lex.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="machdefs.h.Z">machdefs.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/machdefs.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="main.c.Z">main.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/main.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="makefile.Z">makefile</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/makefile.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="malloc.c.Z">malloc.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/malloc.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="mem.c.Z">mem.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/mem.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="memset.c.Z">memset.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/memset.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="misc.c.Z">misc.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/misc.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="names.c.Z">names.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/names.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="names.h.Z">names.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/names.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="niceprintf.c.Z">niceprintf.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/niceprintf.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="niceprintf.h.Z">niceprintf.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/niceprintf.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="notice.Z">notice</A><MENU> -</MENU> -<LI><EM>file: </EM><A HREF="output.c.Z">output.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/output.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="output.h.Z">output.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/output.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="p1defs.h.Z">p1defs.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/p1defs.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="p1output.c.Z">p1output.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/p1output.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="parse.h.Z">parse.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/parse.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="parse_args.c.Z">parse_args.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/parse_args.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="pccdefs.h.Z">pccdefs.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/pccdefs.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="pread.c.Z">pread.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/pread.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="proc.c.Z">proc.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/proc.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="put.c.Z">put.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/put.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="putpcc.c.Z">putpcc.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/putpcc.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="sysdep.c.Z">sysdep.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/sysdep.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="sysdep.h.Z">sysdep.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/sysdep.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="tokens.Z">tokens</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/tokens.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="usignal.h.Z">usignal.h</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/usignal.h.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="vax.c.Z">vax.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/vax.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="version.c.Z">version.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/version.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="xsum.c.Z">xsum.c</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/xsum.c.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="xsum0.out.Z">xsum0.out</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/xsum0.out.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="Notice.Z">Notice</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/Notice.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="README.Z">README</A> (<A HREF="ftp://netlib.att.com/netlib.depend/f2c/src/README.tar">with dependencies</A>)<MENU> -</MENU> -<LI><EM>file: </EM><A HREF="readme.Z">readme</A><MENU> -</MENU> -<P><LI><A HREF="/netlib/bib/thesaurus.html.Z">index help</A> -</UL> -<P><A HREF="/netlib/bib/ericjack.html.Z">Eric and Jack</EM> -</BODY></HTML> diff --git a/usr.bin/f2c/notice b/usr.bin/f2c/notice deleted file mode 100644 index 9715a19..0000000 --- a/usr.bin/f2c/notice +++ /dev/null @@ -1,23 +0,0 @@ -/**************************************************************** -Copyright 1990 - 1995 by AT&T Bell Laboratories and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T Bell Laboratories or -Bellcore or any of their entities not be used in advertising or -publicity pertaining to distribution of the software without -specific, written prior permission. - -AT&T and Bellcore disclaim all warranties with regard to this -software, including all implied warranties of merchantability -and fitness. In no event shall AT&T or Bellcore be liable for -any special, indirect or consequential damages or any damages -whatsoever resulting from loss of use, data or profits, whether -in an action of contract, negligence or other tortious action, -arising out of or in connection with the use or performance of -this software. -****************************************************************/ - diff --git a/usr.bin/f2c/readme b/usr.bin/f2c/readme deleted file mode 100644 index b8e5a67..0000000 --- a/usr.bin/f2c/readme +++ /dev/null @@ -1,145 +0,0 @@ -Type "make" to check the validity of the f2c source and compile f2c. - -On a PC, you may need to compile xsum.c with -DMSDOS (i.e., with -MSDOS #defined). - -If your compiler does not understand ANSI/ISO C syntax (i.e., if -you have a K&R C compiler), compile with -DKR_headers . - -On non-Unix systems where files have separate binary and text modes, -you may need to "make xsumr.out" rather than "make xsum.out". - -If (in accordance with what follows) you need to modify the makefile -or any of the source files, first issue a "make xsum.out" (or, if -appropriate, "make xsumr.out") to check the validity of the f2c source, -then make your changes, then type "make f2c". - -The file usignal.h is for the benefit of strictly ANSI include files -on a UNIX system -- the ANSI signal.h does not define SIGHUP or SIGQUIT. -You may need to modify usignal.h if you are not running f2c on a UNIX -system. - -Should you get the message "xsum0.out xsum1.out differ", see what lines -are different (`diff xsum0.out xsum1.out`) and ask netlib -(e.g., netlib@research.att.com) to send you the files in question, -plus the current xsum0.out (which may have changed) "from f2c/src". -For example, if exec.c and expr.c have incorrect check sums, you would -send netlib the message - send exec.c expr.c xsum0.out from f2c/src -You can also ftp these files from netlib.att.com; for more details, ask -netlib@research.att.com to "send readme from f2c". - -On some systems, the malloc and free in malloc.c let f2c run faster -than do the standard malloc and free. Other systems may not tolerate -redefinition of malloc and free (though changes of 8 Nov. 1994 may -render this less of a problem than hitherto). If yours is such a -system, you may either modify the makefile appropriately (remove -"malloc.o" from the "OBJECTS =" assignment), or simply execute - cc -c -DCRAY malloc.c -before typing "make". Still other systems have a -lmalloc that -provides performance competitive with that from malloc.c; you may -wish to compare the two on your system. - -On some BSD systems, you may need to create a file named "string.h" -whose single line is -#include <strings.h> -you may need to add " -Dstrchr=index" to the "CFLAGS =" assignment -in the makefile, and you may need to add " memset.o" to the "OBJECTS =" -assignment in the makefile -- see the comments in memset.c . - -For non-UNIX systems, you may need to change some things in sysdep.c, -such as the choice of intermediate file names. - -On some systems, you may need to modify parts of sysdep.h (which is -included by defs.h). In particular, for Sun 4.1 systems and perhaps -some others, you need to comment out the typedef of size_t. For some -systems (e.g., IRIX 4.0.1 and AIX) it is better to add -#define ANSI_Libraries -to the beginning of sysdep.h (or to supply -DANSI_Libraries in the -makefile). - -Alas, some systems #define __STDC__ but do not provide a true standard -(ANSI or ISO) C environment, e.g. do not provide stdlib.h . If yours -is such a system, then (a) you should complain loudly to your vendor -about __STDC__ being erroneously defined, and (b) you should insert -#undef __STDC__ -at the beginning of sysdep.h . You may need to make other adjustments. - -For some non-ANSI versions of stdio, you must change the values given -to binread and binwrite in sysdep.c from "rb" and "wb" to "r" and "w". -You may need to make this change if you run f2c and get an error -message of the form - Compiler error ... cannot open intermediate file ... - -On many systems, it is best to combine libF77 and libI77 into a single -library, say libf2c, as suggested in "readme from f2c". If you do not -do this, then you should adjust the definition of link_msg in sysdep.c -appropriately (e.g., replacing "-lf2c" by "-lF77 -lI77"). On Unix -systems, the easiest way to create libf2c.a is to make libF77/libF77.a -and libI77/libI77.a (after reading and heeding libF77/README and -libI77/README), and then to say - - cp libF77/libF77.a libf2c.a - ar ruv libf2c.a libI77/*.o - ranlib libf2c.a - -The last step, ranlib, may not be necessary on your system. On -other systems, just compile all the .c files in libF77 and libI77, -and put the resulting objects (except one or both of the Version -objects) into a library, called perhaps f2c.lib . - -Some older C compilers object to - typedef void (*foo)(); -or to - typedef void zap; - zap (*foo)(); -If yours is such a compiler, change the definition of VOID in -f2c.h from void to int. - -For convenience with systems that use control-Z to denote end-of-file, -f2c treats control-Z characters (ASCII 26, '\x1a') that appear at the -beginning of a line as an end-of-file indicator. You can disable this -test by compiling lex.c with NO_EOF_CHAR_CHECK #defined, or can -change control-Z to some other character by #defining EOF_CHAR to -be the desired value. - - -If your machine has IEEE, VAX, or IBM-mainframe arithmetic, but your -printf is inaccurate (e.g., with Symantec C++ version 6.0, -printf("%.17g",12.) prints 12.000000000000001), you can make f2c print -correctly rounded numbers by compiling with -DUSE_DTOA and adding -dtoa.o g_fmt.o to the makefile's OBJECTS = line, so it becomes - - OBJECTS = $(OBJECTSd) malloc.o dtoa.o g_fmt.o - -Also add the rule - - dtoa.o: dtoa.c - $(CC) -c $(CFLAGS) -DMALLOC=ckalloc -DIEEE... dtoa.c - -(without the initial tab) to the makefile, where IEEE... is one of -IEEE_MC68k, IEEE_8087, VAX, or IBM, depending on your machine's -arithmetic. See the comments near the start of dtoa.c. - -The relevant source files, dtoa.c and g_fmt.c, are available -separately from netlib's fp directory. For example, you could -send the E-mail message - - send dtoa.c g_fmt.c from fp - -to netlib@research.att.com (or use anonymous ftp from netlib.att.com -and look in directory /netlib/fp). - -The makefile has a rule for creating tokdefs.h. If you cannot use the -makefile, an alternative is to extract tokdefs.h from the beginning of -gram.c: it's the first 100 lines. - - -Please send bug reports to dmg@research.att.com . The old index file -(now called "readme" due to unfortunate changes in netlib conventions: -"send readme from f2c") will report recent changes in the recent-change -log at its end; all changes will be shown in the "changes" file -("send changes from f2c"). To keep current source, you will need to -request xsum0.out and version.c, in addition to the changed source -files. Changes first appear on netlib@research.att.com, and in due -time propagate to the other netlib sites that are kept current. diff --git a/usr.bin/f2c/xsum.c b/usr.bin/f2c/xsum.c deleted file mode 100644 index b87ace7..0000000 --- a/usr.bin/f2c/xsum.c +++ /dev/null @@ -1,237 +0,0 @@ -/**************************************************************** -Copyright 1990, 1993, 1994 by AT&T Bell Laboratories and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T Bell Laboratories or -Bellcore or any of their entities not be used in advertising or -publicity pertaining to distribution of the software without -specific, written prior permission. - -AT&T and Bellcore disclaim all warranties with regard to this -software, including all implied warranties of merchantability -and fitness. In no event shall AT&T or Bellcore be liable for -any special, indirect or consequential damages or any damages -whatsoever resulting from loss of use, data or profits, whether -in an action of contract, negligence or other tortious action, -arising out of or in connection with the use or performance of -this software. -****************************************************************/ - -#define _POSIX_SOURCE -#include "stdio.h" -#ifndef KR_headers -#include "stdlib.h" -#include "sys/types.h" -#include "fcntl.h" /* for declaration of open, O_RDONLY */ -#include "unistd.h" /* for read, close */ -#endif -#ifdef MSDOS -#include "io.h" -#endif -#ifndef O_RDONLY -#define O_RDONLY 0 -#endif -#ifndef O_BINARY -#define O_BINARY O_RDONLY -#endif - - char *progname; - static int ignore_cr; - - void -#ifdef KR_headers -usage(rc) -#else -usage(int rc) -#endif -{ - fprintf(stderr, "usage: %s [-r] [file [file...]]\n\ - option -r ignores carriage return characters\n", progname); - exit(rc); - } - -typedef unsigned char Uchar; - - long -#ifdef KR_headers -sum32(sum, x, n) - register long sum; - register Uchar *x; - int n; -#else -sum32(register long sum, register Uchar *x, int n) -#endif -{ - register Uchar *xe; - static long crc_table[256] = { - 0, 151466134, 302932268, 453595578, - -9583591, -160762737, -312236747, -463170141, - -19167182, -136529756, -321525474, -439166584, - 28724267, 145849533, 330837255, 448732561, - -38334364, -189783822, -273059512, -423738914, - 47895677, 199091435, 282375505, 433292743, - 57448534, 174827712, 291699066, 409324012, - -67019697, -184128295, -300991133, -418902539, - -76668728, -227995554, -379567644, -530091662, - 67364049, 218420295, 369985021, 520795499, - 95791354, 213031020, 398182870, 515701056, - -86479645, -203465611, -388624945, -506380967, - 114897068, 266207290, 349655424, 500195606, - -105581387, -256654301, -340093543, -490887921, - -134039394, -251295736, -368256590, -485758684, - 124746887, 241716241, 358686123, 476458301, - -153337456, -2395898, -455991108, -304803798, - 162629001, 11973919, 465560741, 314102835, - 134728098, 16841012, 436840590, 319723544, - -144044613, -26395347, -446403433, -329032703, - 191582708, 40657250, 426062040, 274858062, - -200894995, -50223749, -435620671, -284179369, - -172959290, -55056048, -406931222, -289830788, - 182263263, 64630089, 416513267, 299125861, - 229794136, 78991822, 532414580, 381366498, - -220224191, -69691945, -523123603, -371788549, - -211162774, -93398532, -513308602, -396314416, - 201600371, 84090341, 503991391, 386759881, - -268078788, -117292630, -502591472, -351526778, - 258520357, 107972019, 493278217, 341959839, - 249493774, 131713432, 483432482, 366454964, - -239911657, -122417791, -474129349, -356881235, - -306674912, -457198666, -4791796, -156118374, - 315967289, 466778031, 14362133, 165418627, - 325258002, 442776452, 23947838, 141187752, - -334573813, -452329571, -33509849, -150495567, - 269456196, 419996626, 33682024, 184992510, - -278767779, -429561909, -43239823, -194312473, - -288089226, -405591072, -52790694, -170046772, - 297394031, 415166457, 62373443, 179343061, - 383165416, 533828478, 81314500, 232780370, - -373594127, -524527769, -72022307, -223201717, - -401789990, -519431348, -100447498, -217810336, - 392228803, 510123861, 91131631, 208256633, - -345918580, -496598246, -110112096, -261561802, - 336361365, 487278339, 100800185, 251995695, - 364526526, 482151208, 129260178, 246639108, - -354943065, -472854735, -119955829, -237064675, - 459588272, 308539942, 157983644, 7181066, - -469170519, -317835713, -167286907, -16754925, - -440448382, -323454444, -139383890, -21619912, - 450006683, 332774925, 148697015, 31186721, - -422325548, -271261118, -186797064, -36011154, - 431888077, 280569435, 196114401, 45565815, - 403200742, 286222960, 168180682, 50400092, - -412770561, -295522711, -177471533, -59977915, - -536157576, -384970002, -234585260, -83643454, - 526853729, 375396087, 225003341, 74348507, - 517040714, 399923932, 215944038, 98057200, - -507728301, -390357307, -206385281, -88735767, - 498987548, 347783818, 263426864, 112501670, - -489671163, -338229613, -253864151, -103192641, - -479823314, -362722632, -244835582, -126932076, - 470531639, 353144481, 235265819, 117632909 - }; - - xe = x + n; - while(x < xe) - sum = crc_table[(sum ^ *x++) & 0xff] ^ (sum >> 8 & 0xffffff); - return sum; - } - - int -#ifdef KR_headers -cr_purge(buf, n) - Uchar *buf; - int n; -#else -cr_purge(Uchar *buf, int n) -#endif -{ - register Uchar *b, *b1, *be; - b = buf; - be = b + n; - while(b < be) - if (*b++ == '\r') { - b1 = b - 1; - while(b < be) - if ((*b1 = *b++) != '\r') - b1++; - return b1 - buf; - } - return n; - } - -static Uchar Buf[16*1024]; - - void -#ifdef KR_headers -process(s, x) - char *s; - int x; -#else -process(char *s, int x) -#endif -{ - register int n; - long fsize, sum; - - sum = 0; - fsize = 0; - while((n = read(x, (char *)Buf, sizeof(Buf))) > 0) { - if (ignore_cr) - n = cr_purge(Buf, n); - fsize += n; - sum = sum32(sum, Buf, n); - } - sum &= 0xffffffff; - if (n==0) - printf("%s\t%lx\t%ld\n", s, sum & 0xffffffff, fsize); - else { perror(s); } - close(x); - } - -#ifdef KR_headers -main(argc, argv) - char **argv; -#else -main(int argc, char **argv) -#endif -{ - int x; - char *s; - static int rc; - - progname = *argv; - argc = argc; /* turn off "not used" warning */ - s = *++argv; - if (s && *s == '-') { - switch(s[1]) { - case '?': - usage(0); - case 'r': - ignore_cr = 1; - case '-': - break; - default: - fprintf(stderr, "invalid option %s\n", s); - usage(1); - } - s = *++argv; - } - if (s) do { - x = open(s, O_RDONLY|O_BINARY); - if (x < 0) { - fprintf(stderr, "%s: can't open %s\n", progname, s); - rc |= 1; - } - else - process(s, x); - } - while(s = *++argv); - else { - process("/dev/stdin", fileno(stdin)); - } - return rc; - } |