Add package path/filepath; Add os.stat for windows (TODO: unix)

core/os/dir_windows.odin

@@ -0,0 +1,105 @@
+package os
+
+import win32 "core:sys/windows"
+import "core:strings"
+import "core:time"
+
+read_dir :: proc(fd: Handle, n: int) -> (fi: []File_Info, err: Errno) {
+	find_data_to_file_info :: proc(base_path: string, d: ^win32.WIN32_FIND_DATAW) -> (fi: File_Info) {
+		// Ignore "." and ".."
+		if d.cFileName[0] == '.' && d.cFileName[1] == 0 {
+			return;
+		}
+		if d.cFileName[0] == '.' && d.cFileName[1] == '.' && d.cFileName[2] == 0 {
+			return;
+		}
+		path := strings.concatenate({base_path, `\`, win32.utf16_to_utf8(d.cFileName[:])});
+		fi.fullpath = path;
+		fi.name = basename(path);
+		fi.size = i64(d.nFileSizeHigh)<<32 + i64(d.nFileSizeLow);
+
+		if d.dwFileAttributes & win32.FILE_ATTRIBUTE_READONLY != 0 {
+			fi.mode |= 0o444;
+		} else {
+			fi.mode |= 0o666;
+		}
+
+		is_sym := false;
+		if d.dwFileAttributes & win32.FILE_ATTRIBUTE_REPARSE_Point == 0 {
+			is_sym = false;
+		} else {
+			is_sym = d.dwReserved0 == win32.IO_REPARSE_TAG_SYMLINK || d.dwReserved0 == win32.IO_REPARSE_TAG_MOUNT_POINT;
+		}
+
+		if is_sym {
+			fi.mode |= File_Mode_Sym_Link;
+		} else {
+			if d.dwFileAttributes & win32.FILE_ATTRIBUTE_DIRECTORY != 0 {
+				fi.mode |= 0o111 | File_Mode_Dir;
+			}
+
+			// fi.mode |= file_type_mode(h);
+		}
+
+		fi.creation_time     = time.unix(0, win32.FILETIME_as_unix_nanoseconds(d.ftCreationTime));
+		fi.modification_time = time.unix(0, win32.FILETIME_as_unix_nanoseconds(d.ftLastWriteTime));
+		fi.access_time       = time.unix(0, win32.FILETIME_as_unix_nanoseconds(d.ftLastAccessTime));
+
+		fi.is_dir = fi.mode & File_Mode_Dir != 0;
+		return;
+	}
+
+	if fd == 0 {
+		return nil, ERROR_INVALID_HANDLE;
+	}
+
+	h := win32.HANDLE(fd);
+
+	dir_fi, _ := stat_from_file_information("", h);
+	if !dir_fi.is_dir {
+		return nil, ERROR_FILE_IS_NOT_DIR;
+	}
+
+	n := n;
+	size := n;
+	if n <= 0 {
+		n = -1;
+		size = 100;
+	}
+	dfi := make([dynamic]File_Info, 0, size);
+
+	wpath: []u16;
+	wpath, err = cleanpath_from_handle_u16(fd);
+	if len(wpath) == 0 || err != ERROR_NONE {
+		return;
+	}
+	wpath_search := make([]u16, len(wpath)+3, context.temp_allocator);
+	copy(wpath_search, wpath);
+	wpath_search[len(wpath)+0] = '\\';
+	wpath_search[len(wpath)+1] = '*';
+	wpath_search[len(wpath)+2] = 0;
+
+	path := cleanpath_from_buf(wpath);
+
+	find_data := &win32.WIN32_FIND_DATAW{};
+	find_handle := win32.FindFirstFileW(raw_data(wpath_search), find_data);
+	defer win32.FindClose(find_handle);
+	for n != 0 && find_handle != nil {
+		fi: File_Info;
+		fi = find_data_to_file_info(path, find_data);
+		if fi.name != "" {
+			append(&dfi, fi);
+			n -= 1;
+		}
+
+		if !win32.FindNextFileW(find_handle, find_data) {
+			e := Errno(win32.GetLastError());
+			if e == ERROR_NO_MORE_FILES {
+				break;
+			}
+			return dfi[:], e;
+		}
+	}
+
+	return dfi[:], ERROR_NONE;
+}

core/os/os_windows.odin

@@ -32,10 +32,12 @@ ERROR_FILE_NOT_FOUND:         Errno : 2;
 ERROR_PATH_NOT_FOUND:         Errno : 3;
 ERROR_ACCESS_DENIED:          Errno : 5;
 ERROR_INVALID_HANDLE:         Errno : 6;
+ERROR_NOT_ENOUGH_MEMORY:      Errno : 8;
 ERROR_NO_MORE_FILES:          Errno : 18;
 ERROR_HANDLE_EOF:             Errno : 38;
 ERROR_NETNAME_DELETED:        Errno : 64;
 ERROR_FILE_EXISTS:            Errno : 80;
+ERROR_INVALID_PARAMETER:      Errno : 87;
 ERROR_BROKEN_PIPE:            Errno : 109;
 ERROR_BUFFER_OVERFLOW:        Errno : 111;
 ERROR_INSUFFICIENT_BUFFER:    Errno : 122;
@@ -106,7 +108,7 @@ open :: proc(path: string, mode: int = O_RDONLY, perm: int = 0) -> (Handle, Errn
 		create_mode = win32.OPEN_EXISTING;
 	}
 	wide_path := win32.utf8_to_wstring(path);
-	handle := Handle(win32.CreateFileW(auto_cast wide_path, access, share_mode, sa, create_mode, win32.FILE_ATTRIBUTE_NORMAL, nil));
+	handle := Handle(win32.CreateFileW(auto_cast wide_path, access, share_mode, sa, create_mode, win32.FILE_ATTRIBUTE_NORMAL|win32.FILE_FLAG_BACKUP_SEMANTICS, nil));
 	if handle != INVALID_HANDLE {
 		return handle, ERROR_NONE;
 	}

core/os/stat.odin

@@ -0,0 +1,27 @@
+package os
+
+import "core:time"
+
+
+File_Info :: struct {
+	fullpath: string,
+	name:     string,
+	size:     i64,
+	mode:     File_Mode,
+	is_dir:   bool,
+	creation_time:     time.Time,
+	modification_time: time.Time,
+	access_time:       time.Time,
+}
+
+file_info_delete :: proc(fi: File_Info) {
+	delete(fi.fullpath);
+}
+
+File_Mode :: distinct u32;
+
+File_Mode_Dir         :: File_Mode(1<<16);
+File_Mode_Named_Pipe  :: File_Mode(1<<17);
+File_Mode_Device      :: File_Mode(1<<18);
+File_Mode_Char_Device :: File_Mode(1<<19);
+File_Mode_Sym_Link    :: File_Mode(1<<20);

core/os/stat_windows.odin

@@ -0,0 +1,197 @@
+package os
+
+import "core:time"
+import win32 "core:sys/windows"
+import "core:runtime"
+import "core:strings"
+
+stat :: proc(fd: Handle) -> (File_Info, Errno) {
+	if fd == 0 {
+		return {}, ERROR_INVALID_HANDLE;
+	}
+	path, err := cleanpath_from_handle(fd);
+	if err != ERROR_NONE {
+		return {}, err;
+	}
+
+	h := win32.HANDLE(fd);
+	switch win32.GetFileType(h) {
+	case win32.FILE_TYPE_PIPE, win32.FILE_TYPE_CHAR:
+		fi: File_Info;
+		fi.fullpath = path;
+		fi.name = basename(path);
+		fi.mode |= file_type_mode(h);
+		return fi, ERROR_NONE;
+	}
+
+	return stat_from_file_information(path, h);
+}
+
+
+@(private)
+cleanpath_strip_prefix :: proc(buf: []u16) -> []u16 {
+	buf := buf;
+	N := 0;
+	for c, i in buf {
+		if c == 0 { break; }
+		N = i+1;
+	}
+	buf = buf[:N];
+
+	if len(buf) >= 4 {
+		if buf[0] == '\\'
+		&& buf[1] == '\\'
+		&& buf[2] == '?'
+		&& buf[3] == '\\' {
+			buf = buf[4:];
+		}
+	}
+	return buf;
+}
+
+@(private)
+cleanpath_from_handle :: proc(fd: Handle) -> (string, Errno) {
+	if fd == 0 {
+		return "", ERROR_INVALID_HANDLE;
+	}
+	h := win32.HANDLE(fd);
+
+	MAX_PATH := win32.DWORD(260) + 1;
+	buf: []u16;
+	for {
+		buf = make([]u16, MAX_PATH, context.temp_allocator);
+		err := win32.GetFinalPathNameByHandleW(h, raw_data(buf), MAX_PATH, 0);
+		switch Errno(err) {
+		case ERROR_PATH_NOT_FOUND, ERROR_INVALID_PARAMETER:
+			return "", Errno(err);
+		case ERROR_NOT_ENOUGH_MEMORY:
+			MAX_PATH = MAX_PATH*2 + 1;
+			continue;
+		}
+		break;
+	}
+	return cleanpath_from_buf(buf), ERROR_NONE;
+}
+@(private)
+cleanpath_from_handle_u16 :: proc(fd: Handle) -> ([]u16, Errno) {
+	if fd == 0 {
+		return nil, ERROR_INVALID_HANDLE;
+	}
+	h := win32.HANDLE(fd);
+
+	MAX_PATH := win32.DWORD(260) + 1;
+	buf: []u16;
+	for {
+		buf = make([]u16, MAX_PATH, context.temp_allocator);
+		err := win32.GetFinalPathNameByHandleW(h, raw_data(buf), MAX_PATH, 0);
+		switch Errno(err) {
+		case ERROR_PATH_NOT_FOUND, ERROR_INVALID_PARAMETER:
+			return nil, Errno(err);
+		case ERROR_NOT_ENOUGH_MEMORY:
+			MAX_PATH = MAX_PATH*2 + 1;
+			continue;
+		}
+		break;
+	}
+	return cleanpath_strip_prefix(buf), ERROR_NONE;
+}
+@(private)
+cleanpath_from_buf :: proc(buf: []u16) -> string {
+	buf := buf;
+	buf = cleanpath_strip_prefix(buf);
+	return win32.utf16_to_utf8(buf, context.allocator);
+}
+
+@(private)
+basename :: proc(name: string) -> (base: string) {
+	name := name;
+	if len(name) > 3 && name[:3] == `\\?` {
+		name = name[3:];
+	}
+
+	if len(name) == 2 && name[1] == ':' {
+		return ".";
+	} else if len(name) > 2 && name[1] == ':' {
+		name = name[2:];
+	}
+	i := len(name)-1;
+
+	for ; i > 0 && (name[i] == '/' || name[i] == '\\'); i -= 1 {
+		name = name[:i];
+	}
+	for i -= 1; i >= 0; i -= 1 {
+		if name[i] == '/' || name[i] == '\\' {
+			name = name[i+1:];
+			break;
+		}
+	}
+	return name;
+}
+
+@(private)
+file_type_mode :: proc(h: win32.HANDLE) -> File_Mode {
+	switch win32.GetFileType(h) {
+	case win32.FILE_TYPE_PIPE:
+		return File_Mode_Named_Pipe;
+	case win32.FILE_TYPE_CHAR:
+		return File_Mode_Device | File_Mode_Char_Device;
+	}
+	return 0;
+}
+
+@(private)
+stat_from_file_information :: proc(path: string, h: win32.HANDLE) -> (File_Info, Errno) {
+	d: win32.BY_HANDLE_FILE_INFORMATION;
+	if !win32.GetFileInformationByHandle(h, &d) {
+		err := Errno(win32.GetLastError());
+		return {}, err;
+
+	}
+
+	ti: win32.FILE_ATTRIBUTE_TAG_INFO;
+	if !win32.GetFileInformationByHandleEx(h, .FileAttributeTagInfo, &ti, size_of(ti)) {
+		err := win32.GetLastError();
+		if err != u32(ERROR_INVALID_PARAMETER) {
+			return {}, Errno(err);
+		}
+		// Indicate this is a symlink on FAT file systems
+		ti.ReparseTag = 0;
+	}
+
+	fi: File_Info;
+
+	fi.fullpath = path;
+	fi.name = basename(path);
+	fi.size = i64(d.nFileSizeHigh)<<32 + i64(d.nFileSizeLow);
+
+	if ti.FileAttributes & win32.FILE_ATTRIBUTE_READONLY != 0 {
+		fi.mode |= 0o444;
+	} else {
+		fi.mode |= 0o666;
+	}
+
+	is_sym := false;
+	if ti.FileAttributes & win32.FILE_ATTRIBUTE_REPARSE_Point == 0 {
+		is_sym = false;
+	} else {
+		is_sym = ti.ReparseTag == win32.IO_REPARSE_TAG_SYMLINK || ti.ReparseTag == win32.IO_REPARSE_TAG_MOUNT_POINT;
+	}
+
+	if is_sym {
+		fi.mode |= File_Mode_Sym_Link;
+	} else {
+		if ti.FileAttributes & win32.FILE_ATTRIBUTE_DIRECTORY != 0 {
+			fi.mode |= 0o111 | File_Mode_Dir;
+		}
+
+		fi.mode |= file_type_mode(h);
+	}
+
+	fi.creation_time     = time.unix(0, win32.FILETIME_as_unix_nanoseconds(d.ftCreationTime));
+	fi.modification_time = time.unix(0, win32.FILETIME_as_unix_nanoseconds(d.ftLastWriteTime));
+	fi.access_time       = time.unix(0, win32.FILETIME_as_unix_nanoseconds(d.ftLastAccessTime));
+
+	fi.is_dir = fi.mode & File_Mode_Dir != 0;
+
+	return fi, ERROR_NONE;
+}