Re: [Caml-list] Ast_iterator example?

["Nicolás Ojeda Bär" <nicolas.ojeda.bar@lexifi.com>]

Hi Rich,

The code below will parse an .ml file passed on the command line and
run the iterator on the resulting structure. It can be compiled with

    ocamlc -I +compiler-libs ocamlcommon.cma main.ml

Hope it helps,
Nicolás

------ main.ml ---------
let visit_expr (iterator : Ast_iterator.iterator) expr =
  ()

let ast_iterator =
  { Ast_iterator.default_iterator with expr = visit_expr }

let go fn =
  let lexbuf = Lexing.from_channel (open_in fn) in
  let structure = Parse.implementation lexbuf in
  ast_iterator.Ast_iterator.structure ast_iterator structure

let () =
  Arg.parse [] go ""
-------



On Fri, Jul 12, 2019 at 3:25 PM Richard W.M. Jones <rich@annexia.org> wrote:
>
>
> As previously discussed:
> https://sympa.inria.fr/sympa/arc/caml-list/2019-06/msg00050.html
>
> I'm now trying to port ocaml-gettext to use ppx.  However I can't get
> even a trivial Ast_iterator example to compile.  Does anyone have a
> simple compilable example using Ast_iterator?
>
> Rich.