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

Comparing ray/src/common/modobject.c (file contents):
Revision 1.2 by greg, Mon Jul 29 15:47:46 1991 UTC vs.
Revision 2.16 by greg, Mon Dec 9 17:57:44 2013 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1986 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   *  Routines for tracking object modifiers
6 + *
7 + *  External symbols declared in object.h
8   */
9  
10 + #include "copyright.h"
11 +
12   #include  "standard.h"
13  
14   #include  "object.h"
# Line 15 | Line 16 | static char SCCSid[] = "$SunId$ LBL";
16   #include  "otypes.h"
17  
18  
18 – extern int  (*addobjnotify[])();        /* people to notify of new objects */
19 –
19   static struct ohtab {
20          int  hsiz;                      /* current table size */
21          OBJECT  *htab;                  /* table, if allocated */
22   }  modtab = {100, NULL}, objtab = {1000, NULL}; /* modifiers and objects */
23  
24 + static int  otndx(char *, struct ohtab *);
25  
26 +
27 + OBJECT
28 + objndx(                         /* get object number from pointer */
29 +        OBJREC  *op
30 + )
31 + {
32 +        int  i, j;
33 +
34 +        for (i = nobjects>>OBJBLKSHFT; i >= 0; i--) {
35 +                j = op - objblock[i];
36 +                if ((j >= 0) & (j < OBJBLKSIZ))
37 +                        return((i<<OBJBLKSHFT) + j);
38 +        }
39 +        return(OVOID);
40 + }
41 +
42 +
43 + OBJECT
44 + lastmod(                        /* find modifier definition before obj */
45 +        OBJECT  obj,
46 +        char  *mname
47 + )
48 + {
49 +        OBJREC  *op;
50 +        int  i;
51 +
52 +        i = modifier(mname);            /* try hash table first */
53 +        if ((obj == OVOID) | (i < obj))
54 +                return(i);
55 +        for (i = obj; i-- > 0; ) {      /* need to search */
56 +                op = objptr(i);
57 +                if (ismodifier(op->otype) && op->oname[0] == mname[0] &&
58 +                                        !strcmp(op->oname, mname))
59 +                        return(i);
60 +        }
61 +        return(OVOID);
62 + }
63 +
64 +
65 + OBJECT
66 + modifier(                       /* get a modifier number from its name */
67 +        char  *mname
68 + )
69 + {
70 +        int  ndx;
71 +
72 +        ndx = otndx(mname, &modtab);
73 +        return(modtab.htab[ndx]);
74 + }
75 +
76 +
77   #ifdef  GETOBJ
78 < int
79 < object(oname)                   /* get an object number from its name */
80 < char  *oname;
78 > OBJECT
79 > object(                         /* get an object number from its name */
80 >        char  *oname
81 > )
82   {
83 <        register int  ndx;
83 >        int  ndx;
84  
85          ndx = otndx(oname, &objtab);
86          return(objtab.htab[ndx]);
# Line 37 | Line 89 | char  *oname;
89  
90  
91   int
92 < modifier(mname)                 /* get a modifier number from its name */
93 < char  *mname;
92 > eqreal(                         /* are two real values close enough to equal? */
93 >        double  d1,
94 >        double  d2
95 > )
96   {
97 <        register int  ndx;
98 <
99 <        ndx = otndx(mname, &modtab);
46 <        return(modtab.htab[ndx]);
97 >        if (d2 != 0.0)
98 >                d1 = d1/d2 - 1.0;
99 >        return((-FTINY <= d1) & (d1 <= FTINY));
100   }
101  
102  
103 < insertobject(obj)               /* insert new object into our list */
104 < register OBJECT  obj;
103 > int
104 > eqobjects(                      /* check if two objects are equal */
105 >        OBJECT  obj1,
106 >        OBJECT  obj2
107 > )
108   {
109 <        register int  i;
109 >        OBJREC  *op1, *op2;
110 >        int     i;
111  
112 < #ifdef  GETOBJ
113 <        i = otndx(objptr(obj)->oname, &objtab);
114 <        objtab.htab[i] = obj;
112 >        while (obj1 != obj2) {
113 >                if (obj1 == OVOID)
114 >                        return(0);
115 >                if (obj2 == OVOID)
116 >                        return(0);
117 >                op1 = objptr(obj1);
118 >                op2 = objptr(obj2);
119 >                if (op1->otype != op2->otype)
120 >                        return(0);
121 >                if (op1->oargs.nsargs != op2->oargs.nsargs)
122 >                        return(0);
123 >                if (op1->oargs.nfargs != op2->oargs.nfargs)
124 >                        return(0);
125 > #ifdef IARGS
126 >                if (op1->oargs.niargs != op2->oargs.niargs)
127 >                        return(0);
128 >                for (i = op1->oargs.niargs; i-- > 0; )
129 >                        if (op1->oargs.iarg[i] != op2->oargs.iarg[i])
130 >                                return(0);
131   #endif
132 +                for (i = op1->oargs.nfargs; i-- > 0; )
133 +                        if (!eqreal(op1->oargs.farg[i], op2->oargs.farg[i]))
134 +                                return(0);
135 +                for (i = op1->oargs.nsargs; i-- > 0; )
136 +                        if (strcmp(op1->oargs.sarg[i], op2->oargs.sarg[i]))
137 +                                return(0);
138 +                i = 0;
139 +                switch (op1->otype) {   /* special cases (KEEP CONSISTENT!) */
140 +                case MOD_ALIAS:
141 +                case MAT_ILLUM:
142 +                case MAT_MIRROR:
143 +                        i = (op1->oargs.nsargs > 0);
144 +                        break;
145 +                case MIX_FUNC:
146 +                case MIX_DATA:
147 +                case MIX_TEXT:
148 +                case MIX_PICT:
149 +                        i = 2*(op1->oargs.nsargs >= 2);
150 +                        break;
151 +                case MAT_CLIP:
152 +                        i = op1->oargs.nsargs;
153 +                        break;
154 +                }
155 +                while (i-- > 0)         /* check modifier references */
156 +                        if (!eqobjects( lastmod(obj1, op1->oargs.sarg[i]),
157 +                                        lastmod(obj2, op2->oargs.sarg[i]) ))
158 +                                return(0);
159 +                obj1 = op1->omod;
160 +                obj2 = op2->omod;
161 +        }
162 +        return(1);
163 + }
164 +
165 +
166 + void
167 + insertobject(                   /* insert new object into our list */
168 +        OBJECT  obj
169 + )
170 + {
171 +        int  i;
172 +
173          if (ismodifier(objptr(obj)->otype)) {
174                  i = otndx(objptr(obj)->oname, &modtab);
175 +                if (eqobjects(obj, modtab.htab[i]))
176 +                        return; /* don't index if same as earlier def. */
177                  modtab.htab[i] = obj;
178          }
179 + #ifdef  GETOBJ
180 +        else {
181 +                i = otndx(objptr(obj)->oname, &objtab);
182 +                objtab.htab[i] = obj;
183 +        }
184 + #endif
185          for (i = 0; addobjnotify[i] != NULL; i++)
186                  (*addobjnotify[i])(obj);
187   }
188  
189  
190 + void
191 + clearobjndx(void)               /* clear object hash tables */
192 + {
193 +        if (modtab.htab != NULL) {
194 +                free((void *)modtab.htab);
195 +                modtab.htab = NULL;
196 +                modtab.hsiz = 100;
197 +        }
198 +        if (objtab.htab != NULL) {
199 +                free((void *)objtab.htab);
200 +                objtab.htab = NULL;
201 +                objtab.hsiz = 100;
202 +        }
203 + }
204 +
205 +
206   static int
207 < nexthsiz(oldsiz)                /* return next hash table size */
208 < int  oldsiz;
207 > nexthsiz(                       /* return next hash table size */
208 >        int  oldsiz
209 > )
210   {
211          static int  hsiztab[] = {
212                  251, 509, 1021, 2039, 4093, 8191, 16381, 0
213          };
214 <        register int  *hsp;
214 >        int  *hsp;
215  
216          for (hsp = hsiztab; *hsp; hsp++)
217                  if (*hsp > oldsiz)
# Line 82 | Line 221 | int  oldsiz;
221  
222  
223   static int
224 < shash(s)                        /* hash a string */
225 < register char  *s;
224 > otndx(                          /* get object table index for name */
225 >        char  *name,
226 >        struct ohtab  *tab
227 > )
228   {
88 –        register int  h = 0;
89 –
90 –        while (*s)
91 –                h = (h<<1 & 0x7fff) ^ *s++;
92 –        return(h);
93 – }
94 –
95 –
96 – static int
97 – otndx(name, tab)                /* get object table index for name */
98 – char  *name;
99 – register struct ohtab  *tab;
100 – {
229          OBJECT  *oldhtab;
230          int  hval, i;
231 <        register int  ndx;
231 >        int  ndx;
232  
233          if (tab->htab == NULL) {                /* new table */
234                  tab->hsiz = nexthsiz(tab->hsiz);
# Line 115 | Line 243 | register struct ohtab  *tab;
243          hval = shash(name);
244   tryagain:
245          for (i = 0; i < tab->hsiz; i++) {
246 <                ndx = (hval + i*i) % tab->hsiz;
246 >                ndx = (hval + (unsigned long)i*i) % tab->hsiz;
247                  if (tab->htab[ndx] == OVOID ||
248                                  !strcmp(objptr(tab->htab[ndx])->oname, name))
249                          return(ndx);
# Line 129 | Line 257 | tryagain:
257                          i = otndx(objptr(oldhtab[ndx])->oname, tab);
258                          tab->htab[i] = oldhtab[ndx];
259                  }
260 <        free((char *)oldhtab);
260 >        free((void *)oldhtab);
261          goto tryagain;                  /* should happen only once! */
262   }

Diff Legend

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