From 694afd97792c870619b8cfb3db480a502fe408e0 Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg@phi-gamma.net>
Date: Sun, 21 Oct 2018 01:05:33 +0200
Subject: sid: add interface definition

---
 sid.mli | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 sid.mli

diff --git a/sid.mli b/sid.mli
new file mode 100644
index 0000000..d387aa0
--- /dev/null
+++ b/sid.mli
@@ -0,0 +1,44 @@
+type t
+type sub_auths = Stdint.Uint32.t array
+val sub_auth_max : int
+val create_unsafe : Stdint.Uint32.t array -> Stdint.Uint64.t -> t
+val create : ?sa:Stdint.Uint32.t array -> Stdint.Uint64.t -> t
+val equal_sub_auths : Stdint.Uint32.t array -> Stdint.Uint32.t array -> bool
+val equal : t -> t -> bool
+
+module StringFmt :
+  sig
+    val decode : string -> t
+    val from_string_res : string -> (t, string) result
+    val from_string_opt : string -> t option
+    val encode : t -> string
+  end
+
+module PacketRep :
+  sig
+    val encode : t -> bytes
+  end
+
+module WellKnown :
+  sig
+    val null : t
+    val everyone : t
+    val world : t
+    val local : t
+    val creator_owner_id : t
+    val creator_group_id : t
+    val elite : t
+
+    module Prefix :
+      sig
+        val security_null_sid_authority    : ?sa:sub_auths -> unit -> t
+        val security_world_sid_authority   : ?sa:sub_auths -> unit -> t
+        val security_local_sid_authority   : ?sa:sub_auths -> unit -> t
+        val security_creator_sid_authority : ?sa:sub_auths -> unit -> t
+        val security_nt_authority          : ?sa:sub_auths -> unit -> t
+      end
+  end
+
+val of_string : string -> t
+val to_string : t -> string
+
-- 
cgit v1.2.3