src/cal/lam.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  lam.c - simple program to laminate files.
 *
 *      7/14/88         Greg Ward
 */

#include <stdio.h>

#define MAXFILE         16              /* maximum number of files */

#define MAXLINE         512             /* maximum input line */

FILE    *input[MAXFILE];
int     tabc[MAXFILE];
int     nfiles;

char    buf[MAXLINE];

main(argc, argv)
int     argc;
char    *argv[];
{
        register int    i;
        int     curtab;
        int     running;

        curtab = '\t';
        nfiles = 0;
        for (i = 1; i < argc; i++) {
                if (argv[i][0] == '-') {
                        switch (argv[i][1]) {
                        case 't':
                                curtab = argv[i][2];
                                break;
                        case '\0':
                                tabc[nfiles] = curtab;
                                input[nfiles++] = stdin;
                                break;
                        default:
                                fputs(argv[0], stderr);
                                fputs(": bad option\n", stderr);
                                exit(1);
                        }
                } else if (argv[i][0] == '!') {
                        tabc[nfiles] = curtab;
                        if ((input[nfiles++] = popen(argv[i]+1, "r")) == NULL) {
                                fputs(argv[i], stderr);
                                fputs(": cannot start command\n", stderr);
                                exit(1);
                        }
                } else {
                        tabc[nfiles] = curtab;
                        if ((input[nfiles++] = fopen(argv[i], "r")) == NULL) {
                                fputs(argv[i], stderr);
                                fputs(": cannot open file\n", stderr);
                                exit(1);
                        }
                }
                if (nfiles >= MAXFILE) {
                        fputs(argv[0], stderr);
                        fputs(": too many input streams\n", stderr);
                        exit(1);
                }
        }

        do {
                running = 0;
                for (i = 0; i < nfiles; i++) {
                        if (fgets(buf, MAXLINE, input[i]) != NULL) {
                                if (i)
                                        putchar(tabc[i]);
                                buf[strlen(buf)-1] = '\0';
                                fputs(buf, stdout);
                                running++;
                        }
                }
                if (running)
                        putchar('\n');
        } while (running);

        exit(0);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:20 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* lam.c - simple program to laminate files.
6			*
7			* 7/14/88 Greg Ward
8			*/
9
10			#include <stdio.h>
11
12			#define MAXFILE 16 /* maximum number of files */
13
14			#define MAXLINE 512 /* maximum input line */
15
16			FILE *input[MAXFILE];
17			int tabc[MAXFILE];
18			int nfiles;
19
20			char buf[MAXLINE];
21
22			main(argc, argv)
23			int argc;
24			char *argv[];
25			{
26			register int i;
27			int curtab;
28			int running;
29
30			curtab = '\t';
31			nfiles = 0;
32			for (i = 1; i < argc; i++) {
33			if (argv[i][0] == '-') {
34			switch (argv[i][1]) {
35			case 't':
36			curtab = argv[i][2];
37			break;
38			case '\0':
39			tabc[nfiles] = curtab;
40			input[nfiles++] = stdin;
41			break;
42			default:
43			fputs(argv[0], stderr);
44			fputs(": bad option\n", stderr);
45			exit(1);
46			}
47			} else if (argv[i][0] == '!') {
48			tabc[nfiles] = curtab;
49			if ((input[nfiles++] = popen(argv[i]+1, "r")) == NULL) {
50			fputs(argv[i], stderr);
51			fputs(": cannot start command\n", stderr);
52			exit(1);
53			}
54			} else {
55			tabc[nfiles] = curtab;
56			if ((input[nfiles++] = fopen(argv[i], "r")) == NULL) {
57			fputs(argv[i], stderr);
58			fputs(": cannot open file\n", stderr);
59			exit(1);
60			}
61			}
62			if (nfiles >= MAXFILE) {
63			fputs(argv[0], stderr);
64			fputs(": too many input streams\n", stderr);
65			exit(1);
66			}
67			}
68
69			do {
70			running = 0;
71			for (i = 0; i < nfiles; i++) {
72			if (fgets(buf, MAXLINE, input[i]) != NULL) {
73			if (i)
74			putchar(tabc[i]);
75			buf[strlen(buf)-1] = '\0';
76			fputs(buf, stdout);
77			running++;
78			}
79			}
80			if (running)
81			putchar('\n');
82			} while (running);
83
84			exit(0);
85			}