1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#define namelength 100 /* must agree with tftopl.ch and pltotf.ch */ bool testreadaccess(fn) char *fn; { register char *p; fn[namelength-1] = ' '; p = fn; while (*p++ != ' '); p--; *p = '\0'; if (access(fn,4)==0) { *p = ' '; return(TRUE);} else {*p = ' '; return(FALSE);} }