* stream.c (remove_path, rename_path): New functions.

* stream.h (remove_path, rename_path): Declared.

* utf8.c (w_remove, w_rename): New functions.

* utf8.h (w_remove, w_rename): Declared.

* eval.c (eval_init): Registered remove_path and rename_path
as intrinsics.

1 files changed, 17 insertions, 0 deletions

diff --git a/stream.c b/stream.c
index 64d217a4..3961f918 100644
--- a/stream.c
+++ b/stream.c
@@ -2260,6 +2260,23 @@ val make_catenated_stream(val stream_list)
   return cobj((mem_t *) stream_list, stream_s, &cat_stream_ops.cobj_ops);
 }
 
+val remove_path(val path)
+{
+  if (w_remove(c_str(path)) < 0)
+    uw_throwf(file_error_s, lit("trying to remove ~a: ~a/~s"),
+                path, num(errno), string_utf8(strerror(errno)), nao);
+  return t;
+}
+
+val rename_path(val from, val to)
+{
+  if (w_rename(c_str(from), c_str(to)) < 0)
+    uw_throwf(file_error_s, lit("trying to rename ~a to ~a: ~a/~s"),
+                from, to, num(errno), string_utf8(strerror(errno)), nao);
+  return t;
+}
+
+
 void stream_init(void)
 {
   protect(&std_input, &std_output, &std_debug, &std_error, &std_null, (val *) 0);