2019-06-15 13:54:22 +03:00
|
|
|
module System
|
|
|
|
|
|
2019-07-03 15:04:25 +03:00
|
|
|
import Data.So
|
|
|
|
|
|
2019-06-15 13:54:22 +03:00
|
|
|
%cg chicken (use posix)
|
|
|
|
|
|
|
|
|
|
export
|
|
|
|
|
sleep : Int -> IO ()
|
|
|
|
|
sleep sec = schemeCall () "blodwen-sleep" [sec]
|
|
|
|
|
|
2019-07-03 15:04:25 +03:00
|
|
|
export
|
|
|
|
|
usleep : (x : Int) -> So (x >= 0) => IO ()
|
|
|
|
|
usleep usec = schemeCall () "blodwen-usleep" [usec]
|
|
|
|
|
|
2019-06-15 13:54:22 +03:00
|
|
|
export
|
|
|
|
|
getArgs : IO (List String)
|
|
|
|
|
getArgs = schemeCall (List String) "blodwen-args" []
|
|
|
|
|
|
2019-07-09 00:46:20 +03:00
|
|
|
export
|
|
|
|
|
time : IO Integer
|
|
|
|
|
time = schemeCall Integer "blodwen-time" []
|
