date and time created 85/10/01 18:08:54 by jaap

SCCS-vsn: local/ditroff/ditroff.okeeffe/tbl/globals.c 1.1

diff --git a/usr/src/local/ditroff/ditroff.okeeffe/tbl/globals.c b/usr/src/local/ditroff/ditroff.okeeffe/tbl/globals.c
new file mode 100644 (file)
index 0000000..35c50d7
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.okeeffe/tbl/globals.c
@@ -0,0 +1,71 @@
+#ifndef lint
+static char sccsid[] = "@(#)globals.c  1.1 (CWI) 85/10/01";
+#endif lint
+
+
+ /* t0.c: storage allocation */
+#
+#include "defs.h"
+#include <stdio.h>
+
+int expflg = 0;
+int ctrflg = 0;
+int boxflg = 0;
+int dboxflg = 0;
+int tab = '\t';
+int linsize;           /* Pointsize of lines to draw */
+int delim1, delim2;    /* eqn delimiters (for n specification) */
+int evenup[MAXCOL];    /* Equal width column */
+int evenflg;
+int F1 = 0;            /* First ``funny'' field delimiter */
+int F2 = 0;            /* Second ``funny'' spanning indicator */
+int allflg = 0;
+int leftover = 0;
+int textflg = 0;
+int left1flg = 0;      /* Line left of first (output) column */
+int rightl = 0;                /* Line right of last (output) column */
+char *cstore, *cspace;
+char *last;
+struct colstr *table[MAXLIN];
+
+/*
+ * Next arrays describe the real table. Could be put in a structure in
+ * future
+ */
+int style[MAXHEAD][MAXCOL];    /* Style of column (l, a, etc.) */
+int ctop[MAXHEAD][MAXCOL];
+char font[MAXHEAD][MAXCOL][2]; /* fontstyle of column */
+char csize[MAXHEAD][MAXCOL][4];        /* pointsize of column */
+char vsize[MAXHEAD][MAXCOL][4];        /* Vertical spacing (text blocks only */
+int lefline[MAXHEAD][MAXCOL];  /* line left of specified columns */
+char cll[MAXCOL][CLLEN];       /* minimum colwumn width wanted */
+int sep[MAXCOL];               /* Separation between columns in n's */
+
+int stynum[MAXLIN+1];
+int nslin;
+int nclin;                     /* # of columns in specification part */
+int fullbot[MAXLIN];
+char *instead[MAXLIN];
+int used[MAXCOL], lused[MAXCOL], rused[MAXCOL];
+int linestop[MAXLIN];
+int nlin;
+int ncol;
+int qcol;              /* quantity of output columns (bwk) */
+int iline = 1;                 /* input line counter */
+char *ifile = "Input";         /* input file name */
+/*
+ * current name of the diversion for textblocks
+ */
+char texname = 'a';
+int texct = 0;                 /* index in texstr */
+/*
+ * possible names of diversions
+ */
+char texstr[] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWYXZ0123456789";
+int linstart;
+char *exstore, *exlim;
+FILE *tabin  /*= stdin */;
+int pr1403;
+
+/* Device dependencies */
+int device = HARRIS;