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

Comparing ray/src/common/header.c (file contents):
Revision 2.37 by greg, Wed Aug 14 19:52:39 2019 UTC vs.
Revision 2.48 by greg, Mon Mar 21 17:03:51 2022 UTC

# Line 31 | Line 31 | static const char      RCSid[] = "$Id$";
31  
32   #include  "tiff.h"      /* for int32 */
33   #include  "rtio.h"
34 + #include  "color.h"
35   #include  "resolu.h"
36  
37   #define  MAXLINE        2048
# Line 57 | Line 58 | newheader(             /* identifying line of information header
58   {
59          fputs(HDRSTR, fp);
60          fputs(s, fp);
61 <        putc('\n', fp);
61 >        fputc('\n', fp);
62   }
63  
64  
# Line 167 | Line 168 | printargs(             /* print arguments to a file */
168          FILE  *fp
169   )
170   {
171 + #if defined(_WIN32) || defined(_WIN64)
172 +        extern char     *fixargv0(char *arg0);
173 +        char            myav0[128];
174 +                                /* clean up Windows executable path */
175 +        if (ac-- <= 0) return;
176 +        fputs(fixargv0(strcpy(myav0, *av++)), fp);
177 +        fputc(ac ? ' ' : '\n', fp);
178 + #endif
179          while (ac-- > 0) {
180                  fputword(*av++, fp);
181                  fputc(ac ? ' ' : '\n', fp);
# Line 182 | Line 191 | formatval(                     /* get format value (return true if forma
191   {
192          const char  *cp = FMTSTR;
193          char  *r = fmt;
194 <
194 >                                /* check against format string */
195          while (*cp) if (*cp++ != *s++) return(0);
196          while (isspace(*s)) s++;
197          if (!*s) return(0);
198 <        if (r == NULL) return(1);
199 <        do
198 >        if (r == NULL)          /* just checking if format? */
199 >                return(1);
200 >        do                      /* copy format ID */
201                  *r++ = *s++;
202 <        while (*s && !isspace(*s) && r-fmt < MAXFMTLEN-1);
203 <        *r = '\0';
202 >        while (*s && r-fmt < MAXFMTLEN-1);
203 >
204 >        do                      /* remove trailing white space */
205 >                *r-- = '\0';
206 >        while (r > fmt && isspace(*r));
207 >
208          return(1);
209   }
210  
# Line 201 | Line 215 | fputformat(            /* put out a format value */
215          FILE  *fp
216   )
217   {
218 +        int     align = 0;
219 +
220          fputs(FMTSTR, fp);
221          fputs(s, fp);
222 <        putc('\n', fp);
222 >                        /* pad to align binary type for mmap() */
223 >        if (globmatch(PICFMT, s))
224 >                align = 0;      /* not needed for picture data */
225 >        else if (!strncmp("float", s, 5))
226 >                align = sizeof(float);
227 >        else if (!strncmp("double", s, 6))
228 >                align = sizeof(double);
229 >        else if (!strncmp("16-bit", s, 6))
230 >                align = 2;
231 >        else if (!strncmp("32-bit", s, 6))
232 >                align = 4;
233 >        else if (!strncmp("64-bit", s, 6))
234 >                align = 8;
235 >        if (align) {
236 >                long    pos = ftell(fp);
237 >                if (pos >= 0) {
238 >                        pos = (pos + 2) % align;
239 >                        if (pos) align -= pos;
240 >                        else align = 0;
241 >                } else
242 >                        align = 0;
243 >        }
244 >        while (align-- > 0)
245 >                putc(' ', fp);
246 >        fputc('\n', fp);
247   }
248  
249  
# Line 299 | Line 339 | mycheck(                       /* check a header line for format info. */
339          struct check    *scp = (struct check *)cp;
340  
341          if (!formatval(scp->fs, s) && scp->fp != NULL)
342 <                fputs(s, scp->fp);
342 >                return(fputs(s, scp->fp));
343  
344          return(0);
345   }
# Line 328 | Line 368 | globmatch(                     /* check for match of s against pattern p
368                          while (*s++);
369                          return(0);
370                  case '[':                       /* character set */
371 <                        setmatch = *s == *++p;
371 >                        setmatch = (*s == *++p);
372                          if (!*p)
373                                  return(0);
374                          while (*++p != ']') {
375                                  if (!*p)
376                                          return(0);
377                                  if (*p == '-') {
378 <                                        setmatch += (p[-1] <= *s && *s <= p[1]);
378 >                                        setmatch += (p[-1] <= *s) & (*s <= p[1]);
379                                          if (!*++p)
380                                                  break;
381                                  } else
# Line 346 | Line 386 | globmatch(                     /* check for match of s against pattern p
386                          s++;
387                          break;
388                  case '\\':                      /* literal next */
389 <                        p++;
389 >                        if (!*++p)
390 >                                return(0);
391                  /* fall through */
392                  default:                        /* normal character */
393                          if (*p != *s)

Diff Legend

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