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

12
unikernel/duniverse/mirage-bootvar/lib/dune Normal file
View file

@ -0,0 +1,12 @@
(library
(name mirage_bootvar)
(public_name mirage-bootvar)
(modules mirage_bootvar)
(libraries mirage-bootvar.parse-argv mirage-bootvar.backend))
(library
(name mirage_bootvar_backend)
(modules mirage_bootvar_backend)
(public_name mirage-bootvar.backend)
(default_implementation mirage-bootvar.unix)
(virtual_modules mirage_bootvar_backend))

22
unikernel/duniverse/mirage-bootvar/lib/mirage_bootvar.ml Normal file
View file

@ -0,0 +1,22 @@
(*
* Copyright (c) 2016 mirage-bootvar AUTHORS
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
*)
let argv () =
let cmdline = Mirage_bootvar_backend.cmd_line () in
match Mirage_bootvar_parse_argv.(parse cmdline) with
| Ok l -> Array.of_list ("mirage" :: l)
| Error s -> failwith s

19
unikernel/duniverse/mirage-bootvar/lib/mirage_bootvar.mli Normal file
View file

@ -0,0 +1,19 @@
(*
* Copyright (c) 2016 mirage-bootvar AUTHORS
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
*)
val argv : unit -> string array
(** Return an argv-like structure. *)

20
unikernel/duniverse/mirage-bootvar/lib/mirage_bootvar_backend.mli Normal file
View file

@ -0,0 +1,20 @@
(*
* Copyright (c) 2016 mirage-bootvar AUTHORS
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
*)
val cmd_line : unit -> string
(** Return the command line passed to the unikernel. This does not include the
binary name. *)