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

Comparing ray/src/common/caldefn.c (file contents):
Revision 1.16 by greg, Thu Aug 8 14:38:00 1991 UTC vs.
Revision 2.4 by greg, Mon Sep 21 12:01:44 1992 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1991 Regents of the University of California */
1 > /* Copyright (c) 1992 Regents of the University of California */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ LBL";
# Line 30 | Line 30 | static char SCCSid[] = "$SunId$ LBL";
30  
31   #include  "calcomp.h"
32  
33 < #ifndef  NHASH
34 < #define  NHASH          521             /* hash size (a prime!) */
33 > #ifndef  NHASH
34 > #define  NHASH          521             /* hash size (a prime!) */
35   #endif
36  
37 < #define  newnode()      (EPNODE *)ecalloc(1, sizeof(EPNODE))
37 > #define  newnode()      (EPNODE *)ecalloc(1, sizeof(EPNODE))
38  
39 < extern char  *ecalloc(), *savestr(), *strcpy();
39 > extern char  *ecalloc(), *emalloc(), *savestr(), *strcpy();
40  
41 + static int  hash();
42 +
43   static double  dvalue();
44  
45   long  eclock = -1;                      /* value storage timer */
46  
47 < static char  context[MAXWORD];          /* current context path */
47 > static char  context[MAXWORD+1];        /* current context path */
48  
49   static VARDEF  *hashtbl[NHASH];         /* definition list */
50   static int  htndx;                      /* index for */        
51   static VARDEF  *htpos;                  /* ...dfirst() and */
52 < #ifdef  OUTCHAN
52 > #ifdef  OUTCHAN
53   static EPNODE  *ochpos;                 /* ...dnext */
54   static EPNODE  *outchan;
55   #endif
56  
57 < #ifdef  FUNCTION
58 < EPNODE  *curfunc;
59 < #define  dname(ep)      ((ep)->v.kid->type == SYM ? \
57 > #ifdef  FUNCTION
58 > EPNODE  *curfunc;
59 > #define  dname(ep)      ((ep)->v.kid->type == SYM ? \
60                          (ep)->v.kid->v.name : \
61                          (ep)->v.kid->v.kid->v.name)
62   #else
63 < #define  dname(ep)      ((ep)->v.kid->v.name)
63 > #define  dname(ep)      ((ep)->v.kid->v.name)
64   #endif
65  
66  
# Line 103 | Line 105 | char  *vname;
105  
106   double
107   evariable(ep)                   /* evaluate a variable */
108 < EPNODE  *ep;
108 > EPNODE  *ep;
109   {
110      register VARDEF  *dp = ep->v.ln;
111  
# Line 114 | Line 116 | EPNODE  *ep;
116   varset(vname, assign, val)      /* set a variable's value */
117   char  *vname;
118   int  assign;
119 < double  val;
119 > double  val;
120   {
121      char  *qname;
122      register EPNODE  *ep1, *ep2;
# Line 195 | Line 197 | register char  *ctx;
197      if (*ctx != CNTXMARK)
198          *cpp++ = CNTXMARK;              /* make sure there's a mark */
199      do {
200 <        if (cpp >= context+MAXWORD-1) {
201 <            *cpp = '\0';
200 <            wputs(context);
201 <            wputs(": context path too long\n");
202 <            return(NULL);
203 <        }
200 >        if (cpp >= context+MAXWORD)
201 >            break;                      /* just copy what we can */
202          if (isid(*ctx))
203              *cpp++ = *ctx++;
204          else {
# Line 217 | Line 215 | qualname(nam, lvl)             /* get qualified name */
215   register char  *nam;
216   int  lvl;
217   {
218 <    static char  nambuf[MAXWORD];
219 <    register char  *cp = nambuf, *cpp = context;
220 <                                /* check for explicit global */
218 >    static char  nambuf[MAXWORD+1];
219 >    register char  *cp = nambuf, *cpp;
220 >                                /* check for explicit local */
221      if (*nam == CNTXMARK)
222 <        return(lvl > 0 ? NULL : nam+1);
223 <                                /* check for repeat call */
224 <    if (nam == nambuf)
225 <        return(lvl > 0 ? NULL : nambuf);
222 >        if (lvl > 0)            /* only action is to refuse search */
223 >            return(NULL);
224 >        else
225 >            nam++;
226 >    else if (nam == nambuf)     /* check for repeat call */
227 >        return(lvl > 0 ? NULL : nam);
228                                  /* copy name to static buffer */
229      while (*nam) {
230 <        if (cp >= nambuf+MAXWORD-1)
230 >        if (cp >= nambuf+MAXWORD)
231                  goto toolong;
232 <        if ((*cp++ = *nam++) == CNTXMARK)
233 <            cpp = NULL;         /* flag a qualified name */
232 >        *cp++ = *nam++;
233      }
234 <    if (cpp == NULL) {
234 >                                /* check for explicit global */
235 >    if (cp > nambuf && cp[-1] == CNTXMARK) {
236          if (lvl > 0)
237 <            return(NULL);               /* no higher level */
238 <        if (cp[-1] == CNTXMARK) {
239 <            cp--; cpp = context;        /* current context explicitly */
240 <        } else
241 <            cpp = "";                   /* else fully qualified */
242 <    } else                      /* else skip the requested levels */
243 <        while (lvl-- > 0) {
244 <            if (!*cpp)
245 <                return(NULL);   /* return NULL if past global level */
246 <            while (*++cpp && *cpp != CNTXMARK)
247 <                ;
248 <        }
237 >            return(NULL);
238 >        *--cp = '\0';
239 >        return(nambuf);         /* already qualified */
240 >    }
241 >    cpp = context;              /* else skip the requested levels */
242 >    while (lvl-- > 0) {
243 >        if (!*cpp)
244 >            return(NULL);       /* return NULL if past global level */
245 >        while (*++cpp && *cpp != CNTXMARK)
246 >            ;
247 >    }
248      while (*cpp) {              /* copy context to static buffer */
249 <        if (cp >= nambuf+MAXWORD-1)
249 >        if (cp >= nambuf+MAXWORD)
250              goto toolong;
251          *cp++ = *cpp++;
252      }
254    *cp = '\0';
255    return(nambuf);             /* return qualified name */
253   toolong:
254      *cp = '\0';
255 <    eputs(nambuf);
259 <    eputs(": name too long\n");
260 <    quit(1);
255 >    return(nambuf);             /* return qualified name */
256   }
257  
258  
# Line 265 | Line 260 | incontext(qn)                  /* is qualified name in current contex
260   register char  *qn;
261   {
262      while (*qn && *qn != CNTXMARK)      /* find context mark */
263 <        ;
263 >        qn++;
264      return(!strcmp(qn, context));
265   }
266  
267  
268 < #ifdef  OUTCHAN
268 > #ifdef  OUTCHAN
269   chanout(cs)                     /* set output channels */
270   int  (*cs)();
271   {
# Line 297 | Line 292 | int  lvl;
292                      dremove(vp->name);
293                  else
294                      dclear(vp->name);
295 < #ifdef  OUTCHAN
295 > #ifdef  OUTCHAN
296      if (lvl >= 1) {
297          for (ep = outchan; ep != NULL; ep = ep->sibling)
298              epfree(ep);
# Line 314 | Line 309 | char  *name;
309      register VARDEF  *vp;
310      
311      if ((vp = varlookup(name)) == NULL)
312 <        return(NULL);
312 >        return(NULL);
313      return(vp->def);
314   }
315  
# Line 323 | Line 318 | VARDEF *
318   varlookup(name)                 /* look up a variable */
319   char  *name;
320   {
321 <    int  lvl = 0;
321 >    int  lvl = 0;
322      register char  *qname;
323      register VARDEF  *vp;
324 <                                /* find most qualified match */
324 >                                /* find most qualified match */
325      while ((qname = qualname(name, lvl++)) != NULL)
326          for (vp = hashtbl[hash(qname)]; vp != NULL; vp = vp->next)
327              if (!strcmp(vp->name, qname))
# Line 340 | Line 335 | varinsert(name)                        /* get a link to a variable */
335   char  *name;
336   {
337      register VARDEF  *vp;
338 <    LIBR  *libp;
344 <    int  hv;
338 >    int  hv;
339      
340      if ((vp = varlookup(name)) != NULL) {
341          vp->nlinks++;
342          return(vp);
343      }
344 < #ifdef  FUNCTION
345 <    libp = liblookup(name);
344 >    vp = (VARDEF *)emalloc(sizeof(VARDEF));
345 > #ifdef  FUNCTION
346 >    vp->lib = liblookup(name);
347   #else
348 <    libp = NULL;
348 >    vp->lib = NULL;
349   #endif
350 <    if (libp == NULL)                   /* if name not in library */
350 >    if (vp->lib == NULL)                /* if name not in library */
351          name = qualname(name, 0);       /* use fully qualified version */
352      hv = hash(name);
358    vp = (VARDEF *)emalloc(sizeof(VARDEF));
353      vp->name = savestr(name);
354      vp->nlinks = 1;
355      vp->def = NULL;
362    vp->lib = libp;
356      vp->next = hashtbl[hv];
357      hashtbl[hv] = vp;
358      return(vp);
359   }
360  
361  
362 + #ifdef  FUNCTION
363 + libupdate(fn)                   /* update library links */
364 + char  *fn;
365 + {
366 +    register int  i;
367 +    register VARDEF  *vp;
368 +                                        /* if fn is NULL then relink all */
369 +    for (i = 0; i < NHASH; i++)
370 +        for (vp = hashtbl[i]; vp != NULL; vp = vp->next)
371 +            if (vp->lib != NULL || fn == NULL || !strcmp(fn, vp->name))
372 +                vp->lib = liblookup(vp->name);
373 + }
374 + #endif
375 +
376 +
377   varfree(ln)                             /* release link to variable */
378 < register VARDEF  *ln;
378 > register VARDEF  *ln;
379   {
380      register VARDEF  *vp;
381 <    int  hv;
381 >    int  hv;
382  
383      if (--ln->nlinks > 0)
384 <        return;                         /* still active */
384 >        return;                         /* still active */
385  
386      hv = hash(ln->name);
387      vp = hashtbl[hv];
388      if (vp == ln)
389 <        hashtbl[hv] = vp->next;
389 >        hashtbl[hv] = vp->next;
390      else {
391 <        while (vp->next != ln)          /* must be in list */
392 <                vp = vp->next;
393 <        vp->next = ln->next;
391 >        while (vp->next != ln)          /* must be in list */
392 >                vp = vp->next;
393 >        vp->next = ln->next;
394      }
395      freestr(ln->name);
396      efree((char *)ln);
# Line 394 | Line 402 | dfirst()                       /* return pointer to first definition */
402   {
403      htndx = 0;
404      htpos = NULL;
405 < #ifdef  OUTCHAN
405 > #ifdef  OUTCHAN
406      ochpos = outchan;
407   #endif
408      return(dnext());
# Line 405 | Line 413 | EPNODE *
413   dnext()                         /* return pointer to next definition */
414   {
415      register EPNODE  *ep;
416 +    register char  *nm;
417  
418      while (htndx < NHASH) {
419 <        if (htpos == NULL)
420 <                htpos = hashtbl[htndx++];
421 <        while (htpos != NULL) {
422 <            ep = htpos->def;
423 <            htpos = htpos->next;
424 <            if (ep != NULL)
425 <                return(ep);
426 <        }
419 >        if (htpos == NULL)
420 >                htpos = hashtbl[htndx++];
421 >        while (htpos != NULL) {
422 >            ep = htpos->def;
423 >            nm = htpos->name;
424 >            htpos = htpos->next;
425 >            if (ep != NULL && incontext(nm))
426 >                return(ep);
427 >        }
428      }
429 < #ifdef  OUTCHAN
429 > #ifdef  OUTCHAN
430      if ((ep = ochpos) != NULL)
431 <        ochpos = ep->sibling;
431 >        ochpos = ep->sibling;
432      return(ep);
433   #else
434      return(NULL);
# Line 434 | Line 444 | char  *name;
444      register EPNODE  *dp;
445      
446      if ((vp = varlookup(name)) == NULL || vp->def == NULL)
447 <        return(NULL);
447 >        return(NULL);
448      dp = vp->def;
449      vp->def = dp->sibling;
450      varfree(vp);
# Line 444 | Line 454 | char  *name;
454  
455   dpush(nm, ep)                   /* push on a definition */
456   char  *nm;
457 < register EPNODE  *ep;
457 > register EPNODE  *ep;
458   {
459      register VARDEF  *vp;
460  
# Line 454 | Line 464 | register EPNODE  *ep;
464   }
465  
466  
467 < #ifdef  OUTCHAN
467 > #ifdef  OUTCHAN
468   addchan(sp)                     /* add an output channel assignment */
469 < EPNODE  *sp;
469 > EPNODE  *sp;
470   {
471 <    int  ch = sp->v.kid->v.chan;
471 >    int  ch = sp->v.kid->v.chan;
472      register EPNODE  *ep, *epl;
473  
474      for (epl = NULL, ep = outchan; ep != NULL; epl = ep, ep = ep->sibling)
# Line 495 | Line 505 | getstatement()                 /* get next statement */
505          scan();
506          return;
507      }
508 < #ifdef  OUTCHAN
508 > #ifdef  OUTCHAN
509      if (nextc == '$') {         /* channel assignment */
510          ep = getchan();
511          addchan(ep);
# Line 504 | Line 514 | getstatement()                 /* get next statement */
514      {                           /* ordinary definition */
515          ep = getdefn();
516          qname = qualname(dname(ep), 0);
517 < #ifdef  REDEFW
517 > #ifdef  REDEFW
518          if ((vdef = varlookup(qname)) != NULL)
519              if (vdef->def != NULL) {
520                  wputs(qname);
# Line 513 | Line 523 | getstatement()                 /* get next statement */
523                  else
524                      wputs(": redefined\n");
525              }
526 < #ifdef  FUNCTION
526 > #ifdef  FUNCTION
527              else if (ep->v.kid->type == FUNC && vdef->lib != NULL) {
528                  wputs(qname);
529                  wputs(": definition hides library function\n");
# Line 537 | Line 547 | getstatement()                 /* get next statement */
547   EPNODE *
548   getdefn()                       /* A -> SYM = E1 */
549                                  /*      SYM : E1 */
550 <                                /*      FUNC(SYM,..) = E1 */
550 >                                /*      FUNC(SYM,..) = E1 */
551                                  /*      FUNC(SYM,..) : E1 */
552   {
553      register EPNODE  *ep1, *ep2;
554  
555 <    if (!isalpha(nextc))
555 >    if (!isalpha(nextc) && nextc != CNTXMARK)
556          syntax("illegal variable name");
557  
558      ep1 = newnode();
559      ep1->type = SYM;
560      ep1->v.name = savestr(getname());
561  
562 < #ifdef  FUNCTION
562 > #ifdef  FUNCTION
563      if (nextc == '(') {
564          ep2 = newnode();
565          ep2->type = FUNC;
# Line 582 | Line 592 | getdefn()                      /* A -> SYM = E1 */
592      addekid(ep2, getE1());
593  
594      if (
595 < #ifdef  FUNCTION
596 <            ep1->type == SYM &&
595 > #ifdef  FUNCTION
596 >            ep1->type == SYM &&
597   #endif
598              ep1->sibling->type != NUM) {
599          ep1 = newnode();
# Line 599 | Line 609 | getdefn()                      /* A -> SYM = E1 */
609   }
610  
611  
612 < #ifdef  OUTCHAN
612 > #ifdef  OUTCHAN
613   EPNODE *
614   getchan()                       /* A -> $N = E1 */
615   {
# Line 636 | Line 646 | getchan()                      /* A -> $N = E1 */
646   static double
647   dvalue(name, d)                 /* evaluate a variable */
648   char  *name;
649 < EPNODE  *d;
649 > EPNODE  *d;
650   {
651      register EPNODE  *ep1, *ep2;
652      

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines