ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/mgflib/parser.h
(Generate patch)

Comparing ray/src/cv/mgflib/parser.h (file contents):
Revision 1.4 by greg, Thu Jun 23 07:48:36 1994 UTC vs.
Revision 1.30 by greg, Tue Mar 18 11:05:40 1997 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1994 Regents of the University of California */
1 > /* Copyright (c) 1995 Regents of the University of California */
2  
3   /* SCCSid "$SunId$ LBL" */
4  
# Line 6 | Line 6
6   * Header file for MGF interpreter
7   */
8  
9 + #ifndef MG_VMAJOR
10 +
11   /* must include stdio.h before us */
12  
13 <                        /* Entities (order doesn't really matter) */
14 < #define MG_E_COMMENT    0
13 < #define MG_E_COLOR      1
14 < #define MG_E_CONE       2
15 < #define MG_E_CXY        3
16 < #define MG_E_CYL        4
17 < #define MG_E_ED         5
18 < #define MG_E_FACE       6
19 < #define MG_E_INCLUDE    7
20 < #define MG_E_IES        8
21 < #define MG_E_MATERIAL   9
22 < #define MG_E_NORMAL     10
23 < #define MG_E_OBJECT     11
24 < #define MG_E_POINT      12
25 < #define MG_E_RD         13
26 < #define MG_E_RING       14
27 < #define MG_E_RS         15
28 < #define MG_E_SPH        16
29 < #define MG_E_TD         17
30 < #define MG_E_TORUS      18
31 < #define MG_E_TS         19
32 < #define MG_E_VERTEX     20
33 < #define MG_E_XF         21
13 > #define MG_VMAJOR       2               /* major version number */
14 > #define MG_VMINOR       0               /* minor version number */
15  
16 < #define MG_NENTITIES    22
16 >                        /* Entities (list is only appended, never modified) */
17 > #define MG_E_COMMENT    0               /* #            */
18 > #define MG_E_COLOR      1               /* c            */
19 > #define MG_E_CCT        2               /* cct          */
20 > #define MG_E_CONE       3               /* cone         */
21 > #define MG_E_CMIX       4               /* cmix         */
22 > #define MG_E_CSPEC      5               /* cspec        */
23 > #define MG_E_CXY        6               /* cxy          */
24 > #define MG_E_CYL        7               /* cyl          */
25 > #define MG_E_ED         8               /* ed           */
26 > #define MG_E_FACE       9               /* f            */
27 > #define MG_E_INCLUDE    10              /* i            */
28 > #define MG_E_IES        11              /* ies          */
29 > #define MG_E_IR         12              /* ir           */
30 > #define MG_E_MATERIAL   13              /* m            */
31 > #define MG_E_NORMAL     14              /* n            */
32 > #define MG_E_OBJECT     15              /* o            */
33 > #define MG_E_POINT      16              /* p            */
34 > #define MG_E_PRISM      17              /* prism        */
35 > #define MG_E_RD         18              /* rd           */
36 > #define MG_E_RING       19              /* ring         */
37 > #define MG_E_RS         20              /* rs           */
38 > #define MG_E_SIDES      21              /* sides        */
39 > #define MG_E_SPH        22              /* sph          */
40 > #define MG_E_TD         23              /* td           */
41 > #define MG_E_TORUS      24              /* torus        */
42 > #define MG_E_TS         25              /* ts           */
43 > #define MG_E_VERTEX     26              /* v            */
44 > #define MG_E_XF         27              /* xf           */
45 >                        /* end of Version 1 entities */
46 > #define MG_E_FACEH      28              /* fh           */
47 >                        /* end of Version 2 entities */
48  
49 < #define MG_NAMELIST     {"#","c","cone","cxy","cyl","ed","f","i","ies",\
38 <        "m","n","o","p","rd","ring","rs","sph","td","torus","ts","v","xf"}
49 > #define MG_NENTITIES    29              /* total # entities */
50  
51 + #define MG_NELIST       {28,29}         /* entity count for version 1 and up */
52 +
53 + #define MG_NAMELIST     {"#","c","cct","cone","cmix","cspec","cxy","cyl","ed",\
54 +                        "f","i","ies","ir","m","n","o","p","prism","rd",\
55 +                        "ring","rs","sides","sph","td","torus","ts","v","xf",\
56 +                        "fh"}
57 +
58   #define MG_MAXELEN      6
59  
60   extern char     mg_ename[MG_NENTITIES][MG_MAXELEN];
61  
62 <                        /* Handler routines for each entity */
45 <
62 >                        /* Handler routines for each entity and unknown ones */
63   #ifdef NOPROTO
64   extern int      (*mg_ehand[MG_NENTITIES])();
65 + extern int      (*mg_uhand)();
66 + extern int      mg_defuhand();
67   #else
68   extern int      (*mg_ehand[MG_NENTITIES])(int argc, char **argv);
69 + extern int      (*mg_uhand)(int argc, char **argv);
70 + extern int      mg_defuhand(int, char **);
71   #endif
72  
73 + extern unsigned mg_nunknown;            /* count of unknown entities */
74 +
75                          /* Error codes */
76   #define MG_OK           0               /* normal return value */
77   #define MG_EUNK         1               /* unknown entity */
# Line 61 | Line 84 | extern int     (*mg_ehand[MG_NENTITIES])(int argc, char **
84   #define MG_EMEM         8               /* out of memory */
85   #define MG_ESEEK        9               /* file seek error */
86   #define MG_EBADMAT      10              /* bad material specification */
87 + #define MG_ELINE        11              /* input line too long */
88 + #define MG_ECNTXT       12              /* unmatched context close */
89  
90 < #define MG_NERRS        11
90 > #define MG_NERRS        13
91  
92 < extern char     *mg_err[MG_NERRS];
92 > extern char     *mg_err[MG_NERRS];      /* list of error messages */
93  
94   /*
95   * The general process for running the parser is to fill in the mg_ehand
# Line 75 | Line 100 | extern char    *mg_err[MG_NERRS];
100   * To read from standard input, use NULL as the file name.
101   * For additional control over error reporting and file management,
102   * use mg_open, mg_read, mg_parse and mg_close instead of mg_load.
103 + * To pass an entity of your own construction to the parser, use
104 + * the mg_handle function rather than the mg_ehand routines directly.
105 + * (The first argument to mg_handle is the entity #, or -1.)
106   * To free any data structures and clear the parser, use mg_clear.
107 < * If there is an error, mg_load, mg_open, mg_parse, and mg_rewind
108 < * will return an error from the list above.  In addition, mg_load
109 < * will report the error to stderr.  The mg_read routine returns 0
110 < * when the end of file has been reached.
107 > * If there is an error, mg_load, mg_open, mg_parse, mg_handle and
108 > * mg_fgoto will return an error from the list above.  In addition,
109 > * mg_load will report the error to stderr.  The mg_read routine
110 > * returns 0 when the end of file has been reached.
111   */
112  
113 < #define MG_MAXLINE      512             /* maximum input line length */
113 > #define MG_MAXLINE      4096            /* maximum input line length */
114   #define MG_MAXARGC      (MG_MAXLINE/4)  /* maximum argument count */
115  
116   typedef struct mg_fctxt {
117 <        char    *fname;                         /* file name */
117 >        char    fname[96];                      /* file name */
118          FILE    *fp;                            /* stream pointer */
119 +        int     fid;                            /* unique file context id */
120          char    inpline[MG_MAXLINE];            /* input line */
121          int     lineno;                         /* line number */
122          struct mg_fctxt *prev;                  /* previous context */
123   } MG_FCTXT;
124  
125 + typedef struct {
126 +        int     fid;                            /* file this position is for */
127 +        int     lineno;                         /* line number in file */
128 +        long    offset;                         /* offset from beginning */
129 + } MG_FPOS;
130 +
131   extern MG_FCTXT *mg_file;               /* current file context */
132  
133   #ifdef NOPROTO
# Line 101 | Line 136 | extern int     mg_load();              /* parse a file */
136   extern int      mg_open();              /* open new input file */
137   extern int      mg_read();              /* read next line */
138   extern int      mg_parse();             /* parse current line */
139 < extern int      mg_rewind();            /* rewind input file */
139 > extern void     mg_fgetpos();           /* get position on input file */
140 > extern int      mg_fgoto();             /* go to position on input file */
141   extern void     mg_close();             /* close input file */
142   extern void     mg_clear();             /* clear parser */
143 < extern int      mg_iterate();
143 > extern int      mg_handle();            /* handle an entity */
144   #else
145   extern void     mg_init(void);          /* fill in mg_ehand array */
146   extern int      mg_load(char *);        /* parse a file */
147   extern int      mg_open(MG_FCTXT *, char *);    /* open new input file */
148   extern int      mg_read(void);          /* read next line */
149   extern int      mg_parse(void);         /* parse current line */
150 < extern int      mg_rewind(void);        /* rewind input file */
150 > extern void     mg_fgetpos(MG_FPOS *);  /* get position on input file */
151 > extern int      mg_fgoto(MG_FPOS *);    /* go to position on input file */
152   extern void     mg_close(void);         /* close input file */
153   extern void     mg_clear(void);         /* clear parser */
154 < extern int      mg_iterate(int, char **, int (*)(void));
154 > extern int      mg_handle(int, int, char **);   /* handle an entity */
155   #endif
156  
157   #ifndef MG_NQCD
# Line 130 | Line 167 | extern int     mg_nqcdivs;             /* divisions per quarter circl
167   #ifdef NOPROTO
168   extern int mg_entity();                 /* get entity number from its name */
169   extern int isint();                     /* non-zero if integer format */
170 + extern int isintd();                    /* same with delimiter set */
171   extern int isflt();                     /* non-zero if floating point format */
172 + extern int isfltd();                    /* same with delimiter set */
173 + extern int isname();                    /* non-zero if legal identifier name */
174 + extern int badarg();                    /* check argument format */
175 + extern int e_include();                 /* expand include entity */
176 + extern int e_sph();                     /* expand sphere as other entities */
177 + extern int e_torus();                   /* expand torus as other entities */
178 + extern int e_cyl();                     /* expand cylinder as other entities */
179 + extern int e_ring();                    /* expand ring as other entities */
180 + extern int e_cone();                    /* expand cone as other entities */
181 + extern int e_prism();                   /* expand prism as other entities */
182 + extern int e_faceh();                   /* expand face w/ holes as face */
183   #else
184   extern int mg_entity(char *);           /* get entity number from its name */
185   extern int isint(char *);               /* non-zero if integer format */
186 + extern int isintd(char *, char *);      /* same with delimiter set */
187   extern int isflt(char *);               /* non-zero if floating point format */
188 + extern int isfltd(char *, char *);      /* same with delimiter set */
189 + extern int isname(char *);              /* non-zero if legal identifier name */
190 + extern int badarg(int, char **, char *);/* check argument format */
191 + extern int e_include(int, char **);     /* expand include entity */
192 + extern int e_sph(int, char **);         /* expand sphere as other entities */
193 + extern int e_torus(int, char **);       /* expand torus as other entities */
194 + extern int e_cyl(int, char **);         /* expand cylinder as other entities */
195 + extern int e_ring(int, char **);        /* expand ring as other entities */
196 + extern int e_cone(int, char **);        /* expand cone as other entities */
197 + extern int e_prism(int, char **);       /* expand prism as other entities */
198 + extern int e_faceh(int, char **);       /* expand face w/ holes as face */
199   #endif
200  
201   /************************************************************************
# Line 158 | Line 219 | typedef FLOAT  FVECT[3];
219                                  (vr)[1]=(v1)[1]+(f)*(v2)[1], \
220                                  (vr)[2]=(v1)[2]+(f)*(v2)[2])
221  
222 < #define is0vect(v)      (DOT(v,v) < FTINY*FTINY)
222 > #define is0vect(v)      (DOT(v,v) <= FTINY*FTINY)
223  
224   #define round0(x)       if (x <= FTINY && x >= -FTINY) x = 0
225  
# Line 166 | Line 227 | typedef FLOAT  FVECT[3];
227   extern double   normalize();            /* normalize a vector */
228   #else
229   extern double   normalize(FVECT);       /* normalize a vector */
230 + extern void     fcross(FVECT,FVECT,FVECT);/* cross product of two vectors */
231   #endif
232  
233   /************************************************************************
# Line 173 | Line 235 | extern double  normalize(FVECT);       /* normalize a vector
235   *      (materials, colors, vectors)
236   */
237  
238 + #define C_CMINWL        380             /* minimum wavelength */
239 + #define C_CMAXWL        780             /* maximum wavelength */
240 + #define C_CNSS          41              /* number of spectral samples */
241 + #define C_CWLI          ((C_CMAXWL-C_CMINWL)/(C_CNSS-1))
242 + #define C_CMAXV         10000           /* nominal maximum sample value */
243 + #define C_CLPWM         (683./C_CMAXV)  /* peak lumens/watt multiplier */
244 +
245 + #define C_CSSPEC        01              /* flag if spectrum is set */
246 + #define C_CDSPEC        02              /* flag if defined w/ spectrum */
247 + #define C_CSXY          04              /* flag if xy is set */
248 + #define C_CDXY          010             /* flag if defined w/ xy */
249 + #define C_CSEFF         020             /* flag if efficacy set */
250 +
251   typedef struct {
252 <        float   cx, cy;         /* XY chromaticity coordinates */
253 < } C_COLOR;              /* color context */
252 >        int     clock;                  /* incremented each change */
253 >        short   flags;                  /* what's been set */
254 >        short   ssamp[C_CNSS];          /* spectral samples, min wl to max */
255 >        long    ssum;                   /* straight sum of spectral values */
256 >        float   cx, cy;                 /* xy chromaticity value */
257 >        float   eff;                    /* efficacy (lumens/watt) */
258 > } C_COLOR;
259  
260 + #define C_DEFCOLOR      { 1, C_CDXY|C_CSXY|C_CSSPEC|C_CSEFF,\
261 +                        {C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
262 +                        C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
263 +                        C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
264 +                        C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
265 +                        C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
266 +                        C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,\
267 +                        C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV,C_CMAXV},\
268 +                        (long)C_CNSS*C_CMAXV, 1./3., 1./3., 178.006 }
269 +
270 + #define c_cval(c,l)     ((double)(c)->ssamp[((l)-C_MINWL)/C_CWLI] / (c)->ssum)
271 +
272 + #define C_1SIDEDTHICK   0.005           /* assumed thickness of 1-sided mat. */
273 +
274   typedef struct {
181 –        char    *name;          /* material name */
275          int     clock;          /* incremented each change -- resettable */
276 +        int     sided;          /* 1 if surface is 1-sided, 0 for 2-sided */
277 +        float   nr, ni;         /* index of refraction, real and imaginary */
278          float   rd;             /* diffuse reflectance */
279          C_COLOR rd_c;           /* diffuse reflectance color */
280          float   td;             /* diffuse transmittance */
# Line 195 | Line 290 | typedef struct {
290   } C_MATERIAL;           /* material context */
291  
292   typedef struct {
293 +        int     clock;          /* incremented each change -- resettable */
294          FVECT   p, n;           /* point and normal */
295   } C_VERTEX;             /* vertex context */
296  
297 < #define isgrey(cxy)     ((cxy)->cx > .31 && (cxy)->cx < .35 && \
202 <                        (cxy)->cy > .31 && (cxy)->cy < .35)
203 <
204 < #define C_DEFCOLOR      {.333,.333}
205 < #define C_DEFMATERIAL   {NULL,1,0.,C_DEFCOLOR,0.,C_DEFCOLOR,0.,C_DEFCOLOR,\
297 > #define C_DEFMATERIAL   {1,0,1.,0.,0.,C_DEFCOLOR,0.,C_DEFCOLOR,0.,C_DEFCOLOR,\
298                                          0.,C_DEFCOLOR,0.,0.,C_DEFCOLOR,0.}
299 < #define C_DEFVERTEX     {{0.,0.,0.},{0.,0.,0.}}
299 > #define C_DEFVERTEX     {1,{0.,0.,0.},{0.,0.,0.}}
300  
301   extern C_COLOR          *c_ccolor;      /* the current color */
302 + extern char             *c_ccname;      /* current color name */
303   extern C_MATERIAL       *c_cmaterial;   /* the current material */
304 + extern char             *c_cmname;      /* current material name */
305   extern C_VERTEX         *c_cvertex;     /* the current vertex */
306 + extern char             *c_cvname;      /* current vertex name */
307  
308   #ifdef NOPROTO
309   extern int      c_hcolor();                     /* handle color entity */
310   extern int      c_hmaterial();                  /* handle material entity */
311   extern int      c_hvertex();                    /* handle vertex entity */
312   extern void     c_clearall();                   /* clear context tables */
313 + extern C_MATERIAL       *c_getmaterial();       /* get a named material */
314   extern C_VERTEX *c_getvert();                   /* get a named vertex */
315 + extern C_COLOR  *c_getcolor();                  /* get a named color */
316 + extern void     c_ccvt();                       /* fix color representation */
317 + extern int      c_isgrey();                     /* check if color is grey */
318   #else
319   extern int      c_hcolor(int, char **);         /* handle color entity */
320   extern int      c_hmaterial(int, char **);      /* handle material entity */
321   extern int      c_hvertex(int, char **);        /* handle vertex entity */
322   extern void     c_clearall(void);               /* clear context tables */
323 + extern C_MATERIAL       *c_getmaterial(char *); /* get a named material */
324   extern C_VERTEX *c_getvert(char *);             /* get a named vertex */
325 + extern C_COLOR  *c_getcolor(char *);            /* get a named color */
326 + extern void     c_ccvt(C_COLOR *, int);         /* fix color representation */
327 + extern int      c_isgrey(C_COLOR *);            /* check if color is grey */
328   #endif
329  
330   /*************************************************************************
# Line 249 | Line 352 | typedef FLOAT  MAT4[4][4];
352   #define  copymat4(m4a,m4b)      bcopy((char *)m4b,(char *)m4a,sizeof(MAT4))
353   #else
354   #define  copymat4(m4a,m4b)      (void)memcpy((char *)m4a,(char *)m4b,sizeof(MAT4))
252 – extern char  *memcpy();
355   #endif
356  
357   #define  MAT4IDENT              { {1.,0.,0.,0.}, {0.,1.,0.,0.}, \
# Line 261 | Line 363 | extern MAT4  m4ident;
363  
364                                  /* regular transformation */
365   typedef struct {
366 <        MAT4  xfm;                              /* transform matrix */
367 <        FLOAT  sca;                             /* scalefactor */
366 >        MAT4    xfm;                            /* transform matrix */
367 >        FLOAT   sca;                            /* scalefactor */
368   }  XF;
369  
370   #define identxf(xp)             (void)(setident4((xp)->xfm),(xp)->sca=1.0)
371  
372 + #define XF_MAXDIM       8               /* maximum array dimensions */
373 +
374 + struct xf_array {
375 +        MG_FPOS spos;                   /* starting position on input */
376 +        int     ndim;                   /* number of array dimensions */
377 +        struct {
378 +                short   i, n;           /* current count and maximum */
379 +                char    arg[8];         /* string argument value */
380 +        } aarg[XF_MAXDIM];
381 + };
382 +
383   typedef struct xf_spec {
384 <        short   xac;            /* transform argument count */
385 <        short   xav0;           /* zeroeth argument in xf_argv array */
386 <        XF      xf;             /* cumulative transformation */
387 <        struct xf_spec  *prev;  /* previous transformation context */
388 < } XF_SPEC;
384 >        long    xid;                    /* unique transform id */
385 >        short   xac;                    /* context argument count */
386 >        short   rev;                    /* boolean true if vertices reversed */
387 >        XF      xf;                     /* cumulative transformation */
388 >        struct xf_array *xarr;          /* transformation array pointer */
389 >        struct xf_spec  *prev;          /* previous transformation context */
390 > } XF_SPEC;                      /* followed by argument buffer */
391  
392 < extern int      xf_argc;                        /* total # transform args. */
393 < extern char     **xf_argv;                      /* transform arguments */
279 < extern XF_SPEC  *xf_context;                    /* current context */
392 > extern XF_SPEC  *xf_context;                    /* current transform context */
393 > extern char     **xf_argend;                    /* last transform argument */
394  
395 + #define xf_ac(xf)       ((xf)==NULL ? 0 : (xf)->xac)
396 + #define xf_av(xf)       (xf_argend - (xf)->xac)
397 +
398 + #define xf_argc         xf_ac(xf_context)
399 + #define xf_argv         xf_av(xf_context)
400 +
401   /*
402   * The transformation handler should do most of the work that needs
403   * doing.  Just pass it any xf entities, then use the associated
# Line 301 | Line 421 | extern void    xf_clear();             /* clear xf stack */
421  
422   /* The following are support routines you probably won't call directly */
423  
424 + XF_SPEC         *new_xf();              /* allocate new transform */
425 + void            free_xf();              /* free a transform */
426 + int             xf_aname();             /* name this instance */
427 + long            comp_xfid();            /* compute unique ID */
428   extern void     multmat4();             /* m4a = m4b X m4c */
429   extern void     multv3();               /* v3a = v3b X m4 (vectors) */
430   extern void     multp3();               /* p3a = p3b X m4 (points) */
# Line 317 | Line 441 | extern void    xf_clear(void);                 /* clear xf stack */
441  
442   /* The following are support routines you probably won't call directly */
443  
444 + XF_SPEC         *new_xf(int, char **);          /* allocate new transform */
445 + void            free_xf(XF_SPEC *);             /* free a transform */
446 + int             xf_aname(struct xf_array *);    /* name this instance */
447 + long            comp_xfid(MAT4);                /* compute unique ID */
448   extern void     multmat4(MAT4, MAT4, MAT4);     /* m4a = m4b X m4c */
449   extern void     multv3(FVECT, FVECT, MAT4);     /* v3a = v3b X m4 (vectors) */
450   extern void     multp3(FVECT, FVECT, MAT4);     /* p3a = p3b X m4 (points) */
451 < extern int      xf(XF, int, char **);           /* interpret transform spec. */
451 > extern int      xf(XF *, int, char **);         /* interpret transform spec. */
452  
453   #endif
454  
# Line 328 | Line 456 | extern int     xf(XF, int, char **);           /* interpret transfo
456   *      Miscellaneous definitions
457   */
458  
459 + #ifndef  PI
460   #ifdef  M_PI
461   #define  PI             M_PI
462   #else
463   #define  PI             3.14159265358979323846
464   #endif
465 + #endif
466  
467   #ifdef DCL_ATOF
468   extern double   atof();
# Line 346 | Line 476 | extern MEM_PTR malloc();
476   extern MEM_PTR  calloc();
477   extern MEM_PTR  realloc();
478   extern void     free();
479 +
480 + #endif /*MG_VMAJOR*/

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines