1 #include <unixio.h> 2 3 /* UNIX-like file deletion, deletes previous VMS file versions so UNIX 4 style locking through files dosen't lose. */ 5 #ifndef __VMS_VER 6 int vms_unlink(char *path) 7 #elif __VMS_VER < 70200000 8 int vms_unlink(char *path) 9 #else 10 int vms_unlink(char const*path) 11 #endif 12 { 13 int rs, junk_rs; 14 15 rs = remove(path); 16 while(remove(path) >= 0); 17 18 return rs; 19 } 20 21 int link(char *from, char *to) 22 { 23 int rs = -1; 24 25 /* Link always fails */ 26 27 return rs; 28 } 29