| 27 |
|
|
| 28 |
|
#include "copyright.h" |
| 29 |
|
|
| 30 |
– |
#include <stdio.h> |
| 31 |
– |
#include <string.h> |
| 30 |
|
#include <ctype.h> |
| 31 |
|
|
| 32 |
|
#include "rterror.h" |
| 140 |
|
return; |
| 141 |
|
} |
| 142 |
|
} |
| 143 |
+ |
if (ep1 != NULL && esupport&E_REDEFW) { |
| 144 |
+ |
wputs(qname); |
| 145 |
+ |
if (ep1->type == ':') |
| 146 |
+ |
wputs(": reset constant expression\n"); |
| 147 |
+ |
else |
| 148 |
+ |
wputs(": reset expression\n"); |
| 149 |
+ |
} |
| 150 |
|
/* hand build definition */ |
| 151 |
|
ep1 = newnode(); |
| 152 |
|
ep1->type = assign; |
| 637 |
|
ep2 = newnode(); |
| 638 |
|
ep2->type = SYM; |
| 639 |
|
ep2->v.name = savestr(getname()); |
| 640 |
+ |
if (strchr(ep2->v.name, CNTXMARK) != NULL) |
| 641 |
+ |
syntax("illegal parameter name"); |
| 642 |
|
addekid(ep1, ep2); |
| 643 |
|
} while (nextc == ','); |
| 644 |
|
if (nextc != ')') |
| 704 |
|
|
| 705 |
|
|
| 706 |
|
static double /* evaluate a variable */ |
| 707 |
< |
dvalue(char *name, EPNODE *d) |
| 707 |
> |
dvalue(char *name, EPNODE *d) |
| 708 |
|
{ |
| 709 |
|
EPNODE *ep1, *ep2; |
| 710 |
|
|
| 716 |
|
ep1 = d->v.kid->sibling; /* get expression */ |
| 717 |
|
if (ep1->type == NUM) |
| 718 |
|
return(ep1->v.num); /* return if number */ |
| 719 |
+ |
if (esupport&E_RCONST && d->type == ':') { |
| 720 |
+ |
wputs(name); |
| 721 |
+ |
wputs(": assigned non-constant value\n"); |
| 722 |
+ |
} |
| 723 |
|
ep2 = ep1->sibling; /* check time */ |
| 724 |
|
if (eclock >= MAXCLOCK) |
| 725 |
|
eclock = 1; /* wrap clock counter */ |
