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 |
|
} |