scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Generate "none" for empty afs-permissions.

This commit is contained in:
Martin Gasbichler 2003-02-22 07:51:44 +00:00
parent 4e7d93b126
commit c73875d993
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scsh/afs/afs-fs.scm
View File

@ -50,12 +50,14 @@
s)) s))
(define (afs-permissions->string afs-perms) (define (afs-permissions->string afs-perms)
(fold (lambda (perm s) (if (null? (enum-set->list afs-perms))
(if (enum-set-member? afs-perms perm) "none"
(string-append s (string (afs-permission->char perm))) (fold (lambda (perm s)
s)) (if (enum-set-member? afs-perms perm)
"" (string-append s (string (afs-permission->char perm)))
(vector->list the-afs-permissions))) s))
""
(vector->list the-afs-permissions))))
(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"))))