diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-02-24 20:11:53 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-02-24 20:11:53 -0800 |
| commit | 17703842631784a8f623b5478380e90e4e17c8ef (patch) | |
| tree | caf50699f569d5438e9e8629df8f7919ffaa769f /eval.c | |
| parent | 501453a261771e2874bd065a78772e987616b14c (diff) | |
| download | txr-17703842631784a8f623b5478380e90e4e17c8ef.tar.gz txr-17703842631784a8f623b5478380e90e4e17c8ef.tar.bz2 txr-17703842631784a8f623b5478380e90e4e17c8ef.zip | |
* 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.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -3383,6 +3383,7 @@ void eval_init(void) reg_fun(intern(lit("stream-get-prop"), user_package), func_n2(stream_get_prop)); reg_fun(intern(lit("make-catenated-stream"), user_package), func_n0v(make_catenated_stream)); reg_var(intern(lit("s-ifmt"), user_package), &s_ifmt); + reg_var(intern(lit("s-ifsock"), user_package), &s_ifsock); reg_var(intern(lit("s-iflnk"), user_package), &s_iflnk); reg_var(intern(lit("s-ifreg"), user_package), &s_ifreg); reg_var(intern(lit("s-ifblk"), user_package), &s_ifblk); @@ -3590,6 +3591,19 @@ void eval_init(void) reg_fun(intern(lit("daemon"), user_package), func_n2(daemon_wrap)); #endif +#ifdef HAVE_SYS_STAT + reg_fun(intern(lit("mkdir"), user_package), func_n2o(mkdir_wrap, 1)); +#endif + +#ifdef HAVE_UNISTD_H + reg_fun(intern(lit("chdir"), user_package), func_n1(chdir_wrap)); + reg_fun(intern(lit("pwd"), user_package), func_n0(getcwd_wrap)); + reg_fun(intern(lit("makedev"), user_package), func_n2(makedev_wrap)); + reg_fun(intern(lit("minor"), user_package), func_n1(minor_wrap)); + reg_fun(intern(lit("major"), user_package), func_n1(major_wrap)); + reg_fun(intern(lit("mknod"), user_package), func_n3(mknod_wrap)); +#endif + #if HAVE_SYSLOG reg_var(intern(lit("log-pid"), user_package), &log_pid_v); reg_var(intern(lit("log-cons"), user_package), &log_cons_v); |