X-Git-Url: http://nitlanguage.org

diff --git a/c_src/file._ffi.c b/c_src/file._ffi.c
new file mode 100644
index 0000000..372c3c5
--- /dev/null
+++ b/c_src/file._ffi.c
@@ -0,0 +1,100 @@
+/*
+	Extern implementation of Nit module file
+*/
+#include <stdlib.h>
+#include <stdio.h>
+#include "file._ffi.h"
+#define new_HashSet_of_String file___new_HashSet_of_String
+#define HashSet_of_String_add file___HashSet_of_String_add
+#define NativeString_to_s file___NativeString_to_s
+#define String_to_cstring file___String_to_cstring
+
+Set_of_String file___String_files___impl( String recv )
+{
+#line 379 "lib/standard/file.nit"
+
+
+		char *dir_path;
+		DIR *dir;
+
+		dir_path = String_to_cstring( recv );
+		if ((dir = opendir(dir_path)) == NULL)
+		{
+			perror( dir_path );
+			exit( 1 );
+		}
+		else
+		{
+			HashSet_of_String results;
+			String file_name;
+			struct dirent *de;
+
+			results = new_HashSet_of_String();
+
+			while ( ( de = readdir( dir ) ) != NULL )
+				if ( strcmp( de->d_name, ".." ) != 0 &&
+					strcmp( de->d_name, "." ) != 0 )
+				{
+					file_name = NativeString_to_s( strdup( de->d_name ) );
+					HashSet_of_String_add( results, file_name );
+				}
+
+			closedir( dir );
+			return HashSet_of_String_as_Set_of_String( results );
+		}
+	}
+
+ struct stat *  file___NativeString_file_lstat___impl( char* recv )
+{
+#line 414 "lib/standard/file.nit"
+
+
+		struct stat* stat_element;
+		int res;
+		stat_element = malloc(sizeof(struct stat));
+		res = lstat(recv, stat_element);
+		if (res == -1) return NULL;
+		return stat_element;
+	}
+
+int file___FileStat_is_reg___impl(  struct stat *  recv )
+{
+#line 436 "lib/standard/file.nit"
+
+ return S_ISREG(recv->st_mode); }
+
+int file___FileStat_is_dir___impl(  struct stat *  recv )
+{
+#line 437 "lib/standard/file.nit"
+
+ return S_ISDIR(recv->st_mode); }
+
+int file___FileStat_is_chr___impl(  struct stat *  recv )
+{
+#line 438 "lib/standard/file.nit"
+
+ return S_ISCHR(recv->st_mode); }
+
+int file___FileStat_is_blk___impl(  struct stat *  recv )
+{
+#line 439 "lib/standard/file.nit"
+
+ return S_ISBLK(recv->st_mode); }
+
+int file___FileStat_is_fifo___impl(  struct stat *  recv )
+{
+#line 440 "lib/standard/file.nit"
+
+ return S_ISFIFO(recv->st_mode); }
+
+int file___FileStat_is_lnk___impl(  struct stat *  recv )
+{
+#line 441 "lib/standard/file.nit"
+
+ return S_ISLNK(recv->st_mode); }
+
+int file___FileStat_is_sock___impl(  struct stat *  recv )
+{
+#line 442 "lib/standard/file.nit"
+
+ return S_ISSOCK(recv->st_mode); }