include/parse_config.ml

@@ -38,47 +38,48 @@ let duration_value =
 
 let read_file file = In_channel.with_open_bin file In_channel.input_all
 
-type item = {
+module Untyped = struct
+  type item = {
     key: string;
     value: string;
-}
+  }
 
-type line =
+  type line =
     | Blank
     | Comment of string
     | Header of string
     | Item of item
 
-type section = {
+  type section = {
     header: string;
     items: item list;
-}
+  }
 
-open Angstrom
+  open Angstrom
 
-let is_eol = function '\n' | '\r' -> true | _ -> false
+  let is_eol = function '\n' | '\r' -> true | _ -> false
-let is_whitespace = function ' ' | '\t' -> true | _ -> false
+  let is_whitespace = function ' ' | '\t' -> true | _ -> false
-let whitespace = skip_while is_whitespace
+  let whitespace = skip_while is_whitespace
 
-let id =
+  let id =
     let ident_char = function
       | 'a' .. 'z' | 'A' .. 'Z' | '0' .. '9' | '_' | '-' -> true
       | _ -> false
     in
     take_while1 ident_char >>| String.lowercase_ascii
 
-let take_till_end_of_line =
+  let take_till_end_of_line =
     take_till is_eol >>= fun s -> return s <* end_of_line
 
-let blank = whitespace <* end_of_line >>| fun () -> Blank
+  let blank = whitespace <* end_of_line >>| fun () -> Blank
 
-let comment =
+  let comment =
     whitespace *> (char '#' <|> char '%') *> take_till_end_of_line >>| fun s ->
     Comment s
 
-let header = char '[' *> id <* char ']' <* end_of_line >>| fun s -> Header s
+  let header = char '[' *> id <* char ']' <* end_of_line >>| fun s -> Header s
 
-let item_value =
+  let item_value =
     let unquoted_value =
       take_while1 (fun c -> not (is_whitespace c || is_eol c))
     in
@@ -92,16 +93,16 @@ let item_value =
     in
     quoted_value <|> unquoted_value
 
-let item =
+  let item =
     lift2
       (fun key value -> Item { key; value })
       id
       (whitespace *> char '=' *> whitespace *> item_value)
     <* end_of_line
 
-let config = many (choice [ blank; comment; header; item ]) <* end_of_input
+  let config = many (choice [ blank; comment; header; item ]) <* end_of_input
 
-let fold_sections l =
+  let fold_sections l =
     let rec loop section_l item_l l =
       match l with
       | [] ->
@@ -115,12 +116,12 @@ let fold_sections l =
     in
     loop [] [] (List.rev l)
 
-let parse s =
+  let parse s =
     match parse_string ~consume:All config s with
     | Error msg -> Fmt.failwith "config parse error: %s" msg
     | Ok v -> fold_sections v
 
-module Pp_debug = struct
+  module Pp_debug = struct
     let pp_item ppf { key; value } =
       let open Fmt in
       match String.contains value '"' || String.contains value ' ' with
@@ -146,13 +147,14 @@ module Pp_debug = struct
     let pp_config ppf l =
       let open Fmt in
       pf ppf "%a" (list ~sep:(any "\n") pp_section) l
+  end
 end
 
 let () =
   let content = read_file "default.config" in
   (*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_debug.pp_config config;
+  Fmt.pr "%a@." Untyped.Pp_debug.pp_config config;
 
   ()