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 */ |
260 |
|
register char *qn; |
261 |
|
{ |
262 |
|
while (*qn && *qn != CNTXMARK) /* find context mark */ |
263 |
< |
; |
263 |
> |
qn++; |
264 |
|
return(!strcmp(qn, context)); |
265 |
|
} |
266 |
|
|
400 |
|
dnext() /* return pointer to next definition */ |
401 |
|
{ |
402 |
|
register EPNODE *ep; |
403 |
+ |
register char *nm; |
404 |
|
|
405 |
|
while (htndx < NHASH) { |
406 |
|
if (htpos == NULL) |
407 |
|
htpos = hashtbl[htndx++]; |
408 |
|
while (htpos != NULL) { |
409 |
|
ep = htpos->def; |
410 |
+ |
nm = htpos->name; |
411 |
|
htpos = htpos->next; |
412 |
< |
if (ep != NULL) |
412 |
> |
if (ep != NULL && incontext(nm)) |
413 |
|
return(ep); |
414 |
|
} |
415 |
|
} |