150bf276cStholo #include <unixio.h> 250bf276cStholo 350bf276cStholo /* UNIX-like file deletion, deletes previous VMS file versions so UNIX 450bf276cStholo style locking through files dosen't lose. */ 5*43c1707eStholo #ifndef __VMS_VER vms_unlink(char * path)6*43c1707eStholoint vms_unlink(char *path) 7*43c1707eStholo #elif __VMS_VER < 70200000 8*43c1707eStholo int vms_unlink(char *path) 9*43c1707eStholo #else 10*43c1707eStholo int vms_unlink(char const*path) 11*43c1707eStholo #endif 1250bf276cStholo { 1350bf276cStholo int rs, junk_rs; 1450bf276cStholo 1550bf276cStholo rs = remove(path); 1650bf276cStholo while(remove(path) >= 0); 1750bf276cStholo 1850bf276cStholo return rs; 1950bf276cStholo } 2050bf276cStholo link(char * from,char * to)2150bf276cStholoint link(char *from, char *to) 2250bf276cStholo { 2350bf276cStholo int rs = -1; 2450bf276cStholo 2550bf276cStholo /* Link always fails */ 2650bf276cStholo 2750bf276cStholo return rs; 2850bf276cStholo } 29