diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-08-27 03:55:54 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-08-27 03:55:54 +0000 |
commit | 707a0a946d55df772012b282c594df790371ec23 (patch) | |
tree | 84dec9dacaafa14ca3507be443a228137fea9a03 /io.c | |
parent | 39ac1d7c22072f2d520738098692bdbce2f380df (diff) |
1.1c3
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@287 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'io.c')
-rw-r--r-- | io.c | 18 |
1 files changed, 10 insertions, 8 deletions
@@ -1841,7 +1841,7 @@ f_gets() static VALUE f_readline(argc, argv) int argc; - VALUE argv; + VALUE *argv; { VALUE line = f_gets_method(argc, argv); @@ -1929,7 +1929,7 @@ f_readchar() static VALUE f_readlines(argc, argv) int argc; - VALUE argv; + VALUE *argv; { VALUE line, ary; @@ -1988,7 +1988,7 @@ f_select(argc, argv, obj) struct timeval *tp, timerec; OpenFile *fptr; int i, max = 0, n; - int interrupt = 0; + int interrupt_flag = 0; int pending = 0; rb_scan_args(argc, argv, "13", &read, &write, &except, &timeout); @@ -2079,7 +2079,7 @@ f_select(argc, argv, obj) rb_sys_fail(0); } if (tp == NULL) goto retry; - interrupt = 1; + interrupt_flag = 1; } #endif if (!pending && n == 0) return Qnil; /* returns nil on timeout */ @@ -2089,7 +2089,7 @@ f_select(argc, argv, obj) ary_push(res, wp?ary_new():ary_new2(0)); ary_push(res, ep?ary_new():ary_new2(0)); - if (interrupt == 0) { + if (interrupt_flag == 0) { if (rp) { list = RARRAY(res)->ptr[0]; for (i=0; i< RARRAY(read)->len; i++) { @@ -2181,19 +2181,21 @@ io_ctl(io, req, arg, io_p) narg = (long)RSTRING(arg)->ptr; } fd = fileno(fptr->f); - TRAP_BEG; #ifdef HAVE_FCNTL + TRAP_BEG; # ifdef USE_CWGUSI retval = io_p?ioctl(fd, cmd, (void*) narg):fcntl(fd, cmd, narg); # else retval = io_p?ioctl(fd, cmd, narg):fcntl(fd, cmd, narg); # endif -#else TRAP_END; +#else if (!io_p) { rb_notimplement(); } + TRAP_BEG; retval = ioctl(fd, cmd, narg); + TRAP_END; #endif if (retval < 0) rb_sys_fail(fptr->path); if (TYPE(arg) == T_STRING && RSTRING(arg)->ptr[len] != 17) { @@ -2500,7 +2502,7 @@ arg_readchar() static VALUE arg_each_line(argc, argv) int argc; - VALUE argv; + VALUE *argv; { VALUE str; |