mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-19 00:15:39 +03:00
05752988e6
Not much there at the moment, but being able to specify the include directories is already pretty useful to run clerk directly e.g. on `catala-examples`. (you had to explicitely specify variable `CATALA_INCLUDE`, the `-I` flags or to go through `make` without that)
113 lines
3.8 KiB
OCaml
113 lines
3.8 KiB
OCaml
(* This file is part of the Catala build system, a specification language for
|
|
tax and social benefits computation rules. Copyright (C) 2024 Inria,
|
|
contributors: Louis Gesbert <louis.gesbert@inria.fr>
|
|
|
|
Licensed under the Apache License, Version 2.0 (the "License"); you may not
|
|
use this file except in compliance with the License. You may obtain a copy of
|
|
the License at
|
|
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
|
|
|
Unless required by applicable law or agreed to in writing, software
|
|
distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
|
|
WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
|
|
License for the specific language governing permissions and limitations under
|
|
the License. *)
|
|
|
|
open Catala_utils
|
|
open Otoml
|
|
|
|
type t = {
|
|
catala_opts : string list;
|
|
build_dir : File.t;
|
|
include_dirs : File.t list;
|
|
}
|
|
|
|
let default = { catala_opts = []; build_dir = "_build"; include_dirs = [] }
|
|
|
|
let toml_to_config toml =
|
|
{
|
|
catala_opts = Helpers.find_strings_exn toml ["build"; "catala_opts"];
|
|
build_dir = Helpers.find_string_exn toml ["build"; "build_dir"];
|
|
include_dirs = Helpers.find_strings_exn toml ["project"; "include_dirs"];
|
|
}
|
|
|
|
let config_to_toml t =
|
|
table
|
|
[
|
|
( "build",
|
|
table
|
|
[
|
|
"catala_opts", array (List.map string t.catala_opts);
|
|
"build_dir", string t.build_dir;
|
|
] );
|
|
"project", table ["include_dirs", array (List.map string t.include_dirs)];
|
|
]
|
|
|
|
let default_toml = config_to_toml default
|
|
|
|
(* joins default and supplied conf, ensuring types match. The filename is for
|
|
error reporting *)
|
|
let rec join ?(rpath = []) fname t1 t2 =
|
|
match t1, t2 with
|
|
| TomlString _, TomlString _
|
|
| TomlInteger _, TomlInteger _
|
|
| TomlFloat _, TomlFloat _
|
|
| TomlBoolean _, TomlBoolean _
|
|
| TomlOffsetDateTime _, TomlOffsetDateTime _
|
|
| TomlLocalDateTime _, TomlLocalDateTime _
|
|
| TomlLocalDate _, TomlLocalDate _
|
|
| TomlLocalTime _, TomlLocalTime _
|
|
| TomlArray _, TomlArray _
|
|
| TomlTableArray _, TomlTableArray _ ->
|
|
t2
|
|
| TomlTable tt1, TomlTable tt2 | TomlInlineTable tt1, TomlInlineTable tt2 ->
|
|
let m1 = String.Map.of_list tt1 in
|
|
let m2 = String.Map.of_list tt2 in
|
|
TomlTable
|
|
(String.Map.merge
|
|
(fun key t1 t2 ->
|
|
match t1, t2 with
|
|
| None, Some _ ->
|
|
Message.error
|
|
"While parsing %a: invalid key @{<red>%S@} at @{<bold>%s@}"
|
|
File.format fname key
|
|
(if rpath = [] then "file root"
|
|
else String.concat "." (List.rev rpath))
|
|
| Some t1, Some t2 -> Some (join ~rpath:(key :: rpath) fname t1 t2)
|
|
| Some t1, None -> Some t1
|
|
| None, None -> assert false)
|
|
m1 m2
|
|
|> String.Map.bindings)
|
|
| _ ->
|
|
Message.error
|
|
"While parsing %a: Wrong type for config value @{<bold>%s@}, was \
|
|
expecting @{<bold>%s@}"
|
|
File.format fname
|
|
(String.concat "." (List.rev rpath))
|
|
(match t1 with
|
|
| TomlString _ -> "a string"
|
|
| TomlInteger _ -> "an integer"
|
|
| TomlFloat _ -> "a float"
|
|
| TomlBoolean _ -> "a boolean"
|
|
| TomlOffsetDateTime _ -> "an offsetdatetime"
|
|
| TomlLocalDateTime _ -> "a localdatetime"
|
|
| TomlLocalDate _ -> "a localdate"
|
|
| TomlLocalTime _ -> "a localtime"
|
|
| TomlArray _ | TomlTableArray _ -> "an array"
|
|
| TomlTable _ | TomlInlineTable _ -> "a table")
|
|
|
|
let read f =
|
|
let toml =
|
|
try Parser.from_file f
|
|
with Parse_error (Some (li, col), msg) ->
|
|
Message.error
|
|
~pos:(Pos.from_info f li col li (col + 1))
|
|
"Error in Clerk configuration:@ %a" Format.pp_print_text msg
|
|
in
|
|
toml_to_config (join f default_toml toml)
|
|
|
|
let write f t =
|
|
let toml = config_to_toml t in
|
|
File.with_out_channel f @@ fun oc -> Printer.to_channel oc toml
|