| 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 == ':'); |
| 127 |
|
if ((f = (MFUNC *)m->os) != NULL) |
| 128 |
|
return(f); |
| 129 |
|
fobj = NULL; fray = NULL; |
| 130 |
– |
if (rayinitcal[0]) /* initialize on first call */ |
| 131 |
– |
initfunc(); |
| 130 |
|
if ((na = m->oargs.nsargs) <= ff) |
| 131 |
|
goto toofew; |
| 132 |
|
arg = m->oargs.sarg; |
| 161 |
|
goto toofew; |
| 162 |
|
if (i <= ff) /* find transform args */ |
| 163 |
|
i = ff+1; |
| 164 |
< |
while (i < na && arg[i][0] != '-') |
| 164 |
> |
while (i < na && !isxfopt(arg[i])) |
| 165 |
|
i++; |
| 166 |
|
if (i == na) { /* no transform */ |
| 167 |
|
f->fxp = f->bxp = &unitxf; |
| 254 |
|
|
| 255 |
|
int |
| 256 |
|
worldfunc( /* special function context sans object */ |
| 257 |
< |
char *ctx, |
| 257 |
> |
const char *ctx, |
| 258 |
|
RAY *r |
| 259 |
|
) |
| 260 |
|
{ |
| 261 |
|
static RNUMBER lastrno = ~0; |
| 264 |
– |
|
| 265 |
– |
if (rayinitcal[0]) /* initialize on first call */ |
| 266 |
– |
initfunc(); |
| 262 |
|
/* set evaluator context */ |
| 263 |
< |
calcontext(ctx); |
| 263 |
> |
calcontext((char *)ctx); |
| 264 |
|
/* check if ray already set */ |
| 265 |
|
if ((fobj == NULL) & (r->rno == lastrno)) |
| 266 |
|
return(0); |