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.13 by greg, Thu Aug 8 11:22:06 1991 UTC vs.
Revision 2.3 by greg, Mon Aug 10 16:20:43 1992 UTC

# Line 38 | Line 38 | static char SCCSid[] = "$SunId$ LBL";
38  
39   extern char  *ecalloc(), *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 */        
# 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 repeat call */
221 <    if (nam == nambuf)
222 <        return(lvl > 0 ? NULL : nambuf);
218 >    static char  nambuf[MAXWORD+1];
219 >    register char  *cp = nambuf, *cpp;
220 >                                /* check for explicit local */
221 >    if (*nam == CNTXMARK)
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)
230 <            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 <                ;
245 <        }
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      }
251 –    *cp = '\0';
252 –    return(nambuf);             /* return qualified name */
253   toolong:
254      *cp = '\0';
255 <    wputs(nambuf);
256 <    wputs(": name too long\n");
257 <    return(NULL);
255 >    return(nambuf);             /* return qualified name */
256   }
257  
258  
259 + incontext(qn)                   /* is qualified name in current context? */
260 + register char  *qn;
261 + {
262 +    while (*qn && *qn != CNTXMARK)      /* find context mark */
263 +        qn++;
264 +    return(!strcmp(qn, context));
265 + }
266 +
267 +
268   #ifdef  OUTCHAN
269   chanout(cs)                     /* set output channels */
270   int  (*cs)();
# Line 277 | Line 284 | int  lvl;
284      register int  i;
285      register VARDEF  *vp;
286      register EPNODE  *ep;
287 <
287 >                                /* if context is global, clear all */
288      for (i = 0; i < NHASH; i++)
289          for (vp = hashtbl[i]; vp != NULL; vp = vp->next)
290 <            if (lvl >= 2)
291 <                dremove(vp->name);
292 <            else
293 <                dclear(vp->name);
290 >            if (!context[0] || incontext(vp->name))
291 >                if (lvl >= 2)
292 >                    dremove(vp->name);
293 >                else
294 >                    dclear(vp->name);
295   #ifdef  OUTCHAN
296      if (lvl >= 1) {
297          for (ep = outchan; ep != NULL; ep = ep->sibling)
# Line 333 | Line 341 | char  *name;
341          vp->nlinks++;
342          return(vp);
343      }
336 –    name = qualname(name, 0);           /* use fully qualified name */
337 –    hv = hash(name);
344      vp = (VARDEF *)emalloc(sizeof(VARDEF));
345 + #ifdef  FUNCTION
346 +    vp->lib = liblookup(name);
347 + #else
348 +    vp->lib = NULL;
349 + #endif
350 +    if (vp->lib == NULL)                /* if name not in library */
351 +        name = qualname(name, 0);       /* use fully qualified version */
352 +    hv = hash(name);
353      vp->name = savestr(name);
354      vp->nlinks = 1;
355      vp->def = NULL;
342 –    vp->lib = NULL;
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;
379   {
# Line 385 | 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 +            nm = htpos->name;
424              htpos = htpos->next;
425 <            if (ep != NULL)
425 >            if (ep != NULL && incontext(nm))
426                  return(ep);
427          }
428      }
# Line 469 | Line 499 | getstatement()                 /* get next statement */
499   {
500      register EPNODE  *ep;
501      char  *qname;
502 <    EPNODE  *lastdef;
502 >    register VARDEF  *vdef;
503  
504      if (nextc == ';') {         /* empty statement */
505          scan();
# Line 485 | Line 515 | getstatement()                 /* get next statement */
515          ep = getdefn();
516          qname = qualname(dname(ep), 0);
517   #ifdef  REDEFW
518 <        if ((lastdef = dlookup(qname)) != NULL) {
519 <            wputs(qname);
520 <            if (lastdef->type == ':')
521 <                wputs(": redefined constant expression\n");
522 <            else
523 <                wputs(": redefined\n");
524 <        }
518 >        if ((vdef = varlookup(qname)) != NULL)
519 >            if (vdef->def != NULL) {
520 >                wputs(qname);
521 >                if (vdef->def->type == ':')
522 >                    wputs(": redefined constant expression\n");
523 >                else
524 >                    wputs(": redefined\n");
525 >            }
526   #ifdef  FUNCTION
527 <        else if (ep->v.kid->type == FUNC && liblookup(qname) != NULL) {
528 <            wputs(qname);
529 <            wputs(": definition hides library function\n");
530 <        }
527 >            else if (ep->v.kid->type == FUNC && vdef->lib != NULL) {
528 >                wputs(qname);
529 >                wputs(": definition hides library function\n");
530 >            }
531   #endif
532   #endif
533          if (ep->type == ':')
# Line 521 | Line 552 | getdefn()                      /* A -> 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();

Diff Legend

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