text-utils/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 /*
  35  * 1999-02-22 Arkadiusz Miśkiewicz <misiek@pld.ORG.PL>
  36  *      added Native Language Support
  37  * 1999-09-19 Bruno Haible <haible@clisp.cons.org>
  38  *      modified to work correctly in multi-byte locales
  39  */
  40
  41 #include <stdio.h>
  42 #include <stdlib.h>
  43 #include <unistd.h>             /* for close() */
  44 #include <string.h>
  45 #include <getopt.h>
  46 #include "nls.h"
  47
  48 #include "widechar.h"
  49 #include "c.h"
  50 #include "closestream.h"
  51
  52 int plus(wchar_t c, wchar_t d);
  53 void move(int l, int m);
  54 void pflush(int ol);
  55 static void __attribute__ ((__noreturn__)) usage(FILE * out);
  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 void colcrt(FILE *f);
  80
  81 int main(int argc, char **argv) {
  82         FILE *f;
  83         int i, opt;
  84         enum { NO_UL_OPTION = CHAR_MAX + 1 };
  85
  86         static const struct option longopts[] = {
  87                 { "no-underlining",     no_argument, 0, NO_UL_OPTION },
  88                 { "half-lines",         no_argument, 0, '2' },
  89                 { "version",            no_argument, 0, 'V' },
  90                 { "help",               no_argument, 0, 'h' },
  91                 { NULL, 0, 0, 0}
  92         };
  93
  94         setlocale(LC_ALL, "");
  95         bindtextdomain(PACKAGE, LOCALEDIR);
  96         textdomain(PACKAGE);
  97         atexit(close_stdout);
  98
  99         /* Take care of lonely hyphen option. */
 100         for (i = 0; i < argc; i++)
 101                 if (argv[i][0] == '-' && argv[i][1] == '\0') {
 102                         suppresul = 1;
 103                         argc--;
 104                         memmove(argv + i, argv + i + 1,
 105                                 sizeof(char *) * (argc - i));
 106                         i--;
 107                 }
 108
 109         while ((opt = getopt_long(argc, argv, "2Vh", longopts, NULL)) != -1)
 110                 switch (opt) {
 111                         case NO_UL_OPTION:
 112                                 suppresul = 1;
 113                                 break;
 114                         case '2':
 115                                 printall = 1;
 116                                 break;
 117                         case 'V':
 118                                 printf(UTIL_LINUX_VERSION);
 119                                 return EXIT_SUCCESS;
 120                         case 'h':
 121                                 usage(stdout);
 122                         default:
 123                                 usage(stderr);
 124                 }
 125         argc -= optind;
 126         argv += optind;
 127
 128         do {
 129                 if (argc > 0) {
 130                         if (!(f = fopen(argv[0], "r"))) {
 131                                 fflush(stdout);
 132                                 err(EXIT_FAILURE, "%s", argv[0]);
 133                         }
 134                         argc--;
 135                         argv++;
 136                 } else {
 137                         f = stdin;
 138                 }
 139                 colcrt(f);
 140                 if (f != stdin)
 141                         fclose(f);
 142         } while (argc > 0);
 143         fflush(stdout);
 144         return EXIT_SUCCESS;
 145 }
 146
 147 void colcrt(FILE *f) {
 148         wint_t c;
 149         wchar_t *cp, *dp;
 150         int i, w;
 151
 152         for (;;) {
 153                 c = getwc(f);
 154                 if (c == WEOF) {
 155                         pflush(outline);
 156                         fflush(stdout);
 157                         break;
 158                 }
 159                 switch (c) {
 160                 case '\n':
 161                         if (outline >= 265)
 162                                 pflush(62);
 163                         outline += 2;
 164                         outcol = 0;
 165                         continue;
 166                 case '\016':
 167                 case '\017':
 168                         continue;
 169                 case 033:
 170                         c = getwc(f);
 171                         switch (c) {
 172                         case '9':
 173                                 if (outline >= 266)
 174                                         pflush(62);
 175                                 outline++;
 176                                 continue;
 177                         case '8':
 178                                 if (outline >= 1)
 179                                         outline--;
 180                                 continue;
 181                         case '7':
 182                                 outline -= 2;
 183                                 if (outline < 0)
 184                                         outline = 0;
 185                                 continue;
 186                         default:
 187                                 continue;
 188                         }
 189                 case '\b':
 190                         if (outcol)
 191                                 outcol--;
 192                         continue;
 193                 case '\t':
 194                         outcol += 8;
 195                         outcol &= ~7;
 196                         outcol--;
 197                         c = ' ';
 198                         /* fallthrough */
 199                 default:
 200                         w = wcwidth(c);
 201                         if (outcol + w > 132) {
 202                                 outcol++;
 203                                 continue;
 204                         }
 205                         cp = &page[outline][outcol];
 206                         outcol += w;
 207                         if (c == '_') {
 208                                 if (suppresul)
 209                                         continue;
 210                                 cp += 132;
 211                                 c = '-';
 212                         }
 213                         if (*cp == 0) {
 214                                 /* trick! */
 215                                 for (i = 0; i < w; i++)
 216                                         cp[i] = c;
 217                                 dp = cp - (outcol - w);
 218                                 for (cp--; cp >= dp && *cp == 0; cp--)
 219                                         *cp = ' ';
 220                         } else {
 221                                 if (plus(c, *cp) || plus(*cp, c))
 222                                         *cp = '+';
 223                                 else if (*cp == ' ' || *cp == 0) {
 224                                         for (i = 1; i < w; i++)
 225                                                 if (cp[i] != ' ' && cp[i] != 0)
 226                                                         continue;
 227                                         for (i = 0; i < w; i++)
 228                                                 cp[i] = c;
 229                                 }
 230                         }
 231                         continue;
 232                 }
 233         }
 234 }
 235
 236 int plus(wchar_t c, wchar_t d)
 237 {
 238
 239         return (c == '|' && (d == '-' || d == '_'));
 240 }
 241
 242 int first;
 243
 244 void pflush(int ol)
 245 {
 246         register int i;
 247         register wchar_t *cp;
 248         char lastomit;
 249         int l, w;
 250
 251         l = ol;
 252         lastomit = 0;
 253         if (l > 266)
 254                 l = 266;
 255         else
 256                 l |= 1;
 257         for (i = first | 1; i < l; i++) {
 258                 move(i, i - 1);
 259                 move(i, i + 1);
 260         }
 261         for (i = first; i < l; i++) {
 262                 cp = page[i];
 263                 if (printall == 0 && lastomit == 0 && *cp == 0) {
 264                         lastomit = 1;
 265                         continue;
 266                 }
 267                 lastomit = 0;
 268                 while (*cp) {
 269                         if ((w = wcwidth(*cp)) > 0) {
 270                                 putwchar(*cp);
 271                                 cp += w;
 272                         } else
 273                                 cp++;
 274                 }
 275                 putwchar('\n');
 276         }
 277         memmove(page, page[ol], (267 - ol) * 132 * sizeof(wchar_t));
 278         memset(page[267 - ol], '\0', ol * 132 * sizeof(wchar_t));
 279         outline -= ol;
 280         outcol = 0;
 281         first = 1;
 282 }
 283
 284 void move(int l, int m)
 285 {
 286         register wchar_t *cp, *dp;
 287
 288         for (cp = page[l], dp = page[m]; *cp; cp++, dp++) {
 289                 switch (*cp) {
 290                         case '|':
 291                                 if (*dp != ' ' && *dp != '|' && *dp != 0)
 292                                         return;
 293                                 break;
 294                         case ' ':
 295                                 break;
 296                         default:
 297                                 return;
 298                 }
 299         }
 300         if (*cp == 0) {
 301                 for (cp = page[l], dp = page[m]; *cp; cp++, dp++)
 302                         if (*cp == '|')
 303                                 *dp = '|';
 304                         else if (*dp == 0)
 305                                 *dp = ' ';
 306                 page[l][0] = 0;
 307         }
 308 }
 309
 310 static void __attribute__ ((__noreturn__)) usage(FILE * out)
 311 {
 312         fprintf(out,
 313                 _("\nUsage:\n"
 314                   " %s [options] [file ...]\n"), program_invocation_short_name);
 315
 316         fprintf(out,
 317                 _(" -,  --no-underlining  suppress all underlining\n"
 318                   " -2, --half-lines      print all half-lines\n"
 319                   " -V, --version         output version information and exit\n"
 320                   " -h, --help            display this help and exit\n\n"));
 321
 322         fprintf(out, USAGE_MAN_TAIL("colcrt(1)"));
 323         exit(out == stderr ? EXIT_FAILURE : EXIT_SUCCESS);
 324 }