Source file `sleep.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Functoria.DSL

type sleep = job

let sleep = Functoria.job
let no_sleep = impl "Mirage_runtime" sleep

let impl sublib =
  let packages =
    [ package ~min:"4.1.0" ~max:"5.0.0" ~sublibs:[ ""; sublib ] "mirage-sleep" ]
  in
  impl ~packages "Mirage_sleep" sleep

let default_sleep =
  if_impl Key.is_unix (impl "unix")
    (if_impl Key.is_unikraft (impl "unikraft") (impl "solo5"))