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