swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-10-13 09:56:03 +02:00
parent e58398bee5
commit 9f452d257a
1 changed files with 93 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

6
include/parse_config.ml
View file

@ -38,6 +38,7 @@ let duration_value =
let read_file file = In_channel.with_open_bin file In_channel.input_all let read_file file = In_channel.with_open_bin file In_channel.input_all
module Untyped = struct
type item = { type item = {
key: string; key: string;
value: string; value: string;
@ -147,12 +148,13 @@ module Pp_debug = struct
let open Fmt in let open Fmt in
pf ppf "%a" (list ~sep:(any "\n") pp_section) l pf ppf "%a" (list ~sep:(any "\n") pp_section) l
end end
end
let () = let () =
let content = read_file "default.config" in let content = read_file "default.config" in
(*Fmt.pr "%s" content;*) (*Fmt.pr "%s" content;*)
let config = parse content in let config = Untyped.parse content in
(*Fmt.pr "%a@." pp_lines config;*) (*Fmt.pr "%a@." pp_lines config;*)
Fmt.pr "%a@." Pp_debug.pp_config config; Fmt.pr "%a@." Untyped.Pp_debug.pp_config config;
() ()