aboutsummaryrefslogtreecommitdiff
path: root/core/sys
diff options
context:
space:
mode:
authorgingerBill <bill@gingerbill.org>2019-01-02 19:17:27 +0000
committergingerBill <bill@gingerbill.org>2019-01-02 19:17:27 +0000
commit61a3e50d1bd5d51105d36b74600a049af0d76add (patch)
tree1baf4daa2fca1d0e9d6bf5cefc81550513c502b1 /core/sys
parent75aeb02c395e3689237ff62fdf99f02c606242fd (diff)
Reorganize sys/win32
Diffstat (limited to 'core/sys')
-rw-r--r--core/sys/win32/gdi32.odin23
-rw-r--r--core/sys/win32/general.odin1019
-rw-r--r--core/sys/win32/kernel32.odin169
-rw-r--r--core/sys/win32/ole32.odin18
-rw-r--r--core/sys/win32/shell32.odin9
-rw-r--r--core/sys/win32/user32.odin235
-rw-r--r--core/sys/win32/windows.odin1462
-rw-r--r--core/sys/win32/winmm.odin10
8 files changed, 1483 insertions, 1462 deletions
diff --git a/core/sys/win32/gdi32.odin b/core/sys/win32/gdi32.odin
new file mode 100644
index 000000000..03c77c0e6
--- /dev/null
+++ b/core/sys/win32/gdi32.odin
@@ -0,0 +1,23 @@
+// +build windows
+package win32
+
+foreign import "system:gdi32.lib"
+
+
+@(default_calling_convention = "std")
+foreign gdi32 {
+ @(link_name="GetStockObject") get_stock_object :: proc(fn_object: i32) -> Hgdiobj ---;
+
+ @(link_name="StretchDIBits")
+ stretch_dibits :: proc(hdc: Hdc,
+ x_dst, y_dst, width_dst, height_dst: i32,
+ x_src, y_src, width_src, header_src: i32,
+ bits: rawptr, bits_info: ^Bitmap_Info,
+ usage: u32,
+ rop: u32) -> i32 ---;
+
+ @(link_name="SetPixelFormat") set_pixel_format :: proc(hdc: Hdc, pixel_format: i32, pfd: ^Pixel_Format_Descriptor) -> Bool ---;
+ @(link_name="ChoosePixelFormat") choose_pixel_format :: proc(hdc: Hdc, pfd: ^Pixel_Format_Descriptor) -> i32 ---;
+ @(link_name="SwapBuffers") swap_buffers :: proc(hdc: Hdc) -> Bool ---;
+
+}
diff --git a/core/sys/win32/general.odin b/core/sys/win32/general.odin
new file mode 100644
index 000000000..7a1841e61
--- /dev/null
+++ b/core/sys/win32/general.odin
@@ -0,0 +1,1019 @@
+// +build windows
+package win32
+
+Handle :: distinct rawptr;
+Hwnd :: distinct Handle;
+Hdc :: distinct Handle;
+Hinstance :: distinct Handle;
+Hicon :: distinct Handle;
+Hcursor :: distinct Handle;
+Hmenu :: distinct Handle;
+Hbitmap :: distinct Handle;
+Hbrush :: distinct Handle;
+Hgdiobj :: distinct Handle;
+Hmodule :: distinct Handle;
+Hmonitor :: distinct Handle;
+Hrawinput :: distinct Handle;
+Hresult :: distinct i32;
+HKL :: distinct Handle;
+Wparam :: distinct uint;
+Lparam :: distinct int;
+Lresult :: distinct int;
+Wnd_Proc :: distinct #type proc "c" (Hwnd, u32, Wparam, Lparam) -> Lresult;
+Monitor_Enum_Proc :: distinct #type proc "std" (Hmonitor, Hdc, ^Rect, Lparam) -> bool;
+
+Uint_Ptr :: distinct uint;
+Long_Ptr :: distinct int;
+
+Bool :: distinct b32;
+
+Wstring :: ^u16;
+
+Point :: struct {
+ x, y: i32,
+}
+
+Wnd_Class_Ex_A :: struct {
+ size, style: u32,
+ wnd_proc: Wnd_Proc,
+ cls_extra, wnd_extra: i32,
+ instance: Hinstance,
+ icon: Hicon,
+ cursor: Hcursor,
+ background: Hbrush,
+ menu_name, class_name: cstring,
+ sm: Hicon,
+}
+
+Wnd_Class_Ex_W :: struct {
+ size, style: u32,
+ wnd_proc: Wnd_Proc,
+ cls_extra, wnd_extra: i32,
+ instance: Hinstance,
+ icon: Hicon,
+ cursor: Hcursor,
+ background: Hbrush,
+ menu_name, class_name: Wstring,
+ sm: Hicon,
+}
+
+
+Msg :: struct {
+ hwnd: Hwnd,
+ message: u32,
+ wparam: Wparam,
+ lparam: Lparam,
+ time: u32,
+ pt: Point,
+}
+
+Rect :: struct {
+ left: i32,
+ top: i32,
+ right: i32,
+ bottom: i32,
+}
+
+Filetime :: struct {
+ lo, hi: u32,
+}
+
+Systemtime :: struct {
+ year, month: u16,
+ day_of_week, day: u16,
+ hour, minute, second, millisecond: u16,
+}
+
+By_Handle_File_Information :: struct {
+ file_attributes: u32,
+ creation_time,
+ last_access_time,
+ last_write_time: Filetime,
+ volume_serial_number,
+ file_size_high,
+ file_size_low,
+ number_of_links,
+ file_index_high,
+ file_index_low: u32,
+}
+
+File_Attribute_Data :: struct {
+ file_attributes: u32,
+ creation_time,
+ last_access_time,
+ last_write_time: Filetime,
+ file_size_high,
+ file_size_low: u32,
+}
+
+Find_Data_W :: struct{
+ file_attributes: u32,
+ creation_time: Filetime,
+ last_access_time: Filetime,
+ last_write_time: Filetime,
+ file_size_high: u32,
+ file_size_low: u32,
+ reserved0: u32,
+ reserved1: u32,
+ file_name: [MAX_PATH]u16,
+ alternate_file_name: [14]u16,
+}
+
+Find_Data_A :: struct{
+ file_attributes: u32,
+ creation_time: Filetime,
+ last_access_time: Filetime,
+ last_write_time: Filetime,
+ file_size_high: u32,
+ file_size_low: u32,
+ reserved0: u32,
+ reserved1: u32,
+ file_name: [MAX_PATH]byte,
+ alternate_file_name: [14]byte,
+}
+
+Security_Attributes :: struct {
+ length: u32,
+ security_descriptor: rawptr,
+ inherit_handle: Bool,
+}
+
+Process_Information :: struct {
+ process: Handle,
+ thread: Handle,
+ process_id: u32,
+ thread_id: u32
+}
+
+Startup_Info :: struct {
+ cb: u32,
+ reserved: Wstring,
+ desktop: Wstring,
+ title: Wstring,
+ x: u32,
+ y: u32,
+ x_size: u32,
+ y_size: u32,
+ x_count_chars: u32,
+ y_count_chars: u32,
+ fill_attribute: u32,
+ flags: u32,
+ show_window: u16,
+ _: u16,
+ _: cstring,
+ stdin: Handle,
+ stdout: Handle,
+ stderr: Handle,
+}
+
+Pixel_Format_Descriptor :: struct {
+ size,
+ version,
+ flags: u32,
+
+ pixel_type,
+ color_bits,
+ red_bits,
+ red_shift,
+ green_bits,
+ green_shift,
+ blue_bits,
+ blue_shift,
+ alpha_bits,
+ alpha_shift,
+ accum_bits,
+ accum_red_bits,
+ accum_green_bits,
+ accum_blue_bits,
+ accum_alpha_bits,
+ depth_bits,
+ stencil_bits,
+ aux_buffers,
+ layer_type,
+ reserved: byte,
+
+ layer_mask,
+ visible_mask,
+ damage_mask: u32,
+}
+
+Critical_Section :: struct {
+ debug_info: ^Critical_Section_Debug,
+
+ lock_count: i32,
+ recursion_count: i32,
+ owning_thread: Handle,
+ lock_semaphore: Handle,
+ spin_count: ^u32,
+}
+
+Critical_Section_Debug :: struct {
+ typ: u16,
+ creator_back_trace_index: u16,
+ critical_section: ^Critical_Section,
+ process_locks_list: ^List_Entry,
+ entry_count: u32,
+ contention_count: u32,
+ flags: u32,
+ creator_back_trace_index_high: u16,
+ spare_word: u16,
+}
+
+List_Entry :: struct {flink, blink: ^List_Entry};
+
+
+Raw_Input_Device :: struct {
+ usage_page: u16,
+ usage: u16,
+ flags: u32,
+ wnd_target: Hwnd,
+}
+
+Raw_Input_Header :: struct {
+ kind: u32,
+ size: u32,
+ device: Handle,
+ wparam: Wparam,
+}
+
+Raw_HID :: struct {
+ size_hid: u32,
+ count: u32,
+ raw_data: [1]byte,
+}
+
+Raw_Keyboard :: struct {
+ make_code: u16,
+ flags: u16,
+ reserved: u16,
+ vkey: u16,
+ message: u32,
+ extra_information: u32,
+}
+
+Raw_Mouse :: struct {
+ flags: u16,
+ using data: struct #raw_union {
+ buttons: u32,
+ using _: struct {
+ button_flags: u16,
+ button_data: u16,
+ },
+ },
+ raw_buttons: u32,
+ last_x: i32,
+ last_y: i32,
+ extra_information: u32,
+}
+
+Raw_Input :: struct {
+ using header: Raw_Input_Header,
+ data: struct #raw_union {
+ mouse: Raw_Mouse,
+ keyboard: Raw_Keyboard,
+ hid: Raw_HID,
+ },
+}
+
+
+Overlapped :: struct {
+ internal: ^u64,
+ internal_high: ^u64,
+ using _: struct #raw_union {
+ using _: struct {
+ offset: u32,
+ offset_high: u32,
+ },
+ pointer: rawptr,
+ },
+ event: Handle,
+}
+
+File_Notify_Information :: struct {
+ next_entry_offset: u32,
+ action: u32,
+ file_name_length: u32,
+ file_name: [1]u16,
+}
+
+MAPVK_VK_TO_VSC :: 0;
+MAPVK_VSC_TO_VK :: 1;
+MAPVK_VK_TO_CHAR :: 2;
+MAPVK_VSC_TO_VK_EX :: 3;
+
+//WinUser.h
+VK_LBUTTON :: 0x01;
+VK_RBUTTON :: 0x02;
+VK_CANCEL :: 0x03;
+VK_MBUTTON :: 0x04; /* NOT contiguous with L & RBUTTON */
+VK_XBUTTON1 :: 0x05; /* NOT contiguous with L & RBUTTON */
+VK_XBUTTON2 :: 0x06; /* NOT contiguous with L & RBUTTON */
+
+/*
+ * :: 0x07 : reserved
+ */
+
+VK_BACK :: 0x08;
+VK_TAB :: 0x09;
+
+/*
+ * :: 0x0A - :: 0x0B : reserved
+ */
+
+VK_CLEAR :: 0x0C;
+VK_RETURN :: 0x0D;
+
+/*
+ * :: 0x0E - :: 0x0F : unassigned
+ */
+
+VK_SHIFT :: 0x10;
+VK_CONTROL :: 0x11;
+VK_MENU :: 0x12;
+VK_PAUSE :: 0x13;
+VK_CAPITAL :: 0x14;
+
+VK_KANA :: 0x15;
+VK_HANGEUL :: 0x15; /* old name - should be here for compatibility */
+VK_HANGUL :: 0x15;
+
+/*
+ * :: 0x16 : unassigned
+ */
+
+VK_JUNJA :: 0x17;
+VK_FINAL :: 0x18;
+VK_HANJA :: 0x19;
+VK_KANJI :: 0x19;
+
+/*
+ * :: 0x1A : unassigned
+ */
+
+VK_ESCAPE :: 0x1B;
+
+VK_CONVERT :: 0x1C;
+VK_NONCONVERT :: 0x1D;
+VK_ACCEPT :: 0x1E;
+VK_MODECHANGE :: 0x1F;
+
+VK_SPACE :: 0x20;
+VK_PRIOR :: 0x21;
+VK_NEXT :: 0x22;
+VK_END :: 0x23;
+VK_HOME :: 0x24;
+VK_LEFT :: 0x25;
+VK_UP :: 0x26;
+VK_RIGHT :: 0x27;
+VK_DOWN :: 0x28;
+VK_SELECT :: 0x29;
+VK_PRINT :: 0x2A;
+VK_EXECUTE :: 0x2B;
+VK_SNAPSHOT :: 0x2C;
+VK_INSERT :: 0x2D;
+VK_DELETE :: 0x2E;
+VK_HELP :: 0x2F;
+
+/*
+ * VK_0 - VK_9 are the same as ASCII '0' - '9' (:: 0x30 - :: 0x39)
+ * :: 0x3A - :: 0x40 : unassigned
+ * VK_A - VK_Z are the same as ASCII 'A' - 'Z' (:: 0x41 - :: 0x5A)
+ */
+
+VK_LWIN :: 0x5B;
+VK_RWIN :: 0x5C;
+VK_APPS :: 0x5D;
+
+/*
+ * :: 0x5E : reserved
+ */
+
+VK_SLEEP :: 0x5F;
+
+VK_NUMPAD0 :: 0x60;
+VK_NUMPAD1 :: 0x61;
+VK_NUMPAD2 :: 0x62;
+VK_NUMPAD3 :: 0x63;
+VK_NUMPAD4 :: 0x64;
+VK_NUMPAD5 :: 0x65;
+VK_NUMPAD6 :: 0x66;
+VK_NUMPAD7 :: 0x67;
+VK_NUMPAD8 :: 0x68;
+VK_NUMPAD9 :: 0x69;
+VK_MULTIPLY :: 0x6A;
+VK_ADD :: 0x6B;
+VK_SEPARATOR :: 0x6C;
+VK_SUBTRACT :: 0x6D;
+VK_DECIMAL :: 0x6E;
+VK_DIVIDE :: 0x6F;
+VK_F1 :: 0x70;
+VK_F2 :: 0x71;
+VK_F3 :: 0x72;
+VK_F4 :: 0x73;
+VK_F5 :: 0x74;
+VK_F6 :: 0x75;
+VK_F7 :: 0x76;
+VK_F8 :: 0x77;
+VK_F9 :: 0x78;
+VK_F10 :: 0x79;
+VK_F11 :: 0x7A;
+VK_F12 :: 0x7B;
+VK_F13 :: 0x7C;
+VK_F14 :: 0x7D;
+VK_F15 :: 0x7E;
+VK_F16 :: 0x7F;
+VK_F17 :: 0x80;
+VK_F18 :: 0x81;
+VK_F19 :: 0x82;
+VK_F20 :: 0x83;
+VK_F21 :: 0x84;
+VK_F22 :: 0x85;
+VK_F23 :: 0x86;
+VK_F24 :: 0x87;
+
+INVALID_HANDLE :: Handle(~uintptr(0));
+
+CREATE_SUSPENDED :: 0x00000004;
+STACK_SIZE_PARAM_IS_A_RESERVATION :: 0x00010000;
+WAIT_ABANDONED :: 0x00000080;
+WAIT_OBJECT_0 :: 0;
+WAIT_TIMEOUT :: 0x00000102;
+WAIT_FAILED :: 0xffffffff;
+
+CS_VREDRAW :: 0x0001;
+CS_HREDRAW :: 0x0002;
+CS_OWNDC :: 0x0020;
+CW_USEDEFAULT :: -0x80000000;
+
+WS_OVERLAPPED :: 0;
+WS_MAXIMIZEBOX :: 0x00010000;
+WS_MINIMIZEBOX :: 0x00020000;
+WS_THICKFRAME :: 0x00040000;
+WS_SYSMENU :: 0x00080000;
+WS_BORDER :: 0x00800000;
+WS_CAPTION :: 0x00C00000;
+WS_VISIBLE :: 0x10000000;
+WS_POPUP :: 0x80000000;
+WS_MAXIMIZE :: 0x01000000;
+WS_MINIMIZE :: 0x20000000;
+WS_OVERLAPPEDWINDOW :: WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX|WS_MAXIMIZEBOX;
+WS_POPUPWINDOW :: WS_POPUP | WS_BORDER | WS_SYSMENU;
+
+WS_EX_DLGMODALFRAME :: 0x00000001;
+WS_EX_NOPARENTNOTIFY :: 0x00000004;
+WS_EX_TOPMOST :: 0x00000008;
+WS_EX_ACCEPTFILES :: 0x00000010;
+WS_EX_TRANSPARENT :: 0x00000020;
+WS_EX_MDICHILD :: 0x00000040;
+WS_EX_TOOLWINDOW :: 0x00000080;
+WS_EX_WINDOWEDGE :: 0x00000100;
+WS_EX_CLIENTEDGE :: 0x00000200;
+WS_EX_CONTEXTHELP :: 0x00000400;
+WS_EX_RIGHT :: 0x00001000;
+WS_EX_LEFT :: 0x00000000;
+WS_EX_RTLREADING :: 0x00002000;
+WS_EX_LTRREADING :: 0x00000000;
+WS_EX_LEFTSCROLLBAR :: 0x00004000;
+WS_EX_RIGHTSCROLLBAR :: 0x00000000;
+WS_EX_CONTROLPARENT :: 0x00010000;
+WS_EX_STATICEDGE :: 0x00020000;
+WS_EX_APPWINDOW :: 0x00040000;
+WS_EX_OVERLAPPEDWINDOW :: WS_EX_WINDOWEDGE | WS_EX_CLIENTEDGE;
+WS_EX_PALETTEWINDOW :: WS_EX_WINDOWEDGE | WS_EX_TOOLWINDOW | WS_EX_TOPMOST;
+WS_EX_LAYERED :: 0x00080000;
+WS_EX_NOINHERITLAYOUT :: 0x00100000; // Disable inheritence of mirroring by children
+WS_EX_NOREDIRECTIONBITMAP :: 0x00200000;
+WS_EX_LAYOUTRTL :: 0x00400000; // Right to left mirroring
+WS_EX_COMPOSITED :: 0x02000000;
+WS_EX_NOACTIVATE :: 0x08000000;
+
+WM_ACTIVATE :: 0x0006;
+WM_ACTIVATEAPP :: 0x001C;
+WM_CHAR :: 0x0102;
+WM_CLOSE :: 0x0010;
+WM_CREATE :: 0x0001;
+WM_DESTROY :: 0x0002;
+WM_INPUT :: 0x00ff;
+WM_KEYDOWN :: 0x0100;
+WM_KEYUP :: 0x0101;
+WM_KILLFOCUS :: 0x0008;
+WM_QUIT :: 0x0012;
+WM_SETCURSOR :: 0x0020;
+WM_SETFOCUS :: 0x0007;
+WM_SIZE :: 0x0005;
+WM_SIZING :: 0x0214;
+WM_SYSKEYDOWN :: 0x0104;
+WM_SYSKEYUP :: 0x0105;
+WM_USER :: 0x0400;
+WM_WINDOWPOSCHANGED :: 0x0047;
+WM_COMMAND :: 0x0111;
+
+WM_MOUSEWHEEL :: 0x020A;
+WM_MOUSEMOVE :: 0x0200;
+WM_LBUTTONDOWN :: 0x0201;
+WM_LBUTTONUP :: 0x0202;
+WM_LBUTTONDBLCLK :: 0x0203;
+WM_RBUTTONDOWN :: 0x0204;
+WM_RBUTTONUP :: 0x0205;
+WM_RBUTTONDBLCLK :: 0x0206;
+WM_MBUTTONDOWN :: 0x0207;
+WM_MBUTTONUP :: 0x0208;
+WM_MBUTTONDBLCLK :: 0x0209;
+
+PM_NOREMOVE :: 0x0000;
+PM_REMOVE :: 0x0001;
+PM_NOYIELD :: 0x0002;
+
+BLACK_BRUSH :: 4;
+
+SM_CXSCREEN :: 0;
+SM_CYSCREEN :: 1;
+
+SW_SHOW :: 5;
+
+COLOR_BACKGROUND :: Hbrush(uintptr(1));
+
+INVALID_SET_FILE_POINTER :: ~u32(0);
+HEAP_ZERO_MEMORY :: 0x00000008;
+INFINITE :: 0xffffffff;
+GWL_EXSTYLE :: -20;
+GWLP_HINSTANCE :: -6;
+GWLP_ID :: -12;
+GWL_STYLE :: -16;
+GWLP_USERDATA :: -21;
+GWLP_WNDPROC :: -4;
+Hwnd_TOP :: Hwnd(uintptr(0));
+
+BI_RGB :: 0;
+DIB_RGB_COLORS :: 0x00;
+SRCCOPY: u32 : 0x00cc0020;
+
+
+MONITOR_DEFAULTTONULL :: 0x00000000;
+MONITOR_DEFAULTTOPRIMARY :: 0x00000001;
+MONITOR_DEFAULTTONEAREST :: 0x00000002;
+
+SWP_FRAMECHANGED :: 0x0020;
+SWP_NOOWNERZORDER :: 0x0200;
+SWP_NOZORDER :: 0x0004;
+SWP_NOSIZE :: 0x0001;
+SWP_NOMOVE :: 0x0002;
+
+
+// Raw Input
+
+
+RID_HEADER :: 0x10000005;
+RID_INPUT :: 0x10000003;
+
+
+RIDEV_APPKEYS :: 0x00000400;
+RIDEV_CAPTUREMOUSE :: 0x00000200;
+RIDEV_DEVNOTIFY :: 0x00002000;
+RIDEV_EXCLUDE :: 0x00000010;
+RIDEV_EXINPUTSINK :: 0x00001000;
+RIDEV_INPUTSINK :: 0x00000100;
+RIDEV_NOHOTKEYS :: 0x00000200;
+RIDEV_NOLEGACY :: 0x00000030;
+RIDEV_PAGEONLY :: 0x00000020;
+RIDEV_REMOVE :: 0x00000001;
+
+
+RIM_TYPEMOUSE :: 0;
+RIM_TYPEKEYBOARD :: 1;
+RIM_TYPEHID :: 2;
+
+
+MOUSE_ATTRIBUTES_CHANGED :: 0x04;
+MOUSE_MOVE_RELATIVE :: 0;
+MOUSE_MOVE_ABSOLUTE :: 1;
+MOUSE_VIRTUAL_DESKTOP :: 0x02;
+
+
+
+RI_MOUSE_BUTTON_1_DOWN :: 0x0001;
+RI_MOUSE_BUTTON_1_UP :: 0x0002;
+RI_MOUSE_BUTTON_2_DOWN :: 0x0004;
+RI_MOUSE_BUTTON_2_UP :: 0x0008;
+RI_MOUSE_BUTTON_3_DOWN :: 0x0010;
+RI_MOUSE_BUTTON_3_UP :: 0x0020;
+RI_MOUSE_BUTTON_4_DOWN :: 0x0040;
+RI_MOUSE_BUTTON_4_UP :: 0x0080;
+RI_MOUSE_BUTTON_5_DOWN :: 0x0100;
+RI_MOUSE_BUTTON_5_UP :: 0x0200;
+RI_MOUSE_LEFT_BUTTON_DOWN :: 0x0001;
+RI_MOUSE_LEFT_BUTTON_UP :: 0x0002;
+RI_MOUSE_MIDDLE_BUTTON_DOWN :: 0x0010;
+RI_MOUSE_MIDDLE_BUTTON_UP :: 0x0020;
+RI_MOUSE_RIGHT_BUTTON_DOWN :: 0x0004;
+RI_MOUSE_RIGHT_BUTTON_UP :: 0x0008;
+RI_MOUSE_WHEEL :: 0x0400;
+
+
+RI_KEY_MAKE :: 0x00;
+RI_KEY_BREAK :: 0x01;
+RI_KEY_E0 :: 0x02;
+RI_KEY_E1 :: 0x04;
+RI_KEY_TERMSRV_SET_LED :: 0x08;
+RI_KEY_TERMSRV_SHADOW :: 0x10;
+
+// Windows OpenGL
+
+PFD_TYPE_RGBA :: 0;
+PFD_TYPE_COLORINDEX :: 1;
+PFD_MAIN_PLANE :: 0;
+PFD_OVERLAY_PLANE :: 1;
+PFD_UNDERLAY_PLANE :: -1;
+PFD_DOUBLEBUFFER :: 1;
+PFD_STEREO :: 2;
+PFD_DRAW_TO_WINDOW :: 4;
+PFD_DRAW_TO_BITMAP :: 8;
+PFD_SUPPORT_GDI :: 16;
+PFD_SUPPORT_OPENGL :: 32;
+PFD_GENERIC_FORMAT :: 64;
+PFD_NEED_PALETTE :: 128;
+PFD_NEED_SYSTEM_PALETTE :: 0x00000100;
+PFD_SWAP_EXCHANGE :: 0x00000200;
+PFD_SWAP_COPY :: 0x00000400;
+PFD_SWAP_LAYER_BUFFERS :: 0x00000800;
+PFD_GENERIC_ACCELERATED :: 0x00001000;
+PFD_DEPTH_DONTCARE :: 0x20000000;
+PFD_DOUBLEBUFFER_DONTCARE :: 0x40000000;
+PFD_STEREO_DONTCARE :: 0x80000000;
+
+GET_FILEEX_INFO_LEVELS :: distinct i32;
+GetFileExInfoStandard: GET_FILEEX_INFO_LEVELS : 0;
+GetFileExMaxInfoLevel: GET_FILEEX_INFO_LEVELS : 1;
+
+STARTF_USESHOWWINDOW :: 0x00000001;
+STARTF_USESIZE :: 0x00000002;
+STARTF_USEPOSITION :: 0x00000004;
+STARTF_USECOUNTCHARS :: 0x00000008;
+STARTF_USEFILLATTRIBUTE :: 0x00000010;
+STARTF_RUNFULLSCREEN :: 0x00000020; // ignored for non-x86 platforms
+STARTF_FORCEONFEEDBACK :: 0x00000040;
+STARTF_FORCEOFFFEEDBACK :: 0x00000080;
+STARTF_USESTDHANDLES :: 0x00000100;
+STARTF_USEHOTKEY :: 0x00000200;
+STARTF_TITLEISLINKNAME :: 0x00000800;
+STARTF_TITLEISAPPID :: 0x00001000;
+STARTF_PREVENTPINNING :: 0x00002000;
+STARTF_UNTRUSTEDSOURCE :: 0x00008000;
+
+
+MOVEFILE_REPLACE_EXISTING :: 0x00000001;
+MOVEFILE_COPY_ALLOWED :: 0x00000002;
+MOVEFILE_DELAY_UNTIL_REBOOT :: 0x00000004;
+MOVEFILE_WRITE_THROUGH :: 0x00000008;
+MOVEFILE_CREATE_HARDLINK :: 0x00000010;
+MOVEFILE_FAIL_IF_NOT_TRACKABLE :: 0x00000020;
+
+FILE_NOTIFY_CHANGE_FILE_NAME :: 0x00000001;
+FILE_NOTIFY_CHANGE_DIR_NAME :: 0x00000002;
+FILE_NOTIFY_CHANGE_ATTRIBUTES :: 0x00000004;
+FILE_NOTIFY_CHANGE_SIZE :: 0x00000008;
+FILE_NOTIFY_CHANGE_LAST_WRITE :: 0x00000010;
+FILE_NOTIFY_CHANGE_LAST_ACCESS :: 0x00000020;
+FILE_NOTIFY_CHANGE_CREATION :: 0x00000040;
+FILE_NOTIFY_CHANGE_SECURITY :: 0x00000100;
+
+FILE_FLAG_WRITE_THROUGH :: 0x80000000;
+FILE_FLAG_OVERLAPPED :: 0x40000000;
+FILE_FLAG_NO_BUFFERING :: 0x20000000;
+FILE_FLAG_RANDOM_ACCESS :: 0x10000000;
+FILE_FLAG_SEQUENTIAL_SCAN :: 0x08000000;
+FILE_FLAG_DELETE_ON_CLOSE :: 0x04000000;
+FILE_FLAG_BACKUP_SEMANTICS :: 0x02000000;
+FILE_FLAG_POSIX_SEMANTICS :: 0x01000000;
+FILE_FLAG_SESSION_AWARE :: 0x00800000;
+FILE_FLAG_OPEN_REPARSE_POINT :: 0x00200000;
+FILE_FLAG_OPEN_NO_RECALL :: 0x00100000;
+FILE_FLAG_FIRST_PIPE_INSTANCE :: 0x00080000;
+
+FILE_ACTION_ADDED :: 0x00000001;
+FILE_ACTION_REMOVED :: 0x00000002;
+FILE_ACTION_MODIFIED :: 0x00000003;
+FILE_ACTION_RENAMED_OLD_NAME :: 0x00000004;
+FILE_ACTION_RENAMED_NEW_NAME :: 0x00000005;
+
+CP_ACP :: 0; // default to ANSI code page
+CP_OEMCP :: 1; // default to OEM code page
+CP_MACCP :: 2; // default to MAC code page
+CP_THREAD_ACP :: 3; // current thread's ANSI code page
+CP_SYMBOL :: 42; // SYMBOL translations
+CP_UTF7 :: 65000; // UTF-7 translation
+CP_UTF8 :: 65001; // UTF-8 translation
+
+
+MB_ERR_INVALID_CHARS :: 8;
+WC_ERR_INVALID_CHARS :: 128;
+
+utf8_to_ucs2 :: proc(s: string, allocator := context.temp_allocator) -> []u16 {
+ if len(s) < 1 {
+ return nil;
+ }
+
+ n := multi_byte_to_wide_char(CP_UTF8, MB_ERR_INVALID_CHARS, cstring(&s[0]), i32(len(s)), nil, 0);
+ if n == 0 {
+ return nil;
+ }
+
+ text := make([]u16, n+1, allocator);
+
+ n1 := multi_byte_to_wide_char(CP_UTF8, MB_ERR_INVALID_CHARS, cstring(&s[0]), i32(len(s)), &text[0], i32(n));
+ if n1 == 0 {
+ delete(text, allocator);
+ return nil;
+ }
+
+ text[n] = 0;
+
+ return text[:len(text)-1];
+}
+utf8_to_wstring :: proc(s: string, allocator := context.temp_allocator) -> Wstring {
+ if res := utf8_to_ucs2(s, allocator); res != nil {
+ return &res[0];
+ }
+ return nil;
+}
+
+ucs2_to_utf8 :: proc(s: []u16, allocator := context.temp_allocator) -> string {
+ if len(s) < 1 {
+ return "";
+ }
+
+ n := wide_char_to_multi_byte(CP_UTF8, WC_ERR_INVALID_CHARS, &s[0], i32(len(s)), nil, 0, nil, nil);
+ if n == 0 {
+ return "";
+ }
+
+ text := make([]byte, n+1, allocator);
+
+ n1 := wide_char_to_multi_byte(CP_UTF8, WC_ERR_INVALID_CHARS, &s[0], i32(len(s)), cstring(&text[0]), n, nil, nil);
+ if n1 == 0 {
+ delete(text, allocator);
+ return "";
+ }
+
+ text[n] = 0;
+
+ return string(text[:len(text)-1]);
+}
+
+
+
+
+get_query_performance_frequency :: proc() -> i64 {
+ r: i64;
+ query_performance_frequency(&r);
+ return r;
+}
+
+HIWORD_W :: proc(wParam: Wparam) -> u16 { return u16((u32(wParam) >> 16) & 0xffff); }
+HIWORD_L :: proc(lParam: Lparam) -> u16 { return u16((u32(lParam) >> 16) & 0xffff); }
+LOWORD_W :: proc(wParam: Wparam) -> u16 { return u16(wParam); }
+LOWORD_L :: proc(lParam: Lparam) -> u16 { return u16(lParam); }
+
+is_key_down :: inline proc(key: Key_Code) -> bool { return get_async_key_state(i32(key)) < 0; }
+
+
+
+
+MAX_PATH :: 0x00000104;
+
+HANDLE_FLAG_INHERIT :: 1;
+HANDLE_FLAG_PROTECT_FROM_CLOSE :: 2;
+
+FILE_BEGIN :: 0;
+FILE_CURRENT :: 1;
+FILE_END :: 2;
+
+FILE_SHARE_READ :: 0x00000001;
+FILE_SHARE_WRITE :: 0x00000002;
+FILE_SHARE_DELETE :: 0x00000004;
+FILE_GENERIC_ALL :: 0x10000000;
+FILE_GENERIC_EXECUTE :: 0x20000000;
+FILE_GENERIC_WRITE :: 0x40000000;
+FILE_GENERIC_READ :: 0x80000000;
+
+FILE_APPEND_DATA :: 0x0004;
+
+STD_INPUT_HANDLE :: -10;
+STD_OUTPUT_HANDLE :: -11;
+STD_ERROR_HANDLE :: -12;
+
+CREATE_NEW :: 1;
+CREATE_ALWAYS :: 2;
+OPEN_EXISTING :: 3;
+OPEN_ALWAYS :: 4;
+TRUNCATE_EXISTING :: 5;
+
+INVALID_FILE_ATTRIBUTES :: -1;
+
+FILE_ATTRIBUTE_READONLY :: 0x00000001;
+FILE_ATTRIBUTE_HIDDEN :: 0x00000002;
+FILE_ATTRIBUTE_SYSTEM :: 0x00000004;
+FILE_ATTRIBUTE_DIRECTORY :: 0x00000010;
+FILE_ATTRIBUTE_ARCHIVE :: 0x00000020;
+FILE_ATTRIBUTE_DEVICE :: 0x00000040;
+FILE_ATTRIBUTE_NORMAL :: 0x00000080;
+FILE_ATTRIBUTE_TEMPORARY :: 0x00000100;
+FILE_ATTRIBUTE_SPARSE_FILE :: 0x00000200;
+FILE_ATTRIBUTE_REPARSE_Point :: 0x00000400;
+FILE_ATTRIBUTE_COMPRESSED :: 0x00000800;
+FILE_ATTRIBUTE_OFFLINE :: 0x00001000;
+FILE_ATTRIBUTE_NOT_CONTENT_INDEXED :: 0x00002000;
+FILE_ATTRIBUTE_ENCRYPTED :: 0x00004000;
+
+FILE_TYPE_DISK :: 0x0001;
+FILE_TYPE_CHAR :: 0x0002;
+FILE_TYPE_PIPE :: 0x0003;
+
+
+Monitor_Info :: struct {
+ size: u32,
+ monitor: Rect,
+ work: Rect,
+ flags: u32,
+}
+
+Window_Placement :: struct {
+ length: u32,
+ flags: u32,
+ show_cmd: u32,
+ min_pos: Point,
+ max_pos: Point,
+ normal_pos: Rect,
+}
+
+Bitmap_Info_Header :: struct {
+ size: u32,
+ width, height: i32,
+ planes, bit_count: i16,
+ compression: u32,
+ size_image: u32,
+ x_pels_per_meter: i32,
+ y_pels_per_meter: i32,
+ clr_used: u32,
+ clr_important: u32,
+}
+Bitmap_Info :: struct {
+ using header: Bitmap_Info_Header,
+ colors: [1]Rgb_Quad,
+}
+
+
+Rgb_Quad :: struct {blue, green, red, reserved: byte}
+
+
+Key_Code :: enum i32 {
+ Unknown = 0x00,
+
+ Lbutton = 0x01,
+ Rbutton = 0x02,
+ Cancel = 0x03,
+ Mbutton = 0x04,
+ Xbutton1 = 0x05,
+ Xbutton2 = 0x06,
+ Back = 0x08,
+ Tab = 0x09,
+ Clear = 0x0C,
+ Return = 0x0D,
+
+ Shift = 0x10,
+ Control = 0x11,
+ Menu = 0x12,
+ Pause = 0x13,
+ Capital = 0x14,
+ Kana = 0x15,
+ Hangeul = 0x15,
+ Hangul = 0x15,
+ Junja = 0x17,
+ Final = 0x18,
+ Hanja = 0x19,
+ Kanji = 0x19,
+ Escape = 0x1B,
+ Convert = 0x1C,
+ NonConvert = 0x1D,
+ Accept = 0x1E,
+ ModeChange = 0x1F,
+ Space = 0x20,
+ Prior = 0x21,
+ Next = 0x22,
+ End = 0x23,
+ Home = 0x24,
+ Left = 0x25,
+ Up = 0x26,
+ Right = 0x27,
+ Down = 0x28,
+ Select = 0x29,
+ Print = 0x2A,
+ Execute = 0x2B,
+ Snapshot = 0x2C,
+ Insert = 0x2D,
+ Delete = 0x2E,
+ Help = 0x2F,
+
+ Num0 = '0',
+ Num1 = '1',
+ Num2 = '2',
+ Num3 = '3',
+ Num4 = '4',
+ Num5 = '5',
+ Num6 = '6',
+ Num7 = '7',
+ Num8 = '8',
+ Num9 = '9',
+ A = 'A',
+ B = 'B',
+ C = 'C',
+ D = 'D',
+ E = 'E',
+ F = 'F',
+ G = 'G',
+ H = 'H',
+ I = 'I',
+ J = 'J',
+ K = 'K',
+ L = 'L',
+ M = 'M',
+ N = 'N',
+ O = 'O',
+ P = 'P',
+ Q = 'Q',
+ R = 'R',
+ S = 'S',
+ T = 'T',
+ U = 'U',
+ V = 'V',
+ W = 'W',
+ X = 'X',
+ Y = 'Y',
+ Z = 'Z',
+
+ Lwin = 0x5B,
+ Rwin = 0x5C,
+ Apps = 0x5D,
+
+ Numpad0 = 0x60,
+ Numpad1 = 0x61,
+ Numpad2 = 0x62,
+ Numpad3 = 0x63,
+ Numpad4 = 0x64,
+ Numpad5 = 0x65,
+ Numpad6 = 0x66,
+ Numpad7 = 0x67,
+ Numpad8 = 0x68,
+ Numpad9 = 0x69,
+ Multiply = 0x6A,
+ Add = 0x6B,
+ Separator = 0x6C,
+ Subtract = 0x6D,
+ Decimal = 0x6E,
+ Divide = 0x6F,
+
+ F1 = 0x70,
+ F2 = 0x71,
+ F3 = 0x72,
+ F4 = 0x73,
+ F5 = 0x74,
+ F6 = 0x75,
+ F7 = 0x76,
+ F8 = 0x77,
+ F9 = 0x78,
+ F10 = 0x79,
+ F11 = 0x7A,
+ F12 = 0x7B,
+ F13 = 0x7C,
+ F14 = 0x7D,
+ F15 = 0x7E,
+ F16 = 0x7F,
+ F17 = 0x80,
+ F18 = 0x81,
+ F19 = 0x82,
+ F20 = 0x83,
+ F21 = 0x84,
+ F22 = 0x85,
+ F23 = 0x86,
+ F24 = 0x87,
+
+ Numlock = 0x90,
+ Scroll = 0x91,
+ Lshift = 0xA0,
+ Rshift = 0xA1,
+ Lcontrol = 0xA2,
+ Rcontrol = 0xA3,
+ Lmenu = 0xA4,
+ Rmenu = 0xA5,
+ ProcessKey = 0xE5,
+ Attn = 0xF6,
+ Crsel = 0xF7,
+ Exsel = 0xF8,
+ Ereof = 0xF9,
+ Play = 0xFA,
+ Zoom = 0xFB,
+ Noname = 0xFC,
+ Pa1 = 0xFD,
+ OemClear = 0xFE,
+}
+
diff --git a/core/sys/win32/kernel32.odin b/core/sys/win32/kernel32.odin
new file mode 100644
index 000000000..7163bc662
--- /dev/null
+++ b/core/sys/win32/kernel32.odin
@@ -0,0 +1,169 @@
+// +build windows
+package win32
+
+foreign import "system:kernel32.lib"
+
+@(default_calling_convention = "std")
+foreign kernel32 {
+ @(link_name="GetLastError") get_last_error :: proc() -> i32 ---;
+ @(link_name="CreateProcessA") create_process_a :: proc(application_name, command_line: cstring,
+ process_attributes, thread_attributes: ^Security_Attributes,
+ inherit_handle: Bool, creation_flags: u32, environment: rawptr,
+ current_direcotry: cstring, startup_info: ^Startup_Info,
+ process_information: ^Process_Information) -> Bool ---;
+ @(link_name="CreateProcessW") create_process_w :: proc(application_name, command_line: Wstring,
+ process_attributes, thread_attributes: ^Security_Attributes,
+ inherit_handle: Bool, creation_flags: u32, environment: rawptr,
+ current_direcotry: cstring, startup_info: ^Startup_Info,
+ process_information: ^Process_Information) -> Bool ---;
+ @(link_name="GetExitCodeProcess") get_exit_code_process :: proc(process: Handle, exit: ^u32) -> Bool ---;
+ @(link_name="ExitProcess") exit_process :: proc(exit_code: u32) ---;
+ @(link_name="GetModuleHandleA") get_module_handle_a :: proc(module_name: cstring) -> Hinstance ---;
+ @(link_name="GetModuleHandleW") get_module_handle_w :: proc(module_name: Wstring) -> Hinstance ---;
+ @(link_name="Sleep") sleep :: proc(ms: i32) -> i32 ---;
+ @(link_name="QueryPerformanceFrequency") query_performance_frequency :: proc(result: ^i64) -> i32 ---;
+ @(link_name="QueryPerformanceCounter") query_performance_counter :: proc(result: ^i64) -> i32 ---;
+ @(link_name="OutputDebugStringA") output_debug_string_a :: proc(c_str: cstring) ---;
+
+ @(link_name="GetCommandLineA") get_command_line_a :: proc() -> cstring ---;
+ @(link_name="GetCommandLineW") get_command_line_w :: proc() -> Wstring ---;
+ @(link_name="GetSystemMetrics") get_system_metrics :: proc(index: i32) -> i32 ---;
+ @(link_name="GetCurrentThreadId") get_current_thread_id :: proc() -> u32 ---;
+
+ @(link_name="GetSystemTimeAsFileTime") get_system_time_as_file_time :: proc(system_time_as_file_time: ^Filetime) ---;
+ @(link_name="FileTimeToLocalFileTime") file_time_to_local_file_time :: proc(file_time: ^Filetime, local_file_time: ^Filetime) -> Bool ---;
+ @(link_name="FileTimeToSystemTime") file_time_to_system_time :: proc(file_time: ^Filetime, system_time: ^Systemtime) -> Bool ---;
+ @(link_name="SystemTimeToFileTime") system_time_to_file_time :: proc(system_time: ^Systemtime, file_time: ^Filetime) -> Bool ---;
+
+ @(link_name="CloseHandle") close_handle :: proc(h: Handle) -> i32 ---;
+ @(link_name="GetStdHandle") get_std_handle :: proc(h: i32) -> Handle ---;
+
+ @(link_name="CreateFileA")
+ create_file_a :: proc(filename: cstring, desired_access, share_module: u32,
+ security: rawptr,
+ creation, flags_and_attribs: u32, template_file: Handle) -> Handle ---;
+
+ @(link_name="CreateFileW")
+ create_file_w :: proc(filename: Wstring, desired_access, share_module: u32,
+ security: rawptr,
+ creation, flags_and_attribs: u32, template_file: Handle) -> Handle ---;
+
+
+ @(link_name="ReadFile") read_file :: proc(h: Handle, buf: rawptr, to_read: u32, bytes_read: ^i32, overlapped: rawptr) -> Bool ---;
+ @(link_name="WriteFile") write_file :: proc(h: Handle, buf: rawptr, len: i32, written_result: ^i32, overlapped: rawptr) -> Bool ---;
+
+ @(link_name="GetFileSizeEx") get_file_size_ex :: proc(file_handle: Handle, file_size: ^i64) -> Bool ---;
+ @(link_name="GetFileAttributesA") get_file_attributes_a :: proc(filename: cstring) -> u32 ---;
+ @(link_name="GetFileAttributesW") get_file_attributes_w :: proc(filename: Wstring) -> u32 ---;
+ @(link_name="GetFileAttributesExA") get_file_attributes_ex_a :: proc(filename: cstring, info_level_id: GET_FILEEX_INFO_LEVELS, file_info: rawptr) -> Bool ---;
+ @(link_name="GetFileAttributesExW") get_file_attributes_ex_w :: proc(filename: Wstring, info_level_id: GET_FILEEX_INFO_LEVELS, file_info: rawptr) -> Bool ---;
+ @(link_name="GetFileInformationByHandle") get_file_information_by_handle :: proc(file_handle: Handle, file_info: ^By_Handle_File_Information) -> Bool ---;
+
+ @(link_name="CreateDirectoryA") create_directory_a :: proc(path: cstring, security_attributes: ^Security_Attributes) -> Bool ---;
+ @(link_name="CreateDirectoryW") create_directory_w :: proc(path: Wstring, security_attributes: ^Security_Attributes) -> Bool ---;
+
+ @(link_name="GetFileType") get_file_type :: proc(file_handle: Handle) -> u32 ---;
+ @(link_name="SetFilePointer") set_file_pointer :: proc(file_handle: Handle, distance_to_move: i32, distance_to_move_high: ^i32, move_method: u32) -> u32 ---;
+
+ @(link_name="SetHandleInformation") set_handle_information :: proc(obj: Handle, mask, flags: u32) -> Bool ---;
+
+ @(link_name="FindFirstFileA") find_first_file_a :: proc(file_name: cstring, data: ^Find_Data_A) -> Handle ---;
+ @(link_name="FindNextFileA") find_next_file_a :: proc(file: Handle, data: ^Find_Data_A) -> Bool ---;
+
+ @(link_name="FindFirstFileW") find_first_file_w :: proc(file_name: Wstring, data: ^Find_Data_W) -> Handle ---;
+ @(link_name="FindNextFileW") find_next_file_w :: proc(file: Handle, data: ^Find_Data_W) -> Bool ---;
+
+ @(link_name="FindClose") find_close :: proc(file: Handle) -> Bool ---;
+
+ @(link_name="MoveFileExA") move_file_ex_a :: proc(existing, new: cstring, flags: u32) -> Bool ---;
+ @(link_name="DeleteFileA") delete_file_a :: proc(file_name: cstring) -> Bool ---;
+ @(link_name="CopyFileA") copy_file_a :: proc(existing, new: cstring, fail_if_exists: Bool) -> Bool ---;
+
+ @(link_name="MoveFileExW") move_file_ex_w :: proc(existing, new: Wstring, flags: u32) -> Bool ---;
+ @(link_name="DeleteFileW") delete_file_w :: proc(file_name: Wstring) -> Bool ---;
+ @(link_name="CopyFileW") copy_file_w :: proc(existing, new: Wstring, fail_if_exists: Bool) -> Bool ---;
+
+ @(link_name="HeapAlloc") heap_alloc :: proc(h: Handle, flags: u32, bytes: int) -> rawptr ---;
+ @(link_name="HeapReAlloc") heap_realloc :: proc(h: Handle, flags: u32, memory: rawptr, bytes: int) -> rawptr ---;
+ @(link_name="HeapFree") heap_free :: proc(h: Handle, flags: u32, memory: rawptr) -> Bool ---;
+ @(link_name="GetProcessHeap") get_process_heap :: proc() -> Handle ---;
+
+ @(link_name="LocalAlloc") local_alloc :: proc(flags: u32, bytes: int) -> rawptr ---;
+ @(link_name="LocalReAlloc") local_realloc :: proc(mem: rawptr, bytes: int, flags: uint) -> rawptr ---;
+ @(link_name="LocalFree") local_free :: proc(mem: rawptr) -> rawptr ---;
+
+ @(link_name="FindFirstChangeNotificationA") find_first_change_notification_a :: proc(path: cstring, watch_subtree: Bool, filter: u32) -> Handle ---;
+ @(link_name="FindNextChangeNotification") find_next_change_notification :: proc(h: Handle) -> Bool ---;
+ @(link_name="FindCloseChangeNotification") find_close_change_notification :: proc(h: Handle) -> Bool ---;
+
+ @(link_name="ReadDirectoryChangesW") read_directory_changes_w :: proc(dir: Handle, buf: rawptr, buf_length: u32,
+ watch_subtree: Bool, notify_filter: u32,
+ bytes_returned: ^u32, overlapped: ^Overlapped,
+ completion: rawptr) -> Bool ---;
+
+ @(link_name="WideCharToMultiByte") wide_char_to_multi_byte :: proc(code_page: u32, flags: u32,
+ wchar_str: Wstring, wchar: i32,
+ multi_str: cstring, multi: i32,
+ default_char: cstring, used_default_char: ^Bool) -> i32 ---;
+
+ @(link_name="MultiByteToWideChar") multi_byte_to_wide_char :: proc(code_page: u32, flags: u32,
+ mb_str: cstring, mb: i32,
+ wc_str: Wstring, wc: i32) -> i32 ---;
+
+ @(link_name="CreateSemaphoreA") create_semaphore_a :: proc(attributes: ^Security_Attributes, initial_count, maximum_count: i32, name: cstring) -> Handle ---;
+ @(link_name="CreateSemaphoreW") create_semaphore_w :: proc(attributes: ^Security_Attributes, initial_count, maximum_count: i32, name: cstring) -> Handle ---;
+ @(link_name="ReleaseSemaphore") release_semaphore :: proc(semaphore: Handle, release_count: i32, previous_count: ^i32) -> Bool ---;
+ @(link_name="WaitForSingleObject") wait_for_single_object :: proc(handle: Handle, milliseconds: u32) -> u32 ---;
+}
+
+@(default_calling_convention = "c")
+foreign kernel32 {
+ @(link_name="InterlockedCompareExchange") interlocked_compare_exchange :: proc(dst: ^i32, exchange, comparand: i32) -> i32 ---;
+ @(link_name="InterlockedExchange") interlocked_exchange :: proc(dst: ^i32, desired: i32) -> i32 ---;
+ @(link_name="InterlockedExchangeAdd") interlocked_exchange_add :: proc(dst: ^i32, desired: i32) -> i32 ---;
+ @(link_name="InterlockedAnd") interlocked_and :: proc(dst: ^i32, desired: i32) -> i32 ---;
+ @(link_name="InterlockedOr") interlocked_or :: proc(dst: ^i32, desired: i32) -> i32 ---;
+
+ @(link_name="InterlockedCompareExchange64") interlocked_compare_exchange64 :: proc(dst: ^i64, exchange, comparand: i64) -> i64 ---;
+ @(link_name="InterlockedExchange64") interlocked_exchange64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
+ @(link_name="InterlockedExchangeAdd64") interlocked_exchange_add64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
+ @(link_name="InterlockedAnd64") interlocked_and64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
+ @(link_name="InterlockedOr64") interlocked_or64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
+}
+
+@(default_calling_convention = "std")
+foreign kernel32 {
+ @(link_name="_mm_pause") mm_pause :: proc() ---;
+ @(link_name="ReadWriteBarrier") read_write_barrier :: proc() ---;
+ @(link_name="WriteBarrier") write_barrier :: proc() ---;
+ @(link_name="ReadBarrier") read_barrier :: proc() ---;
+
+ @(link_name="CreateThread")
+ create_thread :: proc(thread_attributes: ^Security_Attributes, stack_size: int, start_routine: rawptr,
+ parameter: rawptr, creation_flags: u32, thread_id: ^u32) -> Handle ---;
+ @(link_name="ResumeThread") resume_thread :: proc(thread: Handle) -> u32 ---;
+ @(link_name="GetThreadPriority") get_thread_priority :: proc(thread: Handle) -> i32 ---;
+ @(link_name="SetThreadPriority") set_thread_priority :: proc(thread: Handle, priority: i32) -> Bool ---;
+ @(link_name="GetExitCodeThread") get_exit_code_thread :: proc(thread: Handle, exit_code: ^u32) -> Bool ---;
+ @(link_name="TerminateThread") terminate_thread :: proc(thread: Handle, exit_code: u32) -> Bool ---;
+
+ @(link_name="InitializeCriticalSection") initialize_critical_section :: proc(critical_section: ^Critical_Section) ---;
+ @(link_name="InitializeCriticalSectionAndSpinCount") initialize_critical_section_and_spin_count :: proc(critical_section: ^Critical_Section, spin_count: u32) ---;
+ @(link_name="DeleteCriticalSection") delete_critical_section :: proc(critical_section: ^Critical_Section) ---;
+ @(link_name="SetCriticalSectionSpinCount") set_critical_section_spin_count :: proc(critical_section: ^Critical_Section, spin_count: u32) -> u32 ---;
+ @(link_name="TryEnterCriticalSection") try_enter_critical_section :: proc(critical_section: ^Critical_Section) -> Bool ---;
+ @(link_name="EnterCriticalSection") enter_critical_section :: proc(critical_section: ^Critical_Section) ---;
+ @(link_name="LeaveCriticalSection") leave_critical_section :: proc(critical_section: ^Critical_Section) ---;
+
+ @(link_name="CreateEventA") create_event_a :: proc(event_attributes: ^Security_Attributes, manual_reset, initial_state: Bool, name: cstring) -> Handle ---;
+ @(link_name="CreateEventW") create_event_w :: proc(event_attributes: ^Security_Attributes, manual_reset, initial_state: Bool, name: Wstring) -> Handle ---;
+ @(link_name="PulseEvent") pulse_event :: proc(event: Handle) -> Bool ---;
+ @(link_name="SetEvent") set_event :: proc(event: Handle) -> Bool ---;
+ @(link_name="ResetEvent") reset_event :: proc(event: Handle) -> Bool ---;
+
+ @(link_name="LoadLibraryA") load_library_a :: proc(c_str: cstring) -> Hmodule ---;
+ @(link_name="LoadLibraryW") load_library_w :: proc(c_str: Wstring) -> Hmodule ---;
+ @(link_name="FreeLibrary") free_library :: proc(h: Hmodule) ---;
+ @(link_name="GetProcAddress") get_proc_address :: proc(h: Hmodule, c_str: cstring) -> rawptr ---;
+
+}
diff --git a/core/sys/win32/ole32.odin b/core/sys/win32/ole32.odin
new file mode 100644
index 000000000..4ce3dd93d
--- /dev/null
+++ b/core/sys/win32/ole32.odin
@@ -0,0 +1,18 @@
+// +build windows
+package win32
+
+foreign import "system:ole32.lib"
+
+//objbase.h
+Com_Init :: enum {
+ Multi_Threaded = 0x0,
+ Apartment_Threaded = 0x2,
+ Disable_OLE1_DDE = 0x4,
+ Speed_Over_Memory = 0x8,
+};
+
+@(default_calling_convention = "std")
+foreign ole32 {
+ @(link_name ="CoInitializeEx") com_init_ex :: proc(reserved: rawptr, co_init: Com_Init) ->Hresult ---;
+ @(link_name = "CoUninitialize") com_shutdown :: proc() ---;
+}
diff --git a/core/sys/win32/shell32.odin b/core/sys/win32/shell32.odin
new file mode 100644
index 000000000..bb7b555cc
--- /dev/null
+++ b/core/sys/win32/shell32.odin
@@ -0,0 +1,9 @@
+// +build windows
+package win32
+
+foreign import "system:shell32.lib"
+
+@(default_calling_convention = "std")
+foreign shell32 {
+ @(link_name="CommandLineToArgvW") command_line_to_argv_w :: proc(cmd_list: Wstring, num_args: ^i32) -> ^Wstring ---;
+}
diff --git a/core/sys/win32/user32.odin b/core/sys/win32/user32.odin
new file mode 100644
index 000000000..2363b98d9
--- /dev/null
+++ b/core/sys/win32/user32.odin
@@ -0,0 +1,235 @@
+// +build windows
+package win32
+
+foreign import "system:user32.lib"
+
+
+Menu_Bar_Info :: struct {
+ size: u32,
+ bar: Rect,
+ menu: Hmenu,
+ wnd_menu: Hwnd,
+ using fields: bit_field {
+ bar_focused: 1,
+ focuses: 1,
+ },
+}
+
+Menu_Item_Info_A :: struct {
+ size: u32,
+ mask: u32,
+ type: u32,
+ state: u32,
+ id: u32,
+ submenu: Hmenu,
+ bmp_checked: Hbitmap,
+ bmp_unchecked: Hbitmap,
+ item_data: u32,
+ type_data: cstring,
+ cch: u32,
+}
+Menu_Item_Info_W :: struct {
+ size: u32,
+ mask: u32,
+ type: u32,
+ state: u32,
+ id: u32,
+ submenu: Hmenu,
+ bmp_checked: Hbitmap,
+ bmp_unchecked: Hbitmap,
+ item_data: u32,
+ type_data: Wstring,
+ cch: u32,
+}
+
+MF_BYCOMMAND :: 0x00000000;
+MF_BYPOSITION :: 0x00000400;
+MF_BITMAP :: 0x00000004;
+MF_CHECKED :: 0x00000008;
+MF_DISABLED :: 0x00000002;
+MF_ENABLED :: 0x00000000;
+MF_GRAYED :: 0x00000001;
+MF_MENUBARBREAK :: 0x00000020;
+MF_MENUBREAK :: 0x00000040;
+MF_OWNERDRAW :: 0x00000100;
+MF_POPUP :: 0x00000010;
+MF_SEPARATOR :: 0x00000800;
+MF_STRING :: 0x00000000;
+MF_UNCHECKED :: 0x00000000;
+
+MB_ABORTRETRYIGNORE :: 0x00000002;
+MB_CANCELTRYCONTINUE :: 0x00000006;
+MB_HELP :: 0x00004000;
+MB_OK :: 0x00000000;
+MB_OKCANCEL :: 0x00000001;
+MB_RETRYCANCEL :: 0x00000005;
+MB_YESNO :: 0x00000004;
+MB_YESNOCANCEL :: 0x00000003;
+
+MB_ICONEXCLAMATION :: 0x00000030;
+MB_ICONWARNING :: 0x00000030;
+MB_ICONINFORMATION :: 0x00000040;
+MB_ICONASTERISK :: 0x00000040;
+MB_ICONQUESTION :: 0x00000020;
+MB_ICONSTOP :: 0x00000010;
+MB_ICONERROR :: 0x00000010;
+MB_ICONHAND :: 0x00000010;
+
+MB_DEFBUTTON1 :: 0x00000000;
+MB_DEFBUTTON2 :: 0x00000100;
+MB_DEFBUTTON3 :: 0x00000200;
+MB_DEFBUTTON4 :: 0x00000300;
+
+MB_APPLMODAL :: 0x00000000;
+MB_SYSTEMMODAL :: 0x00001000;
+MB_TASKMODAL :: 0x00002000;
+
+MB_DEFAULT_DESKTOP_ONLY :: 0x00020000;
+MB_RIGHT :: 0x00080000;
+MB_RTLREADING :: 0x00100000;
+MB_SETFOREGROUND :: 0x00010000;
+MB_TOPMOST :: 0x00040000;
+MB_SERVICE_NOTIFICATION :: 0x00200000;
+
+
+@(default_calling_convention = "std")
+foreign user32 {
+ @(link_name="GetDesktopWindow") get_desktop_window :: proc() -> Hwnd ---;
+ @(link_name="ShowCursor") show_cursor :: proc(show: Bool) ---;
+ @(link_name="GetCursorPos") get_cursor_pos :: proc(p: ^Point) -> Bool ---;
+ @(link_name="SetCursorPos") set_cursor_pos :: proc(x, y: i32) -> Bool ---;
+ @(link_name="ScreenToClient") screen_to_client :: proc(h: Hwnd, p: ^Point) -> Bool ---;
+ @(link_name="ClientToScreen") client_to_screen :: proc(h: Hwnd, p: ^Point) -> Bool ---;
+ @(link_name="PostQuitMessage") post_quit_message :: proc(exit_code: i32) ---;
+ @(link_name="SetWindowTextA") set_window_text_a :: proc(hwnd: Hwnd, c_string: cstring) -> Bool ---;
+ @(link_name="SetWindowTextW") set_window_text_w :: proc(hwnd: Hwnd, c_string: Wstring) -> Bool ---;
+ @(link_name="RegisterClassExA") register_class_ex_a :: proc(wc: ^Wnd_Class_Ex_A) -> i16 ---;
+ @(link_name="RegisterClassExW") register_class_ex_w :: proc(wc: ^Wnd_Class_Ex_W) -> i16 ---;
+
+ @(link_name="CreateWindowExA")
+ create_window_ex_a :: proc(ex_style: u32,
+ class_name, title: cstring,
+ style: u32,
+ x, y, w, h: i32,
+ parent: Hwnd, menu: Hmenu, instance: Hinstance,
+ param: rawptr) -> Hwnd ---;
+
+ @(link_name="CreateWindowExW")
+ create_window_ex_w :: proc(ex_style: u32,
+ class_name, title: Wstring,
+ style: u32,
+ x, y, w, h: i32,
+ parent: Hwnd, menu: Hmenu, instance: Hinstance,
+ param: rawptr) -> Hwnd ---;
+
+ @(link_name="ShowWindow") show_window :: proc(hwnd: Hwnd, cmd_show: i32) -> Bool ---;
+ @(link_name="TranslateMessage") translate_message :: proc(msg: ^Msg) -> Bool ---;
+ @(link_name="DispatchMessageA") dispatch_message_a :: proc(msg: ^Msg) -> Lresult ---;
+ @(link_name="DispatchMessageW") dispatch_message_w :: proc(msg: ^Msg) -> Lresult ---;
+ @(link_name="UpdateWindow") update_window :: proc(hwnd: Hwnd) -> Bool ---;
+ @(link_name="GetMessageA") get_message_a :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max: u32) -> Bool ---;
+ @(link_name="GetMessageW") get_message_w :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max: u32) -> Bool ---;
+
+ @(link_name="PeekMessageA") peek_message_a :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max, remove_msg: u32) -> Bool ---;
+ @(link_name="PeekMessageW") peek_message_w :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max, remove_msg: u32) -> Bool ---;
+
+
+ @(link_name="PostMessageA") post_message_a :: proc(hwnd: Hwnd, msg, wparam, lparam: u32) -> Bool ---;
+ @(link_name="PostMessageW") post_message_w :: proc(hwnd: Hwnd, msg, wparam, lparam: u32) -> Bool ---;
+
+ @(link_name="DefWindowProcA") def_window_proc_a :: proc(hwnd: Hwnd, msg: u32, wparam: Wparam, lparam: Lparam) -> Lresult ---;
+ @(link_name="DefWindowProcW") def_window_proc_w :: proc(hwnd: Hwnd, msg: u32, wparam: Wparam, lparam: Lparam) -> Lresult ---;
+
+ @(link_name="AdjustWindowRect") adjust_window_rect :: proc(rect: ^Rect, style: u32, menu: Bool) -> Bool ---;
+ @(link_name="GetActiveWindow") get_active_window :: proc() -> Hwnd ---;
+
+ @(link_name="DestroyWindow") destroy_window :: proc(wnd: Hwnd) -> Bool ---;
+ @(link_name="DescribePixelFormat") describe_pixel_format :: proc(dc: Hdc, pixel_format: i32, bytes: u32, pfd: ^Pixel_Format_Descriptor) -> i32 ---;
+
+ @(link_name="GetMonitorInfoA") get_monitor_info_a :: proc(monitor: Hmonitor, mi: ^Monitor_Info) -> Bool ---;
+ @(link_name="MonitorFromWindow") monitor_from_window :: proc(wnd: Hwnd, flags: u32) -> Hmonitor ---;
+
+ @(link_name="SetWindowPos") set_window_pos :: proc(wnd: Hwnd, wndInsertAfter: Hwnd, x, y, width, height: i32, flags: u32) ---;
+
+ @(link_name="GetWindowPlacement") get_window_placement :: proc(wnd: Hwnd, wndpl: ^Window_Placement) -> Bool ---;
+ @(link_name="SetWindowPlacement") set_window_placement :: proc(wnd: Hwnd, wndpl: ^Window_Placement) -> Bool ---;
+ @(link_name="GetWindowRect") get_window_rect :: proc(wnd: Hwnd, rect: ^Rect) -> Bool ---;
+
+ @(link_name="GetWindowLongPtrA") get_window_long_ptr_a :: proc(wnd: Hwnd, index: i32) -> Long_Ptr ---;
+ @(link_name="SetWindowLongPtrA") set_window_long_ptr_a :: proc(wnd: Hwnd, index: i32, new: Long_Ptr) -> Long_Ptr ---;
+ @(link_name="GetWindowLongPtrW") get_window_long_ptr_w :: proc(wnd: Hwnd, index: i32) -> Long_Ptr ---;
+ @(link_name="SetWindowLongPtrW") set_window_long_ptr_w :: proc(wnd: Hwnd, index: i32, new: Long_Ptr) -> Long_Ptr ---;
+
+ @(link_name="GetWindowText") get_window_text :: proc(wnd: Hwnd, str: cstring, maxCount: i32) -> i32 ---;
+
+ @(link_name="GetClientRect") get_client_rect :: proc(hwnd: Hwnd, rect: ^Rect) -> Bool ---;
+
+ @(link_name="GetDC") get_dc :: proc(h: Hwnd) -> Hdc ---;
+ @(link_name="ReleaseDC") release_dc :: proc(wnd: Hwnd, hdc: Hdc) -> i32 ---;
+
+ @(link_name="MapVirtualKeyA") map_virtual_key_a :: proc(scancode: u32, map_type: u32) -> u32 ---;
+ @(link_name="MapVirtualKeyW") map_virtual_key_w :: proc(scancode: u32, map_type: u32) -> u32 ---;
+
+ @(link_name="GetKeyState") get_key_state :: proc(v_key: i32) -> i16 ---;
+ @(link_name="GetAsyncKeyState") get_async_key_state :: proc(v_key: i32) -> i16 ---;
+
+ @(link_name="SetForegroundWindow") set_foreground_window :: proc(h: Hwnd) -> Bool ---;
+ @(link_name="SetFocus") set_focus :: proc(h: Hwnd) -> Hwnd ---;
+
+
+ @(link_name="LoadImageA") load_image_a :: proc(instance: Hinstance, name: cstring, type_: u32, x_desired, y_desired : i32, load : u32) -> Handle ---;
+ @(link_name="LoadIconA") load_icon_a :: proc(instance: Hinstance, icon_name: cstring) -> Hicon ---;
+ @(link_name="DestroyIcon") destroy_icon :: proc(icon: Hicon) -> Bool ---;
+
+ @(link_name="LoadCursorA") load_cursor_a :: proc(instance: Hinstance, cursor_name: cstring) -> Hcursor ---;
+ @(link_name="GetCursor") get_cursor :: proc() -> Hcursor ---;
+ @(link_name="SetCursor") set_cursor :: proc(cursor: Hcursor) -> Hcursor ---;
+
+ @(link_name="RegisterRawInputDevices") register_raw_input_devices :: proc(raw_input_device: ^Raw_Input_Device, num_devices, size: u32) -> Bool ---;
+
+ @(link_name="GetRawInputData") get_raw_input_data :: proc(raw_input: Hrawinput, command: u32, data: rawptr, size: ^u32, size_header: u32) -> u32 ---;
+
+ @(link_name="MapVirtualKeyExW") map_virtual_key_ex_w :: proc(code, map_type: u32, hkl: HKL) ---;
+ @(link_name="MapVirtualKeyExA") map_virtual_key_ex_a :: proc(code, map_type: u32, hkl: HKL) ---;
+
+ @(link_name="EnumDisplayMonitors") enum_display_monitors :: proc(hdc: Hdc, rect: ^Rect, enum_proc: Monitor_Enum_Proc, lparam: Lparam) -> bool ---;
+}
+
+@(default_calling_convention = "c")
+foreign user32 {
+ @(link_name="CreateMenu") create_menu :: proc() -> Hmenu ---
+ @(link_name="CreatePopupMenu") create_popup_menu :: proc() -> Hmenu ---
+ @(link_name="DestroyMenu") destroy_menu :: proc(menu: Hmenu) -> Bool ---
+ @(link_name="DeleteMenu") delete_menu :: proc(menu: Hmenu, position: u32, flags: u32) -> Bool ---
+
+ @(link_name="EnableMenuItem") enable_menu_item :: proc(menu: Hmenu, id_enable_itme: i32, enable: u32) -> Bool ---
+ @(link_name="EndMenu") end_menu :: proc() -> Bool ---
+ @(link_name="GetMenu") get_menu :: proc(wnd: Hwnd) -> Hmenu ---
+ @(link_name="GetMenuBarInfo") get_menu_bar_info :: proc(wnd: Hwnd, id_object, id_item: u32, mbi: ^Menu_Bar_Info) -> Hmenu ---
+ @(link_name="GetMenuStringA") get_menu_string_a :: proc(menu: Hmenu, id_item: u32, s: string, cch_max: i32, flags: u32) -> i32 ---
+ @(link_name="GetMenuStringW") get_menu_string_w :: proc(menu: Hmenu, id_item: u32, s: Wstring, cch_max: i32, flags: u32) -> i32 ---
+ @(link_name="GetMenuState") get_menu_state :: proc(menu: Hmenu, id: u32, flags: u32) -> u32 ---
+ @(link_name="GetMenuItemRect") get_menu_item_rect :: proc(wnd: Hwnd, menu: Hmenu, id_item: u32, item: ^Rect) -> Bool ---
+
+ @(link_name="SetMenu") set_menu :: proc(wnd: Hwnd, menu: Hmenu) -> Hmenu ---
+
+ @(link_name="DrawMenuBar") draw_menu_bar :: proc(wnd: Hwnd) -> Bool ---
+ @(link_name="InsertMenuA") insert_menu_a :: proc(menu: Hmenu, position: u32, flags: u32, id_new_item: Uint_Ptr, new_item: cstring) -> Bool ---
+ @(link_name="InsertMenuW") insert_menu_w :: proc(menu: Hmenu, position: u32, flags: u32, id_new_item: Uint_Ptr, new_item: Wstring) -> Bool ---
+
+ @(link_name="InsertMenuItemA") insert_menu_item_a :: proc(menu: Hmenu, item: u32, by_position: bool, mi: ^Menu_Item_Info_A) -> Bool ---
+ @(link_name="InsertMenuItemW") insert_menu_item_w :: proc(menu: Hmenu, item: u32, by_position: bool, mi: ^Menu_Item_Info_W) -> Bool ---
+
+ @(link_name="AppendMenuA") append_menu_a :: proc(menu: Hmenu, flags: u32, id_new_item: Uint_Ptr, new_item: cstring) -> Bool ---
+ @(link_name="AppendMenuW") append_menu_w :: proc(menu: Hmenu, flags: u32, id_new_item: Uint_Ptr, new_item: Wstring) -> Bool ---
+
+ @(link_name="CheckMenuItem") check_menu_item :: proc(menu: Hmenu, id_check_item: u32, check: u32) -> u32 ---
+ @(link_name="CheckMenuRadioItem") check_menu_radio_item :: proc(menu: Hmenu, first, last: u32, check: u32, flags: u32) -> Bool ---
+
+ @(link_name="GetPropA") get_prop_a :: proc(wnd: Hwnd, s: cstring) -> Handle ---
+ @(link_name="GetPropW") get_prop_w :: proc(wnd: Hwnd, s: Wstring) -> Handle ---
+
+
+ @(link_name="MessageBoxExA") message_box_ex_a :: proc(wnd: Hwnd, text, caption: cstring, type: u32, language_id: u16) -> i32 ---
+ @(link_name="MessageBoxExW") message_box_ex_w :: proc(wnd: Hwnd, text, caption: Wstring, type: u32, language_id: u16) -> i32 ---
+}
diff --git a/core/sys/win32/windows.odin b/core/sys/win32/windows.odin
deleted file mode 100644
index 3ce33bad0..000000000
--- a/core/sys/win32/windows.odin
+++ /dev/null
@@ -1,1462 +0,0 @@
-// +build windows
-package win32
-
-foreign import "system:kernel32.lib"
-foreign import "system:user32.lib"
-foreign import "system:gdi32.lib"
-foreign import "system:winmm.lib"
-foreign import "system:shell32.lib"
-foreign import "system:ole32.lib"
-
-Handle :: distinct rawptr;
-Hwnd :: distinct Handle;
-Hdc :: distinct Handle;
-Hinstance :: distinct Handle;
-Hicon :: distinct Handle;
-Hcursor :: distinct Handle;
-Hmenu :: distinct Handle;
-Hbitmap :: distinct Handle;
-Hbrush :: distinct Handle;
-Hgdiobj :: distinct Handle;
-Hmodule :: distinct Handle;
-Hmonitor :: distinct Handle;
-Hrawinput :: distinct Handle;
-Hresult :: distinct i32;
-HKL :: distinct Handle;
-Wparam :: distinct uint;
-Lparam :: distinct int;
-Lresult :: distinct int;
-Wnd_Proc :: distinct #type proc "c" (Hwnd, u32, Wparam, Lparam) -> Lresult;
-Monitor_Enum_Proc :: distinct #type proc "std" (Hmonitor, Hdc, ^Rect, Lparam) -> bool;
-
-Uint_Ptr :: distinct uint;
-Long_Ptr :: distinct int;
-
-Bool :: distinct b32;
-
-Wstring :: ^u16;
-
-Point :: struct {
- x, y: i32,
-}
-
-Wnd_Class_Ex_A :: struct {
- size, style: u32,
- wnd_proc: Wnd_Proc,
- cls_extra, wnd_extra: i32,
- instance: Hinstance,
- icon: Hicon,
- cursor: Hcursor,
- background: Hbrush,
- menu_name, class_name: cstring,
- sm: Hicon,
-}
-
-Wnd_Class_Ex_W :: struct {
- size, style: u32,
- wnd_proc: Wnd_Proc,
- cls_extra, wnd_extra: i32,
- instance: Hinstance,
- icon: Hicon,
- cursor: Hcursor,
- background: Hbrush,
- menu_name, class_name: Wstring,
- sm: Hicon,
-}
-
-
-Msg :: struct {
- hwnd: Hwnd,
- message: u32,
- wparam: Wparam,
- lparam: Lparam,
- time: u32,
- pt: Point,
-}
-
-Rect :: struct {
- left: i32,
- top: i32,
- right: i32,
- bottom: i32,
-}
-
-Filetime :: struct {
- lo, hi: u32,
-}
-
-Systemtime :: struct {
- year, month: u16,
- day_of_week, day: u16,
- hour, minute, second, millisecond: u16,
-}
-
-By_Handle_File_Information :: struct {
- file_attributes: u32,
- creation_time,
- last_access_time,
- last_write_time: Filetime,
- volume_serial_number,
- file_size_high,
- file_size_low,
- number_of_links,
- file_index_high,
- file_index_low: u32,
-}
-
-File_Attribute_Data :: struct {
- file_attributes: u32,
- creation_time,
- last_access_time,
- last_write_time: Filetime,
- file_size_high,
- file_size_low: u32,
-}
-
-Find_Data_W :: struct{
- file_attributes: u32,
- creation_time: Filetime,
- last_access_time: Filetime,
- last_write_time: Filetime,
- file_size_high: u32,
- file_size_low: u32,
- reserved0: u32,
- reserved1: u32,
- file_name: [MAX_PATH]u16,
- alternate_file_name: [14]u16,
-}
-
-Find_Data_A :: struct{
- file_attributes: u32,
- creation_time: Filetime,
- last_access_time: Filetime,
- last_write_time: Filetime,
- file_size_high: u32,
- file_size_low: u32,
- reserved0: u32,
- reserved1: u32,
- file_name: [MAX_PATH]byte,
- alternate_file_name: [14]byte,
-}
-
-Security_Attributes :: struct {
- length: u32,
- security_descriptor: rawptr,
- inherit_handle: Bool,
-}
-
-Process_Information :: struct {
- process: Handle,
- thread: Handle,
- process_id: u32,
- thread_id: u32
-}
-
-Startup_Info :: struct {
- cb: u32,
- reserved: Wstring,
- desktop: Wstring,
- title: Wstring,
- x: u32,
- y: u32,
- x_size: u32,
- y_size: u32,
- x_count_chars: u32,
- y_count_chars: u32,
- fill_attribute: u32,
- flags: u32,
- show_window: u16,
- _: u16,
- _: cstring,
- stdin: Handle,
- stdout: Handle,
- stderr: Handle,
-}
-
-Pixel_Format_Descriptor :: struct {
- size,
- version,
- flags: u32,
-
- pixel_type,
- color_bits,
- red_bits,
- red_shift,
- green_bits,
- green_shift,
- blue_bits,
- blue_shift,
- alpha_bits,
- alpha_shift,
- accum_bits,
- accum_red_bits,
- accum_green_bits,
- accum_blue_bits,
- accum_alpha_bits,
- depth_bits,
- stencil_bits,
- aux_buffers,
- layer_type,
- reserved: byte,
-
- layer_mask,
- visible_mask,
- damage_mask: u32,
-}
-
-Critical_Section :: struct {
- debug_info: ^Critical_Section_Debug,
-
- lock_count: i32,
- recursion_count: i32,
- owning_thread: Handle,
- lock_semaphore: Handle,
- spin_count: ^u32,
-}
-
-Critical_Section_Debug :: struct {
- typ: u16,
- creator_back_trace_index: u16,
- critical_section: ^Critical_Section,
- process_locks_list: ^List_Entry,
- entry_count: u32,
- contention_count: u32,
- flags: u32,
- creator_back_trace_index_high: u16,
- spare_word: u16,
-}
-
-List_Entry :: struct {flink, blink: ^List_Entry};
-
-
-Raw_Input_Device :: struct {
- usage_page: u16,
- usage: u16,
- flags: u32,
- wnd_target: Hwnd,
-}
-
-Raw_Input_Header :: struct {
- kind: u32,
- size: u32,
- device: Handle,
- wparam: Wparam,
-}
-
-Raw_HID :: struct {
- size_hid: u32,
- count: u32,
- raw_data: [1]byte,
-}
-
-Raw_Keyboard :: struct {
- make_code: u16,
- flags: u16,
- reserved: u16,
- vkey: u16,
- message: u32,
- extra_information: u32,
-}
-
-Raw_Mouse :: struct {
- flags: u16,
- using data: struct #raw_union {
- buttons: u32,
- using _: struct {
- button_flags: u16,
- button_data: u16,
- },
- },
- raw_buttons: u32,
- last_x: i32,
- last_y: i32,
- extra_information: u32,
-}
-
-Raw_Input :: struct {
- using header: Raw_Input_Header,
- data: struct #raw_union {
- mouse: Raw_Mouse,
- keyboard: Raw_Keyboard,
- hid: Raw_HID,
- },
-}
-
-
-Overlapped :: struct {
- internal: ^u64,
- internal_high: ^u64,
- using _: struct #raw_union {
- using _: struct {
- offset: u32,
- offset_high: u32,
- },
- pointer: rawptr,
- },
- event: Handle,
-}
-
-File_Notify_Information :: struct {
- next_entry_offset: u32,
- action: u32,
- file_name_length: u32,
- file_name: [1]u16,
-}
-
-MAPVK_VK_TO_VSC :: 0;
-MAPVK_VSC_TO_VK :: 1;
-MAPVK_VK_TO_CHAR :: 2;
-MAPVK_VSC_TO_VK_EX :: 3;
-
-//WinUser.h
-VK_LBUTTON :: 0x01;
-VK_RBUTTON :: 0x02;
-VK_CANCEL :: 0x03;
-VK_MBUTTON :: 0x04; /* NOT contiguous with L & RBUTTON */
-VK_XBUTTON1 :: 0x05; /* NOT contiguous with L & RBUTTON */
-VK_XBUTTON2 :: 0x06; /* NOT contiguous with L & RBUTTON */
-
-/*
- * :: 0x07 : reserved
- */
-
-VK_BACK :: 0x08;
-VK_TAB :: 0x09;
-
-/*
- * :: 0x0A - :: 0x0B : reserved
- */
-
-VK_CLEAR :: 0x0C;
-VK_RETURN :: 0x0D;
-
-/*
- * :: 0x0E - :: 0x0F : unassigned
- */
-
-VK_SHIFT :: 0x10;
-VK_CONTROL :: 0x11;
-VK_MENU :: 0x12;
-VK_PAUSE :: 0x13;
-VK_CAPITAL :: 0x14;
-
-VK_KANA :: 0x15;
-VK_HANGEUL :: 0x15; /* old name - should be here for compatibility */
-VK_HANGUL :: 0x15;
-
-/*
- * :: 0x16 : unassigned
- */
-
-VK_JUNJA :: 0x17;
-VK_FINAL :: 0x18;
-VK_HANJA :: 0x19;
-VK_KANJI :: 0x19;
-
-/*
- * :: 0x1A : unassigned
- */
-
-VK_ESCAPE :: 0x1B;
-
-VK_CONVERT :: 0x1C;
-VK_NONCONVERT :: 0x1D;
-VK_ACCEPT :: 0x1E;
-VK_MODECHANGE :: 0x1F;
-
-VK_SPACE :: 0x20;
-VK_PRIOR :: 0x21;
-VK_NEXT :: 0x22;
-VK_END :: 0x23;
-VK_HOME :: 0x24;
-VK_LEFT :: 0x25;
-VK_UP :: 0x26;
-VK_RIGHT :: 0x27;
-VK_DOWN :: 0x28;
-VK_SELECT :: 0x29;
-VK_PRINT :: 0x2A;
-VK_EXECUTE :: 0x2B;
-VK_SNAPSHOT :: 0x2C;
-VK_INSERT :: 0x2D;
-VK_DELETE :: 0x2E;
-VK_HELP :: 0x2F;
-
-/*
- * VK_0 - VK_9 are the same as ASCII '0' - '9' (:: 0x30 - :: 0x39)
- * :: 0x3A - :: 0x40 : unassigned
- * VK_A - VK_Z are the same as ASCII 'A' - 'Z' (:: 0x41 - :: 0x5A)
- */
-
-VK_LWIN :: 0x5B;
-VK_RWIN :: 0x5C;
-VK_APPS :: 0x5D;
-
-/*
- * :: 0x5E : reserved
- */
-
-VK_SLEEP :: 0x5F;
-
-VK_NUMPAD0 :: 0x60;
-VK_NUMPAD1 :: 0x61;
-VK_NUMPAD2 :: 0x62;
-VK_NUMPAD3 :: 0x63;
-VK_NUMPAD4 :: 0x64;
-VK_NUMPAD5 :: 0x65;
-VK_NUMPAD6 :: 0x66;
-VK_NUMPAD7 :: 0x67;
-VK_NUMPAD8 :: 0x68;
-VK_NUMPAD9 :: 0x69;
-VK_MULTIPLY :: 0x6A;
-VK_ADD :: 0x6B;
-VK_SEPARATOR :: 0x6C;
-VK_SUBTRACT :: 0x6D;
-VK_DECIMAL :: 0x6E;
-VK_DIVIDE :: 0x6F;
-VK_F1 :: 0x70;
-VK_F2 :: 0x71;
-VK_F3 :: 0x72;
-VK_F4 :: 0x73;
-VK_F5 :: 0x74;
-VK_F6 :: 0x75;
-VK_F7 :: 0x76;
-VK_F8 :: 0x77;
-VK_F9 :: 0x78;
-VK_F10 :: 0x79;
-VK_F11 :: 0x7A;
-VK_F12 :: 0x7B;
-VK_F13 :: 0x7C;
-VK_F14 :: 0x7D;
-VK_F15 :: 0x7E;
-VK_F16 :: 0x7F;
-VK_F17 :: 0x80;
-VK_F18 :: 0x81;
-VK_F19 :: 0x82;
-VK_F20 :: 0x83;
-VK_F21 :: 0x84;
-VK_F22 :: 0x85;
-VK_F23 :: 0x86;
-VK_F24 :: 0x87;
-
-INVALID_HANDLE :: Handle(~uintptr(0));
-
-CREATE_SUSPENDED :: 0x00000004;
-STACK_SIZE_PARAM_IS_A_RESERVATION :: 0x00010000;
-WAIT_ABANDONED :: 0x00000080;
-WAIT_OBJECT_0 :: 0;
-WAIT_TIMEOUT :: 0x00000102;
-WAIT_FAILED :: 0xffffffff;
-
-CS_VREDRAW :: 0x0001;
-CS_HREDRAW :: 0x0002;
-CS_OWNDC :: 0x0020;
-CW_USEDEFAULT :: -0x80000000;
-
-WS_OVERLAPPED :: 0;
-WS_MAXIMIZEBOX :: 0x00010000;
-WS_MINIMIZEBOX :: 0x00020000;
-WS_THICKFRAME :: 0x00040000;
-WS_SYSMENU :: 0x00080000;
-WS_BORDER :: 0x00800000;
-WS_CAPTION :: 0x00C00000;
-WS_VISIBLE :: 0x10000000;
-WS_POPUP :: 0x80000000;
-WS_MAXIMIZE :: 0x01000000;
-WS_MINIMIZE :: 0x20000000;
-WS_OVERLAPPEDWINDOW :: WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX|WS_MAXIMIZEBOX;
-WS_POPUPWINDOW :: WS_POPUP | WS_BORDER | WS_SYSMENU;
-
-WS_EX_DLGMODALFRAME :: 0x00000001;
-WS_EX_NOPARENTNOTIFY :: 0x00000004;
-WS_EX_TOPMOST :: 0x00000008;
-WS_EX_ACCEPTFILES :: 0x00000010;
-WS_EX_TRANSPARENT :: 0x00000020;
-WS_EX_MDICHILD :: 0x00000040;
-WS_EX_TOOLWINDOW :: 0x00000080;
-WS_EX_WINDOWEDGE :: 0x00000100;
-WS_EX_CLIENTEDGE :: 0x00000200;
-WS_EX_CONTEXTHELP :: 0x00000400;
-WS_EX_RIGHT :: 0x00001000;
-WS_EX_LEFT :: 0x00000000;
-WS_EX_RTLREADING :: 0x00002000;
-WS_EX_LTRREADING :: 0x00000000;
-WS_EX_LEFTSCROLLBAR :: 0x00004000;
-WS_EX_RIGHTSCROLLBAR :: 0x00000000;
-WS_EX_CONTROLPARENT :: 0x00010000;
-WS_EX_STATICEDGE :: 0x00020000;
-WS_EX_APPWINDOW :: 0x00040000;
-WS_EX_OVERLAPPEDWINDOW :: WS_EX_WINDOWEDGE | WS_EX_CLIENTEDGE;
-WS_EX_PALETTEWINDOW :: WS_EX_WINDOWEDGE | WS_EX_TOOLWINDOW | WS_EX_TOPMOST;
-WS_EX_LAYERED :: 0x00080000;
-WS_EX_NOINHERITLAYOUT :: 0x00100000; // Disable inheritence of mirroring by children
-WS_EX_NOREDIRECTIONBITMAP :: 0x00200000;
-WS_EX_LAYOUTRTL :: 0x00400000; // Right to left mirroring
-WS_EX_COMPOSITED :: 0x02000000;
-WS_EX_NOACTIVATE :: 0x08000000;
-
-WM_ACTIVATE :: 0x0006;
-WM_ACTIVATEAPP :: 0x001C;
-WM_CHAR :: 0x0102;
-WM_CLOSE :: 0x0010;
-WM_CREATE :: 0x0001;
-WM_DESTROY :: 0x0002;
-WM_INPUT :: 0x00ff;
-WM_KEYDOWN :: 0x0100;
-WM_KEYUP :: 0x0101;
-WM_KILLFOCUS :: 0x0008;
-WM_QUIT :: 0x0012;
-WM_SETCURSOR :: 0x0020;
-WM_SETFOCUS :: 0x0007;
-WM_SIZE :: 0x0005;
-WM_SIZING :: 0x0214;
-WM_SYSKEYDOWN :: 0x0104;
-WM_SYSKEYUP :: 0x0105;
-WM_USER :: 0x0400;
-WM_WINDOWPOSCHANGED :: 0x0047;
-WM_COMMAND :: 0x0111;
-
-WM_MOUSEWHEEL :: 0x020A;
-WM_MOUSEMOVE :: 0x0200;
-WM_LBUTTONDOWN :: 0x0201;
-WM_LBUTTONUP :: 0x0202;
-WM_LBUTTONDBLCLK :: 0x0203;
-WM_RBUTTONDOWN :: 0x0204;
-WM_RBUTTONUP :: 0x0205;
-WM_RBUTTONDBLCLK :: 0x0206;
-WM_MBUTTONDOWN :: 0x0207;
-WM_MBUTTONUP :: 0x0208;
-WM_MBUTTONDBLCLK :: 0x0209;
-
-PM_NOREMOVE :: 0x0000;
-PM_REMOVE :: 0x0001;
-PM_NOYIELD :: 0x0002;
-
-BLACK_BRUSH :: 4;
-
-SM_CXSCREEN :: 0;
-SM_CYSCREEN :: 1;
-
-SW_SHOW :: 5;
-
-COLOR_BACKGROUND :: Hbrush(uintptr(1));
-
-INVALID_SET_FILE_POINTER :: ~u32(0);
-HEAP_ZERO_MEMORY :: 0x00000008;
-INFINITE :: 0xffffffff;
-GWL_EXSTYLE :: -20;
-GWLP_HINSTANCE :: -6;
-GWLP_ID :: -12;
-GWL_STYLE :: -16;
-GWLP_USERDATA :: -21;
-GWLP_WNDPROC :: -4;
-Hwnd_TOP :: Hwnd(uintptr(0));
-
-BI_RGB :: 0;
-DIB_RGB_COLORS :: 0x00;
-SRCCOPY: u32 : 0x00cc0020;
-
-
-MONITOR_DEFAULTTONULL :: 0x00000000;
-MONITOR_DEFAULTTOPRIMARY :: 0x00000001;
-MONITOR_DEFAULTTONEAREST :: 0x00000002;
-
-SWP_FRAMECHANGED :: 0x0020;
-SWP_NOOWNERZORDER :: 0x0200;
-SWP_NOZORDER :: 0x0004;
-SWP_NOSIZE :: 0x0001;
-SWP_NOMOVE :: 0x0002;
-
-
-// Raw Input
-
-
-RID_HEADER :: 0x10000005;
-RID_INPUT :: 0x10000003;
-
-
-RIDEV_APPKEYS :: 0x00000400;
-RIDEV_CAPTUREMOUSE :: 0x00000200;
-RIDEV_DEVNOTIFY :: 0x00002000;
-RIDEV_EXCLUDE :: 0x00000010;
-RIDEV_EXINPUTSINK :: 0x00001000;
-RIDEV_INPUTSINK :: 0x00000100;
-RIDEV_NOHOTKEYS :: 0x00000200;
-RIDEV_NOLEGACY :: 0x00000030;
-RIDEV_PAGEONLY :: 0x00000020;
-RIDEV_REMOVE :: 0x00000001;
-
-
-RIM_TYPEMOUSE :: 0;
-RIM_TYPEKEYBOARD :: 1;
-RIM_TYPEHID :: 2;
-
-
-MOUSE_ATTRIBUTES_CHANGED :: 0x04;
-MOUSE_MOVE_RELATIVE :: 0;
-MOUSE_MOVE_ABSOLUTE :: 1;
-MOUSE_VIRTUAL_DESKTOP :: 0x02;
-
-
-
-RI_MOUSE_BUTTON_1_DOWN :: 0x0001;
-RI_MOUSE_BUTTON_1_UP :: 0x0002;
-RI_MOUSE_BUTTON_2_DOWN :: 0x0004;
-RI_MOUSE_BUTTON_2_UP :: 0x0008;
-RI_MOUSE_BUTTON_3_DOWN :: 0x0010;
-RI_MOUSE_BUTTON_3_UP :: 0x0020;
-RI_MOUSE_BUTTON_4_DOWN :: 0x0040;
-RI_MOUSE_BUTTON_4_UP :: 0x0080;
-RI_MOUSE_BUTTON_5_DOWN :: 0x0100;
-RI_MOUSE_BUTTON_5_UP :: 0x0200;
-RI_MOUSE_LEFT_BUTTON_DOWN :: 0x0001;
-RI_MOUSE_LEFT_BUTTON_UP :: 0x0002;
-RI_MOUSE_MIDDLE_BUTTON_DOWN :: 0x0010;
-RI_MOUSE_MIDDLE_BUTTON_UP :: 0x0020;
-RI_MOUSE_RIGHT_BUTTON_DOWN :: 0x0004;
-RI_MOUSE_RIGHT_BUTTON_UP :: 0x0008;
-RI_MOUSE_WHEEL :: 0x0400;
-
-
-RI_KEY_MAKE :: 0x00;
-RI_KEY_BREAK :: 0x01;
-RI_KEY_E0 :: 0x02;
-RI_KEY_E1 :: 0x04;
-RI_KEY_TERMSRV_SET_LED :: 0x08;
-RI_KEY_TERMSRV_SHADOW :: 0x10;
-
-// Windows OpenGL
-
-PFD_TYPE_RGBA :: 0;
-PFD_TYPE_COLORINDEX :: 1;
-PFD_MAIN_PLANE :: 0;
-PFD_OVERLAY_PLANE :: 1;
-PFD_UNDERLAY_PLANE :: -1;
-PFD_DOUBLEBUFFER :: 1;
-PFD_STEREO :: 2;
-PFD_DRAW_TO_WINDOW :: 4;
-PFD_DRAW_TO_BITMAP :: 8;
-PFD_SUPPORT_GDI :: 16;
-PFD_SUPPORT_OPENGL :: 32;
-PFD_GENERIC_FORMAT :: 64;
-PFD_NEED_PALETTE :: 128;
-PFD_NEED_SYSTEM_PALETTE :: 0x00000100;
-PFD_SWAP_EXCHANGE :: 0x00000200;
-PFD_SWAP_COPY :: 0x00000400;
-PFD_SWAP_LAYER_BUFFERS :: 0x00000800;
-PFD_GENERIC_ACCELERATED :: 0x00001000;
-PFD_DEPTH_DONTCARE :: 0x20000000;
-PFD_DOUBLEBUFFER_DONTCARE :: 0x40000000;
-PFD_STEREO_DONTCARE :: 0x80000000;
-
-GET_FILEEX_INFO_LEVELS :: distinct i32;
-GetFileExInfoStandard: GET_FILEEX_INFO_LEVELS : 0;
-GetFileExMaxInfoLevel: GET_FILEEX_INFO_LEVELS : 1;
-
-STARTF_USESHOWWINDOW :: 0x00000001;
-STARTF_USESIZE :: 0x00000002;
-STARTF_USEPOSITION :: 0x00000004;
-STARTF_USECOUNTCHARS :: 0x00000008;
-STARTF_USEFILLATTRIBUTE :: 0x00000010;
-STARTF_RUNFULLSCREEN :: 0x00000020; // ignored for non-x86 platforms
-STARTF_FORCEONFEEDBACK :: 0x00000040;
-STARTF_FORCEOFFFEEDBACK :: 0x00000080;
-STARTF_USESTDHANDLES :: 0x00000100;
-STARTF_USEHOTKEY :: 0x00000200;
-STARTF_TITLEISLINKNAME :: 0x00000800;
-STARTF_TITLEISAPPID :: 0x00001000;
-STARTF_PREVENTPINNING :: 0x00002000;
-STARTF_UNTRUSTEDSOURCE :: 0x00008000;
-
-
-MOVEFILE_REPLACE_EXISTING :: 0x00000001;
-MOVEFILE_COPY_ALLOWED :: 0x00000002;
-MOVEFILE_DELAY_UNTIL_REBOOT :: 0x00000004;
-MOVEFILE_WRITE_THROUGH :: 0x00000008;
-MOVEFILE_CREATE_HARDLINK :: 0x00000010;
-MOVEFILE_FAIL_IF_NOT_TRACKABLE :: 0x00000020;
-
-FILE_NOTIFY_CHANGE_FILE_NAME :: 0x00000001;
-FILE_NOTIFY_CHANGE_DIR_NAME :: 0x00000002;
-FILE_NOTIFY_CHANGE_ATTRIBUTES :: 0x00000004;
-FILE_NOTIFY_CHANGE_SIZE :: 0x00000008;
-FILE_NOTIFY_CHANGE_LAST_WRITE :: 0x00000010;
-FILE_NOTIFY_CHANGE_LAST_ACCESS :: 0x00000020;
-FILE_NOTIFY_CHANGE_CREATION :: 0x00000040;
-FILE_NOTIFY_CHANGE_SECURITY :: 0x00000100;
-
-FILE_FLAG_WRITE_THROUGH :: 0x80000000;
-FILE_FLAG_OVERLAPPED :: 0x40000000;
-FILE_FLAG_NO_BUFFERING :: 0x20000000;
-FILE_FLAG_RANDOM_ACCESS :: 0x10000000;
-FILE_FLAG_SEQUENTIAL_SCAN :: 0x08000000;
-FILE_FLAG_DELETE_ON_CLOSE :: 0x04000000;
-FILE_FLAG_BACKUP_SEMANTICS :: 0x02000000;
-FILE_FLAG_POSIX_SEMANTICS :: 0x01000000;
-FILE_FLAG_SESSION_AWARE :: 0x00800000;
-FILE_FLAG_OPEN_REPARSE_POINT :: 0x00200000;
-FILE_FLAG_OPEN_NO_RECALL :: 0x00100000;
-FILE_FLAG_FIRST_PIPE_INSTANCE :: 0x00080000;
-
-FILE_ACTION_ADDED :: 0x00000001;
-FILE_ACTION_REMOVED :: 0x00000002;
-FILE_ACTION_MODIFIED :: 0x00000003;
-FILE_ACTION_RENAMED_OLD_NAME :: 0x00000004;
-FILE_ACTION_RENAMED_NEW_NAME :: 0x00000005;
-
-CP_ACP :: 0; // default to ANSI code page
-CP_OEMCP :: 1; // default to OEM code page
-CP_MACCP :: 2; // default to MAC code page
-CP_THREAD_ACP :: 3; // current thread's ANSI code page
-CP_SYMBOL :: 42; // SYMBOL translations
-CP_UTF7 :: 65000; // UTF-7 translation
-CP_UTF8 :: 65001; // UTF-8 translation
-
-
-MB_ERR_INVALID_CHARS :: 8;
-WC_ERR_INVALID_CHARS :: 128;
-
-utf8_to_ucs2 :: proc(s: string, allocator := context.temp_allocator) -> []u16 {
- if len(s) < 1 {
- return nil;
- }
-
- n := multi_byte_to_wide_char(CP_UTF8, MB_ERR_INVALID_CHARS, cstring(&s[0]), i32(len(s)), nil, 0);
- if n == 0 {
- return nil;
- }
-
- text := make([]u16, n+1, allocator);
-
- n1 := multi_byte_to_wide_char(CP_UTF8, MB_ERR_INVALID_CHARS, cstring(&s[0]), i32(len(s)), &text[0], i32(n));
- if n1 == 0 {
- delete(text, allocator);
- return nil;
- }
-
- text[n] = 0;
-
- return text[:len(text)-1];
-}
-utf8_to_wstring :: proc(s: string, allocator := context.temp_allocator) -> Wstring {
- if res := utf8_to_ucs2(s, allocator); res != nil {
- return &res[0];
- }
- return nil;
-}
-
-ucs2_to_utf8 :: proc(s: []u16, allocator := context.temp_allocator) -> string {
- if len(s) < 1 {
- return "";
- }
-
- n := wide_char_to_multi_byte(CP_UTF8, WC_ERR_INVALID_CHARS, &s[0], i32(len(s)), nil, 0, nil, nil);
- if n == 0 {
- return "";
- }
-
- text := make([]byte, n+1, allocator);
-
- n1 := wide_char_to_multi_byte(CP_UTF8, WC_ERR_INVALID_CHARS, &s[0], i32(len(s)), cstring(&text[0]), n, nil, nil);
- if n1 == 0 {
- delete(text, allocator);
- return "";
- }
-
- text[n] = 0;
-
- return string(text[:len(text)-1]);
-}
-
-
-
-@(default_calling_convention = "std")
-foreign kernel32 {
- @(link_name="GetLastError") get_last_error :: proc() -> i32 ---;
- @(link_name="CreateProcessA") create_process_a :: proc(application_name, command_line: cstring,
- process_attributes, thread_attributes: ^Security_Attributes,
- inherit_handle: Bool, creation_flags: u32, environment: rawptr,
- current_direcotry: cstring, startup_info: ^Startup_Info,
- process_information: ^Process_Information) -> Bool ---;
- @(link_name="CreateProcessW") create_process_w :: proc(application_name, command_line: Wstring,
- process_attributes, thread_attributes: ^Security_Attributes,
- inherit_handle: Bool, creation_flags: u32, environment: rawptr,
- current_direcotry: cstring, startup_info: ^Startup_Info,
- process_information: ^Process_Information) -> Bool ---;
- @(link_name="GetExitCodeProcess") get_exit_code_process :: proc(process: Handle, exit: ^u32) -> Bool ---;
- @(link_name="ExitProcess") exit_process :: proc(exit_code: u32) ---;
- @(link_name="GetModuleHandleA") get_module_handle_a :: proc(module_name: cstring) -> Hinstance ---;
- @(link_name="GetModuleHandleW") get_module_handle_w :: proc(module_name: Wstring) -> Hinstance ---;
- @(link_name="Sleep") sleep :: proc(ms: i32) -> i32 ---;
- @(link_name="QueryPerformanceFrequency") query_performance_frequency :: proc(result: ^i64) -> i32 ---;
- @(link_name="QueryPerformanceCounter") query_performance_counter :: proc(result: ^i64) -> i32 ---;
- @(link_name="OutputDebugStringA") output_debug_string_a :: proc(c_str: cstring) ---;
-
- @(link_name="GetCommandLineA") get_command_line_a :: proc() -> cstring ---;
- @(link_name="GetCommandLineW") get_command_line_w :: proc() -> Wstring ---;
- @(link_name="GetSystemMetrics") get_system_metrics :: proc(index: i32) -> i32 ---;
- @(link_name="GetCurrentThreadId") get_current_thread_id :: proc() -> u32 ---;
-
- @(link_name="GetSystemTimeAsFileTime") get_system_time_as_file_time :: proc(system_time_as_file_time: ^Filetime) ---;
- @(link_name="FileTimeToLocalFileTime") file_time_to_local_file_time :: proc(file_time: ^Filetime, local_file_time: ^Filetime) -> Bool ---;
- @(link_name="FileTimeToSystemTime") file_time_to_system_time :: proc(file_time: ^Filetime, system_time: ^Systemtime) -> Bool ---;
- @(link_name="SystemTimeToFileTime") system_time_to_file_time :: proc(system_time: ^Systemtime, file_time: ^Filetime) -> Bool ---;
-
- @(link_name="CloseHandle") close_handle :: proc(h: Handle) -> i32 ---;
- @(link_name="GetStdHandle") get_std_handle :: proc(h: i32) -> Handle ---;
-
- @(link_name="CreateFileA")
- create_file_a :: proc(filename: cstring, desired_access, share_module: u32,
- security: rawptr,
- creation, flags_and_attribs: u32, template_file: Handle) -> Handle ---;
-
- @(link_name="CreateFileW")
- create_file_w :: proc(filename: Wstring, desired_access, share_module: u32,
- security: rawptr,
- creation, flags_and_attribs: u32, template_file: Handle) -> Handle ---;
-
-
- @(link_name="ReadFile") read_file :: proc(h: Handle, buf: rawptr, to_read: u32, bytes_read: ^i32, overlapped: rawptr) -> Bool ---;
- @(link_name="WriteFile") write_file :: proc(h: Handle, buf: rawptr, len: i32, written_result: ^i32, overlapped: rawptr) -> Bool ---;
-
- @(link_name="GetFileSizeEx") get_file_size_ex :: proc(file_handle: Handle, file_size: ^i64) -> Bool ---;
- @(link_name="GetFileAttributesA") get_file_attributes_a :: proc(filename: cstring) -> u32 ---;
- @(link_name="GetFileAttributesW") get_file_attributes_w :: proc(filename: Wstring) -> u32 ---;
- @(link_name="GetFileAttributesExA") get_file_attributes_ex_a :: proc(filename: cstring, info_level_id: GET_FILEEX_INFO_LEVELS, file_info: rawptr) -> Bool ---;
- @(link_name="GetFileAttributesExW") get_file_attributes_ex_w :: proc(filename: Wstring, info_level_id: GET_FILEEX_INFO_LEVELS, file_info: rawptr) -> Bool ---;
- @(link_name="GetFileInformationByHandle") get_file_information_by_handle :: proc(file_handle: Handle, file_info: ^By_Handle_File_Information) -> Bool ---;
-
- @(link_name="CreateDirectoryA") create_directory_a :: proc(path: cstring, security_attributes: ^Security_Attributes) -> Bool ---;
- @(link_name="CreateDirectoryW") create_directory_w :: proc(path: Wstring, security_attributes: ^Security_Attributes) -> Bool ---;
-
- @(link_name="GetFileType") get_file_type :: proc(file_handle: Handle) -> u32 ---;
- @(link_name="SetFilePointer") set_file_pointer :: proc(file_handle: Handle, distance_to_move: i32, distance_to_move_high: ^i32, move_method: u32) -> u32 ---;
-
- @(link_name="SetHandleInformation") set_handle_information :: proc(obj: Handle, mask, flags: u32) -> Bool ---;
-
- @(link_name="FindFirstFileA") find_first_file_a :: proc(file_name: cstring, data: ^Find_Data_A) -> Handle ---;
- @(link_name="FindNextFileA") find_next_file_a :: proc(file: Handle, data: ^Find_Data_A) -> Bool ---;
-
- @(link_name="FindFirstFileW") find_first_file_w :: proc(file_name: Wstring, data: ^Find_Data_W) -> Handle ---;
- @(link_name="FindNextFileW") find_next_file_w :: proc(file: Handle, data: ^Find_Data_W) -> Bool ---;
-
- @(link_name="FindClose") find_close :: proc(file: Handle) -> Bool ---;
-
- @(link_name="MoveFileExA") move_file_ex_a :: proc(existing, new: cstring, flags: u32) -> Bool ---;
- @(link_name="DeleteFileA") delete_file_a :: proc(file_name: cstring) -> Bool ---;
- @(link_name="CopyFileA") copy_file_a :: proc(existing, new: cstring, fail_if_exists: Bool) -> Bool ---;
-
- @(link_name="MoveFileExW") move_file_ex_w :: proc(existing, new: Wstring, flags: u32) -> Bool ---;
- @(link_name="DeleteFileW") delete_file_w :: proc(file_name: Wstring) -> Bool ---;
- @(link_name="CopyFileW") copy_file_w :: proc(existing, new: Wstring, fail_if_exists: Bool) -> Bool ---;
-
- @(link_name="HeapAlloc") heap_alloc :: proc(h: Handle, flags: u32, bytes: int) -> rawptr ---;
- @(link_name="HeapReAlloc") heap_realloc :: proc(h: Handle, flags: u32, memory: rawptr, bytes: int) -> rawptr ---;
- @(link_name="HeapFree") heap_free :: proc(h: Handle, flags: u32, memory: rawptr) -> Bool ---;
- @(link_name="GetProcessHeap") get_process_heap :: proc() -> Handle ---;
-
- @(link_name="LocalAlloc") local_alloc :: proc(flags: u32, bytes: int) -> rawptr ---;
- @(link_name="LocalReAlloc") local_realloc :: proc(mem: rawptr, bytes: int, flags: uint) -> rawptr ---;
- @(link_name="LocalFree") local_free :: proc(mem: rawptr) -> rawptr ---;
-
- @(link_name="FindFirstChangeNotificationA") find_first_change_notification_a :: proc(path: cstring, watch_subtree: Bool, filter: u32) -> Handle ---;
- @(link_name="FindNextChangeNotification") find_next_change_notification :: proc(h: Handle) -> Bool ---;
- @(link_name="FindCloseChangeNotification") find_close_change_notification :: proc(h: Handle) -> Bool ---;
-
- @(link_name="ReadDirectoryChangesW") read_directory_changes_w :: proc(dir: Handle, buf: rawptr, buf_length: u32,
- watch_subtree: Bool, notify_filter: u32,
- bytes_returned: ^u32, overlapped: ^Overlapped,
- completion: rawptr) -> Bool ---;
-
- @(link_name="WideCharToMultiByte") wide_char_to_multi_byte :: proc(code_page: u32, flags: u32,
- wchar_str: Wstring, wchar: i32,
- multi_str: cstring, multi: i32,
- default_char: cstring, used_default_char: ^Bool) -> i32 ---;
-
- @(link_name="MultiByteToWideChar") multi_byte_to_wide_char :: proc(code_page: u32, flags: u32,
- mb_str: cstring, mb: i32,
- wc_str: Wstring, wc: i32) -> i32 ---;
-
- @(link_name="CreateSemaphoreA") create_semaphore_a :: proc(attributes: ^Security_Attributes, initial_count, maximum_count: i32, name: cstring) -> Handle ---;
- @(link_name="CreateSemaphoreW") create_semaphore_w :: proc(attributes: ^Security_Attributes, initial_count, maximum_count: i32, name: cstring) -> Handle ---;
- @(link_name="ReleaseSemaphore") release_semaphore :: proc(semaphore: Handle, release_count: i32, previous_count: ^i32) -> Bool ---;
- @(link_name="WaitForSingleObject") wait_for_single_object :: proc(handle: Handle, milliseconds: u32) -> u32 ---;
-}
-
-@(default_calling_convention = "c")
-foreign kernel32 {
- @(link_name="InterlockedCompareExchange") interlocked_compare_exchange :: proc(dst: ^i32, exchange, comparand: i32) -> i32 ---;
- @(link_name="InterlockedExchange") interlocked_exchange :: proc(dst: ^i32, desired: i32) -> i32 ---;
- @(link_name="InterlockedExchangeAdd") interlocked_exchange_add :: proc(dst: ^i32, desired: i32) -> i32 ---;
- @(link_name="InterlockedAnd") interlocked_and :: proc(dst: ^i32, desired: i32) -> i32 ---;
- @(link_name="InterlockedOr") interlocked_or :: proc(dst: ^i32, desired: i32) -> i32 ---;
-
- @(link_name="InterlockedCompareExchange64") interlocked_compare_exchange64 :: proc(dst: ^i64, exchange, comparand: i64) -> i64 ---;
- @(link_name="InterlockedExchange64") interlocked_exchange64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
- @(link_name="InterlockedExchangeAdd64") interlocked_exchange_add64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
- @(link_name="InterlockedAnd64") interlocked_and64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
- @(link_name="InterlockedOr64") interlocked_or64 :: proc(dst: ^i64, desired: i64) -> i64 ---;
-}
-
-@(default_calling_convention = "std")
-foreign kernel32 {
- @(link_name="_mm_pause") mm_pause :: proc() ---;
- @(link_name="ReadWriteBarrier") read_write_barrier :: proc() ---;
- @(link_name="WriteBarrier") write_barrier :: proc() ---;
- @(link_name="ReadBarrier") read_barrier :: proc() ---;
-
- @(link_name="CreateThread")
- create_thread :: proc(thread_attributes: ^Security_Attributes, stack_size: int, start_routine: rawptr,
- parameter: rawptr, creation_flags: u32, thread_id: ^u32) -> Handle ---;
- @(link_name="ResumeThread") resume_thread :: proc(thread: Handle) -> u32 ---;
- @(link_name="GetThreadPriority") get_thread_priority :: proc(thread: Handle) -> i32 ---;
- @(link_name="SetThreadPriority") set_thread_priority :: proc(thread: Handle, priority: i32) -> Bool ---;
- @(link_name="GetExitCodeThread") get_exit_code_thread :: proc(thread: Handle, exit_code: ^u32) -> Bool ---;
- @(link_name="TerminateThread") terminate_thread :: proc(thread: Handle, exit_code: u32) -> Bool ---;
-
- @(link_name="InitializeCriticalSection") initialize_critical_section :: proc(critical_section: ^Critical_Section) ---;
- @(link_name="InitializeCriticalSectionAndSpinCount") initialize_critical_section_and_spin_count :: proc(critical_section: ^Critical_Section, spin_count: u32) ---;
- @(link_name="DeleteCriticalSection") delete_critical_section :: proc(critical_section: ^Critical_Section) ---;
- @(link_name="SetCriticalSectionSpinCount") set_critical_section_spin_count :: proc(critical_section: ^Critical_Section, spin_count: u32) -> u32 ---;
- @(link_name="TryEnterCriticalSection") try_enter_critical_section :: proc(critical_section: ^Critical_Section) -> Bool ---;
- @(link_name="EnterCriticalSection") enter_critical_section :: proc(critical_section: ^Critical_Section) ---;
- @(link_name="LeaveCriticalSection") leave_critical_section :: proc(critical_section: ^Critical_Section) ---;
-
- @(link_name="CreateEventA") create_event_a :: proc(event_attributes: ^Security_Attributes, manual_reset, initial_state: Bool, name: cstring) -> Handle ---;
- @(link_name="CreateEventW") create_event_w :: proc(event_attributes: ^Security_Attributes, manual_reset, initial_state: Bool, name: Wstring) -> Handle ---;
- @(link_name="PulseEvent") pulse_event :: proc(event: Handle) -> Bool ---;
- @(link_name="SetEvent") set_event :: proc(event: Handle) -> Bool ---;
- @(link_name="ResetEvent") reset_event :: proc(event: Handle) -> Bool ---;
-
- @(link_name="LoadLibraryA") load_library_a :: proc(c_str: cstring) -> Hmodule ---;
- @(link_name="LoadLibraryW") load_library_w :: proc(c_str: Wstring) -> Hmodule ---;
- @(link_name="FreeLibrary") free_library :: proc(h: Hmodule) ---;
- @(link_name="GetProcAddress") get_proc_address :: proc(h: Hmodule, c_str: cstring) -> rawptr ---;
-
-}
-
-@(default_calling_convention = "std")
-foreign user32 {
- @(link_name="GetDesktopWindow") get_desktop_window :: proc() -> Hwnd ---;
- @(link_name="ShowCursor") show_cursor :: proc(show: Bool) ---;
- @(link_name="GetCursorPos") get_cursor_pos :: proc(p: ^Point) -> Bool ---;
- @(link_name="SetCursorPos") set_cursor_pos :: proc(x, y: i32) -> Bool ---;
- @(link_name="ScreenToClient") screen_to_client :: proc(h: Hwnd, p: ^Point) -> Bool ---;
- @(link_name="ClientToScreen") client_to_screen :: proc(h: Hwnd, p: ^Point) -> Bool ---;
- @(link_name="PostQuitMessage") post_quit_message :: proc(exit_code: i32) ---;
- @(link_name="SetWindowTextA") set_window_text_a :: proc(hwnd: Hwnd, c_string: cstring) -> Bool ---;
- @(link_name="SetWindowTextW") set_window_text_w :: proc(hwnd: Hwnd, c_string: Wstring) -> Bool ---;
- @(link_name="RegisterClassExA") register_class_ex_a :: proc(wc: ^Wnd_Class_Ex_A) -> i16 ---;
- @(link_name="RegisterClassExW") register_class_ex_w :: proc(wc: ^Wnd_Class_Ex_W) -> i16 ---;
-
- @(link_name="CreateWindowExA")
- create_window_ex_a :: proc(ex_style: u32,
- class_name, title: cstring,
- style: u32,
- x, y, w, h: i32,
- parent: Hwnd, menu: Hmenu, instance: Hinstance,
- param: rawptr) -> Hwnd ---;
-
- @(link_name="CreateWindowExW")
- create_window_ex_w :: proc(ex_style: u32,
- class_name, title: Wstring,
- style: u32,
- x, y, w, h: i32,
- parent: Hwnd, menu: Hmenu, instance: Hinstance,
- param: rawptr) -> Hwnd ---;
-
- @(link_name="ShowWindow") show_window :: proc(hwnd: Hwnd, cmd_show: i32) -> Bool ---;
- @(link_name="TranslateMessage") translate_message :: proc(msg: ^Msg) -> Bool ---;
- @(link_name="DispatchMessageA") dispatch_message_a :: proc(msg: ^Msg) -> Lresult ---;
- @(link_name="DispatchMessageW") dispatch_message_w :: proc(msg: ^Msg) -> Lresult ---;
- @(link_name="UpdateWindow") update_window :: proc(hwnd: Hwnd) -> Bool ---;
- @(link_name="GetMessageA") get_message_a :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max: u32) -> Bool ---;
- @(link_name="GetMessageW") get_message_w :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max: u32) -> Bool ---;
-
- @(link_name="PeekMessageA") peek_message_a :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max, remove_msg: u32) -> Bool ---;
- @(link_name="PeekMessageW") peek_message_w :: proc(msg: ^Msg, hwnd: Hwnd, msg_filter_min, msg_filter_max, remove_msg: u32) -> Bool ---;
-
-
- @(link_name="PostMessageA") post_message_a :: proc(hwnd: Hwnd, msg, wparam, lparam: u32) -> Bool ---;
- @(link_name="PostMessageW") post_message_w :: proc(hwnd: Hwnd, msg, wparam, lparam: u32) -> Bool ---;
-
- @(link_name="DefWindowProcA") def_window_proc_a :: proc(hwnd: Hwnd, msg: u32, wparam: Wparam, lparam: Lparam) -> Lresult ---;
- @(link_name="DefWindowProcW") def_window_proc_w :: proc(hwnd: Hwnd, msg: u32, wparam: Wparam, lparam: Lparam) -> Lresult ---;
-
- @(link_name="AdjustWindowRect") adjust_window_rect :: proc(rect: ^Rect, style: u32, menu: Bool) -> Bool ---;
- @(link_name="GetActiveWindow") get_active_window :: proc() -> Hwnd ---;
-
- @(link_name="DestroyWindow") destroy_window :: proc(wnd: Hwnd) -> Bool ---;
- @(link_name="DescribePixelFormat") describe_pixel_format :: proc(dc: Hdc, pixel_format: i32, bytes: u32, pfd: ^Pixel_Format_Descriptor) -> i32 ---;
-
- @(link_name="GetMonitorInfoA") get_monitor_info_a :: proc(monitor: Hmonitor, mi: ^Monitor_Info) -> Bool ---;
- @(link_name="MonitorFromWindow") monitor_from_window :: proc(wnd: Hwnd, flags: u32) -> Hmonitor ---;
-
- @(link_name="SetWindowPos") set_window_pos :: proc(wnd: Hwnd, wndInsertAfter: Hwnd, x, y, width, height: i32, flags: u32) ---;
-
- @(link_name="GetWindowPlacement") get_window_placement :: proc(wnd: Hwnd, wndpl: ^Window_Placement) -> Bool ---;
- @(link_name="SetWindowPlacement") set_window_placement :: proc(wnd: Hwnd, wndpl: ^Window_Placement) -> Bool ---;
- @(link_name="GetWindowRect") get_window_rect :: proc(wnd: Hwnd, rect: ^Rect) -> Bool ---;
-
- @(link_name="GetWindowLongPtrA") get_window_long_ptr_a :: proc(wnd: Hwnd, index: i32) -> Long_Ptr ---;
- @(link_name="SetWindowLongPtrA") set_window_long_ptr_a :: proc(wnd: Hwnd, index: i32, new: Long_Ptr) -> Long_Ptr ---;
- @(link_name="GetWindowLongPtrW") get_window_long_ptr_w :: proc(wnd: Hwnd, index: i32) -> Long_Ptr ---;
- @(link_name="SetWindowLongPtrW") set_window_long_ptr_w :: proc(wnd: Hwnd, index: i32, new: Long_Ptr) -> Long_Ptr ---;
-
- @(link_name="GetWindowText") get_window_text :: proc(wnd: Hwnd, str: cstring, maxCount: i32) -> i32 ---;
-
- @(link_name="GetClientRect") get_client_rect :: proc(hwnd: Hwnd, rect: ^Rect) -> Bool ---;
-
- @(link_name="GetDC") get_dc :: proc(h: Hwnd) -> Hdc ---;
- @(link_name="ReleaseDC") release_dc :: proc(wnd: Hwnd, hdc: Hdc) -> i32 ---;
-
- @(link_name="MapVirtualKeyA") map_virtual_key_a :: proc(scancode: u32, map_type: u32) -> u32 ---;
- @(link_name="MapVirtualKeyW") map_virtual_key_w :: proc(scancode: u32, map_type: u32) -> u32 ---;
-
- @(link_name="GetKeyState") get_key_state :: proc(v_key: i32) -> i16 ---;
- @(link_name="GetAsyncKeyState") get_async_key_state :: proc(v_key: i32) -> i16 ---;
-
- @(link_name="SetForegroundWindow") set_foreground_window :: proc(h: Hwnd) -> Bool ---;
- @(link_name="SetFocus") set_focus :: proc(h: Hwnd) -> Hwnd ---;
-
-
- @(link_name="LoadImageA") load_image_a :: proc(instance: Hinstance, name: cstring, type_: u32, x_desired, y_desired : i32, load : u32) -> Handle ---;
- @(link_name="LoadIconA") load_icon_a :: proc(instance: Hinstance, icon_name: cstring) -> Hicon ---;
- @(link_name="DestroyIcon") destroy_icon :: proc(icon: Hicon) -> Bool ---;
-
- @(link_name="LoadCursorA") load_cursor_a :: proc(instance: Hinstance, cursor_name: cstring) -> Hcursor ---;
- @(link_name="GetCursor") get_cursor :: proc() -> Hcursor ---;
- @(link_name="SetCursor") set_cursor :: proc(cursor: Hcursor) -> Hcursor ---;
-
- @(link_name="RegisterRawInputDevices") register_raw_input_devices :: proc(raw_input_device: ^Raw_Input_Device, num_devices, size: u32) -> Bool ---;
-
- @(link_name="GetRawInputData") get_raw_input_data :: proc(raw_input: Hrawinput, command: u32, data: rawptr, size: ^u32, size_header: u32) -> u32 ---;
-
- @(link_name="MapVirtualKeyExW") map_virtual_key_ex_w :: proc(code, map_type: u32, hkl: HKL) ---;
- @(link_name="MapVirtualKeyExA") map_virtual_key_ex_a :: proc(code, map_type: u32, hkl: HKL) ---;
-
- @(link_name="EnumDisplayMonitors") enum_display_monitors :: proc(hdc: Hdc, rect: ^Rect, enum_proc: Monitor_Enum_Proc, lparam: Lparam) -> bool ---;
-}
-
-@(default_calling_convention = "c")
-foreign user32 {
- @(link_name="CreateMenu") create_menu :: proc() -> Hmenu ---
- @(link_name="CreatePopupMenu") create_popup_menu :: proc() -> Hmenu ---
- @(link_name="DestroyMenu") destroy_menu :: proc(menu: Hmenu) -> Bool ---
- @(link_name="DeleteMenu") delete_menu :: proc(menu: Hmenu, position: u32, flags: u32) -> Bool ---
-
- @(link_name="EnableMenuItem") enable_menu_item :: proc(menu: Hmenu, id_enable_itme: i32, enable: u32) -> Bool ---
- @(link_name="EndMenu") end_menu :: proc() -> Bool ---
- @(link_name="GetMenu") get_menu :: proc(wnd: Hwnd) -> Hmenu ---
- @(link_name="GetMenuBarInfo") get_menu_bar_info :: proc(wnd: Hwnd, id_object, id_item: u32, mbi: ^Menu_Bar_Info) -> Hmenu ---
- @(link_name="GetMenuStringA") get_menu_string_a :: proc(menu: Hmenu, id_item: u32, s: string, cch_max: i32, flags: u32) -> i32 ---
- @(link_name="GetMenuStringW") get_menu_string_w :: proc(menu: Hmenu, id_item: u32, s: Wstring, cch_max: i32, flags: u32) -> i32 ---
- @(link_name="GetMenuState") get_menu_state :: proc(menu: Hmenu, id: u32, flags: u32) -> u32 ---
- @(link_name="GetMenuItemRect") get_menu_item_rect :: proc(wnd: Hwnd, menu: Hmenu, id_item: u32, item: ^Rect) -> Bool ---
-
- @(link_name="SetMenu") set_menu :: proc(wnd: Hwnd, menu: Hmenu) -> Hmenu ---
-
- @(link_name="DrawMenuBar") draw_menu_bar :: proc(wnd: Hwnd) -> Bool ---
- @(link_name="InsertMenuA") insert_menu_a :: proc(menu: Hmenu, position: u32, flags: u32, id_new_item: Uint_Ptr, new_item: cstring) -> Bool ---
- @(link_name="InsertMenuW") insert_menu_w :: proc(menu: Hmenu, position: u32, flags: u32, id_new_item: Uint_Ptr, new_item: Wstring) -> Bool ---
-
- @(link_name="InsertMenuItemA") insert_menu_item_a :: proc(menu: Hmenu, item: u32, by_position: bool, mi: ^Menu_Item_Info_A) -> Bool ---
- @(link_name="InsertMenuItemW") insert_menu_item_w :: proc(menu: Hmenu, item: u32, by_position: bool, mi: ^Menu_Item_Info_W) -> Bool ---
-
- @(link_name="AppendMenuA") append_menu_a :: proc(menu: Hmenu, flags: u32, id_new_item: Uint_Ptr, new_item: cstring) -> Bool ---
- @(link_name="AppendMenuW") append_menu_w :: proc(menu: Hmenu, flags: u32, id_new_item: Uint_Ptr, new_item: Wstring) -> Bool ---
-
- @(link_name="CheckMenuItem") check_menu_item :: proc(menu: Hmenu, id_check_item: u32, check: u32) -> u32 ---
- @(link_name="CheckMenuRadioItem") check_menu_radio_item :: proc(menu: Hmenu, first, last: u32, check: u32, flags: u32) -> Bool ---
-
- @(link_name="GetPropA") get_prop_a :: proc(wnd: Hwnd, s: cstring) -> Handle ---
- @(link_name="GetPropW") get_prop_w :: proc(wnd: Hwnd, s: Wstring) -> Handle ---
-
-
- @(link_name="MessageBoxExA") message_box_ex_a :: proc(wnd: Hwnd, text, caption: cstring, type: u32, language_id: u16) -> i32 ---
- @(link_name="MessageBoxExW") message_box_ex_w :: proc(wnd: Hwnd, text, caption: Wstring, type: u32, language_id: u16) -> i32 ---
-}
-
-Menu_Bar_Info :: struct {
- size: u32,
- bar: Rect,
- menu: Hmenu,
- wnd_menu: Hwnd,
- using fields: bit_field {
- bar_focused: 1,
- focuses: 1,
- },
-}
-
-Menu_Item_Info_A :: struct {
- size: u32,
- mask: u32,
- type: u32,
- state: u32,
- id: u32,
- submenu: Hmenu,
- bmp_checked: Hbitmap,
- bmp_unchecked: Hbitmap,
- item_data: u32,
- type_data: cstring,
- cch: u32,
-}
-Menu_Item_Info_W :: struct {
- size: u32,
- mask: u32,
- type: u32,
- state: u32,
- id: u32,
- submenu: Hmenu,
- bmp_checked: Hbitmap,
- bmp_unchecked: Hbitmap,
- item_data: u32,
- type_data: Wstring,
- cch: u32,
-}
-
-MF_BYCOMMAND :: 0x00000000;
-MF_BYPOSITION :: 0x00000400;
-MF_BITMAP :: 0x00000004;
-MF_CHECKED :: 0x00000008;
-MF_DISABLED :: 0x00000002;
-MF_ENABLED :: 0x00000000;
-MF_GRAYED :: 0x00000001;
-MF_MENUBARBREAK :: 0x00000020;
-MF_MENUBREAK :: 0x00000040;
-MF_OWNERDRAW :: 0x00000100;
-MF_POPUP :: 0x00000010;
-MF_SEPARATOR :: 0x00000800;
-MF_STRING :: 0x00000000;
-MF_UNCHECKED :: 0x00000000;
-
-MB_ABORTRETRYIGNORE :: 0x00000002;
-MB_CANCELTRYCONTINUE :: 0x00000006;
-MB_HELP :: 0x00004000;
-MB_OK :: 0x00000000;
-MB_OKCANCEL :: 0x00000001;
-MB_RETRYCANCEL :: 0x00000005;
-MB_YESNO :: 0x00000004;
-MB_YESNOCANCEL :: 0x00000003;
-
-MB_ICONEXCLAMATION :: 0x00000030;
-MB_ICONWARNING :: 0x00000030;
-MB_ICONINFORMATION :: 0x00000040;
-MB_ICONASTERISK :: 0x00000040;
-MB_ICONQUESTION :: 0x00000020;
-MB_ICONSTOP :: 0x00000010;
-MB_ICONERROR :: 0x00000010;
-MB_ICONHAND :: 0x00000010;
-
-MB_DEFBUTTON1 :: 0x00000000;
-MB_DEFBUTTON2 :: 0x00000100;
-MB_DEFBUTTON3 :: 0x00000200;
-MB_DEFBUTTON4 :: 0x00000300;
-
-MB_APPLMODAL :: 0x00000000;
-MB_SYSTEMMODAL :: 0x00001000;
-MB_TASKMODAL :: 0x00002000;
-
-MB_DEFAULT_DESKTOP_ONLY :: 0x00020000;
-MB_RIGHT :: 0x00080000;
-MB_RTLREADING :: 0x00100000;
-MB_SETFOREGROUND :: 0x00010000;
-MB_TOPMOST :: 0x00040000;
-MB_SERVICE_NOTIFICATION :: 0x00200000;
-
-
-
-@(default_calling_convention = "std")
-foreign gdi32 {
- @(link_name="GetStockObject") get_stock_object :: proc(fn_object: i32) -> Hgdiobj ---;
-
- @(link_name="StretchDIBits")
- stretch_dibits :: proc(hdc: Hdc,
- x_dst, y_dst, width_dst, height_dst: i32,
- x_src, y_src, width_src, header_src: i32,
- bits: rawptr, bits_info: ^Bitmap_Info,
- usage: u32,
- rop: u32) -> i32 ---;
-
- @(link_name="SetPixelFormat") set_pixel_format :: proc(hdc: Hdc, pixel_format: i32, pfd: ^Pixel_Format_Descriptor) -> Bool ---;
- @(link_name="ChoosePixelFormat") choose_pixel_format :: proc(hdc: Hdc, pfd: ^Pixel_Format_Descriptor) -> i32 ---;
- @(link_name="SwapBuffers") swap_buffers :: proc(hdc: Hdc) -> Bool ---;
-
-}
-
-@(default_calling_convention = "std")
-foreign shell32 {
- @(link_name="CommandLineToArgvW") command_line_to_argv_w :: proc(cmd_list: Wstring, num_args: ^i32) -> ^Wstring ---;
-}
-
-@(default_calling_convention = "std")
-foreign winmm {
- @(link_name="timeGetTime") time_get_time :: proc() -> u32 ---;
-}
-
-//objbase.h
-Com_Init :: enum {
- Multi_Threaded = 0x0,
- Apartment_Threaded = 0x2,
- Disable_OLE1_DDE = 0x4,
- Speed_Over_Memory = 0x8,
-};
-
-@(default_calling_convention = "std")
-foreign ole32 {
- @(link_name ="CoInitializeEx") com_init_ex :: proc(reserved: rawptr, co_init: Com_Init) ->Hresult ---;
- @(link_name = "CoUninitialize") com_shutdown :: proc() ---;
-}
-
-get_query_performance_frequency :: proc() -> i64 {
- r: i64;
- query_performance_frequency(&r);
- return r;
-}
-
-HIWORD_W :: proc(wParam: Wparam) -> u16 { return u16((u32(wParam) >> 16) & 0xffff); }
-HIWORD_L :: proc(lParam: Lparam) -> u16 { return u16((u32(lParam) >> 16) & 0xffff); }
-LOWORD_W :: proc(wParam: Wparam) -> u16 { return u16(wParam); }
-LOWORD_L :: proc(lParam: Lparam) -> u16 { return u16(lParam); }
-
-is_key_down :: inline proc(key: Key_Code) -> bool { return get_async_key_state(i32(key)) < 0; }
-
-
-
-
-MAX_PATH :: 0x00000104;
-
-HANDLE_FLAG_INHERIT :: 1;
-HANDLE_FLAG_PROTECT_FROM_CLOSE :: 2;
-
-FILE_BEGIN :: 0;
-FILE_CURRENT :: 1;
-FILE_END :: 2;
-
-FILE_SHARE_READ :: 0x00000001;
-FILE_SHARE_WRITE :: 0x00000002;
-FILE_SHARE_DELETE :: 0x00000004;
-FILE_GENERIC_ALL :: 0x10000000;
-FILE_GENERIC_EXECUTE :: 0x20000000;
-FILE_GENERIC_WRITE :: 0x40000000;
-FILE_GENERIC_READ :: 0x80000000;
-
-FILE_APPEND_DATA :: 0x0004;
-
-STD_INPUT_HANDLE :: -10;
-STD_OUTPUT_HANDLE :: -11;
-STD_ERROR_HANDLE :: -12;
-
-CREATE_NEW :: 1;
-CREATE_ALWAYS :: 2;
-OPEN_EXISTING :: 3;
-OPEN_ALWAYS :: 4;
-TRUNCATE_EXISTING :: 5;
-
-INVALID_FILE_ATTRIBUTES :: -1;
-
-FILE_ATTRIBUTE_READONLY :: 0x00000001;
-FILE_ATTRIBUTE_HIDDEN :: 0x00000002;
-FILE_ATTRIBUTE_SYSTEM :: 0x00000004;
-FILE_ATTRIBUTE_DIRECTORY :: 0x00000010;
-FILE_ATTRIBUTE_ARCHIVE :: 0x00000020;
-FILE_ATTRIBUTE_DEVICE :: 0x00000040;
-FILE_ATTRIBUTE_NORMAL :: 0x00000080;
-FILE_ATTRIBUTE_TEMPORARY :: 0x00000100;
-FILE_ATTRIBUTE_SPARSE_FILE :: 0x00000200;
-FILE_ATTRIBUTE_REPARSE_Point :: 0x00000400;
-FILE_ATTRIBUTE_COMPRESSED :: 0x00000800;
-FILE_ATTRIBUTE_OFFLINE :: 0x00001000;
-FILE_ATTRIBUTE_NOT_CONTENT_INDEXED :: 0x00002000;
-FILE_ATTRIBUTE_ENCRYPTED :: 0x00004000;
-
-FILE_TYPE_DISK :: 0x0001;
-FILE_TYPE_CHAR :: 0x0002;
-FILE_TYPE_PIPE :: 0x0003;
-
-
-Monitor_Info :: struct {
- size: u32,
- monitor: Rect,
- work: Rect,
- flags: u32,
-}
-
-Window_Placement :: struct {
- length: u32,
- flags: u32,
- show_cmd: u32,
- min_pos: Point,
- max_pos: Point,
- normal_pos: Rect,
-}
-
-Bitmap_Info_Header :: struct {
- size: u32,
- width, height: i32,
- planes, bit_count: i16,
- compression: u32,
- size_image: u32,
- x_pels_per_meter: i32,
- y_pels_per_meter: i32,
- clr_used: u32,
- clr_important: u32,
-}
-Bitmap_Info :: struct {
- using header: Bitmap_Info_Header,
- colors: [1]Rgb_Quad,
-}
-
-
-Rgb_Quad :: struct {blue, green, red, reserved: byte}
-
-
-Key_Code :: enum i32 {
- Unknown = 0x00,
-
- Lbutton = 0x01,
- Rbutton = 0x02,
- Cancel = 0x03,
- Mbutton = 0x04,
- Xbutton1 = 0x05,
- Xbutton2 = 0x06,
- Back = 0x08,
- Tab = 0x09,
- Clear = 0x0C,
- Return = 0x0D,
-
- Shift = 0x10,
- Control = 0x11,
- Menu = 0x12,
- Pause = 0x13,
- Capital = 0x14,
- Kana = 0x15,
- Hangeul = 0x15,
- Hangul = 0x15,
- Junja = 0x17,
- Final = 0x18,
- Hanja = 0x19,
- Kanji = 0x19,
- Escape = 0x1B,
- Convert = 0x1C,
- NonConvert = 0x1D,
- Accept = 0x1E,
- ModeChange = 0x1F,
- Space = 0x20,
- Prior = 0x21,
- Next = 0x22,
- End = 0x23,
- Home = 0x24,
- Left = 0x25,
- Up = 0x26,
- Right = 0x27,
- Down = 0x28,
- Select = 0x29,
- Print = 0x2A,
- Execute = 0x2B,
- Snapshot = 0x2C,
- Insert = 0x2D,
- Delete = 0x2E,
- Help = 0x2F,
-
- Num0 = '0',
- Num1 = '1',
- Num2 = '2',
- Num3 = '3',
- Num4 = '4',
- Num5 = '5',
- Num6 = '6',
- Num7 = '7',
- Num8 = '8',
- Num9 = '9',
- A = 'A',
- B = 'B',
- C = 'C',
- D = 'D',
- E = 'E',
- F = 'F',
- G = 'G',
- H = 'H',
- I = 'I',
- J = 'J',
- K = 'K',
- L = 'L',
- M = 'M',
- N = 'N',
- O = 'O',
- P = 'P',
- Q = 'Q',
- R = 'R',
- S = 'S',
- T = 'T',
- U = 'U',
- V = 'V',
- W = 'W',
- X = 'X',
- Y = 'Y',
- Z = 'Z',
-
- Lwin = 0x5B,
- Rwin = 0x5C,
- Apps = 0x5D,
-
- Numpad0 = 0x60,
- Numpad1 = 0x61,
- Numpad2 = 0x62,
- Numpad3 = 0x63,
- Numpad4 = 0x64,
- Numpad5 = 0x65,
- Numpad6 = 0x66,
- Numpad7 = 0x67,
- Numpad8 = 0x68,
- Numpad9 = 0x69,
- Multiply = 0x6A,
- Add = 0x6B,
- Separator = 0x6C,
- Subtract = 0x6D,
- Decimal = 0x6E,
- Divide = 0x6F,
-
- F1 = 0x70,
- F2 = 0x71,
- F3 = 0x72,
- F4 = 0x73,
- F5 = 0x74,
- F6 = 0x75,
- F7 = 0x76,
- F8 = 0x77,
- F9 = 0x78,
- F10 = 0x79,
- F11 = 0x7A,
- F12 = 0x7B,
- F13 = 0x7C,
- F14 = 0x7D,
- F15 = 0x7E,
- F16 = 0x7F,
- F17 = 0x80,
- F18 = 0x81,
- F19 = 0x82,
- F20 = 0x83,
- F21 = 0x84,
- F22 = 0x85,
- F23 = 0x86,
- F24 = 0x87,
-
- Numlock = 0x90,
- Scroll = 0x91,
- Lshift = 0xA0,
- Rshift = 0xA1,
- Lcontrol = 0xA2,
- Rcontrol = 0xA3,
- Lmenu = 0xA4,
- Rmenu = 0xA5,
- ProcessKey = 0xE5,
- Attn = 0xF6,
- Crsel = 0xF7,
- Exsel = 0xF8,
- Ereof = 0xF9,
- Play = 0xFA,
- Zoom = 0xFB,
- Noname = 0xFC,
- Pa1 = 0xFD,
- OemClear = 0xFE,
-}
diff --git a/core/sys/win32/winmm.odin b/core/sys/win32/winmm.odin
new file mode 100644
index 000000000..af017aab4
--- /dev/null
+++ b/core/sys/win32/winmm.odin
@@ -0,0 +1,10 @@
+// +build windows
+package win32
+
+foreign import "system:winmm.lib"
+
+
+@(default_calling_convention = "std")
+foreign winmm {
+ @(link_name="timeGetTime") time_get_time :: proc() -> u32 ---;
+}