Merge branch 'mirbsd'
[alioth/cvs.git] / vms / unlink.c
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 }