1 | /*
|
---|
2 | ** io.c - IO class
|
---|
3 | */
|
---|
4 |
|
---|
5 | #include "mruby.h"
|
---|
6 | #include "mruby/array.h"
|
---|
7 | #include "mruby/class.h"
|
---|
8 | #include "mruby/data.h"
|
---|
9 | #include "mruby/hash.h"
|
---|
10 | #include "mruby/string.h"
|
---|
11 | #include "mruby/variable.h"
|
---|
12 | #include "mruby/ext/io.h"
|
---|
13 |
|
---|
14 | #if MRUBY_RELEASE_NO < 10000
|
---|
15 | #include "error.h"
|
---|
16 | #else
|
---|
17 | #include "mruby/error.h"
|
---|
18 | #endif
|
---|
19 |
|
---|
20 | #include <sys/types.h>
|
---|
21 | #include <sys/stat.h>
|
---|
22 |
|
---|
23 | #if defined(_WIN32) || defined(_WIN64)
|
---|
24 | #include <winsock.h>
|
---|
25 | #include <io.h>
|
---|
26 | #define open _open
|
---|
27 | #define close _close
|
---|
28 | #define read _read
|
---|
29 | #define write _write
|
---|
30 | #define lseek _lseek
|
---|
31 | #else
|
---|
32 | #include <sys/wait.h>
|
---|
33 | #include <unistd.h>
|
---|
34 | #endif
|
---|
35 |
|
---|
36 | #include <fcntl.h>
|
---|
37 |
|
---|
38 | #include <errno.h>
|
---|
39 | #include <stdio.h>
|
---|
40 | #include <string.h>
|
---|
41 |
|
---|
42 |
|
---|
43 | static void mrb_io_free(mrb_state *mrb, void *ptr);
|
---|
44 | struct mrb_data_type mrb_io_type = { "IO", mrb_io_free };
|
---|
45 |
|
---|
46 |
|
---|
47 | static struct mrb_io *io_get_open_fptr(mrb_state *mrb, mrb_value self);
|
---|
48 | static int mrb_io_modestr_to_flags(mrb_state *mrb, const char *modestr);
|
---|
49 | static int mrb_io_flags_to_modenum(mrb_state *mrb, int flags);
|
---|
50 | static void fptr_finalize(mrb_state *mrb, struct mrb_io *fptr, int quiet);
|
---|
51 |
|
---|
52 | #if MRUBY_RELEASE_NO < 10000
|
---|
53 | static struct RClass *
|
---|
54 | mrb_module_get(mrb_state *mrb, const char *name)
|
---|
55 | {
|
---|
56 | return mrb_class_get(mrb, name);
|
---|
57 | }
|
---|
58 | #endif
|
---|
59 |
|
---|
60 | static struct mrb_io *
|
---|
61 | io_get_open_fptr(mrb_state *mrb, mrb_value self)
|
---|
62 | {
|
---|
63 | struct mrb_io *fptr;
|
---|
64 |
|
---|
65 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, self, &mrb_io_type);
|
---|
66 | if (fptr->fd < 0) {
|
---|
67 | mrb_raise(mrb, E_IO_ERROR, "closed stream.");
|
---|
68 | }
|
---|
69 | return fptr;
|
---|
70 | }
|
---|
71 |
|
---|
72 | #if !defined(_WIN32) && !defined(_WIN64)
|
---|
73 | static void
|
---|
74 | io_set_process_status(mrb_state *mrb, pid_t pid, int status)
|
---|
75 | {
|
---|
76 | struct RClass *c_process, *c_status;
|
---|
77 | mrb_value v;
|
---|
78 |
|
---|
79 | c_status = NULL;
|
---|
80 | if (mrb_class_defined(mrb, "Process")) {
|
---|
81 | c_process = mrb_module_get(mrb, "Process");
|
---|
82 | if (mrb_const_defined(mrb, mrb_obj_value(c_process), mrb_intern_cstr(mrb, "Status"))) {
|
---|
83 | c_status = mrb_class_get_under(mrb, c_process, "Status");
|
---|
84 | }
|
---|
85 | }
|
---|
86 | if (c_status != NULL) {
|
---|
87 | v = mrb_funcall(mrb, mrb_obj_value(c_status), "new", 2, mrb_fixnum_value(pid), mrb_fixnum_value(status));
|
---|
88 | } else {
|
---|
89 | v = mrb_fixnum_value(WEXITSTATUS(status));
|
---|
90 | }
|
---|
91 | mrb_gv_set(mrb, mrb_intern_cstr(mrb, "$?"), v);
|
---|
92 | }
|
---|
93 | #endif
|
---|
94 |
|
---|
95 | static int
|
---|
96 | mrb_io_modestr_to_flags(mrb_state *mrb, const char *mode)
|
---|
97 | {
|
---|
98 | int flags = 0;
|
---|
99 | const char *m = mode;
|
---|
100 |
|
---|
101 | switch (*m++) {
|
---|
102 | case 'r':
|
---|
103 | flags |= FMODE_READABLE;
|
---|
104 | break;
|
---|
105 | case 'w':
|
---|
106 | flags |= FMODE_WRITABLE | FMODE_CREATE | FMODE_TRUNC;
|
---|
107 | break;
|
---|
108 | case 'a':
|
---|
109 | flags |= FMODE_WRITABLE | FMODE_APPEND | FMODE_CREATE;
|
---|
110 | break;
|
---|
111 | default:
|
---|
112 | mrb_raisef(mrb, E_ARGUMENT_ERROR, "illegal access mode %S", mrb_str_new_cstr(mrb, mode));
|
---|
113 | }
|
---|
114 |
|
---|
115 | while (*m) {
|
---|
116 | switch (*m++) {
|
---|
117 | case 'b':
|
---|
118 | flags |= FMODE_BINMODE;
|
---|
119 | break;
|
---|
120 | case '+':
|
---|
121 | flags |= FMODE_READWRITE;
|
---|
122 | break;
|
---|
123 | case ':':
|
---|
124 | /* XXX: PASSTHROUGH*/
|
---|
125 | default:
|
---|
126 | mrb_raisef(mrb, E_ARGUMENT_ERROR, "illegal access mode %S", mrb_str_new_cstr(mrb, mode));
|
---|
127 | }
|
---|
128 | }
|
---|
129 |
|
---|
130 | return flags;
|
---|
131 | }
|
---|
132 |
|
---|
133 | static int
|
---|
134 | mrb_io_flags_to_modenum(mrb_state *mrb, int flags)
|
---|
135 | {
|
---|
136 | int modenum = 0;
|
---|
137 |
|
---|
138 | switch(flags & (FMODE_READABLE|FMODE_WRITABLE|FMODE_READWRITE)) {
|
---|
139 | case FMODE_READABLE:
|
---|
140 | modenum = O_RDONLY;
|
---|
141 | break;
|
---|
142 | case FMODE_WRITABLE:
|
---|
143 | modenum = O_WRONLY;
|
---|
144 | break;
|
---|
145 | case FMODE_READWRITE:
|
---|
146 | modenum = O_RDWR;
|
---|
147 | break;
|
---|
148 | }
|
---|
149 |
|
---|
150 | if (flags & FMODE_APPEND) {
|
---|
151 | modenum |= O_APPEND;
|
---|
152 | }
|
---|
153 | if (flags & FMODE_TRUNC) {
|
---|
154 | modenum |= O_TRUNC;
|
---|
155 | }
|
---|
156 | if (flags & FMODE_CREATE) {
|
---|
157 | modenum |= O_CREAT;
|
---|
158 | }
|
---|
159 | #ifdef O_BINARY
|
---|
160 | if (flags & FMODE_BINMODE) {
|
---|
161 | modenum |= O_BINARY;
|
---|
162 | }
|
---|
163 | #endif
|
---|
164 |
|
---|
165 | return modenum;
|
---|
166 | }
|
---|
167 |
|
---|
168 | void
|
---|
169 | mrb_fd_cloexec(mrb_state *mrb, int fd)
|
---|
170 | {
|
---|
171 | #if defined(F_GETFD) && defined(F_SETFD) && defined(FD_CLOEXEC)
|
---|
172 | int flags, flags2;
|
---|
173 |
|
---|
174 | flags = fcntl(fd, F_GETFD);
|
---|
175 | if (flags == -1) {
|
---|
176 | mrb_sys_fail(mrb, "fcntl");
|
---|
177 | }
|
---|
178 | if (fd <= 2) {
|
---|
179 | flags2 = flags & ~FD_CLOEXEC; /* Clear CLOEXEC for standard file descriptors: 0, 1, 2. */
|
---|
180 | }
|
---|
181 | else {
|
---|
182 | flags2 = flags | FD_CLOEXEC; /* Set CLOEXEC for non-standard file descriptors: 3, 4, 5, ... */
|
---|
183 | }
|
---|
184 | if (flags != flags2) {
|
---|
185 | if (fcntl(fd, F_SETFD, flags2) == -1) {
|
---|
186 | mrb_sys_fail(mrb, "fcntl");
|
---|
187 | }
|
---|
188 | }
|
---|
189 | #endif
|
---|
190 | }
|
---|
191 |
|
---|
192 | #ifndef _WIN32
|
---|
193 | static int
|
---|
194 | mrb_cloexec_pipe(mrb_state *mrb, int fildes[2])
|
---|
195 | {
|
---|
196 | int ret;
|
---|
197 | ret = pipe(fildes);
|
---|
198 | if (ret == -1)
|
---|
199 | return -1;
|
---|
200 | mrb_fd_cloexec(mrb, fildes[0]);
|
---|
201 | mrb_fd_cloexec(mrb, fildes[1]);
|
---|
202 | return ret;
|
---|
203 | }
|
---|
204 |
|
---|
205 | static int
|
---|
206 | mrb_pipe(mrb_state *mrb, int pipes[2])
|
---|
207 | {
|
---|
208 | int ret;
|
---|
209 | ret = mrb_cloexec_pipe(mrb, pipes);
|
---|
210 | if (ret == -1) {
|
---|
211 | if (errno == EMFILE || errno == ENFILE) {
|
---|
212 | mrb_garbage_collect(mrb);
|
---|
213 | ret = mrb_cloexec_pipe(mrb, pipes);
|
---|
214 | }
|
---|
215 | }
|
---|
216 | return ret;
|
---|
217 | }
|
---|
218 |
|
---|
219 | static int
|
---|
220 | mrb_proc_exec(const char *pname)
|
---|
221 | {
|
---|
222 | const char *s;
|
---|
223 | s = pname;
|
---|
224 |
|
---|
225 | while (*s == ' ' || *s == '\t' || *s == '\n')
|
---|
226 | s++;
|
---|
227 |
|
---|
228 | if (!*s) {
|
---|
229 | errno = ENOENT;
|
---|
230 | return -1;
|
---|
231 | }
|
---|
232 |
|
---|
233 | execl("/bin/sh", "sh", "-c", pname, (char *)NULL);
|
---|
234 | return -1;
|
---|
235 | }
|
---|
236 | #endif
|
---|
237 |
|
---|
238 | static void
|
---|
239 | mrb_io_free(mrb_state *mrb, void *ptr)
|
---|
240 | {
|
---|
241 | struct mrb_io *io = (struct mrb_io *)ptr;
|
---|
242 | if (io != NULL) {
|
---|
243 | fptr_finalize(mrb, io, TRUE);
|
---|
244 | mrb_free(mrb, io);
|
---|
245 | }
|
---|
246 | }
|
---|
247 |
|
---|
248 | static struct mrb_io *
|
---|
249 | mrb_io_alloc(mrb_state *mrb)
|
---|
250 | {
|
---|
251 | struct mrb_io *fptr;
|
---|
252 |
|
---|
253 | fptr = (struct mrb_io *)mrb_malloc(mrb, sizeof(struct mrb_io));
|
---|
254 | fptr->fd = -1;
|
---|
255 | fptr->fd2 = -1;
|
---|
256 | fptr->pid = 0;
|
---|
257 | fptr->readable = 0;
|
---|
258 | fptr->writable = 0;
|
---|
259 | fptr->sync = 0;
|
---|
260 | return fptr;
|
---|
261 | }
|
---|
262 |
|
---|
263 | #ifndef NOFILE
|
---|
264 | #define NOFILE 64
|
---|
265 | #endif
|
---|
266 |
|
---|
267 | #ifndef _WIN32
|
---|
268 | static int
|
---|
269 | option_to_fd(mrb_state *mrb, mrb_value obj, const char *key)
|
---|
270 | {
|
---|
271 | mrb_value opt = mrb_funcall(mrb, obj, "[]", 1, mrb_symbol_value(mrb_intern_static(mrb, key, strlen(key))));
|
---|
272 | if (mrb_nil_p(opt)) {
|
---|
273 | return -1;
|
---|
274 | }
|
---|
275 |
|
---|
276 | switch (mrb_type(opt)) {
|
---|
277 | case MRB_TT_DATA: /* IO */
|
---|
278 | return mrb_fixnum(mrb_io_fileno(mrb, opt));
|
---|
279 | case MRB_TT_FIXNUM:
|
---|
280 | return mrb_fixnum(opt);
|
---|
281 | default:
|
---|
282 | mrb_raise(mrb, E_ARGUMENT_ERROR, "wrong exec redirect action");
|
---|
283 | break;
|
---|
284 | }
|
---|
285 | return -1; /* never reached */
|
---|
286 | }
|
---|
287 |
|
---|
288 | mrb_value
|
---|
289 | mrb_io_s_popen(mrb_state *mrb, mrb_value klass)
|
---|
290 | {
|
---|
291 | mrb_value cmd, io, result;
|
---|
292 | mrb_value mode = mrb_str_new_cstr(mrb, "r");
|
---|
293 | mrb_value opt = mrb_hash_new(mrb);
|
---|
294 |
|
---|
295 | struct mrb_io *fptr;
|
---|
296 | const char *pname;
|
---|
297 | int pid, flags, fd, write_fd = -1;
|
---|
298 | int pr[2] = { -1, -1 };
|
---|
299 | int pw[2] = { -1, -1 };
|
---|
300 | int doexec;
|
---|
301 | int saved_errno;
|
---|
302 | int opt_in, opt_out, opt_err;
|
---|
303 |
|
---|
304 | mrb_get_args(mrb, "S|SH", &cmd, &mode, &opt);
|
---|
305 | io = mrb_obj_value(mrb_data_object_alloc(mrb, mrb_class_ptr(klass), NULL, &mrb_io_type));
|
---|
306 |
|
---|
307 | pname = mrb_string_value_cstr(mrb, &cmd);
|
---|
308 | flags = mrb_io_modestr_to_flags(mrb, mrb_string_value_cstr(mrb, &mode));
|
---|
309 |
|
---|
310 | doexec = (strcmp("-", pname) != 0);
|
---|
311 | opt_in = option_to_fd(mrb, opt, "in");
|
---|
312 | opt_out = option_to_fd(mrb, opt, "out");
|
---|
313 | opt_err = option_to_fd(mrb, opt, "err");
|
---|
314 |
|
---|
315 | if (flags & FMODE_READABLE) {
|
---|
316 | if (pipe(pr) == -1) {
|
---|
317 | mrb_sys_fail(mrb, "pipe");
|
---|
318 | }
|
---|
319 | mrb_fd_cloexec(mrb, pr[0]);
|
---|
320 | mrb_fd_cloexec(mrb, pr[1]);
|
---|
321 | }
|
---|
322 |
|
---|
323 | if (flags & FMODE_WRITABLE) {
|
---|
324 | if (pipe(pw) == -1) {
|
---|
325 | if (pr[0] != -1) close(pr[0]);
|
---|
326 | if (pr[1] != -1) close(pr[1]);
|
---|
327 | mrb_sys_fail(mrb, "pipe");
|
---|
328 | }
|
---|
329 | mrb_fd_cloexec(mrb, pw[0]);
|
---|
330 | mrb_fd_cloexec(mrb, pw[1]);
|
---|
331 | }
|
---|
332 |
|
---|
333 | if (!doexec) {
|
---|
334 | // XXX
|
---|
335 | fflush(stdin);
|
---|
336 | fflush(stdout);
|
---|
337 | fflush(stderr);
|
---|
338 | }
|
---|
339 |
|
---|
340 | result = mrb_nil_value();
|
---|
341 | switch (pid = fork()) {
|
---|
342 | case 0: /* child */
|
---|
343 | if (opt_in != -1) {
|
---|
344 | dup2(opt_in, 0);
|
---|
345 | }
|
---|
346 | if (opt_out != -1) {
|
---|
347 | dup2(opt_out, 1);
|
---|
348 | }
|
---|
349 | if (opt_err != -1) {
|
---|
350 | dup2(opt_err, 2);
|
---|
351 | }
|
---|
352 | if (flags & FMODE_READABLE) {
|
---|
353 | close(pr[0]);
|
---|
354 | if (pr[1] != 1) {
|
---|
355 | dup2(pr[1], 1);
|
---|
356 | close(pr[1]);
|
---|
357 | }
|
---|
358 | }
|
---|
359 | if (flags & FMODE_WRITABLE) {
|
---|
360 | close(pw[1]);
|
---|
361 | if (pw[0] != 0) {
|
---|
362 | dup2(pw[0], 0);
|
---|
363 | close(pw[0]);
|
---|
364 | }
|
---|
365 | }
|
---|
366 | if (doexec) {
|
---|
367 | for (fd = 3; fd < NOFILE; fd++) {
|
---|
368 | close(fd);
|
---|
369 | }
|
---|
370 | mrb_proc_exec(pname);
|
---|
371 | mrb_raisef(mrb, E_IO_ERROR, "command not found: %S", cmd);
|
---|
372 | _exit(127);
|
---|
373 | }
|
---|
374 | result = mrb_nil_value();
|
---|
375 | break;
|
---|
376 |
|
---|
377 | default: /* parent */
|
---|
378 | if ((flags & FMODE_READABLE) && (flags & FMODE_WRITABLE)) {
|
---|
379 | close(pr[1]);
|
---|
380 | fd = pr[0];
|
---|
381 | close(pw[0]);
|
---|
382 | write_fd = pw[1];
|
---|
383 | } else if (flags & FMODE_READABLE) {
|
---|
384 | close(pr[1]);
|
---|
385 | fd = pr[0];
|
---|
386 | } else {
|
---|
387 | close(pw[0]);
|
---|
388 | fd = pw[1];
|
---|
389 | }
|
---|
390 |
|
---|
391 | mrb_iv_set(mrb, io, mrb_intern_cstr(mrb, "@buf"), mrb_str_new_cstr(mrb, ""));
|
---|
392 |
|
---|
393 | fptr = mrb_io_alloc(mrb);
|
---|
394 | fptr->fd = fd;
|
---|
395 | fptr->fd2 = write_fd;
|
---|
396 | fptr->pid = pid;
|
---|
397 | fptr->readable = ((flags & FMODE_READABLE) != 0);
|
---|
398 | fptr->writable = ((flags & FMODE_WRITABLE) != 0);
|
---|
399 | fptr->sync = 0;
|
---|
400 |
|
---|
401 | DATA_TYPE(io) = &mrb_io_type;
|
---|
402 | DATA_PTR(io) = fptr;
|
---|
403 | result = io;
|
---|
404 | break;
|
---|
405 |
|
---|
406 | case -1: /* error */
|
---|
407 | saved_errno = errno;
|
---|
408 | if (flags & FMODE_READABLE) {
|
---|
409 | close(pr[0]);
|
---|
410 | close(pr[1]);
|
---|
411 | }
|
---|
412 | if (flags & FMODE_WRITABLE) {
|
---|
413 | close(pw[0]);
|
---|
414 | close(pw[1]);
|
---|
415 | }
|
---|
416 | errno = saved_errno;
|
---|
417 | mrb_sys_fail(mrb, "pipe_open failed.");
|
---|
418 | break;
|
---|
419 | }
|
---|
420 | return result;
|
---|
421 | }
|
---|
422 | #endif
|
---|
423 |
|
---|
424 | mrb_value
|
---|
425 | mrb_io_initialize(mrb_state *mrb, mrb_value io)
|
---|
426 | {
|
---|
427 | struct mrb_io *fptr;
|
---|
428 | mrb_int fd;
|
---|
429 | mrb_value mode, opt;
|
---|
430 | int flags;
|
---|
431 |
|
---|
432 | mode = opt = mrb_nil_value();
|
---|
433 |
|
---|
434 | mrb_get_args(mrb, "i|So", &fd, &mode, &opt);
|
---|
435 | if (mrb_nil_p(mode)) {
|
---|
436 | mode = mrb_str_new_cstr(mrb, "r");
|
---|
437 | }
|
---|
438 | if (mrb_nil_p(opt)) {
|
---|
439 | opt = mrb_hash_new(mrb);
|
---|
440 | }
|
---|
441 |
|
---|
442 | flags = mrb_io_modestr_to_flags(mrb, mrb_string_value_cstr(mrb, &mode));
|
---|
443 |
|
---|
444 | mrb_iv_set(mrb, io, mrb_intern_cstr(mrb, "@buf"), mrb_str_new_cstr(mrb, ""));
|
---|
445 |
|
---|
446 | fptr = (struct mrb_io *)DATA_PTR(io);
|
---|
447 | if (fptr != NULL) {
|
---|
448 | fptr_finalize(mrb, fptr, TRUE);
|
---|
449 | mrb_free(mrb, fptr);
|
---|
450 | }
|
---|
451 | fptr = mrb_io_alloc(mrb);
|
---|
452 |
|
---|
453 | DATA_TYPE(io) = &mrb_io_type;
|
---|
454 | DATA_PTR(io) = fptr;
|
---|
455 |
|
---|
456 | fptr->fd = fd;
|
---|
457 | fptr->readable = ((flags & FMODE_READABLE) != 0);
|
---|
458 | fptr->writable = ((flags & FMODE_WRITABLE) != 0);
|
---|
459 | fptr->sync = 0;
|
---|
460 | return io;
|
---|
461 | }
|
---|
462 |
|
---|
463 | static void
|
---|
464 | fptr_finalize(mrb_state *mrb, struct mrb_io *fptr, int quiet)
|
---|
465 | {
|
---|
466 | int saved_errno = 0;
|
---|
467 |
|
---|
468 | if (fptr == NULL) {
|
---|
469 | return;
|
---|
470 | }
|
---|
471 |
|
---|
472 | if (fptr->fd > 2) {
|
---|
473 | if (close(fptr->fd) == -1) {
|
---|
474 | saved_errno = errno;
|
---|
475 | }
|
---|
476 | fptr->fd = -1;
|
---|
477 | }
|
---|
478 |
|
---|
479 | if (fptr->fd2 > 2) {
|
---|
480 | if (close(fptr->fd2) == -1) {
|
---|
481 | if (saved_errno == 0) {
|
---|
482 | saved_errno = errno;
|
---|
483 | }
|
---|
484 | }
|
---|
485 | fptr->fd2 = -1;
|
---|
486 | }
|
---|
487 |
|
---|
488 | #if !defined(_WIN32) && !defined(_WIN64)
|
---|
489 | if (fptr->pid != 0) {
|
---|
490 | pid_t pid;
|
---|
491 | int status;
|
---|
492 | do {
|
---|
493 | pid = waitpid(fptr->pid, &status, 0);
|
---|
494 | } while (pid == -1 && errno == EINTR);
|
---|
495 | if (!quiet && pid == fptr->pid) {
|
---|
496 | io_set_process_status(mrb, pid, status);
|
---|
497 | }
|
---|
498 | fptr->pid = 0;
|
---|
499 | /* Note: we don't raise an exception when waitpid(3) fails */
|
---|
500 | }
|
---|
501 | #endif
|
---|
502 |
|
---|
503 | if (!quiet && saved_errno != 0) {
|
---|
504 | errno = saved_errno;
|
---|
505 | mrb_sys_fail(mrb, "fptr_finalize failed.");
|
---|
506 | }
|
---|
507 | }
|
---|
508 |
|
---|
509 | mrb_value
|
---|
510 | mrb_io_check_readable(mrb_state *mrb, mrb_value self)
|
---|
511 | {
|
---|
512 | struct mrb_io *fptr = io_get_open_fptr(mrb, self);
|
---|
513 | if (! fptr->readable) {
|
---|
514 | mrb_raise(mrb, E_IO_ERROR, "not opened for reading");
|
---|
515 | }
|
---|
516 | return mrb_nil_value();
|
---|
517 | }
|
---|
518 |
|
---|
519 | mrb_value
|
---|
520 | mrb_io_isatty(mrb_state *mrb, mrb_value self)
|
---|
521 | {
|
---|
522 | struct mrb_io *fptr;
|
---|
523 |
|
---|
524 | fptr = io_get_open_fptr(mrb, self);
|
---|
525 | if (isatty(fptr->fd) == 0)
|
---|
526 | return mrb_false_value();
|
---|
527 | return mrb_true_value();
|
---|
528 | }
|
---|
529 |
|
---|
530 | mrb_value
|
---|
531 | mrb_io_s_for_fd(mrb_state *mrb, mrb_value klass)
|
---|
532 | {
|
---|
533 | struct RClass *c = mrb_class_ptr(klass);
|
---|
534 | enum mrb_vtype ttype = MRB_INSTANCE_TT(c);
|
---|
535 | mrb_value obj;
|
---|
536 |
|
---|
537 | /* copied from mrb_instance_alloc() */
|
---|
538 | if (ttype == 0) ttype = MRB_TT_OBJECT;
|
---|
539 | obj = mrb_obj_value((struct RObject*)mrb_obj_alloc(mrb, ttype, c));
|
---|
540 | return mrb_io_initialize(mrb, obj);
|
---|
541 | }
|
---|
542 |
|
---|
543 | mrb_value
|
---|
544 | mrb_io_s_sysclose(mrb_state *mrb, mrb_value klass)
|
---|
545 | {
|
---|
546 | mrb_int fd;
|
---|
547 | mrb_get_args(mrb, "i", &fd);
|
---|
548 | if (close(fd) == -1) {
|
---|
549 | mrb_sys_fail(mrb, "close");
|
---|
550 | }
|
---|
551 | return mrb_fixnum_value(0);
|
---|
552 | }
|
---|
553 |
|
---|
554 | int
|
---|
555 | mrb_cloexec_open(mrb_state *mrb, const char *pathname, mrb_int flags, mrb_int mode)
|
---|
556 | {
|
---|
557 | mrb_value emsg;
|
---|
558 | int fd, retry = FALSE;
|
---|
559 |
|
---|
560 | #ifdef O_CLOEXEC
|
---|
561 | /* O_CLOEXEC is available since Linux 2.6.23. Linux 2.6.18 silently ignore it. */
|
---|
562 | flags |= O_CLOEXEC;
|
---|
563 | #elif defined O_NOINHERIT
|
---|
564 | flags |= O_NOINHERIT;
|
---|
565 | #endif
|
---|
566 | reopen:
|
---|
567 | fd = open(pathname, flags, mode);
|
---|
568 | if (fd == -1) {
|
---|
569 | if (!retry) {
|
---|
570 | switch (errno) {
|
---|
571 | case ENFILE:
|
---|
572 | case EMFILE:
|
---|
573 | mrb_garbage_collect(mrb);
|
---|
574 | retry = TRUE;
|
---|
575 | goto reopen;
|
---|
576 | }
|
---|
577 | }
|
---|
578 |
|
---|
579 | emsg = mrb_format(mrb, "open %S", mrb_str_new_cstr(mrb, pathname));
|
---|
580 | mrb_str_modify(mrb, mrb_str_ptr(emsg));
|
---|
581 | mrb_sys_fail(mrb, RSTRING_PTR(emsg));
|
---|
582 | }
|
---|
583 |
|
---|
584 | if (fd <= 2) {
|
---|
585 | mrb_fd_cloexec(mrb, fd);
|
---|
586 | }
|
---|
587 | return fd;
|
---|
588 | }
|
---|
589 |
|
---|
590 | mrb_value
|
---|
591 | mrb_io_s_sysopen(mrb_state *mrb, mrb_value klass)
|
---|
592 | {
|
---|
593 | mrb_value path = mrb_nil_value();
|
---|
594 | mrb_value mode = mrb_nil_value();
|
---|
595 | mrb_int fd, flags, perm = -1;
|
---|
596 | const char *pat;
|
---|
597 | int modenum;
|
---|
598 |
|
---|
599 | mrb_get_args(mrb, "S|Si", &path, &mode, &perm);
|
---|
600 | if (mrb_nil_p(mode)) {
|
---|
601 | mode = mrb_str_new_cstr(mrb, "r");
|
---|
602 | }
|
---|
603 | if (perm < 0) {
|
---|
604 | perm = 0666;
|
---|
605 | }
|
---|
606 |
|
---|
607 | pat = mrb_string_value_cstr(mrb, &path);
|
---|
608 | flags = mrb_io_modestr_to_flags(mrb, mrb_string_value_cstr(mrb, &mode));
|
---|
609 | modenum = mrb_io_flags_to_modenum(mrb, flags);
|
---|
610 | fd = mrb_cloexec_open(mrb, pat, modenum, perm);
|
---|
611 | return mrb_fixnum_value(fd);
|
---|
612 | }
|
---|
613 |
|
---|
614 | mrb_value
|
---|
615 | mrb_io_sysread(mrb_state *mrb, mrb_value io)
|
---|
616 | {
|
---|
617 | struct mrb_io *fptr;
|
---|
618 | mrb_value buf = mrb_nil_value();
|
---|
619 | mrb_int maxlen;
|
---|
620 | int ret;
|
---|
621 |
|
---|
622 | mrb_get_args(mrb, "i|S", &maxlen, &buf);
|
---|
623 | if (maxlen < 0) {
|
---|
624 | mrb_raise(mrb, E_ARGUMENT_ERROR, "negative expanding string size");
|
---|
625 | }
|
---|
626 | else if (maxlen == 0) {
|
---|
627 | return mrb_str_new(mrb, NULL, maxlen);
|
---|
628 | }
|
---|
629 |
|
---|
630 | if (mrb_nil_p(buf)) {
|
---|
631 | buf = mrb_str_new(mrb, NULL, maxlen);
|
---|
632 | }
|
---|
633 |
|
---|
634 | if (RSTRING_LEN(buf) != maxlen) {
|
---|
635 | buf = mrb_str_resize(mrb, buf, maxlen);
|
---|
636 | } else {
|
---|
637 | mrb_str_modify(mrb, RSTRING(buf));
|
---|
638 | }
|
---|
639 |
|
---|
640 | fptr = (struct mrb_io *)io_get_open_fptr(mrb, io);
|
---|
641 | if (!fptr->readable) {
|
---|
642 | mrb_raise(mrb, E_IO_ERROR, "not opened for reading");
|
---|
643 | }
|
---|
644 | ret = read(fptr->fd, RSTRING_PTR(buf), maxlen);
|
---|
645 | switch (ret) {
|
---|
646 | case 0: /* EOF */
|
---|
647 | if (maxlen == 0) {
|
---|
648 | buf = mrb_str_new_cstr(mrb, "");
|
---|
649 | } else {
|
---|
650 | mrb_raise(mrb, E_EOF_ERROR, "sysread failed: End of File");
|
---|
651 | }
|
---|
652 | break;
|
---|
653 | case -1: /* Error */
|
---|
654 | mrb_sys_fail(mrb, "sysread failed");
|
---|
655 | break;
|
---|
656 | default:
|
---|
657 | if (RSTRING_LEN(buf) != ret) {
|
---|
658 | buf = mrb_str_resize(mrb, buf, ret);
|
---|
659 | }
|
---|
660 | break;
|
---|
661 | }
|
---|
662 |
|
---|
663 | return buf;
|
---|
664 | }
|
---|
665 |
|
---|
666 | mrb_value
|
---|
667 | mrb_io_sysseek(mrb_state *mrb, mrb_value io)
|
---|
668 | {
|
---|
669 | struct mrb_io *fptr;
|
---|
670 | off_t pos;
|
---|
671 | mrb_int offset, whence = -1;
|
---|
672 |
|
---|
673 | mrb_get_args(mrb, "i|i", &offset, &whence);
|
---|
674 | if (whence < 0) {
|
---|
675 | whence = 0;
|
---|
676 | }
|
---|
677 |
|
---|
678 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, io, &mrb_io_type);
|
---|
679 | pos = lseek(fptr->fd, offset, whence);
|
---|
680 | if (pos == -1) {
|
---|
681 | mrb_sys_fail(mrb, "sysseek");
|
---|
682 | }
|
---|
683 | if (pos > MRB_INT_MAX) {
|
---|
684 | return mrb_float_value(mrb, (mrb_float)pos);
|
---|
685 | } else {
|
---|
686 | return mrb_fixnum_value(pos);
|
---|
687 | }
|
---|
688 | }
|
---|
689 |
|
---|
690 | mrb_value
|
---|
691 | mrb_io_syswrite(mrb_state *mrb, mrb_value io)
|
---|
692 | {
|
---|
693 | struct mrb_io *fptr;
|
---|
694 | mrb_value str, buf;
|
---|
695 | int fd, length;
|
---|
696 |
|
---|
697 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, io, &mrb_io_type);
|
---|
698 | if (! fptr->writable) {
|
---|
699 | mrb_raise(mrb, E_IO_ERROR, "not opened for writing");
|
---|
700 | }
|
---|
701 |
|
---|
702 | mrb_get_args(mrb, "S", &str);
|
---|
703 | if (mrb_type(str) != MRB_TT_STRING) {
|
---|
704 | buf = mrb_funcall(mrb, str, "to_s", 0);
|
---|
705 | } else {
|
---|
706 | buf = str;
|
---|
707 | }
|
---|
708 |
|
---|
709 | if (fptr->fd2 == -1) {
|
---|
710 | fd = fptr->fd;
|
---|
711 | } else {
|
---|
712 | fd = fptr->fd2;
|
---|
713 | }
|
---|
714 | length = write(fd, RSTRING_PTR(buf), RSTRING_LEN(buf));
|
---|
715 | if (length == -1) {
|
---|
716 | mrb_sys_fail(mrb, 0);
|
---|
717 | }
|
---|
718 |
|
---|
719 | return mrb_fixnum_value(length);
|
---|
720 | }
|
---|
721 |
|
---|
722 | mrb_value
|
---|
723 | mrb_io_close(mrb_state *mrb, mrb_value self)
|
---|
724 | {
|
---|
725 | struct mrb_io *fptr;
|
---|
726 | fptr = io_get_open_fptr(mrb, self);
|
---|
727 | fptr_finalize(mrb, fptr, FALSE);
|
---|
728 | return mrb_nil_value();
|
---|
729 | }
|
---|
730 |
|
---|
731 | mrb_value
|
---|
732 | mrb_io_closed(mrb_state *mrb, mrb_value io)
|
---|
733 | {
|
---|
734 | struct mrb_io *fptr;
|
---|
735 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, io, &mrb_io_type);
|
---|
736 | if (fptr->fd >= 0) {
|
---|
737 | return mrb_false_value();
|
---|
738 | }
|
---|
739 |
|
---|
740 | return mrb_true_value();
|
---|
741 | }
|
---|
742 |
|
---|
743 | mrb_value
|
---|
744 | mrb_io_pid(mrb_state *mrb, mrb_value io)
|
---|
745 | {
|
---|
746 | struct mrb_io *fptr;
|
---|
747 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, io, &mrb_io_type);
|
---|
748 |
|
---|
749 | if (fptr->pid > 0) {
|
---|
750 | return mrb_fixnum_value(fptr->pid);
|
---|
751 | }
|
---|
752 |
|
---|
753 | return mrb_nil_value();
|
---|
754 | }
|
---|
755 |
|
---|
756 | static struct timeval
|
---|
757 | time2timeval(mrb_state *mrb, mrb_value time)
|
---|
758 | {
|
---|
759 | struct timeval t = { 0, 0 };
|
---|
760 |
|
---|
761 | switch (mrb_type(time)) {
|
---|
762 | case MRB_TT_FIXNUM:
|
---|
763 | t.tv_sec = mrb_fixnum(time);
|
---|
764 | t.tv_usec = 0;
|
---|
765 | break;
|
---|
766 |
|
---|
767 | case MRB_TT_FLOAT:
|
---|
768 | t.tv_sec = mrb_float(time);
|
---|
769 | t.tv_usec = (mrb_float(time) - t.tv_sec) * 1000000.0;
|
---|
770 | break;
|
---|
771 |
|
---|
772 | default:
|
---|
773 | mrb_raise(mrb, E_TYPE_ERROR, "wrong argument class");
|
---|
774 | }
|
---|
775 |
|
---|
776 | return t;
|
---|
777 | }
|
---|
778 |
|
---|
779 | static int
|
---|
780 | mrb_io_read_data_pending(mrb_state *mrb, mrb_value io)
|
---|
781 | {
|
---|
782 | mrb_value buf = mrb_iv_get(mrb, io, mrb_intern_cstr(mrb, "@buf"));
|
---|
783 | if (mrb_type(buf) == MRB_TT_STRING && RSTRING_LEN(buf) > 0) {
|
---|
784 | return 1;
|
---|
785 | }
|
---|
786 | return 0;
|
---|
787 | }
|
---|
788 |
|
---|
789 | #ifndef _WIN32
|
---|
790 | static mrb_value
|
---|
791 | mrb_io_s_pipe(mrb_state *mrb, mrb_value klass)
|
---|
792 | {
|
---|
793 | mrb_value r = mrb_nil_value();
|
---|
794 | mrb_value w = mrb_nil_value();
|
---|
795 | struct mrb_io *fptr_r;
|
---|
796 | struct mrb_io *fptr_w;
|
---|
797 | int pipes[2];
|
---|
798 |
|
---|
799 | if (mrb_pipe(mrb, pipes) == -1) {
|
---|
800 | mrb_sys_fail(mrb, "pipe");
|
---|
801 | }
|
---|
802 |
|
---|
803 | r = mrb_obj_value(mrb_data_object_alloc(mrb, mrb_class_ptr(klass), NULL, &mrb_io_type));
|
---|
804 | mrb_iv_set(mrb, r, mrb_intern_cstr(mrb, "@buf"), mrb_str_new_cstr(mrb, ""));
|
---|
805 | fptr_r = mrb_io_alloc(mrb);
|
---|
806 | fptr_r->fd = pipes[0];
|
---|
807 | fptr_r->readable = 1;
|
---|
808 | fptr_r->writable = 0;
|
---|
809 | fptr_r->sync = 0;
|
---|
810 | DATA_TYPE(r) = &mrb_io_type;
|
---|
811 | DATA_PTR(r) = fptr_r;
|
---|
812 |
|
---|
813 | w = mrb_obj_value(mrb_data_object_alloc(mrb, mrb_class_ptr(klass), NULL, &mrb_io_type));
|
---|
814 | mrb_iv_set(mrb, w, mrb_intern_cstr(mrb, "@buf"), mrb_str_new_cstr(mrb, ""));
|
---|
815 | fptr_w = mrb_io_alloc(mrb);
|
---|
816 | fptr_w->fd = pipes[1];
|
---|
817 | fptr_w->readable = 0;
|
---|
818 | fptr_w->writable = 1;
|
---|
819 | fptr_w->sync = 1;
|
---|
820 | DATA_TYPE(w) = &mrb_io_type;
|
---|
821 | DATA_PTR(w) = fptr_w;
|
---|
822 |
|
---|
823 | return mrb_assoc_new(mrb, r, w);
|
---|
824 | }
|
---|
825 | #endif
|
---|
826 |
|
---|
827 | static mrb_value
|
---|
828 | mrb_io_s_select(mrb_state *mrb, mrb_value klass)
|
---|
829 | {
|
---|
830 | mrb_value *argv;
|
---|
831 | mrb_int argc;
|
---|
832 | mrb_value read, read_io, write, except, timeout, list;
|
---|
833 | struct timeval *tp, timerec;
|
---|
834 | fd_set pset, rset, wset, eset;
|
---|
835 | fd_set *rp, *wp, *ep;
|
---|
836 | struct mrb_io *fptr;
|
---|
837 | int pending = 0;
|
---|
838 | mrb_value result;
|
---|
839 | int max = 0;
|
---|
840 | int interrupt_flag = 0;
|
---|
841 | int i, n;
|
---|
842 |
|
---|
843 | mrb_get_args(mrb, "*", &argv, &argc);
|
---|
844 |
|
---|
845 | if (argc < 1 || argc > 4) {
|
---|
846 | mrb_raisef(mrb, E_ARGUMENT_ERROR, "wrong number of arguments (%S for 1..4)", mrb_fixnum_value(argc));
|
---|
847 | }
|
---|
848 |
|
---|
849 | timeout = mrb_nil_value();
|
---|
850 | except = mrb_nil_value();
|
---|
851 | write = mrb_nil_value();
|
---|
852 | if (argc > 3)
|
---|
853 | timeout = argv[3];
|
---|
854 | if (argc > 2)
|
---|
855 | except = argv[2];
|
---|
856 | if (argc > 1)
|
---|
857 | write = argv[1];
|
---|
858 | read = argv[0];
|
---|
859 |
|
---|
860 | if (mrb_nil_p(timeout)) {
|
---|
861 | tp = NULL;
|
---|
862 | } else {
|
---|
863 | timerec = time2timeval(mrb, timeout);
|
---|
864 | tp = &timerec;
|
---|
865 | }
|
---|
866 |
|
---|
867 | FD_ZERO(&pset);
|
---|
868 | if (!mrb_nil_p(read)) {
|
---|
869 | mrb_check_type(mrb, read, MRB_TT_ARRAY);
|
---|
870 | rp = &rset;
|
---|
871 | FD_ZERO(rp);
|
---|
872 | for (i = 0; i < RARRAY_LEN(read); i++) {
|
---|
873 | read_io = RARRAY_PTR(read)[i];
|
---|
874 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, read_io, &mrb_io_type);
|
---|
875 | FD_SET(fptr->fd, rp);
|
---|
876 | if (mrb_io_read_data_pending(mrb, read_io)) {
|
---|
877 | pending++;
|
---|
878 | FD_SET(fptr->fd, &pset);
|
---|
879 | }
|
---|
880 | if (max < fptr->fd)
|
---|
881 | max = fptr->fd;
|
---|
882 | }
|
---|
883 | if (pending) {
|
---|
884 | timerec.tv_sec = timerec.tv_usec = 0;
|
---|
885 | tp = &timerec;
|
---|
886 | }
|
---|
887 | } else {
|
---|
888 | rp = NULL;
|
---|
889 | }
|
---|
890 |
|
---|
891 | if (!mrb_nil_p(write)) {
|
---|
892 | mrb_check_type(mrb, write, MRB_TT_ARRAY);
|
---|
893 | wp = &wset;
|
---|
894 | FD_ZERO(wp);
|
---|
895 | for (i = 0; i < RARRAY_LEN(write); i++) {
|
---|
896 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, RARRAY_PTR(write)[i], &mrb_io_type);
|
---|
897 | FD_SET(fptr->fd, wp);
|
---|
898 | if (max < fptr->fd)
|
---|
899 | max = fptr->fd;
|
---|
900 | if (fptr->fd2 >= 0) {
|
---|
901 | FD_SET(fptr->fd2, wp);
|
---|
902 | if (max < fptr->fd2)
|
---|
903 | max = fptr->fd2;
|
---|
904 | }
|
---|
905 | }
|
---|
906 | } else {
|
---|
907 | wp = NULL;
|
---|
908 | }
|
---|
909 |
|
---|
910 | if (!mrb_nil_p(except)) {
|
---|
911 | mrb_check_type(mrb, except, MRB_TT_ARRAY);
|
---|
912 | ep = &eset;
|
---|
913 | FD_ZERO(ep);
|
---|
914 | for (i = 0; i < RARRAY_LEN(except); i++) {
|
---|
915 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, RARRAY_PTR(except)[i], &mrb_io_type);
|
---|
916 | FD_SET(fptr->fd, ep);
|
---|
917 | if (max < fptr->fd)
|
---|
918 | max = fptr->fd;
|
---|
919 | if (fptr->fd2 >= 0) {
|
---|
920 | FD_SET(fptr->fd2, ep);
|
---|
921 | if (max < fptr->fd2)
|
---|
922 | max = fptr->fd2;
|
---|
923 | }
|
---|
924 | }
|
---|
925 | } else {
|
---|
926 | ep = NULL;
|
---|
927 | }
|
---|
928 |
|
---|
929 | max++;
|
---|
930 |
|
---|
931 | retry:
|
---|
932 | n = select(max, rp, wp, ep, tp);
|
---|
933 | if (n < 0) {
|
---|
934 | if (errno != EINTR)
|
---|
935 | mrb_sys_fail(mrb, "select failed");
|
---|
936 | if (tp == NULL)
|
---|
937 | goto retry;
|
---|
938 | interrupt_flag = 1;
|
---|
939 | }
|
---|
940 |
|
---|
941 | if (!pending && n == 0)
|
---|
942 | return mrb_nil_value();
|
---|
943 |
|
---|
944 | result = mrb_ary_new_capa(mrb, 3);
|
---|
945 | mrb_ary_push(mrb, result, rp? mrb_ary_new(mrb) : mrb_ary_new_capa(mrb, 0));
|
---|
946 | mrb_ary_push(mrb, result, wp? mrb_ary_new(mrb) : mrb_ary_new_capa(mrb, 0));
|
---|
947 | mrb_ary_push(mrb, result, ep? mrb_ary_new(mrb) : mrb_ary_new_capa(mrb, 0));
|
---|
948 |
|
---|
949 | if (interrupt_flag == 0) {
|
---|
950 | if (rp) {
|
---|
951 | list = RARRAY_PTR(result)[0];
|
---|
952 | for (i = 0; i < RARRAY_LEN(read); i++) {
|
---|
953 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, RARRAY_PTR(read)[i], &mrb_io_type);
|
---|
954 | if (FD_ISSET(fptr->fd, rp) ||
|
---|
955 | FD_ISSET(fptr->fd, &pset)) {
|
---|
956 | mrb_ary_push(mrb, list, RARRAY_PTR(read)[i]);
|
---|
957 | }
|
---|
958 | }
|
---|
959 | }
|
---|
960 |
|
---|
961 | if (wp) {
|
---|
962 | list = RARRAY_PTR(result)[1];
|
---|
963 | for (i = 0; i < RARRAY_LEN(write); i++) {
|
---|
964 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, RARRAY_PTR(write)[i], &mrb_io_type);
|
---|
965 | if (FD_ISSET(fptr->fd, wp)) {
|
---|
966 | mrb_ary_push(mrb, list, RARRAY_PTR(write)[i]);
|
---|
967 | } else if (fptr->fd2 >= 0 && FD_ISSET(fptr->fd2, wp)) {
|
---|
968 | mrb_ary_push(mrb, list, RARRAY_PTR(write)[i]);
|
---|
969 | }
|
---|
970 | }
|
---|
971 | }
|
---|
972 |
|
---|
973 | if (ep) {
|
---|
974 | list = RARRAY_PTR(result)[2];
|
---|
975 | for (i = 0; i < RARRAY_LEN(except); i++) {
|
---|
976 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, RARRAY_PTR(except)[i], &mrb_io_type);
|
---|
977 | if (FD_ISSET(fptr->fd, ep)) {
|
---|
978 | mrb_ary_push(mrb, list, RARRAY_PTR(except)[i]);
|
---|
979 | } else if (fptr->fd2 >= 0 && FD_ISSET(fptr->fd2, ep)) {
|
---|
980 | mrb_ary_push(mrb, list, RARRAY_PTR(except)[i]);
|
---|
981 | }
|
---|
982 | }
|
---|
983 | }
|
---|
984 | }
|
---|
985 |
|
---|
986 | return result;
|
---|
987 | }
|
---|
988 |
|
---|
989 | mrb_value
|
---|
990 | mrb_io_fileno(mrb_state *mrb, mrb_value io)
|
---|
991 | {
|
---|
992 | struct mrb_io *fptr;
|
---|
993 | fptr = (struct mrb_io *)mrb_get_datatype(mrb, io, &mrb_io_type);
|
---|
994 | return mrb_fixnum_value(fptr->fd);
|
---|
995 | }
|
---|
996 |
|
---|
997 | mrb_value
|
---|
998 | mrb_io_close_on_exec_p(mrb_state *mrb, mrb_value self)
|
---|
999 | {
|
---|
1000 | #if defined(F_GETFD) && defined(F_SETFD) && defined(FD_CLOEXEC)
|
---|
1001 | struct mrb_io *fptr;
|
---|
1002 | int ret;
|
---|
1003 |
|
---|
1004 | fptr = io_get_open_fptr(mrb, self);
|
---|
1005 |
|
---|
1006 | if (fptr->fd2 >= 0) {
|
---|
1007 | if ((ret = fcntl(fptr->fd2, F_GETFD)) == -1) mrb_sys_fail(mrb, "F_GETFD failed");
|
---|
1008 | if (!(ret & FD_CLOEXEC)) return mrb_false_value();
|
---|
1009 | }
|
---|
1010 |
|
---|
1011 | if ((ret = fcntl(fptr->fd, F_GETFD)) == -1) mrb_sys_fail(mrb, "F_GETFD failed");
|
---|
1012 | if (!(ret & FD_CLOEXEC)) return mrb_false_value();
|
---|
1013 | return mrb_true_value();
|
---|
1014 |
|
---|
1015 | #else
|
---|
1016 | mrb_raise(mrb, E_NOTIMP_ERROR, "IO#close_on_exec? is not supported on the platform");
|
---|
1017 | return mrb_false_value();
|
---|
1018 | #endif
|
---|
1019 | }
|
---|
1020 |
|
---|
1021 | mrb_value
|
---|
1022 | mrb_io_set_close_on_exec(mrb_state *mrb, mrb_value self)
|
---|
1023 | {
|
---|
1024 | #if defined(F_GETFD) && defined(F_SETFD) && defined(FD_CLOEXEC)
|
---|
1025 | struct mrb_io *fptr;
|
---|
1026 | int flag, ret;
|
---|
1027 | mrb_bool b;
|
---|
1028 |
|
---|
1029 | fptr = io_get_open_fptr(mrb, self);
|
---|
1030 | mrb_get_args(mrb, "b", &b);
|
---|
1031 | flag = b ? FD_CLOEXEC : 0;
|
---|
1032 |
|
---|
1033 | if (fptr->fd2 >= 0) {
|
---|
1034 | if ((ret = fcntl(fptr->fd2, F_GETFD)) == -1) mrb_sys_fail(mrb, "F_GETFD failed");
|
---|
1035 | if ((ret & FD_CLOEXEC) != flag) {
|
---|
1036 | ret = (ret & ~FD_CLOEXEC) | flag;
|
---|
1037 | ret = fcntl(fptr->fd2, F_SETFD, ret);
|
---|
1038 |
|
---|
1039 | if (ret == -1) mrb_sys_fail(mrb, "F_SETFD failed");
|
---|
1040 | }
|
---|
1041 | }
|
---|
1042 |
|
---|
1043 | if ((ret = fcntl(fptr->fd, F_GETFD)) == -1) mrb_sys_fail(mrb, "F_GETFD failed");
|
---|
1044 | if ((ret & FD_CLOEXEC) != flag) {
|
---|
1045 | ret = (ret & ~FD_CLOEXEC) | flag;
|
---|
1046 | ret = fcntl(fptr->fd, F_SETFD, ret);
|
---|
1047 | if (ret == -1) mrb_sys_fail(mrb, "F_SETFD failed");
|
---|
1048 | }
|
---|
1049 |
|
---|
1050 | return mrb_bool_value(b);
|
---|
1051 | #else
|
---|
1052 | mrb_raise(mrb, E_NOTIMP_ERROR, "IO#close_on_exec= is not supported on the platform");
|
---|
1053 | return mrb_nil_value();
|
---|
1054 | #endif
|
---|
1055 | }
|
---|
1056 |
|
---|
1057 | mrb_value
|
---|
1058 | mrb_io_set_sync(mrb_state *mrb, mrb_value self)
|
---|
1059 | {
|
---|
1060 | struct mrb_io *fptr;
|
---|
1061 | mrb_bool b;
|
---|
1062 |
|
---|
1063 | fptr = io_get_open_fptr(mrb, self);
|
---|
1064 | mrb_get_args(mrb, "b", &b);
|
---|
1065 | fptr->sync = b;
|
---|
1066 | return mrb_bool_value(b);
|
---|
1067 | }
|
---|
1068 |
|
---|
1069 | mrb_value
|
---|
1070 | mrb_io_sync(mrb_state *mrb, mrb_value self)
|
---|
1071 | {
|
---|
1072 | struct mrb_io *fptr;
|
---|
1073 | fptr = io_get_open_fptr(mrb, self);
|
---|
1074 | return mrb_bool_value(fptr->sync);
|
---|
1075 | }
|
---|
1076 |
|
---|
1077 | void
|
---|
1078 | mrb_init_io(mrb_state *mrb)
|
---|
1079 | {
|
---|
1080 | struct RClass *io;
|
---|
1081 |
|
---|
1082 | io = mrb_define_class(mrb, "IO", mrb->object_class);
|
---|
1083 | MRB_SET_INSTANCE_TT(io, MRB_TT_DATA);
|
---|
1084 |
|
---|
1085 | mrb_include_module(mrb, io, mrb_module_get(mrb, "Enumerable")); /* 15.2.20.3 */
|
---|
1086 | #ifndef _WIN32
|
---|
1087 | mrb_define_class_method(mrb, io, "_popen", mrb_io_s_popen, MRB_ARGS_ANY());
|
---|
1088 | mrb_define_class_method(mrb, io, "_sysclose", mrb_io_s_sysclose, MRB_ARGS_REQ(1));
|
---|
1089 | #endif
|
---|
1090 | mrb_define_class_method(mrb, io, "for_fd", mrb_io_s_for_fd, MRB_ARGS_ANY());
|
---|
1091 | mrb_define_class_method(mrb, io, "select", mrb_io_s_select, MRB_ARGS_ANY());
|
---|
1092 | mrb_define_class_method(mrb, io, "sysopen", mrb_io_s_sysopen, MRB_ARGS_ANY());
|
---|
1093 | #ifndef _WIN32
|
---|
1094 | mrb_define_class_method(mrb, io, "_pipe", mrb_io_s_pipe, MRB_ARGS_NONE());
|
---|
1095 | #endif
|
---|
1096 |
|
---|
1097 | mrb_define_method(mrb, io, "initialize", mrb_io_initialize, MRB_ARGS_ANY()); /* 15.2.20.5.21 (x)*/
|
---|
1098 | mrb_define_method(mrb, io, "_check_readable", mrb_io_check_readable, MRB_ARGS_NONE());
|
---|
1099 | mrb_define_method(mrb, io, "isatty", mrb_io_isatty, MRB_ARGS_NONE());
|
---|
1100 | mrb_define_method(mrb, io, "sync", mrb_io_sync, MRB_ARGS_NONE());
|
---|
1101 | mrb_define_method(mrb, io, "sync=", mrb_io_set_sync, MRB_ARGS_REQ(1));
|
---|
1102 | mrb_define_method(mrb, io, "sysread", mrb_io_sysread, MRB_ARGS_ANY());
|
---|
1103 | mrb_define_method(mrb, io, "sysseek", mrb_io_sysseek, MRB_ARGS_REQ(1));
|
---|
1104 | mrb_define_method(mrb, io, "syswrite", mrb_io_syswrite, MRB_ARGS_REQ(1));
|
---|
1105 | mrb_define_method(mrb, io, "close", mrb_io_close, MRB_ARGS_NONE()); /* 15.2.20.5.1 */
|
---|
1106 | mrb_define_method(mrb, io, "close_on_exec=", mrb_io_set_close_on_exec, MRB_ARGS_REQ(1));
|
---|
1107 | mrb_define_method(mrb, io, "close_on_exec?", mrb_io_close_on_exec_p, MRB_ARGS_NONE());
|
---|
1108 | mrb_define_method(mrb, io, "closed?", mrb_io_closed, MRB_ARGS_NONE()); /* 15.2.20.5.2 */
|
---|
1109 | mrb_define_method(mrb, io, "pid", mrb_io_pid, MRB_ARGS_NONE()); /* 15.2.20.5.2 */
|
---|
1110 | mrb_define_method(mrb, io, "fileno", mrb_io_fileno, MRB_ARGS_NONE());
|
---|
1111 |
|
---|
1112 |
|
---|
1113 | mrb_gv_set(mrb, mrb_intern_cstr(mrb, "$/"), mrb_str_new_cstr(mrb, "\n"));
|
---|
1114 | }
|
---|