Adding base-name and dir-name functions.

* stream.c (path_sep_chars): New global variable.
(detect_path_separators): New static function.
(base_name, dir_name): New functions.
(stream_init): Call detect_path_separators. Register base-name
and dir-name intrinsic functions, and path-sep-chars variable.

* stream.h (path_sep_chars, base_name, dir_name): Declared.

* txr.c (dirname): Static function removed.
(sysroot_init): Use dir_name instead of dirname.

* txr.1: Documented dir-name, base-name and path-sep-chars.

1 files changed, 4 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 1985cb42..290af343 100644
--- a/stream.h
+++ b/stream.h
@@ -129,6 +129,8 @@ extern val pprint_flo_format_s, print_base_s, print_circle_s;
 extern val socket_error_s;
 #endif
 
+extern const wchli_t *path_sep_chars;
+
 void strm_base_init(struct strm_base *s);
 void strm_base_cleanup(struct strm_base *s);
 void strm_base_mark(struct strm_base *s);
@@ -213,5 +215,7 @@ val remove_path(val path, val throw_on_error);
 val rename_path(val from, val to);
 val abs_path_p(val path);
 val pure_rel_path_p(val path);
+val base_name(val path);
+val dir_name(val path);
 
 void stream_init(void);