summary refs log tree commit diff
path: root/source/xi_lib/plugin_register.ml
blob: da7e8a61be933ece446e010945dcf44a6aaf3752 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Plugin

let register = ref []

let current_file = ref ""

let register_plugin plugin =
  register := (!current_file, plugin) :: !register

module RegisterPlugin(P:PLUGIN) = struct

  let handle = (module P : PLUGIN)

  let () = register_plugin handle

end