util.mli 300 B

12345678
  1. (* Generate a fresh variable from a given prefix, e.g. "counter" -> "counter$1" *)
  2. val fresh_var : string -> string
  3. (* Default transformation traversal for AST nodes *)
  4. val transform : (Ast.node -> Ast.node) -> Ast.node -> Ast.node
  5. (* Extract location from node *)
  6. val locof : Ast.node -> Ast.loc