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.12 by greg, Fri Jul 26 16:45:04 2013 UTC vs.
Revision 1.21 by greg, Fri Jul 5 00:46:23 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 +        long    incnt = 0;
33          int     unbuff = 0;
34 <        int     i;
35 <        char    *curtab;
36 <        int     curbytes;
34 >        int     binout = 0;
35 >        char    *curtab = "\t";
36 >        int     curbytes = 0;
37          int     puteol;
38 +        int     i;
39  
40 –        curtab = "\t";
41 –        curbytes = 0;
42 –        nfiles = 0;
40          for (i = 1; i < argc; i++) {
41                  if (argv[i][0] == '-') {
42                          switch (argv[i][1]) {
# Line 51 | Line 48 | char   *argv[];
48                                  break;
49                          case 'i':
50                                  switch (argv[i][2]) {
51 +                                case 'n':
52 +                                        incnt = atol(argv[++i]);
53 +                                        break;
54                                  case 'f':
55                                          curbytes = sizeof(float);
56                                          break;
# Line 74 | Line 74 | char   *argv[];
74                                  }
75                                  if (isdigit(argv[i][3]))
76                                          curbytes *= atoi(argv[i]+3);
77 <                                if (abs(curbytes) > MAXLINE) {
77 >                                curbytes += (curbytes == -1);
78 >                                if (curbytes > MAXLINE) {
79                                          fputs(argv[0], stderr);
80                                          fputs(": input size too big\n", stderr);
81 <                                        exit(1);
81 >                                        return(1);
82                                  }
83 <                                if (curbytes)
83 >                                if (curbytes > 0) {
84                                          curtab = "";
85 +                                        ++binout;
86 +                                }
87                                  break;
88                          case '\0':
89                                  tabc[nfiles] = curtab;
90                                  input[nfiles] = stdin;
91                                  if (curbytes > 0)
92                                          SET_FILE_BINARY(input[nfiles]);
90 –                                else
91 –                                        curbytes = -curbytes;
93                                  bytsiz[nfiles++] = curbytes;
94                                  break;
95                          badopt:;
96                          default:
97                                  fputs(argv[0], stderr);
98                                  fputs(": bad option\n", stderr);
99 <                                exit(1);
99 >                                return(1);
100                          }
101                  } else if (argv[i][0] == '!') {
102                          tabc[nfiles] = curtab;
103                          if ((input[nfiles] = popen(argv[i]+1, "r")) == NULL) {
104                                  fputs(argv[i], stderr);
105                                  fputs(": cannot start command\n", stderr);
106 <                                exit(1);
106 >                                return(1);
107                          }
108                          if (curbytes > 0)
109                                  SET_FILE_BINARY(input[nfiles]);
109 –                        else
110 –                                curbytes = -curbytes;
110                          bytsiz[nfiles++] = curbytes;
111                  } else {
112                          tabc[nfiles] = curtab;
113                          if ((input[nfiles] = fopen(argv[i], "r")) == NULL) {
114                                  fputs(argv[i], stderr);
115                                  fputs(": cannot open file\n", stderr);
116 <                                exit(1);
116 >                                return(1);
117                          }
118                          if (curbytes > 0)
119                                  SET_FILE_BINARY(input[nfiles]);
121 –                        else
122 –                                curbytes = -curbytes;
120                          bytsiz[nfiles++] = curbytes;
121                  }
122                  if (nfiles >= MAXFILE) {
123                          fputs(argv[0], stderr);
124                          fputs(": too many input streams\n", stderr);
125 <                        exit(1);
125 >                        return(1);
126                  }
127          }
128 <        puteol = 0;                             /* check for ASCII output */
128 >        if (!nfiles) {
129 >                fputs(argv[0], stderr);
130 >                fputs(": no input streams\n", stderr);
131 >                return(1);
132 >        }
133 >        if (binout)                             /* binary output? */
134 >                SET_FILE_BINARY(stdout);
135 > #ifdef getc_unlocked                            /* avoid lock/unlock overhead */
136          for (i = nfiles; i--; )
137 <                if (!bytsiz[i] || isprint(tabc[i][0]) || tabc[i][0] == '\t') {
138 <                        puteol++;
139 <                        break;
140 <                }
141 <        for ( ; ; ) {                           /* main loop */
137 >                flockfile(input[i]);
138 >        flockfile(stdout);
139 > #endif
140 >        puteol = 0;                             /* any ASCII output at all? */
141 >        for (i = nfiles; i--; )
142 >                puteol += (bytsiz[i] <= 0);
143 >        do {                                    /* main loop */
144                  for (i = 0; i < nfiles; i++) {
145 <                        if (bytsiz[i]) {                /* binary file */
146 <                                if (fread(buf, bytsiz[i], 1, input[i]) < 1)
145 >                        if (bytsiz[i] > 0) {            /* binary input */
146 >                                if (getbinary(buf, bytsiz[i], 1, input[i]) < 1)
147                                          break;
148 <                                if (i)
149 <                                        fputs(tabc[i], stdout);
150 <                                fwrite(buf, bytsiz[i], 1, stdout);
151 <                        } else {
148 >                                putbinary(buf, bytsiz[i], 1, stdout);
149 >                        } else if (bytsiz[i] < 0) {     /* multi-line input */
150 >                                int     n = -bytsiz[i];
151 >                                while (n--) {
152 >                                        if (fgets(buf, MAXLINE, input[i]) == NULL)
153 >                                                break;
154 >                                        if ((i > 0) | (n < -bytsiz[i]-1))
155 >                                                fputs(tabc[i], stdout);
156 >                                        buf[strlen(buf)-1] = '\0';
157 >                                        fputs(buf, stdout);
158 >                                }
159 >                                if (n >= 0)             /* fell short? */
160 >                                        break;
161 >                        } else {                        /* single-line input */
162                                  if (fgets(buf, MAXLINE, input[i]) == NULL)
163                                          break;
164                                  if (i)
# Line 157 | Line 173 | char   *argv[];
173                          putchar('\n');
174                  if (unbuff)
175                          fflush(stdout);
176 +        } while (--incnt);
177 +                                                        /* check ending */
178 +        if (incnt > 0) {
179 +                fputs(argv[0], stderr);
180 +                fputs(": warning: premature EOD\n", stderr);
181          }
182          return(0);
183   }

Diff Legend

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