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