2003-01-28 08:49:49 -05:00
|
|
|
(define-interface afs-fs-interface
|
|
|
|
|
(export
|
|
|
|
|
((afs-permission afs-permissions) :syntax)
|
2003-02-20 17:11:42 -05:00
|
|
|
afs-permissions?
|
2003-01-28 08:49:49 -05:00
|
|
|
all-afs-permissions
|
2003-02-12 04:38:03 -05:00
|
|
|
make-afs-permissions
|
|
|
|
|
afs-permissions<=?
|
2005-06-10 04:13:18 -04:00
|
|
|
afs-permissions->string
|
|
|
|
|
string->afs-permissions
|
2003-01-28 08:49:49 -05:00
|
|
|
get-acl
|
|
|
|
|
set-acl!
|
|
|
|
|
add-acl!
|
|
|
|
|
set-fs-command!))
|
2004-03-10 13:30:44 -05:00
|
|
|
|
|
|
|
|
(define-structure afs-fs afs-fs-interface
|
|
|
|
|
(open scheme-with-scsh
|
|
|
|
|
enum-sets
|
|
|
|
|
finite-types
|
|
|
|
|
srfi-1
|
|
|
|
|
srfi-13)
|
|
|
|
|
(files afs-fs))
|
