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

Comparing ray/src/common/readobj.c (file contents):
Revision 1.2 by greg, Wed Oct 4 16:32:04 1989 UTC vs.
Revision 2.8 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   *  readobj.c - routines for reading in object descriptions.
6   *
7 < *     7/28/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 19 | Line 73 | static char SCCSid[] = "$SunId$ LBL";
73   #include  <ctype.h>
74  
75   OBJREC  *objblock[MAXOBJBLK];           /* our objects */
76 < int  nobjects = 0;                      /* # of objects */
76 > OBJECT  nobjects = 0;                   /* # of objects */
77  
78  
79 < readobj(input)                  /* read in an object file or stream */
80 < char  *input;
79 > void
80 > readobj(inpspec)                /* read in an object file or stream */
81 > char  *inpspec;
82   {
83 <        FILE  *popen();
29 <        char  *fgets(), *fgetline();
83 >        OBJECT  lastobj;
84          FILE  *infp;
85 <        char  buf[512];
85 >        char  buf[1024];
86          register int  c;
87  
88 <        if (input == NULL) {
88 >        lastobj = nobjects;
89 >        if (inpspec == NULL) {
90                  infp = stdin;
91 <                input = "standard input";
92 <        } else if (input[0] == '!') {
93 <                if ((infp = popen(input+1, "r")) == NULL) {
94 <                        sprintf(errmsg, "cannot execute \"%s\"", input);
91 >                inpspec = "standard input";
92 >        } else if (inpspec[0] == '!') {
93 >                if ((infp = popen(inpspec+1, "r")) == NULL) {
94 >                        sprintf(errmsg, "cannot execute \"%s\"", inpspec);
95                          error(SYSTEM, errmsg);
96                  }
97 <        } else if ((infp = fopen(input, "r")) == NULL) {
98 <                sprintf(errmsg, "cannot open scene file \"%s\"", input);
97 >        } else if ((infp = fopen(inpspec, "r")) == NULL) {
98 >                sprintf(errmsg, "cannot open scene file \"%s\"", inpspec);
99                  error(SYSTEM, errmsg);
100          }
101          while ((c = getc(infp)) != EOF) {
# Line 54 | Line 109 | char  *input;
109                          readobj(buf);
110                  } else {                                /* object */
111                          ungetc(c, infp);
112 <                        getobject(input, infp);
112 >                        getobject(inpspec, infp);
113                  }
114          }
115 <        if (input[0] == '!')
115 >        if (inpspec[0] == '!')
116                  pclose(infp);
117          else
118                  fclose(infp);
119 +        if (nobjects == lastobj) {
120 +                sprintf(errmsg, "(%s): empty file", inpspec);
121 +                error(WARNING, errmsg);
122 +        }
123   }
124  
125  
126 + void
127   getobject(name, fp)                     /* read the next object */
128   char  *name;
129   FILE  *fp;
130   {
131          OBJECT  obj;
132          char  sbuf[MAXSTR];
133 +        int  rval;
134          register OBJREC  *objp;
135  
136          if ((obj = newobject()) == OVOID)
137                  error(SYSTEM, "out of object space");
138          objp = objptr(obj);
139                                          /* get modifier */
140 <        fscanf(fp, "%s", sbuf);
140 >        strcpy(sbuf, "EOF");
141 >        fgetword(sbuf, MAXSTR, fp);
142          if (!strcmp(sbuf, VOIDID))
143                  objp->omod = OVOID;
144          else if ((objp->omod = modifier(sbuf)) == OVOID) {
# Line 84 | Line 146 | FILE  *fp;
146                  error(USER, errmsg);
147          }
148                                          /* get type */
149 <        fscanf(fp, "%s", sbuf);
149 >        strcpy(sbuf, "EOF");
150 >        fgetword(sbuf, MAXSTR, fp);
151          if (!strcmp(sbuf, ALIASID))
152                  objp->otype = -1;
153          else if ((objp->otype = otype(sbuf)) < 0) {
# Line 92 | Line 155 | FILE  *fp;
155                  error(USER, errmsg);
156          }
157                                          /* get identifier */
158 <        fscanf(fp, "%s", sbuf);
158 >        sbuf[0] = '\0';
159 >        fgetword(sbuf, MAXSTR, fp);
160          objp->oname = savqstr(sbuf);
161                                          /* get arguments */
162          if (objp->otype == -1) {
163                  register OBJECT  alias;
164 <                fscanf(fp, "%s", sbuf);
164 >                strcpy(sbuf, "EOF");
165 >                fgetword(sbuf, MAXSTR, fp);
166                  if ((alias = modifier(sbuf)) == OVOID) {
167                          sprintf(errmsg,
168                          "(%s): bad reference \"%s\" for %s \"%s\"",
# Line 105 | Line 170 | FILE  *fp;
170                          error(USER, errmsg);
171                  }
172                  objp->otype = objptr(alias)->otype;
173 <                bcopy(&objptr(alias)->oargs, &objp->oargs, sizeof(FUNARGS));
174 <        } else if (readfargs(&objp->oargs, fp) < 0) {
173 >                copystruct(&objp->oargs, &objptr(alias)->oargs);
174 >        } else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
175                  sprintf(errmsg, "(%s): bad arguments", name);
176                  objerror(objp, USER, errmsg);
177 +        } else if (rval < 0) {
178 +                sprintf(errmsg, "(%s): error reading scene", name);
179 +                error(SYSTEM, errmsg);
180          }
181                                          /* initialize */
182          objp->os = NULL;
115 –        objp->lastrno = -1;
183  
184          insertobject(obj);              /* add to global structure */
185   }
186  
187  
121 – readfargs(fa, fp)               /* read function arguments from stream */
122 – register FUNARGS  *fa;
123 – FILE  *fp;
124 – {
125 –        char  sbuf[MAXSTR];
126 –        int  n;
127 –        register int  i;
128 –
129 –        if (fscanf(fp, "%d", &n) != 1 || n < 0)
130 –                return(-1);
131 –        if (fa->nsargs = n) {
132 –                fa->sarg = (char **)bmalloc(n*sizeof(char *));
133 –                if (fa->sarg == NULL)
134 –                        goto memerr;
135 –                for (i = 0; i < fa->nsargs; i++) {
136 –                        if (fscanf(fp, "%s", sbuf) != 1)
137 –                                return(-1);
138 –                        fa->sarg[i] = savestr(sbuf);
139 –                }
140 –        } else
141 –                fa->sarg = NULL;
142 –        if (fscanf(fp, "%d", &n) != 1 || n < 0)
143 –                return(-1);
144 – #ifdef  IARGS
145 –        if (fa->niargs = n) {
146 –                fa->iarg = (long *)bmalloc(n*sizeof(int));
147 –                if (fa->iarg == NULL)
148 –                        goto memerr;
149 –                for (i = 0; i < n; i++)
150 –                        if (fscanf(fp, "%ld", &fa->iarg[i]) != 1)
151 –                                return(-1);
152 –        } else
153 –                fa->iarg = NULL;
154 – #else
155 –        if (n != 0)
156 –                return(-1);
157 – #endif
158 –        if (fscanf(fp, "%d", &n) != 1 || n < 0)
159 –                return(-1);
160 –        if (fa->nfargs = n) {
161 –                fa->farg = (double *)bmalloc(n*sizeof(double));
162 –                if (fa->farg == NULL)
163 –                        goto memerr;
164 –                for (i = 0; i < n; i++)
165 –                        if (fscanf(fp, "%lf", &fa->farg[i]) != 1)
166 –                                return(-1);
167 –        } else
168 –                fa->farg = NULL;
169 –        return(0);
170 – memerr:
171 –        error(SYSTEM, "out of memory in readfargs");
172 – }
173 –
174 –
188   int
189   newobject()                             /* get a new object */
190   {
191          register int  i;
192  
193 <        if ((nobjects & 077) == 0) {            /* new block */
193 >        if ((nobjects & (OBJBLKSIZ-1)) == 0) {  /* new block */
194                  errno = 0;
195 <                i = nobjects >> 6;
195 >                i = nobjects >> OBJBLKSHFT;
196                  if (i >= MAXOBJBLK)
197                          return(OVOID);
198 <                objblock[i] = (OBJREC *)malloc(0100*sizeof(OBJREC));
198 >                objblock[i] = (OBJREC *)calloc(OBJBLKSIZ, sizeof(OBJREC));
199                  if (objblock[i] == NULL)
200                          return(OVOID);
201          }
202          return(nobjects++);
203 + }
204 +
205 + void
206 + freeobjects(firstobj, nobjs)            /* free a range of objects */
207 + OBJECT  firstobj, nobjs;
208 + {
209 +        register int  obj;
210 +                                        /* check bounds */
211 +        if (firstobj < 0)
212 +                return;
213 +        if (nobjs <= 0)
214 +                return;
215 +        if (firstobj + nobjs > nobjects)
216 +                return;
217 +                                        /* clear objects */
218 +        for (obj = firstobj+nobjs; obj-- > firstobj; ) {
219 +                register OBJREC  *o = objptr(obj);
220 +                free_os(o);             /* free client memory */
221 +                freeqstr(o->oname);
222 +                freefargs(&o->oargs);
223 +                bzero(o, sizeof(OBJREC));
224 +        }
225 +        clearobjndx();
226 +                                        /* free objects off end */
227 +        for (obj = nobjects; obj-- > 0; )
228 +                if (objptr(obj)->oname != NULL)
229 +                        break;
230 +        ++obj;
231 +        while (nobjects > obj)          /* free empty end blocks */
232 +                if ((--nobjects & (OBJBLKSIZ-1)) == 0) {
233 +                        int     i = nobjects >> OBJBLKSHFT;
234 +                        free((void *)objblock[i]);
235 +                        objblock[i] = NULL;
236 +                }
237   }

Diff Legend

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