[uim commit] r5831 - in trunk: scm uim

[codesite-noreply]

Author: iratqq
Date: Sun Feb  8 17:01:12 2009
New Revision: 5831

Modified:
   trunk/scm/posix.scm
   trunk/uim/uim-posix.c

Log:
* scm/posix.scm (duplicate-fileno):
  - New funtion.
* uim/uim-posix.c (c_duplicate2_fileno):
  - Rename c_duplicate_fileno to c_duplicate2_fileno.
  (uim_init_posix_subrs):
  - Sync.


Modified: trunk/scm/posix.scm
==============================================================================
--- trunk/scm/posix.scm (original)
+++ trunk/scm/posix.scm Sun Feb  8 17:01:12 2009
@@ -88,3 +88,7 @@

 (define (file-get-buffer port)
   (file-buf->string (inbuf? port)))
+
+(define (duplicate-fileno oldd . args)
+  (let-optionals* args ((newd . #f))
+     (duplicate2-fileno oldd newd)))

Modified: trunk/uim/uim-posix.c
==============================================================================
--- trunk/uim/uim-posix.c       (original)
+++ trunk/uim/uim-posix.c       Sun Feb  8 17:01:12 2009
@@ -490,7 +490,7 @@
 }

 static uim_lisp
-c_duplicate_fileno(uim_lisp oldd_, uim_lisp newd_)
+c_duplicate2_fileno(uim_lisp oldd_, uim_lisp newd_)
 {
   if (FALSEP(newd_))
     return MAKE_INT(dup(C_INT(oldd_)));
@@ -700,7 +700,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_proc2("duplicate-fileno", c_duplicate_fileno);
+  uim_scm_init_proc2("duplicate2-fileno", c_duplicate2_fileno);

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