16 |
|
* 1/15/88 Added clock for caching of variable values. |
17 |
|
* |
18 |
|
* 11/16/88 Added VARDEF structure for hard linking. |
19 |
+ |
* |
20 |
+ |
* 5/31/90 Added conditional compile (REDEFW) for redefinition warning. |
21 |
|
*/ |
22 |
|
|
23 |
|
#include <stdio.h> |
34 |
|
|
35 |
|
extern char *ecalloc(), *savestr(); |
36 |
|
|
37 |
< |
extern double dvalue(); |
37 |
> |
static double dvalue(); |
38 |
|
|
39 |
|
long eclock = -1; /* value storage timer */ |
40 |
|
|
372 |
|
#endif |
373 |
|
{ /* ordinary definition */ |
374 |
|
ep = getdefn(); |
375 |
+ |
#ifdef REDEFW |
376 |
+ |
if (dlookup(dname(ep)) != NULL) { |
377 |
+ |
dclear(dname(ep)); |
378 |
+ |
wputs(dname(ep)); |
379 |
+ |
wputs(": redefined\n"); |
380 |
+ |
} |
381 |
+ |
#else |
382 |
|
dclear(dname(ep)); |
383 |
+ |
#endif |
384 |
|
dpush(ep); |
385 |
|
} |
386 |
|
if (nextc != EOF) { |