From 339c9b0e30719e2e68310c90a1c9ef27f54c9d09 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 22 Aug 2026 22:26:15 +0000 Subject: The registry protocol --- lib/protocols/Registry.ml | 16 ++++++++++++++++ lib/protocols/Registry.mli | 13 +++++++++++++ 2 files changed, 29 insertions(+) create mode 100644 lib/protocols/Registry.ml create mode 100644 lib/protocols/Registry.mli (limited to 'lib') diff --git a/lib/protocols/Registry.ml b/lib/protocols/Registry.ml new file mode 100644 index 0000000..4e3a44e --- /dev/null +++ b/lib/protocols/Registry.ml @@ -0,0 +1,16 @@ +class type implementation = object + method register : string -> Handle.t -> (unit, Concepts.Condition.condition) result + method unregister : string -> (unit, Concepts.Condition.condition) result +end + +type Handle.protocol += Registry of implementation + +type t = implementation + +let make impl = Registry impl + +let from handle = Handle.into handle (function Registry impl -> Some impl | _ -> None) + +let register i key value = Handle.invoke i (fun o -> o#register key value) + +let unregister i key = Handle.invoke i (fun o -> o#unregister key) diff --git a/lib/protocols/Registry.mli b/lib/protocols/Registry.mli new file mode 100644 index 0000000..855f8b8 --- /dev/null +++ b/lib/protocols/Registry.mli @@ -0,0 +1,13 @@ +type t + +class type implementation = object + method register : string -> Handle.t -> (unit, Concepts.Condition.condition) result + method unregister : string -> (unit, Concepts.Condition.condition) result +end + +val make : implementation -> Handle.protocol + +val from : Handle.t -> t Handle.interface option + +val register : t Handle.interface -> string -> Handle.t -> (unit, Concepts.Condition.condition) result +val unregister : t Handle.interface -> string -> (unit, Concepts.Condition.condition) result -- cgit v1.2.3