1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Functoria.DSL
type ptime = job
let ptime = Functoria.job
let no_ptime = impl "Mirage_runtime" ptime
let impl sublib =
let packages =
[ package ~min:"5.1.0" ~max:"6.0.0" ~sublibs:[ ""; sublib ] "mirage-ptime" ]
in
impl ~packages "Mirage_ptime" ptime
let default_ptime =
if_impl Key.is_unix (impl "unix")
(if_impl Key.is_unikraft (impl "unikraft") (impl "solo5"))
let mock_ptime = impl "mock"