Home | History | Annotate | Line # | Download | only in ul
ul.c revision 1.4
      1  1.4  jtc /*	$NetBSD: ul.c,v 1.4 1995/11/28 20:58:38 jtc Exp $	*/
      2  1.3  jtc 
      3  1.1  cgd /*
      4  1.3  jtc  * Copyright (c) 1980, 1993
      5  1.3  jtc  *	The Regents of the University of California.  All rights reserved.
      6  1.1  cgd  *
      7  1.1  cgd  * Redistribution and use in source and binary forms, with or without
      8  1.1  cgd  * modification, are permitted provided that the following conditions
      9  1.1  cgd  * are met:
     10  1.1  cgd  * 1. Redistributions of source code must retain the above copyright
     11  1.1  cgd  *    notice, this list of conditions and the following disclaimer.
     12  1.1  cgd  * 2. Redistributions in binary form must reproduce the above copyright
     13  1.1  cgd  *    notice, this list of conditions and the following disclaimer in the
     14  1.1  cgd  *    documentation and/or other materials provided with the distribution.
     15  1.1  cgd  * 3. All advertising materials mentioning features or use of this software
     16  1.1  cgd  *    must display the following acknowledgement:
     17  1.1  cgd  *	This product includes software developed by the University of
     18  1.1  cgd  *	California, Berkeley and its contributors.
     19  1.1  cgd  * 4. Neither the name of the University nor the names of its contributors
     20  1.1  cgd  *    may be used to endorse or promote products derived from this software
     21  1.1  cgd  *    without specific prior written permission.
     22  1.1  cgd  *
     23  1.1  cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24  1.1  cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25  1.1  cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26  1.1  cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27  1.1  cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28  1.1  cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29  1.1  cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30  1.1  cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31  1.1  cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32  1.1  cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33  1.1  cgd  * SUCH DAMAGE.
     34  1.1  cgd  */
     35  1.1  cgd 
     36  1.1  cgd #ifndef lint
     37  1.3  jtc static char copyright[] =
     38  1.3  jtc "@(#) Copyright (c) 1980, 1993\n\
     39  1.3  jtc 	The Regents of the University of California.  All rights reserved.\n";
     40  1.1  cgd #endif /* not lint */
     41  1.1  cgd 
     42  1.1  cgd #ifndef lint
     43  1.3  jtc #if 0
     44  1.3  jtc static char sccsid[] = "@(#)ul.c	8.1 (Berkeley) 6/6/93";
     45  1.3  jtc #endif
     46  1.4  jtc static char rcsid[] = "$NetBSD: ul.c,v 1.4 1995/11/28 20:58:38 jtc Exp $";
     47  1.1  cgd #endif /* not lint */
     48  1.1  cgd 
     49  1.1  cgd #include <stdio.h>
     50  1.4  jtc #include <stdlib.h>
     51  1.4  jtc #include <string.h>
     52  1.1  cgd 
     53  1.1  cgd #define	IESC	'\033'
     54  1.1  cgd #define	SO	'\016'
     55  1.1  cgd #define	SI	'\017'
     56  1.1  cgd #define	HFWD	'9'
     57  1.1  cgd #define	HREV	'8'
     58  1.1  cgd #define	FREV	'7'
     59  1.1  cgd #define	MAXBUF	512
     60  1.1  cgd 
     61  1.1  cgd #define	NORMAL	000
     62  1.1  cgd #define	ALTSET	001	/* Reverse */
     63  1.1  cgd #define	SUPERSC	002	/* Dim */
     64  1.1  cgd #define	SUBSC	004	/* Dim | Ul */
     65  1.1  cgd #define	UNDERL	010	/* Ul */
     66  1.1  cgd #define	BOLD	020	/* Bold */
     67  1.1  cgd 
     68  1.1  cgd int	must_use_uc, must_overstrike;
     69  1.1  cgd char	*CURS_UP, *CURS_RIGHT, *CURS_LEFT,
     70  1.1  cgd 	*ENTER_STANDOUT, *EXIT_STANDOUT, *ENTER_UNDERLINE, *EXIT_UNDERLINE,
     71  1.1  cgd 	*ENTER_DIM, *ENTER_BOLD, *ENTER_REVERSE, *UNDER_CHAR, *EXIT_ATTRIBUTES;
     72  1.1  cgd 
     73  1.1  cgd struct	CHAR	{
     74  1.1  cgd 	char	c_mode;
     75  1.1  cgd 	char	c_char;
     76  1.1  cgd } ;
     77  1.1  cgd 
     78  1.1  cgd struct	CHAR	obuf[MAXBUF];
     79  1.1  cgd int	col, maxcol;
     80  1.1  cgd int	mode;
     81  1.1  cgd int	halfpos;
     82  1.1  cgd int	upln;
     83  1.1  cgd int	iflag;
     84  1.1  cgd 
     85  1.1  cgd int	outchar();
     86  1.1  cgd #define	PRINT(s)	if (s == NULL) /* void */; else tputs(s, 1, outchar)
     87  1.1  cgd 
     88  1.1  cgd main(argc, argv)
     89  1.1  cgd 	int argc;
     90  1.1  cgd 	char **argv;
     91  1.1  cgd {
     92  1.1  cgd 	extern int optind;
     93  1.1  cgd 	extern char *optarg;
     94  1.1  cgd 	int c;
     95  1.1  cgd 	char *termtype;
     96  1.1  cgd 	FILE *f;
     97  1.1  cgd 	char termcap[1024];
     98  1.1  cgd 
     99  1.1  cgd 	termtype = getenv("TERM");
    100  1.1  cgd 	if (termtype == NULL || (argv[0][0] == 'c' && !isatty(1)))
    101  1.1  cgd 		termtype = "lpr";
    102  1.1  cgd 	while ((c=getopt(argc, argv, "it:T:")) != EOF)
    103  1.1  cgd 		switch(c) {
    104  1.1  cgd 
    105  1.1  cgd 		case 't':
    106  1.1  cgd 		case 'T': /* for nroff compatibility */
    107  1.1  cgd 				termtype = optarg;
    108  1.1  cgd 			break;
    109  1.1  cgd 		case 'i':
    110  1.1  cgd 			iflag = 1;
    111  1.1  cgd 			break;
    112  1.1  cgd 
    113  1.1  cgd 		default:
    114  1.1  cgd 			fprintf(stderr,
    115  1.1  cgd 				"usage: %s [ -i ] [ -tTerm ] file...\n",
    116  1.1  cgd 				argv[0]);
    117  1.1  cgd 			exit(1);
    118  1.1  cgd 		}
    119  1.1  cgd 
    120  1.1  cgd 	switch(tgetent(termcap, termtype)) {
    121  1.1  cgd 
    122  1.1  cgd 	case 1:
    123  1.1  cgd 		break;
    124  1.1  cgd 
    125  1.1  cgd 	default:
    126  1.1  cgd 		fprintf(stderr,"trouble reading termcap");
    127  1.1  cgd 		/* fall through to ... */
    128  1.1  cgd 
    129  1.1  cgd 	case 0:
    130  1.1  cgd 		/* No such terminal type - assume dumb */
    131  1.1  cgd 		(void)strcpy(termcap, "dumb:os:col#80:cr=^M:sf=^J:am:");
    132  1.1  cgd 		break;
    133  1.1  cgd 	}
    134  1.1  cgd 	initcap();
    135  1.1  cgd 	if (    (tgetflag("os") && ENTER_BOLD==NULL ) ||
    136  1.1  cgd 		(tgetflag("ul") && ENTER_UNDERLINE==NULL && UNDER_CHAR==NULL))
    137  1.1  cgd 			must_overstrike = 1;
    138  1.1  cgd 	initbuf();
    139  1.1  cgd 	if (optind == argc)
    140  1.1  cgd 		filter(stdin);
    141  1.1  cgd 	else for (; optind<argc; optind++) {
    142  1.1  cgd 		f = fopen(argv[optind],"r");
    143  1.1  cgd 		if (f == NULL) {
    144  1.1  cgd 			perror(argv[optind]);
    145  1.1  cgd 			exit(1);
    146  1.4  jtc 		}
    147  1.4  jtc 
    148  1.4  jtc 		filter(f);
    149  1.4  jtc 		fclose(f);
    150  1.1  cgd 	}
    151  1.1  cgd 	exit(0);
    152  1.1  cgd }
    153  1.1  cgd 
    154  1.1  cgd filter(f)
    155  1.1  cgd 	FILE *f;
    156  1.1  cgd {
    157  1.1  cgd 	register c;
    158  1.1  cgd 
    159  1.1  cgd 	while ((c = getc(f)) != EOF) switch(c) {
    160  1.1  cgd 
    161  1.1  cgd 	case '\b':
    162  1.1  cgd 		if (col > 0)
    163  1.1  cgd 			col--;
    164  1.1  cgd 		continue;
    165  1.1  cgd 
    166  1.1  cgd 	case '\t':
    167  1.1  cgd 		col = (col+8) & ~07;
    168  1.1  cgd 		if (col > maxcol)
    169  1.1  cgd 			maxcol = col;
    170  1.1  cgd 		continue;
    171  1.1  cgd 
    172  1.1  cgd 	case '\r':
    173  1.1  cgd 		col = 0;
    174  1.1  cgd 		continue;
    175  1.1  cgd 
    176  1.1  cgd 	case SO:
    177  1.1  cgd 		mode |= ALTSET;
    178  1.1  cgd 		continue;
    179  1.1  cgd 
    180  1.1  cgd 	case SI:
    181  1.1  cgd 		mode &= ~ALTSET;
    182  1.1  cgd 		continue;
    183  1.1  cgd 
    184  1.1  cgd 	case IESC:
    185  1.1  cgd 		switch (c = getc(f)) {
    186  1.1  cgd 
    187  1.1  cgd 		case HREV:
    188  1.1  cgd 			if (halfpos == 0) {
    189  1.1  cgd 				mode |= SUPERSC;
    190  1.1  cgd 				halfpos--;
    191  1.1  cgd 			} else if (halfpos > 0) {
    192  1.1  cgd 				mode &= ~SUBSC;
    193  1.1  cgd 				halfpos--;
    194  1.1  cgd 			} else {
    195  1.1  cgd 				halfpos = 0;
    196  1.1  cgd 				reverse();
    197  1.1  cgd 			}
    198  1.1  cgd 			continue;
    199  1.1  cgd 
    200  1.1  cgd 		case HFWD:
    201  1.1  cgd 			if (halfpos == 0) {
    202  1.1  cgd 				mode |= SUBSC;
    203  1.1  cgd 				halfpos++;
    204  1.1  cgd 			} else if (halfpos < 0) {
    205  1.1  cgd 				mode &= ~SUPERSC;
    206  1.1  cgd 				halfpos++;
    207  1.1  cgd 			} else {
    208  1.1  cgd 				halfpos = 0;
    209  1.1  cgd 				fwd();
    210  1.1  cgd 			}
    211  1.1  cgd 			continue;
    212  1.1  cgd 
    213  1.1  cgd 		case FREV:
    214  1.1  cgd 			reverse();
    215  1.1  cgd 			continue;
    216  1.1  cgd 
    217  1.1  cgd 		default:
    218  1.1  cgd 			fprintf(stderr,
    219  1.1  cgd 				"Unknown escape sequence in input: %o, %o\n",
    220  1.1  cgd 				IESC, c);
    221  1.1  cgd 			exit(1);
    222  1.1  cgd 		}
    223  1.1  cgd 		continue;
    224  1.1  cgd 
    225  1.1  cgd 	case '_':
    226  1.1  cgd 		if (obuf[col].c_char)
    227  1.1  cgd 			obuf[col].c_mode |= UNDERL | mode;
    228  1.1  cgd 		else
    229  1.1  cgd 			obuf[col].c_char = '_';
    230  1.1  cgd 	case ' ':
    231  1.1  cgd 		col++;
    232  1.1  cgd 		if (col > maxcol)
    233  1.1  cgd 			maxcol = col;
    234  1.1  cgd 		continue;
    235  1.1  cgd 
    236  1.1  cgd 	case '\n':
    237  1.1  cgd 		flushln();
    238  1.1  cgd 		continue;
    239  1.1  cgd 
    240  1.1  cgd 	case '\f':
    241  1.1  cgd 		flushln();
    242  1.1  cgd 		putchar('\f');
    243  1.1  cgd 		continue;
    244  1.1  cgd 
    245  1.1  cgd 	default:
    246  1.1  cgd 		if (c < ' ')	/* non printing */
    247  1.1  cgd 			continue;
    248  1.1  cgd 		if (obuf[col].c_char == '\0') {
    249  1.1  cgd 			obuf[col].c_char = c;
    250  1.1  cgd 			obuf[col].c_mode = mode;
    251  1.1  cgd 		} else if (obuf[col].c_char == '_') {
    252  1.1  cgd 			obuf[col].c_char = c;
    253  1.1  cgd 			obuf[col].c_mode |= UNDERL|mode;
    254  1.1  cgd 		} else if (obuf[col].c_char == c)
    255  1.1  cgd 			obuf[col].c_mode |= BOLD|mode;
    256  1.1  cgd 		else
    257  1.1  cgd 			obuf[col].c_mode = mode;
    258  1.1  cgd 		col++;
    259  1.1  cgd 		if (col > maxcol)
    260  1.1  cgd 			maxcol = col;
    261  1.1  cgd 		continue;
    262  1.1  cgd 	}
    263  1.1  cgd 	if (maxcol)
    264  1.1  cgd 		flushln();
    265  1.1  cgd }
    266  1.1  cgd 
    267  1.1  cgd flushln()
    268  1.1  cgd {
    269  1.1  cgd 	register lastmode;
    270  1.1  cgd 	register i;
    271  1.1  cgd 	int hadmodes = 0;
    272  1.1  cgd 
    273  1.1  cgd 	lastmode = NORMAL;
    274  1.1  cgd 	for (i=0; i<maxcol; i++) {
    275  1.1  cgd 		if (obuf[i].c_mode != lastmode) {
    276  1.1  cgd 			hadmodes++;
    277  1.1  cgd 			setmode(obuf[i].c_mode);
    278  1.1  cgd 			lastmode = obuf[i].c_mode;
    279  1.1  cgd 		}
    280  1.1  cgd 		if (obuf[i].c_char == '\0') {
    281  1.1  cgd 			if (upln)
    282  1.1  cgd 				PRINT(CURS_RIGHT);
    283  1.1  cgd 			else
    284  1.1  cgd 				outc(' ');
    285  1.1  cgd 		} else
    286  1.1  cgd 			outc(obuf[i].c_char);
    287  1.1  cgd 	}
    288  1.1  cgd 	if (lastmode != NORMAL) {
    289  1.1  cgd 		setmode(0);
    290  1.1  cgd 	}
    291  1.1  cgd 	if (must_overstrike && hadmodes)
    292  1.1  cgd 		overstrike();
    293  1.1  cgd 	putchar('\n');
    294  1.1  cgd 	if (iflag && hadmodes)
    295  1.1  cgd 		iattr();
    296  1.1  cgd 	(void)fflush(stdout);
    297  1.1  cgd 	if (upln)
    298  1.1  cgd 		upln--;
    299  1.1  cgd 	initbuf();
    300  1.1  cgd }
    301  1.1  cgd 
    302  1.1  cgd /*
    303  1.1  cgd  * For terminals that can overstrike, overstrike underlines and bolds.
    304  1.1  cgd  * We don't do anything with halfline ups and downs, or Greek.
    305  1.1  cgd  */
    306  1.1  cgd overstrike()
    307  1.1  cgd {
    308  1.1  cgd 	register int i;
    309  1.1  cgd 	char lbuf[256];
    310  1.1  cgd 	register char *cp = lbuf;
    311  1.1  cgd 	int hadbold=0;
    312  1.1  cgd 
    313  1.1  cgd 	/* Set up overstrike buffer */
    314  1.1  cgd 	for (i=0; i<maxcol; i++)
    315  1.1  cgd 		switch (obuf[i].c_mode) {
    316  1.1  cgd 		case NORMAL:
    317  1.1  cgd 		default:
    318  1.1  cgd 			*cp++ = ' ';
    319  1.1  cgd 			break;
    320  1.1  cgd 		case UNDERL:
    321  1.1  cgd 			*cp++ = '_';
    322  1.1  cgd 			break;
    323  1.1  cgd 		case BOLD:
    324  1.1  cgd 			*cp++ = obuf[i].c_char;
    325  1.1  cgd 			hadbold=1;
    326  1.1  cgd 			break;
    327  1.1  cgd 		}
    328  1.1  cgd 	putchar('\r');
    329  1.1  cgd 	for (*cp=' '; *cp==' '; cp--)
    330  1.1  cgd 		*cp = 0;
    331  1.1  cgd 	for (cp=lbuf; *cp; cp++)
    332  1.1  cgd 		putchar(*cp);
    333  1.1  cgd 	if (hadbold) {
    334  1.1  cgd 		putchar('\r');
    335  1.1  cgd 		for (cp=lbuf; *cp; cp++)
    336  1.1  cgd 			putchar(*cp=='_' ? ' ' : *cp);
    337  1.1  cgd 		putchar('\r');
    338  1.1  cgd 		for (cp=lbuf; *cp; cp++)
    339  1.1  cgd 			putchar(*cp=='_' ? ' ' : *cp);
    340  1.1  cgd 	}
    341  1.1  cgd }
    342  1.1  cgd 
    343  1.1  cgd iattr()
    344  1.1  cgd {
    345  1.1  cgd 	register int i;
    346  1.1  cgd 	char lbuf[256];
    347  1.1  cgd 	register char *cp = lbuf;
    348  1.1  cgd 
    349  1.1  cgd 	for (i=0; i<maxcol; i++)
    350  1.1  cgd 		switch (obuf[i].c_mode) {
    351  1.1  cgd 		case NORMAL:	*cp++ = ' '; break;
    352  1.1  cgd 		case ALTSET:	*cp++ = 'g'; break;
    353  1.1  cgd 		case SUPERSC:	*cp++ = '^'; break;
    354  1.1  cgd 		case SUBSC:	*cp++ = 'v'; break;
    355  1.1  cgd 		case UNDERL:	*cp++ = '_'; break;
    356  1.1  cgd 		case BOLD:	*cp++ = '!'; break;
    357  1.1  cgd 		default:	*cp++ = 'X'; break;
    358  1.1  cgd 		}
    359  1.1  cgd 	for (*cp=' '; *cp==' '; cp--)
    360  1.1  cgd 		*cp = 0;
    361  1.1  cgd 	for (cp=lbuf; *cp; cp++)
    362  1.1  cgd 		putchar(*cp);
    363  1.1  cgd 	putchar('\n');
    364  1.1  cgd }
    365  1.1  cgd 
    366  1.1  cgd initbuf()
    367  1.1  cgd {
    368  1.1  cgd 
    369  1.1  cgd 	bzero((char *)obuf, sizeof (obuf));	/* depends on NORMAL == 0 */
    370  1.1  cgd 	col = 0;
    371  1.1  cgd 	maxcol = 0;
    372  1.1  cgd 	mode &= ALTSET;
    373  1.1  cgd }
    374  1.1  cgd 
    375  1.1  cgd fwd()
    376  1.1  cgd {
    377  1.1  cgd 	register oldcol, oldmax;
    378  1.1  cgd 
    379  1.1  cgd 	oldcol = col;
    380  1.1  cgd 	oldmax = maxcol;
    381  1.1  cgd 	flushln();
    382  1.1  cgd 	col = oldcol;
    383  1.1  cgd 	maxcol = oldmax;
    384  1.1  cgd }
    385  1.1  cgd 
    386  1.1  cgd reverse()
    387  1.1  cgd {
    388  1.1  cgd 	upln++;
    389  1.1  cgd 	fwd();
    390  1.1  cgd 	PRINT(CURS_UP);
    391  1.1  cgd 	PRINT(CURS_UP);
    392  1.1  cgd 	upln++;
    393  1.1  cgd }
    394  1.1  cgd 
    395  1.1  cgd initcap()
    396  1.1  cgd {
    397  1.1  cgd 	static char tcapbuf[512];
    398  1.1  cgd 	char *bp = tcapbuf;
    399  1.1  cgd 	char *getenv(), *tgetstr();
    400  1.1  cgd 
    401  1.1  cgd 	/* This nonsense attempts to work with both old and new termcap */
    402  1.1  cgd 	CURS_UP =		tgetstr("up", &bp);
    403  1.1  cgd 	CURS_RIGHT =		tgetstr("ri", &bp);
    404  1.1  cgd 	if (CURS_RIGHT == NULL)
    405  1.1  cgd 		CURS_RIGHT =	tgetstr("nd", &bp);
    406  1.1  cgd 	CURS_LEFT =		tgetstr("le", &bp);
    407  1.1  cgd 	if (CURS_LEFT == NULL)
    408  1.1  cgd 		CURS_LEFT =	tgetstr("bc", &bp);
    409  1.1  cgd 	if (CURS_LEFT == NULL && tgetflag("bs"))
    410  1.1  cgd 		CURS_LEFT =	"\b";
    411  1.1  cgd 
    412  1.1  cgd 	ENTER_STANDOUT =	tgetstr("so", &bp);
    413  1.1  cgd 	EXIT_STANDOUT =		tgetstr("se", &bp);
    414  1.1  cgd 	ENTER_UNDERLINE =	tgetstr("us", &bp);
    415  1.1  cgd 	EXIT_UNDERLINE =	tgetstr("ue", &bp);
    416  1.1  cgd 	ENTER_DIM =		tgetstr("mh", &bp);
    417  1.1  cgd 	ENTER_BOLD =		tgetstr("md", &bp);
    418  1.1  cgd 	ENTER_REVERSE =		tgetstr("mr", &bp);
    419  1.1  cgd 	EXIT_ATTRIBUTES =	tgetstr("me", &bp);
    420  1.1  cgd 
    421  1.1  cgd 	if (!ENTER_BOLD && ENTER_REVERSE)
    422  1.1  cgd 		ENTER_BOLD = ENTER_REVERSE;
    423  1.1  cgd 	if (!ENTER_BOLD && ENTER_STANDOUT)
    424  1.1  cgd 		ENTER_BOLD = ENTER_STANDOUT;
    425  1.1  cgd 	if (!ENTER_UNDERLINE && ENTER_STANDOUT) {
    426  1.1  cgd 		ENTER_UNDERLINE = ENTER_STANDOUT;
    427  1.1  cgd 		EXIT_UNDERLINE = EXIT_STANDOUT;
    428  1.1  cgd 	}
    429  1.1  cgd 	if (!ENTER_DIM && ENTER_STANDOUT)
    430  1.1  cgd 		ENTER_DIM = ENTER_STANDOUT;
    431  1.1  cgd 	if (!ENTER_REVERSE && ENTER_STANDOUT)
    432  1.1  cgd 		ENTER_REVERSE = ENTER_STANDOUT;
    433  1.1  cgd 	if (!EXIT_ATTRIBUTES && EXIT_STANDOUT)
    434  1.1  cgd 		EXIT_ATTRIBUTES = EXIT_STANDOUT;
    435  1.1  cgd 
    436  1.1  cgd 	/*
    437  1.1  cgd 	 * Note that we use REVERSE for the alternate character set,
    438  1.1  cgd 	 * not the as/ae capabilities.  This is because we are modelling
    439  1.1  cgd 	 * the model 37 teletype (since that's what nroff outputs) and
    440  1.1  cgd 	 * the typical as/ae is more of a graphics set, not the greek
    441  1.1  cgd 	 * letters the 37 has.
    442  1.1  cgd 	 */
    443  1.1  cgd 
    444  1.1  cgd 	UNDER_CHAR =		tgetstr("uc", &bp);
    445  1.1  cgd 	must_use_uc = (UNDER_CHAR && !ENTER_UNDERLINE);
    446  1.1  cgd }
    447  1.1  cgd 
    448  1.1  cgd outchar(c)
    449  1.1  cgd 	int c;
    450  1.1  cgd {
    451  1.1  cgd 	putchar(c & 0177);
    452  1.1  cgd }
    453  1.1  cgd 
    454  1.1  cgd static int curmode = 0;
    455  1.1  cgd 
    456  1.1  cgd outc(c)
    457  1.1  cgd 	int c;
    458  1.1  cgd {
    459  1.1  cgd 	putchar(c);
    460  1.1  cgd 	if (must_use_uc && (curmode&UNDERL)) {
    461  1.1  cgd 		PRINT(CURS_LEFT);
    462  1.1  cgd 		PRINT(UNDER_CHAR);
    463  1.1  cgd 	}
    464  1.1  cgd }
    465  1.1  cgd 
    466  1.1  cgd setmode(newmode)
    467  1.1  cgd 	int newmode;
    468  1.1  cgd {
    469  1.1  cgd 	if (!iflag) {
    470  1.1  cgd 		if (curmode != NORMAL && newmode != NORMAL)
    471  1.1  cgd 			setmode(NORMAL);
    472  1.1  cgd 		switch (newmode) {
    473  1.1  cgd 		case NORMAL:
    474  1.1  cgd 			switch(curmode) {
    475  1.1  cgd 			case NORMAL:
    476  1.1  cgd 				break;
    477  1.1  cgd 			case UNDERL:
    478  1.1  cgd 				PRINT(EXIT_UNDERLINE);
    479  1.1  cgd 				break;
    480  1.1  cgd 			default:
    481  1.1  cgd 				/* This includes standout */
    482  1.1  cgd 				PRINT(EXIT_ATTRIBUTES);
    483  1.1  cgd 				break;
    484  1.1  cgd 			}
    485  1.1  cgd 			break;
    486  1.1  cgd 		case ALTSET:
    487  1.1  cgd 			PRINT(ENTER_REVERSE);
    488  1.1  cgd 			break;
    489  1.1  cgd 		case SUPERSC:
    490  1.1  cgd 			/*
    491  1.1  cgd 			 * This only works on a few terminals.
    492  1.1  cgd 			 * It should be fixed.
    493  1.1  cgd 			 */
    494  1.1  cgd 			PRINT(ENTER_UNDERLINE);
    495  1.1  cgd 			PRINT(ENTER_DIM);
    496  1.1  cgd 			break;
    497  1.1  cgd 		case SUBSC:
    498  1.1  cgd 			PRINT(ENTER_DIM);
    499  1.1  cgd 			break;
    500  1.1  cgd 		case UNDERL:
    501  1.1  cgd 			PRINT(ENTER_UNDERLINE);
    502  1.1  cgd 			break;
    503  1.1  cgd 		case BOLD:
    504  1.1  cgd 			PRINT(ENTER_BOLD);
    505  1.1  cgd 			break;
    506  1.1  cgd 		default:
    507  1.1  cgd 			/*
    508  1.1  cgd 			 * We should have some provision here for multiple modes
    509  1.1  cgd 			 * on at once.  This will have to come later.
    510  1.1  cgd 			 */
    511  1.1  cgd 			PRINT(ENTER_STANDOUT);
    512  1.1  cgd 			break;
    513  1.1  cgd 		}
    514  1.1  cgd 	}
    515  1.1  cgd 	curmode = newmode;
    516  1.1  cgd }
    517