src/common/sceneio.c

#ifndef lint
static const char RCSid[] = "$Id: sceneio.c,v 2.3 2003/06/20 00:25:49 greg Exp $";
#endif
/*
 *  Portable, binary Radiance i/o routines.
 *
 *  Called from octree and mesh i/o routines.
 */

#include "copyright.h"
#include "standard.h"
#include "octree.h"
#include "object.h"
#include "otypes.h"

static OBJECT  object0;                 /* zeroeth object */
static short  otypmap[NUMOTYPE+32];     /* object type map */


static int
getobj(fp, objsiz)                      /* get next object */
FILE    *fp;
int     objsiz;
{
        char  sbuf[MAXSTR];
        int  obj;
        register int  i;
        register long  m;
        register OBJREC  *objp;

        i = getint(1, fp);
        if (i == -1)
                return(OVOID);          /* terminator */
        if ((obj = newobject()) == OVOID)
                error(SYSTEM, "out of object space");
        objp = objptr(obj);
        if ((objp->otype = otypmap[i]) < 0)
                error(USER, "reference to unknown type");
        if ((m = getint(objsiz, fp)) != OVOID) {
                m += object0;
                if ((OBJECT)m != m)
                        error(INTERNAL, "too many objects in getobj");
        }
        objp->omod = m;
        objp->oname = savqstr(getstr(sbuf, fp));
        if ((objp->oargs.nsargs = getint(2, fp)) > 0) {
                objp->oargs.sarg = (char **)malloc
                                (objp->oargs.nsargs*sizeof(char *));
                if (objp->oargs.sarg == NULL)
                        goto memerr;
                for (i = 0; i < objp->oargs.nsargs; i++)
                        objp->oargs.sarg[i] = savestr(getstr(sbuf, fp));
        } else
                objp->oargs.sarg = NULL;
#ifdef  IARGS
        if ((objp->oargs.niargs = getint(2, fp)) > 0) {
                objp->oargs.iarg = (long *)malloc
                                (objp->oargs.niargs*sizeof(long));
                if (objp->oargs.iarg == NULL)
                        goto memerr;
                for (i = 0; i < objp->oargs.niargs; i++)
                        objp->oargs.iarg[i] = getint(4, fp);
        } else
                objp->oargs.iarg = NULL;
#endif
        if ((objp->oargs.nfargs = getint(2, fp)) > 0) {
                objp->oargs.farg = (RREAL *)malloc
                                (objp->oargs.nfargs*sizeof(RREAL));
                if (objp->oargs.farg == NULL)
                        goto memerr;
                for (i = 0; i < objp->oargs.nfargs; i++)
                        objp->oargs.farg[i] = getflt(fp);
        } else
                objp->oargs.farg = NULL;
        if (feof(fp))
                error(SYSTEM, "unexpected EOF in getobj");
                                                /* initialize */
        objp->os = NULL;
                                                /* insert */
        insertobject(obj);
        return(obj);
memerr:
        error(SYSTEM, "out of memory in getobj");
        return 0; /* pro forma return */
}


void
readscene(fp, objsiz)                   /* read binary scene description */
FILE    *fp;
int     objsiz;
{
        char  sbuf[32];
        int  i;
                                        /* record starting object */
        object0 = nobjects;
                                        /* read type map */
        for (i = 0; getstr(sbuf, fp) != NULL && sbuf[0]; i++)
                if ((otypmap[i] = otype(sbuf)) < 0) {
                        sprintf(errmsg, "unknown object type \"%s\"",
                                        sbuf);
                        error(WARNING, errmsg);
                }
                                        /* read objects */
        while (getobj(fp, objsiz) != OVOID)
                ;
}


static void
putobj(o, fp)                   /* write out object */
FILE    *fp;
register OBJREC  *o;
{
        register int  i;

        if (o == NULL) {                /* terminator */
                putint(-1L, 1, fp);
                return;
        }
        putint((long)o->otype, 1, fp);
        putint((long)o->omod, sizeof(OBJECT), fp);
        putstr(o->oname, fp);
        putint((long)o->oargs.nsargs, 2, fp);
        for (i = 0; i < o->oargs.nsargs; i++)
                putstr(o->oargs.sarg[i], fp);
#ifdef  IARGS
        putint((long)o->oargs.niargs, 2, fp);
        for (i = 0; i < o->oargs.niargs; i++)
                putint((long)o->oargs.iarg[i], 4, fp);
#endif
        putint((long)o->oargs.nfargs, 2, fp);
        for (i = 0; i < o->oargs.nfargs; i++)
                putflt(o->oargs.farg[i], fp);
}


void
writescene(firstobj, nobjs, fp)         /* write binary scene description */
int     firstobj, nobjs;
FILE    *fp;
{
        int     i;
                                        /* write out type list */
        for (i = 0; i < NUMOTYPE; i++)
                putstr(ofun[i].funame, fp);
        putstr("", fp);
                                        /* write objects */
        for (i = firstobj; i < firstobj+nobjs; i++)
                putobj(objptr(i), fp);
        putobj(NULL, fp);               /* terminator */
        if (ferror(fp))
                error(SYSTEM, "write error in writescene");
}
Revision:	2.4
Committed:	Thu Jun 26 00:58:09 2003 UTC (22 years, 4 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R7P2, rad3R7P1, rad4R0, rad3R6, rad3R6P1, rad3R8, rad3R9
Changes since 2.3:	+3 -3 lines
Log Message:	Abstracted process and path handling for Windows. Renamed FLOAT to RREAL because of conflict on Windows. Added conditional compiles for some signal handlers.
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	schorsch	2.4	static const char RCSid[] = "$Id: sceneio.c,v 2.3 2003/06/20 00:25:49 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* Portable, binary Radiance i/o routines.
6			*
7			* Called from octree and mesh i/o routines.
8			*/
9
10			#include "copyright.h"
11			#include "standard.h"
12			#include "octree.h"
13			#include "object.h"
14			#include "otypes.h"
15
16			static OBJECT object0; /* zeroeth object */
17			static short otypmap[NUMOTYPE+32]; /* object type map */
18
19
20			static int
21			getobj(fp, objsiz) /* get next object */
22			FILE *fp;
23			int objsiz;
24			{
25			char sbuf[MAXSTR];
26			int obj;
27			register int i;
28			register long m;
29			register OBJREC *objp;
30
31			i = getint(1, fp);
32			if (i == -1)
33			return(OVOID); /* terminator */
34			if ((obj = newobject()) == OVOID)
35			error(SYSTEM, "out of object space");
36			objp = objptr(obj);
37			if ((objp->otype = otypmap[i]) < 0)
38			error(USER, "reference to unknown type");
39			if ((m = getint(objsiz, fp)) != OVOID) {
40			m += object0;
41			if ((OBJECT)m != m)
42			error(INTERNAL, "too many objects in getobj");
43			}
44			objp->omod = m;
45			objp->oname = savqstr(getstr(sbuf, fp));
46			if ((objp->oargs.nsargs = getint(2, fp)) > 0) {
47			objp->oargs.sarg = (char **)malloc
48			(objp->oargs.nsargssizeof(char ));
49			if (objp->oargs.sarg == NULL)
50			goto memerr;
51			for (i = 0; i < objp->oargs.nsargs; i++)
52			objp->oargs.sarg[i] = savestr(getstr(sbuf, fp));
53			} else
54			objp->oargs.sarg = NULL;
55			#ifdef IARGS
56			if ((objp->oargs.niargs = getint(2, fp)) > 0) {
57			objp->oargs.iarg = (long *)malloc
58			(objp->oargs.niargs*sizeof(long));
59			if (objp->oargs.iarg == NULL)
60			goto memerr;
61			for (i = 0; i < objp->oargs.niargs; i++)
62			objp->oargs.iarg[i] = getint(4, fp);
63			} else
64			objp->oargs.iarg = NULL;
65			#endif
66			if ((objp->oargs.nfargs = getint(2, fp)) > 0) {
67	schorsch	2.4	objp->oargs.farg = (RREAL *)malloc
68			(objp->oargs.nfargs*sizeof(RREAL));
69	greg	2.1	if (objp->oargs.farg == NULL)
70			goto memerr;
71			for (i = 0; i < objp->oargs.nfargs; i++)
72			objp->oargs.farg[i] = getflt(fp);
73			} else
74			objp->oargs.farg = NULL;
75			if (feof(fp))
76			error(SYSTEM, "unexpected EOF in getobj");
77			/* initialize */
78			objp->os = NULL;
79			/* insert */
80			insertobject(obj);
81			return(obj);
82			memerr:
83			error(SYSTEM, "out of memory in getobj");
84	schorsch	2.2	return 0; /* pro forma return */
85	greg	2.1	}
86
87
88			void
89			readscene(fp, objsiz) /* read binary scene description */
90			FILE *fp;
91			int objsiz;
92			{
93			char sbuf[32];
94			int i;
95			/* record starting object */
96			object0 = nobjects;
97			/* read type map */
98			for (i = 0; getstr(sbuf, fp) != NULL && sbuf[0]; i++)
99			if ((otypmap[i] = otype(sbuf)) < 0) {
100			sprintf(errmsg, "unknown object type \"%s\"",
101			sbuf);
102			error(WARNING, errmsg);
103			}
104			/* read objects */
105			while (getobj(fp, objsiz) != OVOID)
106			;
107			}
108
109
110			static void
111			putobj(o, fp) /* write out object */
112			FILE *fp;
113			register OBJREC *o;
114			{
115			register int i;
116
117			if (o == NULL) { /* terminator */
118			putint(-1L, 1, fp);
119			return;
120			}
121			putint((long)o->otype, 1, fp);
122			putint((long)o->omod, sizeof(OBJECT), fp);
123			putstr(o->oname, fp);
124			putint((long)o->oargs.nsargs, 2, fp);
125			for (i = 0; i < o->oargs.nsargs; i++)
126			putstr(o->oargs.sarg[i], fp);
127			#ifdef IARGS
128			putint((long)o->oargs.niargs, 2, fp);
129			for (i = 0; i < o->oargs.niargs; i++)
130			putint((long)o->oargs.iarg[i], 4, fp);
131			#endif
132			putint((long)o->oargs.nfargs, 2, fp);
133			for (i = 0; i < o->oargs.nfargs; i++)
134			putflt(o->oargs.farg[i], fp);
135			}
136
137
138			void
139			writescene(firstobj, nobjs, fp) /* write binary scene description */
140	greg	2.3	int firstobj, nobjs;
141	greg	2.1	FILE *fp;
142			{
143			int i;
144			/* write out type list */
145			for (i = 0; i < NUMOTYPE; i++)
146			putstr(ofun[i].funame, fp);
147			putstr("", fp);
148			/* write objects */
149			for (i = firstobj; i < firstobj+nobjs; i++)
150			putobj(objptr(i), fp);
151			putobj(NULL, fp); /* terminator */
152			if (ferror(fp))
153			error(SYSTEM, "write error in writescene");
154			}