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 /ostime.dcl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'ostime.dcl')
| -rw-r--r-- | ostime.dcl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/ostime.dcl b/ostime.dcl new file mode 100644 index 0000000..1c36a8d --- /dev/null +++ b/ostime.dcl @@ -0,0 +1,30 @@ +definition module ostime
+
+// Clean Object I/O library, version 1.2
+
+import StdOverloaded
+import ostoolbox
+
+:: OSTime
+
+osMaxTime :: OSTime
+
+osGetTime :: !*OSToolbox -> (!OSTime,!*OSToolbox)
+// osGetTime returns the current OS time
+
+osWait :: !Int .x !*OSToolbox -> (.x, !*OSToolbox)
+// osWait waits atleast the given time (in milliseconds).
+
+osGetBlinkInterval :: !*OSToolbox -> (!Int, !*OSToolbox)
+// osGetBlinkInterval returns the recommended blink interval time of a cursor (in milliseconds).
+
+osGetCurrentTime :: !*OSToolbox -> (!(!Int,!Int,!Int),!*OSToolbox)
+// osGetCurrentTime returns current (hours,minutes,seconds).
+
+osGetCurrentDate :: !*OSToolbox -> (!(!Int,!Int,!Int,!Int),!*OSToolbox)
+// osGetCurrentTime returns current (year,month,day,day_of_week).
+
+instance - OSTime // Calculate difference between arg 1 and arg 2
+instance < OSTime // True iff arg 1 < arg 2
+instance toInt OSTime // Coerce OSTime to Integer (always positive or zero)
+instance fromInt OSTime // Coerce Int to OSTime (Integer will be made zero if negative)
|