ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/mgflib/parser.h
Revision: 1.18
Committed: Tue Mar 7 14:53:17 1995 UTC (29 years, 2 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.17: +29 -28 lines
Log Message:
added cct entity

File Contents

# Content
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 #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
40 #define MG_NENTITIES 27
41
42 #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
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 #define MG_EBADMAT 10 /* bad material specification */
70
71 #define MG_NERRS 11
72
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 * 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 * To free any data structures and clear the parser, use mg_clear.
88 * 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 */
93
94 #define MG_MAXLINE 4096 /* maximum input line length */
95 #define MG_MAXARGC (MG_MAXLINE/4) /* maximum argument count */
96
97 typedef struct mg_fctxt {
98 char fname[96]; /* file name */
99 FILE *fp; /* stream pointer */
100 int fid; /* unique file context id */
101 char inpline[MG_MAXLINE]; /* input line */
102 int lineno; /* line number */
103 struct mg_fctxt *prev; /* previous context */
104 } MG_FCTXT;
105
106 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 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 extern void mg_fgetpos(); /* get position on input file */
121 extern int mg_fgoto(); /* go to position on input file */
122 extern void mg_close(); /* close input file */
123 extern void mg_clear(); /* clear parser */
124 extern int mg_handle(); /* handle an entity */
125 #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 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 extern void mg_close(void); /* close input file */
134 extern void mg_clear(void); /* clear parser */
135 extern int mg_handle(int, int, char **); /* handle an entity */
136 #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 #ifdef SMLFLT
163 #define FLOAT float
164 #define FTINY (1e-3)
165 #else
166 #define FLOAT double
167 #define FTINY (1e-6)
168 #endif
169 #define FHUGE (1e10)
170
171 typedef FLOAT FVECT[3];
172
173 #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 #define is0vect(v) (DOT(v,v) <= FTINY*FTINY)
180
181 #define round0(x) if (x <= FTINY && x >= -FTINY) x = 0
182
183 #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 #define C_CMINWL 380 /* minimum wavelength */
195 #define C_CMAXWL 780 /* maximum wavelength */
196 #define C_CNSS 41 /* number of spectral samples */
197 #define C_CWLI ((C_CMAXWL-C_CMINWL)/(C_CNSS-1))
198 #define C_CMAXV 10000 /* nominal maximum sample value */
199 #define C_CLPWM (683./C_CMAXV) /* peak lumens/watt multiplier */
200
201 #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 #define C_CSEFF 020 /* flag if efficacy set */
206
207 typedef struct {
208 int clock; /* incremented each change */
209 unsigned short flags; /* what's been set */
210 unsigned short ssamp[C_CNSS]; /* spectral samples, min wl to max */
211 unsigned long ssum; /* straight sum of spectral values */
212 float cx, cy; /* xy chromaticity value */
213 float eff; /* efficacy (lumens/watt) */
214 } C_COLOR;
215
216 #define C_DEFCOLOR { 1, C_CDXY|C_CSXY|C_CSSPEC|C_CSEFF,\
217 {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 (long)C_CNSS*C_CMAXV, 1./3., 1./3., 178.006 }
225
226 #define C_CIEX { 1, C_CDSPEC|C_CSSPEC|C_CSXY|C_CSEFF,\
227 {14,42,143,435,1344,2839,3483,3362,2908,1954,956,\
228 320,49,93,633,1655,2904,4334,5945,7621,9163,10263,\
229 10622,10026,8544,6424,4479,2835,1649,874,468,227,\
230 114,58,29,14,7,3,2,1,0}, 106836L, .467, .368, 362.230 }
231
232 #define C_CIEY { 1, C_CDSPEC|C_CSSPEC|C_CSXY|C_CSEFF,\
233 {0,1,4,12,40,116,230,380,600,910,1390,2080,3230,\
234 5030,7100,8620,9540,9950,9950,9520,8700,7570,6310,\
235 5030,3810,2650,1750,1070,610,320,170,82,41,21,10,\
236 5,2,1,1,0,0}, 106856L, .398, .542, 493.525 }
237
238 #define C_CIEZ { 1, C_CDSPEC|C_CSSPEC|C_CSXY|C_CSEFF,\
239 {65,201,679,2074,6456,13856,17471,17721,16692,\
240 12876,8130,4652,2720,1582,782,422,203,87,39,21,17,\
241 11,8,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},\
242 106770L, .147, .077, 54.363 }
243
244 #define c_cval(c,l) ((double)(c)->ssamp[((l)-C_MINWL)/C_CWLI] / (c)->ssum)
245
246 typedef struct {
247 int clock; /* incremented each change -- resettable */
248 int sided; /* 1 if surface is 1-sided, 0 for 2-sided */
249 float rd; /* diffuse reflectance */
250 C_COLOR rd_c; /* diffuse reflectance color */
251 float td; /* diffuse transmittance */
252 C_COLOR td_c; /* diffuse transmittance color */
253 float ed; /* diffuse emittance */
254 C_COLOR ed_c; /* diffuse emittance color */
255 float rs; /* specular reflectance */
256 C_COLOR rs_c; /* specular reflectance color */
257 float rs_a; /* specular reflectance roughness */
258 float ts; /* specular transmittance */
259 C_COLOR ts_c; /* specular transmittance color */
260 float ts_a; /* specular transmittance roughness */
261 } C_MATERIAL; /* material context */
262
263 typedef struct {
264 int clock; /* incremented each change -- resettable */
265 FVECT p, n; /* point and normal */
266 } C_VERTEX; /* vertex context */
267
268 #define C_DEFMATERIAL {1,0,0.,C_DEFCOLOR,0.,C_DEFCOLOR,0.,C_DEFCOLOR,\
269 0.,C_DEFCOLOR,0.,0.,C_DEFCOLOR,0.}
270 #define C_DEFVERTEX {1,{0.,0.,0.},{0.,0.,0.}}
271
272 extern C_COLOR *c_ccolor; /* the current color */
273 extern char *c_ccname; /* current color name */
274 extern C_MATERIAL *c_cmaterial; /* the current material */
275 extern char *c_cmname; /* current material name */
276 extern C_VERTEX *c_cvertex; /* the current vertex */
277 extern char *c_cvname; /* current vertex name */
278
279 #ifdef NOPROTO
280 extern int c_hcolor(); /* handle color entity */
281 extern int c_hmaterial(); /* handle material entity */
282 extern int c_hvertex(); /* handle vertex entity */
283 extern void c_clearall(); /* clear context tables */
284 extern C_MATERIAL *c_getmaterial(); /* get a named material */
285 extern C_VERTEX *c_getvert(); /* get a named vertex */
286 extern C_COLOR *c_getcolor(); /* get a named color */
287 extern void c_ccvt(); /* fix color representation */
288 extern int c_isgrey(); /* check if color is grey */
289 #else
290 extern int c_hcolor(int, char **); /* handle color entity */
291 extern int c_hmaterial(int, char **); /* handle material entity */
292 extern int c_hvertex(int, char **); /* handle vertex entity */
293 extern void c_clearall(void); /* clear context tables */
294 extern C_MATERIAL *c_getmaterial(char *); /* get a named material */
295 extern C_VERTEX *c_getvert(char *); /* get a named vertex */
296 extern C_COLOR *c_getcolor(char *); /* get a named color */
297 extern void c_ccvt(C_COLOR *, int); /* fix color representation */
298 extern int c_isgrey(C_COLOR *); /* check if color is grey */
299 #endif
300
301 /*************************************************************************
302 * Definitions for hierarchical object name handler
303 */
304
305 extern int obj_nnames; /* depth of name hierarchy */
306 extern char **obj_name; /* names in hierarchy */
307
308 #ifdef NOPROTO
309 extern int obj_handler(); /* handle an object entity */
310 extern void obj_clear(); /* clear object stack */
311 #else
312 extern int obj_handler(int, char **); /* handle an object entity */
313 extern void obj_clear(void); /* clear object stack */
314 #endif
315
316 /**************************************************************************
317 * Definitions for hierarchical transformation handler
318 */
319
320 typedef FLOAT MAT4[4][4];
321
322 #ifdef BSD
323 #define copymat4(m4a,m4b) bcopy((char *)m4b,(char *)m4a,sizeof(MAT4))
324 #else
325 #define copymat4(m4a,m4b) (void)memcpy((char *)m4a,(char *)m4b,sizeof(MAT4))
326 #endif
327
328 #define MAT4IDENT { {1.,0.,0.,0.}, {0.,1.,0.,0.}, \
329 {0.,0.,1.,0.}, {0.,0.,0.,1.} }
330
331 extern MAT4 m4ident;
332
333 #define setident4(m4) copymat4(m4, m4ident)
334
335 /* regular transformation */
336 typedef struct {
337 MAT4 xfm; /* transform matrix */
338 FLOAT sca; /* scalefactor */
339 } XF;
340
341 #define identxf(xp) (void)(setident4((xp)->xfm),(xp)->sca=1.0)
342
343 #define XF_MAXDIM 8 /* maximum array dimensions */
344
345 struct xf_array {
346 MG_FPOS spos; /* starting position on input */
347 int ndim; /* number of array dimensions */
348 struct {
349 short i, n; /* current count and maximum */
350 char arg[8]; /* string argument value */
351 } aarg[XF_MAXDIM];
352 };
353
354 typedef struct xf_spec {
355 long xid; /* unique transform id */
356 short xav0; /* zeroeth argument in xf_argv array */
357 short xac; /* transform argument count */
358 short rev; /* boolean true if vertices reversed */
359 XF xf; /* cumulative transformation */
360 struct xf_array *xarr; /* transformation array pointer */
361 struct xf_spec *prev; /* previous transformation context */
362 } XF_SPEC; /* followed by argument buffer */
363
364 extern int xf_argc; /* total # transform args. */
365 extern char **xf_argv; /* transform arguments */
366 extern XF_SPEC *xf_context; /* current context */
367
368 /*
369 * The transformation handler should do most of the work that needs
370 * doing. Just pass it any xf entities, then use the associated
371 * functions to transform and translate points, transform vectors
372 * (without translation), rotate vectors (without scaling) and scale
373 * values appropriately.
374 *
375 * The routines xf_xfmpoint, xf_xfmvect and xf_rotvect take two
376 * 3-D vectors (which may be identical), transforms the second and
377 * puts the result into the first.
378 */
379
380 #ifdef NOPROTO
381
382 extern int xf_handler(); /* handle xf entity */
383 extern void xf_xfmpoint(); /* transform point */
384 extern void xf_xfmvect(); /* transform vector */
385 extern void xf_rotvect(); /* rotate vector */
386 extern double xf_scale(); /* scale a value */
387 extern void xf_clear(); /* clear xf stack */
388
389 /* The following are support routines you probably won't call directly */
390
391 extern void multmat4(); /* m4a = m4b X m4c */
392 extern void multv3(); /* v3a = v3b X m4 (vectors) */
393 extern void multp3(); /* p3a = p3b X m4 (points) */
394 extern int xf(); /* interpret transform spec. */
395
396 #else
397
398 extern int xf_handler(int, char **); /* handle xf entity */
399 extern void xf_xfmpoint(FVECT, FVECT); /* transform point */
400 extern void xf_xfmvect(FVECT, FVECT); /* transform vector */
401 extern void xf_rotvect(FVECT, FVECT); /* rotate vector */
402 extern double xf_scale(double); /* scale a value */
403 extern void xf_clear(void); /* clear xf stack */
404
405 /* The following are support routines you probably won't call directly */
406
407 extern void multmat4(MAT4, MAT4, MAT4); /* m4a = m4b X m4c */
408 extern void multv3(FVECT, FVECT, MAT4); /* v3a = v3b X m4 (vectors) */
409 extern void multp3(FVECT, FVECT, MAT4); /* p3a = p3b X m4 (points) */
410 extern int xf(XF *, int, char **); /* interpret transform spec. */
411
412 #endif
413
414 /************************************************************************
415 * Miscellaneous definitions
416 */
417
418 #ifdef M_PI
419 #define PI M_PI
420 #else
421 #define PI 3.14159265358979323846
422 #endif
423
424 #ifdef DCL_ATOF
425 extern double atof();
426 #endif
427
428 #ifndef MEM_PTR
429 #define MEM_PTR void *
430 #endif
431
432 extern MEM_PTR malloc();
433 extern MEM_PTR calloc();
434 extern MEM_PTR realloc();
435 extern void free();