From a5e69db365a98857ac2594590614a981d5f9ae74 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 9 Aug 2019 06:28:58 -0700 Subject: base-name: optionally remove suffix. The base-name function now takes a second argument which is optional, specifying a suffix to be removed. The behavior is similar to that of the second argument of the POSIX basename command. * stream.c (base_name): Second argument added. If present, the returned value is adjusted by trimming the suffix, unless that would cause an empty string to be returned. (stream_init): Update registration of base-name intrinsic. * stream.h (base_name): Declaration updated. * txr.1: New base-name parameter documented. --- stream.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stream.h') diff --git a/stream.h b/stream.h index bc83122c..9bae897c 100644 --- a/stream.h +++ b/stream.h @@ -236,7 +236,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 base_name(val path, val suff); val dir_name(val path); val path_cat(val dir_name, val base_name); val make_byte_input_stream(val obj); -- cgit v1.2.3