More operations on afs-permissions.

This commit is contained in:
Martin Gasbichler 2003-02-12 09:38:03 +00:00
parent ef6956b3f0
commit 30630d4cb5
2 changed files with 5 additions and 0 deletions

View File

@ -60,6 +60,9 @@
(define all-afs-permissions (define all-afs-permissions
(make-afs-permissions (map char->afs-permission (string->list "rlidwka")))) (make-afs-permissions (map char->afs-permission (string->list "rlidwka"))))
(define (afs-permissions<=? p1 p2)
(enum-set=? (enum-set-union p1 p2) p2))
;; access control lists: lists of pairs of user name and ;; access control lists: lists of pairs of user name and
;; afs-permissions ;; afs-permissions

View File

@ -2,6 +2,8 @@
(export (export
((afs-permission afs-permissions) :syntax) ((afs-permission afs-permissions) :syntax)
all-afs-permissions all-afs-permissions
make-afs-permissions
afs-permissions<=?
get-acl get-acl
set-acl! set-acl!
add-acl! add-acl!