usr/src/cmd/troff/n5.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright 2003 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 /*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
  28 /*        All Rights Reserved   */
  29
  30 /*
  31  * University Copyright- Copyright (c) 1982, 1986, 1988
  32  * The Regents of the University of California
  33  * All Rights Reserved
  34  *
  35  * University Acknowledgment- Portions of this document are derived from
  36  * software developed by the University of California, Berkeley, and its
  37  * contributors.
  38  */
  39
  40 #pragma ident   "%Z%%M% %I%     %E% SMI"
  41
  42 #ifdef  EUC
  43 #ifdef  NROFF
  44 #include <stddef.h>
  45 #include <stdlib.h>
  46 #include <widec.h>
  47 #endif  /* NROFF */
  48 #endif  /* EUC */
  49 #include <string.h>
  50 #include "tdef.h"
  51 #include "ext.h"
  52
  53 /*
  54  * troff5.c
  55  *
  56  * misc processing requests
  57  */
  58
  59 int     iflist[NIF];
  60 int     ifx;
  61
  62 int
  63 casead()
  64 {
  65         int     i;
  66
  67         ad = 1;
  68         /*leave admod alone*/
  69         if (skip())
  70                 return (0);
  71         switch (i = cbits(getch())) {
  72         case 'r':       /*right adj, left ragged*/
  73                 admod = 2;
  74                 break;
  75         case 'l':       /*left adj, right ragged*/
  76                 admod = ad = 0; /*same as casena*/
  77                 break;
  78         case 'c':       /*centered adj*/
  79                 admod = 1;
  80                 break;
  81         case 'b':
  82         case 'n':
  83                 admod = 0;
  84                 break;
  85         case '0':
  86         case '2':
  87         case '4':
  88                 ad = 0;
  89         case '1':
  90         case '3':
  91         case '5':
  92                 admod = (i - '0') / 2;
  93         }
  94
  95         return (0);
  96 }
  97
  98
  99 int
 100 casena()
 101 {
 102         ad = 0;
 103
 104         return (0);
 105 }
 106
 107
 108 int
 109 casefi()
 110 {
 111         tbreak();
 112         fi++;
 113         pendnf = 0;
 114         lnsize = LNSIZE;
 115
 116         return (0);
 117 }
 118
 119
 120 int
 121 casenf()
 122 {
 123         tbreak();
 124         fi = 0;
 125
 126         return (0);
 127 }
 128
 129
 130 int
 131 casers()
 132 {
 133         dip->nls = 0;
 134
 135         return (0);
 136 }
 137
 138
 139 int
 140 casens()
 141 {
 142         dip->nls++;
 143
 144         return (0);
 145 }
 146
 147
 148 int
 149 chget(c)
 150 int     c;
 151 {
 152         tchar i;
 153
 154         if (skip() || ismot(i = getch()) || cbits(i) == ' ' || cbits(i) == '\n') {
 155                 ch = i;
 156                 return(c);
 157         } else
 158                 return(i & BYTEMASK);
 159 }
 160
 161
 162 int
 163 casecc()
 164 {
 165         cc = chget('.');
 166
 167         return (0);
 168 }
 169
 170
 171 int
 172 casec2()
 173 {
 174         c2 = chget('\'');
 175
 176         return (0);
 177 }
 178
 179
 180 int
 181 casehc()
 182 {
 183         ohc = chget(OHC);
 184
 185         return (0);
 186 }
 187
 188
 189 int
 190 casetc()
 191 {
 192         tabc = chget(0);
 193
 194         return (0);
 195 }
 196
 197
 198 int
 199 caselc()
 200 {
 201         dotc = chget(0);
 202
 203         return (0);
 204 }
 205
 206
 207 int
 208 casehy()
 209 {
 210         int     i;
 211
 212         hyf = 1;
 213         if (skip())
 214                 return (0);
 215         noscale++;
 216         i = atoi();
 217         noscale = 0;
 218         if (nonumb)
 219                 return (0);
 220         hyf = max(i, 0);
 221
 222         return (0);
 223 }
 224
 225
 226 int
 227 casenh()
 228 {
 229         hyf = 0;
 230
 231         return (0);
 232 }
 233
 234
 235 int
 236 max(aa, bb)
 237 int     aa, bb;
 238 {
 239         if (aa > bb)
 240                 return(aa);
 241         else
 242                 return(bb);
 243 }
 244
 245
 246 int
 247 casece()
 248 {
 249         int     i;
 250
 251         noscale++;
 252         skip();
 253         i = max(atoi(), 0);
 254         if (nonumb)
 255                 i = 1;
 256         tbreak();
 257         ce = i;
 258         noscale = 0;
 259
 260         return (0);
 261 }
 262
 263
 264 int
 265 casein()
 266 {
 267         int     i;
 268
 269         if (skip())
 270                 i = in1;
 271         else
 272                 i = max(hnumb(&in), 0);
 273         tbreak();
 274         in1 = in;
 275         in = i;
 276         if (!nc) {
 277                 un = in;
 278                 setnel();
 279         }
 280
 281         return (0);
 282 }
 283
 284
 285 int
 286 casell()
 287 {
 288         int     i;
 289
 290         if (skip())
 291                 i = ll1;
 292         else
 293                 i = max(hnumb(&ll), INCH / 10);
 294         ll1 = ll;
 295         ll = i;
 296         setnel();
 297
 298         return (0);
 299 }
 300
 301
 302 int
 303 caselt()
 304 {
 305         int     i;
 306
 307         if (skip())
 308                 i = lt1;
 309         else
 310                 i = max(hnumb(&lt), 0);
 311         lt1 = lt;
 312         lt = i;
 313
 314         return (0);
 315 }
 316
 317
 318 int
 319 caseti()
 320 {
 321         int     i;
 322
 323         if (skip())
 324                 return (0);
 325         i = max(hnumb(&in), 0);
 326         tbreak();
 327         un1 = i;
 328         setnel();
 329
 330         return (0);
 331 }
 332
 333
 334 int
 335 casels()
 336 {
 337         int     i;
 338
 339         noscale++;
 340         if (skip())
 341                 i = ls1;
 342         else
 343                 i = max(inumb(&ls), 1);
 344         ls1 = ls;
 345         ls = i;
 346         noscale = 0;
 347
 348         return (0);
 349 }
 350
 351
 352 int
 353 casepo()
 354 {
 355         int     i;
 356
 357         if (skip())
 358                 i = po1;
 359         else
 360                 i = max(hnumb(&po), 0);
 361         po1 = po;
 362         po = i;
 363 #ifndef NROFF
 364         if (!ascii)
 365                 esc += po - po1;
 366 #endif
 367         return (0);
 368 }
 369
 370
 371 int
 372 casepl()
 373 {
 374         int     i;
 375
 376         skip();
 377         if ((i = vnumb(&pl)) == 0)
 378                 pl = 11 * INCH; /*11in*/
 379         else
 380                 pl = i;
 381         if (numtab[NL].val > pl)
 382                 numtab[NL].val = pl;
 383
 384         return (0);
 385 }
 386
 387
 388 int
 389 casewh()
 390 {
 391         int     i, j, k;
 392
 393         lgf++;
 394         skip();
 395         i = vnumb((int *)0);
 396         if (nonumb)
 397                 return (0);
 398         skip();
 399         j = getrq();
 400         if ((k = findn(i)) != NTRAP) {
 401                 mlist[k] = j;
 402                 return (0);
 403         }
 404         for (k = 0; k < NTRAP; k++)
 405                 if (mlist[k] == 0)
 406                         break;
 407         if (k == NTRAP) {
 408                 flusho();
 409                 errprint(gettext("cannot plant trap."));
 410                 return (0);
 411         }
 412         mlist[k] = j;
 413         nlist[k] = i;
 414
 415         return (0);
 416 }
 417
 418
 419 int
 420 casech()
 421 {
 422         int     i, j, k;
 423
 424         lgf++;
 425         skip();
 426         if (!(j = getrq()))
 427                 return (0);
 428         else
 429                 for (k = 0; k < NTRAP; k++)
 430                         if (mlist[k] == j)
 431                                 break;
 432         if (k == NTRAP)
 433                 return (0);
 434         skip();
 435         i = vnumb((int *)0);
 436         if (nonumb)
 437                 mlist[k] = 0;
 438         nlist[k] = i;
 439
 440         return (0);
 441 }
 442
 443
 444 int
 445 findn(i)
 446 int     i;
 447 {
 448         int     k;
 449
 450         for (k = 0; k < NTRAP; k++)
 451                 if ((nlist[k] == i) && (mlist[k] != 0))
 452                         break;
 453         return(k);
 454 }
 455
 456
 457 int
 458 casepn()
 459 {
 460         int     i;
 461
 462         skip();
 463         noscale++;
 464         i = max(inumb(&numtab[PN].val), 0);
 465         noscale = 0;
 466         if (!nonumb) {
 467                 npn = i;
 468                 npnflg++;
 469         }
 470
 471         return (0);
 472 }
 473
 474
 475 int
 476 casebp()
 477 {
 478         int     i;
 479         struct s *savframe;
 480
 481         if (dip != d)
 482                 return (0);
 483         savframe = frame;
 484         skip();
 485         if ((i = inumb(&numtab[PN].val)) < 0)
 486                 i = 0;
 487         tbreak();
 488         if (!nonumb) {
 489                 npn = i;
 490                 npnflg++;
 491         } else if (dip->nls)
 492                 return (0);
 493         eject(savframe);
 494
 495         return (0);
 496 }
 497
 498
 499 int
 500 casetm(ab)
 501         int ab;
 502 {
 503         int     i;
 504         char    tmbuf[NTM];
 505
 506         lgf++;
 507         copyf++;
 508         if (skip() && ab)
 509                 errprint(gettext("User Abort"));
 510         for (i = 0; i < NTM - 2; )
 511                 if ((tmbuf[i++] = getch()) == '\n')
 512                         break;
 513         if (i == NTM - 2)
 514                 tmbuf[i++] = '\n';
 515         tmbuf[i] = 0;
 516         if (ab) /* truncate output */
 517                 obufp = obuf;   /* should be a function in n2.c */
 518         flusho();
 519         fdprintf(stderr, "%s", tmbuf);
 520         copyf--;
 521         lgf--;
 522
 523         return (0);
 524 }
 525
 526
 527 int
 528 casesp(a)
 529 int     a;
 530 {
 531         int     i, j, savlss;
 532
 533         tbreak();
 534         if (dip->nls || trap)
 535                 return (0);
 536         i = findt1();
 537         if (!a) {
 538                 skip();
 539                 j = vnumb((int *)0);
 540                 if (nonumb)
 541                         j = lss;
 542         } else
 543                 j = a;
 544         if (j == 0)
 545                 return (0);
 546         if (i < j)
 547                 j = i;
 548         savlss = lss;
 549         if (dip != d)
 550                 i = dip->dnl;
 551         else
 552                 i = numtab[NL].val;
 553         if ((i + j) < 0)
 554                 j = -i;
 555         lss = j;
 556         newline(0);
 557         lss = savlss;
 558
 559         return (0);
 560 }
 561
 562
 563 int
 564 casert()
 565 {
 566         int     a, *p;
 567
 568         skip();
 569         if (dip != d)
 570                 p = &dip->dnl;
 571         else
 572                 p = &numtab[NL].val;
 573         a = vnumb(p);
 574         if (nonumb)
 575                 a = dip->mkline;
 576         if ((a < 0) || (a >= *p))
 577                 return (0);
 578         nb++;
 579         casesp(a - *p);
 580
 581         return (0);
 582 }
 583
 584
 585 int
 586 caseem()
 587 {
 588         lgf++;
 589         skip();
 590         em = getrq();
 591
 592         return (0);
 593 }
 594
 595
 596 int
 597 casefl()
 598 {
 599         tbreak();
 600         flusho();
 601
 602         return (0);
 603 }
 604
 605
 606 int
 607 caseev()
 608 {
 609         int     nxev;
 610
 611         if (skip()) {
 612 e0:
 613                 if (evi == 0)
 614                         return (0);
 615                 nxev =  evlist[--evi];
 616                 goto e1;
 617         }
 618         noscale++;
 619         nxev = atoi();
 620         noscale = 0;
 621         if (nonumb)
 622                 goto e0;
 623         flushi();
 624         if ((nxev >= NEV) || (nxev < 0) || (evi >= EVLSZ)) {
 625                 flusho();
 626                 errprint(gettext("cannot do ev."));
 627                 if (error)
 628                         done2(040);
 629                 else
 630                         edone(040);
 631                 return (0);
 632         }
 633         evlist[evi++] = ev;
 634 e1:
 635         if (ev == nxev)
 636                 return (0);
 637 #ifdef INCORE
 638         {
 639                 extern tchar corebuf[];
 640                 *(struct env *)&corebuf[ev * sizeof(env)/sizeof(tchar)] = env;
 641                 env = *(struct env *)&corebuf[nxev * sizeof(env)/sizeof(tchar)];
 642         }
 643 #else
 644         lseek(ibf, ev * (long)sizeof(env), 0);
 645         write(ibf, (char *) & env, sizeof(env));
 646         lseek(ibf, nxev * (long)sizeof(env), 0);
 647         read(ibf, (char *) & env, sizeof(env));
 648 #endif
 649         ev = nxev;
 650
 651         return (0);
 652 }
 653
 654 int
 655 caseel()
 656 {
 657         if (--ifx < 0) {
 658                 ifx = 0;
 659                 iflist[0] = 0;
 660         }
 661         caseif(2);
 662
 663         return (0);
 664 }
 665
 666
 667 int
 668 caseie()
 669 {
 670         if (ifx >= NIF) {
 671                 errprint(gettext("if-else overflow."));
 672                 ifx = 0;
 673                 edone(040);
 674         }
 675         caseif(1);
 676         ifx++;
 677
 678         return (0);
 679 }
 680
 681
 682 int
 683 caseif(x)
 684 int     x;
 685 {
 686         extern int falsef;
 687         int     notflag, true;
 688         tchar i;
 689
 690         if (x == 2) {
 691                 notflag = 0;
 692                 true = iflist[ifx];
 693                 goto i1;
 694         }
 695         true = 0;
 696         skip();
 697         if ((cbits(i = getch())) == '!') {
 698                 notflag = 1;
 699         } else {
 700                 notflag = 0;
 701                 ch = i;
 702         }
 703         i = atoi();
 704         if (!nonumb) {
 705                 if (i > 0)
 706                         true++;
 707                 goto i1;
 708         }
 709         i = getch();
 710         switch (cbits(i)) {
 711         case 'e':
 712                 if (!(numtab[PN].val & 01))
 713                         true++;
 714                 break;
 715         case 'o':
 716                 if (numtab[PN].val & 01)
 717                         true++;
 718                 break;
 719 #ifdef NROFF
 720         case 'n':
 721                 true++;
 722         case 't':
 723 #endif
 724 #ifndef NROFF
 725         case 't':
 726                 true++;
 727         case 'n':
 728 #endif
 729         case ' ':
 730                 break;
 731         default:
 732                 true = cmpstr(i);
 733         }
 734 i1:
 735         true ^= notflag;
 736         if (x == 1)
 737                 iflist[ifx] = !true;
 738         if (true) {
 739 i2:
 740                 while ((cbits(i = getch())) == ' ')
 741                         ;
 742                 if (cbits(i) == LEFT)
 743                         goto i2;
 744                 ch = i;
 745                 nflush++;
 746         } else {
 747                 copyf++;
 748                 falsef++;
 749                 eatblk(0);
 750                 copyf--;
 751                 falsef--;
 752         }
 753
 754         return (0);
 755 }
 756
 757 int
 758 eatblk(inblk)
 759 int inblk;
 760 {       int cnt, i;
 761
 762         cnt = 0;
 763         do {
 764                 if (ch) {
 765                         i = cbits(ch);
 766                         ch = 0;
 767                 } else
 768                         i = cbits(getch0());
 769                 if (i == ESC)
 770                         cnt++;
 771                 else {
 772                         if (cnt == 1)
 773                                 switch (i) {
 774                                 case '{':  i = LEFT; break;
 775                                 case '}':  i = RIGHT; break;
 776                                 case '\n': i = 'x'; break;
 777                                 }
 778                         cnt = 0;
 779                 }
 780                 if (i == LEFT) eatblk(1);
 781         } while ((!inblk && (i != '\n')) || (inblk && (i != RIGHT)));
 782         if (i == '\n')
 783                 nlflg++;
 784
 785         return (0);
 786 }
 787
 788
 789 int
 790 cmpstr(c)
 791 tchar c;
 792 {
 793         int     j, delim;
 794         tchar i;
 795         int     val;
 796         int savapts, savapts1, savfont, savfont1, savpts, savpts1;
 797         tchar string[1280];
 798         tchar *sp;
 799
 800         if (ismot(c))
 801                 return(0);
 802         delim = cbits(c);
 803         savapts = apts;
 804         savapts1 = apts1;
 805         savfont = font;
 806         savfont1 = font1;
 807         savpts = pts;
 808         savpts1 = pts1;
 809         sp = string;
 810         while ((j = cbits(i = getch()))!=delim && j!='\n' && sp<&string[1280-1])
 811                 *sp++ = i;
 812         if (sp >= string + 1280) {
 813                 errprint(gettext("too-long string compare."));
 814                 edone(0100);
 815         }
 816         if (nlflg) {
 817                 val = sp==string;
 818                 goto rtn;
 819         }
 820         *sp++ = 0;
 821         apts = savapts;
 822         apts1 = savapts1;
 823         font = savfont;
 824         font1 = savfont1;
 825         pts = savpts;
 826         pts1 = savpts1;
 827         mchbits();
 828         val = 1;
 829         sp = string;
 830         while ((j = cbits(i = getch())) != delim && j != '\n') {
 831                 if (*sp != i) {
 832                         eat(delim);
 833                         val = 0;
 834                         goto rtn;
 835                 }
 836                 sp++;
 837         }
 838         if (*sp)
 839                 val = 0;
 840 rtn:
 841         apts = savapts;
 842         apts1 = savapts1;
 843         font = savfont;
 844         font1 = savfont1;
 845         pts = savpts;
 846         pts1 = savpts1;
 847         mchbits();
 848         return(val);
 849 }
 850
 851
 852 int
 853 caserd()
 854 {
 855
 856         lgf++;
 857         skip();
 858         getname();
 859         if (!iflg) {
 860                 if (quiet) {
 861 #ifdef  NROFF
 862                         echo_off();
 863                         flusho();
 864 #endif  /* NROFF */
 865                         fdprintf(stderr, "\007"); /*bell*/
 866                 } else {
 867                         if (nextf[0]) {
 868                                 fdprintf(stderr, "%s:", nextf);
 869                         } else {
 870                                 fdprintf(stderr, "\007"); /*bell*/
 871                         }
 872                 }
 873         }
 874         collect();
 875         tty++;
 876         pushi(NBLIST*BLK, PAIR('r','d'));
 877
 878         return (0);
 879 }
 880
 881
 882 int
 883 rdtty()
 884 {
 885         char    onechar;
 886 #ifdef EUC
 887 #ifdef NROFF
 888         int     i, n, col_index;
 889 #endif /* NROFF */
 890 #endif /* EUC */
 891
 892         onechar = 0;
 893         if (read(0, &onechar, 1) == 1) {
 894                 if (onechar == '\n')
 895                         tty++;
 896                 else
 897                         tty = 1;
 898 #ifndef EUC
 899                 if (tty != 3)
 900                         return(onechar);
 901 #else
 902 #ifndef NROFF
 903                 if (tty != 3)
 904                         return(onechar);
 905 #else
 906                 if (tty != 3) {
 907                         if (!multi_locale)
 908                                 return(onechar);
 909                         i = onechar & 0377;
 910                         *mbbuf1p++ = i;
 911                         *mbbuf1p = 0;
 912                         if ((n = mbtowc(&twc, mbbuf1, MB_CUR_MAX)) <= 0) {
 913                                 if (mbbuf1p >= mbbuf1 + MB_CUR_MAX) {
 914                                         i &= ~(MBMASK | CSMASK);
 915                                         twc = 0;
 916                                         mbbuf1p = mbbuf1;
 917                                         *mbbuf1p = 0;
 918                                 } else {
 919                                         i |= (MIDDLEOFMB);
 920                                 }
 921                         } else {
 922                                 if (n > 1)
 923                                         i |= (LASTOFMB);
 924                                 else
 925                                         i |= (BYTE_CHR);
 926                                 if (isascii(twc)) {
 927                                         col_index = 0;
 928                                 } else {
 929                                         if ((col_index = wcwidth(twc)) < 0)
 930                                                 col_index = 0;
 931                                 }
 932                                 setcsbits(i, col_index);
 933                                 twc = 0;
 934                                 mbbuf1p = mbbuf1;
 935                         }
 936                         return(i);
 937                 }
 938 #endif /* NROFF */
 939 #endif /* EUC */
 940         }
 941         popi();
 942         tty = 0;
 943 #ifdef  NROFF
 944         if (quiet)
 945                 echo_on();
 946 #endif  /* NROFF */
 947         return(0);
 948 }
 949
 950
 951 int
 952 caseec()
 953 {
 954         eschar = chget('\\');
 955
 956         return (0);
 957 }
 958
 959
 960 int
 961 caseeo()
 962 {
 963         eschar = 0;
 964
 965         return (0);
 966 }
 967
 968
 969 int
 970 caseta()
 971 {
 972         int     i;
 973
 974         tabtab[0] = nonumb = 0;
 975         for (i = 0; ((i < (NTAB - 1)) && !nonumb); i++) {
 976                 if (skip())
 977                         break;
 978                 tabtab[i] = max(hnumb(&tabtab[max(i-1,0)]), 0) & TABMASK;
 979                 if (!nonumb)
 980                         switch (cbits(ch)) {
 981                         case 'C':
 982                                 tabtab[i] |= CTAB;
 983                                 break;
 984                         case 'R':
 985                                 tabtab[i] |= RTAB;
 986                                 break;
 987                         default: /*includes L*/
 988                                 break;
 989                         }
 990                 nonumb = ch = 0;
 991         }
 992         tabtab[i] = 0;
 993
 994         return (0);
 995 }
 996
 997
 998 int
 999 casene()
1000 {
1001         int     i, j;
1002
1003         skip();
1004         i = vnumb((int *)0);
1005         if (nonumb)
1006                 i = lss;
1007         if (i > (j = findt1())) {
1008                 i = lss;
1009                 lss = j;
1010                 dip->nls = 0;
1011                 newline(0);
1012                 lss = i;
1013         }
1014
1015         return (0);
1016 }
1017
1018
1019 int
1020 casetr()
1021 {
1022         int     i, j;
1023         tchar k;
1024
1025         lgf++;
1026         skip();
1027         while ((i = cbits(k=getch())) != '\n') {
1028                 if (ismot(k))
1029                         return (0);
1030                 if (ismot(k = getch()))
1031                         return (0);
1032                 if ((j = cbits(k)) == '\n')
1033                         j = ' ';
1034                 trtab[i] = j;
1035         }
1036
1037         return (0);
1038 }
1039
1040
1041 int
1042 casecu()
1043 {
1044         cu++;
1045         caseul();
1046
1047         return (0);
1048 }
1049
1050
1051 int
1052 caseul()
1053 {
1054         int     i;
1055
1056         noscale++;
1057         if (skip())
1058                 i = 1;
1059         else
1060                 i = atoi();
1061         if (ul && (i == 0)) {
1062                 font = sfont;
1063                 ul = cu = 0;
1064         }
1065         if (i) {
1066                 if (!ul) {
1067                         sfont = font;
1068                         font = ulfont;
1069                 }
1070                 ul = i;
1071         }
1072         noscale = 0;
1073         mchbits();
1074
1075         return (0);
1076 }
1077
1078
1079 int
1080 caseuf()
1081 {
1082         int     i, j;
1083
1084         if (skip() || !(i = getrq()) || i == 'S' ||  (j = findft(i))  == -1)
1085                 ulfont = ULFONT; /*default underline position*/
1086         else
1087                 ulfont = j;
1088 #ifdef NROFF
1089         if (ulfont == FT)
1090                 ulfont = ULFONT;
1091 #endif
1092         return (0);
1093 }
1094
1095
1096 int
1097 caseit()
1098 {
1099         int     i;
1100
1101         lgf++;
1102         it = itmac = 0;
1103         noscale++;
1104         skip();
1105         i = atoi();
1106         skip();
1107         if (!nonumb && (itmac = getrq()))
1108                 it = i;
1109         noscale = 0;
1110
1111         return (0);
1112 }
1113
1114
1115 int
1116 casemc()
1117 {
1118         int     i;
1119
1120         if (icf > 1)
1121                 ic = 0;
1122         icf = 0;
1123         if (skip())
1124                 return (0);
1125         ic = getch();
1126         icf = 1;
1127         skip();
1128         i = max(hnumb((int *)0), 0);
1129         if (!nonumb)
1130                 ics = i;
1131
1132         return (0);
1133 }
1134
1135
1136 int
1137 casemk()
1138 {
1139         int     i, j;
1140
1141         if (dip != d)
1142                 j = dip->dnl;
1143         else
1144                 j = numtab[NL].val;
1145         if (skip()) {
1146                 dip->mkline = j;
1147                 return (0);
1148         }
1149         if ((i = getrq()) == 0)
1150                 return (0);
1151         numtab[findr(i)].val = j;
1152
1153         return (0);
1154 }
1155
1156
1157 int
1158 casesv()
1159 {
1160         int     i;
1161
1162         skip();
1163         if ((i = vnumb((int *)0)) < 0)
1164                 return (0);
1165         if (nonumb)
1166                 i = 1;
1167         sv += i;
1168         caseos();
1169
1170         return (0);
1171 }
1172
1173
1174 int
1175 caseos()
1176 {
1177         int     savlss;
1178
1179         if (sv <= findt1()) {
1180                 savlss = lss;
1181                 lss = sv;
1182                 newline(0);
1183                 lss = savlss;
1184                 sv = 0;
1185         }
1186
1187         return (0);
1188 }
1189
1190
1191 int
1192 casenm()
1193 {
1194         int     i;
1195
1196         lnmod = nn = 0;
1197         if (skip())
1198                 return (0);
1199         lnmod++;
1200         noscale++;
1201         i = inumb(&numtab[LN].val);
1202         if (!nonumb)
1203                 numtab[LN].val = max(i, 0);
1204         getnm(&ndf, 1);
1205         getnm(&nms, 0);
1206         getnm(&ni, 0);
1207         noscale = 0;
1208         nmbits = chbits;
1209
1210         return (0);
1211 }
1212
1213
1214 int
1215 getnm(p, min)
1216 int     *p, min;
1217 {
1218         int     i;
1219
1220         eat(' ');
1221         if (skip())
1222                 return (0);
1223         i = atoi();
1224         if (nonumb)
1225                 return (0);
1226         *p = max(i, min);
1227
1228         return (0);
1229 }
1230
1231
1232 int
1233 casenn()
1234 {
1235         noscale++;
1236         skip();
1237         nn = max(atoi(), 1);
1238         noscale = 0;
1239
1240         return (0);
1241 }
1242
1243
1244 int
1245 caseab()
1246 {
1247         casetm(1);
1248         done3(0);
1249
1250         return (0);
1251 }
1252
1253
1254 #ifdef  NROFF
1255 /*
1256  * The following routines are concerned with setting terminal options.
1257  *      The manner of doing this differs between research/Berkeley systems
1258  *      and UNIX System V systems (i.e. DOCUMENTER'S WORKBENCH)
1259  *      The distinction is controlled by the #define'd variable USG,
1260  *      which must be set by System V users.
1261  */
1262
1263
1264 #ifdef  USG
1265 #include <termio.h>
1266 #define ECHO_USG (ECHO | ECHOE | ECHOK | ECHONL)
1267 struct termio   ttys;
1268 #else
1269 #include <sgtty.h>
1270 struct  sgttyb  ttys[2];
1271 #endif  /* USG */
1272
1273 int     ttysave[2] = {-1, -1};
1274
1275 int
1276 save_tty()                      /*save any tty settings that may be changed*/
1277 {
1278
1279 #ifdef  USG
1280         if (ioctl(0, TCGETA, &ttys) >= 0)
1281                 ttysave[0] = ttys.c_lflag;
1282 #else
1283         if (gtty(0, &ttys[0]) >= 0)
1284                 ttysave[0] = ttys[0].sg_flags;
1285         if (gtty(1, &ttys[1]) >= 0)
1286                 ttysave[1] = ttys[1].sg_flags;
1287 #endif  /* USG */
1288
1289         return (0);
1290 }
1291
1292
1293 int
1294 restore_tty()                   /*restore tty settings from beginning*/
1295 {
1296
1297         if (ttysave[0] != -1) {
1298 #ifdef  USG
1299                 ttys.c_lflag = ttysave[0];
1300                 ioctl(0, TCSETAW, &ttys);
1301 #else
1302                 ttys[0].sg_flags = ttysave[0];
1303                 stty(0, &ttys[0]);
1304         }
1305         if (ttysave[1] != -1) {
1306                 ttys[1].sg_flags = ttysave[1];
1307                 stty(1, &ttys[1]);
1308 #endif  /* USG */
1309         }
1310
1311         return (0);
1312 }
1313
1314
1315 int
1316 set_tty()                       /*this replaces the use of bset and breset*/
1317 {
1318
1319 #ifndef USG                     /*for research/BSD only, reset CRMOD*/
1320         if (ttysave[1] == -1)
1321                 save_tty();
1322         if (ttysave[1] != -1) {
1323                 ttys[1].sg_flags &= ~CRMOD;
1324                 stty(1, &ttys[1]);
1325         }
1326 #endif  /* USG */
1327
1328         return (0);
1329 }
1330
1331
1332 int
1333 echo_off()                      /*turn off ECHO for .rd in "-q" mode*/
1334 {
1335         if (ttysave[0] == -1)
1336                 return (0);
1337
1338 #ifdef  USG
1339         ttys.c_lflag &= ~ECHO_USG;
1340         ioctl(0, TCSETAW, &ttys);
1341 #else
1342         ttys[0].sg_flags &= ~ECHO;
1343         stty(0, &ttys[0]);
1344 #endif  /* USG */
1345
1346         return (0);
1347
1348 }
1349
1350
1351 int
1352 echo_on()                       /*restore ECHO after .rd in "-q" mode*/
1353 {
1354         if (ttysave[0] == -1)
1355                 return (0);
1356
1357 #ifdef  USG
1358         ttys.c_lflag |= ECHO_USG;
1359         ioctl(0, TCSETAW, &ttys);
1360 #else
1361         ttys[0].sg_flags |= ECHO;
1362         stty(0, &ttys[0]);
1363 #endif  /* USG */
1364
1365         return (0);
1366 }
1367 #endif  /* NROFF */