Added interfaces to access functions.

Author: interkosmos

README.md

@@ -40,7 +40,7 @@ tested on:
 
 Preprocessor macros are used to achieve platform-independent interoperability.
 Therefore, your Fortran compiler has to support at least GNU preprocessor
-conditionals (`#ifdef` …).
+conditionals.
 
 ## Build Instructions
 

src/unix_fcntl.F90

@@ -10,6 +10,12 @@ module unix_fcntl
 
 #if defined (__linux__)
 
+    integer(kind=c_int), parameter, public :: AT_EACCESS          = int(z'200')
+    integer(kind=c_int), parameter, public :: AT_SYMLINK_NOFOLLOW = int(z'100')
+    integer(kind=c_int), parameter, public :: AT_SYMLINK_FOLLOW   = int(z'400')
+    integer(kind=c_int), parameter, public :: AT_REMOVEDIR        = int(z'200')
+    integer(kind=c_int), parameter, public :: AT_EMPTY_PATH       = int(z'1000')
+
     integer(kind=c_int), parameter, public :: O_ACCMODE  = int(o'0003')
     integer(kind=c_int), parameter, public :: O_RDONLY   = int(o'00')
     integer(kind=c_int), parameter, public :: O_WRONLY   = int(o'01')
@@ -29,6 +35,12 @@ module unix_fcntl
 
 #elif defined (__FreeBSD__)
 
+    integer(kind=c_int), parameter, public :: AT_EACCESS          = int(z'0100') ! Check access using effective user and group ID.
+    integer(kind=c_int), parameter, public :: AT_SYMLINK_NOFOLLOW = int(z'0200') ! Do not follow symbolic links.
+    integer(kind=c_int), parameter, public :: AT_SYMLINK_FOLLOW   = int(z'0400') ! Follow symbolic link.
+    integer(kind=c_int), parameter, public :: AT_REMOVEDIR        = int(z'0800') ! Remove directory instead of file.
+    integer(kind=c_int), parameter, public :: AT_EMPTY_PATH       = int(z'4000') ! Operate on dirfd if path is empty.
+
     integer(kind=c_int), parameter, public :: O_RDONLY   = int(z'0000') ! Open for reading only.
     integer(kind=c_int), parameter, public :: O_WRONLY   = int(z'0001') ! Open for writing only.
     integer(kind=c_int), parameter, public :: O_RDWR     = int(z'0002') ! Open for reading and writing.

src/unix_types.F90

@@ -9,26 +9,26 @@ module unix_types
 
 #if defined (__flang__)
 
+    public :: c_uint16_t
+    public :: c_uint32_t
+    public :: c_uint64_t
+
     public :: c_unsigned
     public :: c_unsigned_char
     public :: c_unsigned_short
     public :: c_unsigned_long
 
-    public :: c_uint16_t
-    public :: c_uint32_t
-    public :: c_uint64_t
-
 #else
 
+    integer, parameter, public :: c_uint16_t = c_int16_t
+    integer, parameter, public :: c_uint32_t = c_int32_t
+    integer, parameter, public :: c_uint64_t = c_int64_t
+
     integer, parameter, public :: c_unsigned       = c_int
     integer, parameter, public :: c_unsigned_char  = c_signed_char
     integer, parameter, public :: c_unsigned_short = c_short
     integer, parameter, public :: c_unsigned_long  = c_long
 
-    integer, parameter, public :: c_uint16_t = c_int16_t
-    integer, parameter, public :: c_uint32_t = c_int32_t
-    integer, parameter, public :: c_uint64_t = c_int64_t
-
 #endif
 
 #if defined (__linux__)

src/unix_unistd.F90

@@ -12,11 +12,18 @@ module unix_unistd
     integer(kind=c_int), parameter, public :: STDOUT_FILENO = 1
     integer(kind=c_int), parameter, public :: STDERR_FILENO = 2
 
+    integer(kind=c_int), parameter, public :: F_OK = 0          ! Test for existence of file.
+    integer(kind=c_int), parameter, public :: X_OK = int(z'01') ! Test for execute or search permission.
+    integer(kind=c_int), parameter, public :: W_OK = int(z'02') ! Test for write permission.
+    integer(kind=c_int), parameter, public :: R_OK = int(z'04') ! Test for read permission.
+
+    public :: c_access
     public :: c_chdir
     public :: c_close
     public :: c_dup
     public :: c_dup2
     public :: c_execl
+    public :: c_faccessat
     public :: c_fork
     public :: c_getpid
     public :: c_pipe
@@ -27,6 +34,15 @@ module unix_unistd
     public :: c_write
 
     interface
+        ! int access(const char *path, int mode)
+        function c_access(path, mode) bind(c, name='access')
+            import :: c_char, c_int
+            implicit none
+            character(kind=c_char), intent(in)        :: path
+            integer(kind=c_int),    intent(in), value :: mode
+            integer(kind=c_int)                       :: c_access
+        end function c_access
+
         ! int chdir(const char *path)
         function c_chdir(path) bind(c, name='chdir')
             import :: c_int, c_char
@@ -72,6 +88,17 @@ function c_execl(path, arg1, arg2, arg3, ptr) bind(c, name='c_execl')
             integer(kind=c_int)                       :: c_execl
         end function c_execl
 
+        ! int faccessat(int dirfd, const char *path, int mode, int flags)
+        function c_faccessat(dirfd, path, mode, flags) bind(c, name='faccessat')
+            import :: c_char, c_int
+            implicit none
+            integer(kind=c_int),    intent(in), value :: dirfd
+            character(kind=c_char), intent(in)        :: path
+            integer(kind=c_int),    intent(in), value :: mode
+            integer(kind=c_int),    intent(in), value :: flags
+            integer(kind=c_int)                       :: c_faccessat
+        end function c_faccessat
+
         ! pid_t fork(void)
         function c_fork() bind(c, name='fork')
             import :: c_pid_t