src/common/readfargs.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 * Allocate, read and free object arguments
 */

/* ====================================================================
 * The Radiance Software License, Version 1.0
 *
 * Copyright (c) 1990 - 2002 The Regents of the University of California,
 * through Lawrence Berkeley National Laboratory.   All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *         notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in
 *       the documentation and/or other materials provided with the
 *       distribution.
 *
 * 3. The end-user documentation included with the redistribution,
 *           if any, must include the following acknowledgment:
 *             "This product includes Radiance software
 *                 (http://radsite.lbl.gov/)
 *                 developed by the Lawrence Berkeley National Laboratory
 *               (http://www.lbl.gov/)."
 *       Alternately, this acknowledgment may appear in the software itself,
 *       if and wherever such third-party acknowledgments normally appear.
 *
 * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
 *       and "The Regents of the University of California" must
 *       not be used to endorse or promote products derived from this
 *       software without prior written permission. For written
 *       permission, please contact [email protected].
 *
 * 5. Products derived from this software may not be called "Radiance",
 *       nor may "Radiance" appear in their name, without prior written
 *       permission of Lawrence Berkeley National Laboratory.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
 * information on Lawrence Berkeley National Laboratory, please see
 * <http://www.lbl.gov/>.
 */

#include "standard.h"

#include "object.h"


int
readfargs(fa, fp)               /* read function arguments from stream */
register FUNARGS  *fa;
FILE  *fp;
{
#define getstr(s)       (fgetword(s,sizeof(s),fp)!=NULL)
#define getint(s)       (getstr(s) && isint(s))
#define getflt(s)       (getstr(s) && isflt(s))
        char  sbuf[MAXSTR];
        register int  n, i;

        if (!getint(sbuf) || (n = atoi(sbuf)) < 0)
                return(0);
        if (fa->nsargs = n) {
                fa->sarg = (char **)malloc(n*sizeof(char *));
                if (fa->sarg == NULL)
                        return(-1);
                for (i = 0; i < fa->nsargs; i++) {
                        if (!getstr(sbuf))
                                return(0);
                        fa->sarg[i] = savestr(sbuf);
                }
        } else
                fa->sarg = NULL;
        if (!getint(sbuf) || (n = atoi(sbuf)) < 0)
                return(0);
#ifdef  IARGS
        if (fa->niargs = n) {
                fa->iarg = (long *)malloc(n*sizeof(long));
                if (fa->iarg == NULL)
                        return(-1);
                for (i = 0; i < n; i++) {
                        if (!getint(sbuf))
                                return(0);
                        fa->iarg[i] = atol(sbuf);
                }
        } else
                fa->iarg = NULL;
#else
        if (n != 0)
                return(0);
#endif
        if (!getint(sbuf) || (n = atoi(sbuf)) < 0)
                return(0);
        if (fa->nfargs = n) {
                fa->farg = (FLOAT *)malloc(n*sizeof(FLOAT));
                if (fa->farg == NULL)
                        return(-1);
                for (i = 0; i < n; i++) {
                        if (!getflt(sbuf))
                                return(0);
                        fa->farg[i] = atof(sbuf);
                }
        } else
                fa->farg = NULL;
        return(1);
#undef getflt
#undef getint
#undef getstr
}


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

        if (fa->nsargs) {
                for (i = 0; i < fa->nsargs; i++)
                        freestr(fa->sarg[i]);
                free((void *)fa->sarg);
                fa->sarg = NULL;
                fa->nsargs = 0;
        }
#ifdef  IARGS
        if (fa->niargs) {
                free((void *)fa->iarg);
                fa->iarg = NULL;
                fa->niargs = 0;
        }
#endif
        if (fa->nfargs) {
                free((void *)fa->farg);
                fa->farg = NULL;
                fa->nfargs = 0;
        }
}
Revision:	2.7
Committed:	Sat Feb 22 02:07:22 2003 UTC (21 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.6:	+76 -22 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.7	static const char RCSid[] = "$Id$";
3	greg	1.1	#endif
4			/*
5			* Allocate, read and free object arguments
6			*/
7
8	greg	2.7	/* ====================================================================
9			* The Radiance Software License, Version 1.0
10			*
11			* Copyright (c) 1990 - 2002 The Regents of the University of California,
12			* through Lawrence Berkeley National Laboratory. All rights reserved.
13			*
14			* Redistribution and use in source and binary forms, with or without
15			* modification, are permitted provided that the following conditions
16			* are met:
17			*
18			* 1. Redistributions of source code must retain the above copyright
19			* notice, this list of conditions and the following disclaimer.
20			*
21			* 2. Redistributions in binary form must reproduce the above copyright
22			* notice, this list of conditions and the following disclaimer in
23			* the documentation and/or other materials provided with the
24			* distribution.
25			*
26			* 3. The end-user documentation included with the redistribution,
27			* if any, must include the following acknowledgment:
28			* "This product includes Radiance software
29			* (http://radsite.lbl.gov/)
30			* developed by the Lawrence Berkeley National Laboratory
31			* (http://www.lbl.gov/)."
32			* Alternately, this acknowledgment may appear in the software itself,
33			* if and wherever such third-party acknowledgments normally appear.
34			*
35			* 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
36			* and "The Regents of the University of California" must
37			* not be used to endorse or promote products derived from this
38			* software without prior written permission. For written
39			* permission, please contact [email protected].
40			*
41			* 5. Products derived from this software may not be called "Radiance",
42			* nor may "Radiance" appear in their name, without prior written
43			* permission of Lawrence Berkeley National Laboratory.
44			*
45			* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
46			* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
47			* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
48			* DISCLAIMED. IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
49			* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
50			* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
51			* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
52			* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
53			* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
54			* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
55			* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
56			* SUCH DAMAGE.
57			* ====================================================================
58			*
59			* This software consists of voluntary contributions made by many
60			* individuals on behalf of Lawrence Berkeley National Laboratory. For more
61			* information on Lawrence Berkeley National Laboratory, please see
62			* <http://www.lbl.gov/>.
63			*/
64
65	gwlarson	2.6	#include "standard.h"
66	greg	1.1
67			#include "object.h"
68
69
70
71	greg	2.7	int
72	greg	1.1	readfargs(fa, fp) /* read function arguments from stream */
73			register FUNARGS *fa;
74			FILE *fp;
75			{
76	greg	2.3	#define getstr(s) (fgetword(s,sizeof(s),fp)!=NULL)
77			#define getint(s) (getstr(s) && isint(s))
78			#define getflt(s) (getstr(s) && isflt(s))
79	greg	1.1	char sbuf[MAXSTR];
80	greg	1.2	register int n, i;
81	greg	1.1
82	greg	2.3	if (!getint(sbuf) \|\| (n = atoi(sbuf)) < 0)
83	greg	1.1	return(0);
84			if (fa->nsargs = n) {
85	greg	2.7	fa->sarg = (char *)malloc(nsizeof(char *));
86	greg	1.1	if (fa->sarg == NULL)
87			return(-1);
88			for (i = 0; i < fa->nsargs; i++) {
89	greg	2.3	if (!getstr(sbuf))
90	greg	1.1	return(0);
91			fa->sarg[i] = savestr(sbuf);
92			}
93			} else
94			fa->sarg = NULL;
95	greg	2.3	if (!getint(sbuf) \|\| (n = atoi(sbuf)) < 0)
96	greg	1.1	return(0);
97			#ifdef IARGS
98			if (fa->niargs = n) {
99	greg	2.7	fa->iarg = (long )malloc(nsizeof(long));
100	greg	1.1	if (fa->iarg == NULL)
101			return(-1);
102	greg	1.2	for (i = 0; i < n; i++) {
103	greg	2.3	if (!getint(sbuf))
104	greg	1.1	return(0);
105	greg	1.2	fa->iarg[i] = atol(sbuf);
106			}
107	greg	1.1	} else
108			fa->iarg = NULL;
109			#else
110			if (n != 0)
111			return(0);
112			#endif
113	greg	2.3	if (!getint(sbuf) \|\| (n = atoi(sbuf)) < 0)
114	greg	1.1	return(0);
115			if (fa->nfargs = n) {
116	greg	2.7	fa->farg = (FLOAT )malloc(nsizeof(FLOAT));
117	greg	1.1	if (fa->farg == NULL)
118			return(-1);
119	greg	1.2	for (i = 0; i < n; i++) {
120	greg	2.3	if (!getflt(sbuf))
121	greg	1.1	return(0);
122	greg	1.2	fa->farg[i] = atof(sbuf);
123			}
124	greg	1.1	} else
125			fa->farg = NULL;
126			return(1);
127	greg	1.2	#undef getflt
128			#undef getint
129			#undef getstr
130	greg	1.1	}
131
132
133	greg	2.7	void
134	greg	1.2	freefargs(fa) /* free object arguments */
135	greg	1.1	register FUNARGS *fa;
136			{
137			register int i;
138
139			if (fa->nsargs) {
140			for (i = 0; i < fa->nsargs; i++)
141			freestr(fa->sarg[i]);
142	greg	2.7	free((void *)fa->sarg);
143			fa->sarg = NULL;
144			fa->nsargs = 0;
145	greg	1.1	}
146			#ifdef IARGS
147	greg	2.7	if (fa->niargs) {
148			free((void *)fa->iarg);
149			fa->iarg = NULL;
150			fa->niargs = 0;
151			}
152	greg	1.1	#endif
153	greg	2.7	if (fa->nfargs) {
154			free((void *)fa->farg);
155			fa->farg = NULL;
156			fa->nfargs = 0;
157			}
158	greg	1.1	}