ocaml/coccilib.ml

   1 (* Function table management *)
   2
   3 type pos = { current_element : string;
   4              file :string ;
   5              line : int;
   6              col : int;
   7              line_end : int;
   8              col_end : int; }
   9
  10 type param_type = Pos of pos list | Str of string
  11
  12 let fcts : (string, param_type list -> unit) Hashtbl.t =
  13   Hashtbl.create 11 (* Use prime number *)
  14
  15 (* ---------------------------------------------------------------------- *)
  16 (* Match management *)
  17
  18 let inc_match = ref true
  19 let include_match x = inc_match := x