From 412c9985acac3bc4ae6fe9068b31efefb73eead5 Mon Sep 17 00:00:00 2001
From: Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
Date: Fri, 10 Jun 2005 08:13:18 +0000
Subject: [PATCH] Export afs-permissions->string and string->afs-permissions

---
 scsh/afs/NEWS         | 3 +++
 scsh/afs/README       | 8 ++++++++
 scsh/afs/packages.scm | 2 ++
 scsh/afs/pkg-def.scm  | 2 +-
 4 files changed, 14 insertions(+), 1 deletion(-)

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)