| 1 | /*
|
|---|
| 2 | * store.c - cawf(1) storage areas
|
|---|
| 3 | */
|
|---|
| 4 |
|
|---|
| 5 | /*
|
|---|
| 6 | * Copyright (c) 1991 Purdue University Research Foundation,
|
|---|
| 7 | * West Lafayette, Indiana 47907. All rights reserved.
|
|---|
| 8 | *
|
|---|
| 9 | * Written by Victor A. Abell <abe@mace.cc.purdue.edu>, Purdue
|
|---|
| 10 | * University Computing Center. Not derived from licensed software;
|
|---|
| 11 | * derived from awf(1) by Henry Spencer of the University of Toronto.
|
|---|
| 12 | *
|
|---|
| 13 | * Permission is granted to anyone to use this software for any
|
|---|
| 14 | * purpose on any computer system, and to alter it and redistribute
|
|---|
| 15 | * it freely, subject to the following restrictions:
|
|---|
| 16 | *
|
|---|
| 17 | * 1. The author is not responsible for any consequences of use of
|
|---|
| 18 | * this software, even if they arise from flaws in it.
|
|---|
| 19 | *
|
|---|
| 20 | * 2. The origin of this software must not be misrepresented, either
|
|---|
| 21 | * by explicit claim or by omission. Credits must appear in the
|
|---|
| 22 | * documentation.
|
|---|
| 23 | *
|
|---|
| 24 | * 3. Altered versions must be plainly marked as such, and must not
|
|---|
| 25 | * be misrepresented as being the original software. Credits must
|
|---|
| 26 | * appear in the documentation.
|
|---|
| 27 | *
|
|---|
| 28 | * 4. This notice may not be removed or altered.
|
|---|
| 29 | */
|
|---|
| 30 |
|
|---|
| 31 | #include "cawf.h"
|
|---|
| 32 |
|
|---|
| 33 | struct rx Pat[] = {
|
|---|
| 34 | { "^[.'](i[ef]|el)", NULL}, /* 0 */
|
|---|
| 35 | { "^[.']i[ef] !", NULL}, /* 1 */
|
|---|
| 36 | { "^[.']i[ef] !?\\\\n\\(\\.\\$(>|>=|=|<|<=)[0-9] ",
|
|---|
| 37 | NULL}, /* 2 */
|
|---|
| 38 | { "^[.']i[ef] !?'\\\\\\$[0-9]'[^']*' ", NULL}, /* 3 */
|
|---|
| 39 | { "^[.']i[ef] !?[nt] ", NULL}, /* 4 */
|
|---|
| 40 | { "\\\\\\$[0-9]", NULL}, /* 5 */
|
|---|
| 41 | { "^[ \t]*$", NULL}, /* 6 */
|
|---|
| 42 | { "\\\\|\t|-| ", NULL}, /* 7 */
|
|---|
| 43 | { "[.!?:][]\\)'\\\"\\*]*$", NULL}, /* 8 */
|
|---|
| 44 | { ",fP", NULL}, /* 9 */
|
|---|
| 45 | { ",tP", NULL}, /* 10 */
|
|---|
| 46 | { "^(ta|ll|ls|in|ti|po|ne|sp|pl|nr)", NULL}, /* 11 */
|
|---|
| 47 | { "^(ll|ls|in|ti|po|pl)", NULL}, /* 12 */
|
|---|
| 48 | { "[]\\)'\\\"\\*]", NULL}, /* 13 */
|
|---|
| 49 | { "^(LH|CH|RH|LF|CF|RF)", NULL}, /* 14 */
|
|---|
| 50 | { "^[.']i[ef]", NULL}, /* 15 */
|
|---|
| 51 | { ",fR", NULL}, /* 16 */
|
|---|
| 52 | { NULL, NULL} /* END */
|
|---|
| 53 | };
|
|---|
| 54 |
|
|---|
| 55 | int Adj = BOTHADJ; /* output line adjustment mode */
|
|---|
| 56 | unsigned char *Aftnxt = NULL; /* action after next line */
|
|---|
| 57 | unsigned char *Args[] = { NULL, NULL, /* 10 macro arguments */
|
|---|
| 58 | NULL, NULL,
|
|---|
| 59 | NULL, NULL,
|
|---|
| 60 | NULL, NULL,
|
|---|
| 61 | NULL, NULL
|
|---|
| 62 | };
|
|---|
| 63 | unsigned char *Argstack[10*MAXSP]; /* stack for Expand()'s "args[]" */
|
|---|
| 64 | int Backc = 0; /* last word ended with '\\c' */
|
|---|
| 65 | int Botmarg = 5; /* bottom margin */
|
|---|
| 66 | int Centering = 0; /* centering count */
|
|---|
| 67 | int Condstack[MAXSP]; /* stack for Expand()'s "cond" */
|
|---|
| 68 | unsigned char *Cont = NULL; /* continue line append */
|
|---|
| 69 | int Contlen = 0; /* continue line append length */
|
|---|
| 70 | int Curmx = -1; /* current macro index */
|
|---|
| 71 | char *Device = NULL; /* output device name */
|
|---|
| 72 | char *Devconf = NULL; /* device configuration file path */
|
|---|
| 73 | char *Devfont = NULL; /* output device font */
|
|---|
| 74 | int Divert = 0; /* diversion status */
|
|---|
| 75 | FILE *Efs = NULL; /* error file stream */
|
|---|
| 76 | unsigned char *Eol = NULL; /* end of line information */
|
|---|
| 77 | int Eollen = 0; /* end of line length */
|
|---|
| 78 | int Err = 0; /* error flag */
|
|---|
| 79 | unsigned char *F = NULL; /* field value */
|
|---|
| 80 | struct fcode Fcode[] = { /* font codes */
|
|---|
| 81 | { 'B', '\0'}, /* Bold */
|
|---|
| 82 | { 'I', '\0'}, /* Italic */
|
|---|
| 83 | { 'R', '\0'}, /* Roman */
|
|---|
| 84 | { 'C', '\0'}, /* Courier */
|
|---|
| 85 | { '\0', '\0'}
|
|---|
| 86 | };
|
|---|
| 87 | int Fill = 0; /* fill status */
|
|---|
| 88 | unsigned char Font[] = { '\0', '\0' }; /* current font */
|
|---|
| 89 | int Fontctl; /* output font control */
|
|---|
| 90 | char Fontstat = 'R'; /* output font status */
|
|---|
| 91 | int Fph = 0; /* first page header status */
|
|---|
| 92 | int Fsp = 0; /* files stack pointer (for .so) */
|
|---|
| 93 | struct fontstr Fstr; /* font control strings */
|
|---|
| 94 | unsigned char *Ftc = NULL; /* center footer */
|
|---|
| 95 | unsigned char *Ftl = NULL; /* left footer */
|
|---|
| 96 | unsigned char *Ftr = NULL; /* right footer */
|
|---|
| 97 | unsigned char *Hdc = NULL; /* center header */
|
|---|
| 98 | int Hdft = 0; /* header/footer status */
|
|---|
| 99 | unsigned char *Hdl = NULL; /* left header */
|
|---|
| 100 | unsigned char *Hdr = NULL; /* right header */
|
|---|
| 101 | struct hytab Hychar[MAXHYCH]; /* hyphen characters */
|
|---|
| 102 | FILE *Ifs = NULL; /* input file stream */
|
|---|
| 103 | FILE *Ifs_stk[MAXFSTK]; /* Ifs stack */
|
|---|
| 104 | int Ind = 0; /* indentation amount */
|
|---|
| 105 | unsigned char *Inname = NULL; /* input file name */
|
|---|
| 106 | unsigned char *Inn_stk[MAXFSTK]; /* Inname stack */
|
|---|
| 107 | int LL = 78; /* line length (default) */
|
|---|
| 108 | unsigned char Line[MAXLINE]; /* input line */
|
|---|
| 109 | int Lockil = 0; /* pass 2 line number is locked
|
|---|
| 110 | * (processing is inside macro) */
|
|---|
| 111 | int Marg = 0; /* macro argument - man, ms, etc. */
|
|---|
| 112 | struct macro Macrotab[MAXMACRO]; /* macro table */
|
|---|
| 113 | unsigned char *Macrotxt[MAXMTXT]; /* macro text */
|
|---|
| 114 | int Mtx = 0; /* macro text index */
|
|---|
| 115 | int Mxstack[MAXSP]; /* stack for Expand()'s "mx" */
|
|---|
| 116 | int Nfc; /* number of font codes */
|
|---|
| 117 | int Nhnr[MAXNHNR]; /* ".NH" numbers */
|
|---|
| 118 | int Nhy = 0; /* number of Hychar[] entries */
|
|---|
| 119 | int Nleftstack[MAXSP]; /* stack for Expand()'s "nleft" */
|
|---|
| 120 | int Nmac = 0; /* number of macros */
|
|---|
| 121 | int Nnr = 0; /* number of Numb[] entries */
|
|---|
| 122 | int Nospmode = 1; /* no space mode */
|
|---|
| 123 | int Nparms = 0; /* number of Parms[] entries */
|
|---|
| 124 | int NR = 0; /* number of record ala awk */
|
|---|
| 125 | int NR_stk[MAXFSTK]; /* NR stack */
|
|---|
| 126 | int Nsch = 0; /* number of Schar[] entries */
|
|---|
| 127 | int Nstr = 0; /* number of entries in Str[] */
|
|---|
| 128 | int Ntabs = 0; /* number of TAB positions */
|
|---|
| 129 | struct nbr Numb[MAXNR]; /* number registers */
|
|---|
| 130 | int Nxtln = 1; /* next line number */
|
|---|
| 131 | int Outll = -1; /* output line length */
|
|---|
| 132 | unsigned char Outln[MAXOLL*2]; /* output line */
|
|---|
| 133 | int Outlx = 0; /* output line index */
|
|---|
| 134 | int P2il = 0; /* pass 2 input line number */
|
|---|
| 135 | unsigned char *P2name = NULL; /* pass 2 input file name */
|
|---|
| 136 | int P3fill = 1; /* pass 3 fill status */
|
|---|
| 137 | int Padchar[MAXOLL]; /* padding character locations */
|
|---|
| 138 | int Padfrom = PADLEFT; /* which end to pad from */
|
|---|
| 139 | int Padx = 0; /* Padchar[] index */
|
|---|
| 140 | struct parms Parms[] = { /* parameter registers */
|
|---|
| 141 | { {'i', 'n'}, "indent", 0, 0 },
|
|---|
| 142 | { {'l', 'l'}, "linelen", 0, 0 },
|
|---|
| 143 | { {'l', 's'}, "vspace", 0, 0 },
|
|---|
| 144 | { {'t', 'i'}, "tempindent", 0, 0 },
|
|---|
| 145 | { {'p', 'o'}, "pageoffset", 0, 0 },
|
|---|
| 146 | { {'p', 'l'}, "pagelen", 0, 0 },
|
|---|
| 147 | { {'\0', '\0'}, NULL, 0, 0 }
|
|---|
| 148 | };
|
|---|
| 149 | unsigned char Pass1ln[MAXLINE]; /* pass 1 output line */
|
|---|
| 150 | unsigned char Pass2ln[MAXLINE]; /* pass 2 output line */
|
|---|
| 151 | int Pglen = 66; /* page length */
|
|---|
| 152 | int Pgoff = 0; /* page offset */
|
|---|
| 153 | char *Pname = NULL; /* program name */
|
|---|
| 154 | unsigned char Prevfont = '\0'; /* previous font */
|
|---|
| 155 | int Ptrstack[MAXSP]; /* stack for Expand()'s "ptr" */
|
|---|
| 156 | struct scale Scale[] = { /* scaling factors */
|
|---|
| 157 | { 'i', (240.0) },
|
|---|
| 158 | { 'c', ((240.0 * 50.0)/127.0) },
|
|---|
| 159 | { 'P', (240.0/6.0) },
|
|---|
| 160 | { 'p', (240.0/72.0) },
|
|---|
| 161 | { 'u', (1.0) },
|
|---|
| 162 | { 'm', (1.0) },
|
|---|
| 163 | { 'n', (1.0) },
|
|---|
| 164 | { 'v', (1.0) },
|
|---|
| 165 | { '\0', (0.0) }
|
|---|
| 166 | };
|
|---|
| 167 | double Scalen = 0.0; /* 'n' scaling factor */
|
|---|
| 168 | double Scaleu = 0.0; /* 'u' scaling factor */
|
|---|
| 169 | double Scalev = 0.0; /* 'v' scaling factor */
|
|---|
| 170 | struct schtab Schar[MAXSCH]; /* special characters */
|
|---|
| 171 | int Sp = -1; /* stack pointer */
|
|---|
| 172 | struct str Str[MAXSTR]; /* ".ds" strings */
|
|---|
| 173 | int Sx = -1; /* string index */
|
|---|
| 174 | int Tabs[MAXEXP+1]; /* TAB positions */
|
|---|
| 175 | int Thispg = 1; /* this page number */
|
|---|
| 176 | int Tind = 0; /* temporary indentation amount */
|
|---|
| 177 | int Topmarg = 5; /* top margin */
|
|---|
| 178 | unsigned char *Trtbl = NULL; /* .tr table */
|
|---|
| 179 | int Uhyph = 0; /* hyphen usage state */
|
|---|
| 180 | int Vspace = 1; /* vertical (inter-text-line) spacing */
|
|---|
| 181 | unsigned char Word[MAXLINE]; /* pass 2 word buffer */
|
|---|
| 182 | int Wordl = 0; /* effective length of Word[] */
|
|---|
| 183 | int Wordx = 0; /* Word[] index */
|
|---|
| 184 | int Dowarn = 1; /* Enable warnings if true */
|
|---|
