* eval.c (eval_init): Register forgotten s_ifsock variable.

Register mkdir_wrap, chdir_wrap, getcwd_wrap, makedev_wrap, minor_wrap,
major_wrap and mknod_wrap.

* stream.c (mkdir_wrap, chdir_wrap, getcwd_wrap, makedev_wrap,
minor_wrap, major_wrap, mknod_wrap): New functions.
(stream_init): Initialize forgotten variable s-ifsock.

* stream.h (s_ifsock): Declared.
(mkdir_wrap, chdir_wrap, getcwd_wrap, makedev_wrap,
minor_wrap, major_wrap, mknod_wrap): Declared.

* txr.1: Forgotten documentation for remove-path and rename-path
added. Forgotten mention of s-ifsock. Documented new Unix functions.

1 files changed, 8 insertions, 1 deletions

diff --git a/stream.h b/stream.h
index 2f4eec6c..30d89fe7 100644
--- a/stream.h
+++ b/stream.h
@@ -56,7 +56,7 @@ extern val atime_k, mtime_k, ctime_k;
 extern val from_start_k, from_current_k, from_end_k;
 extern val real_time_k, name_k;
 
-extern val s_ifmt, s_iflnk, s_ifreg, s_ifblk, s_ifdir;
+extern val s_ifmt, s_ifsock, 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;
@@ -101,5 +101,12 @@ val open_process(val path, val mode_str, val args);
 val make_catenated_stream(val stream_list);
 val remove_path(val path);
 val rename_path(val from, val to);
+val mkdir_wrap(val path, val mode);
+val chdir_wrap(val path);
+val getcwd_wrap(void);
+val makedev_wrap(val major, val minor);
+val minor_wrap(val dev);
+val major_wrap(val dev);
+val mknod_wrap(val path, val mode, val dev);
 
 void stream_init(void);