swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
unikernel/duniverse/digestif/mirage/_tags Normal file
View file

@ -0,0 +1 @@
true: package(digestif.c)

5
unikernel/duniverse/digestif/mirage/config.ml Normal file
View file

@ -0,0 +1,5 @@
open Mirage
let main = foreign "Unikernel.Make" (console @-> job)
let packages = [ package "digestif" ]
let () = register ~packages "digestif-test" [ main $ default_console ]

7
unikernel/duniverse/digestif/mirage/unikernel.ml Normal file
View file

@ -0,0 +1,7 @@
module Make (Console : Mirage_console.S) = struct
let log console fmt = Format.kasprintf (Console.log console) fmt
let start console =
let hash = Digestif.SHA1.digest_string "Hello World!" in
log console "%a" Digestif.SHA1.pp hash
end