19b50d902SRodney W. Grimes /*- 29b50d902SRodney W. Grimes * Copyright (c) 1990, 1993, 1994 39b50d902SRodney W. Grimes * The Regents of the University of California. All rights reserved. 49b50d902SRodney W. Grimes * 59b50d902SRodney W. Grimes * This code is derived from software contributed to Berkeley by 69b50d902SRodney W. Grimes * Michael Rendell of the Memorial University of Newfoundland. 79b50d902SRodney W. Grimes * 89b50d902SRodney W. Grimes * Redistribution and use in source and binary forms, with or without 99b50d902SRodney W. Grimes * modification, are permitted provided that the following conditions 109b50d902SRodney W. Grimes * are met: 119b50d902SRodney W. Grimes * 1. Redistributions of source code must retain the above copyright 129b50d902SRodney W. Grimes * notice, this list of conditions and the following disclaimer. 139b50d902SRodney W. Grimes * 2. Redistributions in binary form must reproduce the above copyright 149b50d902SRodney W. Grimes * notice, this list of conditions and the following disclaimer in the 159b50d902SRodney W. Grimes * documentation and/or other materials provided with the distribution. 16*fbbd9655SWarner Losh * 3. Neither the name of the University nor the names of its contributors 179b50d902SRodney W. Grimes * may be used to endorse or promote products derived from this software 189b50d902SRodney W. Grimes * without specific prior written permission. 199b50d902SRodney W. Grimes * 209b50d902SRodney W. Grimes * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 219b50d902SRodney W. Grimes * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 229b50d902SRodney W. Grimes * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 239b50d902SRodney W. Grimes * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 249b50d902SRodney W. Grimes * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 259b50d902SRodney W. Grimes * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 269b50d902SRodney W. Grimes * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 279b50d902SRodney W. Grimes * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 289b50d902SRodney W. Grimes * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 299b50d902SRodney W. Grimes * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 309b50d902SRodney W. Grimes * SUCH DAMAGE. 319b50d902SRodney W. Grimes */ 329b50d902SRodney W. Grimes 339b50d902SRodney W. Grimes #ifndef lint 34fa146c53SArchie Cobbs static const char copyright[] = 359b50d902SRodney W. Grimes "@(#) Copyright (c) 1990, 1993, 1994\n\ 369b50d902SRodney W. Grimes The Regents of the University of California. All rights reserved.\n"; 3784c0ff22SMark Murray #endif 389b50d902SRodney W. Grimes 399f5b04e9SDavid Malone #if 0 409b50d902SRodney W. Grimes #ifndef lint 419f5b04e9SDavid Malone static char sccsid[] = "@(#)col.c 8.5 (Berkeley) 5/4/95"; 42a292105aSPhilippe Charnier #endif 439f5b04e9SDavid Malone #endif 449f5b04e9SDavid Malone 459f5b04e9SDavid Malone #include <sys/cdefs.h> 469f5b04e9SDavid Malone __FBSDID("$FreeBSD$"); 479b50d902SRodney W. Grimes 48e5ea68e7SBaptiste Daroussin #include <sys/capsicum.h> 49e5ea68e7SBaptiste Daroussin 50a4e3fc54SMariusz Zaborski #include <capsicum_helpers.h> 519b50d902SRodney W. Grimes #include <err.h> 52e5ea68e7SBaptiste Daroussin #include <errno.h> 53c3fae744STim J. Robbins #include <locale.h> 549b50d902SRodney W. Grimes #include <stdio.h> 559b50d902SRodney W. Grimes #include <stdlib.h> 56919480b7STim J. Robbins #include <string.h> 57e5ea68e7SBaptiste Daroussin #include <termios.h> 58df3f5d9dSPeter Wemm #include <unistd.h> 59c3fae744STim J. Robbins #include <wchar.h> 60c3fae744STim J. Robbins #include <wctype.h> 619b50d902SRodney W. Grimes 629b50d902SRodney W. Grimes #define BS '\b' /* backspace */ 639b50d902SRodney W. Grimes #define TAB '\t' /* tab */ 649b50d902SRodney W. Grimes #define SPACE ' ' /* space */ 659b50d902SRodney W. Grimes #define NL '\n' /* newline */ 669b50d902SRodney W. Grimes #define CR '\r' /* carriage return */ 679b50d902SRodney W. Grimes #define ESC '\033' /* escape */ 689b50d902SRodney W. Grimes #define SI '\017' /* shift in to normal character set */ 699b50d902SRodney W. Grimes #define SO '\016' /* shift out to alternate character set */ 709b50d902SRodney W. Grimes #define VT '\013' /* vertical tab (aka reverse line feed) */ 71f6240da9SBaptiste Daroussin #define RLF '7' /* ESC-7 reverse line feed */ 72f6240da9SBaptiste Daroussin #define RHLF '8' /* ESC-8 reverse half-line feed */ 73f6240da9SBaptiste Daroussin #define FHLF '9' /* ESC-9 forward half-line feed */ 749b50d902SRodney W. Grimes 759b50d902SRodney W. Grimes /* build up at least this many lines before flushing them out */ 769b50d902SRodney W. Grimes #define BUFFER_MARGIN 32 779b50d902SRodney W. Grimes 789b50d902SRodney W. Grimes typedef char CSET; 799b50d902SRodney W. Grimes 809b50d902SRodney W. Grimes typedef struct char_str { 819b50d902SRodney W. Grimes #define CS_NORMAL 1 829b50d902SRodney W. Grimes #define CS_ALTERNATE 2 839b50d902SRodney W. Grimes short c_column; /* column character is in */ 849b50d902SRodney W. Grimes CSET c_set; /* character set (currently only 2) */ 85c3fae744STim J. Robbins wchar_t c_char; /* character in question */ 86c3fae744STim J. Robbins int c_width; /* character width */ 879b50d902SRodney W. Grimes } CHAR; 889b50d902SRodney W. Grimes 899b50d902SRodney W. Grimes typedef struct line_str LINE; 909b50d902SRodney W. Grimes struct line_str { 919b50d902SRodney W. Grimes CHAR *l_line; /* characters on the line */ 929b50d902SRodney W. Grimes LINE *l_prev; /* previous line */ 939b50d902SRodney W. Grimes LINE *l_next; /* next line */ 949b50d902SRodney W. Grimes int l_lsize; /* allocated sizeof l_line */ 959b50d902SRodney W. Grimes int l_line_len; /* strlen(l_line) */ 969b50d902SRodney W. Grimes int l_needs_sort; /* set if chars went in out of order */ 979b50d902SRodney W. Grimes int l_max_col; /* max column in the line */ 989b50d902SRodney W. Grimes }; 999b50d902SRodney W. Grimes 100f23ed79bSBaptiste Daroussin static void addto_lineno(int *, int); 101ab8d971cSEd Schouten static LINE *alloc_line(void); 102ab8d971cSEd Schouten static void dowarn(int); 103ab8d971cSEd Schouten static void flush_line(LINE *); 104ab8d971cSEd Schouten static void flush_lines(int); 105ab8d971cSEd Schouten static void flush_blanks(void); 106ab8d971cSEd Schouten static void free_line(LINE *); 107ab8d971cSEd Schouten static void usage(void); 1089b50d902SRodney W. Grimes 109ab8d971cSEd Schouten static CSET last_set; /* char_set of last char printed */ 110ab8d971cSEd Schouten static LINE *lines; 111ab8d971cSEd Schouten static int compress_spaces; /* if doing space -> tab conversion */ 112ab8d971cSEd Schouten static int fine; /* if `fine' resolution (half lines) */ 113f23ed79bSBaptiste Daroussin static int max_bufd_lines; /* max # of half lines to keep in memory */ 114ab8d971cSEd Schouten static int nblank_lines; /* # blanks after last flushed line */ 115ab8d971cSEd Schouten static int no_backspaces; /* if not to output any backspaces */ 116ab8d971cSEd Schouten static int pass_unknown_seqs; /* pass unknown control sequences */ 1179b50d902SRodney W. Grimes 1189b50d902SRodney W. Grimes #define PUTC(ch) \ 119f746e67cSBruce Evans do { \ 120c3fae744STim J. Robbins if (putwchar(ch) == WEOF) \ 121f34d0e74SMike Heffner errx(1, "write error"); \ 122f746e67cSBruce Evans } while (0) 1239b50d902SRodney W. Grimes 1249b50d902SRodney W. Grimes int 125f4ac32deSDavid Malone main(int argc, char **argv) 1269b50d902SRodney W. Grimes { 127c3fae744STim J. Robbins wint_t ch; 1289b50d902SRodney W. Grimes CHAR *c; 1299b50d902SRodney W. Grimes CSET cur_set; /* current character set */ 1309b50d902SRodney W. Grimes LINE *l; /* current line */ 1319b50d902SRodney W. Grimes int extra_lines; /* # of lines above first line */ 1329b50d902SRodney W. Grimes int cur_col; /* current column */ 1339b50d902SRodney W. Grimes int cur_line; /* line number of current position */ 1349b50d902SRodney W. Grimes int max_line; /* max value of cur_line */ 1359b50d902SRodney W. Grimes int this_line; /* line l points to */ 1369b50d902SRodney W. Grimes int nflushd_lines; /* number of lines that were flushed */ 137c3fae744STim J. Robbins int adjust, opt, warned, width; 138f23ed79bSBaptiste Daroussin const char *errstr; 1399b50d902SRodney W. Grimes 1408bbd9072SAndrey A. Chernov (void)setlocale(LC_CTYPE, ""); 1418bbd9072SAndrey A. Chernov 142a4e3fc54SMariusz Zaborski if (caph_limit_stdio() == -1) 143a4e3fc54SMariusz Zaborski err(1, "unable to limit stdio"); 144e5ea68e7SBaptiste Daroussin 145e5ea68e7SBaptiste Daroussin if (cap_enter() < 0 && errno != ENOSYS) 146e5ea68e7SBaptiste Daroussin err(1, "unable to enter capability mode"); 147e5ea68e7SBaptiste Daroussin 148f23ed79bSBaptiste Daroussin max_bufd_lines = 256; 1499b50d902SRodney W. Grimes compress_spaces = 1; /* compress spaces into tabs */ 150844518ffSMike Heffner while ((opt = getopt(argc, argv, "bfhl:px")) != -1) 1519b50d902SRodney W. Grimes switch (opt) { 1529b50d902SRodney W. Grimes case 'b': /* do not output backspaces */ 1539b50d902SRodney W. Grimes no_backspaces = 1; 1549b50d902SRodney W. Grimes break; 1559b50d902SRodney W. Grimes case 'f': /* allow half forward line feeds */ 1569b50d902SRodney W. Grimes fine = 1; 1579b50d902SRodney W. Grimes break; 1589b50d902SRodney W. Grimes case 'h': /* compress spaces into tabs */ 1599b50d902SRodney W. Grimes compress_spaces = 1; 1609b50d902SRodney W. Grimes break; 1619b50d902SRodney W. Grimes case 'l': /* buffered line count */ 162f23ed79bSBaptiste Daroussin max_bufd_lines = strtonum(optarg, 1, 163f23ed79bSBaptiste Daroussin (INT_MAX - BUFFER_MARGIN) / 2, &errstr) * 2; 164f23ed79bSBaptiste Daroussin if (errstr != NULL) 165f23ed79bSBaptiste Daroussin errx(1, "bad -l argument, %s: %s", errstr, 166f23ed79bSBaptiste Daroussin optarg); 1679b50d902SRodney W. Grimes break; 168844518ffSMike Heffner case 'p': /* pass unknown control sequences */ 169844518ffSMike Heffner pass_unknown_seqs = 1; 170844518ffSMike Heffner break; 1719b50d902SRodney W. Grimes case 'x': /* do not compress spaces into tabs */ 1729b50d902SRodney W. Grimes compress_spaces = 0; 1739b50d902SRodney W. Grimes break; 1749b50d902SRodney W. Grimes case '?': 1759b50d902SRodney W. Grimes default: 1769b50d902SRodney W. Grimes usage(); 1779b50d902SRodney W. Grimes } 1789b50d902SRodney W. Grimes 1799b50d902SRodney W. Grimes if (optind != argc) 1809b50d902SRodney W. Grimes usage(); 1819b50d902SRodney W. Grimes 1829b50d902SRodney W. Grimes adjust = cur_col = extra_lines = warned = 0; 1839b50d902SRodney W. Grimes cur_line = max_line = nflushd_lines = this_line = 0; 1849b50d902SRodney W. Grimes cur_set = last_set = CS_NORMAL; 1859b50d902SRodney W. Grimes lines = l = alloc_line(); 1869b50d902SRodney W. Grimes 187c3fae744STim J. Robbins while ((ch = getwchar()) != WEOF) { 188c3fae744STim J. Robbins if (!iswgraph(ch)) { 1899b50d902SRodney W. Grimes switch (ch) { 1909b50d902SRodney W. Grimes case BS: /* can't go back further */ 1919b50d902SRodney W. Grimes if (cur_col == 0) 1929b50d902SRodney W. Grimes continue; 1939b50d902SRodney W. Grimes --cur_col; 1949b50d902SRodney W. Grimes continue; 1959b50d902SRodney W. Grimes case CR: 1969b50d902SRodney W. Grimes cur_col = 0; 1979b50d902SRodney W. Grimes continue; 1989b50d902SRodney W. Grimes case ESC: /* just ignore EOF */ 199c3fae744STim J. Robbins switch(getwchar()) { 2007bc60a16SBaptiste Daroussin /* 2017bc60a16SBaptiste Daroussin * In the input stream, accept both the 2027bc60a16SBaptiste Daroussin * XPG5 sequences ESC-digit and the 2037bc60a16SBaptiste Daroussin * traditional BSD sequences ESC-ctrl. 2047bc60a16SBaptiste Daroussin */ 2057bc60a16SBaptiste Daroussin case '\007': 2067bc60a16SBaptiste Daroussin /* FALLTHROUGH */ 2079b50d902SRodney W. Grimes case RLF: 208f23ed79bSBaptiste Daroussin addto_lineno(&cur_line, -2); 2099b50d902SRodney W. Grimes break; 2107bc60a16SBaptiste Daroussin case '\010': 2117bc60a16SBaptiste Daroussin /* FALLTHROUGH */ 2129b50d902SRodney W. Grimes case RHLF: 213f23ed79bSBaptiste Daroussin addto_lineno(&cur_line, -1); 2149b50d902SRodney W. Grimes break; 2157bc60a16SBaptiste Daroussin case '\011': 2167bc60a16SBaptiste Daroussin /* FALLTHROUGH */ 2179b50d902SRodney W. Grimes case FHLF: 218f23ed79bSBaptiste Daroussin addto_lineno(&cur_line, 1); 2199b50d902SRodney W. Grimes if (cur_line > max_line) 2209b50d902SRodney W. Grimes max_line = cur_line; 2219b50d902SRodney W. Grimes } 2229b50d902SRodney W. Grimes continue; 2239b50d902SRodney W. Grimes case NL: 224f23ed79bSBaptiste Daroussin addto_lineno(&cur_line, 2); 2259b50d902SRodney W. Grimes if (cur_line > max_line) 2269b50d902SRodney W. Grimes max_line = cur_line; 2279b50d902SRodney W. Grimes cur_col = 0; 2289b50d902SRodney W. Grimes continue; 2299b50d902SRodney W. Grimes case SPACE: 2309b50d902SRodney W. Grimes ++cur_col; 2319b50d902SRodney W. Grimes continue; 2329b50d902SRodney W. Grimes case SI: 2339b50d902SRodney W. Grimes cur_set = CS_NORMAL; 2349b50d902SRodney W. Grimes continue; 2359b50d902SRodney W. Grimes case SO: 2369b50d902SRodney W. Grimes cur_set = CS_ALTERNATE; 2379b50d902SRodney W. Grimes continue; 2389b50d902SRodney W. Grimes case TAB: /* adjust column */ 2399b50d902SRodney W. Grimes cur_col |= 7; 2409b50d902SRodney W. Grimes ++cur_col; 2419b50d902SRodney W. Grimes continue; 2429b50d902SRodney W. Grimes case VT: 243f23ed79bSBaptiste Daroussin addto_lineno(&cur_line, -2); 2449b50d902SRodney W. Grimes continue; 2459b50d902SRodney W. Grimes } 246c3fae744STim J. Robbins if (iswspace(ch)) { 247c3fae744STim J. Robbins if ((width = wcwidth(ch)) > 0) 248c3fae744STim J. Robbins cur_col += width; 249c3fae744STim J. Robbins continue; 250c3fae744STim J. Robbins } 251844518ffSMike Heffner if (!pass_unknown_seqs) 2529b50d902SRodney W. Grimes continue; 2539b50d902SRodney W. Grimes } 2549b50d902SRodney W. Grimes 2559b50d902SRodney W. Grimes /* Must stuff ch in a line - are we at the right one? */ 256f23ed79bSBaptiste Daroussin if (cur_line + adjust != this_line) { 2579b50d902SRodney W. Grimes LINE *lnew; 2589b50d902SRodney W. Grimes 2599b50d902SRodney W. Grimes /* round up to next line */ 260f23ed79bSBaptiste Daroussin adjust = !fine && (cur_line & 1); 261f23ed79bSBaptiste Daroussin 262f23ed79bSBaptiste Daroussin if (cur_line + adjust < this_line) { 263f23ed79bSBaptiste Daroussin while (cur_line + adjust < this_line && 264f23ed79bSBaptiste Daroussin l->l_prev != NULL) { 2659b50d902SRodney W. Grimes l = l->l_prev; 266f23ed79bSBaptiste Daroussin this_line--; 267f23ed79bSBaptiste Daroussin } 268f23ed79bSBaptiste Daroussin if (cur_line + adjust < this_line) { 2699b50d902SRodney W. Grimes if (nflushd_lines == 0) { 2709b50d902SRodney W. Grimes /* 2719b50d902SRodney W. Grimes * Allow backup past first 2729b50d902SRodney W. Grimes * line if nothing has been 2739b50d902SRodney W. Grimes * flushed yet. 2749b50d902SRodney W. Grimes */ 275f23ed79bSBaptiste Daroussin while (cur_line + adjust 276f23ed79bSBaptiste Daroussin < this_line) { 2779b50d902SRodney W. Grimes lnew = alloc_line(); 2789b50d902SRodney W. Grimes l->l_prev = lnew; 2799b50d902SRodney W. Grimes lnew->l_next = l; 2809b50d902SRodney W. Grimes l = lines = lnew; 2819b50d902SRodney W. Grimes extra_lines++; 282f23ed79bSBaptiste Daroussin this_line--; 2839b50d902SRodney W. Grimes } 2849b50d902SRodney W. Grimes } else { 2859b50d902SRodney W. Grimes if (!warned++) 2869b50d902SRodney W. Grimes dowarn(cur_line); 287f23ed79bSBaptiste Daroussin cur_line = this_line - adjust; 2889b50d902SRodney W. Grimes } 2899b50d902SRodney W. Grimes } 2909b50d902SRodney W. Grimes } else { 2919b50d902SRodney W. Grimes /* may need to allocate here */ 292f23ed79bSBaptiste Daroussin while (cur_line + adjust > this_line) { 293f23ed79bSBaptiste Daroussin if (l->l_next == NULL) { 294f23ed79bSBaptiste Daroussin l->l_next = alloc_line(); 295f23ed79bSBaptiste Daroussin l->l_next->l_prev = l; 296f23ed79bSBaptiste Daroussin } 2979b50d902SRodney W. Grimes l = l->l_next; 298f23ed79bSBaptiste Daroussin this_line++; 2999b50d902SRodney W. Grimes } 3009b50d902SRodney W. Grimes } 301f23ed79bSBaptiste Daroussin if (this_line > nflushd_lines && 302f23ed79bSBaptiste Daroussin this_line - nflushd_lines >= 303f23ed79bSBaptiste Daroussin max_bufd_lines + BUFFER_MARGIN) { 304f23ed79bSBaptiste Daroussin if (extra_lines) { 305f23ed79bSBaptiste Daroussin flush_lines(extra_lines); 306f23ed79bSBaptiste Daroussin extra_lines = 0; 307f23ed79bSBaptiste Daroussin } 308f23ed79bSBaptiste Daroussin flush_lines(this_line - nflushd_lines - 309f23ed79bSBaptiste Daroussin max_bufd_lines); 310f23ed79bSBaptiste Daroussin nflushd_lines = this_line - max_bufd_lines; 3119b50d902SRodney W. Grimes } 3129b50d902SRodney W. Grimes } 3139b50d902SRodney W. Grimes /* grow line's buffer? */ 3149b50d902SRodney W. Grimes if (l->l_line_len + 1 >= l->l_lsize) { 3159b50d902SRodney W. Grimes int need; 3169b50d902SRodney W. Grimes 3179b50d902SRodney W. Grimes need = l->l_lsize ? l->l_lsize * 2 : 90; 31844974a7fSDavid E. O'Brien if ((l->l_line = realloc(l->l_line, 31944974a7fSDavid E. O'Brien (unsigned)need * sizeof(CHAR))) == NULL) 32018463c77SKevin Lo err(1, NULL); 3219b50d902SRodney W. Grimes l->l_lsize = need; 3229b50d902SRodney W. Grimes } 3239b50d902SRodney W. Grimes c = &l->l_line[l->l_line_len++]; 3249b50d902SRodney W. Grimes c->c_char = ch; 3259b50d902SRodney W. Grimes c->c_set = cur_set; 3269b50d902SRodney W. Grimes c->c_column = cur_col; 327c3fae744STim J. Robbins c->c_width = wcwidth(ch); 3289b50d902SRodney W. Grimes /* 3299b50d902SRodney W. Grimes * If things are put in out of order, they will need sorting 3309b50d902SRodney W. Grimes * when it is flushed. 3319b50d902SRodney W. Grimes */ 3329b50d902SRodney W. Grimes if (cur_col < l->l_max_col) 3339b50d902SRodney W. Grimes l->l_needs_sort = 1; 3349b50d902SRodney W. Grimes else 3359b50d902SRodney W. Grimes l->l_max_col = cur_col; 336c3fae744STim J. Robbins if (c->c_width > 0) 337c3fae744STim J. Robbins cur_col += c->c_width; 3389b50d902SRodney W. Grimes } 339c3fae744STim J. Robbins if (ferror(stdin)) 340c3fae744STim J. Robbins err(1, NULL); 341f23ed79bSBaptiste Daroussin if (extra_lines) 342f23ed79bSBaptiste Daroussin flush_lines(extra_lines); 343df3f5d9dSPeter Wemm 3449b50d902SRodney W. Grimes /* goto the last line that had a character on it */ 3459b50d902SRodney W. Grimes for (; l->l_next; l = l->l_next) 3469b50d902SRodney W. Grimes this_line++; 347f23ed79bSBaptiste Daroussin flush_lines(this_line - nflushd_lines + 1); 3489b50d902SRodney W. Grimes 3499b50d902SRodney W. Grimes /* make sure we leave things in a sane state */ 3509b50d902SRodney W. Grimes if (last_set != CS_NORMAL) 351a9da03efSBaptiste Daroussin PUTC(SI); 3529b50d902SRodney W. Grimes 3539b50d902SRodney W. Grimes /* flush out the last few blank lines */ 354f23ed79bSBaptiste Daroussin if (max_line > this_line) 3559b50d902SRodney W. Grimes nblank_lines = max_line - this_line; 3569b50d902SRodney W. Grimes if (max_line & 1) 3579b50d902SRodney W. Grimes nblank_lines++; 3589b50d902SRodney W. Grimes flush_blanks(); 3599b50d902SRodney W. Grimes exit(0); 3609b50d902SRodney W. Grimes } 3619b50d902SRodney W. Grimes 362ab8d971cSEd Schouten static void 363f4ac32deSDavid Malone flush_lines(int nflush) 3649b50d902SRodney W. Grimes { 3659b50d902SRodney W. Grimes LINE *l; 3669b50d902SRodney W. Grimes 3679b50d902SRodney W. Grimes while (--nflush >= 0) { 3689b50d902SRodney W. Grimes l = lines; 3699b50d902SRodney W. Grimes lines = l->l_next; 3709b50d902SRodney W. Grimes if (l->l_line) { 3719b50d902SRodney W. Grimes flush_blanks(); 3729b50d902SRodney W. Grimes flush_line(l); 3739b50d902SRodney W. Grimes } 374f23ed79bSBaptiste Daroussin if (l->l_line || l->l_next) 3759b50d902SRodney W. Grimes nblank_lines++; 3769b50d902SRodney W. Grimes if (l->l_line) 377f34d0e74SMike Heffner (void)free(l->l_line); 3789b50d902SRodney W. Grimes free_line(l); 3799b50d902SRodney W. Grimes } 3809b50d902SRodney W. Grimes if (lines) 3819b50d902SRodney W. Grimes lines->l_prev = NULL; 3829b50d902SRodney W. Grimes } 3839b50d902SRodney W. Grimes 3849b50d902SRodney W. Grimes /* 3859b50d902SRodney W. Grimes * Print a number of newline/half newlines. If fine flag is set, nblank_lines 3869b50d902SRodney W. Grimes * is the number of half line feeds, otherwise it is the number of whole line 3879b50d902SRodney W. Grimes * feeds. 3889b50d902SRodney W. Grimes */ 389ab8d971cSEd Schouten static void 390f4ac32deSDavid Malone flush_blanks(void) 3919b50d902SRodney W. Grimes { 3929b50d902SRodney W. Grimes int half, i, nb; 3939b50d902SRodney W. Grimes 3949b50d902SRodney W. Grimes half = 0; 3959b50d902SRodney W. Grimes nb = nblank_lines; 3969b50d902SRodney W. Grimes if (nb & 1) { 3979b50d902SRodney W. Grimes if (fine) 3989b50d902SRodney W. Grimes half = 1; 3999b50d902SRodney W. Grimes else 4009b50d902SRodney W. Grimes nb++; 4019b50d902SRodney W. Grimes } 4029b50d902SRodney W. Grimes nb /= 2; 4039b50d902SRodney W. Grimes for (i = nb; --i >= 0;) 4049b50d902SRodney W. Grimes PUTC('\n'); 4059b50d902SRodney W. Grimes if (half) { 406a9da03efSBaptiste Daroussin PUTC(ESC); 407a9da03efSBaptiste Daroussin PUTC(FHLF); 4089b50d902SRodney W. Grimes if (!nb) 4099b50d902SRodney W. Grimes PUTC('\r'); 4109b50d902SRodney W. Grimes } 4119b50d902SRodney W. Grimes nblank_lines = 0; 4129b50d902SRodney W. Grimes } 4139b50d902SRodney W. Grimes 4149b50d902SRodney W. Grimes /* 4159b50d902SRodney W. Grimes * Write a line to stdout taking care of space to tab conversion (-h flag) 4169b50d902SRodney W. Grimes * and character set shifts. 4179b50d902SRodney W. Grimes */ 418ab8d971cSEd Schouten static void 419f4ac32deSDavid Malone flush_line(LINE *l) 4209b50d902SRodney W. Grimes { 4219b50d902SRodney W. Grimes CHAR *c, *endc; 422ae66acacSStefan Farfeleder int i, j, nchars, last_col, save, this_col, tot; 4239b50d902SRodney W. Grimes 4249b50d902SRodney W. Grimes last_col = 0; 4259b50d902SRodney W. Grimes nchars = l->l_line_len; 4269b50d902SRodney W. Grimes 4279b50d902SRodney W. Grimes if (l->l_needs_sort) { 4289b50d902SRodney W. Grimes static CHAR *sorted; 429ae66acacSStefan Farfeleder static int count_size, *count, sorted_size; 4309b50d902SRodney W. Grimes 4319b50d902SRodney W. Grimes /* 4329b50d902SRodney W. Grimes * Do an O(n) sort on l->l_line by column being careful to 4339b50d902SRodney W. Grimes * preserve the order of characters in the same column. 4349b50d902SRodney W. Grimes */ 4359b50d902SRodney W. Grimes if (l->l_lsize > sorted_size) { 4369b50d902SRodney W. Grimes sorted_size = l->l_lsize; 43744974a7fSDavid E. O'Brien if ((sorted = realloc(sorted, 43844974a7fSDavid E. O'Brien (unsigned)sizeof(CHAR) * sorted_size)) == NULL) 43918463c77SKevin Lo err(1, NULL); 4409b50d902SRodney W. Grimes } 4419b50d902SRodney W. Grimes if (l->l_max_col >= count_size) { 4429b50d902SRodney W. Grimes count_size = l->l_max_col + 1; 44344974a7fSDavid E. O'Brien if ((count = realloc(count, 44444974a7fSDavid E. O'Brien (unsigned)sizeof(int) * count_size)) == NULL) 44518463c77SKevin Lo err(1, NULL); 4469b50d902SRodney W. Grimes } 447f34d0e74SMike Heffner memset(count, 0, sizeof(int) * l->l_max_col + 1); 4489b50d902SRodney W. Grimes for (i = nchars, c = l->l_line; --i >= 0; c++) 4499b50d902SRodney W. Grimes count[c->c_column]++; 4509b50d902SRodney W. Grimes 4519b50d902SRodney W. Grimes /* 4529b50d902SRodney W. Grimes * calculate running total (shifted down by 1) to use as 4539b50d902SRodney W. Grimes * indices into new line. 4549b50d902SRodney W. Grimes */ 4559b50d902SRodney W. Grimes for (tot = 0, i = 0; i <= l->l_max_col; i++) { 4569b50d902SRodney W. Grimes save = count[i]; 4579b50d902SRodney W. Grimes count[i] = tot; 4589b50d902SRodney W. Grimes tot += save; 4599b50d902SRodney W. Grimes } 4609b50d902SRodney W. Grimes 4619b50d902SRodney W. Grimes for (i = nchars, c = l->l_line; --i >= 0; c++) 4629b50d902SRodney W. Grimes sorted[count[c->c_column]++] = *c; 4639b50d902SRodney W. Grimes c = sorted; 4649b50d902SRodney W. Grimes } else 4659b50d902SRodney W. Grimes c = l->l_line; 4669b50d902SRodney W. Grimes while (nchars > 0) { 4679b50d902SRodney W. Grimes this_col = c->c_column; 4689b50d902SRodney W. Grimes endc = c; 4699b50d902SRodney W. Grimes do { 4709b50d902SRodney W. Grimes ++endc; 4719b50d902SRodney W. Grimes } while (--nchars > 0 && this_col == endc->c_column); 4729b50d902SRodney W. Grimes 4739b50d902SRodney W. Grimes /* if -b only print last character */ 474c3fae744STim J. Robbins if (no_backspaces) { 4759b50d902SRodney W. Grimes c = endc - 1; 476c3fae744STim J. Robbins if (nchars > 0 && 477c3fae744STim J. Robbins this_col + c->c_width > endc->c_column) 478c3fae744STim J. Robbins continue; 479c3fae744STim J. Robbins } 4809b50d902SRodney W. Grimes 4819b50d902SRodney W. Grimes if (this_col > last_col) { 4829b50d902SRodney W. Grimes int nspace = this_col - last_col; 4839b50d902SRodney W. Grimes 4849b50d902SRodney W. Grimes if (compress_spaces && nspace > 1) { 485f746e67cSBruce Evans while (1) { 4865eb2aa45SEd Maste int tab_col, tab_size; 4879b50d902SRodney W. Grimes 488f746e67cSBruce Evans tab_col = (last_col + 8) & ~7; 489f746e67cSBruce Evans if (tab_col > this_col) 490f746e67cSBruce Evans break; 491f746e67cSBruce Evans tab_size = tab_col - last_col; 492f746e67cSBruce Evans if (tab_size == 1) 493f746e67cSBruce Evans PUTC(' '); 494f746e67cSBruce Evans else 4959b50d902SRodney W. Grimes PUTC('\t'); 496f746e67cSBruce Evans nspace -= tab_size; 497f746e67cSBruce Evans last_col = tab_col; 498f746e67cSBruce Evans } 4999b50d902SRodney W. Grimes } 5009b50d902SRodney W. Grimes while (--nspace >= 0) 5019b50d902SRodney W. Grimes PUTC(' '); 5029b50d902SRodney W. Grimes last_col = this_col; 5039b50d902SRodney W. Grimes } 5049b50d902SRodney W. Grimes 5059b50d902SRodney W. Grimes for (;;) { 5069b50d902SRodney W. Grimes if (c->c_set != last_set) { 5079b50d902SRodney W. Grimes switch (c->c_set) { 5089b50d902SRodney W. Grimes case CS_NORMAL: 509a9da03efSBaptiste Daroussin PUTC(SI); 5109b50d902SRodney W. Grimes break; 5119b50d902SRodney W. Grimes case CS_ALTERNATE: 512a9da03efSBaptiste Daroussin PUTC(SO); 5139b50d902SRodney W. Grimes } 5149b50d902SRodney W. Grimes last_set = c->c_set; 5159b50d902SRodney W. Grimes } 5169b50d902SRodney W. Grimes PUTC(c->c_char); 517c3fae744STim J. Robbins if ((c + 1) < endc) 51870708375SDavid Malone for (j = 0; j < c->c_width; j++) 519c3fae744STim J. Robbins PUTC('\b'); 5209b50d902SRodney W. Grimes if (++c >= endc) 5219b50d902SRodney W. Grimes break; 5229b50d902SRodney W. Grimes } 523c3fae744STim J. Robbins last_col += (c - 1)->c_width; 5249b50d902SRodney W. Grimes } 5259b50d902SRodney W. Grimes } 5269b50d902SRodney W. Grimes 527f23ed79bSBaptiste Daroussin /* 528f23ed79bSBaptiste Daroussin * Increment or decrement a line number, checking for overflow. 529f23ed79bSBaptiste Daroussin * Stop one below INT_MAX such that the adjust variable is safe. 530f23ed79bSBaptiste Daroussin */ 531f23ed79bSBaptiste Daroussin void 532f23ed79bSBaptiste Daroussin addto_lineno(int *lno, int offset) 533f23ed79bSBaptiste Daroussin { 534f23ed79bSBaptiste Daroussin if (offset > 0) { 535f23ed79bSBaptiste Daroussin if (*lno >= INT_MAX - offset) 536f23ed79bSBaptiste Daroussin errx(1, "too many lines"); 537f23ed79bSBaptiste Daroussin } else { 538f23ed79bSBaptiste Daroussin if (*lno < INT_MIN - offset) 539f23ed79bSBaptiste Daroussin errx(1, "too many reverse line feeds"); 540f23ed79bSBaptiste Daroussin } 541f23ed79bSBaptiste Daroussin *lno += offset; 542f23ed79bSBaptiste Daroussin } 543f23ed79bSBaptiste Daroussin 5449b50d902SRodney W. Grimes #define NALLOC 64 5459b50d902SRodney W. Grimes 5469b50d902SRodney W. Grimes static LINE *line_freelist; 5479b50d902SRodney W. Grimes 548ab8d971cSEd Schouten static LINE * 549f4ac32deSDavid Malone alloc_line(void) 5509b50d902SRodney W. Grimes { 5519b50d902SRodney W. Grimes LINE *l; 5529b50d902SRodney W. Grimes int i; 5539b50d902SRodney W. Grimes 5549b50d902SRodney W. Grimes if (!line_freelist) { 55544974a7fSDavid E. O'Brien if ((l = realloc(NULL, sizeof(LINE) * NALLOC)) == NULL) 55618463c77SKevin Lo err(1, NULL); 5579b50d902SRodney W. Grimes line_freelist = l; 5589b50d902SRodney W. Grimes for (i = 1; i < NALLOC; i++, l++) 5599b50d902SRodney W. Grimes l->l_next = l + 1; 5609b50d902SRodney W. Grimes l->l_next = NULL; 5619b50d902SRodney W. Grimes } 5629b50d902SRodney W. Grimes l = line_freelist; 5639b50d902SRodney W. Grimes line_freelist = l->l_next; 5649b50d902SRodney W. Grimes 5659b50d902SRodney W. Grimes memset(l, 0, sizeof(LINE)); 5669b50d902SRodney W. Grimes return (l); 5679b50d902SRodney W. Grimes } 5689b50d902SRodney W. Grimes 569ab8d971cSEd Schouten static void 570f4ac32deSDavid Malone free_line(LINE *l) 5719b50d902SRodney W. Grimes { 5729b50d902SRodney W. Grimes 5739b50d902SRodney W. Grimes l->l_next = line_freelist; 5749b50d902SRodney W. Grimes line_freelist = l; 5759b50d902SRodney W. Grimes } 5769b50d902SRodney W. Grimes 577ab8d971cSEd Schouten static void 578f4ac32deSDavid Malone usage(void) 5799b50d902SRodney W. Grimes { 5809b50d902SRodney W. Grimes 581844518ffSMike Heffner (void)fprintf(stderr, "usage: col [-bfhpx] [-l nline]\n"); 5829b50d902SRodney W. Grimes exit(1); 5839b50d902SRodney W. Grimes } 5849b50d902SRodney W. Grimes 585ab8d971cSEd Schouten static void 586f4ac32deSDavid Malone dowarn(int line) 5879b50d902SRodney W. Grimes { 5889b50d902SRodney W. Grimes 5899b50d902SRodney W. Grimes warnx("warning: can't back up %s", 5909b50d902SRodney W. Grimes line < 0 ? "past first line" : "-- line already flushed"); 5919b50d902SRodney W. Grimes } 592