blob: 402076f02c1bde3a27b9f731dd1d8e703f7cdb1f (
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
29
30
31
32
33
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <knet.h>
# FUNLINK -- Remove a symlink.
procedure funlink (lname)
char lname[ARB] # link name
int status
pointer sp, oslnk
int access()
errchk syserrs
begin
call smark (sp)
call salloc (oslnk, SZ_PATHNAME, TY_CHAR)
# It is an error if the link file doesn't exist.
if (access (lname, 0, 0) == NO)
call syserrs (SYS_FOPEN, lname)
# Try to remove the symlink.
iferr (call fmapfn (lname, Memc[oslnk], SZ_PATHNAME))
call syserrs (SYS_FSYMLINK, lname)
call zfulnk (Memc[oslnk], status)
if (status == ERR)
call syserrs (SYS_FUNLINK, lname)
call sfree (sp)
end
|
