Source file plugin.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
(*****************************************************************************)
(*                                                                           *)
(*  Copyright (C) 2026 Yves Ndiaye                                           *)
(*                                                                           *)
(* This Source Code Form is subject to the terms of the Mozilla Public       *)
(* License, v. 2.0. If a copy of the MPL was not distributed with this       *)
(* file, You can obtain one at https://mozilla.org/MPL/2.0/.                 *)
(*                                                                           *)
(*****************************************************************************)

module Config = struct
  include Map.Make (String)

  type nonrec t = string t
end

type t = string * Config.t

let prefix = "plugins."
let init ~name ~config : t = (name, config)

let of_section (section : Section.t) =
  let section_name = Section.name section in
  let plugin_name =
    match String.split_on_char '.' section_name with
    (* Section parser already drop the leading . *)
    | "plugins" :: q ->
        String.concat "." q
    | _ ->
        (* should append *) section_name
  in
  let values = Section.values section in
  let values = Config.of_seq (List.to_seq values) in
  (plugin_name, values)

let section_matches section = String.starts_with ~prefix section
let name t = fst t
let config t = snd t

let to_section t =
  let name, values = t in
  let values = Config.bindings values in
  let section_name = prefix ^ name in
  Section.init section_name values