2025-11-11 02:07:51 +01:00 · 2025-11-11 02:07:51 +01:00 · 2f3113f55d
commit 2f3113f55d
parent aa2ff7b2f0
11742 changed files with 1223940 additions and 0 deletions
--- a/unikernel/duniverse/dune_/bin/exit_code.ml
+++ b/unikernel/duniverse/dune_/bin/exit_code.ml
@ -0,0 +1,20 @@
+type t =
+  | Success
+  | Error
+  | Signal
+
+let all = [ Success; Error; Signal ]
+
+let code = function
+  | Success -> 0
+  | Error -> 1
+  | Signal -> 130
+;;
+
+let doc = function
+  | Success -> "on success."
+  | Error -> "if an error happened."
+  | Signal -> "if it was interrupted by a signal."
+;;
+
+let info e = Cmdliner.Cmd.Exit.info (code e) ~doc:(doc e)