src/common/readoct.c

/* Copyright (c) 1992 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "$SunId$ LBL";
#endif

/*
 *  readoct.c - routines to read octree information.
 *
 *     7/30/85
 */

#include  "standard.h"

#include  "octree.h"

#include  "object.h"

#include  "otypes.h"

static double  ogetflt();
static long  ogetint();
static char  *ogetstr();
static int  getobj(), octerror();
static OCTREE  getfullnode(), gettree();

static char  *infn;                     /* input file name */
static FILE  *infp;                     /* input file stream */
static int  objsize;                    /* size of stored OBJECT's */
static OBJECT  objorig;                 /* zeroeth object */
static short  otypmap[NUMOTYPE+8];      /* object type map */


int
readoct(fname, load, scene, ofn)        /* read in octree from file */
char  *fname;
int  load;
CUBE  *scene;
char  *ofn[];
{
        extern int  fputs();
        char  sbuf[512];
        int  nf;
        OBJECT  fnobjects;
        register int  i;
        long  m;
        
        if (fname == NULL) {
                infn = "standard input";
                infp = stdin;
        } else {
                infn = fname;
                if ((infp = fopen(fname, "r")) == NULL) {
                        sprintf(errmsg, "cannot open octree file \"%s\"",
                                        fname);
                        error(SYSTEM, errmsg);
                }
        }
                                        /* get header */
        if (checkheader(infp, OCTFMT, load&IO_INFO ? stdout : NULL) < 0)
                octerror(USER, "not an octree");
                                        /* check format */
        if ((objsize = ogetint(2)-OCTMAGIC) <= 0 ||
                        objsize > MAXOBJSIZ || objsize > sizeof(long))
                octerror(USER, "incompatible octree format");
                                        /* get boundaries */
        if (load & IO_BOUNDS) {
                for (i = 0; i < 3; i++)
                        scene->cuorg[i] = atof(ogetstr(sbuf));
                scene->cusize = atof(ogetstr(sbuf));
        } else {
                for (i = 0; i < 4; i++)
                        ogetstr(sbuf);
        }
        objorig = nobjects;             /* set object offset */
        nf = 0;                         /* get object files */
        while (*ogetstr(sbuf)) {
                if (load & IO_SCENE)
                        readobj(sbuf);
                if (load & IO_FILES)
                        ofn[nf] = savqstr(sbuf);
                nf++;
        }
        if (load & IO_FILES)
                ofn[nf] = NULL;
                                        /* get number of objects */
        fnobjects = m = ogetint(objsize);
        if (fnobjects != m)
                octerror(USER, "too many objects");

        if (load & IO_TREE)                     /* get the octree */
                scene->cutree = gettree();
        else if (load & IO_SCENE && nf == 0)
                skiptree();
                
        if (load & IO_SCENE)            /* get the scene */
            if (nf == 0) {
                for (i = 0; *ogetstr(sbuf); i++)
                        if ((otypmap[i] = otype(sbuf)) < 0) {
                                sprintf(errmsg, "unknown type \"%s\"", sbuf);
                                octerror(WARNING, errmsg);
                        }
                while (getobj() != OVOID)
                        ;
            } else {                    /* consistency checks */
                                /* check object count */
                if (nobjects != objorig+fnobjects)
                        octerror(USER, "bad object count; octree stale?");
                                /* check for non-surfaces */
                if (nonsurfinset(objorig, fnobjects))
                        octerror(USER, "modifier in tree; octree stale?");
            }
        fclose(infp);
        return(nf);
}


static char *
ogetstr(s)                      /* get null-terminated string */
char  *s;
{
        extern char  *getstr();

        if (getstr(s, infp) == NULL)
                octerror(USER, "truncated octree");
        return(s);
}


static OCTREE
getfullnode()                   /* get a set, return fullnode */
{
        OBJECT  set[MAXSET+1];
        register int  i;
        register long  m;

        if ((set[0] = ogetint(objsize)) > MAXSET)
                octerror(USER, "bad set in getfullnode");
        for (i = 1; i <= set[0]; i++) {
                m = ogetint(objsize) + objorig;
                if ((set[i] = m) != m)
                        octerror(USER, "too many objects");
        }
        return(fullnode(set));
}       


static long
ogetint(siz)                    /* get a siz-byte integer */
int  siz;
{
        extern long  getint();
        register long  r;

        r = getint(siz, infp);
        if (feof(infp))
                octerror(USER, "truncated octree");
        return(r);
}


static double
ogetflt()                       /* get a floating point number */
{
        extern double  getflt();
        double  r;

        r = getflt(infp);
        if (feof(infp))
                octerror(USER, "truncated octree");
        return(r);
}
        

static OCTREE
gettree()                       /* get a pre-ordered octree */
{
        register OCTREE  ot;
        register int  i;
        
        switch (getc(infp)) {
        case OT_EMPTY:
                return(EMPTY);
        case OT_FULL:
                return(getfullnode());
        case OT_TREE:
                if ((ot = octalloc()) == EMPTY)
                        octerror(SYSTEM, "out of tree space in gettree");
                for (i = 0; i < 8; i++)
                        octkid(ot, i) = gettree();
                return(ot);
        case EOF:
                octerror(USER, "truncated octree");
        default:
                octerror(USER, "damaged octree");
        }
}


static
skiptree()                              /* skip octree on input */
{
        register int  i;
        
        switch (getc(infp)) {
        case OT_EMPTY:
                return;
        case OT_FULL:
                for (i = ogetint(objsize)*objsize; i-- > 0; )
                        if (getc(infp) == EOF)
                                octerror(USER, "truncated octree");
                return;
        case OT_TREE:
                for (i = 0; i < 8; i++)
                        skiptree();
                return;
        case EOF:
                octerror(USER, "truncated octree");
        default:
                octerror(USER, "damaged octree");
        }
}


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

        i = ogetint(1);
        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)
                octerror(USER, "reference to unknown type");
        if ((m = ogetint(objsize)) != OVOID) {
                m += objorig;
                if ((OBJECT)m != m)
                        octerror(USER, "too many objects");
        }
        objp->omod = m;
        objp->oname = savqstr(ogetstr(sbuf));
        if (objp->oargs.nsargs = ogetint(2)) {
                objp->oargs.sarg = (char **)bmalloc
                                (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(ogetstr(sbuf));
        } else
                objp->oargs.sarg = NULL;
#ifdef  IARGS
        if (objp->oargs.niargs = ogetint(2)) {
                objp->oargs.iarg = (long *)bmalloc
                                (objp->oargs.niargs*sizeof(long));
                if (objp->oargs.iarg == NULL)
                        goto memerr;
                for (i = 0; i < objp->oargs.niargs; i++)
                        objp->oargs.iarg[i] = ogetint(4);
        } else
                objp->oargs.iarg = NULL;
#endif
        if (objp->oargs.nfargs = ogetint(2)) {
                objp->oargs.farg = (FLOAT *)bmalloc
                                (objp->oargs.nfargs*sizeof(FLOAT));
                if (objp->oargs.farg == NULL)
                        goto memerr;
                for (i = 0; i < objp->oargs.nfargs; i++)
                        objp->oargs.farg[i] = ogetflt();
        } else
                objp->oargs.farg = NULL;
                                                /* initialize */
        objp->os = NULL;
        objp->lastrno = -1;
                                                /* insert */
        insertobject(obj);
        return(obj);
memerr:
        error(SYSTEM, "out of memory in getobj");
}


static
octerror(etyp, msg)                     /* octree error */
int  etyp;
char  *msg;
{
        char  msgbuf[128];

        sprintf(msgbuf, "(%s): %s", infn, msg);
        error(etyp, msgbuf);
}
Revision:	2.6
Committed:	Thu Aug 6 09:29:38 1992 UTC (31 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.5:	+3 -2 lines
Log Message:	made skiptree() slightly more efficient
#	User	Rev	Content
1	greg	2.5	/* Copyright (c) 1992 Regents of the University of California */
2	greg	1.1
3			#ifndef lint
4			static char SCCSid[] = "$SunId$ LBL";
5			#endif
6
7			/*
8			* readoct.c - routines to read octree information.
9			*
10			* 7/30/85
11			*/
12
13			#include "standard.h"
14
15			#include "octree.h"
16
17			#include "object.h"
18
19			#include "otypes.h"
20
21	greg	2.4	static double ogetflt();
22			static long ogetint();
23			static char *ogetstr();
24	greg	1.16	static int getobj(), octerror();
25	greg	1.7	static OCTREE getfullnode(), gettree();
26	greg	1.1
27			static char infn; / input file name */
28			static FILE infp; / input file stream */
29	greg	1.14	static int objsize; /* size of stored OBJECT's */
30	greg	1.1	static OBJECT objorig; /* zeroeth object */
31			static short otypmap[NUMOTYPE+8]; /* object type map */
32
33
34			int
35			readoct(fname, load, scene, ofn) /* read in octree from file */
36			char *fname;
37			int load;
38			CUBE *scene;
39			char *ofn[];
40			{
41	greg	1.12	extern int fputs();
42	greg	1.11	char sbuf[512];
43	greg	1.1	int nf;
44	greg	1.8	OBJECT fnobjects;
45	greg	1.1	register int i;
46	greg	1.15	long m;
47	greg	1.1
48			if (fname == NULL) {
49			infn = "standard input";
50			infp = stdin;
51			} else {
52			infn = fname;
53			if ((infp = fopen(fname, "r")) == NULL) {
54			sprintf(errmsg, "cannot open octree file \"%s\"",
55			fname);
56			error(SYSTEM, errmsg);
57			}
58			}
59			/* get header */
60	greg	1.12	if (checkheader(infp, OCTFMT, load&IO_INFO ? stdout : NULL) < 0)
61			octerror(USER, "not an octree");
62	greg	1.1	/* check format */
63	greg	2.4	if ((objsize = ogetint(2)-OCTMAGIC) <= 0 \|\|
64	greg	1.14	objsize > MAXOBJSIZ \|\| objsize > sizeof(long))
65	greg	1.12	octerror(USER, "incompatible octree format");
66	greg	1.1	/* get boundaries */
67			if (load & IO_BOUNDS) {
68			for (i = 0; i < 3; i++)
69	greg	2.4	scene->cuorg[i] = atof(ogetstr(sbuf));
70			scene->cusize = atof(ogetstr(sbuf));
71	greg	1.1	} else {
72			for (i = 0; i < 4; i++)
73	greg	2.4	ogetstr(sbuf);
74	greg	1.1	}
75			objorig = nobjects; /* set object offset */
76			nf = 0; /* get object files */
77	greg	2.4	while (*ogetstr(sbuf)) {
78	greg	1.1	if (load & IO_SCENE)
79			readobj(sbuf);
80			if (load & IO_FILES)
81			ofn[nf] = savqstr(sbuf);
82			nf++;
83			}
84			if (load & IO_FILES)
85			ofn[nf] = NULL;
86	greg	1.8	/* get number of objects */
87	greg	2.4	fnobjects = m = ogetint(objsize);
88	greg	1.15	if (fnobjects != m)
89			octerror(USER, "too many objects");
90	greg	1.1
91	greg	2.5	if (load & IO_TREE) /* get the octree */
92	greg	1.1	scene->cutree = gettree();
93	greg	2.5	else if (load & IO_SCENE && nf == 0)
94			skiptree();
95
96			if (load & IO_SCENE) /* get the scene */
97			if (nf == 0) {
98			for (i = 0; *ogetstr(sbuf); i++)
99			if ((otypmap[i] = otype(sbuf)) < 0) {
100			sprintf(errmsg, "unknown type \"%s\"", sbuf);
101			octerror(WARNING, errmsg);
102			}
103			while (getobj() != OVOID)
104			;
105			} else { /* consistency checks */
106			/* check object count */
107			if (nobjects != objorig+fnobjects)
108			octerror(USER, "bad object count; octree stale?");
109			/* check for non-surfaces */
110			if (nonsurfinset(objorig, fnobjects))
111			octerror(USER, "modifier in tree; octree stale?");
112			}
113	greg	1.1	fclose(infp);
114			return(nf);
115			}
116
117
118			static char *
119	greg	2.4	ogetstr(s) /* get null-terminated string */
120	greg	1.1	char *s;
121			{
122	greg	2.4	extern char *getstr();
123	greg	1.1
124	greg	2.4	if (getstr(s, infp) == NULL)
125			octerror(USER, "truncated octree");
126			return(s);
127	greg	1.1	}
128
129
130			static OCTREE
131			getfullnode() /* get a set, return fullnode */
132			{
133			OBJECT set[MAXSET+1];
134			register int i;
135	greg	1.14	register long m;
136	greg	1.1
137	greg	2.4	if ((set[0] = ogetint(objsize)) > MAXSET)
138	greg	1.1	octerror(USER, "bad set in getfullnode");
139	greg	1.14	for (i = 1; i <= set[0]; i++) {
140	greg	2.4	m = ogetint(objsize) + objorig;
141	greg	1.15	if ((set[i] = m) != m)
142	greg	1.14	octerror(USER, "too many objects");
143			}
144	greg	1.1	return(fullnode(set));
145			}
146
147
148			static long
149	greg	2.4	ogetint(siz) /* get a siz-byte integer */
150			int siz;
151	greg	1.1	{
152	greg	2.4	extern long getint();
153	greg	1.3	register long r;
154	greg	1.1
155	greg	2.4	r = getint(siz, infp);
156			if (feof(infp))
157			octerror(USER, "truncated octree");
158	greg	1.1	return(r);
159			}
160
161
162			static double
163	greg	2.4	ogetflt() /* get a floating point number */
164	greg	1.1	{
165	greg	2.4	extern double getflt();
166			double r;
167	greg	1.1
168	greg	2.4	r = getflt(infp);
169			if (feof(infp))
170			octerror(USER, "truncated octree");
171			return(r);
172	greg	1.1	}
173
174
175			static OCTREE
176			gettree() /* get a pre-ordered octree */
177			{
178			register OCTREE ot;
179			register int i;
180
181			switch (getc(infp)) {
182			case OT_EMPTY:
183			return(EMPTY);
184			case OT_FULL:
185			return(getfullnode());
186			case OT_TREE:
187			if ((ot = octalloc()) == EMPTY)
188			octerror(SYSTEM, "out of tree space in gettree");
189			for (i = 0; i < 8; i++)
190			octkid(ot, i) = gettree();
191			return(ot);
192	greg	2.5	case EOF:
193			octerror(USER, "truncated octree");
194			default:
195			octerror(USER, "damaged octree");
196			}
197			}
198
199
200			static
201			skiptree() /* skip octree on input */
202			{
203			register int i;
204
205			switch (getc(infp)) {
206			case OT_EMPTY:
207			return;
208			case OT_FULL:
209	greg	2.6	for (i = ogetint(objsize)*objsize; i-- > 0; )
210			if (getc(infp) == EOF)
211			octerror(USER, "truncated octree");
212	greg	2.5	return;
213			case OT_TREE:
214			for (i = 0; i < 8; i++)
215			skiptree();
216			return;
217	greg	1.1	case EOF:
218			octerror(USER, "truncated octree");
219			default:
220			octerror(USER, "damaged octree");
221			}
222			}
223
224
225			static
226			getobj() /* get next object */
227			{
228			char sbuf[MAXSTR];
229			int obj;
230			register int i;
231	greg	1.14	register long m;
232	greg	1.1	register OBJREC *objp;
233
234	greg	2.4	i = ogetint(1);
235	greg	1.3	if (i == -1)
236	greg	1.1	return(OVOID); /* terminator */
237			if ((obj = newobject()) == OVOID)
238			error(SYSTEM, "out of object space");
239			objp = objptr(obj);
240			if ((objp->otype = otypmap[i]) < 0)
241			octerror(USER, "reference to unknown type");
242	greg	2.4	if ((m = ogetint(objsize)) != OVOID) {
243	greg	1.14	m += objorig;
244			if ((OBJECT)m != m)
245			octerror(USER, "too many objects");
246			}
247			objp->omod = m;
248	greg	2.4	objp->oname = savqstr(ogetstr(sbuf));
249			if (objp->oargs.nsargs = ogetint(2)) {
250	greg	1.1	objp->oargs.sarg = (char **)bmalloc
251			(objp->oargs.nsargssizeof(char ));
252			if (objp->oargs.sarg == NULL)
253			goto memerr;
254			for (i = 0; i < objp->oargs.nsargs; i++)
255	greg	2.4	objp->oargs.sarg[i] = savestr(ogetstr(sbuf));
256	greg	1.1	} else
257			objp->oargs.sarg = NULL;
258			#ifdef IARGS
259	greg	2.4	if (objp->oargs.niargs = ogetint(2)) {
260	greg	1.1	objp->oargs.iarg = (long *)bmalloc
261			(objp->oargs.niargs*sizeof(long));
262			if (objp->oargs.iarg == NULL)
263			goto memerr;
264			for (i = 0; i < objp->oargs.niargs; i++)
265	greg	2.4	objp->oargs.iarg[i] = ogetint(4);
266	greg	1.1	} else
267			objp->oargs.iarg = NULL;
268			#endif
269	greg	2.4	if (objp->oargs.nfargs = ogetint(2)) {
270	greg	1.15	objp->oargs.farg = (FLOAT *)bmalloc
271			(objp->oargs.nfargs*sizeof(FLOAT));
272	greg	1.1	if (objp->oargs.farg == NULL)
273			goto memerr;
274			for (i = 0; i < objp->oargs.nfargs; i++)
275	greg	2.4	objp->oargs.farg[i] = ogetflt();
276	greg	1.1	} else
277			objp->oargs.farg = NULL;
278			/* initialize */
279			objp->os = NULL;
280			objp->lastrno = -1;
281			/* insert */
282			insertobject(obj);
283			return(obj);
284			memerr:
285			error(SYSTEM, "out of memory in getobj");
286			}
287
288
289			static
290			octerror(etyp, msg) /* octree error */
291			int etyp;
292			char *msg;
293			{
294			char msgbuf[128];
295
296			sprintf(msgbuf, "(%s): %s", infn, msg);
297			error(etyp, msgbuf);
298			}