blob: c52c28bfddb8b4747445eda5343cd6eebbe68d3e (
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
34
35
36
37
38
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
include <fio.h>
# RENAME -- Rename a file. First try to rename the file using the ZFRNAM
# kernel primitive, accessed by FRENAME. If that fails try to copy the
# file and delete the original.
procedure rename (oldname, newname)
char oldname[ARB] # old filename
char newname[ARB] # new filename
int junk, protect()
errchk fcopy, protect
begin
# Try a simple file rename first.
ifnoerr (call frename (oldname, newname))
return
# That failed, so copy the file to the new name.
call fcopy (oldname, newname)
# Now delete the original. Transfer file protection to the new file,
# if the old file was protected.
if (protect (oldname, QUERY_PROTECTION) == YES) {
iferr (junk = protect (oldname, REMOVE_PROTECTION)) {
call delete (newname)
call erract (EA_ERROR)
}
call delete (oldname)
junk = protect (newname, SET_PROTECTION)
} else
call delete (oldname)
end
|
