From 0d634ee498fb775d585adc2aea01a79a8bb745a9 Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Sat, 31 Mar 1984 05:13:24 -0800
Subject: [PATCH] BSD 4_3_Net_2 development Work on file
 usr/src/usr.bin/lisp/franz/h/dfuncs.h Work on file
 usr/src/usr.bin/lisp/franz/h/ltypes.h Work on file
 usr/src/usr.bin/lisp/franz/h/lfuncs.h

Synthesized-from: CSRG/cd2/net.2
---
 usr/src/usr.bin/lisp/franz/h/dfuncs.h |  66 ++++++
 usr/src/usr.bin/lisp/franz/h/lfuncs.h | 317 ++++++++++++++++++++++++++
 usr/src/usr.bin/lisp/franz/h/ltypes.h |  35 +++
 3 files changed, 418 insertions(+)
 create mode 100644 usr/src/usr.bin/lisp/franz/h/dfuncs.h
 create mode 100644 usr/src/usr.bin/lisp/franz/h/lfuncs.h
 create mode 100644 usr/src/usr.bin/lisp/franz/h/ltypes.h

diff --git a/usr/src/usr.bin/lisp/franz/h/dfuncs.h b/usr/src/usr.bin/lisp/franz/h/dfuncs.h
new file mode 100644
index 0000000000..7348be69b6
--- /dev/null
+++ b/usr/src/usr.bin/lisp/franz/h/dfuncs.h
@@ -0,0 +1,66 @@
+/*					-[Sat Jan 29 13:54:30 1983 by jkf]-
+ * 	dfuncs.h			$Locker:  $
+ * external function declaration
+ *
+ * $Header: dfuncs.h,v 1.2 84/02/29 17:09:10 sklower Exp $
+ *
+ * (c) copyright 1982, Regents of the University of California
+ */
+ 
+char *brk();
+char *getsp();
+char *pinewstr();
+char *inewstr();
+char *mkmsg();
+char *newstr();
+char *rstore();
+char *sbrk();
+char *xsbrk();
+char *ysbrk();
+int csizeof();
+int finterp();
+lispval Iget();
+lispval Imkrtab();
+lispval Iputprop();
+lispval Lfuncal();
+lispval Lnegp();
+lispval Lsub();
+lispval alloc();
+lispval copval();
+lispval csegment();
+lispval error();
+lispval errorh();
+lispval errorh1();
+lispval errorh2();
+lispval eval();
+lispval gc();
+lispval getatom();
+lispval inewval();
+lispval linterp();
+lispval matom();
+lispval mfun();
+lispval mstr();
+lispval newarray();
+lispval newdot();
+lispval newdoub();
+lispval newfunct();
+lispval newint();
+lispval newsdot();
+lispval newval();
+lispval newhunk();
+lispval pnewdot();
+lispval pnewdb();
+lispval pnewhunk();
+lispval pnewint();
+lispval pnewsdot();
+lispval pnewval();
+lispval popnames();
+lispval r();
+lispval ratomr();
+lispval readr();
+lispval readrx();
+lispval readry();
+lispval typred();
+lispval unprot();
+lispval verify();
+struct atom * newatom();
diff --git a/usr/src/usr.bin/lisp/franz/h/lfuncs.h b/usr/src/usr.bin/lisp/franz/h/lfuncs.h
new file mode 100644
index 0000000000..28d4a3d15c
--- /dev/null
+++ b/usr/src/usr.bin/lisp/franz/h/lfuncs.h
@@ -0,0 +1,317 @@
+/*					-[Sat Feb 11 14:47:50 1984 by layer]-
+ * 	lfuncs.h			$Locker:  $
+ * lisp external function definitons
+ *
+ * $Header: lfuncs.h,v 1.6 84/02/29 17:08:03 sklower Exp $
+ *
+ * (c) copyright 1982, Regents of the University of California
+ */
+
+/* these functions never return values.  The declarations
+   are merely to shut lint up. */
+lispval Lcont();
+lispval Lexit();
+lispval Lreturn();
+lispval Ngo();
+lispval Nreset();
+lispval Nthrow();
+lispval Ntpl();
+
+/* Begin functions which return values */
+
+lispval Lstacktrace();
+lispval Lunstacktrace();
+
+lispval	Lalfalp();
+lispval	Lfseek();
+lispval LDivide();
+lispval LIfss();
+lispval LEmuldiv();
+lispval LIvref();
+lispval LIvset();
+lispval LIvsize();
+lispval LMakhunk();
+lispval Lsprintf();
+lispval Labsval();
+lispval Lacos();
+lispval Ladd();
+lispval Ladd1();
+lispval Lalloc();
+lispval Lallpackages();
+lispval Lapply();
+lispval Larayref();
+lispval Larg();
+lispval Largv();
+lispval Larrayp();
+lispval Lascii();
+lispval Lasin();
+lispval Lassq();
+lispval Latan();
+lispval Latom();
+lispval Lbaktrace();
+lispval Lbcdad();
+lispval Lbcdp();
+lispval Lbigtol();
+lispval Lbiglsh();
+lispval Lbind();
+lispval Lboole();
+lispval Lboundp();
+lispval Lc02r();
+lispval Lc03r();		/* cdddr */
+lispval Lc04r();		/* cddddr */
+lispval Lc12r();		/* caddr */
+lispval Lc13r();		/* cadddr */
+lispval Lc14r();		/* caddddr */
+lispval Lcaar();
+lispval Lcadr();
+lispval Lcar();
+lispval Lcdr();
+lispval Lcfasl();
+lispval Lcharindex();
+lispval Lchdir();
+lispval Lclose();
+lispval Lconcat();
+lispval Lcons();
+lispval Lcopyint();		/* actually copyint* */
+lispval Lcos();
+lispval Lcprintf();
+lispval Lcpy1();
+lispval Lctcherr();	/* function def of ER%unwind-protect */
+lispval Lcxr();
+lispval Ldbtofl();
+lispval Lderef();
+lispval Ldiff();
+lispval Ldrain();
+lispval Ldtpr();
+lispval Leq();
+lispval Lequal();
+lispval Lerr();
+lispval Leval();
+lispval Leval1();
+lispval Levalf();
+lispval Levalhook();
+lispval Lexece();
+lispval Lexp();
+lispval Lfact();
+lispval Lfadd1();
+lispval Lfake();
+lispval Lfasl();
+lispval Lfexpt();
+lispval Lfileopen();
+lispval Lfilestat();
+lispval Lfix();
+lispval Lfm();
+lispval Lfp();
+lispval Lfd();
+lispval Lft();
+lispval Lflatsi();
+lispval Lfltodb();
+lispval Lflessp();
+lispval Lfloat();
+lispval Lfork();
+lispval Lforget();
+lispval Lfrexp();
+lispval Lfsub1();
+lispval Lfuncal();
+lispval Lfunhook();
+lispval Lgethash();
+lispval Lgetsyntax();
+lispval Lgcstat();
+lispval Lgcpar();
+lispval Lgetaddress();
+lispval Lfretn();
+lispval Lgensym();
+lispval Lget();
+lispval Lgeta();
+lispval Lgetaux();
+lispval Lgetd();
+lispval Lgetdata();
+lispval Lgetdel();
+lispval Lgetdim();
+lispval Lgetdisc();
+lispval Lgetenv();
+lispval Lgetl();
+lispval Lgetlang();
+lispval Lgetloc();
+lispval Lgetparams();
+lispval Lgreaterp();
+lispval Lgtentry();
+lispval Lhaipar();
+lispval Lhashst();
+lispval Lhau();
+lispval Lhtol();
+lispval Lhunkp();
+lispval Lhunksize();
+lispval LIfranzcall();
+lispval Limplode();
+lispval Linfile();
+lispval Lkilcopy();
+lispval Llctrace();
+lispval Llessp();
+lispval Llexfun();
+lispval Llist();
+lispval Lload();
+lispval Llog();
+lispval Llsh();
+lispval Lmakertbl();
+lispval Lmaknam();
+lispval Lmaknum();
+lispval Lmakunb();
+lispval Lmap();
+lispval Lmapc();
+lispval Lmapcan();
+lispval Lmapcon();
+lispval Lmaplist();
+lispval Lmarray();
+lispval Lmfunction();
+lispval Lminus();
+lispval Lmkcth();
+lispval Lmod();
+lispval Lmonitor();
+lispval Lmpcar();
+lispval Lntern();
+lispval Lnvec();
+lispval Lnvecb();
+lispval Lnvecw();
+lispval Lnvecl();
+lispval Lncons();
+lispval Lnegp();
+lispval Lfasl();
+lispval Lnthelem();
+lispval Lnull();
+lispval Lnumberp();
+lispval Lnwritn();
+lispval Loblist();
+lispval Lod();
+lispval Lonep();
+lispval Lopval();
+lispval Loutfile();
+lispval Lpatom();
+lispval Lplist();
+lispval Lprocess();
+lispval Lpurcopy();
+lispval Lpurep();
+lispval Lpname();
+lispval Lpntlen();
+lispval Lpolyev();
+lispval Lportp();
+lispval Lprint();
+lispval Lprname();
+lispval Lprobef();
+lispval Lptime();
+lispval Lptr();
+lispval Lputa();
+lispval Lputaux();
+lispval Lputd();
+lispval Lputdata();
+lispval Lputdel();
+lispval Lputdim();
+lispval Lputdisc();
+lispval Lputl();
+lispval Lputlang();
+lispval Lputloc();
+lispval Lputparams();
+lispval Lputprop();
+lispval Lquo();
+lispval Lrandom();
+lispval Lratom();
+lispval Lread();
+lispval Lreadc();
+lispval Lreadli();
+lispval Lrematom();
+lispval Lremprop();
+lispval Lreplace();
+#ifdef VMS
+lispval Lrestlsp();
+#endif
+lispval Lretbrk();
+lispval Lrfasl();
+lispval Lrmadd();
+lispval Lrot();
+lispval Lrplca();
+lispval Lrplcd();
+lispval Lrplci();
+lispval Lrplcx();
+lispval Lrset();
+#ifdef VMS
+lispval Lsavelsp();
+#endif
+lispval Lsbiglsh();
+lispval Lscons();
+lispval Lsegment();
+lispval Lset();
+lispval Lsetarg();
+lispval Lsetpli();
+lispval Lsetsyn();
+lispval Lshostk();
+lispval LIshowstack();
+lispval Lsignal();
+lispval Lsimpld();
+lispval Lsin();
+lispval Lsizeof();
+lispval Lslevel();
+lispval Lsqrt();
+lispval Lstarinvmod();
+lispval LstarMod();
+lispval Lstarrpx();
+lispval Lstringp();
+lispval Lsub();
+lispval Lsub1();
+lispval Lsubstring();
+lispval Lsstrn();
+lispval Lsymbolp();
+lispval Lsyscall();
+lispval Ltci();
+lispval Ltcx();
+lispval Lterpr();
+lispval Ltimes();
+lispval Ltymestr();
+lispval Ltruename();
+lispval Ltyi();
+lispval Ltyipeek();
+lispval Ltyo();
+lispval Ltype();
+lispval Luconcat();
+lispval Luntyi();
+lispval Lvaluep();
+lispval Lvbind();
+lispval Lvectorp();
+lispval Lpvp();
+lispval Lvprop();
+lispval Lvsp();
+lispval Lwait();
+lispval Lxplda();
+lispval Lxpldc();
+lispval Lxpldn();
+lispval Lzapline();
+lispval Lzerop();
+lispval LImemory();
+
+lispval Nand();
+lispval Nbreak();
+lispval Ncatch();
+lispval Ncond();
+lispval Ndef();
+lispval Ndo();
+lispval Ndumplisp();
+lispval Nndumplisp();
+lispval Nerrset();
+lispval Nevwhen();
+lispval Nfunction();
+lispval Ngc();
+lispval Ngcafter();
+lispval Nlist();
+lispval Nopval();
+lispval Nor();
+lispval Nprocess();
+lispval Nprod();
+lispval Nprog();
+lispval Nprog2();
+lispval Nprogn();
+lispval Nprogv();
+lispval Nquote();
+lispval Nioreset();
+lispval Nsetq();
+lispval Nsstatus();
+lispval Nstatus();
+lispval Zequal();
diff --git a/usr/src/usr.bin/lisp/franz/h/ltypes.h b/usr/src/usr.bin/lisp/franz/h/ltypes.h
new file mode 100644
index 0000000000..4f9c5f8849
--- /dev/null
+++ b/usr/src/usr.bin/lisp/franz/h/ltypes.h
@@ -0,0 +1,35 @@
+/*					-[Fri Mar  4 12:11:36 1983 by jkf]-
+ * 	ltypes.h			$Locker:  $
+ * lisp data type defs
+ *
+ * $Header: ltypes.h,v 1.2 83/03/04 12:30:22 jkf Exp $
+ *
+ * (c) copyright 1982, Regents of the University of California
+ */
+ 
+/* type flags */
+
+#define	UNBO	-1
+#define	STRNG	0
+#define	ATOM	1
+#define	INT	2
+#define	DTPR	3
+#define DOUB	4
+#define	BCD	5
+#define	PORT	6
+#define	ARRAY	7
+#define OTHER   8
+#define SDOT	9
+#define VALUE	10
+
+#define HUNK2	11		/* The hunks */
+#define HUNK4	12
+#define HUNK8	13
+#define HUNK16	14
+#define HUNK32	15
+#define HUNK64	16
+#define HUNK128	17
+
+#define VECTOR  18
+#define VECTORI 19
+
-- 
2.20.1