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 6int vms_unlink(char *path) 7#elif __VMS_VER < 70200000 8int vms_unlink(char *path) 9#else 10int 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 21int link(char *from, char *to) 22{ 23 int rs = -1; 24 25 /* Link always fails */ 26 27 return rs; 28} 29