date and time created 83/02/11 15:43:52 by rrh

SCCS-vsn: usr.bin/struct/struct/0.extr.c 4.1

diff --git a/usr/src/usr.bin/struct/struct/0.extr.c b/usr/src/usr.bin/struct/struct/0.extr.c
new file mode 100644 (file)
index 0000000..68e530b
--- /dev/null
+++ b/usr/src/usr.bin/struct/struct/0.extr.c
@@ -0,0 +1,30 @@
+#ifndef lint
+static char sccsid[] = "@(#)0.extr.c   4.1     (Berkeley)      %G%";
+#endif not lint
+
+#include <stdio.h>
+#include "def.h"
+struct lablist {long labelt;  struct lablist *nxtlab; };
+struct lablist *endlab, *errlab, *reflab, *linelabs, *newlab;
+
+int nameline;                  /* line number of function/subroutine st., if any */
+int stflag;            /* determines whether at beginning or middle of block of straight line code */
+
+
+
+int   nlabs, lswnum, swptr, flag,
+        counter, p1, p3, begline, endline, r1,r2, endcom;
+long begchar, endchar, comchar;
+
+
+char *pred, *inc, *prerw, *postrw, *exp, *stcode;
+
+#define maxdo  20      /* max nesting of do loops */
+long dostack[maxdo];           /* labels of do nodes */
+int doloc[maxdo];              /* loc of do node */
+int doptr;
+
+
+struct list *FMTLST;           /* list of FMTVX's generated */
+struct list *ENTLST;           /* list of STLNVX nodes corresponding to entry statements */
+long rtnbeg;   /* number of chars up to beginning of current routine */