date and time created 83/08/15 10:12:14 by slatteng

SCCS-vsn: local/ditroff/ditroff.old.okeeffe/eqn/glob.c 1.1

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/eqn/glob.c b/usr/src/local/ditroff/ditroff.old.okeeffe/eqn/glob.c
new file mode 100644 (file)
index 0000000..f29eb83
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/eqn/glob.c
@@ -0,0 +1,36 @@
+#include "e.h"
+
+int    dbg;    /* debugging print if non-zero */
+int    lp[80]; /* stack for things like piles and matrices */
+int    ct;     /* pointer to lp */
+int    used[100];      /* available registers */
+int    ps;     /* default init point size */
+int    deltaps = 3;    /* default change in ps */
+int    gsize   = 10;   /* default initial point size */
+int    gfont   = ITAL; /* italic */
+int    ft;     /* default font */
+#ifdef APS
+       int     ttype   = DEVAPS;       /* type of typesetter today */
+       int     res     = 723;  /* resolution of typesetter; dflt = 202 */
+       int     minsize = 5;    /* min size it can handle; ditto */
+#else
+       int     ttype   = DEVCAT;       /* type of typesetter today */
+       int     res     = 200;  /* resolution of typesetter; dflt = 202 */
+       int     minsize = 6;    /* min size it can handle; ditto */
+#endif
+FILE   *curfile;       /* current input file */
+int    ifile;
+int    linect; /* line number in file */
+int    eqline; /* line where eqn started */
+int    svargc;
+char   **svargv;
+int    eht[100];
+int    ebase[100];
+int    lfont[100];
+int    rfont[100];
+int    eqnreg; /* register where final string appears */
+int    eqnht;  /* inal height of equation */
+int    lefteq  = '\0'; /* left in-line delimiter */
+int    righteq = '\0'; /* right in-line delimiter */
+int    lastchar;       /* last character read by lex */
+int    markline        = 0;    /* 1 if this EQ/EN contains mark; 2 if lineup */