--- ray/src/common/readoct.c	1992/08/06 09:02:38	2.5
+++ ray/src/common/readoct.c	1993/11/18 09:27:01	2.10
@@ -21,7 +21,7 @@ static char SCCSid[] = "$SunId$ LBL";
 static double  ogetflt();
 static long  ogetint();
 static char  *ogetstr();
-static int  getobj(), octerror();
+static int  getobj(), octerror(), skiptree();
 static OCTREE  getfullnode(), gettree();
 
 static char  *infn;			/* input file name */
@@ -38,10 +38,9 @@ int  load;
 CUBE  *scene;
 char  *ofn[];
 {
-	extern int  fputs();
 	char  sbuf[512];
 	int  nf;
-	OBJECT  fnobjects;
+	OBJECT	fnobjects;
 	register int  i;
 	long  m;
 	
@@ -56,6 +55,9 @@ char  *ofn[];
 			error(SYSTEM, errmsg);
 		}
 	}
+#ifdef MSDOS
+	setmode(fileno(infp), O_BINARY);
+#endif
 					/* get header */
 	if (checkheader(infp, OCTFMT, load&IO_INFO ? stdout : NULL) < 0)
 		octerror(USER, "not an octree");
@@ -130,7 +132,7 @@ char  *s;
 static OCTREE
 getfullnode()			/* get a set, return fullnode */
 {
-	OBJECT  set[MAXSET+1];
+	OBJECT	set[MAXSET+1];
 	register int  i;
 	register long  m;
 
@@ -163,7 +165,7 @@ static double
 ogetflt()			/* get a floating point number */
 {
 	extern double  getflt();
-	double  r;
+	double	r;
 
 	r = getflt(infp);
 	if (feof(infp))
@@ -175,7 +177,7 @@ ogetflt()			/* get a floating point number */
 static OCTREE
 gettree()			/* get a pre-ordered octree */
 {
-	register OCTREE  ot;
+	register OCTREE	 ot;
 	register int  i;
 	
 	switch (getc(infp)) {
@@ -206,8 +208,9 @@ skiptree()				/* skip octree on input */
 	case OT_EMPTY:
 		return;
 	case OT_FULL:
-		for (i = ogetint(objsize); i-- > 0; )
-			ogetint(objsize);
+		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++)
@@ -228,7 +231,7 @@ getobj()				/* get next object */
 	int  obj;
 	register int  i;
 	register long  m;
-	register OBJREC  *objp;
+	register OBJREC	 *objp;
 
 	i = ogetint(1);
 	if (i == -1)
@@ -254,7 +257,7 @@ getobj()				/* get next object */
 			objp->oargs.sarg[i] = savestr(ogetstr(sbuf));
 	} else
 		objp->oargs.sarg = NULL;
-#ifdef  IARGS
+#ifdef	IARGS
 	if (objp->oargs.niargs = ogetint(2)) {
 		objp->oargs.iarg = (long *)bmalloc
 				(objp->oargs.niargs*sizeof(long));
@@ -276,7 +279,6 @@ getobj()				/* get next object */
 		objp->oargs.farg = NULL;
 						/* initialize */
 	objp->os = NULL;
-	objp->lastrno = -1;
 						/* insert */
 	insertobject(obj);
 	return(obj);