Home | History | Annotate | Line # | Download | only in colcrt
colcrt.c revision 1.7 
      1 /*	$NetBSD: colcrt.c,v 1.7 2005/02/17 17:17:25 xtraeme Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1980, 1993
      5  *	The Regents of the University of California.  All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 __COPYRIGHT("@(#) Copyright (c) 1980, 1993\n\
     35 	The Regents of the University of California.  All rights reserved.\n");
     36 #endif /* not lint */
     37 
     38 #ifndef lint
     39 #if 0
     40 static char sccsid[] = "@(#)colcrt.c	8.1 (Berkeley) 6/6/93";
     41 #else
     42 __RCSID("$NetBSD: colcrt.c,v 1.7 2005/02/17 17:17:25 xtraeme Exp $");
     43 #endif
     44 #endif /* not lint */
     45 
     46 #include <stdio.h>
     47 #include <stdlib.h>
     48 #include <string.h>
     49 #include <unistd.h>
     50 
     51 /*
     52  * colcrt - replaces col for crts with new nroff esp. when using tbl.
     53  * Bill Joy UCB July 14, 1977
     54  *
     55  * This filter uses a screen buffer, 267 half-lines by 132 columns.
     56  * It interprets the up and down sequences generated by the new
     57  * nroff when used with tbl and by \u \d and \r.
     58  * General overstriking doesn't work correctly.
     59  * Underlining is split onto multiple lines, etc.
     60  *
     61  * Option - suppresses all underlining.
     62  * Option -2 forces printing of all half lines.
     63  */
     64 
     65 char	page[267][132];
     66 
     67 int	outline = 1;
     68 int	outcol;
     69 
     70 char	suppresul;
     71 char	printall;
     72 
     73 char	*progname;
     74 FILE	*f;
     75 
     76 void	move(int, int);
     77 void	pflush(int);
     78 int	plus(char, char);
     79 
     80 int
     81 main(int argc, char *argv[])
     82 {
     83 	int c;
     84 	char *cp, *dp;
     85 
     86 	argc--;
     87 	progname = *argv++;
     88 	while (argc > 0 && argv[0][0] == '-') {
     89 		switch (argv[0][1]) {
     90 			case 0:
     91 				suppresul = 1;
     92 				break;
     93 			case '2':
     94 				printall = 1;
     95 				break;
     96 			default:
     97 				printf("usage: %s [ - ] [ -2 ] [ file ... ]\n", progname);
     98 				fflush(stdout);
     99 				exit(1);
    100 		}
    101 		argc--;
    102 		argv++;
    103 	}
    104 	do {
    105 		if (argc > 0) {
    106 			close(0);
    107 			if (!(f = fopen(argv[0], "r"))) {
    108 				fflush(stdout);
    109 				perror(argv[0]);
    110 				exit (1);
    111 			}
    112 			argc--;
    113 			argv++;
    114 		}
    115 		for (;;) {
    116 			c = getc(stdin);
    117 			if (c == -1) {
    118 				pflush(outline);
    119 				fflush(stdout);
    120 				break;
    121 			}
    122 			switch (c) {
    123 				case '\n':
    124 					if (outline >= 265)
    125 						pflush(62);
    126 					outline += 2;
    127 					outcol = 0;
    128 					continue;
    129 				case '\016':
    130 					case '\017':
    131 					continue;
    132 				case 033:
    133 					c = getc(stdin);
    134 					switch (c) {
    135 						case '9':
    136 							if (outline >= 266)
    137 								pflush(62);
    138 							outline++;
    139 							continue;
    140 						case '8':
    141 							if (outline >= 1)
    142 								outline--;
    143 							continue;
    144 						case '7':
    145 							outline -= 2;
    146 							if (outline < 0)
    147 								outline = 0;
    148 							continue;
    149 						default:
    150 							continue;
    151 					}
    152 				case '\b':
    153 					if (outcol)
    154 						outcol--;
    155 					continue;
    156 				case '\t':
    157 					outcol += 8;
    158 					outcol &= ~7;
    159 					outcol--;
    160 					c = ' ';
    161 				default:
    162 					if (outcol >= 132) {
    163 						outcol++;
    164 						continue;
    165 					}
    166 					cp = &page[outline][outcol];
    167 					outcol++;
    168 					if (c == '_') {
    169 						if (suppresul)
    170 							continue;
    171 						cp += 132;
    172 						c = '-';
    173 					}
    174 					if (*cp == 0) {
    175 						*cp = c;
    176 						dp = cp - outcol;
    177 						for (cp--; cp >= dp && *cp == 0; cp--)
    178 							*cp = ' ';
    179 					} else
    180 						if (plus(c, *cp) || plus(*cp, c))
    181 							*cp = '+';
    182 						else if (*cp == ' ' || *cp == 0)
    183 							*cp = c;
    184 					continue;
    185 			}
    186 		}
    187 	} while (argc > 0);
    188 	fflush(stdout);
    189 	exit(0);
    190 }
    191 
    192 int
    193 plus(char c, char d)
    194 {
    195 
    196 	return ((c == '|' && d == '-') || d == '_');
    197 }
    198 
    199 int first;
    200 
    201 void
    202 pflush(int ol)
    203 {
    204 	int i;
    205 	char *cp;
    206 	char lastomit;
    207 	int l;
    208 
    209 	l = ol;
    210 	lastomit = 0;
    211 	if (l > 266)
    212 		l = 266;
    213 	else
    214 		l |= 1;
    215 	for (i = first | 1; i < l; i++) {
    216 		move(i, i - 1);
    217 		move(i, i + 1);
    218 	}
    219 	for (i = first; i < l; i++) {
    220 		cp = page[i];
    221 		if (printall == 0 && lastomit == 0 && *cp == 0) {
    222 			lastomit = 1;
    223 			continue;
    224 		}
    225 		lastomit = 0;
    226 		printf("%s\n", cp);
    227 	}
    228 	memmove(page, page[ol], (267 - ol) * 132);
    229 	memset(page[267- ol], 0, ol * 132);
    230 	outline -= ol;
    231 	outcol = 0;
    232 	first = 1;
    233 }
    234 
    235 void
    236 move(int l, int m)
    237 {
    238 	char *cp, *dp;
    239 
    240 	for (cp = page[l], dp = page[m]; *cp; cp++, dp++) {
    241 		switch (*cp) {
    242 			case '|':
    243 				if (*dp != ' ' && *dp != '|' && *dp != 0)
    244 					return;
    245 				break;
    246 			case ' ':
    247 				break;
    248 			default:
    249 				return;
    250 		}
    251 	}
    252 	if (*cp == 0) {
    253 		for (cp = page[l], dp = page[m]; *cp; cp++, dp++)
    254 			if (*cp == '|')
    255 				*dp = '|';
    256 			else if (*dp == 0)
    257 				*dp = ' ';
    258 		page[l][0] = 0;
    259 	}
    260 }
    261