ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/lam.c
Revision: 1.24
Committed: Thu Jul 18 17:45:51 2019 UTC (4 years, 9 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.23: +5 -1 lines
Log Message: 
Made -f more flexible accepting upper-case letters (byte-swapping doesn't matter)

File Contents

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