tori/iganaq
tori/iganaq
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

OCaml: Add simulate (dry run) configuration option

Browse source
This commit is contained in:
Juno Takano 2025-05-17 00:48:49 -03:00
commit 9e9a9566db
5 changed files with 42 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ocaml/lib/system/process/command.ml
View file

@ -5,15 +5,15 @@ type schema = Schema.schema
type status = Exit of int | Unevaluated
type command = { name : string; arguments : string list; status : status }
let format (command : command) : string =
command.name ^ " with arguments: "
^ String.concat " " command.arguments
^ " and result "
^ " ("
^
match command.status with
| Exit n -> str_int n
| Unevaluated -> "Not evaluated"
(match command.status with
| Exit n -> "Exit status " ^ str_int n
| Unevaluated -> "Not evaluated")
^ ")"
let format_many (commands : command list) : string list =
List.map format commands