diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-13 16:29:43 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 10:51:30 -0700 |
| commit | 324a2630f26c236c2ce438961d5dec727a4432ac (patch) | |
| tree | 6921a7574c362735a96e47b2733b0f9642765207 /src/libacl.lisp | |
| parent | 446b8f4a8ef78cb4605cfb551255bb455be411f0 (diff) | |
| download | consfigurator-324a2630f26c236c2ce438961d5dec727a4432ac.tar.gz | |
add wrappers of some system functions to manipulate POSIX.1e ACLs
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/libacl.lisp')
| -rw-r--r-- | src/libacl.lisp | 14 |
1 files changed, 14 insertions, 0 deletions
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")) |