src/common/lamps.c

#ifndef lint
static const char       RCSid[] = "$Id: lamps.c,v 2.8 2003/06/07 12:50:20 schorsch Exp $";
#endif
/*
 * Load lamp data.
 */

#include "copyright.h"

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

#include  "standard.h"
#include  "color.h"

extern char     *eindex(), *expsave();
extern FILE     *frlibopen();

typedef struct lamp {
        char    *pattern;                       /* search pattern */
        float   *color;                         /* pointer to lamp value */
        struct lamp     *next;                  /* next lamp in list */
} LAMP;                                 /* a lamp entry */

static LAMP     *lamps = NULL;          /* lamp list */


float *
matchlamp(                              /* see if string matches any lamp */
char    *s
)
{
        register LAMP   *lp;

        for (lp = lamps; lp != NULL; lp = lp->next) {
                expset(lp->pattern);
                if (eindex(s) != NULL)
                        return(lp->color);
        }
        return(NULL);
}


int
loadlamps(                                      /* load lamp type file */
char    *file
)
{
        LAMP    *lastp;
        register LAMP   *lp;
        FILE    *fp;
        float   xyz[3];
        char    buf[128], str[128];
        register char   *cp1, *cp2;

        if ((fp = frlibopen(file)) == NULL)
                return(0);
        lastp = NULL;
        while (fgets(buf, sizeof(buf), fp) != NULL) {
                                        /* work on a copy of buffer */
                strcpy(str, buf);
                                        /* get pattern for this entry */
                for (cp1 = str; isspace(*cp1); cp1++)
                        ;
                if (!*cp1 || *cp1 == '#')
                        continue;
                for (cp2 = cp1+1; *cp2; cp2++)
                        if (*cp2 == *cp1 && cp2[-1] != '\\')
                                break;
                if (!*cp2) {
                        cp1 = "unclosed pattern";
                        goto fmterr;
                }
                cp1++; *cp2++ = '\0';
                if (ecompile(cp1, 1, 0) < 0) {
                        cp1 = "bad regular expression";
                        goto fmterr;
                }
                if ((lp = (LAMP *)malloc(sizeof(LAMP))) == NULL)
                        goto memerr;
                if ((lp->pattern = expsave()) == NULL)
                        goto memerr;
                                                /* get specification */
                for (cp1 = cp2; isspace(*cp1); cp1++)
                        ;
                if (!isdigit(*cp1) && *cp1 != '.' && *cp1 != '(') {
                        cp1 = "missing lamp specification";
                        goto fmterr;
                }
                if (*cp1 == '(') {              /* find alias */
                        for (cp2 = ++cp1; *cp2; cp2++)
                                if (*cp2 == ')' && cp2[-1] != '\\')
                                        break;
                        *cp2 = '\0';
                        if ((lp->color = matchlamp(cp1)) == NULL) {
                                cp1 = "unmatched alias";
                                goto fmterr;
                        }
                } else {                        /* or read specificaion */
                        if ((lp->color=(float *)malloc(6*sizeof(float)))==NULL)
                                goto memerr;
                        if (sscanf(cp1, "%f %f %f", &lp->color[3], &
                                        lp->color[4], &lp->color[5]) != 3) {
                                cp1 = "bad lamp data";
                                goto fmterr;
                        }
                                                /* convert xyY to XYZ */
                        xyz[1] = lp->color[5];
                        xyz[0] = lp->color[3]/lp->color[4] * xyz[1];
                        xyz[2] = xyz[1]*(1./lp->color[4] - 1.) - xyz[0];
                                                /* XYZ to RGB */
                        cie_rgb(lp->color, xyz);
                }
                if (lastp == NULL)
                        lamps = lp;
                else
                        lastp->next = lp;
                lp->next = NULL;
                lastp = lp;
        }
        fclose(fp);
        return(lastp != NULL);
memerr:
        fputs("Out of memory in loadlamps\n", stderr);
        return(-1);
fmterr:
        fputs(buf, stderr);
        fprintf(stderr, "%s: %s\n", file, cp1);
        return(-1);
}


void
freelamps(void)                 /* free our lamps list */
{
        register LAMP   *lp1, *lp2;
        
        for (lp1 = lamps; lp1 != NULL; lp1 = lp2) {
                free(lp1->pattern);
                if (lp1->color != NULL) {
                        for (lp2 = lp1->next; lp2 != NULL; lp2 = lp2->next)
                                if (lp2->color == lp1->color)
                                        lp2->color = NULL;
                        free((void *)lp1->color);
                }
                lp2 = lp1->next;
                free((void *)lp1);
        }
        lamps = NULL;
}
Revision:	2.9
Committed:	Sun Jun 8 12:03:09 2003 UTC (20 years, 10 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R7P2, rad3R7P1, rad3R6, rad3R6P1, rad3R8
Changes since 2.8:	+10 -6 lines
Log Message:	Reduced compile warnings/errors on Windows.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	2.9	static const char RCSid[] = "$Id: lamps.c,v 2.8 2003/06/07 12:50:20 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* Load lamp data.
6			*/
7
8	greg	2.7	#include "copyright.h"
9	greg	2.6
10	greg	1.1	#include <stdio.h>
11	greg	2.6	#include <stdlib.h>
12	greg	1.1	#include <ctype.h>
13	schorsch	2.8
14			#include "standard.h"
15	greg	2.5	#include "color.h"
16	greg	1.1
17	greg	2.6	extern char eindex(), expsave();
18	greg	2.4	extern FILE *frlibopen();
19	greg	1.1
20			typedef struct lamp {
21			char pattern; / search pattern */
22			float color; / pointer to lamp value */
23			struct lamp next; / next lamp in list */
24			} LAMP; /* a lamp entry */
25
26			static LAMP lamps = NULL; / lamp list */
27
28
29			float *
30	schorsch	2.9	matchlamp( /* see if string matches any lamp */
31			char *s
32			)
33	greg	1.1	{
34			register LAMP *lp;
35
36			for (lp = lamps; lp != NULL; lp = lp->next) {
37			expset(lp->pattern);
38			if (eindex(s) != NULL)
39			return(lp->color);
40			}
41			return(NULL);
42			}
43
44
45	schorsch	2.9	int
46			loadlamps( /* load lamp type file */
47			char *file
48			)
49	greg	1.1	{
50			LAMP *lastp;
51			register LAMP *lp;
52			FILE *fp;
53			float xyz[3];
54			char buf[128], str[128];
55			register char cp1, cp2;
56
57	greg	2.4	if ((fp = frlibopen(file)) == NULL)
58	greg	1.1	return(0);
59			lastp = NULL;
60			while (fgets(buf, sizeof(buf), fp) != NULL) {
61			/* work on a copy of buffer */
62			strcpy(str, buf);
63			/* get pattern for this entry */
64			for (cp1 = str; isspace(*cp1); cp1++)
65			;
66			if (!cp1 \|\| cp1 == '#')
67			continue;
68			for (cp2 = cp1+1; *cp2; cp2++)
69			if (cp2 == cp1 && cp2[-1] != '\\')
70			break;
71			if (!*cp2) {
72			cp1 = "unclosed pattern";
73			goto fmterr;
74			}
75			cp1++; *cp2++ = '\0';
76			if (ecompile(cp1, 1, 0) < 0) {
77			cp1 = "bad regular expression";
78			goto fmterr;
79			}
80			if ((lp = (LAMP *)malloc(sizeof(LAMP))) == NULL)
81			goto memerr;
82			if ((lp->pattern = expsave()) == NULL)
83			goto memerr;
84			/* get specification */
85			for (cp1 = cp2; isspace(*cp1); cp1++)
86			;
87			if (!isdigit(cp1) && cp1 != '.' && *cp1 != '(') {
88			cp1 = "missing lamp specification";
89			goto fmterr;
90			}
91			if (cp1 == '(') { / find alias */
92			for (cp2 = ++cp1; *cp2; cp2++)
93			if (*cp2 == ')' && cp2[-1] != '\\')
94			break;
95			*cp2 = '\0';
96			if ((lp->color = matchlamp(cp1)) == NULL) {
97			cp1 = "unmatched alias";
98			goto fmterr;
99			}
100			} else { /* or read specificaion */
101	greg	2.3	if ((lp->color=(float )malloc(6sizeof(float)))==NULL)
102	greg	1.1	goto memerr;
103	greg	2.3	if (sscanf(cp1, "%f %f %f", &lp->color[3], &
104			lp->color[4], &lp->color[5]) != 3) {
105	greg	1.1	cp1 = "bad lamp data";
106			goto fmterr;
107			}
108			/* convert xyY to XYZ */
109	greg	2.3	xyz[1] = lp->color[5];
110			xyz[0] = lp->color[3]/lp->color[4] * xyz[1];
111			xyz[2] = xyz[1]*(1./lp->color[4] - 1.) - xyz[0];
112	greg	1.1	/* XYZ to RGB */
113			cie_rgb(lp->color, xyz);
114			}
115			if (lastp == NULL)
116			lamps = lp;
117			else
118			lastp->next = lp;
119			lp->next = NULL;
120			lastp = lp;
121			}
122			fclose(fp);
123	greg	1.3	return(lastp != NULL);
124	greg	1.1	memerr:
125			fputs("Out of memory in loadlamps\n", stderr);
126			return(-1);
127			fmterr:
128			fputs(buf, stderr);
129			fprintf(stderr, "%s: %s\n", file, cp1);
130			return(-1);
131			}
132	greg	1.2
133
134	schorsch	2.9	void
135			freelamps(void) /* free our lamps list */
136	greg	1.2	{
137			register LAMP lp1, lp2;
138
139	greg	2.2	for (lp1 = lamps; lp1 != NULL; lp1 = lp2) {
140	greg	1.2	free(lp1->pattern);
141			if (lp1->color != NULL) {
142			for (lp2 = lp1->next; lp2 != NULL; lp2 = lp2->next)
143			if (lp2->color == lp1->color)
144			lp2->color = NULL;
145	greg	2.6	free((void *)lp1->color);
146	greg	1.2	}
147	greg	2.2	lp2 = lp1->next;
148	greg	2.6	free((void *)lp1);
149	greg	1.2	}
150			lamps = NULL;
151			}