ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/calexpr.c
(Generate patch)

Comparing ray/src/common/calexpr.c (file contents):
Revision 2.7 by greg, Sat Sep 26 08:13:32 1992 UTC vs.
Revision 2.21 by greg, Mon Jun 2 18:13:54 2003 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1992 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   *  Compute data values using expression parser
6   *
# Line 16 | Line 13 | static char SCCSid[] = "$SunId$ LBL";
13   *  1/29/87  Made variables conditional (VARIABLE)
14   *
15   *  5/19/88  Added constant subexpression elimination (RCONST)
16 + *
17 + *  2/19/03     Eliminated conditional compiles in favor of esupport extern.
18   */
19  
20 + #include "copyright.h"
21 +
22   #include  <stdio.h>
23  
24   #include  <ctype.h>
25  
26   #include  <errno.h>
27  
28 + #include  <math.h>
29 +
30 + #include  <stdlib.h>
31 +
32   #include  "calcomp.h"
33  
34   #define  MAXLINE        256             /* maximum line length */
# Line 32 | Line 37 | static char SCCSid[] = "$SunId$ LBL";
37  
38   #define  isdecimal(c)   (isdigit(c) || (c) == '.')
39  
40 < #ifndef atof
41 < extern double  atof();
37 < #endif
38 < extern double  pow();
39 < extern char  *fgets(), *savestr();
40 < extern char  *emalloc(), *ecalloc();
41 < extern EPNODE  *curfunc;
42 < extern double  efunc(), evariable();
43 < static double  euminus(), echannel(), eargument(), enumber();
40 > static double  euminus(), eargument(), enumber();
41 > static double  echannel();
42   static double  eadd(), esubtr(), emult(), edivi(), epow();
43   static double  ebotch();
44  
45 + unsigned int  esupport =                /* what to support */
46 +                E_VARIABLE | E_FUNCTION ;
47 +
48   int  nextc;                             /* lookahead character */
49  
50   double  (*eoper[])() = {                /* expression operations */
51          ebotch,
51 – #ifdef  VARIABLE
52          evariable,
53 – #else
54 –        ebotch,
55 – #endif
53          enumber,
54          euminus,
58 – #ifdef  INCHAN
55          echannel,
60 – #else
61 –        ebotch,
62 – #endif
63 – #ifdef  FUNCTION
56          efunc,
57          eargument,
66 – #else
58          ebotch,
59          ebotch,
69 – #endif
70 –        ebotch,
71 –        ebotch,
60          0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
61          0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
62          emult,
# Line 100 | Line 88 | char  *expr;
88      EPNODE  *ep;
89  
90      initstr(expr, NULL, 0);
103 – #if  defined(VARIABLE) && defined(FUNCTION)
91      curfunc = NULL;
105 – #endif
92      ep = getE1();
93      if (nextc != EOF)
94          syntax("unexpected character");
# Line 124 | Line 110 | char  *expr;
110   }
111  
112  
113 + int
114 + epcmp(ep1, ep2)                 /* compare two expressions for equivalence */
115 + register EPNODE  *ep1, *ep2;
116 + {
117 +        double  d;
118 +
119 +        if (ep1->type != ep2->type)
120 +                return(1);
121 +
122 +        switch (ep1->type) {
123 +
124 +        case VAR:
125 +                return(ep1->v.ln != ep2->v.ln);
126 +
127 +        case NUM:
128 +                if (ep2->v.num == 0)
129 +                        return(ep1->v.num != 0);
130 +                d = ep1->v.num / ep2->v.num;
131 +                return(d > 1.000000000001 | d < 0.999999999999);
132 +
133 +        case CHAN:
134 +        case ARG:
135 +                return(ep1->v.chan != ep2->v.chan);
136 +
137 +        case '=':
138 +        case ':':
139 +                return(epcmp(ep1->v.kid->sibling, ep2->v.kid->sibling));
140 +
141 +        case TICK:
142 +        case SYM:                       /* should never get this one */
143 +                return(0);
144 +
145 +        default:
146 +                ep1 = ep1->v.kid;
147 +                ep2 = ep2->v.kid;
148 +                while (ep1 != NULL) {
149 +                        if (ep2 == NULL)
150 +                                return(1);
151 +                        if (epcmp(ep1, ep2))
152 +                                return(1);
153 +                        ep1 = ep1->sibling;
154 +                        ep2 = ep2->sibling;
155 +                }
156 +                return(ep2 != NULL);
157 +        }
158 + }
159 +
160 +
161 + void
162   epfree(epar)                    /* free a parse tree */
163   register EPNODE  *epar;
164   {
# Line 131 | Line 166 | register EPNODE         *epar;
166  
167      switch (epar->type) {
168  
134 – #if  defined(VARIABLE) || defined(FUNCTION)
169          case VAR:
170              varfree(epar->v.ln);
171              break;
# Line 139 | Line 173 | register EPNODE         *epar;
173          case SYM:
174              freestr(epar->v.name);
175              break;
142 – #endif
176  
177          case NUM:
178          case CHAN:
# Line 148 | Line 181 | register EPNODE         *epar;
181              break;
182  
183          default:
184 <            for (ep = epar->v.kid; ep != NULL; ep = ep->sibling)
184 >            while ((ep = epar->v.kid) != NULL) {
185 >                epar->v.kid = ep->sibling;
186                  epfree(ep);
187 +            }
188              break;
189  
190      }
# Line 158 | Line 193 | register EPNODE         *epar;
193   }
194  
195                                  /* the following used to be a switch */
161 – #ifdef  FUNCTION
196   static double
197   eargument(ep)
198   EPNODE  *ep;
199   {
200      return(argument(ep->v.chan));
201   }
168 – #endif
202  
203   static double
204   enumber(ep)
# Line 183 | Line 216 | EPNODE *ep;
216      return(-evalue(ep1));
217   }
218  
186 – #ifdef  INCHAN
219   static double
220   echannel(ep)
221   EPNODE  *ep;
222   {
223      return(chanvalue(ep->v.chan));
224   }
193 – #endif
225  
226   static double
227   eadd(ep)
# Line 250 | Line 281 | EPNODE *ep;
281      if (!finite(d))
282          errno = EDOM;
283   #endif
284 <    if (errno) {
284 >    if (errno == EDOM || errno == ERANGE) {
285          wputs("Illegal power\n");
286          return(0.0);
287      }
# Line 294 | Line 325 | register EPNODE         *ep;
325   }
326  
327  
328 + void
329   initfile(fp, fn, ln)            /* prepare input file */
330   FILE  *fp;
331   char  *fn;
# Line 311 | Line 343 | int  ln;
343   }
344  
345  
346 + void
347   initstr(s, fn, ln)              /* prepare input string */
348   char  *s;
349   char  *fn;
# Line 325 | Line 358 | int  ln;
358   }
359  
360  
361 + void
362   getscanpos(fnp, lnp, spp, fpp)  /* return current scan position */
363   char  **fnp;
364   int  *lnp;
# Line 371 | Line 405 | scan()                         /* scan next character, return literal next
405  
406  
407   char *
408 < ltoa(l)                         /* convert long to ascii */
408 > long2ascii(l)                         /* convert long to ascii */
409   long  l;
410   {
411      static char  buf[16];
# Line 396 | Line 430 | long  l;
430   }
431  
432  
433 + void
434   syntax(err)                     /* report syntax error and quit */
435   char  *err;
436   {
# Line 405 | Line 440 | char  *err;
440          if (infile != NULL) eputs(infile);
441          if (lineno != 0) {
442              eputs(infile != NULL ? ", line " : "line ");
443 <            eputs(ltoa((long)lineno));
443 >            eputs(long2ascii((long)lineno));
444          }
445          eputs(":\n");
446      }
# Line 421 | Line 456 | char  *err;
456   }
457  
458  
459 + void
460   addekid(ep, ekid)                       /* add a child to ep */
461   register EPNODE  *ep;
462   EPNODE  *ekid;
# Line 436 | Line 472 | EPNODE *ekid;
472   }
473  
474  
439 – #if  defined(VARIABLE) || defined(FUNCTION)
475   char *
476   getname()                       /* scan an identifier */
477   {
# Line 452 | Line 487 | getname()                      /* scan an identifier */
487  
488      return(str);
489   }
455 – #endif
490  
491  
492   int
# Line 485 | Line 519 | getnum()                       /* scan a positive float */
519      if (lnext == '.' && i < MAXWORD) {
520          str[i++] = lnext;
521          lnext = scan();
522 +        if (i == 1 && !isdigit(lnext))
523 +            syntax("badly formed number");
524          while (isdigit(lnext) && i < MAXWORD) {
525              str[i++] = lnext;
526              lnext = scan();
527          }
528      }
529 <    if ((lnext == 'e' || lnext == 'E') && i < MAXWORD) {
529 >    if ((lnext == 'e' | lnext == 'E') && i < MAXWORD) {
530          str[i++] = lnext;
531          lnext = scan();
532 <        if ((lnext == '-' || lnext == '+') && i < MAXWORD) {
532 >        if ((lnext == '-' | lnext == '+') && i < MAXWORD) {
533              str[i++] = lnext;
534              lnext = scan();
535          }
536 +        if (!isdigit(lnext))
537 +            syntax("missing exponent");
538          while (isdigit(lnext) && i < MAXWORD) {
539              str[i++] = lnext;
540              lnext = scan();
# Line 521 | Line 559 | getE1()                                /* E1 -> E1 ADDOP E2 */
559          scan();
560          addekid(ep2, ep1);
561          addekid(ep2, getE2());
562 < #ifdef  RCONST
563 <        if (ep1->type == NUM && ep1->sibling->type == NUM)
562 >        if (esupport&E_RCONST &&
563 >                        ep1->type == NUM && ep1->sibling->type == NUM)
564                  ep2 = rconst(ep2);
527 – #endif
565          ep1 = ep2;
566      }
567      return(ep1);
# Line 544 | Line 581 | getE2()                                /* E2 -> E2 MULOP E3 */
581          scan();
582          addekid(ep2, ep1);
583          addekid(ep2, getE3());
584 < #ifdef  RCONST
585 <        if (ep1->type == NUM && ep1->sibling->type == NUM)
584 >        if (esupport&E_RCONST &&
585 >                        ep1->type == NUM && ep1->sibling->type == NUM)
586                  ep2 = rconst(ep2);
550 – #endif
587          ep1 = ep2;
588      }
589      return(ep1);
# Line 567 | Line 603 | getE3()                                /* E3 -> E4 ^ E3 */
603          scan();
604          addekid(ep2, ep1);
605          addekid(ep2, getE3());
606 < #ifdef  RCONST
607 <        if (ep1->type == NUM && ep1->sibling->type == NUM)
606 >        if (esupport&E_RCONST &&
607 >                        ep1->type == NUM && ep1->sibling->type == NUM)
608                  ep2 = rconst(ep2);
573 – #endif
609          return(ep2);
610      }
611      return(ep1);
# Line 626 | Line 661 | getE5()                                /* E5 -> (E1) */
661          return(ep1);
662      }
663  
664 < #ifdef  INCHAN
630 <    if (nextc == '$') {
664 >    if (esupport&E_INCHAN && nextc == '$') {
665          scan();
666          ep1 = newnode();
667          ep1->type = CHAN;
668          ep1->v.chan = getinum();
669          return(ep1);
670      }
637 – #endif
671  
672 < #if  defined(VARIABLE) || defined(FUNCTION)
673 <    if (isalpha(nextc) || nextc == CNTXMARK) {
674 <        nam = getname();
675 < #if  defined(VARIABLE) && defined(FUNCTION)
676 <        ep1 = NULL;
677 <        if (curfunc != NULL)
672 >  if (esupport&(E_VARIABLE|E_FUNCTION) &&
673 >                (isalpha(nextc) || nextc == CNTXMARK)) {
674 >      nam = getname();
675 >      ep1 = NULL;
676 >      if ((esupport&(E_VARIABLE|E_FUNCTION)) == (E_VARIABLE|E_FUNCTION)
677 >                        && curfunc != NULL)
678              for (i = 1, ep2 = curfunc->v.kid->sibling;
679                                  ep2 != NULL; i++, ep2 = ep2->sibling)
680                  if (!strcmp(ep2->v.name, nam)) {
# Line 650 | Line 683 | getE5()                                /* E5 -> (E1) */
683                      ep1->v.chan = i;
684                      break;
685                  }
686 <        if (ep1 == NULL)
654 < #endif
655 <        {
686 >        if (ep1 == NULL) {
687              ep1 = newnode();
688              ep1->type = VAR;
689              ep1->v.ln = varinsert(nam);
690          }
691 < #ifdef  FUNCTION
661 <        if (nextc == '(') {
691 >        if (esupport&E_FUNCTION && nextc == '(') {
692              ep2 = newnode();
693              ep2->type = FUNC;
694              addekid(ep2, ep1);
# Line 670 | Line 700 | getE5()                                /* E5 -> (E1) */
700              if (nextc != ')')
701                  syntax("')' expected");
702              scan();
703 <        }
674 < #ifndef  VARIABLE
675 <        else
703 >        } else if (!(esupport&E_VARIABLE))
704              syntax("'(' expected");
705 < #endif
678 < #endif
679 < #ifdef  RCONST
680 <        if (isconstvar(ep1))
705 >        if (esupport&E_RCONST && isconstvar(ep1))
706              ep1 = rconst(ep1);
682 – #endif
707          return(ep1);
708      }
685 – #endif
709  
710      if (isdecimal(nextc)) {
711          ep1 = newnode();
# Line 694 | Line 717 | getE5()                                /* E5 -> (E1) */
717   }
718  
719  
697 – #ifdef  RCONST
720   EPNODE *
721   rconst(epar)                    /* reduce a constant expression */
722   register EPNODE  *epar;
# Line 705 | Line 727 | register EPNODE         *epar;
727      ep->type = NUM;
728      errno = 0;
729      ep->v.num = evalue(epar);
730 <    if (errno)
730 >    if (errno == EDOM || errno == ERANGE)
731          syntax("bad constant expression");
732      epfree(epar);
733  
# Line 713 | Line 735 | register EPNODE         *epar;
735   }
736  
737  
738 + int
739   isconstvar(ep)                  /* is ep linked to a constant expression? */
740   register EPNODE  *ep;
741   {
719 – #ifdef  VARIABLE
742      register EPNODE  *ep1;
721 – #ifdef  FUNCTION
743  
744 <    if (ep->type == FUNC) {
744 >    if (esupport&E_FUNCTION && ep->type == FUNC) {
745          if (!isconstfun(ep->v.kid))
746                  return(0);
747          for (ep1 = ep->v.kid->sibling; ep1 != NULL; ep1 = ep1->sibling)
# Line 728 | Line 749 | register EPNODE         *ep;
749                  return(0);
750          return(1);
751      }
731 – #endif
752      if (ep->type != VAR)
753          return(0);
754      ep1 = ep->v.ln->def;
755      if (ep1 == NULL || ep1->type != ':')
756          return(0);
757 < #ifdef  FUNCTION
738 <    if (ep1->v.kid->type != SYM)
757 >    if (esupport&E_FUNCTION && ep1->v.kid->type != SYM)
758          return(0);
740 – #endif
759      return(1);
742 – #else
743 –    return(ep->type == FUNC);
744 – #endif
760   }
761  
762  
763 < #if  defined(FUNCTION) && defined(VARIABLE)
763 > int
764   isconstfun(ep)                  /* is ep linked to a constant function? */
765   register EPNODE  *ep;
766   {
# Line 754 | Line 769 | register EPNODE         *ep;
769  
770      if (ep->type != VAR)
771          return(0);
772 <    if ((dp = ep->v.ln->def) != NULL && dp->v.kid->type == FUNC)
773 <        return(dp->type == ':');
772 >    if ((dp = ep->v.ln->def) != NULL)
773 >        if (dp->v.kid->type == FUNC)
774 >            return(dp->type == ':');
775 >        else
776 >            return(0);          /* don't identify masked library functions */
777      if ((lp = ep->v.ln->lib) != NULL)
778          return(lp->atyp == ':');
779      return(0);
780   }
763 – #endif
764 – #endif

Diff Legend

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