minix3/commands/cawf/store.c

185 lines
7.8 KiB
C
Raw Normal View History

2020-02-21 00:59:27 +05:30
/*
* store.c - cawf(1) storage areas
*/
/*
* Copyright (c) 1991 Purdue University Research Foundation,
* West Lafayette, Indiana 47907. All rights reserved.
*
* Written by Victor A. Abell <abe@mace.cc.purdue.edu>, Purdue
* University Computing Center. Not derived from licensed software;
* derived from awf(1) by Henry Spencer of the University of Toronto.
*
* Permission is granted to anyone to use this software for any
* purpose on any computer system, and to alter it and redistribute
* it freely, subject to the following restrictions:
*
* 1. The author is not responsible for any consequences of use of
* this software, even if they arise from flaws in it.
*
* 2. The origin of this software must not be misrepresented, either
* by explicit claim or by omission. Credits must appear in the
* documentation.
*
* 3. Altered versions must be plainly marked as such, and must not
* be misrepresented as being the original software. Credits must
* appear in the documentation.
*
* 4. This notice may not be removed or altered.
*/
#include "cawf.h"
struct rx Pat[] = {
{ "^[.'](i[ef]|el)", NULL}, /* 0 */
{ "^[.']i[ef] !", NULL}, /* 1 */
{ "^[.']i[ef] !?\\\\n\\(\\.\\$(>|>=|=|<|<=)[0-9] ",
NULL}, /* 2 */
{ "^[.']i[ef] !?'\\\\\\$[0-9]'[^']*' ", NULL}, /* 3 */
{ "^[.']i[ef] !?[nt] ", NULL}, /* 4 */
{ "\\\\\\$[0-9]", NULL}, /* 5 */
{ "^[ \t]*$", NULL}, /* 6 */
{ "\\\\|\t|-| ", NULL}, /* 7 */
{ "[.!?:][]\\)'\\\"\\*]*$", NULL}, /* 8 */
{ ",fP", NULL}, /* 9 */
{ ",tP", NULL}, /* 10 */
{ "^(ta|ll|ls|in|ti|po|ne|sp|pl|nr)", NULL}, /* 11 */
{ "^(ll|ls|in|ti|po|pl)", NULL}, /* 12 */
{ "[]\\)'\\\"\\*]", NULL}, /* 13 */
{ "^(LH|CH|RH|LF|CF|RF)", NULL}, /* 14 */
{ "^[.']i[ef]", NULL}, /* 15 */
{ ",fR", NULL}, /* 16 */
{ NULL, NULL} /* END */
};
int Adj = BOTHADJ; /* output line adjustment mode */
unsigned char *Aftnxt = NULL; /* action after next line */
unsigned char *Args[] = { NULL, NULL, /* 10 macro arguments */
NULL, NULL,
NULL, NULL,
NULL, NULL,
NULL, NULL
};
unsigned char *Argstack[10*MAXSP]; /* stack for Expand()'s "args[]" */
int Backc = 0; /* last word ended with '\\c' */
int Botmarg = 5; /* bottom margin */
int Centering = 0; /* centering count */
int Condstack[MAXSP]; /* stack for Expand()'s "cond" */
unsigned char *Cont = NULL; /* continue line append */
int Contlen = 0; /* continue line append length */
int Curmx = -1; /* current macro index */
char *Device = NULL; /* output device name */
char *Devconf = NULL; /* device configuration file path */
char *Devfont = NULL; /* output device font */
int Divert = 0; /* diversion status */
FILE *Efs = NULL; /* error file stream */
unsigned char *Eol = NULL; /* end of line information */
int Eollen = 0; /* end of line length */
int Err = 0; /* error flag */
unsigned char *F = NULL; /* field value */
struct fcode Fcode[] = { /* font codes */
{ 'B', '\0'}, /* Bold */
{ 'I', '\0'}, /* Italic */
{ 'R', '\0'}, /* Roman */
{ 'C', '\0'}, /* Courier */
{ '\0', '\0'}
};
int Fill = 0; /* fill status */
unsigned char Font[] = { '\0', '\0' }; /* current font */
int Fontctl; /* output font control */
char Fontstat = 'R'; /* output font status */
int Fph = 0; /* first page header status */
int Fsp = 0; /* files stack pointer (for .so) */
struct fontstr Fstr; /* font control strings */
unsigned char *Ftc = NULL; /* center footer */
unsigned char *Ftl = NULL; /* left footer */
unsigned char *Ftr = NULL; /* right footer */
unsigned char *Hdc = NULL; /* center header */
int Hdft = 0; /* header/footer status */
unsigned char *Hdl = NULL; /* left header */
unsigned char *Hdr = NULL; /* right header */
struct hytab Hychar[MAXHYCH]; /* hyphen characters */
FILE *Ifs = NULL; /* input file stream */
FILE *Ifs_stk[MAXFSTK]; /* Ifs stack */
int Ind = 0; /* indentation amount */
unsigned char *Inname = NULL; /* input file name */
unsigned char *Inn_stk[MAXFSTK]; /* Inname stack */
int LL = 78; /* line length (default) */
unsigned char Line[MAXLINE]; /* input line */
int Lockil = 0; /* pass 2 line number is locked
* (processing is inside macro) */
int Marg = 0; /* macro argument - man, ms, etc. */
struct macro Macrotab[MAXMACRO]; /* macro table */
unsigned char *Macrotxt[MAXMTXT]; /* macro text */
int Mtx = 0; /* macro text index */
int Mxstack[MAXSP]; /* stack for Expand()'s "mx" */
int Nfc; /* number of font codes */
int Nhnr[MAXNHNR]; /* ".NH" numbers */
int Nhy = 0; /* number of Hychar[] entries */
int Nleftstack[MAXSP]; /* stack for Expand()'s "nleft" */
int Nmac = 0; /* number of macros */
int Nnr = 0; /* number of Numb[] entries */
int Nospmode = 1; /* no space mode */
int Nparms = 0; /* number of Parms[] entries */
int NR = 0; /* number of record ala awk */
int NR_stk[MAXFSTK]; /* NR stack */
int Nsch = 0; /* number of Schar[] entries */
int Nstr = 0; /* number of entries in Str[] */
int Ntabs = 0; /* number of TAB positions */
struct nbr Numb[MAXNR]; /* number registers */
int Nxtln = 1; /* next line number */
int Outll = -1; /* output line length */
unsigned char Outln[MAXOLL*2]; /* output line */
int Outlx = 0; /* output line index */
int P2il = 0; /* pass 2 input line number */
unsigned char *P2name = NULL; /* pass 2 input file name */
int P3fill = 1; /* pass 3 fill status */
int Padchar[MAXOLL]; /* padding character locations */
int Padfrom = PADLEFT; /* which end to pad from */
int Padx = 0; /* Padchar[] index */
struct parms Parms[] = { /* parameter registers */
{ {'i', 'n'}, "indent", 0, 0 },
{ {'l', 'l'}, "linelen", 0, 0 },
{ {'l', 's'}, "vspace", 0, 0 },
{ {'t', 'i'}, "tempindent", 0, 0 },
{ {'p', 'o'}, "pageoffset", 0, 0 },
{ {'p', 'l'}, "pagelen", 0, 0 },
{ {'\0', '\0'}, NULL, 0, 0 }
};
unsigned char Pass1ln[MAXLINE]; /* pass 1 output line */
unsigned char Pass2ln[MAXLINE]; /* pass 2 output line */
int Pglen = 66; /* page length */
int Pgoff = 0; /* page offset */
char *Pname = NULL; /* program name */
unsigned char Prevfont = '\0'; /* previous font */
int Ptrstack[MAXSP]; /* stack for Expand()'s "ptr" */
struct scale Scale[] = { /* scaling factors */
{ 'i', (240.0) },
{ 'c', ((240.0 * 50.0)/127.0) },
{ 'P', (240.0/6.0) },
{ 'p', (240.0/72.0) },
{ 'u', (1.0) },
{ 'm', (1.0) },
{ 'n', (1.0) },
{ 'v', (1.0) },
{ '\0', (0.0) }
};
double Scalen = 0.0; /* 'n' scaling factor */
double Scaleu = 0.0; /* 'u' scaling factor */
double Scalev = 0.0; /* 'v' scaling factor */
struct schtab Schar[MAXSCH]; /* special characters */
int Sp = -1; /* stack pointer */
struct str Str[MAXSTR]; /* ".ds" strings */
int Sx = -1; /* string index */
int Tabs[MAXEXP+1]; /* TAB positions */
int Thispg = 1; /* this page number */
int Tind = 0; /* temporary indentation amount */
int Topmarg = 5; /* top margin */
unsigned char *Trtbl = NULL; /* .tr table */
int Uhyph = 0; /* hyphen usage state */
int Vspace = 1; /* vertical (inter-text-line) spacing */
unsigned char Word[MAXLINE]; /* pass 2 word buffer */
int Wordl = 0; /* effective length of Word[] */
int Wordx = 0; /* Word[] index */
int Dowarn = 1; /* Enable warnings if true */