ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/lam.c
Revision: 1.7
Committed: Sun Sep 25 20:36:02 2005 UTC (18 years, 6 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.6: +53 -7 lines
Log Message:
Added -i option to allow rlam to work with binary input records

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: lam.c,v 1.6 2005/06/13 22:40:47 greg Exp $";
3 #endif
4 /*
5 * lam.c - simple program to laminate files.
6 *
7 * 7/14/88 Greg Ward
8 */
9
10 #include <stdlib.h>
11 #include <string.h>
12 #include <stdio.h>
13 #include <ctype.h>
14
15 #include "platform.h"
16 #include "rtprocess.h"
17
18 #define MAXFILE 512 /* maximum number of files */
19
20 #define MAXLINE 4096 /* maximum input line */
21
22 FILE *input[MAXFILE];
23 int bytsiz[MAXFILE];
24 char *tabc[MAXFILE];
25 int nfiles;
26
27 char buf[MAXLINE];
28
29 int
30 main(argc, argv)
31 int argc;
32 char *argv[];
33 {
34 register int i;
35 char *curtab;
36 int curbytes;
37 int running, puteol;
38
39 curtab = "\t";
40 curbytes = 0;
41 nfiles = 0;
42 for (i = 1; i < argc; i++) {
43 if (argv[i][0] == '-') {
44 switch (argv[i][1]) {
45 case 't':
46 curtab = argv[i]+2;
47 break;
48 case 'i':
49 switch (argv[i][2]) {
50 case 'f':
51 curbytes = sizeof(float);
52 break;
53 case 'd':
54 curbytes = sizeof(double);
55 break;
56 case 'w':
57 curbytes = sizeof(int);
58 break;
59 case 'a':
60 curbytes = argv[i][3] ? 1 : 0;
61 break;
62 default:
63 goto badopt;
64 }
65 if (isdigit(argv[i][3]))
66 curbytes *= atoi(argv[i]+3);
67 if (curbytes < 0 || curbytes > MAXLINE) {
68 fputs(argv[0], stderr);
69 fputs(": illegal input size\n", stderr);
70 exit(1);
71 }
72 break;
73 case '\0':
74 tabc[nfiles] = curtab;
75 bytsiz[nfiles] = curbytes;
76 input[nfiles++] = stdin;
77 break;
78 badopt:;
79 default:
80 fputs(argv[0], stderr);
81 fputs(": bad option\n", stderr);
82 exit(1);
83 }
84 } else if (argv[i][0] == '!') {
85 tabc[nfiles] = curtab;
86 bytsiz[nfiles] = curbytes;
87 if ((input[nfiles++] = popen(argv[i]+1, "r")) == NULL) {
88 fputs(argv[i], stderr);
89 fputs(": cannot start command\n", stderr);
90 exit(1);
91 }
92 } else {
93 tabc[nfiles] = curtab;
94 bytsiz[nfiles] = curbytes;
95 if ((input[nfiles++] = fopen(argv[i], "r")) == NULL) {
96 fputs(argv[i], stderr);
97 fputs(": cannot open file\n", stderr);
98 exit(1);
99 }
100 }
101 if (nfiles >= MAXFILE) {
102 fputs(argv[0], stderr);
103 fputs(": too many input streams\n", stderr);
104 exit(1);
105 }
106 }
107 puteol = 0; /* check for tab character */
108 for (i = nfiles; i--; )
109 if (isprint(tabc[i][0]) || tabc[i][0] == '\t') {
110 puteol++;
111 break;
112 }
113 do {
114 running = 0;
115 for (i = 0; i < nfiles; i++) {
116 if (bytsiz[i]) { /* binary file */
117 if (fread(buf, bytsiz[i], 1, input[i]) == 1) {
118 if (i)
119 fputs(tabc[i], stdout);
120 fwrite(buf, bytsiz[i], 1, stdout);
121 running++;
122 }
123 } else if (fgets(buf, MAXLINE, input[i]) != NULL) {
124 if (i)
125 fputs(tabc[i], stdout);
126 buf[strlen(buf)-1] = '\0';
127 fputs(buf, stdout);
128 puteol++;
129 running++;
130 }
131 }
132 if (running && puteol)
133 putchar('\n');
134 } while (running);
135
136 exit(0);
137 }