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.10 by greg, Fri Jun 18 01:12:57 2010 UTC vs.
Revision 1.19 by greg, Thu Jul 4 17:36:04 2019 UTC

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

Diff Legend

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