ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/lam.c
Revision: 1.13
Committed: Tue Feb 11 17:05:00 2014 UTC (10 years, 1 month ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.12: +2 -2 lines
Log Message:
Increased maximum line length to 64KB

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 greg 1.13 static const char RCSid[] = "$Id: lam.c,v 1.12 2013/07/26 16:45:04 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 schorsch 1.3 #include "rtprocess.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.1 int nfiles;
26    
27     char buf[MAXLINE];
28    
29 schorsch 1.4 int
30 greg 1.1 main(argc, argv)
31     int argc;
32     char *argv[];
33     {
34 greg 1.11 int unbuff = 0;
35     int i;
36 greg 1.6 char *curtab;
37 greg 1.7 int curbytes;
38 greg 1.11 int puteol;
39 greg 1.1
40 greg 1.6 curtab = "\t";
41 greg 1.7 curbytes = 0;
42 greg 1.1 nfiles = 0;
43     for (i = 1; i < argc; i++) {
44     if (argv[i][0] == '-') {
45     switch (argv[i][1]) {
46     case 't':
47 greg 1.6 curtab = argv[i]+2;
48 greg 1.1 break;
49 greg 1.11 case 'u':
50     unbuff = !unbuff;
51     break;
52 greg 1.7 case 'i':
53     switch (argv[i][2]) {
54     case 'f':
55     curbytes = sizeof(float);
56     break;
57     case 'd':
58     curbytes = sizeof(double);
59     break;
60 greg 1.10 case 'i':
61     curbytes = sizeof(int);
62     break;
63 greg 1.7 case 'w':
64 greg 1.10 curbytes = 2;
65     break;
66     case 'b':
67     curbytes = 1;
68 greg 1.7 break;
69     case 'a':
70 greg 1.12 curbytes = argv[i][3] ? -1 : 0;
71 greg 1.7 break;
72     default:
73     goto badopt;
74     }
75     if (isdigit(argv[i][3]))
76     curbytes *= atoi(argv[i]+3);
77 greg 1.12 if (abs(curbytes) > MAXLINE) {
78 greg 1.7 fputs(argv[0], stderr);
79 greg 1.12 fputs(": input size too big\n", stderr);
80 greg 1.7 exit(1);
81     }
82 greg 1.8 if (curbytes)
83     curtab = "";
84 greg 1.7 break;
85 greg 1.1 case '\0':
86     tabc[nfiles] = curtab;
87 greg 1.12 input[nfiles] = stdin;
88     if (curbytes > 0)
89     SET_FILE_BINARY(input[nfiles]);
90     else
91     curbytes = -curbytes;
92     bytsiz[nfiles++] = curbytes;
93 greg 1.1 break;
94 greg 1.7 badopt:;
95 greg 1.1 default:
96     fputs(argv[0], stderr);
97     fputs(": bad option\n", stderr);
98     exit(1);
99     }
100     } else if (argv[i][0] == '!') {
101     tabc[nfiles] = curtab;
102 greg 1.9 if ((input[nfiles] = popen(argv[i]+1, "r")) == NULL) {
103 greg 1.1 fputs(argv[i], stderr);
104     fputs(": cannot start command\n", stderr);
105     exit(1);
106     }
107 greg 1.12 if (curbytes > 0)
108 greg 1.9 SET_FILE_BINARY(input[nfiles]);
109 greg 1.12 else
110     curbytes = -curbytes;
111     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     exit(1);
118     }
119 greg 1.12 if (curbytes > 0)
120 greg 1.9 SET_FILE_BINARY(input[nfiles]);
121 greg 1.12 else
122     curbytes = -curbytes;
123     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     exit(1);
129     }
130     }
131 greg 1.11 puteol = 0; /* check for ASCII output */
132 greg 1.7 for (i = nfiles; i--; )
133 greg 1.11 if (!bytsiz[i] || isprint(tabc[i][0]) || tabc[i][0] == '\t') {
134 greg 1.7 puteol++;
135     break;
136     }
137 greg 1.11 for ( ; ; ) { /* main loop */
138 greg 1.1 for (i = 0; i < nfiles; i++) {
139 greg 1.7 if (bytsiz[i]) { /* binary file */
140 greg 1.11 if (fread(buf, bytsiz[i], 1, input[i]) < 1)
141     break;
142     if (i)
143     fputs(tabc[i], stdout);
144     fwrite(buf, bytsiz[i], 1, stdout);
145     } else {
146     if (fgets(buf, MAXLINE, input[i]) == NULL)
147     break;
148 greg 1.1 if (i)
149 greg 1.6 fputs(tabc[i], stdout);
150 greg 1.1 buf[strlen(buf)-1] = '\0';
151     fputs(buf, stdout);
152     }
153     }
154 greg 1.11 if (i < nfiles)
155     break;
156     if (puteol)
157 greg 1.1 putchar('\n');
158 greg 1.11 if (unbuff)
159     fflush(stdout);
160     }
161     return(0);
162 greg 1.1 }