Somew new path access testing functions.

* lisplib.c (path_test_set_entries): New elements in the list
for path-readable-to-me-p, path-read-writable-to-me-p, and
path-strictly-private-to-me-p.

* share/txr/stdlib/path-test.pl (sys:path-access): Test
bitwise combinations of permissions, so read+write
can be tested in one call.
(path-readable-to-me-p, path-read-writable-to-me-p,
path-strictly-private-to-me-p): New functions.

* txr.1: Documented.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index e2ad6ea3..f98ddf1a 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -155,8 +155,11 @@ static val path_test_set_entries(val dlt, val fun)
     lit("path-sock-p"), lit("path-pipe-p"), lit("path-pipe-p"),
     lit("path-setgid-p"), lit("path-setuid-p"), lit("path-sticky-p"),
     lit("path-mine-p"), lit("path-my-group-p"), lit("path-executable-to-me-p"),
-    lit("path-writable-to-me-p"), lit("path-newer"), lit("path-older"),
+    lit("path-writable-to-me-p"), lit("path-readable-to-me-p"),
+    lit("path-read-writable-to-me-p"),
+    lit("path-newer"), lit("path-older"),
     lit("path-same-object"), lit("path-private-to-me-p"),
+    lit("path-strictly-private-to-me-p"),
     nil
   };