CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-09 22:16:10 +03:00
Code Issues Projects Releases Wiki Activity

feat(plugins/jsoo): now generate both .ml and _web_api.ml file

Browse Source
This commit is contained in:
Emile Rolley 2022-07-19 18:28:24 +02:00
parent 59f50f95e8
commit cd33ed9de7
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/plugins/jsoo.ml
View File

@ -417,18 +417,29 @@ let apply'
(output_file : string option) (output_file : string option)
(prgm : Lcalc.Ast.program) (prgm : Lcalc.Ast.program)
(type_ordering : Scopelang.Dependency.TVertex.t list) = (type_ordering : Scopelang.Dependency.TVertex.t list) =
let filename_without_ext_opt =
Option.map
(fun f -> Filename.basename f |> String.split_on_char '.' |> List.hd)
output_file
in
let dirname =
match output_file with Some f -> Filename.dirname f | None -> ""
in
File.with_formatter_of_opt_file output_file @@ fun fmt -> File.with_formatter_of_opt_file output_file @@ fun fmt ->
To_ocaml.format_program fmt prgm type_ordering;
let module_name = let module_name =
match output_file with match filename_without_ext_opt with
| Some _ -> | Some name -> Printf.sprintf "open %s" (String.capitalize_ascii name)
"open Law_source.Allocations_familiales\n"
(* Printf.sprintf "open %s" *)
(* (Filename.basename f |> String.split_on_char '.' |> List.hd *)
(* |> String.capitalize_ascii) *)
| None -> "" | None -> ""
in in
let jsoo_output_file_opt =
Option.map
(fun f -> Filename.concat dirname (f ^ "_api_web.ml"))
filename_without_ext_opt
in
File.with_formatter_of_opt_file jsoo_output_file_opt @@ fun fmt ->
To_jsoo.format_program fmt module_name prgm type_ordering; To_jsoo.format_program fmt module_name prgm type_ordering;
match output_file with match jsoo_output_file_opt with
| Some f -> | Some f ->
if Sys.command (Printf.sprintf "ocamlformat %s -i" f) <> 0 then if Sys.command (Printf.sprintf "ocamlformat %s -i" f) <> 0 then
failwith "jsoo err" failwith "jsoo err"