| 75 |
|
mxf = (XF *)malloc(sizeof(XF)); |
| 76 |
|
if (mxf == NULL) |
| 77 |
|
goto memerr; |
| 78 |
– |
mxf->sca = 1.0; |
| 79 |
– |
setident4(mxf->xfm); |
| 78 |
|
if (invxf(mxf->xfm, &mxf->sca, n, sa) != n) |
| 79 |
|
objerror(m, USER, "bad transform"); |
| 80 |
|
if (mxf->sca < 0.0) |
| 95 |
|
extern char *libpath; /* library search path */ |
| 96 |
|
char *ffname; |
| 97 |
|
|
| 98 |
< |
if ((ffname = getpath(fname, libpath)) == NULL) { |
| 98 |
> |
if ((ffname = getpath(fname, libpath, R_OK)) == NULL) { |
| 99 |
|
sprintf(errmsg, "cannot find function file \"%s\"", fname); |
| 100 |
|
error(USER, errmsg); |
| 101 |
|
} |