toplevel emits round trip pprint of ast to console.

2023-03-03 18:47:24 -06:00
parent 272778ad7b
commit ab91e5dee0
4 changed files with 99 additions and 24 deletions
--- a/ppx_graph.ml
+++ b/ppx_graph.ml
@ -0,0 +1,11 @@
+open Ppxlib
+open Log_js
+
+let log_info pp exp =
+  Log.info (fun m -> m "ppx_graph: %a" pp exp);
+  exp
+
+let init () =
+  Driver.register_transformation
+    ~impl:(log_info Ocaml_common.Pprintast.structure)
+    "ppx_graph"