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 2.10 by schorsch, Thu Jul 17 09:21:29 2003 UTC vs.
Revision 2.14 by greg, Sun Dec 8 18:59:53 2013 UTC

# Line 25 | Line 25 | static int  otndx(char *, struct ohtab *);
25  
26  
27   OBJECT
28 < objndx(op)                      /* get object number from pointer */
29 < register OBJREC  *op;
28 > objndx(                         /* get object number from pointer */
29 >        OBJREC  *op
30 > )
31   {
32 <        register int  i, j;
32 >        int  i, j;
33  
34          for (i = nobjects>>OBJBLKSHFT; i >= 0; i--) {
35                  j = op - objblock[i];
36 <                if (j >= 0 && j < OBJBLKSIZ)
36 >                if ((j >= 0) & (j < OBJBLKSIZ))
37                          return((i<<OBJBLKSHFT) + j);
38          }
39          return(OVOID);
# Line 40 | Line 41 | register OBJREC  *op;
41  
42  
43   OBJECT
44 < lastmod(obj, mname)             /* find modifier definition before obj */
45 < OBJECT  obj;
46 < char  *mname;
44 > lastmod(                        /* find modifier definition before obj */
45 >        OBJECT  obj,
46 >        char  *mname
47 > )
48   {
49 <        register OBJREC  *op;
50 <        register int  i;
49 >        OBJREC  *op;
50 >        int  i;
51  
52          i = modifier(mname);            /* try hash table first */
53 <        if (i < obj)
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) && !strcmp(op->oname, mname))
57 >                if (ismodifier(op->otype) && op->oname[0] == mname[0] &&
58 >                                        !strcmp(op->oname, mname))
59                          return(i);
60          }
61          return(OVOID);
# Line 60 | Line 63 | char  *mname;
63  
64  
65   OBJECT
66 < modifier(mname)                 /* get a modifier number from its name */
67 < char  *mname;
66 > modifier(                       /* get a modifier number from its name */
67 >        char  *mname
68 > )
69   {
70 <        register int  ndx;
70 >        int  ndx;
71  
72          ndx = otndx(mname, &modtab);
73          return(modtab.htab[ndx]);
# Line 72 | Line 76 | char  *mname;
76  
77   #ifdef  GETOBJ
78   OBJECT
79 < object(oname)                   /* get an object number from its name */
80 < char  *oname;
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 83 | Line 88 | char  *oname;
88   #endif
89  
90  
91 + static int
92 + eqreal(                         /* are two real values close enough to equal? */
93 +        double  d1,
94 +        double  d2
95 + )
96 + {
97 +        if (d2 != 0.0)
98 +                d1 = d1/d2 - 1.0;
99 +        return((-FTINY <= d1) & (d1 <= FTINY));
100 + }
101 +
102 +
103 + int
104 + eqobjects(                      /* check if two objects are equal */
105 +        OBJECT  obj1,
106 +        OBJECT  obj2
107 + )
108 + {
109 +        OBJREC  *op1, *op2;
110 +        int     i;
111 +
112 +        if (obj1 == OVOID)
113 +                return(obj2 == OVOID);
114 +        if (obj2 == OVOID)
115 +                return(0);
116 +        op1 = objptr(obj1);
117 +        op2 = objptr(obj2);
118 +        if (op1->omod != op2->omod)
119 +                return(0);
120 +        if (op1->otype != op2->otype)
121 +                return(0);
122 +        if (strcmp(op1->oname, op2->oname))
123 +                return(0);
124 +        if (op1->oargs.nsargs != op2->oargs.nsargs)
125 +                return(0);
126 +        if (op1->oargs.nfargs != op2->oargs.nfargs)
127 +                return(0);
128 + #ifdef IARGS
129 +        if (op1->oargs.niargs != op2->oargs.niargs)
130 +                return(0);
131 +        for (i = op1->oargs.niargs; i-- > 0; )
132 +                if (op1->oargs.iarg[i] != op2->oargs.iarg[i])
133 +                        return(0);
134 + #endif
135 +        for (i = op1->oargs.nfargs; i-- > 0; )
136 +                if (!eqreal(op1->oargs.farg[i], op2->oargs.farg[i]))
137 +                        return(0);
138 +        for (i = op1->oargs.nsargs; i-- > 0; )
139 +                if (strcmp(op1->oargs.sarg[i], op2->oargs.sarg[i]))
140 +                        return(0);
141 +        return(1);
142 + }
143 +
144 +
145   void
146 < insertobject(obj)               /* insert new object into our list */
147 < register OBJECT  obj;
146 > insertobject(                   /* insert new object into our list */
147 >        OBJECT  obj
148 > )
149   {
150 <        register int  i;
150 >        int  i;
151  
152          if (ismodifier(objptr(obj)->otype)) {
153                  i = otndx(objptr(obj)->oname, &modtab);
154 +                if (eqobjects(obj, modtab.htab[i]))
155 +                        return;
156                  modtab.htab[i] = obj;
157          }
158   #ifdef  GETOBJ
# Line 105 | Line 167 | register OBJECT  obj;
167  
168  
169   void
170 < clearobjndx()                   /* clear object hash tables */
170 > clearobjndx(void)               /* clear object hash tables */
171   {
172          if (modtab.htab != NULL) {
173                  free((void *)modtab.htab);
# Line 121 | Line 183 | clearobjndx()                  /* clear object hash tables */
183  
184  
185   static int
186 < nexthsiz(oldsiz)                /* return next hash table size */
187 < int  oldsiz;
186 > nexthsiz(                       /* return next hash table size */
187 >        int  oldsiz
188 > )
189   {
190          static int  hsiztab[] = {
191                  251, 509, 1021, 2039, 4093, 8191, 16381, 0
192          };
193 <        register int  *hsp;
193 >        int  *hsp;
194  
195          for (hsp = hsiztab; *hsp; hsp++)
196                  if (*hsp > oldsiz)
# Line 137 | Line 200 | int  oldsiz;
200  
201  
202   static int
203 < otndx(name, tab)                /* get object table index for name */
204 < char  *name;
205 < register struct ohtab  *tab;
203 > otndx(                          /* get object table index for name */
204 >        char  *name,
205 >        struct ohtab  *tab
206 > )
207   {
208          OBJECT  *oldhtab;
209          int  hval, i;
210 <        register int  ndx;
210 >        int  ndx;
211  
212          if (tab->htab == NULL) {                /* new table */
213                  tab->hsiz = nexthsiz(tab->hsiz);
# Line 158 | Line 222 | register struct ohtab  *tab;
222          hval = shash(name);
223   tryagain:
224          for (i = 0; i < tab->hsiz; i++) {
225 <                ndx = (hval + i*i) % tab->hsiz;
225 >                ndx = (hval + (unsigned long)i*i) % tab->hsiz;
226                  if (tab->htab[ndx] == OVOID ||
227                                  !strcmp(objptr(tab->htab[ndx])->oname, name))
228                          return(ndx);

Diff Legend

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