#ifndef lint
static const char	RCSid[] = "$Id: readobj2.c,v 2.10 2004/09/28 23:55:02 greg Exp $";
#endif
/*
 *  readobj2.c - routines for reading in object descriptions.
 */

#include  <ctype.h>
#include  <stdio.h>

#include  "platform.h"
#include  "rtprocess.h"
#include  "rtmath.h"
#include  "rtio.h"
#include  "rterror.h"
#include  "object.h"
#include  "otypes.h"
#include  "oconv.h"


static void getobject2(char  *name, FILE  *fp, ro_cbfunc f);


void
readobj2(	/* read in an object file or stream */
	char  *input,
	ro_cbfunc callback
)
{
	char  *fgetline();
	FILE  *infp;
	char  buf[2048];
	register int  c;

	if (input == NULL) {
		infp = stdin;
		input = "standard input";
	} else if (input[0] == '!') {
		if ((infp = popen(input+1, "r")) == NULL) {
			sprintf(errmsg, "cannot execute \"%s\"", input);
			error(SYSTEM, errmsg);
		}
	} else if ((infp = fopen(input, "r")) == NULL) {
		sprintf(errmsg, "cannot open scene file \"%s\"", input);
		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);
			readobj2(buf, callback);
		} else {				/* object */
			ungetc(c, infp);
			getobject2(input, infp, callback);
		}
	}
	if (input[0] == '!')
		pclose(infp);
	else
		fclose(infp);
}


static void
getobject2(			/* read the next object */
	char  *name,
	FILE  *fp,
	ro_cbfunc f
)
{
	char  sbuf[MAXSTR];
	OBJREC  thisobj;
					/* get modifier */
	fgetword(sbuf, MAXSTR, fp);
	thisobj.omod = OVOID;
					/* get type */
	fgetword(sbuf, MAXSTR, fp);
	if ((thisobj.otype = otype(sbuf)) < 0) {
		sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
		error(USER, errmsg);
	}
					/* get identifier */
	fgetword(sbuf, MAXSTR, fp);
	thisobj.oname = sbuf;
					/* get arguments */
	if (thisobj.otype == MOD_ALIAS) {
		fscanf(fp, "%*s");
		return;
	}
	if (readfargs(&thisobj.oargs, fp) <= 0) {
		sprintf(errmsg, "(%s): bad arguments", name);
		objerror(&thisobj, USER, errmsg);
	}
	thisobj.os = NULL;
					/* call function */
	(*f)(&thisobj);
					/* free memory */
	freefargs(&thisobj.oargs);
	free_os(&thisobj);
}