ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/lam.c
Revision: 1.25
Committed: Tue Aug 13 16:31:35 2019 UTC (4 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad5R4, rad5R3, HEAD
Changes since 1.24: +3 -5 lines
Log Message: 
Windows cleaning (thanks to Nathaniel Jones for pointing out errors)

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 greg 1.25 static const char RCSid[] = "$Id: lam.c,v 1.24 2019/07/18 17:45:51 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 greg 1.7 #include <ctype.h>
11 schorsch 1.2
12 greg 1.25 #include "rtio.h"
13 schorsch 1.2 #include "platform.h"
14 greg 1.25 #include "paths.h"
15 greg 1.1
16 greg 1.7 #define MAXFILE 512 /* maximum number of files */
17 greg 1.1
18 greg 1.13 #define MAXLINE 65536 /* maximum input line */
19 greg 1.1
20     FILE *input[MAXFILE];
21 greg 1.7 int bytsiz[MAXFILE];
22 greg 1.6 char *tabc[MAXFILE];
23 greg 1.20 int nfiles = 0;
24 greg 1.1
25     char buf[MAXLINE];
26    
27 schorsch 1.4 int
28 greg 1.20 main(int argc, char *argv[])
29 greg 1.1 {
30 greg 1.18 long incnt = 0;
31 greg 1.11 int unbuff = 0;
32 greg 1.14 int binout = 0;
33 greg 1.18 char *curtab = "\t";
34     int curbytes = 0;
35     int puteol;
36 greg 1.11 int i;
37 greg 1.1
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.23 if (!*curtab) curtab = "\n";
44 greg 1.1 break;
45 greg 1.11 case 'u':
46     unbuff = !unbuff;
47     break;
48 greg 1.7 case 'i':
49     switch (argv[i][2]) {
50 greg 1.15 case 'n':
51     incnt = atol(argv[++i]);
52     break;
53 greg 1.7 case 'f':
54 greg 1.24 case 'F':
55 greg 1.7 curbytes = sizeof(float);
56     break;
57     case 'd':
58 greg 1.24 case 'D':
59 greg 1.7 curbytes = sizeof(double);
60     break;
61 greg 1.10 case 'i':
62 greg 1.24 case 'I':
63 greg 1.10 curbytes = sizeof(int);
64     break;
65 greg 1.7 case 'w':
66 greg 1.24 case 'W':
67 greg 1.10 curbytes = 2;
68     break;
69     case 'b':
70     curbytes = 1;
71 greg 1.7 break;
72     case 'a':
73 greg 1.12 curbytes = argv[i][3] ? -1 : 0;
74 greg 1.7 break;
75     default:
76     goto badopt;
77     }
78     if (isdigit(argv[i][3]))
79     curbytes *= atoi(argv[i]+3);
80 greg 1.19 curbytes += (curbytes == -1);
81     if (curbytes > MAXLINE) {
82 greg 1.7 fputs(argv[0], stderr);
83 greg 1.12 fputs(": input size too big\n", stderr);
84 greg 1.19 return(1);
85 greg 1.7 }
86 greg 1.19 if (curbytes > 0) {
87 greg 1.8 curtab = "";
88 greg 1.19 ++binout;
89 greg 1.14 }
90 greg 1.7 break;
91 greg 1.1 case '\0':
92     tabc[nfiles] = curtab;
93 greg 1.12 input[nfiles] = stdin;
94     if (curbytes > 0)
95     SET_FILE_BINARY(input[nfiles]);
96     bytsiz[nfiles++] = curbytes;
97 greg 1.1 break;
98 greg 1.7 badopt:;
99 greg 1.1 default:
100     fputs(argv[0], stderr);
101     fputs(": bad option\n", stderr);
102 greg 1.19 return(1);
103 greg 1.1 }
104     } else if (argv[i][0] == '!') {
105     tabc[nfiles] = curtab;
106 greg 1.9 if ((input[nfiles] = popen(argv[i]+1, "r")) == NULL) {
107 greg 1.1 fputs(argv[i], stderr);
108     fputs(": cannot start command\n", stderr);
109 greg 1.19 return(1);
110 greg 1.1 }
111 greg 1.12 if (curbytes > 0)
112 greg 1.9 SET_FILE_BINARY(input[nfiles]);
113 greg 1.12 bytsiz[nfiles++] = curbytes;
114 greg 1.1 } else {
115     tabc[nfiles] = curtab;
116 greg 1.9 if ((input[nfiles] = fopen(argv[i], "r")) == NULL) {
117 greg 1.1 fputs(argv[i], stderr);
118     fputs(": cannot open file\n", stderr);
119 greg 1.19 return(1);
120 greg 1.1 }
121 greg 1.12 if (curbytes > 0)
122 greg 1.9 SET_FILE_BINARY(input[nfiles]);
123 greg 1.12 bytsiz[nfiles++] = curbytes;
124 greg 1.1 }
125     if (nfiles >= MAXFILE) {
126     fputs(argv[0], stderr);
127     fputs(": too many input streams\n", stderr);
128 greg 1.19 return(1);
129 greg 1.1 }
130     }
131 greg 1.19 if (!nfiles) {
132     fputs(argv[0], stderr);
133     fputs(": no input streams\n", stderr);
134     return(1);
135     }
136 greg 1.14 if (binout) /* binary output? */
137     SET_FILE_BINARY(stdout);
138     #ifdef getc_unlocked /* avoid lock/unlock overhead */
139     for (i = nfiles; i--; )
140     flockfile(input[i]);
141     flockfile(stdout);
142     #endif
143 greg 1.15 puteol = 0; /* any ASCII output at all? */
144 greg 1.7 for (i = nfiles; i--; )
145 greg 1.19 puteol += (bytsiz[i] <= 0);
146 greg 1.16 do { /* main loop */
147 greg 1.1 for (i = 0; i < nfiles; i++) {
148 greg 1.19 if (bytsiz[i] > 0) { /* binary input */
149 greg 1.17 if (getbinary(buf, bytsiz[i], 1, input[i]) < 1)
150 greg 1.11 break;
151 greg 1.22 if (putbinary(buf, bytsiz[i], 1, stdout) != 1)
152     break;
153 greg 1.19 } else if (bytsiz[i] < 0) { /* multi-line input */
154     int n = -bytsiz[i];
155     while (n--) {
156     if (fgets(buf, MAXLINE, input[i]) == NULL)
157     break;
158     if ((i > 0) | (n < -bytsiz[i]-1))
159     fputs(tabc[i], stdout);
160     buf[strlen(buf)-1] = '\0';
161 greg 1.22 if (fputs(buf, stdout) == EOF)
162     break;
163 greg 1.19 }
164     if (n >= 0) /* fell short? */
165     break;
166     } else { /* single-line input */
167 greg 1.11 if (fgets(buf, MAXLINE, input[i]) == NULL)
168     break;
169 greg 1.1 if (i)
170 greg 1.6 fputs(tabc[i], stdout);
171 greg 1.1 buf[strlen(buf)-1] = '\0';
172 greg 1.22 if (fputs(buf, stdout) == EOF)
173     break;
174 greg 1.1 }
175     }
176 greg 1.11 if (i < nfiles)
177     break;
178     if (puteol)
179 greg 1.1 putchar('\n');
180 greg 1.11 if (unbuff)
181     fflush(stdout);
182 greg 1.16 } while (--incnt);
183 greg 1.21 /* check ending */
184 greg 1.22 if (fflush(stdout) == EOF) {
185     fputs(argv[0], stderr);
186     fputs(": write error on standard output\n", stderr);
187     return(1);
188     }
189 greg 1.21 if (incnt > 0) {
190     fputs(argv[0], stderr);
191     fputs(": warning: premature EOD\n", stderr);
192     }
193 greg 1.11 return(0);
194 greg 1.1 }