3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
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.
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
35 static char copyright[] =
36 "@(#) Copyright (c) 1993\n\
37 The Regents of the University of California. All rights reserved.\n";
41 static char sccsid[] = "@(#)lam.c 8.1 (Berkeley) 6/6/93";
45 * lam - laminate files
46 * Author: John Kunze, UCB
54 #define BIGBUFSIZ 5 * BUFSIZ
56 struct openfile { /* open file structure */
57 FILE *fp; /* file pointer */
58 short eof; /* eof flag */
59 short pad; /* pad flag for missing columns */
60 char eol; /* end of line character */
61 char *sepstring; /* string to print before each line */
62 char *format; /* printf(3) style string spec. */
65 int morefiles; /* set by getargs(), changed by gatherline() */
66 int nofinalnl; /* normally append \n to each output line */
70 void error __P((char *, char *));
71 char *gatherline __P((struct openfile *));
72 void getargs __P((char *[]));
73 char *pad __P((struct openfile *));
80 register struct openfile *ip;
84 error("lam - laminate files", "");
87 for (ip = input; ip->fp != NULL; ip++)
88 linep = gatherline(ip);
92 fputs(ip->sepstring, stdout);
102 register struct openfile *ip = input;
105 static char fmtbuf[BUFSIZ];
109 P = S = F = T = 0; /* capitalized options */
110 while ((p = *++av) != NULL) {
111 if (*p != '-' || !p[1]) {
115 else if ((ip->fp = fopen(p, "r")) == NULL) {
121 ip->sepstring = (S ? (ip-1)->sepstring : "");
123 ip->format = ((P || F) ? (ip-1)->format : "%s");
125 ip->eol = (T ? (ip-1)->eol : '\n');
129 switch (*(c = ++p) | 040) {
131 if (*++p || (p = *++av))
134 error("Need string after -%s", c);
135 S = (*c == 'S' ? 1 : 0);
138 if (*++p || (p = *++av))
141 error("Need character after -%s", c);
142 T = (*c == 'T' ? 1 : 0);
147 P = (*c == 'P' ? 1 : 0);
149 F = (*c == 'F' ? 1 : 0);
150 if (*++p || (p = *++av)) {
151 fmtp += strlen(fmtp) + 1;
152 if (fmtp > fmtbuf + BUFSIZ)
153 error("No more format space", "");
154 sprintf(fmtp, "%%%ss", p);
158 error("Need string after -%s", c);
161 error("What do you mean by -%s?", c);
174 register char *p = ip->sepstring;
175 register char *lp = linep;
180 sprintf(lp, ip->format, "");
193 register char *lp = linep;
194 char *end = s + BUFSIZ;
198 for (p = s; (c = fgetc(ip->fp)) != EOF && p < end; p++)
199 if ((*p = c) == ip->eol)
212 sprintf(lp, ip->format, s);
221 fprintf(stderr, "lam: ");
222 fprintf(stderr, msg, s);
224 "\nUsage: lam [ -[fp] min.max ] [ -s sepstring ] [ -t c ] file ...\n");
225 if (strncmp("lam - ", msg, 6) == 0)
226 fprintf(stderr, "Options:\n\t%s\t%s\t%s\t%s\t%s",
227 "-f min.max field widths for file fragments\n",
228 "-p min.max like -f, but pad missing fragments\n",
229 "-s sepstring fragment separator\n",
230 "-t c input line terminator is c, no \\n after output lines\n",
231 "Capitalized options affect more than one file.\n");