add wrappers of some system functions to manipulate POSIX.1e ACLs

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 19 insertions, 0 deletions

diff --git a/src/package.lisp b/src/package.lisp
index 668e0d2..dba79ec 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -316,6 +316,25 @@
            #:request-asdf-requirements
            #:continue-deploy*-program))
 
+(defpackage :consfigurator.util.posix1e
+  (:use #:cl #:alexandria #:consfigurator #:cffi)
+  (:export #:acl_type_t
+           #:acl_entry_t
+           #:+ACL-USER+
+           #:+ACL-GROUP+
+           #:+ACL-TYPE-ACCESS+
+           #:+ACL-TYPE-DEFAULT+
+           #:+ACL-NEXT-ENTRY+
+           #:+ACL-FIRST-ENTRY+
+
+           #:with-acl-free
+           #:acl-get-file
+           #:acl-set-file
+           #:acl-get-entry
+           #:acl-get-tag-type
+           #:acl-get-qualifier
+           #:acl-set-qualifier))
+
 (defpackage :consfigurator.property.cmd
   (:use #:cl #:consfigurator)
   (:export #:single))