| 1 | /*
|
|---|
| 2 | * cawf - a C version of Henry Spencer's awf(1), the Amazingly
|
|---|
| 3 | * Workable (text) Formatter
|
|---|
| 4 | *
|
|---|
| 5 | * V. Abell, Purdue University Computing Center
|
|---|
| 6 | */
|
|---|
| 7 |
|
|---|
| 8 | /*
|
|---|
| 9 | * Copyright (c) 1991 Purdue University Research Foundation,
|
|---|
| 10 | * West Lafayette, Indiana 47907. All rights reserved.
|
|---|
| 11 | *
|
|---|
| 12 | * Written by Victor A. Abell <abe@mace.cc.purdue.edu>, Purdue
|
|---|
| 13 | * University Computing Center. Not derived from licensed software;
|
|---|
| 14 | * derived from awf(1) by Henry Spencer of the University of Toronto.
|
|---|
| 15 | *
|
|---|
| 16 | * Permission is granted to anyone to use this software for any
|
|---|
| 17 | * purpose on any computer system, and to alter it and redistribute
|
|---|
| 18 | * it freely, subject to the following restrictions:
|
|---|
| 19 | *
|
|---|
| 20 | * 1. The author is not responsible for any consequences of use of
|
|---|
| 21 | * this software, even if they arise from flaws in it.
|
|---|
| 22 | *
|
|---|
| 23 | * 2. The origin of this software must not be misrepresented, either
|
|---|
| 24 | * by explicit claim or by omission. Credits must appear in the
|
|---|
| 25 | * documentation.
|
|---|
| 26 | *
|
|---|
| 27 | * 3. Altered versions must be plainly marked as such, and must not
|
|---|
| 28 | * be misrepresented as being the original software. Credits must
|
|---|
| 29 | * appear in the documentation.
|
|---|
| 30 | *
|
|---|
| 31 | * 4. This notice may not be removed or altered.
|
|---|
| 32 | */
|
|---|
| 33 |
|
|---|
| 34 | static char Version[] = "4.0";
|
|---|
| 35 |
|
|---|
| 36 | #include "cawf.h"
|
|---|
| 37 |
|
|---|
| 38 | #include <sys/stat.h>
|
|---|
| 39 | #ifndef UNIX
|
|---|
| 40 | #include <io.h>
|
|---|
| 41 | #include <process.h>
|
|---|
| 42 | #include <string.h>
|
|---|
| 43 | #include <sys\types.h>
|
|---|
| 44 | #include <sys\stat.h>
|
|---|
| 45 | #endif
|
|---|
| 46 |
|
|---|
| 47 |
|
|---|
| 48 | main(argc, argv)
|
|---|
| 49 | int argc;
|
|---|
| 50 | char *argv[];
|
|---|
| 51 | {
|
|---|
| 52 | char *ep; /* environment pointer */
|
|---|
| 53 | int fff = 0; /* final form feed status */
|
|---|
| 54 | char **files; /* file names */
|
|---|
| 55 | int help = 0; /* help status */
|
|---|
| 56 | int i; /* temporary index */
|
|---|
| 57 | size_t l; /* length */
|
|---|
| 58 | char *lib = CAWFLIB; /* library path */
|
|---|
| 59 | int libl; /* library path length */
|
|---|
| 60 | int mac = 0; /* macro specification status */
|
|---|
| 61 | int nf = 0; /* number of files */
|
|---|
| 62 | char *np; /* name pointer */
|
|---|
| 63 | int pc; /* prolog count */
|
|---|
| 64 | struct stat sbuf; /* stat buffer */
|
|---|
| 65 | /*
|
|---|
| 66 | * Save program name.
|
|---|
| 67 | */
|
|---|
| 68 | if ((Pname = strrchr(argv[0], '\\')) != NULL)
|
|---|
| 69 | Pname++;
|
|---|
| 70 | else if ((Pname = strrchr(argv[0], '/')) != NULL)
|
|---|
| 71 | Pname++;
|
|---|
| 72 | else
|
|---|
| 73 | Pname = argv[0];
|
|---|
| 74 | /*
|
|---|
| 75 | * Set error file stream pointer.
|
|---|
| 76 | */
|
|---|
| 77 | Efs = stderr;
|
|---|
| 78 | /*
|
|---|
| 79 | * Get library name.
|
|---|
| 80 | */
|
|---|
| 81 | if ((np = getenv("CAWFLIB")) != NULL)
|
|---|
| 82 | lib = np;
|
|---|
| 83 | libl = strlen(lib);
|
|---|
| 84 | /*
|
|---|
| 85 | * Get device file name.
|
|---|
| 86 | */
|
|---|
| 87 | for (ep = getenv("TERM");; ep = NULL) {
|
|---|
| 88 | if (ep == NULL || *ep == '\0')
|
|---|
| 89 | ep = "dumb";
|
|---|
| 90 | l = libl + 1 + strlen(ep) + strlen(".dev") + 1;
|
|---|
| 91 | if ((np = malloc(l)) == NULL)
|
|---|
| 92 | Error(FATAL, NOLINE,
|
|---|
| 93 | " no string space for device file: ", ep);
|
|---|
| 94 | (void) sprintf(np, "%s/%s.dev", lib, ep);
|
|---|
| 95 | if (stat(np, &sbuf) == 0)
|
|---|
| 96 | break;
|
|---|
| 97 | if (strcmp(ep, "dumb") == 0)
|
|---|
| 98 | Error(FATAL, NOLINE, " no dumb.dev file in ", lib);
|
|---|
| 99 | (void) free(np);
|
|---|
| 100 | }
|
|---|
| 101 | if ((files = malloc((argc + 2) * sizeof(files[0]))) == NULL)
|
|---|
| 102 | Error(FATAL, NOLINE, " no space for file list",
|
|---|
| 103 | NULL);
|
|---|
| 104 | files[nf++] = np;
|
|---|
| 105 | /*
|
|---|
| 106 | * Get common text file name.
|
|---|
| 107 | */
|
|---|
| 108 | l = libl + 1 + strlen("common") + 1;
|
|---|
| 109 | if ((np = malloc(l)) == NULL)
|
|---|
| 110 | Error(FATAL, NOLINE, " no string space for common file name",
|
|---|
| 111 | NULL);
|
|---|
| 112 | (void) sprintf(np, "%s/common", lib);
|
|---|
| 113 | files[nf++] = np;
|
|---|
| 114 | /*
|
|---|
| 115 | * Process options.
|
|---|
| 116 | */
|
|---|
| 117 | while ((i = getopt(argc, argv, "c:d:ef:hm:")) != EOF) {
|
|---|
| 118 | switch (i) {
|
|---|
| 119 | /*
|
|---|
| 120 | * -c<device_configuration_file_path>>
|
|---|
| 121 | */
|
|---|
| 122 | case 'c':
|
|---|
| 123 | Devconf = optarg;
|
|---|
| 124 | break;
|
|---|
| 125 | /*
|
|---|
| 126 | * -d<output_device_name> -- define output device name
|
|---|
| 127 | *
|
|---|
| 128 | * The default output device name is NORMAL -- i.e., a device that
|
|---|
| 129 | * does bold face with backspace and overprinting and italic face with
|
|---|
| 130 | * underscore. NORMAL is usually a terminal device.
|
|---|
| 131 | *
|
|---|
| 132 | * There is a built-in device, named ANSI, that does bold face with
|
|---|
| 133 | * the ANSI shadow mode and italic face with the ANSI underscore mode.
|
|---|
| 134 | * ANSI is normally a terminal device that supports the ANSI shadow
|
|---|
| 135 | * and underscore modes.
|
|---|
| 136 | *
|
|---|
| 137 | * There is a built-in output device, named NONE, that does nothing
|
|---|
| 138 | * at all for the bold or italic faces. This is usually a terminal
|
|---|
| 139 | * device.
|
|---|
| 140 | *
|
|---|
| 141 | * All other device names must match a stanza in the device
|
|---|
| 142 | * configuration file.
|
|---|
| 143 | */
|
|---|
| 144 | case 'd':
|
|---|
| 145 | Device = optarg;
|
|---|
| 146 | break;
|
|---|
| 147 | /*
|
|---|
| 148 | * -e -- eject: issue final form feed
|
|---|
| 149 | */
|
|---|
| 150 | case 'e':
|
|---|
| 151 | fff = 1;
|
|---|
| 152 | break;
|
|---|
| 153 | /*
|
|---|
| 154 | * -f<output_device_font_name> -- define font name for the output
|
|---|
| 155 | * device (from device configuration
|
|---|
| 156 | * file)
|
|---|
| 157 | */
|
|---|
| 158 | case 'f':
|
|---|
| 159 | Devfont = optarg;
|
|---|
| 160 | break;
|
|---|
| 161 | /*
|
|---|
| 162 | * -h -- display help (usage)
|
|---|
| 163 | */
|
|---|
| 164 | case 'h':
|
|---|
| 165 | help = 1;
|
|---|
| 166 | break;
|
|---|
| 167 | /*
|
|---|
| 168 | * -m<macro_file_name>
|
|---|
| 169 | *
|
|---|
| 170 | * Special support is provided for -man, -me and -ms.
|
|---|
| 171 | */
|
|---|
| 172 | case 'm':
|
|---|
| 173 | if (mac) {
|
|---|
| 174 | Error(WARN, NOLINE,
|
|---|
| 175 | "multiple macro file declaration",
|
|---|
| 176 | NULL);
|
|---|
| 177 | break;
|
|---|
| 178 | }
|
|---|
| 179 | l = libl + 2 + strlen(optarg) + strlen(".mac") + 1;
|
|---|
| 180 | if ((np = malloc(l)) == NULL)
|
|---|
| 181 | Error(FATAL, NOLINE, " no string space for ",
|
|---|
| 182 | argv[1]);
|
|---|
| 183 | (void) sprintf(np, "%s/m%s.mac", lib, optarg);
|
|---|
| 184 | files[nf++] = np;
|
|---|
| 185 | if (strcmp(optarg, "an") == 0)
|
|---|
| 186 | Marg = MANMACROS;
|
|---|
| 187 | else if (strcmp(optarg, "s") == 0
|
|---|
| 188 | || strcmp(optarg, "e") == 0)
|
|---|
| 189 | Marg = MSMACROS;
|
|---|
| 190 | mac++;
|
|---|
| 191 | break;
|
|---|
| 192 | /*
|
|---|
| 193 | * Option not recognized by getopt().
|
|---|
| 194 | */
|
|---|
| 195 | case '?':
|
|---|
| 196 | Err = 1;
|
|---|
| 197 | }
|
|---|
| 198 | }
|
|---|
| 199 | if (Defdev())
|
|---|
| 200 | Err++;
|
|---|
| 201 | if (help || Err) {
|
|---|
| 202 | (void) fprintf(stderr,
|
|---|
| 203 | "%s %s usage: [-c<c>] [-d<d>] [-e] [-f<f>] [-h] [-m<m>] file...\n",
|
|---|
| 204 | Pname, Version);
|
|---|
| 205 | (void) fprintf(stderr,
|
|---|
| 206 | "\t-c<c> <c> is the device configuration file path\n");
|
|---|
| 207 | (void) fprintf(stderr,
|
|---|
| 208 | "\t-d<d> <d> is the output device name\n");
|
|---|
| 209 | (void) fprintf(stderr,
|
|---|
| 210 | "\t (default = NORMAL, using \\b for bold and italic)\n");
|
|---|
| 211 | (void) fprintf(stderr,
|
|---|
| 212 | "\t (built-ins = ANSI, NONE and NORMAL)\n");
|
|---|
| 213 | (void) fprintf(stderr,
|
|---|
| 214 | "\t-e issue eject after last page\n");
|
|---|
| 215 | (void) fprintf(stderr,
|
|---|
| 216 | "\t-f<f> <f> is the output device font name\n");
|
|---|
| 217 | (void) fprintf(stderr,
|
|---|
| 218 | "\t-h display help (this output)\n");
|
|---|
| 219 | (void) fprintf(stderr,
|
|---|
| 220 | "\t-m<m> m<m> is the macro file name\n");
|
|---|
| 221 | (void) fprintf(stderr,
|
|---|
| 222 | "\tfile ... source file names\n");
|
|---|
| 223 | exit(Err);
|
|---|
| 224 | }
|
|---|
| 225 | if (mac == 0) {
|
|---|
| 226 |
|
|---|
| 227 | /*
|
|---|
| 228 | * No macroes - enable Bold, Italic, Roman and Courier fonts.
|
|---|
| 229 | */
|
|---|
| 230 | for (i = 0; Fcode[i].nm; i++) {
|
|---|
| 231 | switch (Fcode[i].nm) {
|
|---|
| 232 | case 'B':
|
|---|
| 233 | case 'I':
|
|---|
| 234 | case 'R':
|
|---|
| 235 | case 'C':
|
|---|
| 236 | Fcode[i].status = '1';
|
|---|
| 237 | }
|
|---|
| 238 | }
|
|---|
| 239 | }
|
|---|
| 240 | /*
|
|---|
| 241 | * Add user-supplied file names.
|
|---|
| 242 | */
|
|---|
| 243 | pc = nf;
|
|---|
| 244 | if (optind >= argc) {
|
|---|
| 245 | files[nf++] = NULL; /* STDIN */
|
|---|
| 246 | } else {
|
|---|
| 247 | while (optind < argc)
|
|---|
| 248 | files[nf++] = argv[optind++];
|
|---|
| 249 | }
|
|---|
| 250 | /*
|
|---|
| 251 | * Make sure all input files are accessible.
|
|---|
| 252 | */
|
|---|
| 253 | for (i = 0; i < nf; i++) {
|
|---|
| 254 | if (files[i] != NULL) {
|
|---|
| 255 | if (stat(files[i], &sbuf) != 0)
|
|---|
| 256 | Error(WARN, NOLINE, " can't find ", files[i]);
|
|---|
| 257 | }
|
|---|
| 258 | }
|
|---|
| 259 | if (Err)
|
|---|
| 260 | exit(1);
|
|---|
| 261 | /*
|
|---|
| 262 | * Miscellaneous initialization.
|
|---|
| 263 | */
|
|---|
| 264 |
|
|---|
| 265 | for (i = 0; ; i++) {
|
|---|
| 266 | if (Pat[i].re == NULL)
|
|---|
| 267 | break;
|
|---|
| 268 | if ((Pat[i].pat = regcomp(Pat[i].re)) == NULL)
|
|---|
| 269 | Error(WARN, NOLINE, Pat[i].re, " regcomp failure");
|
|---|
| 270 | }
|
|---|
| 271 | if ((i = Findscale((int)'n', 0.0, 0)) < 0)
|
|---|
| 272 | Error(WARN, NOLINE, " can't find Scale['n']", NULL);
|
|---|
| 273 | Scalen = Scale[i].val;
|
|---|
| 274 | if ((i = Findscale((int)'u', 0.0, 0)) < 0)
|
|---|
| 275 | Error(WARN, NOLINE, " can't find Scale['u']", NULL);
|
|---|
| 276 | Scaleu = Scale[i].val;
|
|---|
| 277 | if ((i = Findscale((int)'v', 0.0, 0)) < 0)
|
|---|
| 278 | Error(WARN, NOLINE, " can't find Scale['v']", NULL);
|
|---|
| 279 | Scalev = Scale[i].val;
|
|---|
| 280 | (void) Findstr((unsigned char *)"CH", (unsigned char *)"= % -", 1);
|
|---|
| 281 | Cont = Newstr((unsigned char *)" ");
|
|---|
| 282 | Contlen = 1;
|
|---|
| 283 | if ((Trtbl = (unsigned char *)malloc(256)) == NULL)
|
|---|
| 284 | Error(WARN, NOLINE, " can't allocate translate table space",
|
|---|
| 285 | NULL);
|
|---|
| 286 | else {
|
|---|
| 287 | *Trtbl = ' ';
|
|---|
| 288 | for (i = 1; i < 256; i++)
|
|---|
| 289 | Trtbl[i] = (unsigned char) i;
|
|---|
| 290 | }
|
|---|
| 291 | if (Err)
|
|---|
| 292 | exit(1);
|
|---|
| 293 | /*
|
|---|
| 294 | * Here begins pass1 of awf - reading input lines and expanding macros.
|
|---|
| 295 | */
|
|---|
| 296 |
|
|---|
| 297 | /*
|
|---|
| 298 | * Output prolog.
|
|---|
| 299 | */
|
|---|
| 300 | if (Fstr.i) {
|
|---|
| 301 | for (i = 0; i < Fstr.il; i++) {
|
|---|
| 302 | Charput((int)Fstr.i[i]);
|
|---|
| 303 | }
|
|---|
| 304 | }
|
|---|
| 305 | Macro((unsigned char *)".^x");
|
|---|
| 306 | Macro((unsigned char *)".^b");
|
|---|
| 307 | Macro((unsigned char *)".^# 1 <prolog>");
|
|---|
| 308 | /*
|
|---|
| 309 | * Read input files.
|
|---|
| 310 | */
|
|---|
| 311 | for (i = 0; i < nf; i++) {
|
|---|
| 312 | Dowarn = (i >= pc);
|
|---|
| 313 | if (files[i] == NULL) {
|
|---|
| 314 | np = "stdin";
|
|---|
| 315 | Ifs = stdin;
|
|---|
| 316 | } else {
|
|---|
| 317 | #ifdef UNIX
|
|---|
| 318 | if ((Ifs = fopen(files[i], "r")) == NULL)
|
|---|
| 319 | #else
|
|---|
| 320 | if ((Ifs = fopen(files[i], "rt")) == NULL)
|
|---|
| 321 | #endif
|
|---|
| 322 | Error(FATAL, NOLINE, " can't open ", files[i]);
|
|---|
| 323 | np = files[i];
|
|---|
| 324 | }
|
|---|
| 325 | if (i >= pc) {
|
|---|
| 326 | (void) sprintf((char *)Line, ".^# 1 %s", np);
|
|---|
| 327 | Macro(Line);
|
|---|
| 328 | NR = 0;
|
|---|
| 329 | }
|
|---|
| 330 | Fsp = 0;
|
|---|
| 331 | do {
|
|---|
| 332 | while (fgets((char *)Line, MAXLINE, Ifs) != NULL) {
|
|---|
| 333 | NR++;
|
|---|
| 334 | if ((np = strrchr((char *)Line, '\n')) != NULL)
|
|---|
| 335 | *np = '\0';
|
|---|
| 336 | else
|
|---|
| 337 | Line[MAXLINE-1] = '\0';
|
|---|
| 338 | Macro(Line);
|
|---|
| 339 | }
|
|---|
| 340 | if (i >= pc)
|
|---|
| 341 | Macro((unsigned char *)".^e");
|
|---|
| 342 | if (Ifs != stdin)
|
|---|
| 343 | (void) fclose(Ifs);
|
|---|
| 344 | if (Fsp > 0) {
|
|---|
| 345 | Free(&Inname);
|
|---|
| 346 | Inname = Inn_stk[Fsp-1];
|
|---|
| 347 | NR = NR_stk[Fsp-1];
|
|---|
| 348 | Ifs = Ifs_stk[Fsp-1];
|
|---|
| 349 | }
|
|---|
| 350 | } while (Fsp-- > 0);
|
|---|
| 351 | }
|
|---|
| 352 | Macro(NULL);
|
|---|
| 353 | if (fff)
|
|---|
| 354 | Charput((int)'\f');
|
|---|
| 355 | exit(Err);
|
|---|
| 356 | }
|
|---|
| 357 |
|
|---|
| 358 |
|
|---|
| 359 | /*
|
|---|
| 360 | * Macro(inp) - process a possible macro statement
|
|---|
| 361 | * pass non-macros and macros alike to pass 2
|
|---|
| 362 | */
|
|---|
| 363 |
|
|---|
| 364 | void
|
|---|
| 365 | Macro(inp)
|
|---|
| 366 | unsigned char *inp; /* possible macro statement pointer */
|
|---|
| 367 | {
|
|---|
| 368 | unsigned char c[2]; /* characters */
|
|---|
| 369 | int endm; /* end of macro status */
|
|---|
| 370 | FILE *fs; /* temporary file stream */
|
|---|
| 371 | int i, j, k; /* temporary indexes */
|
|---|
| 372 | int mx; /* Macrotab[] index */
|
|---|
| 373 | int req; /* request character status */
|
|---|
| 374 | unsigned char *s1, *s2; /* temporary string pointers */
|
|---|
| 375 |
|
|---|
| 376 | if (inp == NULL) {
|
|---|
| 377 | Pass2(NULL);
|
|---|
| 378 | return;
|
|---|
| 379 | }
|
|---|
| 380 | req = (*inp == '.' || *inp == '\'') ? 1 : 0;
|
|---|
| 381 | /*
|
|---|
| 382 | * Check for file name designator.
|
|---|
| 383 | */
|
|---|
| 384 | if (req && inp[1] == '^' && inp[2] == '#') {
|
|---|
| 385 | Free(&Inname);
|
|---|
| 386 | Inname = Field(3, inp, 1);
|
|---|
| 387 | F = NULL;
|
|---|
| 388 | Pass2(inp);
|
|---|
| 389 | return;
|
|---|
| 390 | }
|
|---|
| 391 | /*
|
|---|
| 392 | * Check for source command - "^[.']so".
|
|---|
| 393 | */
|
|---|
| 394 | if (req && inp[1] == 's' && inp[2] == 'o') {
|
|---|
| 395 | if ((s1 = Field(2, inp, 1)) == NULL) {
|
|---|
| 396 | Error(WARN, LINE, " no file specified", NULL);
|
|---|
| 397 | return;
|
|---|
| 398 | }
|
|---|
| 399 | if ((fs = fopen((char *)s1, "r")) == NULL) {
|
|---|
| 400 | Error(WARN, LINE, " can't open", NULL);
|
|---|
| 401 | return;
|
|---|
| 402 | }
|
|---|
| 403 | if (Fsp >= MAXFSTK) {
|
|---|
| 404 | (void) fclose(fs);
|
|---|
| 405 | Error(WARN, LINE, " nesting too deep", NULL);
|
|---|
| 406 | return;
|
|---|
| 407 | }
|
|---|
| 408 | Ifs_stk[Fsp] = Ifs;
|
|---|
| 409 | Ifs = fs;
|
|---|
| 410 | Inn_stk[Fsp] = Inname;
|
|---|
| 411 | Inname = F;
|
|---|
| 412 | F = NULL;
|
|---|
| 413 | NR_stk[Fsp++] = NR;
|
|---|
| 414 | NR = 0;
|
|---|
| 415 | return;
|
|---|
| 416 | }
|
|---|
| 417 | /*
|
|---|
| 418 | * Check for ignore.
|
|---|
| 419 | */
|
|---|
| 420 | if (req && inp[1] == 'i' && inp[2] == 'g') {
|
|---|
| 421 | while (fgets((char *)inp, MAXLINE, Ifs) != NULL) {
|
|---|
| 422 | NR++;
|
|---|
| 423 | if (inp[0] == '.' && inp[1] == '.') break;
|
|---|
| 424 | }
|
|---|
| 425 | return;
|
|---|
| 426 | }
|
|---|
| 427 | /*
|
|---|
| 428 | * Check for start of macro definition.
|
|---|
| 429 | */
|
|---|
| 430 | if (req && inp[1] == 'd' && inp[2] == 'e') {
|
|---|
| 431 | if (inp[3] != ' ' || inp[4] == '\0') {
|
|---|
| 432 | Error(WARN, LINE, " illegal macro definition", NULL);
|
|---|
| 433 | return;
|
|---|
| 434 | }
|
|---|
| 435 | c[0] = inp[4];
|
|---|
| 436 | c[1] = inp[5];
|
|---|
| 437 | Curmx = Findmacro(c, 1);
|
|---|
| 438 | return;
|
|---|
| 439 | }
|
|---|
| 440 | /*
|
|---|
| 441 | * Check for macro text. Remove double backslashes.
|
|---|
| 442 | */
|
|---|
| 443 | if (req && (inp[1] == '\0' || (inp[2] == '\0' && inp[0] == inp[1])))
|
|---|
| 444 | endm = 1;
|
|---|
| 445 | else
|
|---|
| 446 | endm = 0;
|
|---|
| 447 | if (Curmx >= 0 && !endm) {
|
|---|
| 448 | if (Mtx >= MAXMTXT)
|
|---|
| 449 | Error(FATAL, LINE, " out of macro text space", NULL);
|
|---|
| 450 | if ((s1 = (unsigned char *)strchr((char *)inp, '\\')) == NULL)
|
|---|
| 451 | Macrotxt[Mtx] = Newstr(inp);
|
|---|
| 452 | else {
|
|---|
| 453 | for (s1 = Pass1ln, s2 = inp;; s1++) {
|
|---|
| 454 | if ((*s1 = *s2++) == '\0')
|
|---|
| 455 | break;
|
|---|
| 456 | if (*s1 == '\\' && *s2 == '\\')
|
|---|
| 457 | s2++;
|
|---|
| 458 | }
|
|---|
| 459 | Macrotxt[Mtx] = Newstr(Pass1ln);
|
|---|
| 460 | }
|
|---|
| 461 | if (Macrotab[Curmx].bx == -1)
|
|---|
| 462 | Macrotab[Curmx].bx = Mtx;
|
|---|
| 463 | Mtx++;
|
|---|
| 464 | Macrotab[Curmx].ct++;
|
|---|
| 465 | return;
|
|---|
| 466 | }
|
|---|
| 467 | /*
|
|---|
| 468 | * Check for end of macro.
|
|---|
| 469 | */
|
|---|
| 470 | if (Curmx >= 0 && endm) {
|
|---|
| 471 | Curmx = -1;
|
|---|
| 472 | (void) sprintf((char *)Pass1ln, ".^# %d %s", NR, Inname);
|
|---|
| 473 | Pass2(Pass1ln);
|
|---|
| 474 | return;
|
|---|
| 475 | }
|
|---|
| 476 | /*
|
|---|
| 477 | * Check for conditionals and macro expansions.
|
|---|
| 478 | */
|
|---|
| 479 | if (req
|
|---|
| 480 | && (((mx = Findmacro(inp+1, 0)) != -1) || regexec(Pat[0].pat, inp))) {
|
|---|
| 481 | Expand(inp);
|
|---|
| 482 | return;
|
|---|
| 483 | }
|
|---|
| 484 | /*
|
|---|
| 485 | * None of the above: forward the line.
|
|---|
| 486 | */
|
|---|
| 487 | Pass2(inp);
|
|---|
| 488 | }
|
|---|
