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

Comparing src/hd/rhoptimize.c (file contents):
Revision 3.5 by gwlarson, Thu Nov 12 15:07:49 1998 UTC vs.
Revision 3.17 by greg, Wed Oct 22 02:06:34 2003 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1998 Silicon Graphics, Inc. */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ SGI";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   * Optimize holodeck for quick access.
6   *
7   *      11/4/98         Greg Ward Larson
8   */
9  
13 – #include "holo.h"
14 –
10   #include <signal.h>
11 + #include <string.h>
12  
13 + #include "platform.h"
14 + #include "rtprocess.h" /* getpid() */
15 + #include "holo.h"
16 +
17   #ifndef BKBSIZE
18   #define BKBSIZE         256             /* beam clump size (kilobytes) */
19   #endif
20  
21   char    *progname;
22   char    tempfile[128];
23 + int     dupchecking = 0;
24  
24 – extern char     *rindex();
25 – extern int      quit();
25   extern long     rhinitcopy();
26  
27  
# Line 35 | Line 34 | char   *argv[];
34          long    nextipos, lastopos, thisopos;
35  
36          progname = argv[0];
37 <        if (argc < 2 | argc > 3) {
38 <                fprintf(stderr, "Usage: %s input.hdk [output.hdk]\n", progname);
37 >        argv++; argc--;                 /* duplicate checking flag? */
38 >        if (argc > 1 && !strcmp(argv[0], "-u")) {
39 >                dupchecking++;
40 >                argv++; argc--;
41 >        }
42 >        if ((argc < 1) | (argc > 2)) {
43 >                fprintf(stderr, "Usage: %s [-u] input.hdk [output.hdk]\n",
44 >                                progname);
45                  exit(1);
46          }
47 <        inpname = argv[1];
48 <        if (argc == 3)                  /* use given output file */
49 <                outname = argv[2];
47 >        inpname = argv[0];              /* get input file */
48 >        argv++; argc--;
49 >        if (argc == 1)                  /* use given output file */
50 >                outname = argv[0];
51          else {                          /* else use temporary file */
52                  if (access(inpname, R_OK|W_OK) < 0) {   /* check permissions */
53                          sprintf(errmsg, "cannot access \"%s\"", inpname);
54                          error(SYSTEM, errmsg);
55                  }
56                  strcpy(tempfile, inpname);
57 <                if ((outname = rindex(tempfile, '/')) != NULL)
57 >                if ((outname = strrchr(tempfile, '/')) != NULL)
58                          outname++;
59                  else
60                          outname = tempfile;
# Line 60 | Line 66 | char   *argv[];
66          lastopos = 0L;                  /* copy sections one by one */
67          while (nextipos != 0L) {
68                                          /* set input position; get next */
69 <                lseek(hdfd[0], nextipos, 0);
69 >                lseek(hdfd[0], (off_t)nextipos, SEEK_SET);
70                  read(hdfd[0], (char *)&nextipos, sizeof(nextipos));
71                                          /* get output position; set last */
72 <                thisopos = lseek(hdfd[1], 0L, 2);
72 >                thisopos = lseek(hdfd[1], (off_t)0, SEEK_END);
73                  if (lastopos > 0L) {
74 <                        lseek(hdfd[1], lastopos, 0);
74 >                        lseek(hdfd[1], (off_t)lastopos, SEEK_SET);
75                          write(hdfd[1], (char *)&thisopos, sizeof(thisopos));
76 <                        lseek(hdfd[1], 0L, 2);
76 >                        lseek(hdfd[1], (off_t)0, SEEK_END);
77                  }
78                  lastopos = thisopos;
79                  thisopos = 0L;          /* write place holder */
# Line 99 | Line 105 | char   *infn, *outfn;
105                  sprintf(errmsg, "cannot open \"%s\" for reading", infn);
106                  error(SYSTEM, errmsg);
107          }
108 +        if (access(outfn, F_OK) == 0) {
109 +                sprintf(errmsg, "output file \"%s\" already exists!", outfn);
110 +                error(USER, errmsg);
111 +        }
112          if ((outfp = fopen(outfn, "w+")) == NULL) {
113                  sprintf(errmsg, "cannot open \"%s\" for writing", outfn);
114                  error(SYSTEM, errmsg);
# Line 133 | Line 143 | char   *infn, *outfn;
143   }
144  
145  
146 + int
147 + nuniq(rva, n)                   /* sort unique rays to front of beam list */
148 + register RAYVAL *rva;
149 + int     n;
150 + {
151 +        register int    i, j;
152 +        RAYVAL  rtmp;
153 +
154 +        for (j = 0; j < n; j++)
155 +                for (i = j+1; i < n; i++)
156 +                        if ( rva[i].d == rva[j].d &&
157 +                                        rva[i].r[0][0]==rva[j].r[0][0] &&
158 +                                        rva[i].r[0][1]==rva[j].r[0][1] &&
159 +                                        rva[i].r[1][0]==rva[j].r[1][0] &&
160 +                                        rva[i].r[1][1]==rva[j].r[1][1] ) {
161 +                                n--;            /* swap duplicate with end */
162 +                                rtmp = *(rva+n);
163 +                                *(rva+n) = *(rva+i);
164 +                                *(rva+i) = rtmp;
165 +                                i--;            /* recheck one we swapped */
166 +                        }
167 +        return(n);
168 + }
169 +
170 +
171   static BEAMI    *beamdir;
172  
173   static int
174   bpcmp(b1p, b2p)                 /* compare beam positions on disk */
175   int     *b1p, *b2p;
176   {
177 <        register long   pdif = beamdir[*b1p].fo - beamdir[*b2p].fo;
177 >        register off_t  pdif = beamdir[*b1p].fo - beamdir[*b2p].fo;
178  
144 –        if (pdif > 0L) return(1);
179          if (pdif < 0L) return(-1);
180 <        return(0);
180 >        return(pdif > 0L);
181   }
182  
183   static HOLO     *hout;
# Line 155 | Line 189 | int    *bq, nb;
189   {
190          register int    i;
191          register BEAM   *bp;
192 +        int     n;
193  
194          beamdir = hp->bi;               /* sort based on file position */
195 <        qsort((char *)bq, nb, sizeof(*bq), bpcmp);
195 >        qsort((void *)bq, nb, sizeof(*bq), bpcmp);
196                                          /* transfer and free each beam */
197          for (i = 0; i < nb; i++) {
198                  bp = hdgetbeam(hp, bq[i]);
199 <                bcopy((char *)hdbray(bp), (char *)hdnewrays(hout,bq[i],bp->nrm),
200 <                                bp->nrm*sizeof(RAYVAL));
199 >                DCHECK(bp==NULL, CONSISTENCY, "empty beam in xferclump");
200 >                n = dupchecking ? nuniq(hdbray(bp),bp->nrm) : bp->nrm;
201 >                memcpy((void *)hdnewrays(hout,bq[i],n),(void *)hdbray(bp),
202 >                                n*sizeof(RAYVAL));
203                  hdfreebeam(hp, bq[i]);
204          }
205 <        hdflush(hout);                  /* write & free clump */
205 >        hdfreebeam(hout, 0);            /* write & free clump */
206          return(0);
207   }
208  
# Line 185 | Line 222 | int    ifd, ofd;
222   }
223  
224  
225 + void
226   eputs(s)                        /* put error message to stderr */
227   register char  *s;
228   {
# Line 204 | Line 242 | register char  *s;
242   }
243  
244  
245 + void
246   quit(code)                      /* exit the program gracefully */
247   int     code;
248   {

Diff Legend

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