Repatch (from linux) of OSX IRAF

8 files changed, 305 insertions, 0 deletions

diff --git a/unix/f2c/msdos/README b/unix/f2c/msdos/README
new file mode 100644
index 00000000..2e0f921b
--- /dev/null
+++ b/unix/f2c/msdos/README
@@ -0,0 +1,48 @@
+f2c.exe.gz is a compressed MSDOS version of f2c that should run on just
+about any MSDOS machine.  It was compiled by Microsoft Visual C++ 1.51
+with ccm.bat in March 1999; we do not intend to recompile it again.
+It is superceded by the Win32 f2c.exe in directory ../mswin.
+
+f2cx.exe.gz is a compressed MSDOS version of f2c that requires an 80386
+or 80486, as it uses extended memory.  It was compiled by the Symantec
+C/C++ compiler (version 6.11, with ccs.bat), and it generally can
+translate larger Fortran files without running out of memory than can
+f2c.exe.
+
+etime.exe.gz is a compressed MSDOS timing program that is of interest
+because it can redirect stderr (file descriptor 2).  For example,
+invoking
+
+	etime -2foo.err f2c foo.f
+or
+	etime -2+foo.err f2c foo.f
+
+will cause the output that f2c writes on file descriptor 2 (such as
+the names of the subprograms translated and any warning or error
+messages) while it processes the Fortran in file foo.f to be written
+to file foo.err rather than to the screen.  The first invocation
+overwrites foo.err, while the second one appends to it.  (You can
+replace "foo.f" with any f2c command-line options and input file name
+of your choice, and can similarly change "foo.err" to any file name
+you like.  Sensible shells allow redirection of stderr, but etime.exe
+is useful with MSDOS's command.com.)  Etime also can run f2cx.exe, or
+any other MSDOS program whose arguments fit on its command line.
+Execute "etime" or "etime -?" for usage summary.
+
+Compression is by gzip, source for which is available by ftp
+in prep.ai.mit.edu:/pub/gnu.  As a convenience, gzip binaries for
+several systems (with names of the form system.executable) and
+source for the gzip used to compress the *.gz files are available
+for ftp from netlib directory gnu/gzip.  In particular, if you
+copy gnu/gzip/dos.executable to an MSDOS machine (in binary mode),
+rename it gzip.exe, and rename f2c.exe.gz f2c.exz and f2cx.exe f2cx.exz,
+then on the MSDOS machine you can recover f2c.exe and f2cx.exe by
+executing "gzip -dN f2c.exz f2cx.exz".
+
+"xsum f2c.exe f2c.exe.gz f2cx.exe f2cx.exe.gz" should give you:
+f2c.exe	1c458998	285402
+f2c.exe.gz	e93d0ab	141545
+f2cx.exe	f721d8b8	262097
+f2cx.exe.gz	13ba4d83	140359
+
+Last (and final) update of f2cx.exe: 17 December 2002
diff --git a/unix/f2c/msdos/ccb.bat b/unix/f2c/msdos/ccb.bat
new file mode 100644
index 00000000..1caf5723
--- /dev/null
+++ b/unix/f2c/msdos/ccb.bat
@@ -0,0 +1,64 @@
+rem script for compiling f2c with Borland C++ 4.02
+del *.obj
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe cds.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe data.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe equiv.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe error.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe exec.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe expr.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe format.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe formatda.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe gram.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe init.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe intr.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe io.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe lex.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe main.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe mem.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe misc.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe names.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe niceprin.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe output.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe p1output.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe parse_ar.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe pread.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe proc.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe put.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe putpcc.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe sysdep.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe vax.c >zot
+if errorlevel 1 goto
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe version.c >zot
+if errorlevel 1 goto
+echo extern unsigned _stklen = 0x4000; >stklen.c
+bcc -c -ml -N -w-pia -w-pro -O2 -Ot -Ox -G -Z -Oe stklen.c >zot
+if errorlevel 1 goto
+bcc -ml -N -ef2c *.obj
+if errorlevel 1 goto
+del *.obj
diff --git a/unix/f2c/msdos/ccm.bat b/unix/f2c/msdos/ccm.bat
new file mode 100644
index 00000000..b116a34b
--- /dev/null
+++ b/unix/f2c/msdos/ccm.bat
@@ -0,0 +1,90 @@
+rem script for compiling conventional-memory f2c with Microsoft C compilers
+del *.obj
+cl -c -AL -Gt28 -Ox -Ge -nologo CDS.C
+if errorlevel 1 goto
+del CDS.C
+cl -c -AL -Gt28 -Ox -Ge -nologo DATA.C
+if errorlevel 1 goto
+del DATA.C
+cl -c -AL -Gt28 -Ox -Ge -nologo EQUIV.C
+if errorlevel 1 goto
+del EQUIV.C
+cl -c -AL -Gt28 -Ox -Ge -nologo ERROR.C
+if errorlevel 1 goto
+del ERROR.C
+cl -c -AL -Gt28 -Ox -Ge -nologo EXEC.C
+if errorlevel 1 goto
+del EXEC.C
+cl -c -AL -Gt28 -Ox -Ge -nologo EXPR.C
+if errorlevel 1 goto
+del EXPR.C
+cl -c -AL -Gt28 -Ox -Ge -nologo FORMAT.C
+if errorlevel 1 goto
+del FORMAT.C
+cl -c -AL -Gt28 -Ox -Ge -nologo FORMATDA.C
+if errorlevel 1 goto
+del FORMATDA.C
+cl -c -AL -Gt28 -Ox -Ge -nologo GRAM.C
+if errorlevel 1 goto
+del GRAM.C
+cl -c -AL -Gt28 -Ox -Ge -nologo INIT.C
+if errorlevel 1 goto
+del INIT.C
+cl -c -AL -Gt28 -Ox -Ge -nologo INTR.C
+if errorlevel 1 goto
+del INTR.C
+cl -c -AL -Gt28 -Ox -Ge -nologo IO.C
+if errorlevel 1 goto
+del IO.C
+cl -c -AL -Gt28 -Ox -Ge -nologo LEX.C
+if errorlevel 1 goto
+del LEX.C
+cl -c -AL -Gt28 -Ox -Ge -nologo MAIN.C
+if errorlevel 1 goto
+del MAIN.C
+cl -c -AL -Gt28 -Ox -Ge -nologo MEM.C
+if errorlevel 1 goto
+del MEM.C
+cl -c -AL -Gt28 -Ox -Ge -nologo MISC.C
+if errorlevel 1 goto
+del MISC.C
+cl -c -AL -Gt28 -Ox -Ge -nologo NAMES.C
+if errorlevel 1 goto
+del NAMES.C
+cl -c -AL -Gt28 -Ox -Ge -nologo NICEPRIN.C
+if errorlevel 1 goto
+del NICEPRIN.C
+cl -c -AL -Gt28 -Ox -Ge -nologo OUTPUT.C
+if errorlevel 1 goto
+del OUTPUT.C
+cl -c -AL -Gt28 -Ox -Ge -nologo P1OUTPUT.C
+if errorlevel 1 goto
+del P1OUTPUT.C
+cl -c -AL -Gt28 -Ox -Ge -nologo PARSE_AR.C
+if errorlevel 1 goto
+del PARSE_AR.C
+cl -c -AL -Gt28 -Ox -Ge -nologo PREAD.C
+if errorlevel 1 goto
+del PREAD.C
+cl -c -AL -Gt28 -Ox -Ge -nologo PROC.C
+if errorlevel 1 goto
+del PROC.C
+cl -c -AL -Gt28 -Ox -Ge -nologo PUT.C
+if errorlevel 1 goto
+del PUT.C
+cl -c -AL -Gt28 -Ox -Ge -nologo PUTPCC.C
+if errorlevel 1 goto
+del PUTPCC.C
+cl -c -AL -Gt28 -Ox -Ge -nologo SYSDEP.C
+if errorlevel 1 goto
+del SYSDEP.C
+cl -c -AL -Gt28 -Ox -Ge -nologo VAX.C
+if errorlevel 1 goto
+del VAX.C
+cl -c -AL -Gt28 -Ox -Ge -nologo VERSION.C
+if errorlevel 1 goto
+del VERSION.C
+cl -AL *.obj -link /ST:0x6000
+if errorlevel 1 goto
+ren cds.exe f2c.exe
+if errorlevel 1 goto
diff --git a/unix/f2c/msdos/ccs.bat b/unix/f2c/msdos/ccs.bat
new file mode 100644
index 00000000..1d385903
--- /dev/null
+++ b/unix/f2c/msdos/ccs.bat
@@ -0,0 +1,71 @@
+rem script for compiling f2cx (extended-memory f2c) with Symantec C version 6
+del *.obj
+sc -c -s -mx -o -w2 -w7 -DMSDOS cds.c >zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS data.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS equiv.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS error.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS exec.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS expr.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS format.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS formatda.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS gram.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS init.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS intr.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS io.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS lex.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS main.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS mem.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS misc.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS names.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS niceprin.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS -DUSE_DTOA output.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS p1output.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS parse_ar.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS pread.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS proc.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS put.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS putpcc.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS sysdep.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS vax.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS version.c >>zot
+if errorlevel 1 goto
+rem The following echo and ren create stklen.c if it does not exist
+rem and avoid overwriting an existing stklen.c .
+echo extern unsigned _stklen = 0x4000; >zap
+ren zap stklen.c
+sc -c -s -mx -o -w2 -w7 -DMSDOS stklen.c >>zot
+if errorlevel 1 goto
+rem README tells about dtoa.c and g_fmt.c .
+sc -c -s -mx -o -w2 -w7 -DMSDOS -DMALLOC=ckalloc -DIEEE_8087 dtoa.c >>zot
+if errorlevel 1 goto
+sc -c -s -mx -o -w2 -w7 -DMSDOS -DIEEE_8087 g_fmt.c >>zot
+if errorlevel 1 goto
+sc -mx -s -o f2cx.exe *.obj
+del *.obj
diff --git a/unix/f2c/msdos/etime.exe.gz b/unix/f2c/msdos/etime.exe.gz
new file mode 100644
index 00000000..5c4ff2d1
--- /dev/null
+++ b/unix/f2c/msdos/etime.exe.gz
diff --git a/unix/f2c/msdos/f2c.exe.gz b/unix/f2c/msdos/f2c.exe.gz
new file mode 100644
index 00000000..91bcecb4
--- /dev/null
+++ b/unix/f2c/msdos/f2c.exe.gz
diff --git a/unix/f2c/msdos/f2cx.exe.gz b/unix/f2c/msdos/f2cx.exe.gz
new file mode 100644
index 00000000..d614650b
--- /dev/null
+++ b/unix/f2c/msdos/f2cx.exe.gz
diff --git a/unix/f2c/msdos/index.html b/unix/f2c/msdos/index.html
new file mode 100644
index 00000000..2229f846
--- /dev/null
+++ b/unix/f2c/msdos/index.html
@@ -0,0 +1,32 @@
+<head>
+<title>f2c/msdos</title>
+<meta name="waisindex" value="nse">
+</head>
+<h1>f2c/msdos</h1>
+<p>
+Click <A HREF="http://www.netlib.org/master_counts2.html#f2c/msdos">here</A> to see the number of accesses to this library.
+<p><hr>
+<pre>
+file	<a href="README">README</a>
+
+file	<a href="f2c.exe.gz">f2c.exe.gz</a>
+for	conventional-memory MSDOS version of f2c (compiled by Borland C++ 4.02)
+
+file	<a href="f2cx.exe.gz">f2cx.exe.gz</a>
+for	extended-memory MSDOS version of f2c (compiled by Symantec C/C++)
+
+file	<a href="ccb.bat">ccb.bat</a>
+for	compilation of f2c.exe (for people curious about how it was done)
+
+file	<a href="ccs.bat">ccs.bat</a>
+for	compilation of f2cx.exe (for people curious about how it was done)
+
+file	<a href="ccm.bat">ccm.bat</a>
+
+file	<a href="etime.exe.gz">etime.exe.gz</a>
+
+file	<a href="xsum.executable (uncompressed MSDOS version of xsum)">xsum.executable (uncompressed MSDOS version of xsum)</a>
+
+</pre>
+</body>
+</html>