From 324a2630f26c236c2ce438961d5dec727a4432ac Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 13 Sep 2021 16:29:43 -0700 Subject: add wrappers of some system functions to manipulate POSIX.1e ACLs Signed-off-by: Sean Whitton --- src/libacl.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/libacl.lisp (limited to 'src/libacl.lisp') diff --git a/src/libacl.lisp b/src/libacl.lisp new file mode 100644 index 0000000..b162e30 --- /dev/null +++ b/src/libacl.lisp @@ -0,0 +1,14 @@ +(in-package :consfigurator.util.posix1e) + +(include "sys/types.h" "sys/acl.h") + +(ctype acl_tag_t "acl_tag_t") +(ctype acl_type_t "acl_type_t") +(ctype acl_entry_t "acl_entry_t") + +(constant (+ACL-USER+ "ACL_USER")) +(constant (+ACL-GROUP+ "ACL_GROUP")) +(constant (+ACL-TYPE-ACCESS+ "ACL_TYPE_ACCESS")) +(constant (+ACL-TYPE-DEFAULT+ "ACL_TYPE_DEFAULT")) +(constant (+ACL-NEXT-ENTRY+ "ACL_NEXT_ENTRY")) +(constant (+ACL-FIRST-ENTRY+ "ACL_FIRST_ENTRY")) -- cgit v1.2.3