usr.bin/colcrt/colcrt.c

   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\
  35  The Regents of the University of California.  All rights reserved.");
  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 }