system_unlink(3f) - [M_system:FILE_SYSTEM] remove a directory
entry relative to directory file descriptor
(LICENSE:PD)
elemental impure integer function unlink(path);
character(len=*) :: path
The unlink() function shall remove a link to a file. If path names a
symbolic link, unlink() shall remove the symbolic link named by path
and shall not affect any file or directory named by the contents of
the symbolic link. Otherwise, unlink() shall remove the link named by
the pathname pointed to by path and shall decrement the link count of
the file referenced by the link.
When the file's link count becomes 0 and no process has the file open,
the space occupied by the file shall be freed and the file shall no
longer be accessible. If one or more processes have the file open when
the last link is removed, the link shall be removed before unlink()
returns, but the removal of the file contents shall be postponed until
all references to the file are closed.
The path argument shall not name a directory unless the process has
appropriate privileges and the implementation supports using unlink()
on directories.
Upon successful completion, unlink() shall mark for update the last
data modification and last file status change timestamps of the parent
directory. Also, if the file's link count is not 0, the last file status
change timestamp of the file shall be marked for update.
Values for flag are constructed by a bitwise-inclusive OR of flags from
the following list, defined in <fcntl.h>:
AT_REMOVEDIR
Remove the directory entry specified by fd and path as a
directory, not a normal file.
Upon successful completion, these functions shall return 0. Otherwise,
these functions shall return -1 and set errno to indicate the error. If
-1 is returned, the named file shall not be changed.
Removing a link to a file
program demo_system_unlink
use M_system, only : system_unlink, system_perror
integer :: ierr
ierr = system_unlink('myfile1')
if(ierr.ne.0)then
call system_perror('*demo_system_unlink*')
endif
end program demo_system_unlink
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | fname |
elemental impure function system_unlink(fname) result (ierr)
! ident_13="@(#) M_system system_unlink(3f) call unlink(3c) to rm file link"
character(len=*),intent(in) :: fname
integer :: ierr
character(kind=c_char,len=1),allocatable :: temp(:)
interface
function c_unlink(c_fname) bind (C,name="unlink") result (c_ierr)
import c_char, c_int
character(kind=c_char,len=1) :: c_fname(*)
integer(kind=c_int) :: c_ierr
end function c_unlink
end interface
temp = str2_carr(trim(fname)) ! kludge for bug in ifort (IFORT) 2021.3.0 20210609
ierr=c_unlink(temp)
end function system_unlink