| 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; |
| 259 |
|
) |
| 260 |
|
{ |
| 261 |
|
static RNUMBER lastrno = ~0; |
| 264 |
– |
|
| 265 |
– |
if (rayinitcal[0]) /* initialize on first call */ |
| 266 |
– |
initfunc(); |
| 262 |
|
/* set evaluator context */ |
| 263 |
|
calcontext((char *)ctx); |
| 264 |
|
/* check if ray already set */ |