[ruby-dev:31625] IO.sysdup2, IO.sysdup, IO.sysclose

redirect の処理をちょっと書いてみたところ、
IO.sysdup2, IO.sysdup, IO.sysclose が欲しくなったのですが、
加えてもいいでしょうか。(ドキュメントは後で書きます。)

例えば、sh の 3>&1 を実現するにはは dup2(1,3) を呼び出さない
といけないわけですが、IO#reopen でこれを行うには、まず fd が
3 な IO オブジェクトをえる必要があります。しかし、3 が close
状態だと、IO.new ができません。では 3 をどうにかして open 状
態に... とか考えるよりは dup2 がいきなり使えるのが良かろう、
というわけです。

dup と sysclose は、IO レベルでやることもできますが、dup2 で
そうやって fd レベルでの操作を行っていると、IO レベルに持ち
上げてから作業するのが面倒くさく、また、GC を気にしないとい
けなくていやなのが追加の理由です。それに、sysopen はすでにあっ
て、対になる sysclose がないと close しにくいですし。

Index: io.c
===================================================================
--- io.c	(リビジョン 13236)
+++ io.c	(作業コピー)
@@ -5143,6 +5143,43 @@
 #endif
 }
 
+static VALUE
+rb_io_s_sysdup(VALUE klass, VALUE oldfd_v)
+{
+    int oldfd, ret;
+    oldfd = NUM2INT(oldfd_v);
+    ret = dup(oldfd);
+    if (ret == -1) {
+        rb_sys_fail(0);
+    }
+    return INT2NUM(ret);
+}
+
+static VALUE
+rb_io_s_sysdup2(VALUE klass, VALUE oldfd_v, VALUE newfd_v)
+{
+    int oldfd, newfd, ret;
+    oldfd = NUM2INT(oldfd_v);
+    newfd = NUM2INT(newfd_v);
+    ret = dup2(oldfd, newfd);
+    if (ret == -1) {
+        rb_sys_fail(0);
+    }
+    return INT2NUM(ret);
+}
+
+static VALUE
+rb_io_s_sysclose(VALUE klass, VALUE fd_v)
+{
+    int fd, ret;
+    fd = NUM2INT(fd_v);
+    ret = close(fd);
+    if (ret == -1) {
+        rb_sys_fail(0);
+    }
+    return INT2NUM(ret);
+}
+
 struct foreach_arg {
     int argc;
     VALUE *argv;
@@ -5708,6 +5745,9 @@
     rb_define_singleton_method(rb_cIO, "read", rb_io_s_read, -1);
     rb_define_singleton_method(rb_cIO, "select", rb_f_select, -1);
     rb_define_singleton_method(rb_cIO, "pipe", rb_io_s_pipe, 0);
+    rb_define_singleton_method(rb_cIO, "sysdup",  rb_io_s_sysdup, 1);
+    rb_define_singleton_method(rb_cIO, "sysdup2",  rb_io_s_sysdup2, 2);
+    rb_define_singleton_method(rb_cIO, "sysclose",  rb_io_s_sysclose, 1);
 
     rb_define_method(rb_cIO, "initialize", rb_io_initialize, -1);
 
-- 
[田中 哲][たなか あきら][Tanaka Akira]