jutty/tori-rs
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

16
ocaml/bin/main.ml
View file

@ -1,9 +1,23 @@
open Tori.Utilities.Aliases
module ConfigLexer = Tori.Parsers.Config.Lexer
module ConfigParser = Tori.Parsers.Config.Parser
let config_file =
ConfigLexer.read $ Unix.getenv "HOME" ^ "/.config/tori/tori.conf"
let () =
(* TODO: extract *)
let tokens = ConfigLexer.scan config_file in
(* elog $ ConfigLexer.string_of_tokens tokens; *)
let config = ConfigParser.parse (List.concat tokens) in
(* elog $ ConfigParser.string_of_config config; *)
match Array.to_list Sys.argv with
| _ :: tail ->
let future = Tori.Parsers.Argument.interpret Tori.Schema.seed tail in
let past = ConfigParser.apply Tori.Schema.origin config in
let future = Tori.Parsers.Argument.interpret past tail in
if future.output.main <> "" then print_endline future.output.main;
if future.output.log <> "" then elog future.output.log;
exit future.meta.status