system_utime(3f) - [M_system:FILE_SYSTEM] set file access and
modification times
(LICENSE:PD)
function utime(pathname,times)
character(len=*),intent(in) :: pathname
integer,intent(in),optional :: times(2)
logical :: utime
The system_utime(3f) function sets the access and modification
times of the file named by the path argument by calling utime(3c).
If times() is not present the access and modification times of
the file shall be set to the current time.
To use system_utime(3f) the effective user ID of the process must
match the owner of the file, or the process has to have write
permission to the file or have appropriate privileges,
times If present, the values will be interpreted as the access
and modification times as Unix Epoch values. That is,
they are times measured in seconds since the Unix Epoch.
pathname name of the file whose access and modification times
are to be updated.
Upon successful completion .TRUE. is returned. Otherwise,
.FALSE. is returned and errno shall be set to indicate the error,
and the file times remain unaffected.
The underlying utime(3c) function fails if:
EACCES Search permission is denied by a component of the path
prefix; or the times argument is a null pointer and the
effective user ID of the process does not match the owner
of the file, the process does not have write permission
for the file, and the process does not have appropriate
privileges.
ELOOP A loop exists in symbolic links encountered during
resolution of the path argument.
ENAMETOOLONG The length of a component of a pathname is longer
than {NAME_MAX}.
ENOENT A component of path does not name an existing file
or path is an empty string.
ENOTDIR A component of the path prefix names an existing file
that is neither a directory nor a symbolic link to a
directory, or the path argument contains at least one
non-<slash> character and ends with one or more trailing
<slash> characters and the last pathname component
names an existing file that is neither a directory nor
a symbolic link to a directory.
EPERM The times argument is not a null pointer and the effective
user ID of the calling process does not match the owner
of the file and the calling process does not have
appropriate privileges.
EROFS The file system containing the file is read-only.
The utime() function may fail if:
ELOOP More than {SYMLOOP_MAX} symbolic links were encountered
during resolution of the path argument.
ENAMETOOLONG The length of a pathname exceeds {PATH_MAX}, or
pathname resolution of a symbolic link produced
an intermediate result with a length that exceeds
{PATH_MAX}.
Sample program
program demo_system_utime
use M_system, only : system_utime, system_perror
implicit none
character(len=4096) :: pathname
integer :: times(2)
integer :: i
do i=1,command_argument_count()
call get_command_argument(i, pathname)
if(.not.system_utime(pathname,times))then
call system_perror('*demo_system_utime*')
endif
enddo
end program demo_system_utime
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | pathname | |||
| integer, | intent(in), | optional | :: | times(2) |
function system_utime(pathname,times)
implicit none
! ident_2="@(#) M_system system_utime(3f) set access and modification times of a pathname"
character(len=*),intent(in) :: pathname
integer,intent(in),optional :: times(2)
integer :: times_local(2)
logical :: system_utime
character(kind=c_char,len=1),allocatable :: temp(:)
!-! int my_utime(const char *path, int times[2])
interface
function c_utime(c_pathname,c_times) bind (C,name="my_utime") result (c_ierr)
import c_char,c_int
character(kind=c_char,len=1),intent(in) :: c_pathname(*)
integer(kind=c_int),intent(in) :: c_times(2)
integer(kind=c_int) :: c_ierr
end function c_utime
end interface
if(present(times))then
times_local=times
else
times_local=timestamp()
endif
temp = str2_carr(trim(pathname)) ! kludge for bug in ifort (IFORT) 2021.3.0 20210609
if(c_utime(temp,int(times_local,kind=c_int)).eq.0)then
system_utime=.true.
else
system_utime=.false.
!x!if(system_errno().ne.0)then
!x! call perror('*system_utime*')
!x!endif
endif
end function system_utime