src/cal/lam.c

#ifndef lint
static const char       RCSid[] = "$Id: lam.c,v 1.5 2004/12/07 22:25:55 greg Exp $";
#endif
/*
 *  lam.c - simple program to laminate files.
 *
 *      7/14/88         Greg Ward
 */

#include <stdlib.h>
#include <string.h>
#include <stdio.h>

#include "platform.h"
#include "rtprocess.h"

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

#define MAXLINE         512             /* maximum input line */

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

char    buf[MAXLINE];

int
main(argc, argv)
int     argc;
char    *argv[];
{
        register int    i;
        char    *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)
                                        fputs(tabc[i], stdout);
                                buf[strlen(buf)-1] = '\0';
                                fputs(buf, stdout);
                                running++;
                        }
                }
                if (running)
                        putchar('\n');
        } while (running);

        exit(0);
}
Revision:	1.6
Committed:	Mon Jun 13 22:40:47 2005 UTC (19 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R7P2, rad3R7P1
Changes since 1.5:	+6 -6 lines
Log Message:	Changed rlam -t option to accept strings as well as tab characters
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	1.6	static const char RCSid[] = "$Id: lam.c,v 1.5 2004/12/07 22:25:55 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* lam.c - simple program to laminate files.
6			*
7			* 7/14/88 Greg Ward
8			*/
9
10	schorsch	1.2	#include <stdlib.h>
11			#include <string.h>
12	greg	1.1	#include <stdio.h>
13	schorsch	1.2
14			#include "platform.h"
15	schorsch	1.3	#include "rtprocess.h"
16	greg	1.1
17	greg	1.5	#define MAXFILE 32 /* maximum number of files */
18	greg	1.1
19			#define MAXLINE 512 /* maximum input line */
20
21			FILE *input[MAXFILE];
22	greg	1.6	char *tabc[MAXFILE];
23	greg	1.1	int nfiles;
24
25			char buf[MAXLINE];
26
27	schorsch	1.4	int
28	greg	1.1	main(argc, argv)
29			int argc;
30			char *argv[];
31			{
32			register int i;
33	greg	1.6	char *curtab;
34	greg	1.1	int running;
35
36	greg	1.6	curtab = "\t";
37	greg	1.1	nfiles = 0;
38			for (i = 1; i < argc; i++) {
39			if (argv[i][0] == '-') {
40			switch (argv[i][1]) {
41			case 't':
42	greg	1.6	curtab = argv[i]+2;
43	greg	1.1	break;
44			case '\0':
45			tabc[nfiles] = curtab;
46			input[nfiles++] = stdin;
47			break;
48			default:
49			fputs(argv[0], stderr);
50			fputs(": bad option\n", stderr);
51			exit(1);
52			}
53			} else if (argv[i][0] == '!') {
54			tabc[nfiles] = curtab;
55			if ((input[nfiles++] = popen(argv[i]+1, "r")) == NULL) {
56			fputs(argv[i], stderr);
57			fputs(": cannot start command\n", stderr);
58			exit(1);
59			}
60			} else {
61			tabc[nfiles] = curtab;
62			if ((input[nfiles++] = fopen(argv[i], "r")) == NULL) {
63			fputs(argv[i], stderr);
64			fputs(": cannot open file\n", stderr);
65			exit(1);
66			}
67			}
68			if (nfiles >= MAXFILE) {
69			fputs(argv[0], stderr);
70			fputs(": too many input streams\n", stderr);
71			exit(1);
72			}
73			}
74
75			do {
76			running = 0;
77			for (i = 0; i < nfiles; i++) {
78			if (fgets(buf, MAXLINE, input[i]) != NULL) {
79			if (i)
80	greg	1.6	fputs(tabc[i], stdout);
81	greg	1.1	buf[strlen(buf)-1] = '\0';
82			fputs(buf, stdout);
83			running++;
84			}
85			}
86			if (running)
87			putchar('\n');
88			} while (running);
89
90			exit(0);
91			}