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

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

/*
 *  readobj2.c - routines for reading in object descriptions.
 */

#include  "standard.h"

#include  "object.h"

#include  "otypes.h"

#include  <ctype.h>

OBJREC  *objblock[MAXOBJBLK];		/* our objects */
OBJECT  nobjects = 0;			/* # of objects */
int newobject() {return(0);}


readobj(input, callback)	/* read in an object file or stream */
char  *input;
int  (*callback)();
{
	FILE  *popen();
	char  *fgets(), *fgetline();
	FILE  *infp;
	char  buf[512];
	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);
			readobj(buf, callback);
		} else {				/* object */
			ungetc(c, infp);
			getobject(input, infp, callback);
		}
	}
	if (input[0] == '!')
		pclose(infp);
	else
		fclose(infp);
}


getobject(name, fp, f)			/* read the next object */
char  *name;
FILE  *fp;
int  (*f)();
{
	char  sbuf[MAXSTR];
	OBJREC  thisobj;
					/* get modifier */
	fscanf(fp, "%*s");
	thisobj.omod = OVOID;
					/* get type */
	fscanf(fp, "%s", sbuf);
	if (!strcmp(sbuf, ALIASID))
		thisobj.otype = -1;
	else if ((thisobj.otype = otype(sbuf)) < 0) {
		sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
		error(USER, errmsg);
	}
					/* get identifier */
	fscanf(fp, "%s", sbuf);
	thisobj.oname = sbuf;
					/* get arguments */
	if (thisobj.otype == -1) {
		fscanf(fp, "%*s");
		return;
	}
	if (readfargs(&thisobj.oargs, fp) < 0) {
		sprintf(errmsg, "(%s): bad arguments", name);
		objerror(&thisobj, USER, errmsg);
	}
	thisobj.os = NULL;
	thisobj.lastrno = -1;
					/* call function */
	(*f)(&thisobj);
					/* free memory */
	if (thisobj.os != NULL)
		switch (thisobj.otype) {
		case OBJ_CONE:
		case OBJ_CUP:
		case OBJ_CYLINDER:
		case OBJ_TUBE:
		case OBJ_RING:
			freecone(&thisobj);
			break;
		case OBJ_FACE:
			freeface(&thisobj);
			break;
		case OBJ_INSTANCE:
			freeinstance(&thisobj);
			break;
		}
	freefargs(&thisobj.oargs);
}


readfargs(fa, fp)		/* read function arguments from stream */
register FUNARGS  *fa;
FILE  *fp;
{
	extern char  *strcpy();
	char  sbuf[MAXSTR];
	int  n;
	register int  i;

	if (fscanf(fp, "%d", &n) != 1 || n < 0)
		return(-1);
	if (fa->nsargs = n) {
		fa->sarg = (char **)malloc(n*sizeof(char *));
		if (fa->sarg == NULL)
			goto memerr;
		for (i = 0; i < fa->nsargs; i++) {
			if (fscanf(fp, "%s", sbuf) != 1)
				return(-1);
			fa->sarg[i] = malloc(strlen(sbuf)+1);
			if (fa->sarg[i] == NULL)
				goto memerr;
			(void)strcpy(fa->sarg[i], sbuf);
		}
	} else
		fa->sarg = NULL;
	if (fscanf(fp, "%d", &n) != 1 || n < 0)
		return(-1);
#ifdef  IARGS
	if (fa->niargs = n) {
		fa->iarg = (long *)malloc(n*sizeof(long));
		if (fa->iarg == NULL)
			goto memerr;
		for (i = 0; i < n; i++)
			if (fscanf(fp, "%ld", &fa->iarg[i]) != 1)
				return(-1);
	} else
		fa->iarg = NULL;
#else
	if (n != 0)
		return(-1);
#endif
	if (fscanf(fp, "%d", &n) != 1 || n < 0)
		return(-1);
	if (fa->nfargs = n) {
		fa->farg = (double *)malloc(n*sizeof(double));
		if (fa->farg == NULL)
			goto memerr;
		for (i = 0; i < n; i++)
			if (fscanf(fp, "%lf", &fa->farg[i]) != 1)
				return(-1);
	} else
		fa->farg = NULL;
	return(0);
memerr:
	error(SYSTEM, "out of memory in readfargs");
}


freefargs(fa)		/* free arguments */
register FUNARGS  *fa;
{
	register int  i;

	if (fa->nsargs) {
		for (i = 0; i < fa->nsargs; i++)
			free(fa->sarg[i]);
		free((char *)fa->sarg);
	}
#ifdef  IARGS
	if (fa->niargs)
		free((char *)fa->iarg);
#endif
	if (fa->nfargs)
		free((char *)fa->farg);
}