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

OCaml: Add separate logging channels and a dedicated 'command' type

Browse source
This commit is contained in:
Juno Takano 2025-04-13 22:12:44 -03:00
commit ac3dbe4d30
9 changed files with 72 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,9 +1,9 @@
let interpret (past: Schema.schema) (input: string list): Schema.schema =
let future = { past with output = { message = "" } } in
let future: Schema.schema = { past with output = { past.output with main = "" } } in
let say (message: string) =
{ future with output = { message = message } } in
let say (message: string): Schema.schema =
{ future with output = { future.output with main = message }} in
(*
TODO: return a schema with orders, instead of calling side-effects
@ -20,7 +20,7 @@ let interpret (past: Schema.schema) (input: string list): Schema.schema =
| head :: _ ->
{ future with
output = {
message =
future.output with main =
("Unrecognized command: " ^ head ^ "\n"
^ future.meta.help.short)
};