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

Comparing ray/src/common/otypes.c (file contents):
Revision 1.4 by greg, Fri Jan 12 11:15:40 1990 UTC vs.
Revision 2.2 by greg, Sat Feb 22 02:07:22 2003 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 < *  otypes.c - object lookup functions.
5 > * Object type lookup and error reporting
6   *
7 < *     7/29/85
7 > *  External symbols declared in object.h
8   */
9  
10 + /* ====================================================================
11 + * The Radiance Software License, Version 1.0
12 + *
13 + * Copyright (c) 1990 - 2002 The Regents of the University of California,
14 + * through Lawrence Berkeley National Laboratory.   All rights reserved.
15 + *
16 + * Redistribution and use in source and binary forms, with or without
17 + * modification, are permitted provided that the following conditions
18 + * are met:
19 + *
20 + * 1. Redistributions of source code must retain the above copyright
21 + *         notice, this list of conditions and the following disclaimer.
22 + *
23 + * 2. Redistributions in binary form must reproduce the above copyright
24 + *       notice, this list of conditions and the following disclaimer in
25 + *       the documentation and/or other materials provided with the
26 + *       distribution.
27 + *
28 + * 3. The end-user documentation included with the redistribution,
29 + *           if any, must include the following acknowledgment:
30 + *             "This product includes Radiance software
31 + *                 (http://radsite.lbl.gov/)
32 + *                 developed by the Lawrence Berkeley National Laboratory
33 + *               (http://www.lbl.gov/)."
34 + *       Alternately, this acknowledgment may appear in the software itself,
35 + *       if and wherever such third-party acknowledgments normally appear.
36 + *
37 + * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
38 + *       and "The Regents of the University of California" must
39 + *       not be used to endorse or promote products derived from this
40 + *       software without prior written permission. For written
41 + *       permission, please contact [email protected].
42 + *
43 + * 5. Products derived from this software may not be called "Radiance",
44 + *       nor may "Radiance" appear in their name, without prior written
45 + *       permission of Lawrence Berkeley National Laboratory.
46 + *
47 + * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
48 + * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
49 + * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
50 + * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
51 + * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
52 + * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
53 + * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
54 + * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
55 + * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
56 + * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
57 + * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
58 + * SUCH DAMAGE.
59 + * ====================================================================
60 + *
61 + * This software consists of voluntary contributions made by many
62 + * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
63 + * information on Lawrence Berkeley National Laboratory, please see
64 + * <http://www.lbl.gov/>.
65 + */
66 +
67   #include  "standard.h"
68  
69   #include  "object.h"
# Line 17 | Line 71 | static char SCCSid[] = "$SunId$ LBL";
71   #include  "otypes.h"
72  
73  
20 – extern int  (*addobjnotify[])();        /* people to notify of new objects */
21 –
22 – FUN  ofun[NUMOTYPE] = INIT_OTYPE;       /* our object function table */
23 –
24 – static struct ohtab {
25 –        int  hsiz;                      /* current table size */
26 –        OBJECT  *htab;                  /* table, if allocated */
27 – }  modtab = {100, NULL}, objtab = {1000, NULL}; /* modifiers and objects */
28 –
29 –
74   int
75   otype(ofname)                   /* get object function number from its name */
76   register char  *ofname;
# Line 41 | Line 85 | register char  *ofname;
85   }
86  
87  
88 < #ifdef  GETOBJ
45 < int
46 < object(oname)                   /* get an object number from its name */
47 < char  *oname;
48 < {
49 <        register int  ndx;
50 <
51 <        ndx = otndx(oname, &objtab);
52 <        return(objtab.htab[ndx]);
53 < }
54 < #endif
55 <
56 <
57 < int
58 < modifier(mname)                 /* get a modifier number from its name */
59 < char  *mname;
60 < {
61 <        register int  ndx;
62 <
63 <        ndx = otndx(mname, &modtab);
64 <        return(modtab.htab[ndx]);
65 < }
66 <
67 <
68 < insertobject(obj)               /* insert new object into our list */
69 < register OBJECT  obj;
70 < {
71 <        register int  i;
72 <
73 < #ifdef  GETOBJ
74 <        i = otndx(objptr(obj)->oname, &objtab);
75 <        objtab.htab[i] = obj;
76 < #endif
77 <        if (ismodifier(objptr(obj)->otype)) {
78 <                i = otndx(objptr(obj)->oname, &modtab);
79 <                modtab.htab[i] = obj;
80 <        }
81 <        for (i = 0; addobjnotify[i] != NULL; i++)
82 <                (*addobjnotify[i])(obj);
83 < }
84 <
85 <
88 > void
89   objerror(o, etyp, msg)          /* report error related to object */
90   OBJREC  *o;
91   int  etyp;
# Line 93 | Line 96 | char  *msg;
96          sprintf(msgbuf, "%s for %s \"%s\"",
97                          msg, ofun[o->otype].funame, o->oname);
98          error(etyp, msgbuf);
96 – }
97 –
98 –
99 – static int
100 – nexthsiz(oldsiz)                /* return next hash table size */
101 – int  oldsiz;
102 – {
103 –        static int  hsiztab[] = {
104 –                251, 509, 1021, 2039, 4093, 8191, 16381, 0
105 –        };
106 –        register int  *hsp;
107 –
108 –        for (hsp = hsiztab; *hsp; hsp++)
109 –                if (*hsp > oldsiz)
110 –                        return(*hsp);
111 –        return(oldsiz*2 + 1);           /* not always prime */
112 – }
113 –
114 –
115 – static int
116 – shash(s)                        /* hash a string */
117 – register char  *s;
118 – {
119 –        register int  h = 0;
120 –
121 –        while (*s)
122 –                h = (h<<1 & 0x7fff) ^ *s++;
123 –        return(h);
124 – }
125 –
126 –
127 – static int
128 – otndx(name, tab)                /* get object table index for name */
129 – char  *name;
130 – register struct ohtab  *tab;
131 – {
132 –        OBJECT  *oldhtab;
133 –        int  hval, i;
134 –        register int  ndx;
135 –
136 –        if (tab->htab == NULL) {                /* new table */
137 –                tab->hsiz = nexthsiz(tab->hsiz);
138 –                tab->htab = (OBJECT *)malloc(tab->hsiz*sizeof(OBJECT));
139 –                if (tab->htab == NULL)
140 –                        error(SYSTEM, "out of memory in otndx");
141 –                ndx = tab->hsiz;
142 –                while (ndx--)                   /* empty it */
143 –                        tab->htab[ndx] = OVOID;
144 –        }
145 –                                        /* look up object */
146 –        hval = shash(name);
147 – tryagain:
148 –        for (i = 0; i < tab->hsiz; i++) {
149 –                ndx = (hval + i*i) % tab->hsiz;
150 –                if (tab->htab[ndx] == OVOID ||
151 –                                !strcmp(objptr(tab->htab[ndx])->oname, name))
152 –                        return(ndx);
153 –        }
154 –                                        /* table is full, reallocate */
155 –        oldhtab = tab->htab;
156 –        ndx = tab->hsiz;
157 –        tab->htab = NULL;
158 –        while (ndx--)
159 –                if (oldhtab[ndx] != OVOID) {
160 –                        i = otndx(objptr(oldhtab[ndx])->oname, tab);
161 –                        tab->htab[i] = oldhtab[ndx];
162 –                }
163 –        free((char *)oldhtab);
164 –        goto tryagain;                  /* should happen only once! */
99   }

Diff Legend

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