65 |
|
|
66 |
|
/* Set parameters for current evaluation */ |
67 |
|
void |
68 |
< |
set_eparams(char *prms) |
68 |
> |
set_eparams(const char *prms) |
69 |
|
{ |
70 |
< |
static char *last_params = NULL; |
71 |
< |
char vname[RMAXWORD]; |
72 |
< |
double value; |
73 |
< |
char *cpd; |
70 |
> |
static const 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; |
96 |
|
if (*prms++ != '=') |
97 |
|
goto bad_params; |
98 |
|
value = atof(prms); |
99 |
< |
if ((prms = fskip(prms)) == NULL) |
99 |
> |
if ((prms = fskip((char *)prms)) == NULL) |
100 |
|
goto bad_params; |
101 |
|
while (isspace(*prms)) prms++; |
102 |
|
prms += (*prms == ',') | (*prms == ';') | (*prms == ':'); |
256 |
|
|
257 |
|
int |
258 |
|
worldfunc( /* special function context sans object */ |
259 |
< |
char *ctx, |
259 |
> |
const char *ctx, |
260 |
|
RAY *r |
261 |
|
) |
262 |
|
{ |
265 |
|
if (rayinitcal[0]) /* initialize on first call */ |
266 |
|
initfunc(); |
267 |
|
/* set evaluator context */ |
268 |
< |
calcontext(ctx); |
268 |
> |
calcontext((char *)ctx); |
269 |
|
/* check if ray already set */ |
270 |
|
if ((fobj == NULL) & (r->rno == lastrno)) |
271 |
|
return(0); |