Fix: dirent symbols for OSX.

Author: LKedward

src/c.c

@@ -1,6 +1,11 @@
 #include <sys/stat.h>
 #include <dirent.h>
 
+#ifdef __APPLE__
+DIR * opendir$INODE64( const char * dirName );
+struct dirent * readdir$INODE64( DIR * dir );
+#endif
+
 int c_is_dir(const char *path)
 {
     struct stat m;
@@ -12,3 +17,25 @@ const char *get_d_name(struct dirent *d)
 {
     return (const char *) d->d_name;
 }
+
+
+
+DIR *c_opendir(const char *dirname){
+
+#ifdef __APPLE__
+    return opendir$INODE64(dirname);
+#else
+    return opendir(dirname);
+#endif
+
+}
+
+struct dirent *c_readdir(DIR *dirp){
+
+#ifdef __APPLE__
+    return readdir$INODE64(dirp);
+#else
+    return readdir(dirp);
+#endif
+
+}

src/fpm_filesystem.F90

@@ -19,13 +19,13 @@ module fpm_filesystem
 
 #ifndef FPM_BOOTSTRAP
     interface
-        function c_opendir(dir) result(r) bind(c, name="opendir")
+        function c_opendir(dir) result(r) bind(c, name="c_opendir")
             import c_char, c_ptr
             character(kind=c_char), intent(in) :: dir(*)
             type(c_ptr) :: r
         end function c_opendir
 
-        function c_readdir(dir) result(r) bind(c, name="readdir")
+        function c_readdir(dir) result(r) bind(c, name="c_readdir")
             import c_ptr
             type(c_ptr), intent(in), value :: dir
             type(c_ptr) :: r