Add handling of binary numbers 0b1001

programs/main.kl

@@ -2,6 +2,24 @@
 #load "gdi32.kl"
 #load "user32.kl"
 
+String16 :: struct;; str: *U16; len: S64
+String32 :: struct;; str: *U32; len: S64
+UTF32_Result :: struct
+  out_str: U32
+  advance: S64
+  error  : Bool
+UTF16_Result :: struct
+  out_str: [2]U16
+  len    : S32
+  error  : Bool
+
+BINARY :: 0b1001
+
+utf8_to_utf32 :: (c: *U8, max_advance: S64): UTF32_Result
+  result: UTF32_Result
+  return result
+
+
 Vec2I :: struct;; x: S32; y: S32
 Vec2  :: struct;; x: F32; y: F32
 
@@ -37,13 +55,11 @@ create_bitmap :: (size: Vec2I, bottom_up: Bool = true): Windows_Bitmap
 
 window_procedure :: (hwnd: HWND, msg: UINT, wparam: WPARAM, lparam: LPARAM): LRESULT
   if msg == WM_DESTROY
-    pass
+    PostQuitMessage(0)
+    return 0
+  else;; return DefWindowProc(hwnd, msg, wparam, lparam)
 
 main :: (argc: int, argv: **char): int
   bitmap := create_bitmap({1280, 720})
-  WNDCLASS
-  // memory := os.reserve(size = 10000)
-  // os.commit(&memory, 1000)
-  // os.release(&memory)
-  // os.print("Hello world")
+