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