Source file `ppx_derivers.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type deriver = ..

let all = Hashtbl.create 42

let register name deriver =
  if Hashtbl.mem all name then
    Printf.ksprintf failwith
      "Ppx_deriviers.register: %S is already registered" name;
  Hashtbl.add all name deriver

let lookup name =
  match Hashtbl.find all name with
  | drv -> Some drv
  | exception Not_found -> None

let derivers () =
  Hashtbl.fold (fun name drv acc -> (name, drv) :: acc) all []