diff options
| author | Camil Staps | 2015-07-01 17:36:37 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-01 17:36:37 +0200 |
| commit | 7553b7f9d4dddc2235c137d41de8ce22547bebe3 (patch) | |
| tree | 34f8fb4b36640317d728a60586424f67f9befbe7 /ostick.icl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'ostick.icl')
| -rw-r--r-- | ostick.icl | 25 |
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
+ }
|