Working on code in language, fixing bugs

programs/Windows.kl

@@ -1,54 +0,0 @@
-DWORD :: U32
-LPCSTR :: *char
-LPSTR :: *char
-LPCWSTR :: *U16
-HWND :: *void
-HMENU :: *void
-HINSTANCE :: *void
-HBITMAP :: *void
-HDC :: *void
-LPVOID :: *void
-SIZE_T :: U64
-BOOL :: int
-HANDLE :: *void
-VOID :: void
-HICON :: HANDLE
-HCURSOR :: HANDLE
-HBRUSH :: HANDLE
-LPDWORD :: *DWORD
-LRESULT :: S64
-WPARAM :: U64
-LPARAM :: S64
-BYTE :: U8 // @todo? unsigned char
-WORD :: S16 // short
-LONG :: S32 // @todo long
-UINT :: U32 // @todo uint
-ATOM :: WORD
-
-MEM_COMMIT :: 0x00001000
-MEM_RESERVE :: 0x00002000
-MEM_RESET :: 0x00080000
-MEM_RESET_UNDO :: 0x1000000
-MEM_DECOMMIT :: 0x00004000
-MEM_RELEASE :: 0x00008000
-
-PAGE_NOACCESS :: 1
-PAGE_READONLY :: 2
-PAGE_READWRITE :: 4
-PAGE_WRITECOPY :: 8
-PAGE_EXECUTE :: 0x10; PAGE_EXECUTE_READ :: 0x20; PAGE_EXECUTE_READWRITE :: 0x40; PAGE_EXECUTE_WRITECOPY :: 0x80
-VirtualAlloc :: #foreign (lpAddress: LPVOID, dwSize: SIZE_T, flAllocationType: DWORD, flProtect: DWORD): LPVOID
-VirtualFree  :: #foreign (lpAddress: LPVOID, dwSize: SIZE_T, dwFreeType: DWORD): BOOL
-
-HEAP_ZERO_MEMORY :: 0x8; HEAP_NO_SERIALIZE :: 0x1; HEAP_GENERATE_EXCEPTIONS :: 0x4
-GetProcessHeap   :: #foreign (): HANDLE
-HeapAlloc        :: #foreign (hHeap: HANDLE, dwFlags: DWORD, dwByte: SIZE_T): LPVOID
-HeapFree         :: #foreign (hHeap: HANDLE, dwFlags: DWORD, lpMe: LPVOID): BOOL
-
-STD_INPUT_HANDLE  :: 4294967286//(-10)->DWORD
-STD_OUTPUT_HANDLE :: 4294967285//(-11)->DWORD
-//STD_ERROR_HANDLE  :: (-12)->DWORD
-GetStdHandle  :: #foreign (nStdHandle: DWORD): HANDLE
-WriteConsoleA :: #foreign (hConsoleOutput: HANDLE,lpBuffer: *VOID,nNumberOfCharsToWrite: DWORD,lpNumberOfCharsWritten: LPDWORD,lpReserve: LPVOID): BOOL
-WriteConsoleW :: #foreign (hConsoleOutput: HANDLE,lpBuffer: *VOID,nNumberOfCharsToWrite: DWORD,lpNumberOfCharsWritten: LPDWORD,lpReserve: LPVOID): BOOL
-GetLastError  :: #foreign (): DWORD

programs/base.kl

@@ -1,4 +1,4 @@
-Os    :: #import "os.kl"
+Os    :: #import "os_windows.kl"
 SizeU :: #strict U64
 arena_di: U64
 
@@ -150,3 +150,17 @@ string_to_string16 :: (arena: *Arena, in: String): String16
 
   result.str[result.len] = 0
   return result
+
+test_unicode :: (arena: *Arena)
+  string := "    豈 更 車 賈 滑 串 句 龜 龜 契 金 喇 奈 懶 癩 羅 蘿 螺 裸 邏 樂 洛 烙 珞 落 酪 駱 亂 卵 欄 爛 蘭 鸞 嵐 濫 藍 襤 拉 臘 蠟 廊 朗 浪 狼 郎 來 冷 勞 擄 櫓 爐 盧 老 蘆 虜 路 露 魯 鷺 碌 祿 綠 菉 錄 鹿 論 壟 弄 籠 聾 牢 磊 賂 雷 壘 屢 樓 淚 漏 累 縷 陋 勒 肋 凜 凌 稜 綾 菱 陵 讀 拏 樂 諾 丹 寧 怒 率 異 北 磻 便 復 不 泌 數 索 參 塞 省 葉 說 殺 辰 沈 拾 若 掠 略 亮 兩 凉 梁 糧 良 諒 量 勵 ..."
+  string_result := string_to_string16(arena, string)
+  print(string_result)
+
+  s32, s32_len := utf8_to_utf32(&"A"[0], 1)
+  assert(s32 == 'A, "Invalid decode") // '
+
+  s32_2, s32_len_2 := utf8_to_utf32(&"ć"[0], 2)
+  assert(s32_2 == 0x107, "Invalid decode")
+
+  s32_3, s32_len_3 := utf8_to_utf32(&"ó"[0], 2)
+  assert(s32_3 == 0xF3, "Invalid decode")

programs/gdi32.kl

@@ -1,4 +1,4 @@
-#import "Windows.kl"
+#import "kernel32.kl"
 RBGQUAD            :: struct;; rgbBlue: BYTE; rgbGreen: BYTE; rgbRed: BYTE; rgbReserved: BYTE
 BITMAPINFOHEADER   :: struct;; biSize: DWORD; biWidth: LONG; biHeight: LONG; biPlanes: WORD; biBitCount: WORD; biCompression: DWORD; biSizeImage: DWORD; biXPelsPerMeter: LONG; biYPelsPerMeter: LONG; biClrUsed: DWORD; biClrImportant: DWORD
 BITMAPINFO         :: struct;; bmiHeader: BITMAPINFOHEADER; bmiColors: [1]RBGQUAD

programs/main.kl

@@ -1,31 +1,13 @@
 #import "base.kl"
+#import "os_windows.kl"
+#import "kernel32.kl"
 #import "gdi32.kl"
 #import "user32.kl"
-#import "os.kl"
-#import "Windows.kl"
-
-process_heap: HANDLE
-allocate :: (size: U64): *void
-  if process_heap == 0
-    process_heap = GetProcessHeap()
-  return HeapAlloc(process_heap, 0, size)
-
-test_unicode :: (arena: *Arena)
-  string := "    豈 更 車 賈 滑 串 句 龜 龜 契 金 喇 奈 懶 癩 羅 蘿 螺 裸 邏 樂 洛 烙 珞 落 酪 駱 亂 卵 欄 爛 蘭 鸞 嵐 濫 藍 襤 拉 臘 蠟 廊 朗 浪 狼 郎 來 冷 勞 擄 櫓 爐 盧 老 蘆 虜 路 露 魯 鷺 碌 祿 綠 菉 錄 鹿 論 壟 弄 籠 聾 牢 磊 賂 雷 壘 屢 樓 淚 漏 累 縷 陋 勒 肋 凜 凌 稜 綾 菱 陵 讀 拏 樂 諾 丹 寧 怒 率 異 北 磻 便 復 不 泌 數 索 參 塞 省 葉 說 殺 辰 沈 拾 若 掠 略 亮 兩 凉 梁 糧 良 諒 量 勵 ..."
-  string_result := string_to_string16(arena, string)
-  print(string_result)
-
-  s32, s32_len := utf8_to_utf32(&"A"[0], 1)
-  assert(s32 == 'A, "Invalid decode") // '
-
-  s32_2, s32_len_2 := utf8_to_utf32(&"ć"[0], 2)
-  assert(s32_2 == 0x107, "Invalid decode")
-
-  s32_3, s32_len_3 := utf8_to_utf32(&"ó"[0], 2)
-  assert(s32_3 == 0xF3, "Invalid decode")
+#import "winmm.kl"
 
 Vec2I :: struct;; x: S64; y: S64
 Vec2  :: struct;; x: F32; y: F32
+
 Windows_Bitmap :: struct
   size: Vec2I
   data: *U32
@@ -67,7 +49,11 @@ window_procedure :: (hwnd: HWND, msg: UINT, wparam: WPARAM, lparam: LPARAM): LRE
     return 0
   else;; return DefWindowProcW(hwnd, msg, wparam, lparam)
 
+_gcvt :: #foreign (value: F64, digits: int, buffer: *char): *char
 WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nShowCmd: int): int
+  if good_scheduling := false, timeBeginPeriod(1) == TIMERR_NOERROR
+    good_scheduling = true
+
   arena: Arena
   window_name := string_to_string16(&arena, "Have a wonderful day! 豈 更 車 賈 滑 串 句 龜 ")
   w := WNDCLASSW{
@@ -77,6 +63,8 @@ WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nS
   }
   assert(RegisterClassW(&w) != 0)
 
+  buff: *char = allocate(100)
+
   screen_size: Vec2I = {1280, 720}
   window := CreateWindowExW(
     dwExStyle = 0, hWndParent = 0, hMenu = 0, lpParam = 0,
@@ -91,6 +79,11 @@ WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nS
 
   window_dc := GetDC(window)
   bitmap := create_bitmap(screen_size)
+
+  requested_time_per_frame := 1.0 / 60.0
+  frame_start_time := time()
+  frame_number: S64
+  total_time: F64
   for app_is_running
     msg: MSG
     for PeekMessageW(&msg, window, 0, 0, PM_REMOVE) > 0
@@ -104,3 +97,23 @@ WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nS
     SelectObject(bitmap.hdc, bitmap.dib)
     BitBlt(window_dc, 0, 0, (bitmap.size.x)->int, (bitmap.size.y)->int, bitmap.hdc, 0, 0, SRCCOPY)
 
+
+    frame_time := time() - frame_start_time
+    _gcvt(frame_time, 10, buff)
+    OutputDebugStringA("\n")
+    OutputDebugStringA(buff)
+    if frame_time < requested_time_per_frame
+      if good_scheduling
+        time_to_sleep := (requested_time_per_frame - frame_time) * 1000
+        if time_to_sleep > 0
+          time_to_sleep_dword := time_to_sleep->DWORD
+          // @check if time_to_sleep_dword truncates down
+          Sleep(time_to_sleep_dword)
+
+        new_frame_time := time()
+        for new_frame_time < requested_time_per_frame
+          new_frame_time = time() - frame_start_time
+
+        frame_time = new_frame_time
+        frame_number += 1
+        total_time += frame_time

programs/os.kl

@@ -1,44 +0,0 @@
-#import "Windows.kl"
-#import "base.kl"
-
-PAGE_SIZE :: 4096
-Memory :: struct
-  commit : SizeU
-  reserve: SizeU
-  data   : *U8
-
-reserve :: (size: SizeU): Memory
-  result := Memory{reserve=align_up(size, PAGE_SIZE)}
-  result.data = VirtualAlloc(
-    flProtect        = PAGE_READWRITE,
-    dwSize           = result.reserve,
-    flAllocationType = MEM_RESERVE,
-    lpAddress        = 0)->*U8
-  return result
-
-commit :: (m: *Memory, size: SizeU): Bool
-  commit_size := align_up(size, PAGE_SIZE)
-  total_commit := m.commit + commit_size
-  clamped_commit := clamp_top_sizeu(total_commit, m.reserve)
-  adjusted_commit := clamped_commit - m.commit
-  if adjusted_commit != 0
-    result := VirtualAlloc(
-      lpAddress        = (m.data + m.commit)->*void,
-      dwSize           = adjusted_commit,
-      flAllocationType = MEM_COMMIT,
-      flProtect        = PAGE_READWRITE,
-    )
-    m.commit += adjusted_commit
-    return true
-  return false
-
-release :: (m: *Memory)
-  result := VirtualFree(m.data->*void, 0, MEM_RELEASE)
-  if result != 0
-    m.data    = 0
-    m.commit  = 0
-    m.reserve = 0
-
-print :: (string: String16)
-  handle := GetStdHandle(STD_OUTPUT_HANDLE)
-  WriteConsoleW(handle, (string.str)->*void, string.len->DWORD, 0, 0)

programs/user32.kl

@@ -1,4 +1,4 @@
-#import "Windows.kl"
+#import "kernel32.kl"
 WNDPROC         :: (hwnd: HWND, uMsg: UINT, wParam: WPARAM, lParam: LPARAM): LRESULT
 WNDCLASSW       :: struct;; style: UINT; lpfnWndProc: WNDPROC; cbClsExtra: int; cbWndExtra: int; hInstance: HINSTANCE; hIcon: HICON; hCursor: HCURSOR; hbrBackground: HBRUSH; lpszMenuName: LPCWSTR; lpszClassName: LPCWSTR
 MSG             :: struct;; hwnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM; time: DWORD; pt: POINT; lPrivate: DWORD