helloworld.ml 231 Bytes
Newer Older
1 2 3 4 5 6 7
let print_context _ fmt _ = Format.fprintf fmt "helloworld"

let transform_context () = Transform.identity

let () = 
  Driver.register_printer "helloworld" print_context;
  Driver.register_transform "helloworld" transform_context