mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-01 06:12:57 +03:00
22 lines
393 B
Idris
22 lines
393 B
Idris
module System
|
|
|
|
import Data.So
|
|
|
|
%cg chicken (use posix)
|
|
|
|
export
|
|
sleep : Int -> IO ()
|
|
sleep sec = schemeCall () "blodwen-sleep" [sec]
|
|
|
|
export
|
|
usleep : (x : Int) -> So (x >= 0) => IO ()
|
|
usleep usec = schemeCall () "blodwen-usleep" [usec]
|
|
|
|
export
|
|
getArgs : IO (List String)
|
|
getArgs = schemeCall (List String) "blodwen-args" []
|
|
|
|
export
|
|
time : IO Integer
|
|
time = schemeCall Integer "blodwen-time" []
|