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

24
ocaml/lib/system/package.ml
View file

@ -1,7 +1,7 @@
open Utilities.Aliases
type install = { interactive: string list; batch: string list }
type manager = { install: install }
type command = { interactive: string list; batch: string list }
type manager = { install: command; remove: command }
type manager_table = { apk: manager }
let table: manager_table = {
@ -9,6 +9,10 @@ let table: manager_table = {
install = {
interactive = [ "apk"; "-i"; "add"; ];
batch = [ "apk"; "--no-interactive"; "add"; ];
};
remove = {
interactive = [ "apk"; "-i"; "del"; ];
batch = [ "apk"; "--no-interactive"; "del"; ];
}
}
}
@ -35,20 +39,28 @@ let merge (schema : Schema.schema) (packages : string list) : Schema.schema =
};
{
name = su_command;
arguments = su schema $ manager.install.interactive @ packages;
arguments = su schema $ manager.remove.interactive @ packages;
status = Unevaluated;
};
]
in
let ran = Process.Fork.run_many commands in
let formatted_ran = Process.Command.format_many ran in
let simulate = schema.input.configuration.main.simulate in
let log_output =
if simulate then
"Would execute:\n" ^
String.concat "\n" (Process.Command.format_many commands)
else
let ran =
if simulate then [] else Process.Fork.run_many commands in
"Executed:\n" ^
String.concat "\n" (Process.Command.format_many ran) in
{
schema with
output =
{
schema.output with
log = "Done:\n" ^ String.concat "\n" formatted_ran;
log = log_output;
};
}

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