ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/mgflib/parser.h
Revision: 1.19
Committed: Fri Mar 10 15:16:42 1995 UTC (29 years, 1 month ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.18: +3 -21 lines
Log Message:
moved CIE definitions to context.c

File Contents

# User Rev Content
1 greg 1.1 /* Copyright (c) 1994 Regents of the University of California */
2    
3     /* SCCSid "$SunId$ LBL" */
4    
5     /*
6     * Header file for MGF interpreter
7     */
8    
9     /* must include stdio.h before us */
10    
11     /* Entities (order doesn't really matter) */
12     #define MG_E_COMMENT 0
13     #define MG_E_COLOR 1
14 greg 1.18 #define MG_E_CCT 2
15     #define MG_E_CONE 3
16     #define MG_E_CMIX 4
17     #define MG_E_CSPEC 5
18     #define MG_E_CXY 6
19     #define MG_E_CYL 7
20     #define MG_E_ED 8
21     #define MG_E_FACE 9
22     #define MG_E_INCLUDE 10
23     #define MG_E_IES 11
24     #define MG_E_MATERIAL 12
25     #define MG_E_NORMAL 13
26     #define MG_E_OBJECT 14
27     #define MG_E_POINT 15
28     #define MG_E_PRISM 16
29     #define MG_E_RD 17
30     #define MG_E_RING 18
31     #define MG_E_RS 19
32     #define MG_E_SIDES 20
33     #define MG_E_SPH 21
34     #define MG_E_TD 22
35     #define MG_E_TORUS 23
36     #define MG_E_TS 24
37     #define MG_E_VERTEX 25
38     #define MG_E_XF 26
39 greg 1.1
40 greg 1.18 #define MG_NENTITIES 27
41 greg 1.1
42 greg 1.18 #define MG_NAMELIST {"#","c","cct","cone","cmix","cspec","cxy","cyl","ed",\
43     "f","i","ies","m","n","o","p","prism","rd","ring",\
44     "rs","sides","sph","td","torus","ts","v","xf"}
45 greg 1.1
46     #define MG_MAXELEN 6
47    
48     extern char mg_ename[MG_NENTITIES][MG_MAXELEN];
49    
50     /* Handler routines for each entity */
51    
52     #ifdef NOPROTO
53     extern int (*mg_ehand[MG_NENTITIES])();
54     #else
55     extern int (*mg_ehand[MG_NENTITIES])(int argc, char **argv);
56     #endif
57    
58     /* Error codes */
59     #define MG_OK 0 /* normal return value */
60     #define MG_EUNK 1 /* unknown entity */
61     #define MG_EARGC 2 /* wrong number of arguments */
62     #define MG_ETYPE 3 /* argument type error */
63     #define MG_EILL 4 /* illegal argument value */
64     #define MG_EUNDEF 5 /* undefined reference */
65     #define MG_ENOFILE 6 /* cannot open input file */
66     #define MG_EINCL 7 /* error in included file */
67     #define MG_EMEM 8 /* out of memory */
68     #define MG_ESEEK 9 /* file seek error */
69 greg 1.2 #define MG_EBADMAT 10 /* bad material specification */
70 greg 1.1
71 greg 1.2 #define MG_NERRS 11
72 greg 1.1
73     extern char *mg_err[MG_NERRS];
74    
75     /*
76     * The general process for running the parser is to fill in the mg_ehand
77     * array with handlers for each entity you know how to handle.
78     * Then, call mg_init to fill in the rest. This function will report
79     * an error and quit if you try to support an inconsistent set of entities.
80     * For each file you want to parse, call mg_load with the file name.
81     * To read from standard input, use NULL as the file name.
82     * For additional control over error reporting and file management,
83     * use mg_open, mg_read, mg_parse and mg_close instead of mg_load.
84 greg 1.10 * To pass an entity of your own construction to the parser, use
85     * the mg_handle function rather than the mg_ehand routines directly.
86     * (The first argument to mg_handle is the entity #, or -1.)
87 greg 1.1 * To free any data structures and clear the parser, use mg_clear.
88 greg 1.15 * If there is an error, mg_load, mg_open, mg_parse, mg_handle and
89     * mg_rewind will return an error from the list above. In addition,
90     * mg_load will report the error to stderr. The mg_read routine
91     * returns 0 when the end of file has been reached.
92 greg 1.1 */
93    
94 greg 1.17 #define MG_MAXLINE 4096 /* maximum input line length */
95 greg 1.1 #define MG_MAXARGC (MG_MAXLINE/4) /* maximum argument count */
96    
97     typedef struct mg_fctxt {
98 greg 1.7 char fname[96]; /* file name */
99 greg 1.1 FILE *fp; /* stream pointer */
100 greg 1.10 int fid; /* unique file context id */
101 greg 1.1 char inpline[MG_MAXLINE]; /* input line */
102     int lineno; /* line number */
103     struct mg_fctxt *prev; /* previous context */
104     } MG_FCTXT;
105    
106 greg 1.10 typedef struct {
107     int fid; /* file this position is for */
108     int lineno; /* line number in file */
109     long offset; /* offset from beginning */
110     } MG_FPOS;
111    
112 greg 1.1 extern MG_FCTXT *mg_file; /* current file context */
113    
114     #ifdef NOPROTO
115     extern void mg_init(); /* fill in mg_ehand array */
116     extern int mg_load(); /* parse a file */
117     extern int mg_open(); /* open new input file */
118     extern int mg_read(); /* read next line */
119     extern int mg_parse(); /* parse current line */
120 greg 1.10 extern void mg_fgetpos(); /* get position on input file */
121     extern int mg_fgoto(); /* go to position on input file */
122 greg 1.1 extern void mg_close(); /* close input file */
123     extern void mg_clear(); /* clear parser */
124 greg 1.10 extern int mg_handle(); /* handle an entity */
125 greg 1.1 #else
126     extern void mg_init(void); /* fill in mg_ehand array */
127     extern int mg_load(char *); /* parse a file */
128     extern int mg_open(MG_FCTXT *, char *); /* open new input file */
129     extern int mg_read(void); /* read next line */
130     extern int mg_parse(void); /* parse current line */
131 greg 1.10 extern void mg_fgetpos(MG_FPOS *); /* get position on input file */
132     extern int mg_fgoto(MG_FPOS *); /* go to position on input file */
133 greg 1.1 extern void mg_close(void); /* close input file */
134     extern void mg_clear(void); /* clear parser */
135 greg 1.10 extern int mg_handle(int, int, char **); /* handle an entity */
136 greg 1.1 #endif
137    
138     #ifndef MG_NQCD
139     #define MG_NQCD 5 /* default number of divisions */
140     #endif
141    
142     extern int mg_nqcdivs; /* divisions per quarter circle */
143    
144     /*
145     * The following library routines are included for your convenience:
146     */
147    
148     #ifdef NOPROTO
149     extern int mg_entity(); /* get entity number from its name */
150     extern int isint(); /* non-zero if integer format */
151     extern int isflt(); /* non-zero if floating point format */
152     #else
153     extern int mg_entity(char *); /* get entity number from its name */
154     extern int isint(char *); /* non-zero if integer format */
155     extern int isflt(char *); /* non-zero if floating point format */
156     #endif
157    
158     /************************************************************************
159     * Definitions for 3-d vector manipulation functions
160     */
161    
162 greg 1.3 #ifdef SMLFLT
163     #define FLOAT float
164     #define FTINY (1e-3)
165 greg 1.2 #else
166 greg 1.3 #define FLOAT double
167     #define FTINY (1e-6)
168 greg 1.2 #endif
169 greg 1.3 #define FHUGE (1e10)
170 greg 1.1
171 greg 1.2 typedef FLOAT FVECT[3];
172    
173 greg 1.3 #define VCOPY(v1,v2) ((v1)[0]=(v2)[0],(v1)[1]=(v2)[1],(v1)[2]=(v2)[2])
174     #define DOT(v1,v2) ((v1)[0]*(v2)[0]+(v1)[1]*(v2)[1]+(v1)[2]*(v2)[2])
175     #define VSUM(vr,v1,v2,f) ((vr)[0]=(v1)[0]+(f)*(v2)[0], \
176     (vr)[1]=(v1)[1]+(f)*(v2)[1], \
177     (vr)[2]=(v1)[2]+(f)*(v2)[2])
178    
179 greg 1.6 #define is0vect(v) (DOT(v,v) <= FTINY*FTINY)
180 greg 1.3
181     #define round0(x) if (x <= FTINY && x >= -FTINY) x = 0
182    
183 greg 1.1 #ifdef NOPROTO
184     extern double normalize(); /* normalize a vector */
185     #else
186     extern double normalize(FVECT); /* normalize a vector */
187     #endif
188    
189     /************************************************************************
190     * Definitions for context handling routines
191     * (materials, colors, vectors)
192     */
193    
194 greg 1.6 #define C_CMINWL 380 /* minimum wavelength */
195 greg 1.5 #define C_CMAXWL 780 /* maximum wavelength */
196     #define C_CNSS 41 /* number of spectral samples */
197 greg 1.6 #define C_CWLI ((C_CMAXWL-C_CMINWL)/(C_CNSS-1))
198 greg 1.5 #define C_CMAXV 10000 /* nominal maximum sample value */
199 greg 1.16 #define C_CLPWM (683./C_CMAXV) /* peak lumens/watt multiplier */
200 greg 1.5
201 greg 1.6 #define C_CSSPEC 01 /* flag if spectrum is set */
202     #define C_CDSPEC 02 /* flag if defined w/ spectrum */
203     #define C_CSXY 04 /* flag if xy is set */
204     #define C_CDXY 010 /* flag if defined w/ xy */
205 greg 1.16 #define C_CSEFF 020 /* flag if efficacy set */
206 greg 1.5
207 greg 1.1 typedef struct {
208 greg 1.8 int clock; /* incremented each change */
209 greg 1.19 short flags; /* what's been set */
210     short ssamp[C_CNSS]; /* spectral samples, min wl to max */
211     long ssum; /* straight sum of spectral values */
212 greg 1.6 float cx, cy; /* xy chromaticity value */
213 greg 1.16 float eff; /* efficacy (lumens/watt) */
214 greg 1.5 } C_COLOR;
215    
216 greg 1.16 #define C_DEFCOLOR { 1, C_CDXY|C_CSXY|C_CSSPEC|C_CSEFF,\
217 greg 1.5 {C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
218     C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
219     C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
220     C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
221     C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
222     C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
223     C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV},\
224 greg 1.16 (long)C_CNSS*C_CMAXV, 1./3., 1./3., 178.006 }
225 greg 1.5
226 greg 1.15 #define c_cval(c,l) ((double)(c)->ssamp[((l)-C_MINWL)/C_CWLI] / (c)->ssum)
227 greg 1.5
228     typedef struct {
229 greg 1.2 int clock; /* incremented each change -- resettable */
230 greg 1.13 int sided; /* 1 if surface is 1-sided, 0 for 2-sided */
231 greg 1.2 float rd; /* diffuse reflectance */
232 greg 1.1 C_COLOR rd_c; /* diffuse reflectance color */
233 greg 1.2 float td; /* diffuse transmittance */
234 greg 1.1 C_COLOR td_c; /* diffuse transmittance color */
235 greg 1.2 float ed; /* diffuse emittance */
236 greg 1.1 C_COLOR ed_c; /* diffuse emittance color */
237 greg 1.2 float rs; /* specular reflectance */
238 greg 1.1 C_COLOR rs_c; /* specular reflectance color */
239 greg 1.2 float rs_a; /* specular reflectance roughness */
240     float ts; /* specular transmittance */
241 greg 1.1 C_COLOR ts_c; /* specular transmittance color */
242 greg 1.2 float ts_a; /* specular transmittance roughness */
243 greg 1.1 } C_MATERIAL; /* material context */
244    
245     typedef struct {
246 greg 1.8 int clock; /* incremented each change -- resettable */
247 greg 1.1 FVECT p, n; /* point and normal */
248     } C_VERTEX; /* vertex context */
249 greg 1.3
250 greg 1.13 #define C_DEFMATERIAL {1,0,0.,C_DEFCOLOR,0.,C_DEFCOLOR,0.,C_DEFCOLOR,\
251 greg 1.2 0.,C_DEFCOLOR,0.,0.,C_DEFCOLOR,0.}
252 greg 1.12 #define C_DEFVERTEX {1,{0.,0.,0.},{0.,0.,0.}}
253 greg 1.1
254     extern C_COLOR *c_ccolor; /* the current color */
255 greg 1.12 extern char *c_ccname; /* current color name */
256 greg 1.1 extern C_MATERIAL *c_cmaterial; /* the current material */
257 greg 1.12 extern char *c_cmname; /* current material name */
258 greg 1.1 extern C_VERTEX *c_cvertex; /* the current vertex */
259 greg 1.12 extern char *c_cvname; /* current vertex name */
260 greg 1.1
261     #ifdef NOPROTO
262     extern int c_hcolor(); /* handle color entity */
263     extern int c_hmaterial(); /* handle material entity */
264     extern int c_hvertex(); /* handle vertex entity */
265     extern void c_clearall(); /* clear context tables */
266 greg 1.11 extern C_MATERIAL *c_getmaterial(); /* get a named material */
267 greg 1.1 extern C_VERTEX *c_getvert(); /* get a named vertex */
268 greg 1.7 extern C_COLOR *c_getcolor(); /* get a named color */
269 greg 1.6 extern void c_ccvt(); /* fix color representation */
270     extern int c_isgrey(); /* check if color is grey */
271 greg 1.1 #else
272     extern int c_hcolor(int, char **); /* handle color entity */
273     extern int c_hmaterial(int, char **); /* handle material entity */
274     extern int c_hvertex(int, char **); /* handle vertex entity */
275     extern void c_clearall(void); /* clear context tables */
276 greg 1.11 extern C_MATERIAL *c_getmaterial(char *); /* get a named material */
277 greg 1.1 extern C_VERTEX *c_getvert(char *); /* get a named vertex */
278 greg 1.7 extern C_COLOR *c_getcolor(char *); /* get a named color */
279 greg 1.6 extern void c_ccvt(C_COLOR *, int); /* fix color representation */
280     extern int c_isgrey(C_COLOR *); /* check if color is grey */
281 greg 1.1 #endif
282    
283     /*************************************************************************
284     * Definitions for hierarchical object name handler
285     */
286    
287     extern int obj_nnames; /* depth of name hierarchy */
288     extern char **obj_name; /* names in hierarchy */
289    
290     #ifdef NOPROTO
291     extern int obj_handler(); /* handle an object entity */
292 greg 1.2 extern void obj_clear(); /* clear object stack */
293 greg 1.1 #else
294     extern int obj_handler(int, char **); /* handle an object entity */
295 greg 1.2 extern void obj_clear(void); /* clear object stack */
296 greg 1.1 #endif
297    
298     /**************************************************************************
299     * Definitions for hierarchical transformation handler
300     */
301    
302 greg 1.2 typedef FLOAT MAT4[4][4];
303 greg 1.1
304     #ifdef BSD
305     #define copymat4(m4a,m4b) bcopy((char *)m4b,(char *)m4a,sizeof(MAT4))
306     #else
307     #define copymat4(m4a,m4b) (void)memcpy((char *)m4a,(char *)m4b,sizeof(MAT4))
308     #endif
309    
310     #define MAT4IDENT { {1.,0.,0.,0.}, {0.,1.,0.,0.}, \
311     {0.,0.,1.,0.}, {0.,0.,0.,1.} }
312    
313     extern MAT4 m4ident;
314    
315     #define setident4(m4) copymat4(m4, m4ident)
316    
317     /* regular transformation */
318     typedef struct {
319 greg 1.14 MAT4 xfm; /* transform matrix */
320     FLOAT sca; /* scalefactor */
321 greg 1.1 } XF;
322    
323     #define identxf(xp) (void)(setident4((xp)->xfm),(xp)->sca=1.0)
324    
325 greg 1.10 #define XF_MAXDIM 8 /* maximum array dimensions */
326    
327     struct xf_array {
328     MG_FPOS spos; /* starting position on input */
329     int ndim; /* number of array dimensions */
330     struct {
331     short i, n; /* current count and maximum */
332     char arg[8]; /* string argument value */
333     } aarg[XF_MAXDIM];
334     };
335    
336 greg 1.1 typedef struct xf_spec {
337 greg 1.10 long xid; /* unique transform id */
338     short xav0; /* zeroeth argument in xf_argv array */
339     short xac; /* transform argument count */
340 greg 1.14 short rev; /* boolean true if vertices reversed */
341 greg 1.10 XF xf; /* cumulative transformation */
342     struct xf_array *xarr; /* transformation array pointer */
343     struct xf_spec *prev; /* previous transformation context */
344     } XF_SPEC; /* followed by argument buffer */
345 greg 1.1
346     extern int xf_argc; /* total # transform args. */
347     extern char **xf_argv; /* transform arguments */
348     extern XF_SPEC *xf_context; /* current context */
349    
350     /*
351     * The transformation handler should do most of the work that needs
352     * doing. Just pass it any xf entities, then use the associated
353     * functions to transform and translate points, transform vectors
354     * (without translation), rotate vectors (without scaling) and scale
355     * values appropriately.
356     *
357     * The routines xf_xfmpoint, xf_xfmvect and xf_rotvect take two
358     * 3-D vectors (which may be identical), transforms the second and
359     * puts the result into the first.
360     */
361    
362     #ifdef NOPROTO
363    
364     extern int xf_handler(); /* handle xf entity */
365     extern void xf_xfmpoint(); /* transform point */
366     extern void xf_xfmvect(); /* transform vector */
367     extern void xf_rotvect(); /* rotate vector */
368     extern double xf_scale(); /* scale a value */
369 greg 1.2 extern void xf_clear(); /* clear xf stack */
370 greg 1.1
371     /* The following are support routines you probably won't call directly */
372    
373     extern void multmat4(); /* m4a = m4b X m4c */
374     extern void multv3(); /* v3a = v3b X m4 (vectors) */
375     extern void multp3(); /* p3a = p3b X m4 (points) */
376     extern int xf(); /* interpret transform spec. */
377    
378     #else
379    
380 greg 1.2 extern int xf_handler(int, char **); /* handle xf entity */
381     extern void xf_xfmpoint(FVECT, FVECT); /* transform point */
382     extern void xf_xfmvect(FVECT, FVECT); /* transform vector */
383     extern void xf_rotvect(FVECT, FVECT); /* rotate vector */
384     extern double xf_scale(double); /* scale a value */
385     extern void xf_clear(void); /* clear xf stack */
386 greg 1.1
387     /* The following are support routines you probably won't call directly */
388    
389     extern void multmat4(MAT4, MAT4, MAT4); /* m4a = m4b X m4c */
390     extern void multv3(FVECT, FVECT, MAT4); /* v3a = v3b X m4 (vectors) */
391     extern void multp3(FVECT, FVECT, MAT4); /* p3a = p3b X m4 (points) */
392 greg 1.6 extern int xf(XF *, int, char **); /* interpret transform spec. */
393 greg 1.1
394     #endif
395    
396     /************************************************************************
397     * Miscellaneous definitions
398     */
399    
400     #ifdef M_PI
401     #define PI M_PI
402     #else
403     #define PI 3.14159265358979323846
404     #endif
405    
406     #ifdef DCL_ATOF
407     extern double atof();
408     #endif
409    
410     #ifndef MEM_PTR
411     #define MEM_PTR void *
412     #endif
413    
414     extern MEM_PTR malloc();
415     extern MEM_PTR calloc();
416     extern MEM_PTR realloc();
417 greg 1.4 extern void free();