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

Comparing ray/src/rt/rc2.c (file contents):
Revision 2.14 by greg, Fri Aug 21 18:21:05 2015 UTC vs.
Revision 2.22 by greg, Tue Feb 7 16:48:14 2017 UTC

# Line 6 | Line 6 | static const char RCSid[] = "$Id$";
6   * File i/o and recovery
7   */
8  
9 + #include <ctype.h>
10 + #include "platform.h"
11   #include "rcontrib.h"
12   #include "resolu.h"
11 – #include <ctype.h>
13  
14   /* Close output stream and free record */
15   static void
# Line 161 | Line 162 | getostream(const char *ospec, const char *mname, int b
162                          if (waitflush > 0)
163                                  fflush(stdout);
164                          stdos.xr = xres; stdos.yr = yres;
165 < #if 0
165 > #ifdef getc_unlocked
166                          flockfile(stdout);      /* avoid lock/unlock overhead */
167   #endif
168                          using_stdout = 1;
# Line 183 | Line 184 | getostream(const char *ospec, const char *mname, int b
184                  sop = (STREAMOUT *)malloc(sizeof(STREAMOUT));
185                  if (sop == NULL)
186                          error(SYSTEM, "out of memory in getostream");
187 <                sop->outpipe = oname[0] == '!';
187 >                sop->outpipe = (oname[0] == '!');
188                  sop->reclen = 0;
189                  sop->ofp = NULL;                /* open iff noopen==0 */
190                  sop->xr = xres; sop->yr = yres;
# Line 193 | Line 194 | getostream(const char *ospec, const char *mname, int b
194                          errno = EEXIST;         /* file exists */
195                          goto openerr;
196                  }
197 +        } else if (noopen && outfmt == 'c' &&   /* stream exists to picture? */
198 +                        (sop->xr > 0) & (sop->yr > 0)) {
199 +                if (ofl & OF_BIN)
200 +                        return(NULL);           /* let caller offset bins */
201 +                sprintf(errmsg, "output '%s' not a valid picture", oname);
202 +                error(WARNING, errmsg);
203          }
204          if (!noopen && sop->ofp == NULL) {      /* open output stream */
205                  if (oname[0] == '!')            /* output to command */
# Line 203 | Line 210 | getostream(const char *ospec, const char *mname, int b
210                          goto openerr;
211                  if (outfmt != 'a')
212                          SET_FILE_BINARY(sop->ofp);
213 < #if 0
213 > #ifdef getc_unlocked
214                  flockfile(sop->ofp);            /* avoid lock/unlock overhead */
215   #endif
216                  if (accumulate > 0) {           /* global resolution */
# Line 261 | Line 268 | getvec(FVECT vec)
268                  }
269                  break;
270          case 'f':                                       /* binary float */
271 <                if (fread((char *)vf, sizeof(float), 3, stdin) != 3)
271 >                if (getbinary((char *)vf, sizeof(float), 3, stdin) != 3)
272                          return(-1);
273                  VCOPY(vec, vf);
274                  break;
275          case 'd':                                       /* binary double */
276 <                if (fread((char *)vd, sizeof(double), 3, stdin) != 3)
276 >                if (getbinary((char *)vd, sizeof(double), 3, stdin) != 3)
277                          return(-1);
278                  VCOPY(vec, vd);
279                  break;
# Line 302 | Line 309 | put_contrib(const DCOLOR cnt, FILE *fout)
309                          scalecolor(fv, sf);
310                  } else
311                          copycolor(fv, cnt);
312 <                fwrite(fv, sizeof(float), 3, fout);
312 >                putbinary(fv, sizeof(float), 3, fout);
313                  break;
314          case 'd':
315                  if (accumulate > 1) {
316                          DCOLOR  dv;
317                          copycolor(dv, cnt);
318                          scalecolor(dv, sf);
319 <                        fwrite(dv, sizeof(double), 3, fout);
319 >                        putbinary(dv, sizeof(double), 3, fout);
320                  } else
321 <                        fwrite(cnt, sizeof(double), 3, fout);
321 >                        putbinary(cnt, sizeof(double), 3, fout);
322                  break;
323          case 'c':
324                  if (accumulate > 1)
325                          setcolr(cv, sf*cnt[0], sf*cnt[1], sf*cnt[2]);
326                  else
327                          setcolr(cv, cnt[0], cnt[1], cnt[2]);
328 <                fwrite(cv, sizeof(cv), 1, fout);
328 >                putbinary(cv, sizeof(cv), 1, fout);
329                  break;
330          default:
331                  error(INTERNAL, "botched output format");
# Line 330 | Line 337 | put_contrib(const DCOLOR cnt, FILE *fout)
337   void
338   mod_output(MODCONT *mp)
339   {
340 <        STREAMOUT       *sop = getostream(mp->outspec, mp->modname, 0, 0);
340 >        STREAMOUT       *sop = getostream(mp->outspec, mp->modname, mp->bin0, 0);
341          int             j;
342  
343          put_contrib(mp->cbin[0], sop->ofp);
344          if (mp->nbins > 3 &&    /* minor optimization */
345 <                        sop == getostream(mp->outspec, mp->modname, 1, 0)) {
345 >                        sop == getostream(mp->outspec, mp->modname, mp->bin0+1, 0)) {
346                  for (j = 1; j < mp->nbins; j++)
347                          put_contrib(mp->cbin[j], sop->ofp);
348          } else {
349                  for (j = 1; j < mp->nbins; j++) {
350 <                        sop = getostream(mp->outspec, mp->modname, j, 0);
350 >                        sop = getostream(mp->outspec, mp->modname, mp->bin0+j, 0);
351                          put_contrib(mp->cbin[j], sop->ofp);
352                  }
353          }
# Line 393 | Line 400 | get_contrib(DCOLOR cnt, FILE *finp)
400          case 'a':
401                  return(fscanf(finp,"%lf %lf %lf",&cnt[0],&cnt[1],&cnt[2]) == 3);
402          case 'f':
403 <                if (fread(fv, sizeof(fv[0]), 3, finp) != 3)
403 >                if (getbinary(fv, sizeof(fv[0]), 3, finp) != 3)
404                          return(0);
405                  copycolor(cnt, fv);
406                  return(1);
407          case 'd':
408 <                return(fread(cnt, sizeof(cnt[0]), 3, finp) == 3);
408 >                return(getbinary(cnt, sizeof(cnt[0]), 3, finp) == 3);
409          case 'c':
410 <                if (fread(cv, sizeof(cv), 1, finp) != 1)
410 >                if (getbinary(cv, sizeof(cv), 1, finp) != 1)
411                          return(0);
412                  colr_color(fv, cv);
413                  copycolor(cnt, fv);
# Line 438 | Line 445 | reload_output()
445          char            *outvfmt;
446          LUENT           *oent;
447          int             xr, yr;
448 <        STREAMOUT       sout;
448 >        STREAMOUT       *sop;
449          DCOLOR          rgbv;
450  
451          if (outfmt == 'a')
# Line 451 | Line 458 | reload_output()
458                          error(USER, "cannot reload from stdout");
459                  if (mp->outspec[0] == '!')
460                          error(USER, "cannot reload from command");
461 <                for (j = 0; ; j++) {            /* load each modifier bin */
462 <                        ofl = ofname(oname, mp->outspec, mp->modname, j);
461 >                for (j = 0; j < mp->nbins; j++) { /* load each modifier bin */
462 >                        ofl = ofname(oname, mp->outspec, mp->modname, mp->bin0+j);
463                          if (ofl < 0)
464                                  error(USER, "bad output file specification");
465                          oent = lu_find(&ofiletab, oname);
466 <                        if (oent->data != NULL) {
467 <                                sout = *(STREAMOUT *)oent->data;
468 <                        } else {
469 <                                sout.reclen = 0;
470 <                                sout.outpipe = 0;
471 <                                sout.xr = xres; sout.yr = yres;
465 <                                sout.ofp = NULL;
466 <                        }
467 <                        if (sout.ofp == NULL) { /* open output as input */
468 <                                sout.ofp = fopen(oname, fmode);
469 <                                if (sout.ofp == NULL) {
470 <                                        if (j == mp->nbins)
471 <                                                break;  /* assume end of modifier */
466 >                        if (oent->data == NULL)
467 >                                error(INTERNAL, "unallocated stream in reload_output()");
468 >                        sop = (STREAMOUT *)oent->data;
469 >                        if (sop->ofp == NULL) { /* open output as input */
470 >                                sop->ofp = fopen(oname, fmode);
471 >                                if (sop->ofp == NULL) {
472                                          sprintf(errmsg, "missing reload file '%s'",
473                                                          oname);
474                                          error(WARNING, errmsg);
475                                          break;
476                                  }
477 < #if 0
478 <                                flockfile(sout.ofp);
477 > #ifdef getc_unlocked
478 >                                flockfile(sop->ofp);
479   #endif
480 <                                if (header && checkheader(sout.ofp, outvfmt, NULL) != 1) {
480 >                                if (header && checkheader(sop->ofp, outvfmt, NULL) != 1) {
481                                          sprintf(errmsg, "format mismatch for '%s'",
482                                                          oname);
483                                          error(USER, errmsg);
484                                  }
485 <                                if ((sout.xr > 0) & (sout.yr > 0) &&
486 <                                                (!fscnresolu(&xr, &yr, sout.ofp) ||
487 <                                                        (xr != sout.xr) |
488 <                                                        (yr != sout.yr))) {
485 >                                if ((sop->reclen == 1) & (sop->xr > 0) & (sop->yr > 0) &&
486 >                                                (!fscnresolu(&xr, &yr, sop->ofp) ||
487 >                                                        (xr != sop->xr) |
488 >                                                        (yr != sop->yr))) {
489                                          sprintf(errmsg, "resolution mismatch for '%s'",
490                                                          oname);
491                                          error(USER, errmsg);
492                                  }
493                          }
494                                                          /* read in RGB value */
495 <                        if (!get_contrib(rgbv, sout.ofp)) {
495 >                        if (!get_contrib(rgbv, sop->ofp)) {
496                                  if (!j) {
497 <                                        fclose(sout.ofp);
497 >                                        fclose(sop->ofp);
498                                          break;          /* ignore empty file */
499                                  }
500                                  if (j < mp->nbins) {
# Line 503 | Line 503 | reload_output()
503                                          error(USER, errmsg);
504                                  }
505                                  break;
506 <                        }
507 <                        if (j >= mp->nbins) {           /* check modifier size */
508 <                                sprintf(errmsg,
509 <                                "mismatched -bn setting for reloading '%s'",
510 <                                                modname[i]);
511 <                                error(USER, errmsg);
512 <                        }
513 <                                
506 >                        }                              
507                          copycolor(mp->cbin[j], rgbv);
515 –                        if (oent->key == NULL)          /* new file entry */
516 –                                oent->key = strcpy((char *)
517 –                                                malloc(strlen(oname)+1), oname);
518 –                        if (oent->data == NULL)
519 –                                oent->data = (char *)malloc(sizeof(STREAMOUT));
520 –                        *(STREAMOUT *)oent->data = sout;
508                  }
509          }
510          lu_doall(&ofiletab, &myclose, NULL);    /* close all files */
# Line 532 | Line 519 | myseeko(const LUENT *e, void *p)
519          off_t           nbytes = *(off_t *)p;
520          
521          if (sop->reclen > 1)
522 <                nbytes = nbytes * sop->reclen;
522 >                nbytes *= (off_t)sop->reclen;
523          if (fseeko(sop->ofp, nbytes, SEEK_CUR) < 0) {
524                  sprintf(errmsg, "seek error on file '%s'", e->key);
525                  error(SYSTEM, errmsg);
# Line 553 | Line 540 | recover_output()
540          int             ofl;
541          char            oname[1024];
542          LUENT           *oent;
543 <        STREAMOUT       sout;
543 >        STREAMOUT       *sop;
544          off_t           nvals;
545          int             xr, yr;
546  
# Line 582 | Line 569 | recover_output()
569                          error(USER, "cannot recover from stdout");
570                  if (mp->outspec[0] == '!')
571                          error(USER, "cannot recover from command");
572 <                for (j = 0; ; j++) {            /* check each bin's file */
573 <                        ofl = ofname(oname, mp->outspec, mp->modname, j);
572 >                for (j = 0; j < mp->nbins; j++) { /* check each bin's file */
573 >                        ofl = ofname(oname, mp->outspec, mp->modname, mp->bin0+j);
574                          if (ofl < 0)
575                                  error(USER, "bad output file specification");
576                          oent = lu_find(&ofiletab, oname);
577 <                        if (oent->data != NULL) {
578 <                                sout = *(STREAMOUT *)oent->data;
579 <                        } else {
580 <                                sout.reclen = 0;
594 <                                sout.outpipe = 0;
595 <                                sout.ofp = NULL;
596 <                        }
597 <                        if (sout.ofp != NULL) { /* already open? */
577 >                        if (oent->data == NULL)
578 >                                error(INTERNAL, "unallocated stream in recover_output()");
579 >                        sop = (STREAMOUT *)oent->data;
580 >                        if (sop->ofp != NULL) { /* already open? */
581                                  if (ofl & OF_BIN)
582                                          continue;
583                                  break;
584                          }
585                                                  /* open output */
586 <                        sout.ofp = fopen(oname, "rb+");
587 <                        if (sout.ofp == NULL) {
605 <                                if (j == mp->nbins)
606 <                                        break;  /* assume end of modifier */
586 >                        sop->ofp = fopen(oname, "rb+");
587 >                        if (sop->ofp == NULL) {
588                                  sprintf(errmsg, "missing recover file '%s'",
589                                                  oname);
590                                  error(WARNING, errmsg);
591 +                                lastout = 0;
592                                  break;
593                          }
594 <                        nvals = lseek(fileno(sout.ofp), 0, SEEK_END);
594 >                        nvals = lseek(fileno(sop->ofp), 0, SEEK_END);
595                          if (nvals <= 0) {
596                                  lastout = 0;    /* empty output, quit here */
597 <                                fclose(sout.ofp);
597 >                                fclose(sop->ofp);
598                                  break;
599                          }
600 <                        if (!sout.reclen) {
619 <                                if (!(ofl & OF_BIN)) {
620 <                                        sprintf(errmsg,
621 <                                                "need -bn to recover file '%s'",
622 <                                                        oname);
623 <                                        error(USER, errmsg);
624 <                                }
625 <                                recsiz = outvsiz;
626 <                        } else
627 <                                recsiz = outvsiz * sout.reclen;
600 >                        recsiz = outvsiz * sop->reclen;
601  
602 <                        lseek(fileno(sout.ofp), 0, SEEK_SET);
603 <                        if (header && checkheader(sout.ofp, outvfmt, NULL) != 1) {
602 >                        lseek(fileno(sop->ofp), 0, SEEK_SET);
603 >                        if (header && checkheader(sop->ofp, outvfmt, NULL) != 1) {
604                                  sprintf(errmsg, "format mismatch for '%s'",
605                                                  oname);
606                                  error(USER, errmsg);
607                          }
608 <                        sout.xr = xres; sout.yr = yres;
609 <                        if ((sout.xr > 0) & (sout.yr > 0) &&
610 <                                        (!fscnresolu(&xr, &yr, sout.ofp) ||
611 <                                                (xr != sout.xr) |
639 <                                                (yr != sout.yr))) {
608 >                        if ((sop->reclen == 1) & (sop->xr > 0) & (sop->yr > 0) &&
609 >                                        (!fscnresolu(&xr, &yr, sop->ofp) ||
610 >                                                (xr != sop->xr) |
611 >                                                (yr != sop->yr))) {
612                                  sprintf(errmsg, "resolution mismatch for '%s'",
613                                                  oname);
614                                  error(USER, errmsg);
615                          }
616 <                        nvals = (nvals - (off_t)ftell(sout.ofp)) / recsiz;
616 >                        nvals = (nvals - (off_t)ftell(sop->ofp)) / recsiz;
617                          if ((lastout < 0) | (nvals < lastout))
618                                  lastout = nvals;
647 –                        if (oent->key == NULL)  /* new entry */
648 –                                oent->key = strcpy((char *)
649 –                                                malloc(strlen(oname)+1), oname);
650 –                        if (oent->data == NULL)
651 –                                oent->data = (char *)malloc(sizeof(STREAMOUT));
652 –                        *(STREAMOUT *)oent->data = sout;
619                          if (!(ofl & OF_BIN))
620                                  break;          /* no bin separation */
621                  }
622                  if (!lastout) {                 /* empty output */
623                          error(WARNING, "no previous data to recover");
624 <                        lu_done(&ofiletab);     /* reclose all outputs */
624 >                                                /* reclose all outputs */
625 >                        lu_doall(&ofiletab, &myclose, NULL);
626                          return;
660 –                }
661 –                if (j > mp->nbins) {            /* check modifier size */
662 –                        sprintf(errmsg,
663 –                                "mismatched -bn setting for recovering '%s'",
664 –                                        modname[i]);
665 –                        error(USER, errmsg);
627                  }
628          }
629          if (lastout < 0) {

Diff Legend

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