artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Add dup, dup2.

Browse source 
* src/posix.c (dup_, dup2_): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-11 10:18:50 +01:00
parent 7c63d3df47
commit 35c8408df4
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/posix.c
View file

@ -380,3 +380,15 @@ getcwd_ () ///((name . "getcwd"))
return MAKE_STRING (cstring_to_list (getcwd (buf, PATH_MAX))); 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;
}