core: Add dup, dup2.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:18:50 +0000 (10:18 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:18:50 +0000 (10:18 +0100)
* src/posix.c (dup_, dup2_): New function.

src/posix.c

index efef1ca748c33966a9cf2ffeb152a3a3dea24d16..048221e0ff18cee487339c225c050b2b1f31b046 100644 (file)
@@ -380,3 +380,15 @@ getcwd_ () ///((name . "getcwd"))
   return MAKE_STRING (cstring_to_list (getcwd (buf, PATH_MAX)));
 }
 
+SCM
+dup_ (SCM port) ///((name . "dup"))
+{
+  return MAKE_NUMBER (dup (VALUE (port)));
+}
+
+SCM
+dup2_ (SCM old, SCM new) ///((name . "dup2"))
+{
+  dup2 (VALUE (old), VALUE (new));
+  return cell_unspecified;
+}