/* Copyright (c) 1983 Regents of the University of California */
static char sccsid
[] = "@(#)lam.c 4.4 (Berkeley) %G%";
* Author: John Kunze, Office of Comp. Affairs, UCB
#define BIGBUFSIZ 5 * BUFSIZ
struct openfile
{ /* open file structure */
FILE *fp
; /* file pointer */
short eof
; /* eof flag */
short pad
; /* pad flag for missing columns */
char eol
; /* end of line character */
char *sepstring
; /* string to print before each line */
char *format
; /* printf(3) style string spec. */
int morefiles
; /* set by getargs(), changed by gatherline() */
int nofinalnl
; /* normally append \n to each output line */
register struct openfile
*ip
;
error("lam - laminate files", "");
for (ip
= input
; ip
->fp
!= NULL
; ip
++)
fputs(ip
->sepstring
, stdout
);
register struct openfile
*ip
= input
;
static char fmtbuf
[BUFSIZ
];
P
= S
= F
= T
= 0; /* capitalized options */
if (*p
!= '-' || !p
[1]) {
else if ((ip
->fp
= fopen(p
, "r")) == NULL
) {
ip
->sepstring
= (S
? (ip
-1)->sepstring
: "");
ip
->format
= (F
? (ip
-1)->format
: "%s");
ip
->eol
= (T
? (ip
-1)->eol
: '\n');
switch (*(c
= ++p
) | 040) {
error("Need string after -%s", c
);
error("Need character after -%s", c
);
if (*++p
|| (p
= *++av
)) {
if (fmtp
> fmtbuf
+ BUFSIZ
)
error("No more format space", "");
sprintf(fmtp
, "%%%ss", p
);
error("Need string after -%s", c
);
error("What do you mean by -%s?", c
);
register char *lp
= linep
;
sprintf(lp
, ip
->format
, "");
for (p
= s
; (c
= fgetc(ip
->fp
)) != EOF
&& p
< end
; p
++)
sprintf(lp
, ip
->format
, s
);
fprintf(stderr
, "lam: ");
fprintf(stderr
, "\nUsage: lam [ -[fp] min.max ] [ -s sepstring ] [ -t c ] file ...\n");
if (strncmp("lam - ", msg
, 6) == 0)
fprintf(stderr
, "Options:\n\t%s\t%s\t%s\t%s\t%s",
"-f min.max field widths for file fragments\n",
"-p min.max like -f, but pad missing fragments\n",
"-s sepstring fragment separator\n",
"-t c input line terminator is c, no \\n after output lines\n",
"Capitalized options affect more than one file.\n");