Source file section.ml

(**********************************************************************************************)
(*                                                                                            *)
(* This file is part of shakuhachi: a music collection manager                                *)
(* Copyright (C) 2025 Yves Ndiaye                                                             *)
(*                                                                                            *)
(* shakuhachi is free software: you can redistribute it and/or modify it under the terms      *)
(* of the GNU General Public License as published by the Free Software Foundation,            *)
(* either version 3 of the License, or (at your option) any later version.                    *)
(*                                                                                            *)
(* shakuhachi is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;    *)
(* without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR           *)
(* PURPOSE.  See the GNU General Public License for more details.                             *)
(* You should have received a copy of the GNU General Public License along with shakuhachi.   *)
(* If not, see <http://www.gnu.org/licenses/>.                                                *)
(*                                                                                            *)
(**********************************************************************************************)

type t = { name : string; values : (string * string) list }

let assoc key section = List.assoc_opt key section.values
let init name values = { name; values }

let to_channel oc section =
  let { name; values } = section in
  let () = Printf.fprintf oc ".%s\n" name in
  let () =
    List.iter
      (fun (key, value) -> Printf.fprintf oc "%s = %s\n" key value)
      values
  in
  let () = Printf.fprintf oc "\n" in
  ()

let name t = t.name
let values t = t.values