From 30630d4cb55a24fc4033324dd70a8f2d7e99ee86 Mon Sep 17 00:00:00 2001
From: Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
Date: Wed, 12 Feb 2003 09:38:03 +0000
Subject: [PATCH] More operations on afs-permissions.

---
 scsh/afs/afs-fs.scm     | 3 +++
 scsh/afs/interfaces.scm | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/scsh/afs/afs-fs.scm b/scsh/afs/afs-fs.scm
index 9a14d14..e55dc36 100644
--- 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
 
diff --git a/scsh/afs/interfaces.scm b/scsh/afs/interfaces.scm
index 524ce1a..a9835d5 100644
--- 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!