1 /* This file is part of NIT ( http://www.nitlanguage.org ).
3 * Copyright 2004-2008 Jean Privat <jean@pryen.org>
4 * Copyright 2008 Floréal Morandat <morandat@lirmm.fr>
5 * Copyright 2008 Jean-Sébastien Gélinas <calestar@gmail.com>
7 * This file is free software, which comes along with NIT. This software is
8 * distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
9 * without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
10 * PARTICULAR PURPOSE. You can modify it is you want, provided this header
11 * is kept unaltered, and a notification of the changes is added.
12 * You are allowed to redistribute it and sell it, alone or is a part of
20 #include <sys/types.h>
28 C implementation of file::String::files
30 Imported methods signatures:
31 HashSet new_HashSet( ) for hash_collection::HashSet::init
32 void HashSet_add( HashSet recv, Object item ) for hash_collection::HashSet::(abstract_collection::SimpleCollection::add)
33 String new_String_from_cstring( char * str ) for string::String::from_cstring
34 int HashSet_is_a_Set( HashSet value ) to check if a HashSet[String] is a Set[String]
35 Set HashSet_as_Set( HashSet value ) to cast from HashSet[String] to Set[String]
37 Set
String_files___impl( String recv
)
42 dir_path
= String_to_cstring( recv
);
43 if ((dir
= opendir(dir_path
)) == NULL
)
54 results
= new_HashSet();
56 while ( ( de
= readdir( dir
) ) != NULL
)
57 if ( strcmp( de
->d_name
, ".." ) != 0 &&
58 strcmp( de
->d_name
, "." ) != 0 )
60 file_name
= new_String_from_cstring( strdup( de
->d_name
) );
61 HashSet_add( results
, String_as_Object( file_name
) );
65 return HashSet_as_Set( results
);
69 int string_NativeString_NativeString_file_exists_0(char *f
){
70 FILE *hdl
= fopen(f
,"r");
77 void *to_nit_file_stat(struct stat
* st
){
78 struct stat
* stat_element
;
79 stat_element
= malloc(sizeof(struct stat
));
80 return memcpy(stat_element
, st
, sizeof(struct stat
));
83 void *string_NativeString_NativeString_file_stat_0(char *f
){
85 if(stat(f
, &buff
) != -1)
86 return to_nit_file_stat(&buff
);
90 void *file_NativeFile_NativeFile_file_stat_0(FILE *f
){
92 if(fstat(fileno(f
), &buff
) != -1)
93 return to_nit_file_stat(&buff
);
97 extern int string_NativeString_NativeString_file_delete_0(char *f
){
98 return (remove(f
) == 0);