You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
316 B
14 lines
316 B
external success_code : unit -> int = "get_success_code"
|
|
external failure_code : unit -> int = "get_failure_code"
|
|
|
|
let success_code = success_code ()
|
|
let failure_code = failure_code ()
|
|
|
|
let success () =
|
|
exit success_code
|
|
|
|
let failure () =
|
|
exit failure_code
|
|
|
|
let is_posix =
|
|
success_code = 0 && failure_code = 1
|
|
|