diff --git a/scsh/afs/NEWS b/scsh/afs/NEWS index f54a97c..53ff34f 100644 --- a/scsh/afs/NEWS +++ b/scsh/afs/NEWS @@ -1,2 +1,5 @@ +version 0.2 +* export afs-permissions->string, string->afs-permissions + version 0.1 * New package system. diff --git a/scsh/afs/README b/scsh/afs/README index 9b321bb..eebbefd 100644 --- a/scsh/afs/README +++ b/scsh/afs/README @@ -49,6 +49,14 @@ Type predicate. Returns #t if the permissions in AFS-PERMISSIONS1 are all included in 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 diff --git a/scsh/afs/packages.scm b/scsh/afs/packages.scm index 19159d6..1b6b047 100644 --- a/scsh/afs/packages.scm +++ b/scsh/afs/packages.scm @@ -5,6 +5,8 @@ all-afs-permissions make-afs-permissions afs-permissions<=? + afs-permissions->string + string->afs-permissions get-acl set-acl! add-acl! diff --git a/scsh/afs/pkg-def.scm b/scsh/afs/pkg-def.scm index a5c48b4..60d60b9 100644 --- a/scsh/afs/pkg-def.scm +++ b/scsh/afs/pkg-def.scm @@ -1,5 +1,5 @@ (define-package "afs" - (0 1) + (0 2) ((install-lib-version (1 0))) (write-to-load-script `((config)