commands/cawf/store.c

   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 */