Home | History | Annotate | Line # | Download | only in paste
paste.c revision 1.8
      1  1.8       dsl /*	$NetBSD: paste.c,v 1.8 2006/03/31 17:20:07 dsl Exp $	*/
      2  1.3       tls 
      3  1.1       cgd /*
      4  1.3       tls  * Copyright (c) 1989, 1993
      5  1.3       tls  *	The Regents of the University of California.  All rights reserved.
      6  1.1       cgd  *
      7  1.1       cgd  * This code is derived from software contributed to Berkeley by
      8  1.1       cgd  * Adam S. Moskowitz of Menlo Consulting.
      9  1.1       cgd  *
     10  1.1       cgd  * Redistribution and use in source and binary forms, with or without
     11  1.1       cgd  * modification, are permitted provided that the following conditions
     12  1.1       cgd  * are met:
     13  1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     14  1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     15  1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     16  1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     17  1.1       cgd  *    documentation and/or other materials provided with the distribution.
     18  1.7       agc  * 3. Neither the name of the University nor the names of its contributors
     19  1.1       cgd  *    may be used to endorse or promote products derived from this software
     20  1.1       cgd  *    without specific prior written permission.
     21  1.1       cgd  *
     22  1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     23  1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     24  1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     25  1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     26  1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     27  1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     28  1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     29  1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     30  1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     31  1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     32  1.1       cgd  * SUCH DAMAGE.
     33  1.1       cgd  */
     34  1.1       cgd 
     35  1.4     lukem #include <sys/cdefs.h>
     36  1.1       cgd #ifndef lint
     37  1.8       dsl __COPYRIGHT("@(#) Copyright (c) 1989, 1993\n"
     38  1.8       dsl 	"The Regents of the University of California.  All rights reserved.\n");
     39  1.1       cgd #endif /* not lint */
     40  1.1       cgd 
     41  1.1       cgd #ifndef lint
     42  1.3       tls /*static char sccsid[] = "from: @(#)paste.c	8.1 (Berkeley) 6/6/93";*/
     43  1.8       dsl __RCSID("$NetBSD: paste.c,v 1.8 2006/03/31 17:20:07 dsl Exp $");
     44  1.1       cgd #endif /* not lint */
     45  1.1       cgd 
     46  1.1       cgd #include <sys/types.h>
     47  1.4     lukem #include <err.h>
     48  1.1       cgd #include <errno.h>
     49  1.1       cgd #include <limits.h>
     50  1.1       cgd #include <stdio.h>
     51  1.4     lukem #include <stdlib.h>
     52  1.6  wsanchez #include <unistd.h>
     53  1.1       cgd #include <string.h>
     54  1.5     perry #include <unistd.h>
     55  1.1       cgd 
     56  1.8       dsl void	parallel(char **);
     57  1.8       dsl void	sequential(char **);
     58  1.8       dsl int	tr(char *);
     59  1.8       dsl void	usage(void);
     60  1.4     lukem 
     61  1.1       cgd char *delim;
     62  1.1       cgd int delimcnt;
     63  1.1       cgd 
     64  1.4     lukem int
     65  1.8       dsl main(int argc, char **argv)
     66  1.1       cgd {
     67  1.1       cgd 	int ch, seq;
     68  1.1       cgd 
     69  1.1       cgd 	seq = 0;
     70  1.4     lukem 	while ((ch = getopt(argc, argv, "d:s")) != -1)
     71  1.8       dsl 		switch (ch) {
     72  1.1       cgd 		case 'd':
     73  1.1       cgd 			delimcnt = tr(delim = optarg);
     74  1.1       cgd 			break;
     75  1.1       cgd 		case 's':
     76  1.1       cgd 			seq = 1;
     77  1.1       cgd 			break;
     78  1.1       cgd 		case '?':
     79  1.1       cgd 		default:
     80  1.1       cgd 			usage();
     81  1.1       cgd 		}
     82  1.1       cgd 	argc -= optind;
     83  1.1       cgd 	argv += optind;
     84  1.1       cgd 
     85  1.1       cgd 	if (!delim) {
     86  1.1       cgd 		delimcnt = 1;
     87  1.1       cgd 		delim = "\t";
     88  1.1       cgd 	}
     89  1.1       cgd 
     90  1.1       cgd 	if (seq)
     91  1.1       cgd 		sequential(argv);
     92  1.1       cgd 	else
     93  1.1       cgd 		parallel(argv);
     94  1.1       cgd 	exit(0);
     95  1.1       cgd }
     96  1.1       cgd 
     97  1.1       cgd typedef struct _list {
     98  1.1       cgd 	struct _list *next;
     99  1.1       cgd 	FILE *fp;
    100  1.1       cgd 	int cnt;
    101  1.1       cgd 	char *name;
    102  1.1       cgd } LIST;
    103  1.1       cgd 
    104  1.4     lukem void
    105  1.8       dsl parallel(char **argv)
    106  1.1       cgd {
    107  1.4     lukem 	LIST *lp;
    108  1.4     lukem 	int cnt;
    109  1.4     lukem 	char ch, *p;
    110  1.1       cgd 	LIST *head, *tmp;
    111  1.1       cgd 	int opencnt, output;
    112  1.4     lukem 	char buf[_POSIX2_LINE_MAX + 1];
    113  1.1       cgd 
    114  1.4     lukem 	tmp = NULL;
    115  1.4     lukem 	for (cnt = 0, head = NULL; (p = *argv) != NULL; ++argv, ++cnt) {
    116  1.4     lukem 		if (!(lp = (LIST *)malloc((u_int)sizeof(LIST))))
    117  1.4     lukem 			err(1, "malloc");
    118  1.1       cgd 		if (p[0] == '-' && !p[1])
    119  1.1       cgd 			lp->fp = stdin;
    120  1.4     lukem 		else if (!(lp->fp = fopen(p, "r")))
    121  1.4     lukem 			err(1, "%s", p);
    122  1.1       cgd 		lp->next = NULL;
    123  1.1       cgd 		lp->cnt = cnt;
    124  1.1       cgd 		lp->name = p;
    125  1.1       cgd 		if (!head)
    126  1.1       cgd 			head = tmp = lp;
    127  1.1       cgd 		else {
    128  1.1       cgd 			tmp->next = lp;
    129  1.1       cgd 			tmp = lp;
    130  1.1       cgd 		}
    131  1.1       cgd 	}
    132  1.1       cgd 
    133  1.1       cgd 	for (opencnt = cnt; opencnt;) {
    134  1.1       cgd 		for (output = 0, lp = head; lp; lp = lp->next) {
    135  1.1       cgd 			if (!lp->fp) {
    136  1.1       cgd 				if (output && lp->cnt &&
    137  1.1       cgd 				    (ch = delim[(lp->cnt - 1) % delimcnt]))
    138  1.1       cgd 					putchar(ch);
    139  1.1       cgd 				continue;
    140  1.1       cgd 			}
    141  1.1       cgd 			if (!fgets(buf, sizeof(buf), lp->fp)) {
    142  1.1       cgd 				if (!--opencnt)
    143  1.1       cgd 					break;
    144  1.1       cgd 				lp->fp = NULL;
    145  1.1       cgd 				if (output && lp->cnt &&
    146  1.1       cgd 				    (ch = delim[(lp->cnt - 1) % delimcnt]))
    147  1.1       cgd 					putchar(ch);
    148  1.1       cgd 				continue;
    149  1.1       cgd 			}
    150  1.4     lukem 			if (!(p = strchr(buf, '\n')))
    151  1.4     lukem 				err(1, "%s: input line too long.", lp->name);
    152  1.1       cgd 			*p = '\0';
    153  1.1       cgd 			/*
    154  1.1       cgd 			 * make sure that we don't print any delimiters
    155  1.1       cgd 			 * unless there's a non-empty file.
    156  1.1       cgd 			 */
    157  1.1       cgd 			if (!output) {
    158  1.1       cgd 				output = 1;
    159  1.1       cgd 				for (cnt = 0; cnt < lp->cnt; ++cnt)
    160  1.4     lukem 					if ((ch = delim[cnt % delimcnt]) != 0)
    161  1.1       cgd 						putchar(ch);
    162  1.4     lukem 			} else if ((ch = delim[(lp->cnt - 1) % delimcnt]) != 0)
    163  1.1       cgd 				putchar(ch);
    164  1.1       cgd 			(void)printf("%s", buf);
    165  1.1       cgd 		}
    166  1.1       cgd 		if (output)
    167  1.1       cgd 			putchar('\n');
    168  1.1       cgd 	}
    169  1.1       cgd }
    170  1.1       cgd 
    171  1.4     lukem void
    172  1.8       dsl sequential(char **argv)
    173  1.1       cgd {
    174  1.4     lukem 	FILE *fp;
    175  1.4     lukem 	int cnt;
    176  1.4     lukem 	char ch, *p, *dp;
    177  1.1       cgd 	char buf[_POSIX2_LINE_MAX + 1];
    178  1.1       cgd 
    179  1.4     lukem 	for (; (p = *argv) != NULL; ++argv) {
    180  1.1       cgd 		if (p[0] == '-' && !p[1])
    181  1.1       cgd 			fp = stdin;
    182  1.1       cgd 		else if (!(fp = fopen(p, "r"))) {
    183  1.4     lukem 			warn("%s", p);
    184  1.1       cgd 			continue;
    185  1.1       cgd 		}
    186  1.1       cgd 		if (fgets(buf, sizeof(buf), fp)) {
    187  1.1       cgd 			for (cnt = 0, dp = delim;;) {
    188  1.4     lukem 				if (!(p = strchr(buf, '\n')))
    189  1.4     lukem 					err(1, "%s: input line too long.",
    190  1.1       cgd 					    *argv);
    191  1.1       cgd 				*p = '\0';
    192  1.1       cgd 				(void)printf("%s", buf);
    193  1.1       cgd 				if (!fgets(buf, sizeof(buf), fp))
    194  1.1       cgd 					break;
    195  1.4     lukem 				if ((ch = *dp++) != 0)
    196  1.1       cgd 					putchar(ch);
    197  1.1       cgd 				if (++cnt == delimcnt) {
    198  1.1       cgd 					dp = delim;
    199  1.1       cgd 					cnt = 0;
    200  1.1       cgd 				}
    201  1.1       cgd 			}
    202  1.1       cgd 			putchar('\n');
    203  1.1       cgd 		}
    204  1.1       cgd 		if (fp != stdin)
    205  1.1       cgd 			(void)fclose(fp);
    206  1.1       cgd 	}
    207  1.1       cgd }
    208  1.1       cgd 
    209  1.4     lukem int
    210  1.8       dsl tr(char *arg)
    211  1.1       cgd {
    212  1.4     lukem 	int cnt;
    213  1.4     lukem 	char ch, *p;
    214  1.1       cgd 
    215  1.1       cgd 	for (p = arg, cnt = 0; (ch = *p++); ++arg, ++cnt)
    216  1.1       cgd 		if (ch == '\\')
    217  1.1       cgd 			switch(ch = *p++) {
    218  1.1       cgd 			case 'n':
    219  1.1       cgd 				*arg = '\n';
    220  1.1       cgd 				break;
    221  1.1       cgd 			case 't':
    222  1.1       cgd 				*arg = '\t';
    223  1.1       cgd 				break;
    224  1.1       cgd 			case '0':
    225  1.1       cgd 				*arg = '\0';
    226  1.1       cgd 				break;
    227  1.1       cgd 			default:
    228  1.1       cgd 				*arg = ch;
    229  1.1       cgd 				break;
    230  1.1       cgd 		} else
    231  1.1       cgd 			*arg = ch;
    232  1.1       cgd 
    233  1.4     lukem 	if (!cnt)
    234  1.4     lukem 		errx(1, "no delimiters specified.");
    235  1.1       cgd 	return(cnt);
    236  1.1       cgd }
    237  1.1       cgd 
    238  1.4     lukem void
    239  1.1       cgd usage()
    240  1.1       cgd {
    241  1.1       cgd 	(void)fprintf(stderr, "paste: [-s] [-d delimiters] file ...\n");
    242  1.1       cgd 	exit(1);
    243  1.1       cgd }
    244