src/common/readoct.c

/* Copyright (c) 1991 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"

extern double  atof();
static double  getflt();
static long  getint();
static char  *getstr();
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 = getint(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(getstr(sbuf));
                scene->cusize = atof(getstr(sbuf));
        } else {
                for (i = 0; i < 4; i++)
                        getstr(sbuf);
        }
        objorig = nobjects;             /* set object offset */
        nf = 0;                         /* get object files */
        while (*getstr(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 = getint(objsize);
        if (fnobjects != m)
                octerror(USER, "too many objects");

        if (load & IO_TREE) {
                                                /* get the octree */
                scene->cutree = gettree();
                                                /* get the scene */
                if (nf == 0 && load & IO_SCENE) {
                        for (i = 0; *getstr(sbuf); i++)
                                if ((otypmap[i] = otype(sbuf)) < 0) {
                                        sprintf(errmsg, "unknown type \"%s\"",
                                                        sbuf);
                                        octerror(WARNING, errmsg);
                                }
                        while (getobj() != OVOID)
                                ;
                } else if (load & IO_SCENE) {           /* 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, "non-surface in set; octree stale?");
                }
        }
        fclose(infp);
        return(nf);
}


static char *
getstr(s)                       /* get null-terminated string */
char  *s;
{
        register char  *cp;
        register int  c;

        cp = s;
        while ((c = getc(infp)) != EOF)
                if ((*cp++ = c) == '\0')
                        return(s);
                
        octerror(USER, "truncated octree");
}


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

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


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

        if ((c = getc(infp)) == EOF)
                goto end_file;
        r = 0x80&c ? -1<<8|c : c;               /* sign extend */
        while (--siz > 0) {
                if ((c = getc(infp)) == EOF)
                        goto end_file;
                r <<= 8;
                r |= c;
        }
        return(r);
end_file:
        octerror(USER, "truncated octree");
}


static double
getflt()                        /* get a floating point number */
{
        extern double  ldexp();
        double  d;

        d = (double)getint(4)/0x7fffffff;
        return(ldexp(d, (int)getint(1)));
}
        

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
getobj()                                /* get next object */
{
        char  sbuf[MAXSTR];
        int  obj;
        register int  i;
        register long  m;
        register OBJREC  *objp;

        i = getint(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 = getint(objsize)) != OVOID) {
                m += objorig;
                if ((OBJECT)m != m)
                        octerror(USER, "too many objects");
        }
        objp->omod = m;
        objp->oname = savqstr(getstr(sbuf));
        if (objp->oargs.nsargs = getint(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(getstr(sbuf));
        } else
                objp->oargs.sarg = NULL;
#ifdef  IARGS
        if (objp->oargs.niargs = getint(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] = getint(4);
        } else
                objp->oargs.iarg = NULL;
#endif
        if (objp->oargs.nfargs = getint(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] = getflt();
        } 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:	1.15
Committed:	Thu Oct 24 10:13:20 1991 UTC (32 years, 6 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 1.14:	+8 -8 lines
Log Message:	minor fixes
#	User	Rev	Content
1	greg	1.13	/* Copyright (c) 1991 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	1.7	extern double atof();
22			static double getflt();
23			static long getint();
24			static char *getstr();
25			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	1.14	if ((objsize = getint(2)-OCTMAGIC) <= 0 \|\|
64			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			scene->cuorg[i] = atof(getstr(sbuf));
70			scene->cusize = atof(getstr(sbuf));
71			} else {
72			for (i = 0; i < 4; i++)
73			getstr(sbuf);
74			}
75			objorig = nobjects; /* set object offset */
76			nf = 0; /* get object files */
77			while (*getstr(sbuf)) {
78			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	1.15	fnobjects = m = getint(objsize);
88			if (fnobjects != m)
89			octerror(USER, "too many objects");
90	greg	1.1
91			if (load & IO_TREE) {
92			/* get the octree */
93			scene->cutree = gettree();
94			/* get the scene */
95			if (nf == 0 && load & IO_SCENE) {
96			for (i = 0; *getstr(sbuf); i++)
97			if ((otypmap[i] = otype(sbuf)) < 0) {
98			sprintf(errmsg, "unknown type \"%s\"",
99			sbuf);
100			octerror(WARNING, errmsg);
101			}
102			while (getobj() != OVOID)
103			;
104	greg	1.13	} else if (load & IO_SCENE) { /* consistency checks */
105			/* check object count */
106			if (nobjects != objorig+fnobjects)
107			octerror(USER, "bad object count; octree stale?");
108			/* check for non-surfaces */
109			if (nonsurfinset(objorig, fnobjects))
110			octerror(USER, "non-surface in set; octree stale?");
111	greg	1.1	}
112			}
113			fclose(infp);
114			return(nf);
115			}
116
117
118			static char *
119			getstr(s) /* get null-terminated string */
120			char *s;
121			{
122			register char *cp;
123			register int c;
124
125			cp = s;
126			while ((c = getc(infp)) != EOF)
127			if ((*cp++ = c) == '\0')
128			return(s);
129
130			octerror(USER, "truncated octree");
131			}
132
133
134			static OCTREE
135			getfullnode() /* get a set, return fullnode */
136			{
137			OBJECT set[MAXSET+1];
138			register int i;
139	greg	1.14	register long m;
140	greg	1.1
141	greg	1.15	if ((set[0] = getint(objsize)) > MAXSET)
142	greg	1.1	octerror(USER, "bad set in getfullnode");
143	greg	1.14	for (i = 1; i <= set[0]; i++) {
144			m = getint(objsize) + objorig;
145	greg	1.15	if ((set[i] = m) != m)
146	greg	1.14	octerror(USER, "too many objects");
147			}
148	greg	1.1	return(fullnode(set));
149			}
150
151
152			static long
153	greg	1.3	getint(siz) /* get a siz-byte integer */
154	greg	1.1	register int siz;
155			{
156			register int c;
157	greg	1.3	register long r;
158	greg	1.1
159	greg	1.6	if ((c = getc(infp)) == EOF)
160			goto end_file;
161			r = 0x80&c ? -1<<8\|c : c; /* sign extend */
162			while (--siz > 0) {
163	greg	1.1	if ((c = getc(infp)) == EOF)
164	greg	1.6	goto end_file;
165	greg	1.1	r <<= 8;
166			r \|= c;
167			}
168			return(r);
169	greg	1.6	end_file:
170			octerror(USER, "truncated octree");
171	greg	1.1	}
172
173
174			static double
175			getflt() /* get a floating point number */
176			{
177			extern double ldexp();
178			double d;
179
180	greg	1.3	d = (double)getint(4)/0x7fffffff;
181	greg	1.10	return(ldexp(d, (int)getint(1)));
182	greg	1.1	}
183
184
185			static OCTREE
186			gettree() /* get a pre-ordered octree */
187			{
188			register OCTREE ot;
189			register int i;
190
191			switch (getc(infp)) {
192			case OT_EMPTY:
193			return(EMPTY);
194			case OT_FULL:
195			return(getfullnode());
196			case OT_TREE:
197			if ((ot = octalloc()) == EMPTY)
198			octerror(SYSTEM, "out of tree space in gettree");
199			for (i = 0; i < 8; i++)
200			octkid(ot, i) = gettree();
201			return(ot);
202			case EOF:
203			octerror(USER, "truncated octree");
204			default:
205			octerror(USER, "damaged octree");
206			}
207			}
208
209
210			static
211			getobj() /* get next object */
212			{
213			char sbuf[MAXSTR];
214			int obj;
215			register int i;
216	greg	1.14	register long m;
217	greg	1.1	register OBJREC *objp;
218
219	greg	1.2	i = getint(1);
220	greg	1.3	if (i == -1)
221	greg	1.1	return(OVOID); /* terminator */
222			if ((obj = newobject()) == OVOID)
223			error(SYSTEM, "out of object space");
224			objp = objptr(obj);
225			if ((objp->otype = otypmap[i]) < 0)
226			octerror(USER, "reference to unknown type");
227	greg	1.14	if ((m = getint(objsize)) != OVOID) {
228			m += objorig;
229			if ((OBJECT)m != m)
230			octerror(USER, "too many objects");
231			}
232			objp->omod = m;
233	greg	1.1	objp->oname = savqstr(getstr(sbuf));
234			if (objp->oargs.nsargs = getint(2)) {
235			objp->oargs.sarg = (char **)bmalloc
236			(objp->oargs.nsargssizeof(char ));
237			if (objp->oargs.sarg == NULL)
238			goto memerr;
239			for (i = 0; i < objp->oargs.nsargs; i++)
240			objp->oargs.sarg[i] = savestr(getstr(sbuf));
241			} else
242			objp->oargs.sarg = NULL;
243			#ifdef IARGS
244			if (objp->oargs.niargs = getint(2)) {
245			objp->oargs.iarg = (long *)bmalloc
246			(objp->oargs.niargs*sizeof(long));
247			if (objp->oargs.iarg == NULL)
248			goto memerr;
249			for (i = 0; i < objp->oargs.niargs; i++)
250	greg	1.3	objp->oargs.iarg[i] = getint(4);
251	greg	1.1	} else
252			objp->oargs.iarg = NULL;
253			#endif
254			if (objp->oargs.nfargs = getint(2)) {
255	greg	1.15	objp->oargs.farg = (FLOAT *)bmalloc
256			(objp->oargs.nfargs*sizeof(FLOAT));
257	greg	1.1	if (objp->oargs.farg == NULL)
258			goto memerr;
259			for (i = 0; i < objp->oargs.nfargs; i++)
260			objp->oargs.farg[i] = getflt();
261			} else
262			objp->oargs.farg = NULL;
263			/* initialize */
264			objp->os = NULL;
265			objp->lastrno = -1;
266			/* insert */
267			insertobject(obj);
268			return(obj);
269			memerr:
270			error(SYSTEM, "out of memory in getobj");
271			}
272
273
274			static
275			octerror(etyp, msg) /* octree error */
276			int etyp;
277			char *msg;
278			{
279			char msgbuf[128];
280
281			sprintf(msgbuf, "(%s): %s", infn, msg);
282			error(etyp, msgbuf);
283			}