Implement most of the spec reusing scribe & nefthera code

This commit is contained in:
Juno Takano 2025-04-09 01:59:32 -03:00
commit 612a98cfde
16 changed files with 225 additions and 25 deletions

View file

@ -1,4 +1,5 @@
(executable
(public_name tori)
(name main)
(libraries tori))
(public_name tori)
(name main)
(libraries tori)
)

View file

@ -1 +1,6 @@
let () = print_endline "Hello, OCaml!"
let () =
match Array.to_list Sys.argv with
| _ :: tail ->
let future = (Tori.Parsers.Argument.interpret Tori.Schema.seed tail) in
if future.output.message <> "" then print_endline future.output.message
| [] -> assert false