| 67 |
|
void |
| 68 |
|
set_eparams(char *prms) |
| 69 |
|
{ |
| 70 |
< |
static char *last_params; |
| 71 |
< |
static int lplen = 0; |
| 72 |
< |
int len; |
| 70 |
> |
static char *last_params = NULL; |
| 71 |
|
char vname[RMAXWORD]; |
| 72 |
|
double value; |
| 73 |
|
char *cpd; |
| 74 |
|
/* check if already set */ |
| 75 |
|
if (prms == NULL || !*prms) |
| 76 |
|
return; |
| 77 |
< |
if (lplen && !strcmp(prms, last_params)) |
| 77 |
> |
if (prms == last_params || (last_params != NULL && |
| 78 |
> |
!strcmp(prms, last_params))) |
| 79 |
|
return; |
| 80 |
< |
len = strlen(prms); /* record new settings */ |
| 82 |
< |
if ((lplen != 0) & (lplen <= len)) { |
| 83 |
< |
free(last_params); |
| 84 |
< |
lplen = 0; |
| 85 |
< |
} |
| 86 |
< |
if (!lplen) { |
| 87 |
< |
lplen = len + 100; |
| 88 |
< |
last_params = (char *)malloc(lplen); |
| 89 |
< |
if (last_params == NULL) |
| 90 |
< |
error(SYSTEM, "out of memory in set_eparams()"); |
| 91 |
< |
} |
| 92 |
< |
strcpy(last_params, prms); |
| 80 |
> |
last_params = prms; /* XXX assumes static string */ |
| 81 |
|
/* assign each variable */ |
| 82 |
|
while (*prms) { |
| 83 |
|
if (isspace(*prms)) { |
| 102 |
|
prms += (*prms == ',') | (*prms == ';'); |
| 103 |
|
varset(vname, '=', value); |
| 104 |
|
} |
| 105 |
+ |
eclock++; /* notify expression evaluator */ |
| 106 |
|
return; |
| 107 |
|
bad_params: |
| 108 |
|
sprintf(errmsg, "bad parameter list '%s'", last_params); |
