18 lines
409 B
OCaml
18 lines
409 B
OCaml
open Ppxlib
|
|
|
|
let pp_attr str =
|
|
let iter =
|
|
object
|
|
inherit Ast_traverse.iter as super
|
|
|
|
method! attribute v =
|
|
let loc = loc_of_attribute v in
|
|
Format.printf "%a %s" Location.print loc v.attr_name.txt;
|
|
super#attribute v
|
|
end
|
|
in
|
|
iter#structure str;
|
|
str
|
|
|
|
let () = Driver.register_transformation ~impl:pp_attr "print-attributes"
|
|
let () = Ppxlib.Driver.standalone ()
|