| 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); |