diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-08-22 22:26:15 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-08-23 03:07:00 +0000 |
| commit | 339c9b0e30719e2e68310c90a1c9ef27f54c9d09 (patch) | |
| tree | 67de3040c0711c7f2a485bb7325521178898cb21 /lib/protocols/Registry.ml | |
| parent | 300e4a04360d559618fa41fdf037a744e4e7c0eb (diff) | |
| download | RNT-339c9b0e30719e2e68310c90a1c9ef27f54c9d09.tar.gz RNT-339c9b0e30719e2e68310c90a1c9ef27f54c9d09.zip | |
The registry protocol
Diffstat (limited to 'lib/protocols/Registry.ml')
| -rw-r--r-- | lib/protocols/Registry.ml | 16 |
1 files changed, 16 insertions, 0 deletions
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) |