BSD 4_3_Net_2 development

Work on file usr/src/usr.bin/lisp/franz/h/sigtab.h

Synthesized-from: CSRG/cd2/net.2

diff --git a/usr/src/usr.bin/lisp/franz/h/sigtab.h b/usr/src/usr.bin/lisp/franz/h/sigtab.h
new file mode 100644 (file)
index 0000000..8a495fb
--- /dev/null
+++ b/usr/src/usr.bin/lisp/franz/h/sigtab.h
@@ -0,0 +1,160 @@
+/*                                     -[Sat May  7 20:46:54 1983 by jkf]-
+ *     sigtab.h                        $Locker:  $
+ * table of lispvals needed by C 
+ *
+ * $Header: sigtab.h 1.4 83/06/09 01:15:47 sklower Exp $
+ *
+ * (c) copyright 1982, Regents of the University of California
+ */
+
+/*
+ *  lispvals in use by the program should be in this table.
+ *  Otherwise they may get garbage-collected.
+ */
+
+#define SIGNIF 139
+
+extern lispval lispsys[SIGNIF];
+
+#define tatom (lispsys[1])
+#define lambda (lispsys[2])
+#define nlambda (lispsys[3])
+#define perda (lispsys[4])
+#define lpara (lispsys[5])
+#define rpara (lispsys[6])
+#define lbkta (lispsys[7])
+#define rbkta (lispsys[8])
+#define Eofa (lispsys[9])
+#define snqta (lispsys[10])
+#define exclpa (lispsys[11])
+#define quota (lispsys[12])
+#define xatom (lispsys[13])
+#define cara (lispsys[14])
+#define cdra (lispsys[15])
+#define gcafter (lispsys[16])
+#define noptop (lispsys[17])
+#define gcthresh (lispsys[18])
+#define int_name (lispsys[19])
+#define str_name (lispsys[20])
+#define atom_name (lispsys[21])
+#define doub_name (lispsys[22])
+#define dtpr_name (lispsys[23])
+#define int_items (lispsys[24])
+#define int_pages (lispsys[25])
+#define str_items (lispsys[26])
+#define str_pages (lispsys[27])
+#define dtpr_items (lispsys[28])
+#define dtpr_pages (lispsys[29])
+#define doub_items (lispsys[30])
+#define doub_pages (lispsys[31])
+#define atom_items (lispsys[32])
+#define atom_pages (lispsys[33])
+#define gccall1 (lispsys[34])
+#define gccall2 (lispsys[35])
+#define sysa (lispsys[36])
+#define plima (lispsys[37])
+#define macro (lispsys[38])
+#define startup (lispsys[39])
+#define rcomms (lispsys[40])
+#define commta (lispsys[41])
+#define plimit (lispsys[44])
+#define array_items (lispsys[45])
+#define array_pages (lispsys[46])
+#define array_name  (lispsys[47])
+#define sdot_items (lispsys[48])
+#define sdot_pages (lispsys[49])
+#define sdot_name (lispsys[50])
+#define val_items (lispsys[51])
+#define val_pages (lispsys[52])
+#define val_name  (lispsys[53])
+#define splice (lispsys[54])
+#define rdrsdot (lispsys[55])
+#define funct_items (lispsys[56])
+#define funct_pages (lispsys[57])
+#define funct_name (lispsys[58])
+#define nstack (lispsys[59])
+#define rdrint (lispsys[63])
+#define nilplist (lispsys[64])
+#define badst (lispsys[65])
+#define gccheck (lispsys[66])
+#define gcport (lispsys[67])
+#define gcdis (lispsys[68])
+#define gcload (lispsys[69])
+#define loading (lispsys[70])
+#define noautot (lispsys[71])
+#define lcode (lispsys[72])
+#define ccode (lispsys[73])
+#define odform (lispsys[74])
+#define bcdst (lispsys[75])
+#define listst (lispsys[76])
+#define macrost (lispsys[77])
+#define protst (lispsys[78])
+#define argst (lispsys[79])
+#define arrayst (lispsys[80])
+#define proga (lispsys[81])
+#define progma (lispsys[82])
+#define bstack (lispsys[83])
+#define lexpr_atom (lispsys[84])
+#define lexpr (lispsys[85])
+#define ibase (lispsys[86])
+#define Vpiport (lispsys[87])
+#define Vpoport (lispsys[88])
+#define Veval (lispsys[89])
+#define Vererr (lispsys[90])
+#define Vertpl (lispsys[91])
+#define Verall (lispsys[92])
+#define Vermisc (lispsys[93])
+#define Vlerall (lispsys[94])
+#define stlist (lispsys[95])
+#define Vreadtable (lispsys[96])
+#define strtab (lispsys[97])
+#define Verbrk (lispsys[98])
+#define Vnogbar (lispsys[99])
+#define rdrsdot2 (lispsys[100])
+#define Veruwpt (lispsys[101])
+
+#define hunkfree (lispsys[102])
+#define port_name (lispsys[103])
+#define reseta (lispsys[104])
+#define rsetatom (lispsys[105])
+#define bptr_atom (lispsys[106])
+#define evalhatom (lispsys[107])
+#define funhatom (lispsys[108])
+#define Vptport (lispsys[109])
+#define Vcntlw  (lispsys[110])
+#define Verrset (lispsys[111])
+#define Verundef (lispsys[112])
+#define Vsubrou (lispsys[113])
+#define Vprinlevel (lispsys[114])
+#define Vprinlength (lispsys[115])
+#define Vfloatformat (lispsys[116])
+#define Vldprt  (lispsys[117])
+#define Verdepth  (lispsys[118])
+#define mrtabspace (lispsys[119])
+#define pnameprot (lispsys[120])
+#define other_name (lispsys[121])
+#define Vevalframe (lispsys[122])
+#define Vpurcopylits (lispsys[123])
+#define vect_name (lispsys[124])
+#define vecti_name (lispsys[125])
+#define vect_items (lispsys[126])
+#define vecti_items (lispsys[127])
+#define vect_pages (lispsys[128])
+#define vecti_pages (lispsys[129])
+#define Vdisplacemacros (lispsys[130])
+#define other_pages (lispsys[131])
+#define other_items (lispsys[132])
+#define fclosure (lispsys[133])
+#define Vgcprint (lispsys[134])
+#define clos_marker (lispsys[135])
+#define Vpbv (lispsys[136])
+#define atom_buffer (lispsys[137])
+#define Vlibdir (lispsys[138])
+
+/* various status switches */
+
+extern lispval stattab[16] ;
+#define Schainp (stattab[0])
+#define Sautor (stattab[1])
+#define Strans (stattab[2])
+#define evalhsw (stattab[3])