ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/lam.c
(Generate patch)

Comparing ray/src/cal/lam.c (file contents):
Revision 1.11 by greg, Fri Jun 18 21:22:49 2010 UTC vs.
Revision 1.25 by greg, Tue Aug 13 16:31:35 2019 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines