More operations on afs-permissions.

2003-02-12 09:38:03 +00:00 · 2003-02-12 09:38:03 +00:00 · 30630d4cb5
parent ef6956b3f0
commit 30630d4cb5
2 changed files with 5 additions and 0 deletions
--- a/scsh/afs/afs-fs.scm
+++ b/scsh/afs/afs-fs.scm
@ -60,6 +60,9 @@
 (define all-afs-permissions
  (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
 ;; afs-permissions

--- a/scsh/afs/interfaces.scm
+++ b/scsh/afs/interfaces.scm
@ -2,6 +2,8 @@
  (export
   ((afs-permission afs-permissions) :syntax)
   all-afs-permissions
+   make-afs-permissions
+   afs-permissions<=?
   get-acl
   set-acl!
   add-acl!