Win32 Window Test

examples/win32.odin

@@ -0,0 +1,103 @@
+STD_INPUT_HANDLE  :: -10;
+STD_OUTPUT_HANDLE :: -11;
+STD_ERROR_HANDLE  :: -12;
+
+CS_VREDRAW    :: 1;
+CS_HREDRAW    :: 2;
+CW_USEDEFAULT :: 0x80000000;
+
+WS_OVERLAPPED       :: 0;
+WS_MAXIMIZEBOX      :: 0x00010000;
+WS_MINIMIZEBOX      :: 0x00020000;
+WS_THICKFRAME       :: 0x00040000;
+WS_SYSMENU          :: 0x00080000;
+WS_CAPTION          :: 0x00C00000;
+WS_VISIBLE          :: 0x10000000;
+WS_OVERLAPPEDWINDOW :: WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX|WS_MAXIMIZEBOX;
+
+WM_DESTROY :: 0x02;
+WM_CLOSE   :: 0x10;
+WM_QUIT    :: 0x12;
+
+PM_REMOVE :: 1;
+
+COLOR_BACKGROUND : rawptr : 1; // NOTE(bill): cast to HBRUSH when needed
+
+
+type HANDLE: rawptr;
+type HWND: HANDLE;
+type HDC: HANDLE;
+type HINSTANCE: HANDLE;
+type HICON: HANDLE;
+type HCURSOR: HANDLE;
+type HMENU: HANDLE;
+type HBRUSH: HANDLE;
+type WPARAM: uint;
+type LPARAM: int;
+type LRESULT: int;
+type ATOM: i16;
+type POINT: struct { x, y: i32 }
+type BOOL: i32;
+
+type WNDPROC: proc(hwnd: HWND, msg: u32, wparam: WPARAM, lparam: LPARAM) -> LRESULT;
+
+type WNDCLASSEXA: struct {
+	cbSize, style: u32,
+	wndProc: WNDPROC,
+	cbClsExtra, cbWndExtra: i32,
+	hInstance: HINSTANCE,
+	hIcon: HICON,
+	hCursor: HCURSOR,
+	hbrBackground: HBRUSH,
+	menuName, className: ^u8,
+	hIconSm: HICON,
+}
+
+type MSG: struct {
+	hwnd: HWND,
+	message: u32,
+	wparam: WPARAM,
+	lparam: LPARAM,
+	time: u32,
+	pt: POINT,
+}
+
+
+GetStdHandle     :: proc(h: i32) -> HANDLE #foreign
+CloseHandle      :: proc(h: HANDLE) -> i32 #foreign
+WriteFileA       :: proc(h: HANDLE, buf: rawptr, len: i32, written_result: ^i32, overlapped: rawptr) -> i32 #foreign
+GetLastError     :: proc() -> i32 #foreign
+ExitProcess      :: proc(exit_code: u32) #foreign
+GetDesktopWindow :: proc() -> HWND #foreign
+GetCursorPos     :: proc(p: ^POINT) -> i32 #foreign
+ScreenToClient   :: proc(h: HWND, p: ^POINT) -> i32 #foreign
+
+GetModuleHandleA :: proc(module_name: ^u8) -> HINSTANCE #foreign
+
+QueryPerformanceFrequency :: proc(result: ^i64) -> i32 #foreign
+QueryPerformanceCounter   :: proc(result: ^i64) -> i32 #foreign
+
+sleep_ms :: proc(ms: i32) {
+	Sleep :: proc(ms: i32) -> i32 #foreign
+	Sleep(ms);
+}
+
+OutputDebugStringA :: proc(c_str: ^u8) #foreign
+
+
+RegisterClassExA :: proc(wc: ^WNDCLASSEXA) -> ATOM #foreign
+CreateWindowExA  :: proc(ex_style: u32,
+                         class_name, title: ^u8,
+                         style: u32,
+                         x, y, w, h: i32,
+                         parent: HWND, menu: HMENU, instance: HINSTANCE,
+                         param: rawptr) -> HWND #foreign
+
+ShowWindow       :: proc(hwnd: HWND, cmd_show: i32) -> BOOL #foreign
+UpdateWindow     :: proc(hwnd: HWND) -> BOOL #foreign
+PeekMessageA     :: proc(msg: ^MSG, hwnd: HWND,
+                         msg_filter_min, msg_filter_max, remove_msg: u32) -> BOOL #foreign
+TranslateMessage :: proc(msg: ^MSG) -> BOOL #foreign
+DispatchMessageA :: proc(msg: ^MSG) -> LRESULT #foreign
+
+DefWindowProcA   :: proc(hwnd: HWND, msg: u32, wparam: WPARAM, lparam: LPARAM) -> LRESULT #foreign