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.5 by greg, Tue May 19 20:21:58 1992 UTC vs.
Revision 2.34 by greg, Sun Jul 25 05:50:27 2010 UTC

# Line 1 | Line 1
1 /* Copyright (c) 1991 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  <stdio.h>
20 > #include "copyright.h"
21  
22 + #include  <stdio.h>
23 + #include  <string.h>
24   #include  <ctype.h>
24
25   #include  <errno.h>
26 + #include  <math.h>
27 + #include  <stdlib.h>
28  
29 + #include  "rtmisc.h"
30 + #include  "rtio.h"
31 + #include  "rterror.h"
32   #include  "calcomp.h"
33  
34 < #define  MAXLINE        256             /* maximum line length */
34 > #define  MAXLINE        256             /* maximum line length */
35  
36 < #define  newnode()      (EPNODE *)ecalloc(1, sizeof(EPNODE))
36 > #define  newnode()      (EPNODE *)ecalloc(1, sizeof(EPNODE))
37  
38 < #define  isdecimal(c)   (isdigit(c) || (c) == '.')
38 > #define  isdecimal(c)   (isdigit(c) || (c) == '.')
39  
40 < #ifndef atof
41 < extern double  atof();
42 < #endif
43 < extern double  pow();
44 < extern char  *fgets(), *savestr();
45 < extern char  *emalloc(), *ecalloc();
41 < extern EPNODE  *curfunc;
42 < extern double  efunc(), evariable();
43 < static double  euminus(), echannel(), eargument(), enumber();
44 < static double  eadd(), esubtr(), emult(), edivi(), epow();
45 < static double  ebotch();
46 < extern int  errno;
40 > static double  euminus(EPNODE *), eargument(EPNODE *), enumber(EPNODE *);
41 > static double  echannel(EPNODE *);
42 > static double  eadd(EPNODE *), esubtr(EPNODE *),
43 >               emult(EPNODE *), edivi(EPNODE *),
44 >               epow(EPNODE *);
45 > static double  ebotch(EPNODE *);
46  
47 + unsigned int  esupport =                /* what to support */
48 +                E_VARIABLE | E_FUNCTION ;
49 +
50 + int  eofc = 0;                          /* optional end-of-file character */
51   int  nextc;                             /* lookahead character */
52  
53 < double  (*eoper[])() = {                /* expression operations */
53 > double  (*eoper[])(EPNODE *) = {        /* expression operations */
54          ebotch,
52 #ifdef  VARIABLE
55          evariable,
54 #else
55        ebotch,
56 #endif
56          enumber,
57          euminus,
59 #ifdef  INCHAN
58          echannel,
61 #else
62        ebotch,
63 #endif
64 #ifdef  FUNCTION
59          efunc,
60          eargument,
67 #else
61          ebotch,
62          ebotch,
70 #endif
71        ebotch,
72        ebotch,
63          0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
64          0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
65          emult,
# Line 95 | Line 85 | static int  linepos;                   /* position in buffer */
85  
86  
87   EPNODE *
88 < eparse(expr)                    /* parse an expression string */
89 < char  *expr;
88 > eparse(                 /* parse an expression string */
89 >    char  *expr
90 > )
91   {
92      EPNODE  *ep;
93  
94      initstr(expr, NULL, 0);
104 #if  defined(VARIABLE) && defined(FUNCTION)
95      curfunc = NULL;
106 #endif
96      ep = getE1();
97      if (nextc != EOF)
98          syntax("unexpected character");
# Line 112 | Line 101 | char  *expr;
101  
102  
103   double
104 < eval(expr)                      /* evaluate an expression string */
105 < char  *expr;
104 > eval(                   /* evaluate an expression string */
105 >    char  *expr
106 > )
107   {
108      register EPNODE  *ep;
109      double  rval;
# Line 125 | Line 115 | char  *expr;
115   }
116  
117  
118 < epfree(epar)                    /* free a parse tree */
119 < register EPNODE  *epar;
118 > int
119 > epcmp(                  /* compare two expressions for equivalence */
120 >    register EPNODE  *ep1,
121 >    register EPNODE  *ep2
122 > )
123   {
124 +        double  d;
125 +
126 +        if (ep1->type != ep2->type)
127 +                return(1);
128 +
129 +        switch (ep1->type) {
130 +
131 +        case VAR:
132 +                return(ep1->v.ln != ep2->v.ln);
133 +
134 +        case NUM:
135 +                if (ep2->v.num == 0)
136 +                        return(ep1->v.num != 0);
137 +                d = ep1->v.num / ep2->v.num;
138 +                return((d > 1.000000000001) | (d < 0.999999999999));
139 +
140 +        case CHAN:
141 +        case ARG:
142 +                return(ep1->v.chan != ep2->v.chan);
143 +
144 +        case '=':
145 +        case ':':
146 +                return(epcmp(ep1->v.kid->sibling, ep2->v.kid->sibling));
147 +
148 +        case CLKT:
149 +        case SYM:                       /* should never get this one */
150 +                return(0);
151 +
152 +        default:
153 +                ep1 = ep1->v.kid;
154 +                ep2 = ep2->v.kid;
155 +                while (ep1 != NULL) {
156 +                        if (ep2 == NULL)
157 +                                return(1);
158 +                        if (epcmp(ep1, ep2))
159 +                                return(1);
160 +                        ep1 = ep1->sibling;
161 +                        ep2 = ep2->sibling;
162 +                }
163 +                return(ep2 != NULL);
164 +        }
165 + }
166 +
167 +
168 + void
169 + epfree(                 /* free a parse tree */
170 +    register EPNODE      *epar
171 + )
172 + {
173      register EPNODE  *ep;
174  
175      switch (epar->type) {
176  
135 #if  defined(VARIABLE) || defined(FUNCTION)
177          case VAR:
178              varfree(epar->v.ln);
179              break;
# Line 140 | Line 181 | register EPNODE  *epar;
181          case SYM:
182              freestr(epar->v.name);
183              break;
143 #endif
184  
185          case NUM:
186          case CHAN:
187          case ARG:
188 <        case TICK:
188 >        case CLKT:
189              break;
190  
191          default:
192 <            for (ep = epar->v.kid; ep != NULL; ep = ep->sibling)
192 >            while ((ep = epar->v.kid) != NULL) {
193 >                epar->v.kid = ep->sibling;
194                  epfree(ep);
195 +            }
196              break;
197  
198      }
# Line 159 | Line 201 | register EPNODE  *epar;
201   }
202  
203                                  /* the following used to be a switch */
162 #ifdef  FUNCTION
204   static double
205 < eargument(ep)
206 < EPNODE  *ep;
205 > eargument(
206 >    EPNODE      *ep
207 > )
208   {
209      return(argument(ep->v.chan));
210   }
169 #endif
211  
212   static double
213 < enumber(ep)
214 < EPNODE  *ep;
213 > enumber(
214 >    EPNODE      *ep
215 > )
216   {
217      return(ep->v.num);
218   }
219  
220   static double
221 < euminus(ep)
222 < EPNODE  *ep;
221 > euminus(
222 >    EPNODE      *ep
223 > )
224   {
225      register EPNODE  *ep1 = ep->v.kid;
226  
227      return(-evalue(ep1));
228   }
229  
187 #ifdef  INCHAN
230   static double
231 < echannel(ep)
232 < EPNODE  *ep;
231 > echannel(
232 >    EPNODE      *ep
233 > )
234   {
235      return(chanvalue(ep->v.chan));
236   }
194 #endif
237  
238   static double
239 < eadd(ep)
240 < EPNODE  *ep;
239 > eadd(
240 >    EPNODE      *ep
241 > )
242   {
243      register EPNODE  *ep1 = ep->v.kid;
244  
# Line 203 | Line 246 | EPNODE  *ep;
246   }
247  
248   static double
249 < esubtr(ep)
250 < EPNODE  *ep;
249 > esubtr(
250 >    EPNODE      *ep
251 > )
252   {
253      register EPNODE  *ep1 = ep->v.kid;
254  
# Line 212 | Line 256 | EPNODE  *ep;
256   }
257  
258   static double
259 < emult(ep)
260 < EPNODE  *ep;
259 > emult(
260 >    EPNODE      *ep
261 > )
262   {
263      register EPNODE  *ep1 = ep->v.kid;
264  
# Line 221 | Line 266 | EPNODE  *ep;
266   }
267  
268   static double
269 < edivi(ep)
270 < EPNODE  *ep;
269 > edivi(
270 >    EPNODE      *ep
271 > )
272   {
273      register EPNODE  *ep1 = ep->v.kid;
274      double  d;
# Line 237 | Line 283 | EPNODE  *ep;
283   }
284  
285   static double
286 < epow(ep)
287 < EPNODE  *ep;
286 > epow(
287 >    EPNODE      *ep
288 > )
289   {
290      register EPNODE  *ep1 = ep->v.kid;
291      double  d;
292 <    int  lasterrno;
292 >    int  lasterrno;
293  
294      lasterrno = errno;
295      errno = 0;
296      d = pow(evalue(ep1), evalue(ep1->sibling));
297 < #ifdef  IEEE
298 <    if (!finite(d))
299 <        errno = EDOM;
297 > #ifdef  isnan
298 >    if (errno == 0)
299 >        if (isnan(d))
300 >            errno = EDOM;
301 >        else if (isinf(d))
302 >            errno = ERANGE;
303   #endif
304 <    if (errno) {
304 >    if (errno == EDOM || errno == ERANGE) {
305          wputs("Illegal power\n");
306          return(0.0);
307      }
# Line 260 | Line 310 | EPNODE  *ep;
310   }
311  
312   static double
313 < ebotch(ep)
314 < EPNODE  *ep;
313 > ebotch(
314 >    EPNODE      *ep
315 > )
316   {
317      eputs("Bad expression!\n");
318      quit(1);
319 +        return 0.0; /* pro forma return */
320   }
321  
322  
323   EPNODE *
324 < ekid(ep, n)                     /* return pointer to a node's nth kid */
325 < register EPNODE  *ep;
326 < register int  n;
324 > ekid(                   /* return pointer to a node's nth kid */
325 >    register EPNODE      *ep,
326 >    register int  n
327 > )
328   {
329  
330      for (ep = ep->v.kid; ep != NULL; ep = ep->sibling)
# Line 283 | Line 336 | register int  n;
336  
337  
338   int
339 < nekids(ep)                      /* return # of kids for node ep */
340 < register EPNODE  *ep;
339 > nekids(                 /* return # of kids for node ep */
340 >    register EPNODE      *ep
341 > )
342   {
343      register int  n = 0;
344  
# Line 295 | Line 349 | register EPNODE  *ep;
349   }
350  
351  
352 < initfile(fp, fn, ln)            /* prepare input file */
353 < FILE  *fp;
354 < char  *fn;
355 < int  ln;
352 > void
353 > initfile(               /* prepare input file */
354 >    FILE  *fp,
355 >    char  *fn,
356 >    int  ln
357 > )
358   {
359 <    static char  inpbuf[MAXLINE];
359 >    static char  inpbuf[MAXLINE];
360  
361      infp = fp;
362      linbuf = inpbuf;
# Line 312 | Line 368 | int  ln;
368   }
369  
370  
371 < initstr(s, fn, ln)              /* prepare input string */
372 < char  *s;
373 < char  *fn;
374 < int  ln;
371 > void
372 > initstr(                /* prepare input string */
373 >    char  *s,
374 >    char  *fn,
375 >    int  ln
376 > )
377   {
378      infp = NULL;
379      infile = fn;
# Line 326 | Line 384 | int  ln;
384   }
385  
386  
387 < getscanpos(fnp, lnp, spp, fpp)  /* return current scan position */
388 < char  **fnp;
389 < int  *lnp;
390 < char  **spp;
391 < FILE  **fpp;
387 > void
388 > getscanpos(     /* return current scan position */
389 >    char  **fnp,
390 >    int  *lnp,
391 >    char  **spp,
392 >    FILE  **fpp
393 > )
394   {
395      if (fnp != NULL) *fnp = infile;
396      if (lnp != NULL) *lnp = lineno;
# Line 340 | Line 400 | FILE  **fpp;
400  
401  
402   int
403 < scan()                          /* scan next character, return literal next */
403 > scan(void)              /* scan next character, return literal next */
404   {
405      register int  lnext = 0;
406  
# Line 357 | Line 417 | scan()                         /* scan next character, return literal next
417              nextc = linbuf[linepos++];
418          if (!lnext)
419                  lnext = nextc;
420 +        if (nextc == eofc) {
421 +                nextc = EOF;
422 +                break;
423 +        }
424          if (nextc == '{') {
425              scan();
426              while (nextc != '}')
# Line 372 | Line 436 | scan()                         /* scan next character, return literal next
436  
437  
438   char *
439 < ltoa(l)                         /* convert long to ascii */
440 < long  l;
439 > long2ascii(                           /* convert long to ascii */
440 >    long  l
441 > )
442   {
443 <    static char  buf[16];
443 >    static char  buf[16];
444      register char  *cp;
445 <    int  neg = 0;
445 >    int  neg = 0;
446  
447      if (l == 0)
448          return("0");
# Line 397 | Line 462 | long  l;
462   }
463  
464  
465 < syntax(err)                     /* report syntax error and quit */
466 < char  *err;
465 > void
466 > syntax(                 /* report syntax error and quit */
467 >    char  *err
468 > )
469   {
470      register int  i;
471  
# Line 406 | Line 473 | char  *err;
473          if (infile != NULL) eputs(infile);
474          if (lineno != 0) {
475              eputs(infile != NULL ? ", line " : "line ");
476 <            eputs(ltoa((long)lineno));
476 >            eputs(long2ascii((long)lineno));
477          }
478 <        eputs(": syntax error:\n");
478 >        eputs(":\n");
479      }
480      eputs(linbuf);
481      if (linbuf[strlen(linbuf)-1] != '\n')
# Line 422 | Line 489 | char  *err;
489   }
490  
491  
492 < addekid(ep, ekid)                       /* add a child to ep */
493 < register EPNODE  *ep;
494 < EPNODE  *ekid;
492 > void
493 > addekid(                        /* add a child to ep */
494 >    register EPNODE      *ep,
495 >    EPNODE      *ekid
496 > )
497   {
498      if (ep->v.kid == NULL)
499          ep->v.kid = ekid;
# Line 437 | Line 506 | EPNODE  *ekid;
506   }
507  
508  
440 #if  defined(VARIABLE) || defined(FUNCTION)
509   char *
510 < getname()                       /* scan an identifier */
510 > getname(void)                   /* scan an identifier */
511   {
512 <    static char  str[MAXWORD+1];
512 >    static char  str[RMAXWORD+1];
513      register int  i, lnext;
514  
515      lnext = nextc;
516 <    for (i = 0; i < MAXWORD && isid(lnext); i++, lnext = scan())
516 >    for (i = 0; i < RMAXWORD && isid(lnext); i++, lnext = scan())
517          str[i] = lnext;
518      str[i] = '\0';
519      while (isid(lnext))         /* skip rest of name */
# Line 453 | Line 521 | getname()                      /* scan an identifier */
521  
522      return(str);
523   }
456 #endif
524  
525  
526   int
527 < getinum()                       /* scan a positive integer */
527 > getinum(void)                   /* scan a positive integer */
528   {
529      register int  n, lnext;
530  
# Line 472 | Line 539 | getinum()                      /* scan a positive integer */
539  
540  
541   double
542 < getnum()                        /* scan a positive float */
542 > getnum(void)                    /* scan a positive float */
543   {
544      register int  i, lnext;
545 <    char  str[MAXWORD+1];
545 >    char  str[RMAXWORD+1];
546  
547      i = 0;
548      lnext = nextc;
549 <    while (isdigit(lnext) && i < MAXWORD) {
549 >    while (isdigit(lnext) && i < RMAXWORD) {
550          str[i++] = lnext;
551          lnext = scan();
552      }
553 <    if (lnext == '.' && i < MAXWORD) {
554 <        str[i++] = lnext;
555 <        lnext = scan();
556 <        while (isdigit(lnext) && i < MAXWORD) {
553 >    if (lnext == '.' && i < RMAXWORD) {
554 >        str[i++] = lnext;
555 >        lnext = scan();
556 >        if (i == 1 && !isdigit(lnext))
557 >            syntax("badly formed number");
558 >        while (isdigit(lnext) && i < RMAXWORD) {
559              str[i++] = lnext;
560              lnext = scan();
561          }
562      }
563 <    if ((lnext == 'e' || lnext == 'E') && i < MAXWORD) {
564 <        str[i++] = lnext;
565 <        lnext = scan();
566 <        if ((lnext == '-' || lnext == '+') && i < MAXWORD) {
563 >    if ((lnext == 'e') | (lnext == 'E') && i < RMAXWORD) {
564 >        str[i++] = lnext;
565 >        lnext = scan();
566 >        if ((lnext == '-') | (lnext == '+') && i < RMAXWORD) {
567              str[i++] = lnext;
568              lnext = scan();
569          }
570 <        while (isdigit(lnext) && i < MAXWORD) {
570 >        if (!isdigit(lnext))
571 >            syntax("missing exponent");
572 >        while (isdigit(lnext) && i < RMAXWORD) {
573              str[i++] = lnext;
574              lnext = scan();
575          }
# Line 510 | Line 581 | getnum()                       /* scan a positive float */
581  
582  
583   EPNODE *
584 < getE1()                         /* E1 -> E1 ADDOP E2 */
585 <                                /*       E2 */
584 > getE1(void)                     /* E1 -> E1 ADDOP E2 */
585 >                                /*       E2 */
586   {
587      register EPNODE  *ep1, *ep2;
588  
# Line 522 | Line 593 | getE1()                                /* E1 -> E1 ADDOP E2 */
593          scan();
594          addekid(ep2, ep1);
595          addekid(ep2, getE2());
596 < #ifdef  RCONST
597 <        if (ep1->type == NUM && ep1->sibling->type == NUM)
596 >        if (esupport&E_RCONST &&
597 >                        ep1->type == NUM && ep1->sibling->type == NUM)
598                  ep2 = rconst(ep2);
528 #endif
599          ep1 = ep2;
600      }
601      return(ep1);
# Line 533 | Line 603 | getE1()                                /* E1 -> E1 ADDOP E2 */
603  
604  
605   EPNODE *
606 < getE2()                         /* E2 -> E2 MULOP E3 */
607 <                                /*       E3 */
606 > getE2(void)                     /* E2 -> E2 MULOP E3 */
607 >                                /*       E3 */
608   {
609      register EPNODE  *ep1, *ep2;
610  
# Line 545 | Line 615 | getE2()                                /* E2 -> E2 MULOP E3 */
615          scan();
616          addekid(ep2, ep1);
617          addekid(ep2, getE3());
618 < #ifdef  RCONST
619 <        if (ep1->type == NUM && ep1->sibling->type == NUM)
620 <                ep2 = rconst(ep2);
621 < #endif
618 >        if (esupport&E_RCONST) {
619 >                EPNODE  *ep3 = ep1->sibling;
620 >                if (ep1->type == NUM && ep3->type == NUM) {
621 >                        ep2 = rconst(ep2);
622 >                } else if (ep3->type == NUM && ep3->v.num == 0) {
623 >                        if (ep2->type == '/')
624 >                                syntax("divide by zero constant");
625 >                        ep1->sibling = NULL;    /* (E2 * 0) */
626 >                        epfree(ep2);
627 >                        ep2 = ep3;
628 >                } else if (ep1->type == NUM && ep1->v.num == 0) {
629 >                        epfree(ep3);            /* (0 * E3) or (0 / E3) */
630 >                        ep1->sibling = NULL;
631 >                        efree((char *)ep2);
632 >                        ep2 = ep1;
633 >                }
634 >        }
635          ep1 = ep2;
636      }
637      return(ep1);
# Line 556 | Line 639 | getE2()                                /* E2 -> E2 MULOP E3 */
639  
640  
641   EPNODE *
642 < getE3()                         /* E3 -> E4 ^ E3 */
643 <                                /*       E4 */
642 > getE3(void)                     /* E3 -> E4 ^ E3 */
643 >                                /*       E4 */
644   {
645 <    register EPNODE  *ep1, *ep2;
645 >        register EPNODE  *ep1, *ep2;
646  
647 <    ep1 = getE4();
648 <    if (nextc == '^') {
647 >        ep1 = getE4();
648 >        if (nextc != '^')
649 >                return(ep1);
650          ep2 = newnode();
651          ep2->type = nextc;
652          scan();
653          addekid(ep2, ep1);
654          addekid(ep2, getE3());
655 < #ifdef  RCONST
656 <        if (ep1->type == NUM && ep1->sibling->type == NUM)
657 <                ep2 = rconst(ep2);
658 < #endif
655 >        if (esupport&E_RCONST) {
656 >                EPNODE  *ep3 = ep1->sibling;
657 >                if (ep1->type == NUM && ep3->type == NUM) {
658 >                        ep2 = rconst(ep2);
659 >                } else if (ep1->type == NUM && ep1->v.num == 0) {
660 >                        epfree(ep3);            /* (0 ^ E3) */
661 >                        ep1->sibling = NULL;
662 >                        efree((char *)ep2);
663 >                        ep2 = ep1;
664 >                } else if ((ep3->type == NUM && ep3->v.num == 0) ||
665 >                                (ep1->type == NUM && ep1->v.num == 1)) {
666 >                        epfree(ep2);            /* (E4 ^ 0) or (1 ^ E3) */
667 >                        ep2 = newnode();
668 >                        ep2->type = NUM;
669 >                        ep2->v.num = 1;
670 >                }
671 >        }
672          return(ep2);
576    }
577    return(ep1);
673   }
674  
675  
676   EPNODE *
677 < getE4()                         /* E4 -> ADDOP E5 */
678 <                                /*       E5 */
677 > getE4(void)                     /* E4 -> ADDOP E5 */
678 >                                /*       E5 */
679   {
680      register EPNODE  *ep1, *ep2;
681  
# Line 592 | Line 687 | getE4()                                /* E4 -> ADDOP E5 */
687                  return(ep2);
688          }
689          if (ep2->type == UMINUS) {      /* don't generate -(-E5) */
690 +            ep1 = ep2->v.kid;
691              efree((char *)ep2);
692 <            return(ep2->v.kid);
692 >            return(ep1);
693          }
694          ep1 = newnode();
695          ep1->type = UMINUS;
# Line 607 | Line 703 | getE4()                                /* E4 -> ADDOP E5 */
703  
704  
705   EPNODE *
706 < getE5()                         /* E5 -> (E1) */
707 <                                /*       VAR */
708 <                                /*       NUM */
709 <                                /*       $N */
710 <                                /*       FUNC(E1,..) */
711 <                                /*       ARG */
706 > getE5(void)                     /* E5 -> (E1) */
707 >                                /*       VAR */
708 >                                /*       NUM */
709 >                                /*       $N */
710 >                                /*       FUNC(E1,..) */
711 >                                /*       ARG */
712   {
713 <    int  i;
714 <    char  *nam;
715 <    register EPNODE  *ep1, *ep2;
713 >        int      i;
714 >        char  *nam;
715 >        register EPNODE  *ep1, *ep2;
716  
717 <    if (nextc == '(') {
718 <        scan();
719 <        ep1 = getE1();
720 <        if (nextc != ')')
721 <            syntax("')' expected");
722 <        scan();
723 <        return(ep1);
724 <    }
717 >        if (nextc == '(') {
718 >                scan();
719 >                ep1 = getE1();
720 >                if (nextc != ')')
721 >                        syntax("')' expected");
722 >                scan();
723 >                return(ep1);
724 >        }
725  
726 < #ifdef  INCHAN
727 <    if (nextc == '$') {
728 <        scan();
729 <        ep1 = newnode();
730 <        ep1->type = CHAN;
731 <        ep1->v.chan = getinum();
732 <        return(ep1);
637 <    }
638 < #endif
726 >        if (esupport&E_INCHAN && nextc == '$') {
727 >                scan();
728 >                ep1 = newnode();
729 >                ep1->type = CHAN;
730 >                ep1->v.chan = getinum();
731 >                return(ep1);
732 >        }
733  
734 < #if  defined(VARIABLE) || defined(FUNCTION)
735 <    if (isalpha(nextc) || nextc == CNTXMARK) {
736 <        nam = getname();
737 < #if  defined(VARIABLE) && defined(FUNCTION)
738 <        ep1 = NULL;
739 <        if (curfunc != NULL)
740 <            for (i = 1, ep2 = curfunc->v.kid->sibling;
741 <                                ep2 != NULL; i++, ep2 = ep2->sibling)
742 <                if (!strcmp(ep2->v.name, nam)) {
743 <                    ep1 = newnode();
744 <                    ep1->type = ARG;
745 <                    ep1->v.chan = i;
746 <                    break;
734 >        if (esupport&(E_VARIABLE|E_FUNCTION) &&
735 >                        (isalpha(nextc) || nextc == CNTXMARK)) {
736 >                nam = getname();
737 >                ep1 = NULL;
738 >                if ((esupport&(E_VARIABLE|E_FUNCTION)) == (E_VARIABLE|E_FUNCTION)
739 >                                && curfunc != NULL)
740 >                        for (i = 1, ep2 = curfunc->v.kid->sibling;
741 >                                        ep2 != NULL; i++, ep2 = ep2->sibling)
742 >                                if (!strcmp(ep2->v.name, nam)) {
743 >                                        ep1 = newnode();
744 >                                        ep1->type = ARG;
745 >                                        ep1->v.chan = i;
746 >                                        break;
747 >                                }
748 >                if (ep1 == NULL) {
749 >                        ep1 = newnode();
750 >                        ep1->type = VAR;
751 >                        ep1->v.ln = varinsert(nam);
752                  }
753 <        if (ep1 == NULL)
754 < #endif
755 <        {
756 <            ep1 = newnode();
757 <            ep1->type = VAR;
758 <            ep1->v.ln = varinsert(nam);
753 >                if (esupport&E_FUNCTION && nextc == '(') {
754 >                        ep2 = newnode();
755 >                        ep2->type = FUNC;
756 >                        addekid(ep2, ep1);
757 >                        ep1 = ep2;
758 >                        do {
759 >                                scan();
760 >                                addekid(ep1, getE1());
761 >                        } while (nextc == ',');
762 >                        if (nextc != ')')
763 >                                syntax("')' expected");
764 >                        scan();
765 >                } else if (!(esupport&E_VARIABLE))
766 >                        syntax("'(' expected");
767 >                if (esupport&E_RCONST && isconstvar(ep1))
768 >                        ep1 = rconst(ep1);
769 >                return(ep1);
770          }
661 #ifdef  FUNCTION
662        if (nextc == '(') {
663            ep2 = newnode();
664            ep2->type = FUNC;
665            addekid(ep2, ep1);
666            ep1 = ep2;
667            do {
668                scan();
669                addekid(ep1, getE1());
670            } while (nextc == ',');
671            if (nextc != ')')
672                syntax("')' expected");
673            scan();
674        }
675 #ifndef  VARIABLE
676        else
677            syntax("'(' expected");
678 #endif
679 #endif
680 #ifdef  RCONST
681        if (isconstvar(ep1))
682            ep1 = rconst(ep1);
683 #endif
684        return(ep1);
685    }
686 #endif
771  
772 <    if (isdecimal(nextc)) {
773 <        ep1 = newnode();
774 <        ep1->type = NUM;
775 <        ep1->v.num = getnum();
776 <        return(ep1);
777 <    }
778 <    syntax("unexpected character");
772 >        if (isdecimal(nextc)) {
773 >                ep1 = newnode();
774 >                ep1->type = NUM;
775 >                ep1->v.num = getnum();
776 >                return(ep1);
777 >        }
778 >        syntax("unexpected character");
779 >        return NULL; /* pro forma return */
780   }
781  
782  
698 #ifdef  RCONST
783   EPNODE *
784 < rconst(epar)                    /* reduce a constant expression */
785 < register EPNODE  *epar;
784 > rconst(                 /* reduce a constant expression */
785 >    register EPNODE      *epar
786 > )
787   {
788      register EPNODE  *ep;
789  
# Line 706 | Line 791 | register EPNODE  *epar;
791      ep->type = NUM;
792      errno = 0;
793      ep->v.num = evalue(epar);
794 <    if (errno)
795 <        syntax("bad constant expression");
794 >    if (errno == EDOM || errno == ERANGE)
795 >        syntax("bad constant expression");
796      epfree(epar);
797  
798      return(ep);
799   }
800  
801  
802 < isconstvar(ep)                  /* is ep linked to a constant expression? */
803 < register EPNODE  *ep;
802 > int
803 > isconstvar(                     /* is ep linked to a constant expression? */
804 >    register EPNODE      *ep
805 > )
806   {
720 #ifdef  VARIABLE
807      register EPNODE  *ep1;
722 #ifdef  FUNCTION
808  
809 <    if (ep->type == FUNC) {
809 >    if (esupport&E_FUNCTION && ep->type == FUNC) {
810          if (!isconstfun(ep->v.kid))
811                  return(0);
812          for (ep1 = ep->v.kid->sibling; ep1 != NULL; ep1 = ep1->sibling)
# Line 729 | Line 814 | register EPNODE  *ep;
814                  return(0);
815          return(1);
816      }
732 #endif
817      if (ep->type != VAR)
818          return(0);
819      ep1 = ep->v.ln->def;
820      if (ep1 == NULL || ep1->type != ':')
821          return(0);
822 < #ifdef  FUNCTION
739 <    if (ep1->v.kid->type != SYM)
822 >    if (esupport&E_FUNCTION && ep1->v.kid->type != SYM)
823          return(0);
741 #endif
824      return(1);
743 #else
744    return(ep->type == FUNC);
745 #endif
825   }
826  
827  
828 < #if  defined(FUNCTION) && defined(VARIABLE)
829 < isconstfun(ep)                  /* is ep linked to a constant function? */
830 < register EPNODE  *ep;
828 > int
829 > isconstfun(                     /* is ep linked to a constant function? */
830 >    register EPNODE      *ep
831 > )
832   {
833      register EPNODE  *dp;
834      register LIBR  *lp;
835  
836      if (ep->type != VAR)
837          return(0);
838 <    if ((dp = ep->v.ln->def) != NULL && dp->v.kid->type == FUNC)
839 <        return(dp->type == ':');
838 >    if ((dp = ep->v.ln->def) != NULL) {
839 >        if (dp->v.kid->type == FUNC)
840 >            return(dp->type == ':');
841 >        else
842 >            return(0);          /* don't identify masked library functions */
843 >    }
844      if ((lp = ep->v.ln->lib) != NULL)
845          return(lp->atyp == ':');
846      return(0);
847   }
764 #endif
765 #endif

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines