commands/cawf/pass3.c

   1 /*
   2  *      pass3.c - cawf(1) pass 3 function
   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 void
  34 Pass3(len, word, sarg, narg)
  35         int len;                        /* length (negative is special) */
  36         unsigned char *word;            /* word */
  37         unsigned char *sarg;            /* string argument */
  38         int narg;                       /* numeric argument */
  39 {
  40         int addto;                      /* spaces to add to all words */
  41         int i, j, k;                    /* temporary index */
  42         unsigned char msg[MAXLINE];     /* message buffer */
  43         int n;                          /* temporary number */
  44         unsigned char *s1;              /* temporary string pointer */
  45         int sp = 0;                     /* no-break spacing switch */
  46         int sp_Outll;                   /* sp-saved Outll */
  47         char sp_Outln;                  /* sp-saved Outln[0] */
  48         int sp_Outlx;                   /* sp-saved Outlx */
  49         int sp_Padx;                    /* sp-saved Padx */
  50         int sp_Tind;                    /* sp-saved Tind */
  51         int wl;                         /* real word length */
  52         int xsp;                        /* extra spaces to add */
  53         int vsp;                        /* vertical spacing status */
  54
  55         vsp = 0;
  56         if (word != NULL)
  57                 wl = strlen((char *)word);
  58     /*
  59      * If not a special command, process a word.
  60      */
  61         if (len >= 0 && Outll < 0) {
  62         /*
  63          * Enter first word.
  64          */
  65                 (void) strcpy((char *)Outln, (char *)word);
  66                 Outll = len;
  67                 Outlx = wl;
  68                 Padx = 0;
  69         } else if (len >= 0
  70                && (Outll+Contlen+len+narg) <= (LL-Pgoff-Ind-Tind)) {
  71         /*
  72          * The word fits, so enter it.
  73          */
  74                 if ((Contlen + len) > 0) {
  75 line_too_big:
  76                         if ((Outlx + Contlen + wl) >= MAXOLL) {
  77                                 Error3(len, (char *)word, (char *)sarg, narg,
  78                                         "output line too big");
  79                                 return;
  80                         } else {
  81                                 if (Contlen > 0 && Cont != NULL) {
  82                                         if (Contlen == 1 && *Cont == ' ') {
  83                                                 Padchar[Padx++] = Outlx;
  84                                                 Outln[Outlx++] = ' ';
  85                                         } else {
  86                                             (void) strcpy((char *)&Outln[Outlx],
  87                                                 (char *)Cont);
  88                                             Outlx += Contlen;
  89                                         }
  90                                 }
  91                                 if (len > 0) {
  92                                         (void) strcpy((char *)&Outln[Outlx],
  93                                                 (char *)word);
  94                                         Outlx += wl;
  95                                 }
  96                         }
  97                 }
  98                 Outll += Contlen + len;
  99         } else if (len == NOBREAK || len == MESSAGE) {
 100                 /*
 101                  * Do nothing (equivalent to break)
 102                  */
 103         } else if (len == DOBREAK && strcmp((char *)word, "need") == 0
 104                &&  (Nxtln + narg) < (Pglen + 1 - Botmarg)) {
 105                 /*
 106                  * Do nothing, because there is room on the page.
 107                  */
 108         } else if (len == DOBREAK && strcmp((char *)word, "toindent") == 0
 109                &&  (Ind + Tind + Outll) < Ind) {
 110         /*
 111          * Move to indent position with line - there is room.
 112          */
 113                 n = Ind - (Ind + Tind +Outll);
 114                 Outll += n;
 115                 if ((Outlx + n) >= MAXOLL)
 116                         goto line_too_big;
 117                 for (i = n; i; i--)
 118                         Outln[Outlx++] = ' ';
 119                 Padx = 0;
 120                 Free(&Cont);
 121                 Contlen = 0;
 122         } else if (Outll >= 0
 123                || (len == DOBREAK && strcmp((char *)word, "need") == 0)) {
 124         /*
 125          * A non-empty line or a "need" forces output.
 126          */
 127                 vsp = 0;
 128
 129 print_line:
 130                 if (Nxtln == 1) {
 131             /*
 132              * We're at the top of the page, so issue the header.
 133              */
 134                         if (Thispg > 1)
 135                                 Charput((int)'\f');
 136                         for (i = (Topmarg - 1)/2; i > 0; i--) {
 137                                 Charput((int)'\n');
 138                                 Nxtln++;
 139                         }
 140                     /*
 141                      * Print the page header, as required.
 142                      */
 143                         if (Fph || Thispg > 1) {
 144                                 i = LenprtHF(Hdc, Thispg, 0)
 145                                   + LenprtHF(Hdl, Thispg, 0)
 146                                   + LenprtHF(Hdr, Thispg, 0) + 2;
 147                                 j = (LL - i - Pgoff) / 2 + 1;
 148                                 n = LL - Pgoff - i - j + 2;
 149                                 for (k = 0; k < Pgoff; k++)
 150                                         Charput((int)' ');
 151                                 if (Hdl)
 152                                         LenprtHF(Hdl, Thispg, 1);
 153                                 while (j-- > 0)
 154                                         Charput((int)' ');
 155                                 if (Hdc)
 156                                         LenprtHF(Hdc, Thispg, 1);
 157                                 while (n-- > 0)
 158                                         Charput((int)' ');
 159                                 if (Hdr)
 160                                         LenprtHF(Hdr, Thispg, 1);
 161                                 Charput((int)'\n');
 162                         } else
 163                                 Charput((int)'\n');
 164                         Nxtln++;
 165                         while(Nxtln <= Topmarg) {
 166                                 Charput((int)'\n');
 167                                 Nxtln++;
 168                         }
 169                 }
 170             /*
 171              *  Add a trailing hyphen, if mecessary.
 172              */
 173                 if (vsp == 0 && Eollen > 0 && Eol != NULL) {
 174                         i = strlen((char *)Eol);
 175                         if ((Outlx + i) >= MAXOLL)
 176                                 goto line_too_big;
 177                         (void) strcpy((char *)&Outln[Outlx], (char *)Eol);
 178                         Outlx += i;
 179                         Outll += Eollen;
 180                 }
 181             /*
 182              * Trim trailing spaces from the output line.
 183              */
 184                 while (Outlx > 0) {
 185                         if (Outln[Outlx - 1] != ' ')
 186                                 break;
 187                         if (Padx > 0 && (Outlx - 1) == Padchar[Padx - 1])
 188                                 Padx--;
 189                         Outlx--;
 190                         Outln[Outlx] = '\0';
 191                         Outll--;
 192                 }
 193                 if (Outlx == 0)
 194                         Charput((int)'\n');
 195                 else if (len == DOBREAK && strcmp((char *)word, "center") == 0)
 196                     {
 197                     /*
 198                      * Center the output line.
 199                      */
 200                         i = (LL - Pgoff - Outll) / 2;
 201                         if (i < 0)
 202                                 i = 0;
 203                         for (j = (Pgoff + Ind + Tind + i); j; j--)
 204                                 Charput((int)' ');
 205                         Stringput(Outln);
 206                         Charput((int)'\n');
 207                 } else if (Adj == LEFTADJ
 208                        || (Adj == BOTHADJ && (len < 0 || Padx == 0))) {
 209                     /*
 210                      * No right margin adjustment - disabled, inappropriate
 211                      * (line ended by break) or impossible.
 212                      */
 213                         for (i = 0; i < (Pgoff + Ind + Tind); i++)
 214                                 Charput((int)' ');
 215                         Stringput(Outln);
 216                         Charput((int)'\n');
 217                 } else if (Adj == BOTHADJ) {
 218                     /*
 219                      * Adjust right margin.
 220                      */
 221                         for (i = 0; i < (Pgoff + Ind + Tind); i++)
 222                                 Charput((int)' ');
 223                         i = LL - (Pgoff + Ind + Tind);
 224                         j = i - Outll;
 225                         addto = Padx ? (j / Padx) : 0;
 226                         xsp = j - (Padx * addto);
 227                         for (i = 0, s1 = Outln; i < Padx; i++) {
 228                                 while (*s1 && (s1 - Outln) <= Padchar[i])
 229                                         Charput((int)*s1++);
 230                                 if (*s1 == '\0')
 231                                         break;
 232                                 j = addto;
 233                                 if (Padfrom == PADLEFT) {
 234                                         if (i < xsp)
 235                                                 j++;
 236                                 } else if (i >= (Padx - xsp))
 237                                         j++;
 238                                 while (j-- > 0)
 239                                         Charput((int)' ');
 240                         }
 241                         while (*s1)
 242                                 Charput((int)*s1++);
 243                         Charput((int)'\n');
 244                         Padfrom = (Padfrom == PADLEFT) ? PADRIGHT : PADLEFT;
 245                 }
 246             /*
 247              * End of line housekeeping
 248              */
 249                 Nxtln++;
 250                 Outll = -1;
 251                 Outlx = 0;
 252                 Padx = 0;
 253                 Tind = 0;
 254                 Nospmode = 0;
 255                 if (vsp == 0 && len == DOBREAK
 256                 &&  strcmp((char *)word, "need") == 0) {
 257                     /*
 258                      * Break caused by "need" - satisfy it.
 259                      */
 260                         while (Nxtln < (Pglen + 1 - Botmarg)) {
 261                                 Charput((int)'\n');
 262                                 Nxtln++;
 263                         }
 264                 }
 265                 if (Nxtln >= (Pglen + 1 - Botmarg)) {
 266             /*
 267              * Footer required
 268              */
 269                         for (i = (Botmarg - 1)/2; i > 0; i--) {
 270                                 Charput((int)'\n');
 271                                 Nxtln++;
 272                         }
 273                         i = LenprtHF(Ftl, Thispg, 0) + LenprtHF(Ftc, Thispg, 0)
 274                           + LenprtHF(Ftr, Thispg, 0) + 2;
 275                         j = (LL - i - Pgoff) / 2 + 1;
 276                         n = LL - Pgoff - i - j + 2;
 277                         for (k = 0; k < Pgoff; k++)
 278                                 Charput((int)' ');
 279                         if (Ftl)
 280                                 LenprtHF(Ftl, Thispg, 1);
 281                         while (j-- > 0)
 282                                 Charput((int)' ');
 283                         if (Ftc)
 284                                 LenprtHF(Ftc, Thispg, 1);
 285                         while (n-- > 0)
 286                                 Charput((int)' ');
 287                         if (Ftr)
 288                                 LenprtHF(Ftr, Thispg, 1);
 289                         Charput((int)'\n');
 290                         Nxtln++;
 291                 /*
 292                  * The last blank line on the page is suppressed to assist
 293                  * printers that can't look ahead to the following FF.
 294                  */
 295                         while (Nxtln < Pglen) {
 296                                 Charput((int)'\n');
 297                                 Nxtln++;
 298                         }
 299                         Nxtln = 1;
 300                         Thispg++;
 301                         Nospmode = 1;
 302                         Padfrom = PADRIGHT;
 303                 }
 304             /*
 305              * Initiate any extra vertical spacing.
 306              */
 307                 if (++vsp < Vspace)
 308                         goto print_line;
 309             /*
 310              * Save any input word that might have forced output.
 311              */
 312                 if (len >= 0) {
 313                         (void) strcpy((char *)Outln, (char *)word);
 314                         Outll = len;
 315                         Outlx = wl;
 316                         Padx = 0;
 317                 }
 318         }
 319     /*
 320      * A break causes padding reversal.
 321      */
 322         if (len == DOBREAK)
 323                 Padfrom = PADRIGHT;
 324         if (len >= 0 || strcmp((char *)word, "nohyphen") == 0) {
 325     /*
 326      * Reset continuation and hyphenation.
 327      */
 328                 if (Contlen != 1 || Cont[0] != ' ') {
 329                         Free(&Cont);
 330                         Cont = Newstr((unsigned char *)" ");
 331                         Contlen = 1;
 332                 }
 333                 if (Eollen > 0) {
 334                         Free(&Eol);
 335                         Eollen = 0;
 336                 }
 337                 return;
 338         }
 339     /*
 340      * Now post-process any special commands.
 341      */
 342         if (len == MESSAGE) {
 343                 Error3(len, (char *)word, (char *)sarg, narg, NULL);
 344                 return;
 345         }
 346
 347         switch (*word) {
 348
 349         case 'b':                               /* both */
 350             /*
 351              * Adjust on both margins.
 352              */
 353                 Adj = BOTHADJ;
 354                 return;
 355
 356         case 'c':                               /* center */
 357                 return;
 358
 359         case 'e':                               /* errsto */
 360             /*
 361              * "errsto" comes from awf.
 362              */
 363                 return;
 364
 365         case 'f':                               /* flush and fph */
 366                 if (word[1] == 'l')
 367                         return;
 368                 else if (word[1] == 'p') {
 369             /*
 370              * First page header status
 371              */
 372                         Fph = narg;
 373                         return;
 374                 }
 375                 break;
 376
 377         case 'g':                               /* gap */
 378             /*
 379              * Increase word gap.  (Space is not paddable.)
 380              */
 381                 if (Outll >= 0) {
 382                         if ((Outlx + narg - 1) >= MAXOLL)
 383                                 goto line_too_big;
 384                         for (i = 0; i < (narg - 1); i++) {
 385                                 Outln[Outlx++] = ' ';
 386                                 Outll++;
 387                         }
 388                 }
 389                 return;
 390
 391         case 'h':                               /* hyphen */
 392             /*
 393              * Set discretionary hyphen.
 394              */
 395                 Free(&Cont);
 396                 Contlen = 0;
 397                 Free(&Eol);
 398                 Eol = (sarg != NULL) ? Newstr(sarg) : NULL;
 399                 Eollen = narg;
 400                 return;
 401
 402         case 'i':                               /* indent */
 403             /*
 404              * Set indentation.
 405              */
 406                 Ind = narg;
 407                 return;
 408
 409         case 'l':                               /* left or linelen */
 410                 if (word[1] == 'e') {
 411             /*
 412              * Adjust on left margin.
 413              */
 414                         Adj = LEFTADJ;
 415                         return;
 416                 } else if (word[1] == 'i') {
 417             /*
 418              * Set line length.
 419              */
 420                         LL = narg;
 421                         return;
 422                 }
 423                 break;
 424
 425         case 'n':                               /* need or nospace */
 426                 if (word[1] == 'e')
 427                         return;                 /* need */
 428                 else if (word[1] == 'o') {
 429             /*
 430              * Set no space mode.
 431              */
 432                         Nospmode = 1;
 433                         return;
 434                 }
 435                 break;
 436
 437         case 'p':                               /* pagelen or pageoffset */
 438                 if (strncmp((char *)&word[1], "age", 3) != 0)
 439                         break;
 440                 if (word[4] == 'l') {
 441             /*
 442              * Set page length.
 443              */
 444                         Pglen = narg;
 445                         return;
 446                 } else if (word[4] == 'o') {
 447             /*
 448              * Set page offset.
 449              */
 450                         Pgoff = narg;
 451                         return;
 452                 }
 453                 break;
 454
 455         case 's':                               /* space */
 456                 if (sp) {
 457
 458                 /*
 459                  * Restore values after NOBREAK spacing ("^'sp").
 460                  */
 461                         Outlx = sp_Outlx;
 462                         Outln[0] = sp_Outln;
 463                         Padx = sp_Padx;
 464                         Outll = sp_Outll;
 465                         Tind = sp_Tind;
 466                         return;
 467                 }
 468                 if (Nospmode == 0) {
 469                         if (len == NOBREAK) {
 470
 471                         /*
 472                          * Set up for NOBREAK spacing.
 473                          */
 474                                 sp_Outlx = Outlx;
 475                                 sp_Outln = Outln[0];
 476                                 sp_Padx = Padx;
 477                                 sp_Outll = Outll;
 478                                 sp_Tind = Tind;
 479                                 vsp = Vspace + 1;
 480                                 sp = 1;
 481                         }
 482                 /*
 483                  * Generate a blank line.
 484                  */
 485                         Outlx = 0;
 486                         Outln[0] = '\0';
 487                         Padx = 0;
 488                         Outll = LL - 1;
 489                         if (sp)
 490                                 goto print_line;
 491                 }
 492                 return;
 493
 494         case 't':                               /* tabto, tempindent, or
 495                                                  * toindent */
 496                 if (word[1] == 'a') {
 497             /*
 498              * Move to TAB stop.
 499              */
 500                         if (Outll < 0)
 501                                 Outll = 0;
 502                         if ((n = narg - Outll) > 0) {
 503                                 if ((Outlx + n) >= MAXOLL)
 504                                         goto line_too_big;
 505                                 Outll += n;
 506                                 for (i = n; i > 0; i--)
 507                                         Outln[Outlx++] = ' ';
 508                                 Free(&Cont);
 509                                 Contlen = 0;
 510                                 Padx = 0;
 511                         }
 512                         return;
 513                 } else if (word[1] == 'e') {
 514             /*
 515              * Set temporary indentation.
 516              */
 517                         if (*sarg == '\0' && narg >= 0)
 518                                 Tind = narg - Ind;
 519                         else
 520                                 Tind = ((Ind + narg) >= 0) ? narg : -Ind;
 521                         return;
 522                 } else if (word[1] == 'o')
 523                         return;                         /* toindent */
 524                 break;
 525
 526         case 'u':                                       /* userhyphen */
 527             /*
 528              * Set line length.
 529              */
 530                 Free(&Cont);
 531                 Free(&Eol);
 532                 Contlen = Eollen = narg;
 533                 Cont = (sarg == NULL) ? NULL : Newstr(sarg);
 534                 Eol = (sarg == NULL) ? NULL : Newstr(sarg);
 535                 return;
 536
 537         case 'v':                                       /* vspace */
 538             /*
 539              * Set vertical spacing.
 540              */
 541                 Vspace = (narg == 0) ? 1 : narg;
 542                 return;
 543
 544         case 'y':                                       /* yesspace */
 545             /*
 546              * Set space mode.
 547              */
 548                 Nospmode = 0;
 549                 return;
 550         }                               /* end of switch(*word) */
 551     /*
 552      * Locate header and footer defintions.
 553      */
 554         if (regexec(Pat[14].pat, word)) {
 555                 if (strcmp((char *)word, "LH") == 0) {
 556                     /*
 557                      * Left header
 558                      */
 559                         Free(&Hdl);
 560                         if (sarg != NULL)
 561                                 Hdl = Newstr(sarg);
 562                         return;
 563                 }
 564                 if (strcmp((char *)word, "CH") == 0) {
 565                     /*
 566                      * Center header
 567                      */
 568                         Free(&Hdc);
 569                         if (sarg != NULL)
 570                                 Hdc = Newstr(sarg);
 571                         return;
 572                 }
 573                 if (strcmp((char *)word, "RH") == 0) {
 574                     /*
 575                      * Right header
 576                      */
 577                         Free(&Hdr);
 578                         if (sarg != NULL)
 579                                 Hdr = Newstr(sarg);
 580                         return;
 581                 }
 582                 if (strcmp((char *)word, "LF") == 0) {
 583                     /*
 584                      * Left footer
 585                      */
 586                         Free(&Ftl);
 587                         if (sarg != NULL)
 588                                 Ftl = Newstr(sarg);
 589                         return;
 590                 }
 591                 if (strcmp((char *)word, "CF") == 0) {
 592                     /*
 593                      * Center footer
 594                      */
 595                         Free(&Ftc);
 596                         if (sarg != NULL)
 597                                 Ftc = Newstr(sarg);
 598                         return;
 599                 }
 600                 if (strcmp((char *)word, "RF") == 0) {
 601                     /*
 602                      * Right footer
 603                      */
 604                         Free(&Ftr);
 605                         if (sarg != NULL)
 606                                 Ftr = Newstr(sarg);
 607                         return;
 608                 }
 609         }
 610     /*
 611      * Error on unknown arguments
 612      */
 613         Error3(len, (char *)word, (char *)sarg, narg, "unknown request");
 614 }