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

OCaml: Add noninteractive configuration key

Browse source
This commit is contained in:
Juno Takano 2025-05-16 23:18:23 -03:00
commit 1f16024c9e
4 changed files with 28 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ocaml/lib/schema/schema.ml
View file

@ -17,8 +17,12 @@ type os = Unknown | FreeBSD | Void | Alpine
type host = { os : os; name : string }
type default_bool = Default | true | false
type configuration_key = SuCommand | SuCommandQuoted | Unknown
type main = { su_command : string list; su_command_quoted: default_bool }
type configuration_key = SuCommand | SuCommandQuoted | Interactive | Unknown
type main = {
su_command : string list;
su_command_quoted: default_bool;
interactive: bool
}
type configuration = { main : main; }
type input = { configuration: configuration; }
@ -48,6 +52,7 @@ let origin : schema = {
main = {
su_command = [ "su"; "-c" ];
su_command_quoted = Default;
interactive = true;
};
};
};
@ -72,6 +77,7 @@ let string_of_key key =
match key with
| SuCommand -> "su_command"
| SuCommandQuoted -> "su_command_quoted"
| Interactive -> "interactive"
| Unknown -> "<unknown key>"
let string_of_default_bool (b: default_bool): string =