Home | History | Annotate | Line # | Download | only in column
column.c revision 1.13 
      1 /*	$NetBSD: column.c,v 1.13 2005/12/17 18:10:55 christos Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1989, 1993, 1994
      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) 1989, 1993, 1994\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[] = "@(#)column.c	8.4 (Berkeley) 5/4/95";
     41 #endif
     42 __RCSID("$NetBSD: column.c,v 1.13 2005/12/17 18:10:55 christos Exp $");
     43 #endif /* not lint */
     44 
     45 #include <sys/types.h>
     46 #include <sys/ioctl.h>
     47 
     48 #include <ctype.h>
     49 #include <err.h>
     50 #include <termios.h>
     51 #include <limits.h>
     52 #include <stdio.h>
     53 #include <stdlib.h>
     54 #include <string.h>
     55 #include <unistd.h>
     56 
     57 #define	TAB	8
     58 
     59 static void  c_columnate(void);
     60 static void *emalloc(size_t);
     61 static void *erealloc(void *, size_t);
     62 static char *estrdup(const char *);
     63 static void  input(FILE *);
     64 static void  maketbl(void);
     65 static void  print(void);
     66 static void  r_columnate(void);
     67 static void  usage(void) __attribute__((__noreturn__));
     68 
     69 static int termwidth = 80;		/* default terminal width */
     70 
     71 static int entries;			/* number of records */
     72 static int eval;			/* exit value */
     73 static int maxlength;			/* longest record */
     74 static char **list;			/* array of pointers to records */
     75 static const char *separator = "\t ";	/* field separator for table option */
     76 
     77 int
     78 main(int argc, char **argv)
     79 {
     80 	struct winsize win;
     81 	FILE *fp;
     82 	int ch, tflag, xflag;
     83 	const char *p;
     84 
     85 	setprogname(*argv);
     86 
     87 	if (ioctl(STDOUT_FILENO, TIOCGWINSZ, &win) == -1 || !win.ws_col) {
     88 		if ((p = getenv("COLUMNS")) != NULL)
     89 			termwidth = atoi(p);
     90 	} else
     91 		termwidth = win.ws_col;
     92 
     93 	tflag = xflag = 0;
     94 	while ((ch = getopt(argc, argv, "c:s:tx")) != -1)
     95 		switch(ch) {
     96 		case 'c':
     97 			termwidth = atoi(optarg);
     98 			break;
     99 		case 's':
    100 			separator = optarg;
    101 			break;
    102 		case 't':
    103 			tflag = 1;
    104 			break;
    105 		case 'x':
    106 			xflag = 1;
    107 			break;
    108 		case '?':
    109 		default:
    110 			usage();
    111 		}
    112 	argc -= optind;
    113 	argv += optind;
    114 
    115 	if (!*argv)
    116 		input(stdin);
    117 	else for (; *argv; ++argv)
    118 		if ((fp = fopen(*argv, "r")) != NULL) {
    119 			input(fp);
    120 			(void)fclose(fp);
    121 		} else {
    122 			warn("Cannot open `%s'", *argv);
    123 			eval = 1;
    124 		}
    125 
    126 	if (!entries)
    127 		return eval;
    128 
    129 	maxlength = (maxlength + TAB) & ~(TAB - 1);
    130 	if (tflag)
    131 		maketbl();
    132 	else if (maxlength >= termwidth)
    133 		print();
    134 	else if (xflag)
    135 		c_columnate();
    136 	else
    137 		r_columnate();
    138 	return eval;
    139 }
    140 
    141 static void
    142 c_columnate(void)
    143 {
    144 	int chcnt, col, cnt, endcol, numcols;
    145 	char **lp;
    146 
    147 	numcols = termwidth / maxlength;
    148 	endcol = maxlength;
    149 	for (chcnt = col = 0, lp = list;; ++lp) {
    150 		chcnt += printf("%s", *lp);
    151 		if (!--entries)
    152 			break;
    153 		if (++col == numcols) {
    154 			chcnt = col = 0;
    155 			endcol = maxlength;
    156 			(void)putchar('\n');
    157 		} else {
    158 			while ((cnt = ((chcnt + TAB) & ~(TAB - 1))) <= endcol) {
    159 				(void)putchar('\t');
    160 				chcnt = cnt;
    161 			}
    162 			endcol += maxlength;
    163 		}
    164 	}
    165 	if (chcnt)
    166 		(void)putchar('\n');
    167 }
    168 
    169 static void
    170 r_columnate(void)
    171 {
    172 	int base, chcnt, cnt, col, endcol, numcols, numrows, row;
    173 
    174 	numcols = termwidth / maxlength;
    175 	numrows = entries / numcols;
    176 	if (entries % numcols)
    177 		++numrows;
    178 
    179 	for (row = 0; row < numrows; ++row) {
    180 		endcol = maxlength;
    181 		for (base = row, chcnt = col = 0; col < numcols; ++col) {
    182 			chcnt += printf("%s", list[base]);
    183 			if ((base += numrows) >= entries)
    184 				break;
    185 			while ((cnt = ((chcnt + TAB) & ~(TAB - 1))) <= endcol) {
    186 				(void)putchar('\t');
    187 				chcnt = cnt;
    188 			}
    189 			endcol += maxlength;
    190 		}
    191 		(void)putchar('\n');
    192 	}
    193 }
    194 
    195 static void
    196 print(void)
    197 {
    198 	int cnt;
    199 	char **lp;
    200 
    201 	for (cnt = entries, lp = list; cnt--; ++lp)
    202 		(void)printf("%s\n", *lp);
    203 }
    204 
    205 typedef struct _tbl {
    206 	char **list;
    207 	int cols, *len;
    208 } TBL;
    209 #define	DEFCOLS	25
    210 
    211 static void
    212 maketbl(void)
    213 {
    214 	TBL *t;
    215 	int coloff, cnt;
    216 	char *p, **lp;
    217 	int *lens, *nlens, maxcols;
    218 	TBL *tbl;
    219 	char **cols, **ncols;
    220 
    221 	t = tbl = emalloc(entries * sizeof(TBL));
    222 	cols = emalloc((maxcols = DEFCOLS) * sizeof(char *));
    223 	lens = emalloc(maxcols * sizeof(int));
    224 	for (cnt = 0, lp = list; cnt < entries; ++cnt, ++lp, ++t) {
    225 		for (coloff = 0, p = *lp;
    226 		    (cols[coloff] = strtok(p, separator)) != NULL;
    227 		    p = NULL)
    228 			if (++coloff == maxcols) {
    229 				ncols = erealloc(cols, maxcols +
    230 				    DEFCOLS * sizeof(char *));
    231 				nlens = erealloc(lens, maxcols +
    232 				    DEFCOLS * sizeof(int));
    233 				cols = ncols;
    234 				lens = nlens;
    235 				(void)memset((char *)(void *)lens + maxcols *
    236 				    sizeof(int), 0, DEFCOLS * sizeof(int));
    237 				maxcols += DEFCOLS;
    238 			}
    239 		t->list = emalloc(coloff * sizeof(char *));
    240 		t->len = emalloc(coloff * sizeof(int));
    241 		for (t->cols = coloff; --coloff >= 0;) {
    242 			t->list[coloff] = cols[coloff];
    243 			t->len[coloff] = strlen(cols[coloff]);
    244 			if (t->len[coloff] > lens[coloff])
    245 				lens[coloff] = t->len[coloff];
    246 		}
    247 	}
    248 	for (cnt = 0, t = tbl; cnt < entries; ++cnt, ++t) {
    249 		for (coloff = 0; coloff < t->cols  - 1; ++coloff)
    250 			(void)printf("%s%*s", t->list[coloff],
    251 			    lens[coloff] - t->len[coloff] + 2, " ");
    252 		(void)printf("%s\n", t->list[coloff]);
    253 	}
    254 }
    255 
    256 #define	DEFNUM		1000
    257 #define	MAXLINELEN	(LINE_MAX + 1)
    258 
    259 static void
    260 input(FILE *fp)
    261 {
    262 	static int maxentry;
    263 	int len;
    264 	char *p, buf[MAXLINELEN];
    265 	char **n;
    266 
    267 	if (!list)
    268 		list = emalloc((maxentry = DEFNUM) * sizeof(char *));
    269 	while (fgets(buf, MAXLINELEN, fp)) {
    270 		for (p = buf; *p && isspace((unsigned char)*p); ++p);
    271 		if (!*p)
    272 			continue;
    273 		if (!(p = strchr(p, '\n'))) {
    274 			warnx("line too long");
    275 			eval = 1;
    276 			continue;
    277 		}
    278 		*p = '\0';
    279 		len = p - buf;
    280 		if (maxlength < len)
    281 			maxlength = len;
    282 		if (entries == maxentry) {
    283 			maxentry += DEFNUM;
    284 			n = erealloc(list, maxentry * sizeof(char *));
    285 			list = n;
    286 		}
    287 		list[entries++] = estrdup(buf);
    288 	}
    289 }
    290 
    291 static void *
    292 emalloc(size_t size)
    293 {
    294 	void *p;
    295 
    296 	if ((p = malloc(size)) == NULL)
    297 		err(1, "malloc");
    298 	(void)memset(p, 0, size);
    299 	return (p);
    300 }
    301 
    302 static void *
    303 erealloc(void *op, size_t size)
    304 {
    305 	void *p;
    306 
    307 	if ((p = realloc(op, size)) == NULL)
    308 		err(1, "realloc");
    309 	return p;
    310 }
    311 
    312 static char *
    313 estrdup(const char *str)
    314 {
    315 	char *p;
    316 
    317 	if ((p = strdup(str)) == NULL)
    318 		err(1, "strdup");
    319 	return p;
    320 }
    321 
    322 static void
    323 usage(void)
    324 {
    325 
    326 	(void)fprintf(stderr,
    327 	    "Usage: %s [-tx] [-c columns] [-s sep] [file ...]\n",
    328 	    getprogname());
    329 	exit(1);
    330 }
    331