jutty/tori-rs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add status code to spec and use it on every exit

Browse source
This commit is contained in:
Juno Takano 2025-04-13 16:38:25 -03:00
commit 95277a6b65
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ocaml/lib/parsers/argument.ml
View file

@ -2,7 +2,6 @@ let interpret (past: Schema.schema) (input: string list): Schema.schema =
let future = { past with output = { message = "" } } in
(* say is useful when the only change to future is the output message *)
let say (message: string) =
{ future with output = { message = message } } in
@ -19,5 +18,12 @@ let interpret (past: Schema.schema) (input: string list): Schema.schema =
say (Schema.format_version future.meta.version)
| ("help" | "-h" | "--help") :: _ -> say future.meta.help.long
| head :: _ ->
say ("Unrecognized command: " ^ head ^ "\n" ^ future.meta.help.short)
{ future with
output = {
message =
("Unrecognized command: " ^ head ^ "\n"
^ future.meta.help.short)
};
meta = { future.meta with status = 1 };
}
| _ -> future