diff options
Diffstat (limited to 'src/generate.ml')
| -rw-r--r-- | src/generate.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/generate.ml b/src/generate.ml index c90cfc9..53ab35f 100644 --- a/src/generate.ml +++ b/src/generate.ml @@ -1,4 +1,7 @@ (* Load interface definitions from a directory into a reference tree *) +exception Load_error of string +exception Write_error of string + let load_interface_definitions dir = let open Reference_tree in let relative_paths = FileUtil.ls dir in @@ -14,3 +17,20 @@ let load_interface_definitions dir = | Error msg -> Error msg end with Bad_interface_definition msg -> Error msg +let reference_tree_to_json from_dir to_file = + let ref_tree_result = + load_interface_definitions from_dir + in + let ref_tree = + match ref_tree_result with + | Ok ref -> ref + | Error msg -> raise (Load_error msg) + in + let out = Reference_tree.render_json ref_tree in + let oc = + try + open_out to_file + with Sys_error msg -> raise (Write_error msg) + in + Printf.fprintf oc "%s" out; + close_out oc |