initial Implementation of ls() for windows
parent
155e1fa961
commit
4d9c6197fd
63
vlib/os/os.v
63
vlib/os/os.v
|
@ -549,6 +549,7 @@ pub fn getexepath() string {
|
|||
pub fn is_dir(path string) bool {
|
||||
$if windows {
|
||||
val := int(C.GetFileAttributes(path.cstr()))
|
||||
// Note: this return is broke (wrong). we have dir_exists already how will this differ?
|
||||
return val &FILE_ATTRIBUTE_DIRECTORY > 0
|
||||
}
|
||||
$else {
|
||||
|
@ -585,12 +586,70 @@ pub fn getwd() string {
|
|||
return string(buf)
|
||||
}
|
||||
|
||||
|
||||
// windows
|
||||
const(
|
||||
INVALID_HANDLE_VALUE = -1
|
||||
)
|
||||
|
||||
// win: FILETIME
|
||||
// https://docs.microsoft.com/en-us/windows/win32/api/minwinbase/ns-minwinbase-filetime
|
||||
struct filetime {
|
||||
dwLowDateTime u32
|
||||
dwHighDateTime u32
|
||||
}
|
||||
|
||||
// win: WIN32_FIND_DATA
|
||||
// https://docs.microsoft.com/en-us/windows/win32/api/minwinbase/ns-minwinbase-_win32_find_dataa
|
||||
struct win32finddata {
|
||||
mut:
|
||||
dwFileAttributes u32
|
||||
ftCreationTime filetime
|
||||
ftLastAccessTime filetime
|
||||
ftLastWriteTime filetime
|
||||
nFileSizeHigh u32
|
||||
nFileSizeLow u32
|
||||
dwReserved0 u32
|
||||
dwReserved1 u32
|
||||
cFileName [260]u16 // MAX_PATH = 260
|
||||
cAlternateFileName [14]u16 // 14
|
||||
dwFileType u32
|
||||
dwCreatorType u32
|
||||
wFinderFlags u16
|
||||
}
|
||||
|
||||
pub fn ls(path string) []string {
|
||||
$if windows {
|
||||
return []string
|
||||
mut find_file_data := win32finddata{}
|
||||
mut dir_files := []string
|
||||
if !dir_exists(path) {
|
||||
println('ls() couldnt open dir "$path" (does not exist).')
|
||||
}
|
||||
// NOTE: Should eventually have path struct & os dependant path seperator (eg os.PATH_SEPERATOR)
|
||||
// we need to add files to path eg. c:\windows\*.dll or :\windows\*
|
||||
path_files := '$path\\*'
|
||||
// NOTE:TODO: once we have a way to convert utf16 wide character to utf8
|
||||
// we should use FindFirstFileW and FindNextFileW
|
||||
h_find_files := C.FindFirstFile(path_files.cstr(), &find_file_data)
|
||||
// If we want to check the handle we can use this, but we already did dir_exists
|
||||
// if (INVALID_HANDLE_VALUE == h_find_files) {
|
||||
// println('ls() couldnt open dir "$path"')
|
||||
// return dir_files
|
||||
// }
|
||||
first_filename := tos(&find_file_data.cFileName, strlen(find_file_data.cFileName))
|
||||
if first_filename != '.' && first_filename != '..' {
|
||||
dir_files << first_filename
|
||||
}
|
||||
for C.FindNextFile(h_find_files, &find_file_data) {
|
||||
filename := tos(&find_file_data.cFileName, strlen(find_file_data.cFileName))
|
||||
if filename != '.' && filename != '..' {
|
||||
dir_files << filename.clone()
|
||||
}
|
||||
}
|
||||
C.FindClose(h_find_files)
|
||||
return dir_files
|
||||
}
|
||||
$else {
|
||||
|
||||
mut res := []string
|
||||
dir := C.opendir(path.str)
|
||||
if isnil(dir) {
|
||||
|
|
Loading…
Reference in New Issue