ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/lam.c
Revision: 1.23
Committed: Tue Jul 16 15:59:49 2019 UTC (4 years, 9 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.22: +2 -1 lines
Log Message: 
Made it so -t option sets newline if no character follows

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 greg 1.23 static const char RCSid[] = "$Id: lam.c,v 1.22 2019/07/05 15:04:20 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     curbytes = sizeof(float);
57     break;
58     case 'd':
59     curbytes = sizeof(double);
60     break;
61 greg 1.10 case 'i':
62     curbytes = sizeof(int);
63     break;
64 greg 1.7 case 'w':
65 greg 1.10 curbytes = 2;
66     break;
67     case 'b':
68     curbytes = 1;
69 greg 1.7 break;
70     case 'a':
71 greg 1.12 curbytes = argv[i][3] ? -1 : 0;
72 greg 1.7 break;
73     default:
74     goto badopt;
75     }
76     if (isdigit(argv[i][3]))
77     curbytes *= atoi(argv[i]+3);
78 greg 1.19 curbytes += (curbytes == -1);
79     if (curbytes > MAXLINE) {
80 greg 1.7 fputs(argv[0], stderr);
81 greg 1.12 fputs(": input size too big\n", stderr);
82 greg 1.19 return(1);
83 greg 1.7 }
84 greg 1.19 if (curbytes > 0) {
85 greg 1.8 curtab = "";
86 greg 1.19 ++binout;
87 greg 1.14 }
88 greg 1.7 break;
89 greg 1.1 case '\0':
90     tabc[nfiles] = curtab;
91 greg 1.12 input[nfiles] = stdin;
92     if (curbytes > 0)
93     SET_FILE_BINARY(input[nfiles]);
94     bytsiz[nfiles++] = curbytes;
95 greg 1.1 break;
96 greg 1.7 badopt:;
97 greg 1.1 default:
98     fputs(argv[0], stderr);
99     fputs(": bad option\n", stderr);
100 greg 1.19 return(1);
101 greg 1.1 }
102     } else if (argv[i][0] == '!') {
103     tabc[nfiles] = curtab;
104 greg 1.9 if ((input[nfiles] = popen(argv[i]+1, "r")) == NULL) {
105 greg 1.1 fputs(argv[i], stderr);
106     fputs(": cannot start command\n", stderr);
107 greg 1.19 return(1);
108 greg 1.1 }
109 greg 1.12 if (curbytes > 0)
110 greg 1.9 SET_FILE_BINARY(input[nfiles]);
111 greg 1.12 bytsiz[nfiles++] = curbytes;
112 greg 1.1 } else {
113     tabc[nfiles] = curtab;
114 greg 1.9 if ((input[nfiles] = fopen(argv[i], "r")) == NULL) {
115 greg 1.1 fputs(argv[i], stderr);
116     fputs(": cannot open file\n", stderr);
117 greg 1.19 return(1);
118 greg 1.1 }
119 greg 1.12 if (curbytes > 0)
120 greg 1.9 SET_FILE_BINARY(input[nfiles]);
121 greg 1.12 bytsiz[nfiles++] = curbytes;
122 greg 1.1 }
123     if (nfiles >= MAXFILE) {
124     fputs(argv[0], stderr);
125     fputs(": too many input streams\n", stderr);
126 greg 1.19 return(1);
127 greg 1.1 }
128     }
129 greg 1.19 if (!nfiles) {
130     fputs(argv[0], stderr);
131     fputs(": no input streams\n", stderr);
132     return(1);
133     }
134 greg 1.14 if (binout) /* binary output? */
135     SET_FILE_BINARY(stdout);
136     #ifdef getc_unlocked /* avoid lock/unlock overhead */
137     for (i = nfiles; i--; )
138     flockfile(input[i]);
139     flockfile(stdout);
140     #endif
141 greg 1.15 puteol = 0; /* any ASCII output at all? */
142 greg 1.7 for (i = nfiles; i--; )
143 greg 1.19 puteol += (bytsiz[i] <= 0);
144 greg 1.16 do { /* main loop */
145 greg 1.1 for (i = 0; i < nfiles; i++) {
146 greg 1.19 if (bytsiz[i] > 0) { /* binary input */
147 greg 1.17 if (getbinary(buf, bytsiz[i], 1, input[i]) < 1)
148 greg 1.11 break;
149 greg 1.22 if (putbinary(buf, bytsiz[i], 1, stdout) != 1)
150     break;
151 greg 1.19 } else if (bytsiz[i] < 0) { /* multi-line input */
152     int n = -bytsiz[i];
153     while (n--) {
154     if (fgets(buf, MAXLINE, input[i]) == NULL)
155     break;
156     if ((i > 0) | (n < -bytsiz[i]-1))
157     fputs(tabc[i], stdout);
158     buf[strlen(buf)-1] = '\0';
159 greg 1.22 if (fputs(buf, stdout) == EOF)
160     break;
161 greg 1.19 }
162     if (n >= 0) /* fell short? */
163     break;
164     } else { /* single-line input */
165 greg 1.11 if (fgets(buf, MAXLINE, input[i]) == NULL)
166     break;
167 greg 1.1 if (i)
168 greg 1.6 fputs(tabc[i], stdout);
169 greg 1.1 buf[strlen(buf)-1] = '\0';
170 greg 1.22 if (fputs(buf, stdout) == EOF)
171     break;
172 greg 1.1 }
173     }
174 greg 1.11 if (i < nfiles)
175     break;
176     if (puteol)
177 greg 1.1 putchar('\n');
178 greg 1.11 if (unbuff)
179     fflush(stdout);
180 greg 1.16 } while (--incnt);
181 greg 1.21 /* check ending */
182 greg 1.22 if (fflush(stdout) == EOF) {
183     fputs(argv[0], stderr);
184     fputs(": write error on standard output\n", stderr);
185     return(1);
186     }
187 greg 1.21 if (incnt > 0) {
188     fputs(argv[0], stderr);
189     fputs(": warning: premature EOD\n", stderr);
190     }
191 greg 1.11 return(0);
192 greg 1.1 }