src/common/readobj.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  readobj.c - routines for reading in object descriptions.
 *
 *  External symbols declared in object.h
 */

/* ====================================================================
 * The Radiance Software License, Version 1.0
 *
 * Copyright (c) 1990 - 2002 The Regents of the University of California,
 * through Lawrence Berkeley National Laboratory.   All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *         notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in
 *       the documentation and/or other materials provided with the
 *       distribution.
 *
 * 3. The end-user documentation included with the redistribution,
 *           if any, must include the following acknowledgment:
 *             "This product includes Radiance software
 *                 (http://radsite.lbl.gov/)
 *                 developed by the Lawrence Berkeley National Laboratory
 *               (http://www.lbl.gov/)."
 *       Alternately, this acknowledgment may appear in the software itself,
 *       if and wherever such third-party acknowledgments normally appear.
 *
 * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
 *       and "The Regents of the University of California" must
 *       not be used to endorse or promote products derived from this
 *       software without prior written permission. For written
 *       permission, please contact [email protected].
 *
 * 5. Products derived from this software may not be called "Radiance",
 *       nor may "Radiance" appear in their name, without prior written
 *       permission of Lawrence Berkeley National Laboratory.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
 * information on Lawrence Berkeley National Laboratory, please see
 * <http://www.lbl.gov/>.
 */

#include  "standard.h"

#include  "object.h"

#include  "otypes.h"

#include  <ctype.h>

OBJREC  *objblock[MAXOBJBLK];           /* our objects */
OBJECT  nobjects = 0;                   /* # of objects */


void
readobj(inpspec)                /* read in an object file or stream */
char  *inpspec;
{
        OBJECT  lastobj;
        FILE  *infp;
        char  buf[1024];
        register int  c;

        lastobj = nobjects;
        if (inpspec == NULL) {
                infp = stdin;
                inpspec = "standard input";
        } else if (inpspec[0] == '!') {
                if ((infp = popen(inpspec+1, "r")) == NULL) {
                        sprintf(errmsg, "cannot execute \"%s\"", inpspec);
                        error(SYSTEM, errmsg);
                }
        } else if ((infp = fopen(inpspec, "r")) == NULL) {
                sprintf(errmsg, "cannot open scene file \"%s\"", inpspec);
                error(SYSTEM, errmsg);
        }
        while ((c = getc(infp)) != EOF) {
                if (isspace(c))
                        continue;
                if (c == '#') {                         /* comment */
                        fgets(buf, sizeof(buf), infp);
                } else if (c == '!') {                  /* command */
                        ungetc(c, infp);
                        fgetline(buf, sizeof(buf), infp);
                        readobj(buf);
                } else {                                /* object */
                        ungetc(c, infp);
                        getobject(inpspec, infp);
                }
        }
        if (inpspec[0] == '!')
                pclose(infp);
        else
                fclose(infp);
        if (nobjects == lastobj) {
                sprintf(errmsg, "(%s): empty file", inpspec);
                error(WARNING, errmsg);
        }
}


void
getobject(name, fp)                     /* read the next object */
char  *name;
FILE  *fp;
{
        OBJECT  obj;
        char  sbuf[MAXSTR];
        int  rval;
        register OBJREC  *objp;

        if ((obj = newobject()) == OVOID)
                error(SYSTEM, "out of object space");
        objp = objptr(obj);
                                        /* get modifier */
        strcpy(sbuf, "EOF");
        fgetword(sbuf, MAXSTR, fp);
        if (!strcmp(sbuf, VOIDID))
                objp->omod = OVOID;
        else if ((objp->omod = modifier(sbuf)) == OVOID) {
                sprintf(errmsg, "(%s): undefined modifier \"%s\"", name, sbuf);
                error(USER, errmsg);
        }
                                        /* get type */
        strcpy(sbuf, "EOF");
        fgetword(sbuf, MAXSTR, fp);
        if (!strcmp(sbuf, ALIASID))
                objp->otype = -1;
        else if ((objp->otype = otype(sbuf)) < 0) {
                sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
                error(USER, errmsg);
        }
                                        /* get identifier */
        sbuf[0] = '\0';
        fgetword(sbuf, MAXSTR, fp);
        objp->oname = savqstr(sbuf);
                                        /* get arguments */
        if (objp->otype == -1) {
                register OBJECT  alias;
                strcpy(sbuf, "EOF");
                fgetword(sbuf, MAXSTR, fp);
                if ((alias = modifier(sbuf)) == OVOID) {
                        sprintf(errmsg,
                        "(%s): bad reference \"%s\" for %s \"%s\"",
                                        name, sbuf, ALIASID, objp->oname);
                        error(USER, errmsg);
                }
                objp->otype = objptr(alias)->otype;
                copystruct(&objp->oargs, &objptr(alias)->oargs);
        } else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
                sprintf(errmsg, "(%s): bad arguments", name);
                objerror(objp, USER, errmsg);
        } else if (rval < 0) {
                sprintf(errmsg, "(%s): error reading scene", name);
                error(SYSTEM, errmsg);
        }
                                        /* initialize */
        objp->os = NULL;

        insertobject(obj);              /* add to global structure */
}


int
newobject()                             /* get a new object */
{
        register int  i;

        if ((nobjects & (OBJBLKSIZ-1)) == 0) {  /* new block */
                errno = 0;
                i = nobjects >> OBJBLKSHFT;
                if (i >= MAXOBJBLK)
                        return(OVOID);
                objblock[i] = (OBJREC *)calloc(OBJBLKSIZ, sizeof(OBJREC));
                if (objblock[i] == NULL)
                        return(OVOID);
        }
        return(nobjects++);
}

void
freeobjects(firstobj, nobjs)            /* free a range of objects */
OBJECT  firstobj, nobjs;
{
        register int  obj;
                                        /* check bounds */
        if (firstobj < 0)
                return;
        if (nobjs <= 0)
                return;
        if (firstobj + nobjs > nobjects)
                return;
                                        /* clear objects */
        for (obj = firstobj+nobjs; obj-- > firstobj; ) {
                register OBJREC  *o = objptr(obj);
                free_os(o);             /* free client memory */
                freeqstr(o->oname);
                freefargs(&o->oargs);
                bzero(o, sizeof(OBJREC));
        }
        clearobjndx();
                                        /* free objects off end */
        for (obj = nobjects; obj-- > 0; )
                if (objptr(obj)->oname != NULL)
                        break;
        ++obj;
        while (nobjects > obj)          /* free empty end blocks */
                if ((--nobjects & (OBJBLKSIZ-1)) == 0) {
                        int     i = nobjects >> OBJBLKSHFT;
                        free((void *)objblock[i]);
                        objblock[i] = NULL;
                }
}
Revision:	2.8
Committed:	Sat Feb 22 02:07:22 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.7:	+96 -10 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.8	static const char RCSid[] = "$Id$";
3	greg	1.1	#endif
4			/*
5			* readobj.c - routines for reading in object descriptions.
6			*
7	greg	2.8	* 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	greg	1.1	*/
66
67			#include "standard.h"
68
69			#include "object.h"
70
71			#include "otypes.h"
72
73			#include <ctype.h>
74
75			OBJREC objblock[MAXOBJBLK]; / our objects */
76	greg	1.4	OBJECT nobjects = 0; /* # of objects */
77	greg	1.1
78
79	greg	2.8	void
80	greg	2.4	readobj(inpspec) /* read in an object file or stream */
81			char *inpspec;
82	greg	1.1	{
83	greg	2.4	OBJECT lastobj;
84	greg	1.1	FILE *infp;
85	greg	2.5	char buf[1024];
86	greg	1.1	register int c;
87
88	greg	2.4	lastobj = nobjects;
89			if (inpspec == NULL) {
90	greg	1.1	infp = stdin;
91	greg	2.4	inpspec = "standard input";
92			} else if (inpspec[0] == '!') {
93			if ((infp = popen(inpspec+1, "r")) == NULL) {
94			sprintf(errmsg, "cannot execute \"%s\"", inpspec);
95	greg	1.1	error(SYSTEM, errmsg);
96			}
97	greg	2.4	} else if ((infp = fopen(inpspec, "r")) == NULL) {
98			sprintf(errmsg, "cannot open scene file \"%s\"", inpspec);
99	greg	1.1	error(SYSTEM, errmsg);
100			}
101			while ((c = getc(infp)) != EOF) {
102			if (isspace(c))
103			continue;
104			if (c == '#') { /* comment */
105			fgets(buf, sizeof(buf), infp);
106	greg	1.2	} else if (c == '!') { /* command */
107	greg	1.1	ungetc(c, infp);
108	greg	1.2	fgetline(buf, sizeof(buf), infp);
109	greg	1.1	readobj(buf);
110			} else { /* object */
111			ungetc(c, infp);
112	greg	2.4	getobject(inpspec, infp);
113	greg	1.1	}
114			}
115	greg	2.4	if (inpspec[0] == '!')
116	greg	1.1	pclose(infp);
117			else
118			fclose(infp);
119	greg	2.4	if (nobjects == lastobj) {
120			sprintf(errmsg, "(%s): empty file", inpspec);
121			error(WARNING, errmsg);
122			}
123	greg	1.1	}
124
125
126	greg	2.8	void
127	greg	1.1	getobject(name, fp) /* read the next object */
128			char *name;
129			FILE *fp;
130			{
131			OBJECT obj;
132			char sbuf[MAXSTR];
133	greg	1.6	int rval;
134	greg	1.1	register OBJREC *objp;
135
136			if ((obj = newobject()) == OVOID)
137			error(SYSTEM, "out of object space");
138			objp = objptr(obj);
139			/* get modifier */
140	greg	1.7	strcpy(sbuf, "EOF");
141			fgetword(sbuf, MAXSTR, fp);
142	greg	1.1	if (!strcmp(sbuf, VOIDID))
143			objp->omod = OVOID;
144			else if ((objp->omod = modifier(sbuf)) == OVOID) {
145			sprintf(errmsg, "(%s): undefined modifier \"%s\"", name, sbuf);
146			error(USER, errmsg);
147			}
148			/* get type */
149	greg	1.7	strcpy(sbuf, "EOF");
150			fgetword(sbuf, MAXSTR, fp);
151	greg	1.1	if (!strcmp(sbuf, ALIASID))
152			objp->otype = -1;
153			else if ((objp->otype = otype(sbuf)) < 0) {
154			sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
155			error(USER, errmsg);
156			}
157			/* get identifier */
158	greg	1.7	sbuf[0] = '\0';
159			fgetword(sbuf, MAXSTR, fp);
160	greg	1.1	objp->oname = savqstr(sbuf);
161			/* get arguments */
162			if (objp->otype == -1) {
163			register OBJECT alias;
164	greg	1.7	strcpy(sbuf, "EOF");
165			fgetword(sbuf, MAXSTR, fp);
166	greg	1.1	if ((alias = modifier(sbuf)) == OVOID) {
167			sprintf(errmsg,
168			"(%s): bad reference \"%s\" for %s \"%s\"",
169			name, sbuf, ALIASID, objp->oname);
170			error(USER, errmsg);
171			}
172			objp->otype = objptr(alias)->otype;
173	greg	1.3	copystruct(&objp->oargs, &objptr(alias)->oargs);
174	greg	1.6	} else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
175	greg	1.1	sprintf(errmsg, "(%s): bad arguments", name);
176			objerror(objp, USER, errmsg);
177	greg	1.6	} else if (rval < 0) {
178			sprintf(errmsg, "(%s): error reading scene", name);
179			error(SYSTEM, errmsg);
180	greg	1.1	}
181			/* initialize */
182			objp->os = NULL;
183
184			insertobject(obj); /* add to global structure */
185			}
186
187
188			int
189			newobject() /* get a new object */
190			{
191			register int i;
192
193	gwlarson	2.7	if ((nobjects & (OBJBLKSIZ-1)) == 0) { /* new block */
194	greg	1.1	errno = 0;
195	gwlarson	2.7	i = nobjects >> OBJBLKSHFT;
196	greg	1.1	if (i >= MAXOBJBLK)
197			return(OVOID);
198	greg	2.8	objblock[i] = (OBJREC *)calloc(OBJBLKSIZ, sizeof(OBJREC));
199	greg	1.1	if (objblock[i] == NULL)
200			return(OVOID);
201			}
202			return(nobjects++);
203	greg	2.8	}
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	greg	1.1	}