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.9 by greg, Sun May 7 15:44:28 2006 UTC vs.
Revision 1.14 by greg, Sun Mar 9 20:07:27 2014 UTC

# Line 17 | Line 17 | static const char      RCSid[] = "$Id$";
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];
# Line 31 | Line 31 | main(argc, argv)
31   int     argc;
32   char    *argv[];
33   {
34 <        register int    i;
34 >        int     unbuff = 0;
35 >        int     binout = 0;
36 >        int     i;
37          char    *curtab;
38          int     curbytes;
39 <        int     running, puteol;
39 >        int     puteol;
40  
41          curtab = "\t";
42          curbytes = 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 'f':
# Line 53 | Line 58 | char   *argv[];
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 >                                if (abs(curbytes) > MAXLINE) {
79                                          fputs(argv[0], stderr);
80 <                                        fputs(": illegal input size\n", stderr);
80 >                                        fputs(": input size too big\n", stderr);
81                                          exit(1);
82                                  }
83 <                                if (curbytes)
83 >                                if (curbytes) {
84                                          curtab = "";
85 +                                        ++binout;
86 +                                }
87                                  break;
88                          case '\0':
89                                  tabc[nfiles] = curtab;
90 <                                bytsiz[nfiles] = curbytes;
91 <                                input[nfiles++] = stdin;
90 >                                input[nfiles] = stdin;
91 >                                if (curbytes > 0)
92 >                                        SET_FILE_BINARY(input[nfiles]);
93 >                                else
94 >                                        curbytes = -curbytes;
95 >                                bytsiz[nfiles++] = curbytes;
96                                  break;
97                          badopt:;
98                          default:
# Line 85 | Line 102 | char   *argv[];
102                          }
103                  } else if (argv[i][0] == '!') {
104                          tabc[nfiles] = curtab;
88 –                        bytsiz[nfiles] = curbytes;
105                          if ((input[nfiles] = popen(argv[i]+1, "r")) == NULL) {
106                                  fputs(argv[i], stderr);
107                                  fputs(": cannot start command\n", stderr);
108                                  exit(1);
109                          }
110 <                        if (bytsiz[nfiles])
110 >                        if (curbytes > 0)
111                                  SET_FILE_BINARY(input[nfiles]);
112 <                        ++nfiles;
112 >                        else
113 >                                curbytes = -curbytes;
114 >                        bytsiz[nfiles++] = curbytes;
115                  } else {
116                          tabc[nfiles] = curtab;
99 –                        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);
121                          }
122 <                        if (bytsiz[nfiles])
122 >                        if (curbytes > 0)
123                                  SET_FILE_BINARY(input[nfiles]);
124 <                        ++nfiles;
124 >                        else
125 >                                curbytes = -curbytes;
126 >                        bytsiz[nfiles++] = curbytes;
127                  }
128                  if (nfiles >= MAXFILE) {
129                          fputs(argv[0], stderr);
# Line 112 | Line 131 | char   *argv[];
131                          exit(1);
132                  }
133          }
134 <        puteol = 0;                             /* check for tab character */
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') {
138 >                flockfile(input[i]);
139 >        flockfile(stdout);
140 > #endif
141 >        puteol = 0;                             /* check for ASCII output */
142 >        for (i = nfiles; i--; )
143 >                if (!bytsiz[i] || isprint(tabc[i][0]) || tabc[i][0] == '\t') {
144                          puteol++;
145                          break;
146                  }
147 <        do {
122 <                running = 0;
147 >        for ( ; ; ) {                           /* 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)
127 <                                                fputs(tabc[i], stdout);
128 <                                        fwrite(buf, bytsiz[i], 1, stdout);
129 <                                        running++;
130 <                                }
131 <                        } else if (fgets(buf, MAXLINE, input[i]) != NULL) {
150 >                                if (fread(buf, bytsiz[i], 1, input[i]) < 1)
151 >                                        break;
152                                  if (i)
153                                          fputs(tabc[i], stdout);
154 +                                fwrite(buf, bytsiz[i], 1, stdout);
155 +                        } else {
156 +                                if (fgets(buf, MAXLINE, input[i]) == NULL)
157 +                                        break;
158 +                                if (i)
159 +                                        fputs(tabc[i], stdout);
160                                  buf[strlen(buf)-1] = '\0';
161                                  fputs(buf, stdout);
136 –                                puteol++;
137 –                                running++;
162                          }
163                  }
164 <                if (running && puteol)
164 >                if (i < nfiles)
165 >                        break;
166 >                if (puteol)
167                          putchar('\n');
168 <        } while (running);
169 <
170 <        exit(0);
168 >                if (unbuff)
169 >                        fflush(stdout);
170 >        }
171 >        return(0);
172   }

Diff Legend

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