* arith.c (logtest): New function.

* eval.c (eval_init): Registered logtest.
Registered s-ifmt, s-iflnk, s-ifreg, s-ifblk, s-ifdir,
s-ifchr, s-ififo, s-isuid, s-isgid, s-isvtx, s-irwxu,
s-irusr, s-iwusr, s-ixusr, s-irwxg, s-irgrp, s-iwgrp,
s-ixgrp, s-irwxo, s-iroth, s-iwoth, s-ixoth variables.

* lib.h (logtest): Declared.

* stream.c (s_ifmt, s_ifsock, s_iflnk, s_ifreg, s_ifblk,
s_ifdir, s_ifchr, s_ififo, s_isuid, s_isgid, s_isvtx, s_irwxu, s_irusr,
s_iwusr, s_ixusr, s_irwxg, s_irgrp, s_iwgrp, s_ixgrp, s_irwxo, s_iroth,
s_iwoth, s_ixoth): New global variables.

* stream.h (s_ifmt, s_ifsock, s_iflnk, s_ifreg, s_ifblk,
s_ifdir, s_ifchr, s_ififo, s_isuid, s_isgid, s_isvtx, s_irwxu, s_irusr,
s_iwusr, s_ixusr, s_irwxg, s_irgrp, s_iwgrp, s_ixgrp, s_irwxo, s_iroth,
s_iwoth, s_ixoth): Declared.

* txr.1: Documented logtest and s-* variables for stat,
as well as open-file and open-directory.

1 files changed, 5 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 10937c76..bf516b2f 100644
--- a/stream.h
+++ b/stream.h
@@ -27,6 +27,11 @@
 extern val std_input, std_output, std_debug, std_error;
 extern val output_produced;
 
+extern val s_ifmt, s_iflnk, s_ifreg, s_ifblk, s_ifdir;
+extern val s_ifchr, s_ififo, s_isuid, s_isgid, s_isvtx, s_irwxu;
+extern val s_irusr, s_iwusr, s_ixusr, s_irwxg, s_irgrp, s_iwgrp;
+extern val s_ixgrp, s_irwxo, s_iroth, s_iwoth, s_ixoth;
+
 val make_stdio_stream(FILE *, val descr, val input, val output);
 val make_pipe_stream(FILE *, val descr, val input, val output);
 val make_string_input_stream(val);