1 files changed, 25 insertions, 0 deletions
diff --git a/ostick.icl b/ostick.icl
new file mode 100644
index 0000000..563fb2c
--- /dev/null
+++ b/ostick.icl
@@ -0,0 +1,25 @@
+implementation module ostick
+
+import StdEnv
+import ostoolbox
+
+::	Tick	:== Int
+
+pack_tick	::	!Int -> Tick
+pack_tick i = i
+
+unpack_tick	::	!Tick -> Int
+unpack_tick tick = tick
+
+os_getcurrenttick :: !*World -> (!Tick, !*World)
+os_getcurrenttick world
+	= (fst (winGetTickCount 42), world)
+
+winGetTickCount ::  !*OSToolbox -> (!Int, !*OSToolbox)
+winGetTickCount _
+	= code
+	{
+		.inline WinGetTickCount
+			ccall WinGetTickCount "I-II"
+		.end
+	}