Add interfaces. Minor updates.

Author: pengel

Makefile

@@ -18,7 +18,7 @@
 #   LDLIBS  - Linker libraries.
 #   TARGET  - Output library name. #
 #
-OS      = FreeBSD
+OS      = linux
 PREFIX  = /usr/local
 FC      = gfortran
 CC      = gcc

src/unix_macro.c

@@ -14,7 +14,7 @@ extern "C" {
 int c_errno(void);
 int c_execl(const char *, const char *, const char *, const char *, void *);
 int c_fcntl(int, int, int);
-int c_fprintf(FILE *, const char *, const char *);
+int c_fprintf(void *, const char *, const char *);
 int c_ioctl(int, unsigned long, void *);
 int c_open(const char *, int, mode_t);
 int c_scanf(const char *, const char *);
@@ -48,9 +48,9 @@ int c_fcntl(int fd, int cmd, int arg)
 }
 
 /* int fprintf(FILE *stream, const char *format, ...) */
-int c_fprintf(FILE *stream, const char *format, const char *arg)
+int c_fprintf(void *stream, const char *format, const char *arg)
 {
-    return fprintf(stream, format, arg);
+    return fprintf((FILE *) stream, format, arg);
 }
 
 /* int ioctl(int fd, unsigned long request, ...) */

src/unix_stdio.F90

@@ -24,6 +24,7 @@ module unix_stdio
 #endif
 
     public :: c_getchar
+    public :: c_getline
     public :: c_fclose
     public :: c_fdopen
     public :: c_fflush
@@ -50,6 +51,16 @@ function c_getchar() bind(c, name='getchar')
             integer(kind=c_int) :: c_getchar
         end function c_getchar
 
+        ! ssize_t getline(char **lineptr, size_t *n, FILE *stream)
+        function c_getline(lineptr, n, stream) bind(c, name='getline')
+            import :: c_char, c_ptr, c_size_t
+            implicit none
+            type(c_ptr),            intent(inout)     :: lineptr
+            integer(kind=c_size_t), intent(inout)     :: n
+            type(c_ptr),            intent(in), value :: stream
+            integer(kind=c_size_t)                    :: c_getline
+        end function c_getline
+
         ! int fclose(FILE *stream)
         function c_fclose(stream) bind(c, name='fclose')
             import :: c_int, c_ptr

src/unix_unistd.F90

@@ -26,6 +26,7 @@ module unix_unistd
     public :: c_faccessat
     public :: c_fork
     public :: c_getpid
+    public :: c_isatty
     public :: c_pipe
     public :: c_read
     public :: c_setsid
@@ -113,6 +114,14 @@ function c_getpid() bind(c, name='getpid')
             integer(kind=c_pid_t) :: c_getpid
         end function c_getpid
 
+        ! int isatty(int fd)
+        function c_isatty(fd) bind(c, name='isatty')
+            import :: c_int
+            implicit none
+            integer(kind=c_int), intent(in), value :: fd
+            integer(kind=c_int)                    :: c_isatty
+        end function c_isatty
+
         ! int pipe(int fd[2])
         function c_pipe(fd) bind(c, name='pipe')
             import :: c_int