usr.bin/colcrt/colcrt.c

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