posix_errno_t efile_list_dir(ErlNifEnv *env, const efile_path_t *path, ERL_NIF_TERM *result) {
ERL_NIF_TERM list_head;
WIN32_FIND_DATAW data;
HANDLE search_handle;
WCHAR *search_path;
DWORD last_error;
ASSERT_PATH_FORMAT(path);
search_path = enif_alloc(path->size + 2 * sizeof(WCHAR));
if(search_path == NULL) {
return ENOMEM;
}
sys_memcpy(search_path, path->data, path->size);
search_path[PATH_LENGTH(path) + 0] = L'\\';
search_path[PATH_LENGTH(path) + 1] = L'*';
search_path[PATH_LENGTH(path) + 2] = L'\0';
search_handle = FindFirstFileW(search_path, &data);
last_error = GetLastError();
enif_free(search_path);
if(search_handle == INVALID_HANDLE_VALUE) {
return windows_to_posix_errno(last_error);
}
list_head = enif_make_list(env, 0);
do {
int name_length = wcslen(data.cFileName);
if(!is_ignored_name(name_length, data.cFileName)) {
unsigned char *name_bytes;
ERL_NIF_TERM name_term;
size_t name_size;
name_size = name_length * sizeof(WCHAR);
name_bytes = enif_make_new_binary(env, name_size, &name_term);
sys_memcpy(name_bytes, data.cFileName, name_size);
list_head = enif_make_list_cell(env, name_term, list_head);
}
} while(FindNextFileW(search_handle, &data));
FindClose(search_handle);
(*result) = list_head;
return 0;
}
posix_errno_t efile_list_dir(ErlNifEnv *env, const efile_path_t *path, ERL_NIF_TERM *result) {
ERL_NIF_TERM list_head;
struct dirent *dir_entry;
DIR *dir_stream;
dir_stream = opendir((const char*)path->data);
if(dir_stream == NULL) {
posix_errno_t saved_errno = errno;
*result = enif_make_list(env, 0);
return saved_errno;
}
list_head = enif_make_list(env, 0);
dir_entry = readdir(dir_stream);
while(dir_entry != NULL) {
int name_length = strlen(dir_entry->d_name);
if(!is_ignored_name(name_length, dir_entry->d_name)) {
unsigned char *name_bytes;
ERL_NIF_TERM name_term;
name_bytes = enif_make_new_binary(env, name_length, &name_term);
sys_memcpy(name_bytes, dir_entry->d_name, name_length);
list_head = enif_make_list_cell(env, name_term, list_head);
}
dir_entry = readdir(dir_stream);
}
(*result) = list_head;
closedir(dir_stream);
return 0;
}
