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

Comparing src/cal/lam.c (file contents):
Revision 1.8 by greg, Wed Oct 5 05:20:50 2005 UTC vs.
Revision 1.23 by greg, Tue Jul 16 15:59:49 2019 UTC

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

Diff Legend

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