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

OCaml: Implement configuration parser, bind lexer tokens with schema

Browse source
This commit is contained in:
Juno Takano 2025-05-08 23:10:14 -03:00
commit b0c65f40b1
12 changed files with 187 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -6,16 +6,17 @@ let merge (schema : Schema.schema) (packages : string list) : Schema.schema =
output = { schema.output with main = "No packages provided" };
}
| _ ->
let su_command = schema.input.configuration.main.su_command in
let commands : Process.Command.command list =
[
{
name = "doas";
arguments = [ "doas"; "apk"; "-i"; "add" ] @ packages;
name = su_command;
arguments = [ su_command; "apk"; "-i"; "add" ] @ packages;
status = Unevaluated;
};
{
name = "doas";
arguments = [ "doas"; "apk"; "-i"; "del" ] @ packages;
name = su_command;
arguments = [ su_command; "apk"; "-i"; "del" ] @ packages;
status = Unevaluated;
};
]