Export afs-permissions->string and string->afs-permissions

This commit is contained in:
Martin Gasbichler 2005-06-10 08:13:18 +00:00
parent 9fc600512c
commit 412c9985ac
4 changed files with 14 additions and 1 deletions

View File

@ -1,2 +1,5 @@
version 0.2
* export afs-permissions->string, string->afs-permissions
version 0.1 version 0.1
* New package system. * New package system.

View File

@ -49,6 +49,14 @@ Type predicate.
Returns #t if the permissions in AFS-PERMISSIONS1 are all included in Returns #t if the permissions in AFS-PERMISSIONS1 are all included in
AFS-PERMISSIONS2, #f otherwise AFS-PERMISSIONS2, #f otherwise
(afs-permissions->string afs-permissions) -> string
Returns the string representation of the afs-permissions.
(string->afs-permissions string) -> afs-permissions
Parses a string as afs-permissions.
(get-acl dir) -> afs-permissions (get-acl dir) -> afs-permissions

View File

@ -5,6 +5,8 @@
all-afs-permissions all-afs-permissions
make-afs-permissions make-afs-permissions
afs-permissions<=? afs-permissions<=?
afs-permissions->string
string->afs-permissions
get-acl get-acl
set-acl! set-acl!
add-acl! add-acl!

View File

@ -1,5 +1,5 @@
(define-package "afs" (define-package "afs"
(0 1) (0 2)
((install-lib-version (1 0))) ((install-lib-version (1 0)))
(write-to-load-script (write-to-load-script
`((config) `((config)