src/common/readobj.c

#ifndef lint
static const char RCSid[] = "$Id: readobj.c,v 2.27 2025/04/22 04:45:25 greg Exp $";
#endif
/*
 *  readobj.c - routines for reading in object descriptions.
 *
 *  External symbols declared in object.h
 */

#include "copyright.h"

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

#include  "platform.h"
#include  "paths.h"
#include  "standard.h"
#include  "object.h"
#include  "otypes.h"


OBJREC  *objblock[MAXOBJBLK];           /* our objects */
OBJECT  nobjects = 0;                   /* # of objects */


void
readobj(                                /* read in an object file or stream */
        char  *inpspec
)
{
        OBJECT  lastobj;
        FILE  *infp;
        char  buf[2048];
        int  c;

        lastobj = nobjects;
        if (inpspec == NULL) {
                infp = stdin;
                inpspec = "standard input";
        } else if (inpspec[0] == '!') {
                if ((infp = popen(inpspec+1, "r")) == NULL) {
                        sprintf(errmsg, "cannot execute \"%s\"", inpspec);
                        error(SYSTEM, errmsg);
                }
        } else if ((infp = fopen(inpspec, "r")) == NULL) {
                sprintf(errmsg, "cannot open scene file \"%s\"", inpspec);
                error(SYSTEM, errmsg);
        }
#ifdef getc_unlocked                    /* avoid stupid semaphores */
        flockfile(infp);
#endif
        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);
                } else {                                /* object */
                        ungetc(c, infp);
                        getobject(inpspec, infp);
                }
        }
        if (inpspec[0] == '!') {
                if (pclose(infp) != 0) {
                        sprintf(errmsg, "bad status from \"%s\"", inpspec);
                        error(WARNING, errmsg);
                }
        } else if (infp != stdin)
                fclose(infp);
#ifdef getc_unlocked
        else
                funlockfile(infp);
#endif
        if (nobjects == lastobj) {
                sprintf(errmsg, "(%s): empty file", inpspec);
                error(WARNING, errmsg);
        }
}


void
getobject(                              /* read the next object */
        char  *name,
        FILE  *fp
)
{
#define OALIAS  -2
        OBJECT  obj;
        char  sbuf[MAXSTR];
        int  rval;
        OBJREC  *objp;

        if ((obj = newobject()) == OVOID)
                error(SYSTEM, "out of object space");
        objp = objptr(obj);
                                        /* get modifier */
        strcpy(sbuf, "EOF");
        fgetword(sbuf, MAXSTR, fp);
        if (strchr(sbuf, '\t')) {
                sprintf(errmsg, "(%s): illegal tab in modifier \"%s\"",
                                        name, sbuf);
                error(USER, errmsg);
        }
        if (!strcmp(sbuf, VOIDID))
                objp->omod = OVOID;
        else if (!strcmp(sbuf, ALIASMOD))
                objp->omod = OALIAS;
        else if ((objp->omod = modifier(sbuf)) == OVOID) {
                sprintf(errmsg, "(%s): undefined modifier \"%s\"", name, sbuf);
                error(USER, errmsg);
        }
                                        /* get type */
        strcpy(sbuf, "EOF");
        fgetword(sbuf, MAXSTR, fp);
        if ((objp->otype = otype(sbuf)) < 0) {
                sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
                error(USER, errmsg);
        }
                                        /* get identifier */
        sbuf[0] = '\0';
        fgetword(sbuf, MAXSTR, fp);
        if (strchr(sbuf, '\t')) {
                sprintf(errmsg, "(%s): illegal tab in identifier \"%s\"",
                                        name, sbuf);
                error(USER, errmsg);
        }
        objp->oname = savqstr(sbuf);
                                        /* get arguments */
        if (objp->otype == MOD_ALIAS) {
                OBJECT  ref;
                OBJREC  *rfp;
                strcpy(sbuf, "EOF");
                fgetword(sbuf, MAXSTR, fp);
                if ((ref = modifier(sbuf)) == OVOID) {
                        sprintf(errmsg, "(%s): bad reference \"%s\"",
                                        name, sbuf);
                        objerror(objp, USER, errmsg);
                }                       /* skip pass-thru aliases */
                while ((rfp=objptr(ref))->otype == MOD_ALIAS &&
                                !rfp->oargs.nsargs & (rfp->omod != OVOID))
                        ref = rfp->omod;

                if ((objp->omod == OALIAS) | (objp->omod == rfp->omod)) {
                        objp->omod = ref;
                } else {
                        objp->oargs.sarg = (char **)malloc(sizeof(char *));
                        if (objp->oargs.sarg == NULL)
                                error(SYSTEM, "out of memory in getobject");
                        objp->oargs.nsargs = 1;
                        objp->oargs.sarg[0] = savestr(sbuf);
                }
        } else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
                sprintf(errmsg, "(%s): bad arguments", name);
                objerror(objp, USER, errmsg);
        } else if (rval < 0) {
                sprintf(errmsg, "(%s): error reading scene", name);
                error(SYSTEM, errmsg);
        }
        if (objp->omod == OALIAS) {
                sprintf(errmsg, "(%s): inappropriate use of '%s' modifier",
                                name, ALIASMOD);
                objerror(objp, USER, errmsg);
        }
                                        /* initialize */
        objp->os = NULL;

        insertobject(obj);              /* add to global structure */
#undef OALIAS
}


OBJECT
newobject(void)                         /* get a new object */
{
        int  i;

        if ((nobjects & (OBJBLKSIZ-1)) == 0) {  /* new block */
                errno = 0;
                i = nobjects >> OBJBLKSHFT;
                if (i >= MAXOBJBLK)
                        return(OVOID);
                objblock[i] = (OBJREC *)calloc(OBJBLKSIZ, sizeof(OBJREC));
                if (objblock[i] == NULL)
                        return(OVOID);
        }
        return(nobjects++);
}

void
freeobjects(                            /* free a range of objects */
        int firstobj,
        int nobjs
)
{
        int  obj;
                                        /* check bounds */
        if (firstobj < 0)
                return;
        if (nobjs <= 0)
                return;
        if (firstobj + nobjs > nobjects)
                return;
                                        /* clear objects */
        for (obj = firstobj+nobjs; obj-- > firstobj; ) {
                OBJREC  *o = objptr(obj);
                free_os(o);             /* free client memory */
                freeqstr(o->oname);
                freefargs(&o->oargs);
                memset((void *)o, '\0', sizeof(OBJREC));
        }
                                        /* free objects off end */
        for (obj = nobjects; obj-- > 0; )
                if (objptr(obj)->oname != NULL)
                        break;
        if (++obj >= nobjects)
                return;
        while (nobjects > obj)          /* free empty end blocks */
                if ((--nobjects & (OBJBLKSIZ-1)) == 0) {
                        int     i = nobjects >> OBJBLKSHFT;
                        free((void *)objblock[i]);
                        objblock[i] = NULL;
                }
        truncobjndx();                  /* truncate modifier look-up */
}
Revision:	2.28
Committed:	Tue Apr 22 14:51:29 2025 UTC (10 days, 3 hours ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 2.27:	+2 -2 lines
Log Message:	fix: Changed some errors to warnings for pclose()
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.28	static const char RCSid[] = "$Id: readobj.c,v 2.27 2025/04/22 04:45:25 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* readobj.c - routines for reading in object descriptions.
6			*
7	greg	2.8	* External symbols declared in object.h
8			*/
9
10	greg	2.9	#include "copyright.h"
11	greg	1.1
12	schorsch	2.13	#include <ctype.h>
13	schorsch	2.16	#include <string.h>
14	schorsch	2.14	#include <stdio.h>
15	schorsch	2.13
16	greg	2.17	#include "platform.h"
17	greg	2.21	#include "paths.h"
18	greg	1.1	#include "standard.h"
19			#include "object.h"
20			#include "otypes.h"
21
22
23			OBJREC objblock[MAXOBJBLK]; / our objects */
24	greg	1.4	OBJECT nobjects = 0; /* # of objects */
25	greg	1.1
26
27	greg	2.8	void
28	greg	2.22	readobj( /* read in an object file or stream */
29			char *inpspec
30			)
31	greg	1.1	{
32	greg	2.4	OBJECT lastobj;
33	greg	1.1	FILE *infp;
34	greg	2.19	char buf[2048];
35	greg	2.22	int c;
36	greg	1.1
37	greg	2.4	lastobj = nobjects;
38			if (inpspec == NULL) {
39	greg	1.1	infp = stdin;
40	greg	2.4	inpspec = "standard input";
41			} else if (inpspec[0] == '!') {
42			if ((infp = popen(inpspec+1, "r")) == NULL) {
43			sprintf(errmsg, "cannot execute \"%s\"", inpspec);
44	greg	1.1	error(SYSTEM, errmsg);
45			}
46	greg	2.4	} else if ((infp = fopen(inpspec, "r")) == NULL) {
47			sprintf(errmsg, "cannot open scene file \"%s\"", inpspec);
48	greg	1.1	error(SYSTEM, errmsg);
49			}
50	greg	2.25	#ifdef getc_unlocked /* avoid stupid semaphores */
51			flockfile(infp);
52			#endif
53	greg	1.1	while ((c = getc(infp)) != EOF) {
54			if (isspace(c))
55			continue;
56			if (c == '#') { /* comment */
57			fgets(buf, sizeof(buf), infp);
58	greg	1.2	} else if (c == '!') { /* command */
59	greg	1.1	ungetc(c, infp);
60	greg	1.2	fgetline(buf, sizeof(buf), infp);
61	greg	1.1	readobj(buf);
62			} else { /* object */
63			ungetc(c, infp);
64	greg	2.4	getobject(inpspec, infp);
65	greg	1.1	}
66			}
67	greg	2.27	if (inpspec[0] == '!') {
68			if (pclose(infp) != 0) {
69			sprintf(errmsg, "bad status from \"%s\"", inpspec);
70	greg	2.28	error(WARNING, errmsg);
71	greg	2.27	}
72			} else if (infp != stdin)
73	greg	1.1	fclose(infp);
74	greg	2.25	#ifdef getc_unlocked
75			else
76			funlockfile(infp);
77			#endif
78	greg	2.4	if (nobjects == lastobj) {
79			sprintf(errmsg, "(%s): empty file", inpspec);
80			error(WARNING, errmsg);
81			}
82	greg	1.1	}
83
84
85	greg	2.8	void
86	greg	2.22	getobject( /* read the next object */
87			char *name,
88			FILE *fp
89			)
90	greg	1.1	{
91	greg	2.11	#define OALIAS -2
92	greg	1.1	OBJECT obj;
93			char sbuf[MAXSTR];
94	greg	1.6	int rval;
95	greg	2.22	OBJREC *objp;
96	greg	1.1
97			if ((obj = newobject()) == OVOID)
98			error(SYSTEM, "out of object space");
99			objp = objptr(obj);
100			/* get modifier */
101	greg	1.7	strcpy(sbuf, "EOF");
102			fgetword(sbuf, MAXSTR, fp);
103	greg	2.20	if (strchr(sbuf, '\t')) {
104			sprintf(errmsg, "(%s): illegal tab in modifier \"%s\"",
105			name, sbuf);
106			error(USER, errmsg);
107			}
108	greg	1.1	if (!strcmp(sbuf, VOIDID))
109			objp->omod = OVOID;
110	greg	2.11	else if (!strcmp(sbuf, ALIASMOD))
111			objp->omod = OALIAS;
112	greg	1.1	else if ((objp->omod = modifier(sbuf)) == OVOID) {
113			sprintf(errmsg, "(%s): undefined modifier \"%s\"", name, sbuf);
114			error(USER, errmsg);
115			}
116			/* get type */
117	greg	1.7	strcpy(sbuf, "EOF");
118			fgetword(sbuf, MAXSTR, fp);
119	greg	2.11	if ((objp->otype = otype(sbuf)) < 0) {
120	greg	1.1	sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
121			error(USER, errmsg);
122			}
123			/* get identifier */
124	greg	1.7	sbuf[0] = '\0';
125			fgetword(sbuf, MAXSTR, fp);
126	greg	2.20	if (strchr(sbuf, '\t')) {
127			sprintf(errmsg, "(%s): illegal tab in identifier \"%s\"",
128			name, sbuf);
129			error(USER, errmsg);
130			}
131	greg	1.1	objp->oname = savqstr(sbuf);
132			/* get arguments */
133	greg	2.11	if (objp->otype == MOD_ALIAS) {
134	greg	2.26	OBJECT ref;
135			OBJREC *rfp;
136	greg	1.7	strcpy(sbuf, "EOF");
137			fgetword(sbuf, MAXSTR, fp);
138	greg	2.26	if ((ref = modifier(sbuf)) == OVOID) {
139	greg	2.11	sprintf(errmsg, "(%s): bad reference \"%s\"",
140			name, sbuf);
141			objerror(objp, USER, errmsg);
142	greg	2.26	} /* skip pass-thru aliases */
143			while ((rfp=objptr(ref))->otype == MOD_ALIAS &&
144			!rfp->oargs.nsargs & (rfp->omod != OVOID))
145			ref = rfp->omod;
146
147			if ((objp->omod == OALIAS) \| (objp->omod == rfp->omod)) {
148			objp->omod = ref;
149	greg	2.11	} else {
150			objp->oargs.sarg = (char *)malloc(sizeof(char ));
151			if (objp->oargs.sarg == NULL)
152			error(SYSTEM, "out of memory in getobject");
153			objp->oargs.nsargs = 1;
154			objp->oargs.sarg[0] = savestr(sbuf);
155	greg	1.1	}
156	greg	1.6	} else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
157	greg	1.1	sprintf(errmsg, "(%s): bad arguments", name);
158			objerror(objp, USER, errmsg);
159	greg	1.6	} else if (rval < 0) {
160			sprintf(errmsg, "(%s): error reading scene", name);
161			error(SYSTEM, errmsg);
162	greg	1.1	}
163	greg	2.11	if (objp->omod == OALIAS) {
164			sprintf(errmsg, "(%s): inappropriate use of '%s' modifier",
165			name, ALIASMOD);
166			objerror(objp, USER, errmsg);
167			}
168	greg	1.1	/* initialize */
169			objp->os = NULL;
170
171			insertobject(obj); /* add to global structure */
172	greg	2.11	#undef OALIAS
173	greg	1.1	}
174
175
176	greg	2.10	OBJECT
177	greg	2.22	newobject(void) /* get a new object */
178	greg	1.1	{
179	greg	2.22	int i;
180	greg	1.1
181	gwlarson	2.7	if ((nobjects & (OBJBLKSIZ-1)) == 0) { /* new block */
182	greg	1.1	errno = 0;
183	gwlarson	2.7	i = nobjects >> OBJBLKSHFT;
184	greg	1.1	if (i >= MAXOBJBLK)
185			return(OVOID);
186	greg	2.8	objblock[i] = (OBJREC *)calloc(OBJBLKSIZ, sizeof(OBJREC));
187	greg	1.1	if (objblock[i] == NULL)
188			return(OVOID);
189			}
190			return(nobjects++);
191	greg	2.8	}
192
193			void
194	greg	2.22	freeobjects( /* free a range of objects */
195			int firstobj,
196			int nobjs
197			)
198	greg	2.8	{
199	greg	2.22	int obj;
200	greg	2.8	/* check bounds */
201			if (firstobj < 0)
202			return;
203			if (nobjs <= 0)
204			return;
205			if (firstobj + nobjs > nobjects)
206			return;
207			/* clear objects */
208			for (obj = firstobj+nobjs; obj-- > firstobj; ) {
209	greg	2.22	OBJREC *o = objptr(obj);
210	greg	2.8	free_os(o); /* free client memory */
211			freeqstr(o->oname);
212			freefargs(&o->oargs);
213	schorsch	2.16	memset((void *)o, '\0', sizeof(OBJREC));
214	greg	2.8	}
215			/* free objects off end */
216			for (obj = nobjects; obj-- > 0; )
217			if (objptr(obj)->oname != NULL)
218			break;
219	greg	2.24	if (++obj >= nobjects)
220			return;
221	greg	2.8	while (nobjects > obj) /* free empty end blocks */
222			if ((--nobjects & (OBJBLKSIZ-1)) == 0) {
223			int i = nobjects >> OBJBLKSHFT;
224			free((void *)objblock[i]);
225			objblock[i] = NULL;
226			}
227	greg	2.24	truncobjndx(); /* truncate modifier look-up */
228	greg	1.1	}