diff options
-rw-r--r-- | sid.ml | 16 | ||||
-rw-r--r-- | sid.mli | 8 |
2 files changed, 18 insertions, 6 deletions
@@ -218,11 +218,17 @@ module WellKnown = struct let elite = create_unsafe [| U32.of_int 3 ; U32.of_int 3; U32.of_int 7 |] U64.one module Prefix = struct - let security_null_sid_authority ?(sa=[||]) () = create ~sa (U64.of_int 0) - let security_world_sid_authority ?(sa=[||]) () = create ~sa (U64.of_int 1) - let security_local_sid_authority ?(sa=[||]) () = create ~sa (U64.of_int 2) - let security_creator_sid_authority ?(sa=[||]) () = create ~sa (U64.of_int 3) - let security_nt_authority ?(sa=[||]) () = create ~sa (U64.of_int 5) + type toplevel_auth = ?sa:sub_auths -> unit -> sid + + let security_null_sid_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x00) + let security_world_sid_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x01) + let security_local_sid_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x02) + let security_creator_sid_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x03) + let security_nt_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x05) + let security_app_package_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x0f) + let security_mandatory_label_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x10) + let security_scoped_policy_id_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x11) + let security_authentication_authority ?(sa=[||]) () = create_unsafe sa (U64.of_int 0x12) end end @@ -32,11 +32,17 @@ module WellKnown : module Prefix : sig - val security_null_sid_authority : ?sa:sub_auths -> unit -> t + type toplevel_auth = ?sa:sub_auths -> unit -> t + + val security_null_sid_authority : toplevel_auth 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 + val security_app_package_authority : ?sa:sub_auths -> unit -> t + val security_mandatory_label_authority : ?sa:sub_auths -> unit -> t + val security_scoped_policy_id_authority : ?sa:sub_auths -> unit -> t + val security_authentication_authority : ?sa:sub_auths -> unit -> t end end |