[uim commit] r5802 - trunk/uim

[codesite-noreply]

Author: iratqq
Date: Mon Feb  2 05:10:40 2009
New Revision: 5802

Modified:
   trunk/uim/uim-posix.c

Log:
* uim/uim-posix.c (c_duplicate_fileno):
  - Add Function.
 (uim_init_posix_subrs):
  - Add (duplicate-fileno).


Modified: trunk/uim/uim-posix.c
==============================================================================
--- trunk/uim/uim-posix.c       (original)
+++ trunk/uim/uim-posix.c       Mon Feb  2 05:10:40 2009
@@ -485,6 +485,12 @@
   return ret_;
 }

+static uim_lisp
+c_duplicate_fileno(uim_lisp oldd_)
+{
+  return MAKE_INT(dup(C_INT(oldd_)));
+}
+
 const static opt_args poll_flags[] = {
   { POLLIN,     "$POLLIN" },
 #ifdef POLLPRI
@@ -670,6 +676,7 @@
   uim_scm_init_proc1("file-close", c_file_close);
   uim_scm_init_proc2("file-read", c_file_read);
   uim_scm_init_proc2("file-write", c_file_write);
+  uim_scm_init_proc1("duplicate-fileno", c_duplicate_fileno);

   uim_scm_init_proc2("file-poll", c_file_poll);
   uim_scm_init_proc0("file-poll-flags?", c_file_poll_flags);