summaryrefslogtreecommitdiffstats
path: root/usr.bin/f2c
diff options
context:
space:
mode:
authorpeter <peter@FreeBSD.org>1995-12-30 19:02:48 +0000
committerpeter <peter@FreeBSD.org>1995-12-30 19:02:48 +0000
commitab124e78b0271ddb904b761b31e5c9a0cf24e070 (patch)
tree0cf1447720c45721ed3d214a4eaaa6834bda155d /usr.bin/f2c
parent15748830d0fcd29294a1969a1012655e74908c1e (diff)
downloadFreeBSD-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.script114
-rw-r--r--usr.bin/f2c/index127
-rw-r--r--usr.bin/f2c/index.html138
-rw-r--r--usr.bin/f2c/notice23
-rw-r--r--usr.bin/f2c/readme145
-rw-r--r--usr.bin/f2c/xsum.c237
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;
- }
OpenPOWER on IntegriCloud