diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-07-21 01:35:52 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-07-21 01:35:52 -0300 |
| commit | 209383a11bbf749dcc830fac8e0938bca0b58191 (patch) | |
| tree | 59cf28d47b4065d3dfa4ecd2b1390b2f54172061 /lib/backend/managers/Identity.ml | |
| parent | 3e62b0d7dc814fbdcedb06bb79b22669bc9d4b40 (diff) | |
| download | RNT-209383a11bbf749dcc830fac8e0938bca0b58191.tar.gz RNT-209383a11bbf749dcc830fac8e0938bca0b58191.zip | |
Lifecycle Manager
Diffstat (limited to '')
| -rw-r--r-- | lib/backend/managers/Identity.ml | 5 | ||||
| -rw-r--r-- | lib/backend/managers/Identity.mli | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lib/backend/managers/Identity.ml b/lib/backend/managers/Identity.ml new file mode 100644 index 0000000..3510e3a --- /dev/null +++ b/lib/backend/managers/Identity.ml @@ -0,0 +1,5 @@ +let permits (object_ : Object.registry) (method_ : Object.rnt_method) : bool = + BatSet.mem method_ object_.Object.entry.Object.methods + +let can_open (object_ : Object.registry) : bool = permits object_ Object.OPEN +let can_close (object_ : Object.registry) : bool = permits object_ Object.CLOSE diff --git a/lib/backend/managers/Identity.mli b/lib/backend/managers/Identity.mli new file mode 100644 index 0000000..589002e --- /dev/null +++ b/lib/backend/managers/Identity.mli @@ -0,0 +1,3 @@ +val permits : Object.registry -> Object.rnt_method -> bool +val can_open : Object.registry -> bool +val can_close : Object.registry -> bool |