14#include "ruby/internal/config.h"
42# define EXIT_SUCCESS 0
46# define EXIT_FAILURE 1
53#ifdef HAVE_SYS_RESOURCE_H
54# include <sys/resource.h>
61#ifdef HAVE_SYS_PARAM_H
62# include <sys/param.h>
66# define MAXPATHLEN 1024
75#ifdef HAVE_SYS_TIMES_H
76# include <sys/times.h>
86int initgroups(
const char *, rb_gid_t);
95# include <mach/mach_time.h>
101#include "internal/bits.h"
102#include "internal/dir.h"
103#include "internal/error.h"
104#include "internal/eval.h"
105#include "internal/hash.h"
106#include "internal/io.h"
107#include "internal/numeric.h"
108#include "internal/object.h"
109#include "internal/process.h"
110#include "internal/thread.h"
111#include "internal/variable.h"
112#include "internal/warnings.h"
117#include "ractor_core.h"
125#define open rb_w32_uopen
128#if defined(HAVE_TIMES) || defined(_WIN32)
135static VALUE rb_cProcessTms;
139#define WIFEXITED(w) (((w) & 0xff) == 0)
142#define WIFSIGNALED(w) (((w) & 0x7f) > 0 && (((w) & 0x7f) < 0x7f))
145#define WIFSTOPPED(w) (((w) & 0xff) == 0x7f)
148#define WEXITSTATUS(w) (((w) >> 8) & 0xff)
151#define WTERMSIG(w) ((w) & 0x7f)
154#define WSTOPSIG WEXITSTATUS
157#if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__bsdi__)
158#define HAVE_44BSD_SETUID 1
159#define HAVE_44BSD_SETGID 1
167#ifdef BROKEN_SETREUID
168#define setreuid ruby_setreuid
169int setreuid(rb_uid_t ruid, rb_uid_t euid);
171#ifdef BROKEN_SETREGID
172#define setregid ruby_setregid
173int setregid(rb_gid_t rgid, rb_gid_t egid);
176#if defined(HAVE_44BSD_SETUID) || defined(__APPLE__)
177#if !defined(USE_SETREUID) && !defined(BROKEN_SETREUID)
178#define OBSOLETE_SETREUID 1
180#if !defined(USE_SETREGID) && !defined(BROKEN_SETREGID)
181#define OBSOLETE_SETREGID 1
185static void check_uid_switch(
void);
186static void check_gid_switch(
void);
187static int exec_async_signal_safe(
const struct rb_execarg *,
char *,
size_t);
189VALUE rb_envtbl(
void);
190VALUE rb_env_to_hash(
void);
193#define p_uid_from_name p_uid_from_name
194#define p_gid_from_name p_gid_from_name
197#if defined(HAVE_UNISTD_H)
198# if defined(HAVE_GETLOGIN_R)
199# define USE_GETLOGIN_R 1
200# define GETLOGIN_R_SIZE_DEFAULT 0x100
201# define GETLOGIN_R_SIZE_LIMIT 0x1000
202# if defined(_SC_LOGIN_NAME_MAX)
203# define GETLOGIN_R_SIZE_INIT sysconf(_SC_LOGIN_NAME_MAX)
205# define GETLOGIN_R_SIZE_INIT GETLOGIN_R_SIZE_DEFAULT
207# elif defined(HAVE_GETLOGIN)
208# define USE_GETLOGIN 1
212#if defined(HAVE_PWD_H)
213# if defined(HAVE_GETPWUID_R)
214# define USE_GETPWUID_R 1
215# elif defined(HAVE_GETPWUID)
216# define USE_GETPWUID 1
218# if defined(HAVE_GETPWNAM_R)
219# define USE_GETPWNAM_R 1
220# elif defined(HAVE_GETPWNAM)
221# define USE_GETPWNAM 1
223# if defined(HAVE_GETPWNAM_R) || defined(HAVE_GETPWUID_R)
224# define GETPW_R_SIZE_DEFAULT 0x1000
225# define GETPW_R_SIZE_LIMIT 0x10000
226# if defined(_SC_GETPW_R_SIZE_MAX)
227# define GETPW_R_SIZE_INIT sysconf(_SC_GETPW_R_SIZE_MAX)
229# define GETPW_R_SIZE_INIT GETPW_R_SIZE_DEFAULT
232# ifdef USE_GETPWNAM_R
233# define PREPARE_GETPWNAM \
235# define FINISH_GETPWNAM \
236 (getpw_buf ? (void)rb_str_resize(getpw_buf, 0) : (void)0)
237# define OBJ2UID1(id) obj2uid((id), &getpw_buf)
238# define OBJ2UID(id) obj2uid0(id)
239static rb_uid_t obj2uid(
VALUE id,
VALUE *getpw_buf);
240static inline rb_uid_t
250# define PREPARE_GETPWNAM
251# define FINISH_GETPWNAM
252# define OBJ2UID1(id) obj2uid((id))
253# define OBJ2UID(id) obj2uid((id))
254static rb_uid_t obj2uid(
VALUE id);
257# define PREPARE_GETPWNAM
258# define FINISH_GETPWNAM
259# define OBJ2UID1(id) NUM2UIDT(id)
260# define OBJ2UID(id) NUM2UIDT(id)
261# ifdef p_uid_from_name
262# undef p_uid_from_name
263# define p_uid_from_name rb_f_notimplement
267#if defined(HAVE_GRP_H)
268# if defined(HAVE_GETGRNAM_R) && defined(_SC_GETGR_R_SIZE_MAX)
269# define USE_GETGRNAM_R
270# define GETGR_R_SIZE_INIT sysconf(_SC_GETGR_R_SIZE_MAX)
271# define GETGR_R_SIZE_DEFAULT 0x1000
272# define GETGR_R_SIZE_LIMIT 0x10000
274# ifdef USE_GETGRNAM_R
275# define PREPARE_GETGRNAM \
277# define FINISH_GETGRNAM \
278 (getgr_buf ? (void)rb_str_resize(getgr_buf, 0) : (void)0)
279# define OBJ2GID1(id) obj2gid((id), &getgr_buf)
280# define OBJ2GID(id) obj2gid0(id)
281static rb_gid_t obj2gid(
VALUE id,
VALUE *getgr_buf);
282static inline rb_gid_t
291static rb_gid_t obj2gid(
VALUE id,
VALUE *getgr_buf);
293# define PREPARE_GETGRNAM
294# define FINISH_GETGRNAM
295# define OBJ2GID1(id) obj2gid((id))
296# define OBJ2GID(id) obj2gid((id))
297static rb_gid_t obj2gid(
VALUE id);
300# define PREPARE_GETGRNAM
301# define FINISH_GETGRNAM
302# define OBJ2GID1(id) NUM2GIDT(id)
303# define OBJ2GID(id) NUM2GIDT(id)
304# ifdef p_gid_from_name
305# undef p_gid_from_name
306# define p_gid_from_name rb_f_notimplement
310#if SIZEOF_CLOCK_T == SIZEOF_INT
311typedef unsigned int unsigned_clock_t;
312#elif SIZEOF_CLOCK_T == SIZEOF_LONG
313typedef unsigned long unsigned_clock_t;
314#elif defined(HAVE_LONG_LONG) && SIZEOF_CLOCK_T == SIZEOF_LONG_LONG
315typedef unsigned LONG_LONG unsigned_clock_t;
318typedef void (*sig_t) (int);
321#define id_exception idException
322static ID id_in, id_out, id_err, id_pid, id_uid, id_gid;
323static ID id_close, id_child;
328static ID id_new_pgroup;
330static ID id_unsetenv_others, id_chdir, id_umask, id_close_others;
331static ID id_nanosecond, id_microsecond, id_millisecond, id_second;
332static ID id_float_microsecond, id_float_millisecond, id_float_second;
333static ID id_GETTIMEOFDAY_BASED_CLOCK_REALTIME, id_TIME_BASED_CLOCK_REALTIME;
335static ID id_CLOCK_REALTIME;
336# define RUBY_CLOCK_REALTIME ID2SYM(id_CLOCK_REALTIME)
338#ifdef CLOCK_MONOTONIC
339static ID id_CLOCK_MONOTONIC;
340# define RUBY_CLOCK_MONOTONIC ID2SYM(id_CLOCK_MONOTONIC)
342#ifdef CLOCK_PROCESS_CPUTIME_ID
343static ID id_CLOCK_PROCESS_CPUTIME_ID;
344# define RUBY_CLOCK_PROCESS_CPUTIME_ID ID2SYM(id_CLOCK_PROCESS_CPUTIME_ID)
346#ifdef CLOCK_THREAD_CPUTIME_ID
347static ID id_CLOCK_THREAD_CPUTIME_ID;
348# define RUBY_CLOCK_THREAD_CPUTIME_ID ID2SYM(id_CLOCK_THREAD_CPUTIME_ID)
351static ID id_TIMES_BASED_CLOCK_MONOTONIC;
352static ID id_TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID;
355static ID id_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID;
357static ID id_CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID;
359static ID id_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC;
360# define RUBY_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC ID2SYM(id_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC)
364static rb_pid_t cached_pid;
367#if defined(__sun) && !defined(_XPG7)
368#define execv(path, argv) (rb_async_bug_errno("unreachable: async-signal-unsafe execv() is called", 0))
369#define execl(path, arg0, arg1, arg2, term) do { extern char **environ; execle((path), (arg0), (arg1), (arg2), (term), (environ)); } while (0)
370#define ALWAYS_NEED_ENVP 1
372#define ALWAYS_NEED_ENVP 0
376assert_close_on_exec(
int fd)
379#if defined(HAVE_FCNTL) && defined(F_GETFD) && defined(FD_CLOEXEC)
380 int flags = fcntl(fd, F_GETFD);
382 static const char m[] =
"reserved FD closed unexpectedly?\n";
383 (void)!write(2, m,
sizeof(m) - 1);
386 if (flags & FD_CLOEXEC)
return;
387 rb_bug(
"reserved FD did not have close-on-exec set");
389 rb_bug(
"reserved FD without close-on-exec support");
395close_unless_reserved(
int fd)
398 assert_close_on_exec(fd);
405#if defined(DEBUG_REDIRECT)
408ttyprintf(
const char *fmt, ...)
414 tty = fopen(
"con",
"w");
416 tty = fopen(
"/dev/tty",
"w");
422 vfprintf(tty, fmt, ap);
429redirect_dup(
int oldfd)
433 ttyprintf(
"dup(%d) => %d\n", oldfd, ret);
438redirect_dup2(
int oldfd,
int newfd)
441 ret = dup2(oldfd, newfd);
442 ttyprintf(
"dup2(%d, %d) => %d\n", oldfd, newfd, ret);
447redirect_cloexec_dup(
int oldfd)
451 ttyprintf(
"cloexec_dup(%d) => %d\n", oldfd, ret);
456redirect_cloexec_dup2(
int oldfd,
int newfd)
460 ttyprintf(
"cloexec_dup2(%d, %d) => %d\n", oldfd, newfd, ret);
465redirect_close(
int fd)
468 ret = close_unless_reserved(fd);
469 ttyprintf(
"close(%d) => %d\n", fd, ret);
474parent_redirect_open(
const char *pathname,
int flags, mode_t perm)
478 ttyprintf(
"parent_open(\"%s\", 0x%x, 0%o) => %d\n", pathname, flags, perm, ret);
483parent_redirect_close(
int fd)
486 ret = close_unless_reserved(fd);
487 ttyprintf(
"parent_close(%d) => %d\n", fd, ret);
492#define redirect_dup(oldfd) dup(oldfd)
493#define redirect_dup2(oldfd, newfd) dup2((oldfd), (newfd))
494#define redirect_cloexec_dup(oldfd) rb_cloexec_dup(oldfd)
495#define redirect_cloexec_dup2(oldfd, newfd) rb_cloexec_dup2((oldfd), (newfd))
496#define redirect_close(fd) close_unless_reserved(fd)
497#define parent_redirect_open(pathname, flags, perm) rb_cloexec_open((pathname), (flags), (perm))
498#define parent_redirect_close(fd) close_unless_reserved(fd)
504 if (UNLIKELY(!cached_pid)) {
505 cached_pid = getpid();
511#if defined HAVE_WORKING_FORK || defined HAVE_DAEMON
585static VALUE rb_cProcessStatus;
600 .flags = RUBY_TYPED_FREE_IMMEDIATELY | RUBY_TYPED_WB_PROTECTED | RUBY_TYPED_EMBEDDABLE,
604rb_process_status_allocate(
VALUE klass)
613 return GET_THREAD()->last_status;
639proc_s_last_status(
VALUE mod)
645rb_process_status_new(rb_pid_t pid,
int status,
int error)
647 VALUE last_status = rb_process_status_allocate(rb_cProcessStatus);
650 data->status = status;
658process_status_dump(
VALUE status)
671process_status_load(
VALUE real_obj,
VALUE load_obj)
674 VALUE status = rb_attr_get(load_obj, id_status);
675 VALUE pid = rb_attr_get(load_obj, id_pid);
684 GET_THREAD()->last_status = rb_process_status_new(pid, status, 0);
690 th->last_status =
Qnil;
694rb_last_status_clear(
void)
696 last_status_clear(GET_THREAD());
708pst_status(
VALUE status)
728 int status = pst_status(self);
732#define PST2INT(st) pst_status(st)
748 rb_pid_t pid = pst_pid(self);
752static VALUE pst_message_status(
VALUE str,
int status);
755pst_message(
VALUE str, rb_pid_t pid,
int status)
757 rb_str_catf(str,
"pid %ld", (
long)pid);
758 pst_message_status(str, status);
762pst_message_status(
VALUE str,
int status)
764 if (WIFSTOPPED(status)) {
765 int stopsig = WSTOPSIG(status);
768 rb_str_catf(str,
" stopped SIG%s (signal %d)", signame, stopsig);
771 rb_str_catf(str,
" stopped signal %d", stopsig);
774 if (WIFSIGNALED(status)) {
775 int termsig = WTERMSIG(status);
778 rb_str_catf(str,
" SIG%s (signal %d)", signame, termsig);
781 rb_str_catf(str,
" signal %d", termsig);
784 if (WIFEXITED(status)) {
785 rb_str_catf(str,
" exit %d", WEXITSTATUS(status));
788 if (WCOREDUMP(status)) {
816 status = PST2INT(st);
819 pst_message(str, pid, status);
846 status = PST2INT(st);
849 pst_message(str, pid, status);
871 if (st1 == st2)
return Qtrue;
872 return rb_equal(pst_to_i(st1), st2);
886pst_wifstopped(
VALUE st)
888 int status = PST2INT(st);
890 return RBOOL(WIFSTOPPED(status));
903pst_wstopsig(
VALUE st)
905 int status = PST2INT(st);
907 if (WIFSTOPPED(status))
908 return INT2NUM(WSTOPSIG(status));
922pst_wifsignaled(
VALUE st)
924 int status = PST2INT(st);
926 return RBOOL(WIFSIGNALED(status));
939pst_wtermsig(
VALUE st)
941 int status = PST2INT(st);
943 if (WIFSIGNALED(status))
944 return INT2NUM(WTERMSIG(status));
959pst_wifexited(
VALUE st)
961 int status = PST2INT(st);
963 return RBOOL(WIFEXITED(status));
981pst_wexitstatus(
VALUE st)
983 int status = PST2INT(st);
985 if (WIFEXITED(status))
986 return INT2NUM(WEXITSTATUS(status));
1004pst_success_p(
VALUE st)
1006 int status = PST2INT(st);
1008 if (!WIFEXITED(status))
1010 return RBOOL(WEXITSTATUS(status) == EXIT_SUCCESS);
1025pst_wcoredump(
VALUE st)
1028 int status = PST2INT(st);
1030 return RBOOL(WCOREDUMP(status));
1037do_waitpid(rb_pid_t pid,
int *st,
int flags)
1039#if defined HAVE_WAITPID
1040 return waitpid(pid, st, flags);
1041#elif defined HAVE_WAIT4
1042 return wait4(pid, st, flags, NULL);
1044# error waitpid or wait4 is required.
1049 struct ccan_list_node wnode;
1051 rb_nativethread_cond_t *cond;
1060waitpid_state_init(
struct waitpid_state *w, rb_pid_t pid,
int options)
1064 w->options = options;
1070waitpid_blocking_no_SIGCHLD(
void *x)
1074 w->ret = do_waitpid(w->pid, &w->status, w->options);
1082 if (w->options & WNOHANG) {
1083 w->ret = do_waitpid(w->pid, &w->status, w->options);
1088 }
while (w->ret < 0 &&
errno == EINTR && (RUBY_VM_CHECK_INTS(w->ec),1));
1098 if (!(flags & WNOHANG)) {
1100 if (scheduler !=
Qnil) {
1102 if (!UNDEF_P(result))
return result;
1149rb_process_status_waitv(
int argc,
VALUE *argv,
VALUE _)
1171 if (
NIL_P(status))
return 0;
1176 if (st) *st = data->status;
1179 errno = data->error;
1182 GET_THREAD()->last_status = status;
1189proc_wait(
int argc,
VALUE *argv)
1201 if (argc == 2 && !
NIL_P(vflags = argv[1])) {
1206 if ((pid =
rb_waitpid(pid, &status, flags)) < 0)
1210 rb_last_status_clear();
1367 return proc_wait(c, v);
1387 VALUE pid = proc_wait(argc, argv);
1416 rb_last_status_clear();
1431static VALUE rb_cWaiter;
1434detach_process_pid(
VALUE thread)
1440detach_process_watcher(
void *arg)
1442 rb_pid_t cpid, pid = (rb_pid_t)(
VALUE)arg;
1445 while ((cpid =
rb_waitpid(pid, &status, 0)) == 0) {
1456 RBASIC_SET_CLASS(watcher, rb_cWaiter);
1508before_exec_async_signal_safe(
void)
1513before_exec_non_async_signal_safe(
void)
1524 rb_thread_stop_timer_thread();
1527#define WRITE_CONST(fd, str) (void)(write((fd),(str),sizeof(str)-1)<0)
1529int rb_w32_set_nonblock2(
int fd,
int nonblock);
1536 return rb_w32_set_nonblock2(fd, 0);
1537#elif defined(F_GETFL) && defined(F_SETFL)
1538 int fl = fcntl(fd, F_GETFL);
1541 if (fl == -1)
return fl;
1542 if (fl & O_NONBLOCK) {
1544 return fcntl(fd, F_SETFL, fl);
1551stdfd_clear_nonblock(
void)
1555 for (fd = 0; fd < 3; fd++) {
1556 (void)set_blocking(fd);
1563 before_exec_non_async_signal_safe();
1564 before_exec_async_signal_safe();
1570 rb_thread_reset_timer_thread();
1571 rb_thread_start_timer_thread();
1574#if defined HAVE_WORKING_FORK || defined HAVE_DAEMON
1576before_fork_ruby(
void)
1578 rb_gc_before_fork();
1583after_fork_ruby(rb_pid_t pid)
1585 rb_gc_after_fork(pid);
1599#if defined(HAVE_WORKING_FORK)
1601COMPILER_WARNING_PUSH
1602#if __has_warning("-Wdeprecated-declarations") || RBIMPL_COMPILER_IS(GCC)
1603COMPILER_WARNING_IGNORED(-Wdeprecated-declarations)
1605static inline rb_pid_t
1613#define try_with_sh(err, prog, argv, envp) ((err == ENOEXEC) ? exec_with_sh((prog), (argv), (envp)) : (void)0)
1615exec_with_sh(
const char *prog,
char **argv,
char **envp)
1617 *argv = (
char *)prog;
1618 *--argv = (
char *)
"sh";
1620 execve(
"/bin/sh", argv, envp);
1622 execv(
"/bin/sh", argv);
1626#define try_with_sh(err, prog, argv, envp) (void)0
1631proc_exec_cmd(
const char *prog,
VALUE argv_str,
VALUE envp_str)
1639 argv = ARGVSTR2ARGV(argv_str);
1646 rb_w32_uaspawn(P_OVERLAY, prog, argv);
1649 envp = envp_str ? RB_IMEMO_TMPBUF_PTR(envp_str) : NULL;
1651 execve(prog, argv, envp);
1655 try_with_sh(err, prog, argv, envp);
1662proc_exec_sh(
const char *str,
VALUE envp_str)
1667 while (*s ==
' ' || *s ==
'\t' || *s ==
'\n')
1675 rb_w32_uspawn(P_OVERLAY, (
char *)str, 0);
1676#elif defined(__CYGWIN32__)
1678 char fbuf[MAXPATHLEN];
1679 char *shell = dln_find_exe_r(
"sh", 0, fbuf,
sizeof(fbuf));
1682 execl(shell,
"sh",
"-c", str, (
char *) NULL);
1684 status = system(str);
1690 execle(
"/bin/sh",
"sh",
"-c", str, (
char *)NULL, RB_IMEMO_TMPBUF_PTR(envp_str));
1692 execl(
"/bin/sh",
"sh",
"-c", str, (
char *)NULL);
1702 ret = proc_exec_sh(str,
Qfalse);
1709mark_exec_arg(
void *ptr)
1712 if (eargp->use_shell)
1713 rb_gc_mark(eargp->invoke.sh.shell_script);
1715 rb_gc_mark(eargp->invoke.cmd.command_name);
1716 rb_gc_mark(eargp->invoke.cmd.command_abspath);
1717 rb_gc_mark(eargp->invoke.cmd.argv_str);
1718 rb_gc_mark(eargp->invoke.cmd.argv_buf);
1720 rb_gc_mark(eargp->redirect_fds);
1721 rb_gc_mark(eargp->envp_str);
1722 rb_gc_mark(eargp->envp_buf);
1723 rb_gc_mark(eargp->dup2_tmpbuf);
1724 rb_gc_mark(eargp->rlimit_limits);
1725 rb_gc_mark(eargp->fd_dup2);
1726 rb_gc_mark(eargp->fd_close);
1727 rb_gc_mark(eargp->fd_open);
1728 rb_gc_mark(eargp->fd_dup2_child);
1729 rb_gc_mark(eargp->env_modification);
1730 rb_gc_mark(eargp->path_env);
1731 rb_gc_mark(eargp->chdir_dir);
1735memsize_exec_arg(
const void *ptr)
1743 0, 0, RUBY_TYPED_FREE_IMMEDIATELY | RUBY_TYPED_EMBEDDABLE
1747# define DEFAULT_PROCESS_ENCODING rb_utf8_encoding()
1749#ifdef DEFAULT_PROCESS_ENCODING
1750# define EXPORT_STR(str) rb_str_export_to_enc((str), DEFAULT_PROCESS_ENCODING)
1751# define EXPORT_DUP(str) export_dup(str)
1753export_dup(
VALUE str)
1755 VALUE newstr = EXPORT_STR(str);
1760# define EXPORT_STR(str) (str)
1761# define EXPORT_DUP(str) rb_str_dup(str)
1764#if !defined(HAVE_WORKING_FORK) && defined(HAVE_SPAWNV)
1765# define USE_SPAWNV 1
1767# define USE_SPAWNV 0
1770# define P_NOWAIT _P_NOWAIT
1775#define proc_spawn_cmd_internal(argv, prog) rb_w32_uaspawn(P_NOWAIT, (prog), (argv))
1778proc_spawn_cmd_internal(
char **argv,
char *prog)
1780 char fbuf[MAXPATHLEN];
1785 prog = dln_find_exe_r(prog, 0, fbuf,
sizeof(fbuf));
1790 status = spawnv(P_NOWAIT, prog, (
const char **)argv);
1791 if (status == -1 &&
errno == ENOEXEC) {
1792 *argv = (
char *)prog;
1793 *--argv = (
char *)
"sh";
1794 status = spawnv(P_NOWAIT,
"/bin/sh", (
const char **)argv);
1796 if (status == -1)
errno = ENOEXEC;
1810 if (eargp->new_pgroup_given && eargp->new_pgroup_flag) {
1811 flags = CREATE_NEW_PROCESS_GROUP;
1813 pid = rb_w32_uaspawn_flags(P_NOWAIT, prog ? RSTRING_PTR(prog) : 0, argv, flags);
1815 pid = proc_spawn_cmd_internal(argv, prog ? RSTRING_PTR(prog) : 0);
1822#define proc_spawn_sh(str) rb_w32_uspawn(P_NOWAIT, (str), 0)
1825proc_spawn_sh(
char *str)
1827 char fbuf[MAXPATHLEN];
1830 char *shell = dln_find_exe_r(
"sh", 0, fbuf,
sizeof(fbuf));
1832 status = spawnl(P_NOWAIT, (shell ? shell :
"/bin/sh"),
"sh",
"-c", str, (char*)NULL);
1842 RBASIC_CLEAR_CLASS(obj);
1847check_exec_redirect_fd(
VALUE v,
int iskey)
1858 else if (
id == id_out)
1860 else if (
id == id_err)
1869 rb_raise(rb_eArgError,
"duplex IO redirection");
1876 rb_raise(rb_eArgError,
"negative file descriptor");
1879 else if (fd >= 3 && iskey) {
1880 rb_raise(rb_eArgError,
"wrong file descriptor (%d)", fd);
1886 rb_raise(rb_eArgError,
"wrong exec redirect");
1897 VALUE fd = check_exec_redirect_fd(key, !
NIL_P(param));
1904 VALUE fd = check_exec_redirect_fd(v, !
NIL_P(param));
1915 VALUE path, flags, perm;
1919 switch (
TYPE(val)) {
1922 if (
id == id_close) {
1924 eargp->fd_close = check_exec_redirect1(eargp->fd_close, key, param);
1926 else if (
id == id_in) {
1928 eargp->fd_dup2 = check_exec_redirect1(eargp->fd_dup2, key, param);
1930 else if (
id == id_out) {
1932 eargp->fd_dup2 = check_exec_redirect1(eargp->fd_dup2, key, param);
1934 else if (
id == id_err) {
1936 eargp->fd_dup2 = check_exec_redirect1(eargp->fd_dup2, key, param);
1939 rb_raise(rb_eArgError,
"wrong exec redirect symbol: %"PRIsVALUE,
1946 val = check_exec_redirect_fd(val, 0);
1950 eargp->fd_dup2 = check_exec_redirect1(eargp->fd_dup2, key, param);
1956 path ==
ID2SYM(id_child)) {
1957 param = check_exec_redirect_fd(
rb_ary_entry(val, 1), 0);
1958 eargp->fd_dup2_child = check_exec_redirect1(eargp->fd_dup2_child, key, param);
1971 param = hide_obj(
rb_ary_new3(4, hide_obj(EXPORT_DUP(path)),
1972 flags, perm,
Qnil));
1973 eargp->fd_open = check_exec_redirect1(eargp->fd_open, key, param);
1981 key = check_exec_redirect_fd(key, 1);
1983 flags =
INT2NUM(O_WRONLY|O_CREAT|O_TRUNC);
1988 VALUE fd = check_exec_redirect_fd(v, 1);
1992 flags =
INT2NUM(O_WRONLY|O_CREAT|O_TRUNC);
1999 param = hide_obj(
rb_ary_new3(4, hide_obj(EXPORT_DUP(path)),
2000 flags, perm,
Qnil));
2001 eargp->fd_open = check_exec_redirect1(eargp->fd_open, key, param);
2007 if (!
NIL_P(val))
goto io;
2008 rb_raise(rb_eArgError,
"wrong exec redirect action");
2013#if defined(HAVE_SETRLIMIT) && defined(NUM2RLIM)
2014static int rlimit_type_by_sym(
VALUE key);
2017rb_execarg_addopt_rlimit(
struct rb_execarg *eargp,
int rtype,
VALUE val)
2019 VALUE ary = eargp->rlimit_limits;
2020 VALUE tmp, softlim, hardlim;
2021 if (eargp->rlimit_limits ==
Qfalse)
2022 ary = eargp->rlimit_limits = hide_obj(
rb_ary_new());
2024 ary = eargp->rlimit_limits;
2034 rb_raise(rb_eArgError,
"wrong exec rlimit option");
2045#define TO_BOOL(val, name) (NIL_P(val) ? 0 : rb_bool_expected((val), name, TRUE))
2049 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
2053 switch (
TYPE(key)) {
2055#if defined(HAVE_SETRLIMIT) && defined(NUM2RLIM)
2057 int rtype = rlimit_type_by_sym(key);
2059 rb_execarg_addopt_rlimit(eargp, rtype, val);
2067 if (
id == id_pgroup) {
2069 if (eargp->pgroup_given) {
2070 rb_raise(rb_eArgError,
"pgroup option specified twice");
2074 else if (val ==
Qtrue)
2079 rb_raise(rb_eArgError,
"negative process group ID : %ld", (
long)pgroup);
2082 eargp->pgroup_given = 1;
2083 eargp->pgroup_pgid = pgroup;
2088 if (
id == id_new_pgroup) {
2089 if (eargp->new_pgroup_given) {
2090 rb_raise(rb_eArgError,
"new_pgroup option specified twice");
2092 eargp->new_pgroup_given = 1;
2093 eargp->new_pgroup_flag = TO_BOOL(val,
"new_pgroup");
2097 if (
id == id_unsetenv_others) {
2098 if (eargp->unsetenv_others_given) {
2099 rb_raise(rb_eArgError,
"unsetenv_others option specified twice");
2101 eargp->unsetenv_others_given = 1;
2102 eargp->unsetenv_others_do = TO_BOOL(val,
"unsetenv_others");
2104 else if (
id == id_chdir) {
2105 if (eargp->chdir_given) {
2106 rb_raise(rb_eArgError,
"chdir option specified twice");
2109 val = rb_str_encode_ospath(val);
2110 eargp->chdir_given = 1;
2111 eargp->chdir_dir = hide_obj(EXPORT_DUP(val));
2113 else if (
id == id_umask) {
2115 if (eargp->umask_given) {
2116 rb_raise(rb_eArgError,
"umask option specified twice");
2118 eargp->umask_given = 1;
2119 eargp->umask_mask = cmask;
2121 else if (
id == id_close_others) {
2122 if (eargp->close_others_given) {
2123 rb_raise(rb_eArgError,
"close_others option specified twice");
2125 eargp->close_others_given = 1;
2126 eargp->close_others_do = TO_BOOL(val,
"close_others");
2128 else if (
id == id_in) {
2132 else if (
id == id_out) {
2136 else if (
id == id_err) {
2140 else if (
id == id_uid) {
2142 if (eargp->uid_given) {
2143 rb_raise(rb_eArgError,
"uid option specified twice");
2147 eargp->uid = OBJ2UID(val);
2148 eargp->uid_given = 1;
2152 "uid option is unimplemented on this machine");
2155 else if (
id == id_gid) {
2157 if (eargp->gid_given) {
2158 rb_raise(rb_eArgError,
"gid option specified twice");
2162 eargp->gid = OBJ2GID(val);
2163 eargp->gid_given = 1;
2167 "gid option is unimplemented on this machine");
2170 else if (
id == id_exception) {
2171 if (eargp->exception_given) {
2172 rb_raise(rb_eArgError,
"exception option specified twice");
2174 eargp->exception_given = 1;
2175 eargp->exception = TO_BOOL(val,
"exception");
2186 check_exec_redirect(key, val, eargp);
2198check_exec_options_i(st_data_t st_key, st_data_t st_val, st_data_t arg)
2203 if (rb_execarg_addopt(execarg_obj, key, val) != ST_CONTINUE) {
2205 rb_raise(rb_eArgError,
"wrong exec option symbol: % "PRIsVALUE,
2207 rb_raise(rb_eArgError,
"wrong exec option");
2213check_exec_options_i_extract(st_data_t st_key, st_data_t st_val, st_data_t arg)
2218 VALUE execarg_obj = args[0];
2219 if (rb_execarg_addopt(execarg_obj, key, val) != ST_CONTINUE) {
2220 VALUE nonopts = args[1];
2221 if (
NIL_P(nonopts)) args[1] = nonopts = rb_hash_new();
2222 rb_hash_aset(nonopts, key, val);
2237 rb_raise(rb_eArgError,
"fd %d specified twice", fd);
2239 if (ary == eargp->fd_dup2)
2241 else if (ary == eargp->fd_dup2_child)
2247 if (ary == eargp->fd_dup2 || ary == eargp->fd_dup2_child) {
2260 VALUE h = rb_hash_new();
2265 maxhint = check_exec_fds_1(eargp, h, maxhint, eargp->fd_dup2);
2266 maxhint = check_exec_fds_1(eargp, h, maxhint, eargp->fd_close);
2267 maxhint = check_exec_fds_1(eargp, h, maxhint, eargp->fd_dup2_child);
2269 if (eargp->fd_dup2_child) {
2270 ary = eargp->fd_dup2_child;
2280 val = rb_hash_lookup(h, val);
2282 rb_raise(rb_eArgError,
"cyclic child fd redirection from %d", oldfd);
2286 rb_raise(rb_eArgError,
"child fd %d is not redirected", oldfd);
2287 if (oldfd != lastfd) {
2292 while (
FIXNUM_P(val2 = rb_hash_lookup(h, val))) {
2293 rb_hash_aset(h, val,
INT2FIX(lastfd));
2300 eargp->close_others_maxhint = maxhint;
2305rb_check_exec_options(
VALUE opthash,
VALUE execarg_obj)
2309 rb_hash_stlike_foreach(opthash, check_exec_options_i, (st_data_t)execarg_obj);
2313rb_execarg_extract_options(
VALUE execarg_obj,
VALUE opthash)
2318 args[0] = execarg_obj;
2320 rb_hash_stlike_foreach(opthash, check_exec_options_i_extract, (st_data_t)args);
2324#ifdef ENV_IGNORECASE
2325#define ENVMATCH(s1, s2) (STRCASECMP((s1), (s2)) == 0)
2327#define ENVMATCH(n1, n2) (strcmp((n1), (n2)) == 0)
2331check_exec_env_i(st_data_t st_key, st_data_t st_val, st_data_t arg)
2341 rb_raise(rb_eArgError,
"environment name contains a equal : %"PRIsVALUE, key);
2346 key = EXPORT_STR(key);
2347 if (!
NIL_P(val)) val = EXPORT_STR(val);
2364 rb_hash_stlike_foreach(hash, check_exec_env_i, (st_data_t)env);
2371rb_check_argv(
int argc,
VALUE *argv)
2382 rb_raise(rb_eArgError,
"wrong first argument");
2390 for (i = 0; i < argc; i++) {
2399check_hash(
VALUE obj)
2409 return rb_check_hash_type(obj);
2413rb_exec_getargs(
int *argc_p,
VALUE **argv_p,
int accept_shell,
VALUE *env_ret,
VALUE *opthash_ret)
2418 hash = check_hash((*argv_p)[*argc_p-1]);
2420 *opthash_ret = hash;
2426 hash = check_hash((*argv_p)[0]);
2433 prog = rb_check_argv(*argc_p, *argv_p);
2435 prog = (*argv_p)[0];
2436 if (accept_shell && *argc_p == 1) {
2451compare_posix_sh(
const void *key,
const void *el)
2454 int ret = strncmp(word->ptr, el, word->len);
2455 if (!ret && ((
const char *)el)[word->len]) ret = -1;
2463 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
2464 char fbuf[MAXPATHLEN];
2468 if (!
NIL_P(opthash)) {
2469 rb_check_exec_options(opthash, execarg_obj);
2472 env = rb_check_exec_env(env, &eargp->path_env);
2473 eargp->env_modification = env;
2476 prog = EXPORT_STR(prog);
2477 eargp->use_shell = argc == 0;
2478 if (eargp->use_shell)
2479 eargp->invoke.sh.shell_script = prog;
2481 eargp->invoke.cmd.command_name = prog;
2484 if (eargp->use_shell) {
2485 static const char posix_sh_cmds[][9] = {
2543 for (p = RSTRING_PTR(prog); *p; p++) {
2544 if (*p ==
' ' || *p ==
'\t') {
2545 if (first.ptr && !first.len) first.len = p - first.ptr;
2548 if (!first.ptr) first.ptr = p;
2550 if (!has_meta && strchr(
"*?{}[]<>()~&|\\$;'`\"\n#", *p))
2556 else if (*p ==
'/') {
2563 if (!has_meta && first.ptr) {
2564 if (!first.len) first.len = p - first.ptr;
2565 if (first.len > 0 && first.len <=
sizeof(posix_sh_cmds[0]) &&
2566 bsearch(&first, posix_sh_cmds, numberof(posix_sh_cmds),
sizeof(posix_sh_cmds[0]), compare_posix_sh))
2571 eargp->use_shell = 0;
2573 if (!eargp->use_shell) {
2576 p = RSTRING_PTR(prog);
2578 while (*p ==
' ' || *p ==
'\t')
2582 while (*p && *p !=
' ' && *p !=
'\t')
2588 eargp->invoke.cmd.argv_buf = argv_buf;
2589 eargp->invoke.cmd.command_name =
2590 hide_obj(
rb_str_subseq(argv_buf, 0, strlen(RSTRING_PTR(argv_buf))));
2591 rb_enc_copy(eargp->invoke.cmd.command_name, prog);
2596 if (!eargp->use_shell) {
2597 const char *abspath;
2598 const char *path_env = 0;
2599 if (
RTEST(eargp->path_env)) path_env = RSTRING_PTR(eargp->path_env);
2600 abspath = dln_find_exe_r(RSTRING_PTR(eargp->invoke.cmd.command_name),
2601 path_env, fbuf,
sizeof(fbuf));
2605 eargp->invoke.cmd.command_abspath =
Qnil;
2608 if (!eargp->use_shell && !eargp->invoke.cmd.argv_buf) {
2613 for (i = 0; i < argc; i++) {
2614 VALUE arg = argv[i];
2616#ifdef DEFAULT_PROCESS_ENCODING
2617 arg = EXPORT_STR(arg);
2618 s = RSTRING_PTR(arg);
2622 eargp->invoke.cmd.argv_buf = argv_buf;
2625 if (!eargp->use_shell) {
2626 const char *p, *ep, *null=NULL;
2630 p = RSTRING_PTR(eargp->invoke.cmd.argv_buf);
2631 ep = p + RSTRING_LEN(eargp->invoke.cmd.argv_buf);
2637 eargp->invoke.cmd.argv_str =
2638 rb_imemo_tmpbuf_auto_free_pointer_new_from_an_RString(argv_str);
2644rb_execarg_get(
VALUE execarg_obj)
2652rb_execarg_init(
int argc,
const VALUE *orig_argv,
int accept_shell,
VALUE execarg_obj)
2654 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
2660 prog = rb_exec_getargs(&argc, &argv, accept_shell, &env, &opthash);
2661 rb_exec_fillarg(prog, argc, argv, env, opthash, execarg_obj);
2663 ret = eargp->use_shell ? eargp->invoke.sh.shell_script : eargp->invoke.cmd.command_name;
2669rb_execarg_new(
int argc,
const VALUE *argv,
int accept_shell,
int allow_exc_opt)
2674 rb_execarg_init(argc, argv, accept_shell, execarg_obj);
2675 if (!allow_exc_opt && eargp->exception_given) {
2676 rb_raise(rb_eArgError,
"exception option is not allowed");
2682rb_execarg_setenv(
VALUE execarg_obj,
VALUE env)
2684 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
2685 env = !
NIL_P(env) ? rb_check_exec_env(env, &eargp->path_env) :
Qfalse;
2686 eargp->env_modification = env;
2691fill_envp_buf_i(st_data_t st_key, st_data_t st_val, st_data_t arg)
2706static long run_exec_dup2_tmpbuf_size(
long n);
2720 const char *fname = RSTRING_PTR(data->fname);
2721 data->ret = parent_redirect_open(fname, data->oflags, data->perm);
2727rb_execarg_allocate_dup2_tmpbuf(
struct rb_execarg *eargp,
long len)
2729 VALUE tmpbuf = rb_imemo_tmpbuf_auto_free_pointer();
2730 rb_imemo_tmpbuf_set_ptr(tmpbuf, ruby_xmalloc(run_exec_dup2_tmpbuf_size(
len)));
2731 eargp->dup2_tmpbuf = tmpbuf;
2735rb_execarg_parent_start1(
VALUE execarg_obj)
2737 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
2738 int unsetenv_others;
2742 ary = eargp->fd_open;
2757 open_data.fname = vpath;
2758 open_data.oflags = flags;
2759 open_data.perm = perm;
2761 open_data.err = EINTR;
2763 if (open_data.ret == -1) {
2764 if (open_data.err == EINTR) {
2770 fd2 = open_data.ret;
2782 eargp->redirect_fds = check_exec_fds(eargp);
2784 ary = eargp->fd_dup2;
2786 rb_execarg_allocate_dup2_tmpbuf(eargp,
RARRAY_LEN(ary));
2789 unsetenv_others = eargp->unsetenv_others_given && eargp->unsetenv_others_do;
2790 envopts = eargp->env_modification;
2791 if (ALWAYS_NEED_ENVP || unsetenv_others || envopts !=
Qfalse) {
2792 VALUE envtbl, envp_str, envp_buf;
2794 if (unsetenv_others) {
2795 envtbl = rb_hash_new();
2798 envtbl = rb_env_to_hash();
2802 st_table *stenv = RHASH_TBL_RAW(envtbl);
2809 st_data_t stkey = (st_data_t)key;
2810 st_delete(stenv, &stkey, NULL);
2813 st_insert(stenv, (st_data_t)key, (st_data_t)val);
2821 rb_hash_stlike_foreach(envtbl, fill_envp_buf_i, (st_data_t)envp_buf);
2824 p = RSTRING_PTR(envp_buf);
2825 ep = p + RSTRING_LEN(envp_buf);
2833 rb_imemo_tmpbuf_auto_free_pointer_new_from_an_RString(envp_str);
2834 eargp->envp_buf = envp_buf;
2850rb_execarg_parent_start(
VALUE execarg_obj)
2853 rb_protect(rb_execarg_parent_start1, execarg_obj, &state);
2855 rb_execarg_parent_end(execarg_obj);
2861execarg_parent_end(
VALUE execarg_obj)
2863 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
2867 ary = eargp->fd_open;
2878 parent_redirect_close(fd2);
2890rb_execarg_parent_end(
VALUE execarg_obj)
2892 execarg_parent_end(execarg_obj);
2897rb_exec_fail(
struct rb_execarg *eargp,
int err,
const char *errmsg)
2899 if (!errmsg || !*errmsg)
return;
2900 if (strcmp(errmsg,
"chdir") == 0) {
2901 rb_sys_fail_str(eargp->chdir_dir);
2903 rb_sys_fail(errmsg);
2908rb_execarg_fail(
VALUE execarg_obj,
int err,
const char *errmsg)
2910 if (!errmsg || !*errmsg)
return;
2911 rb_exec_fail(rb_execarg_get(execarg_obj), err, errmsg);
2919 VALUE execarg_obj, fail_str;
2921#define CHILD_ERRMSG_BUFLEN 80
2922 char errmsg[CHILD_ERRMSG_BUFLEN] = {
'\0' };
2925 execarg_obj = rb_execarg_new(argc, argv, TRUE, FALSE);
2926 eargp = rb_execarg_get(execarg_obj);
2929 rb_protect(rb_execarg_parent_start1, execarg_obj, &state);
2931 execarg_parent_end(execarg_obj);
2936 fail_str = eargp->use_shell ? eargp->invoke.sh.shell_script : eargp->invoke.cmd.command_name;
2938 err = exec_async_signal_safe(eargp, errmsg,
sizeof(errmsg));
2941 rb_exec_fail(eargp, err, errmsg);
3045#define ERRMSG(str) \
3046 ((errmsg && 0 < errmsg_buflen) ? \
3047 (void)strlcpy(errmsg, (str), errmsg_buflen) : (void)0)
3049#define ERRMSG_FMT(...) \
3050 ((errmsg && 0 < errmsg_buflen) ? \
3051 (void)snprintf(errmsg, errmsg_buflen, __VA_ARGS__) : (void)0)
3053static int fd_get_cloexec(
int fd,
char *errmsg,
size_t errmsg_buflen);
3054static int fd_set_cloexec(
int fd,
char *errmsg,
size_t errmsg_buflen);
3055static int fd_clear_cloexec(
int fd,
char *errmsg,
size_t errmsg_buflen);
3058save_redirect_fd(
int fd,
struct rb_execarg *sargp,
char *errmsg,
size_t errmsg_buflen)
3061 VALUE newary, redirection;
3062 int save_fd = redirect_cloexec_dup(fd), cloexec;
3063 if (save_fd == -1) {
3070 newary = sargp->fd_dup2;
3073 sargp->fd_dup2 = newary;
3075 cloexec = fd_get_cloexec(fd, errmsg, errmsg_buflen);
3080 newary = sargp->fd_close;
3083 sargp->fd_close = newary;
3092intcmp(
const void *a,
const void *b)
3094 return *(
int*)a - *(
int*)b;
3098intrcmp(
const void *a,
const void *b)
3100 return *(
int*)b - *(
int*)a;
3112run_exec_dup2_tmpbuf_size(
long n)
3119fd_get_cloexec(
int fd,
char *errmsg,
size_t errmsg_buflen)
3123 ret = fcntl(fd, F_GETFD);
3125 ERRMSG(
"fcntl(F_GETFD)");
3128 if (ret & FD_CLOEXEC)
return 1;
3135fd_set_cloexec(
int fd,
char *errmsg,
size_t errmsg_buflen)
3139 ret = fcntl(fd, F_GETFD);
3141 ERRMSG(
"fcntl(F_GETFD)");
3144 if (!(ret & FD_CLOEXEC)) {
3146 ret = fcntl(fd, F_SETFD, ret);
3148 ERRMSG(
"fcntl(F_SETFD)");
3158fd_clear_cloexec(
int fd,
char *errmsg,
size_t errmsg_buflen)
3162 ret = fcntl(fd, F_GETFD);
3164 ERRMSG(
"fcntl(F_GETFD)");
3167 if (ret & FD_CLOEXEC) {
3169 ret = fcntl(fd, F_SETFD, ret);
3171 ERRMSG(
"fcntl(F_SETFD)");
3181run_exec_dup2(
VALUE ary,
VALUE tmpbuf,
struct rb_execarg *sargp,
char *errmsg,
size_t errmsg_buflen)
3192 for (i = 0; i < n; i++) {
3197 pairs[i].older_index = -1;
3207 for (i = 0; i < n; i++) {
3208 int newfd = pairs[i].newfd;
3212 pairs[i].num_newer = 0;
3214 while (pairs < found && (found-1)->oldfd == newfd)
3216 while (found < pairs+n && found->oldfd == newfd) {
3217 pairs[i].num_newer++;
3218 found->older_index = i;
3225 for (i = 0; i < n; i++) {
3227 while (j != -1 && pairs[j].oldfd != -1 && pairs[j].num_newer == 0) {
3228 if (save_redirect_fd(pairs[j].newfd, sargp, errmsg, errmsg_buflen) < 0)
3230 ret = redirect_dup2(pairs[j].oldfd, pairs[j].newfd);
3235 if (pairs[j].cloexec &&
3236 fd_set_cloexec(pairs[j].newfd, errmsg, errmsg_buflen)) {
3240 pairs[j].oldfd = -1;
3241 j = pairs[j].older_index;
3243 pairs[j].num_newer--;
3248 for (i = 0; i < n; i++) {
3250 if (pairs[i].oldfd == -1)
3252 if (pairs[i].oldfd == pairs[i].newfd) {
3253 if (fd_clear_cloexec(pairs[i].oldfd, errmsg, errmsg_buflen) == -1)
3255 pairs[i].oldfd = -1;
3258 if (extra_fd == -1) {
3259 extra_fd = redirect_dup(pairs[i].oldfd);
3260 if (extra_fd == -1) {
3266 if (fd_get_cloexec(pairs[i].oldfd, errmsg, errmsg_buflen)) {
3267 if (fd_set_cloexec(extra_fd, errmsg, errmsg_buflen)) {
3275 ret = redirect_dup2(pairs[i].oldfd, extra_fd);
3282 pairs[i].oldfd = extra_fd;
3283 j = pairs[i].older_index;
3284 pairs[i].older_index = -1;
3286 ret = redirect_dup2(pairs[j].oldfd, pairs[j].newfd);
3292 pairs[j].oldfd = -1;
3293 j = pairs[j].older_index;
3296 if (extra_fd != -1) {
3297 ret = redirect_close(extra_fd);
3312run_exec_close(
VALUE ary,
char *errmsg,
size_t errmsg_buflen)
3320 ret = redirect_close(fd);
3331run_exec_dup2_child(
VALUE ary,
struct rb_execarg *sargp,
char *errmsg,
size_t errmsg_buflen)
3341 if (save_redirect_fd(newfd, sargp, errmsg, errmsg_buflen) < 0)
3343 ret = redirect_dup2(oldfd, newfd);
3356run_exec_pgroup(
const struct rb_execarg *eargp,
struct rb_execarg *sargp,
char *errmsg,
size_t errmsg_buflen)
3368 pgroup = eargp->pgroup_pgid;
3374 sargp->pgroup_given = 1;
3375 sargp->pgroup_pgid = getpgrp();
3381 ret = setpgid(getpid(), pgroup);
3382 if (ret == -1) ERRMSG(
"setpgid");
3387#if defined(HAVE_SETRLIMIT) && defined(RLIM2NUM)
3390run_exec_rlimit(
VALUE ary,
struct rb_execarg *sargp,
char *errmsg,
size_t errmsg_buflen)
3399 if (getrlimit(rtype, &rlim) == -1) {
3400 ERRMSG(
"getrlimit");
3404 RLIM2NUM(rlim.rlim_cur),
3405 RLIM2NUM(rlim.rlim_max)));
3406 if (sargp->rlimit_limits ==
Qfalse)
3407 newary = sargp->rlimit_limits = hide_obj(
rb_ary_new());
3409 newary = sargp->rlimit_limits;
3414 if (setrlimit(rtype, &rlim) == -1) {
3415 ERRMSG(
"setrlimit");
3423#if !defined(HAVE_WORKING_FORK)
3436 if (sargp->env_modification ==
Qfalse) {
3437 VALUE env = rb_envtbl();
3442 sargp->env_modification = ary;
3444 sargp->unsetenv_others_given = 1;
3445 sargp->unsetenv_others_do = 1;
3452#define chdir(p) rb_w32_uchdir(p)
3457rb_execarg_run_options(
const struct rb_execarg *eargp,
struct rb_execarg *sargp,
char *errmsg,
size_t errmsg_buflen)
3464 sargp->redirect_fds =
Qnil;
3468 if (eargp->pgroup_given) {
3469 if (run_exec_pgroup(eargp, sargp, errmsg, errmsg_buflen) == -1)
3474#if defined(HAVE_SETRLIMIT) && defined(RLIM2NUM)
3475 obj = eargp->rlimit_limits;
3477 if (run_exec_rlimit(obj, sargp, errmsg, errmsg_buflen) == -1)
3482#if !defined(HAVE_WORKING_FORK)
3483 if (eargp->unsetenv_others_given && eargp->unsetenv_others_do) {
3488 obj = eargp->env_modification;
3504 if (eargp->umask_given) {
3505 mode_t mask = eargp->umask_mask;
3506 mode_t oldmask = umask(mask);
3508 sargp->umask_given = 1;
3509 sargp->umask_mask = oldmask;
3513 obj = eargp->fd_dup2;
3515 if (run_exec_dup2(obj, eargp->dup2_tmpbuf, sargp, errmsg, errmsg_buflen) == -1)
3519 obj = eargp->fd_close;
3522 rb_warn(
"cannot close fd before spawn");
3524 if (run_exec_close(obj, errmsg, errmsg_buflen) == -1)
3529#ifdef HAVE_WORKING_FORK
3530 if (eargp->close_others_do) {
3535 obj = eargp->fd_dup2_child;
3537 if (run_exec_dup2_child(obj, sargp, errmsg, errmsg_buflen) == -1)
3541 if (eargp->chdir_given) {
3543 sargp->chdir_given = 1;
3544 sargp->chdir_dir = hide_obj(rb_dir_getwd_ospath());
3546 if (chdir(RSTRING_PTR(eargp->chdir_dir)) == -1) {
3553 if (eargp->gid_given) {
3554 if (setgid(eargp->gid) < 0) {
3561 if (eargp->uid_given) {
3562 if (setuid(eargp->uid) < 0) {
3570 VALUE ary = sargp->fd_dup2;
3572 rb_execarg_allocate_dup2_tmpbuf(sargp,
RARRAY_LEN(ary));
3576 int preserve =
errno;
3577 stdfd_clear_nonblock();
3586rb_exec_async_signal_safe(
const struct rb_execarg *eargp,
char *errmsg,
size_t errmsg_buflen)
3588 errno = exec_async_signal_safe(eargp, errmsg, errmsg_buflen);
3593exec_async_signal_safe(
const struct rb_execarg *eargp,
char *errmsg,
size_t errmsg_buflen)
3595#if !defined(HAVE_WORKING_FORK)
3596 struct rb_execarg sarg, *
const sargp = &sarg;
3602 if (rb_execarg_run_options(eargp, sargp, errmsg, errmsg_buflen) < 0) {
3606 if (eargp->use_shell) {
3607 err = proc_exec_sh(RSTRING_PTR(eargp->invoke.sh.shell_script), eargp->envp_str);
3610 char *abspath = NULL;
3611 if (!
NIL_P(eargp->invoke.cmd.command_abspath))
3612 abspath = RSTRING_PTR(eargp->invoke.cmd.command_abspath);
3613 err = proc_exec_cmd(abspath, eargp->invoke.cmd.argv_str, eargp->envp_str);
3615#if !defined(HAVE_WORKING_FORK)
3616 rb_execarg_run_options(sargp, NULL, errmsg, errmsg_buflen);
3622#ifdef HAVE_WORKING_FORK
3625rb_exec_atfork(
void* arg,
char *errmsg,
size_t errmsg_buflen)
3627 return rb_exec_async_signal_safe(arg, errmsg, errmsg_buflen);
3631proc_syswait(
VALUE pid)
3638move_fds_to_avoid_crash(
int *fdp,
int n,
VALUE fds)
3642 for (i = 0; i < n; i++) {
3661pipe_nocrash(
int filedes[2],
VALUE fds)
3669 if (move_fds_to_avoid_crash(filedes, 2, fds) == -1) {
3684rb_thread_sleep_that_takes_VALUE_as_sole_argument(
VALUE n)
3691handle_fork_error(
int err,
struct rb_process_status *status,
int *ep,
volatile int *try_gc_p)
3697 if ((*try_gc_p)-- > 0 && !rb_during_gc()) {
3703#if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN
3706 if (!status && !ep) {
3711 rb_protect(rb_thread_sleep_that_takes_VALUE_as_sole_argument,
INT2FIX(1), &state);
3712 if (status) status->status = state;
3713 if (!state)
return 0;
3722 if (state && !status) rb_jump_tag(state);
3726#define prefork() ( \
3727 rb_io_flush(rb_stdout), \
3728 rb_io_flush(rb_stderr) \
3758write_retry(
int fd,
const void *buf,
size_t len)
3763 w = write(fd, buf,
len);
3764 }
while (w < 0 &&
errno == EINTR);
3770read_retry(
int fd,
void *buf,
size_t len)
3774 if (set_blocking(fd) != 0) {
3776 rb_async_bug_errno(
"set_blocking failed reading child error",
errno);
3781 r = read(fd, buf,
len);
3782 }
while (r < 0 &&
errno == EINTR);
3788send_child_error(
int fd,
char *errmsg,
size_t errmsg_buflen)
3793 if (write_retry(fd, &err,
sizeof(err)) < 0) err =
errno;
3794 if (errmsg && 0 < errmsg_buflen) {
3795 errmsg[errmsg_buflen-1] =
'\0';
3796 errmsg_buflen = strlen(errmsg);
3797 if (errmsg_buflen > 0 && write_retry(fd, errmsg, errmsg_buflen) < 0)
3803recv_child_error(
int fd,
int *errp,
char *errmsg,
size_t errmsg_buflen)
3807 if ((size = read_retry(fd, &err,
sizeof(err))) < 0) {
3811 if (size ==
sizeof(err) &&
3812 errmsg && 0 < errmsg_buflen) {
3813 ssize_t ret = read_retry(fd, errmsg, errmsg_buflen-1);
3822#ifdef HAVE_WORKING_VFORK
3823#if !defined(HAVE_GETRESUID) && defined(HAVE_GETUIDX)
3826getresuid(rb_uid_t *ruid, rb_uid_t *euid, rb_uid_t *suid)
3832 ret = getuidx(ID_SAVED);
3833 if (ret == (rb_uid_t)-1)
3838#define HAVE_GETRESUID
3841#if !defined(HAVE_GETRESGID) && defined(HAVE_GETGIDX)
3844getresgid(rb_gid_t *rgid, rb_gid_t *egid, rb_gid_t *sgid)
3850 ret = getgidx(ID_SAVED);
3851 if (ret == (rb_gid_t)-1)
3856#define HAVE_GETRESGID
3874 rb_uid_t ruid, euid;
3875 rb_gid_t rgid, egid;
3877#if defined HAVE_ISSETUGID
3882#ifdef HAVE_GETRESUID
3886 ret = getresuid(&ruid, &euid, &suid);
3888 rb_sys_fail(
"getresuid(2)");
3897 if (euid == 0 || euid != ruid)
3900#ifdef HAVE_GETRESGID
3904 ret = getresgid(&rgid, &egid, &sgid);
3906 rb_sys_fail(
"getresgid(2)");
3922struct child_handler_disabler_state
3928disable_child_handler_before_fork(
struct child_handler_disabler_state *old)
3930#ifdef HAVE_PTHREAD_SIGMASK
3934 ret = sigfillset(&all);
3936 rb_sys_fail(
"sigfillset");
3938 ret = pthread_sigmask(SIG_SETMASK, &all, &old->sigmask);
3943# pragma GCC warning "pthread_sigmask on fork is not available. potentially dangerous"
3948disable_child_handler_fork_parent(
struct child_handler_disabler_state *old)
3950#ifdef HAVE_PTHREAD_SIGMASK
3953 ret = pthread_sigmask(SIG_SETMASK, &old->sigmask, NULL);
3958# pragma GCC warning "pthread_sigmask on fork is not available. potentially dangerous"
3964disable_child_handler_fork_child(
struct child_handler_disabler_state *old,
char *errmsg,
size_t errmsg_buflen)
3969 for (sig = 1; sig < NSIG; sig++) {
3970 sig_t handler = signal(sig, SIG_DFL);
3972 if (handler == SIG_ERR &&
errno == EINVAL) {
3975 if (handler == SIG_ERR) {
3976 ERRMSG(
"signal to obtain old action");
3980 if (sig == SIGPIPE) {
3985 if (handler == SIG_IGN) {
3986 signal(sig, SIG_IGN);
3991 sigemptyset(&old->sigmask);
3992 ret = sigprocmask(SIG_SETMASK, &old->sigmask, NULL);
3994 ERRMSG(
"sigprocmask");
4002 int (*chfunc)(
void*,
char *,
size_t),
void *charg,
4003 char *errmsg,
size_t errmsg_buflen,
4007 volatile int try_gc = 1;
4008 struct child_handler_disabler_state old;
4013 disable_child_handler_before_fork(&old);
4014#ifdef HAVE_WORKING_VFORK
4015 if (!has_privilege())
4025 ret = disable_child_handler_fork_child(&old, errmsg, errmsg_buflen);
4027 ret = chfunc(charg, errmsg, errmsg_buflen);
4028 if (!ret) _exit(EXIT_SUCCESS);
4030 send_child_error(ep[1], errmsg, errmsg_buflen);
4031#if EXIT_SUCCESS == 127
4032 _exit(EXIT_FAILURE);
4038 disable_child_handler_fork_parent(&old);
4042 if (handle_fork_error(err, status, ep, &try_gc))
4048fork_check_err(
struct rb_process_status *status,
int (*chfunc)(
void*,
char *,
size_t),
void *charg,
4049 VALUE fds,
char *errmsg,
size_t errmsg_buflen,
4057 struct waitpid_state *w = eargp && eargp->waitpid_state ? eargp->waitpid_state : 0;
4059 if (status) status->status = 0;
4061 if (pipe_nocrash(ep, fds))
return -1;
4063 pid = retry_fork_async_signal_safe(status, ep, chfunc, charg, errmsg, errmsg_buflen, w);
4065 if (status) status->pid = pid;
4068 if (status) status->error =
errno;
4075 error_occurred = recv_child_error(ep[0], &err, errmsg, errmsg_buflen);
4077 if (error_occurred) {
4080 status->error = err;
4082 VM_ASSERT((w == 0) &&
"only used by extensions");
4083 rb_protect(proc_syswait, (
VALUE)pid, &state);
4085 status->status = state;
4106rb_fork_async_signal_safe(
int *status,
4107 int (*chfunc)(
void*,
char *,
size_t),
void *charg,
4108 VALUE fds,
char *errmsg,
size_t errmsg_buflen)
4112 rb_pid_t result = fork_check_err(&process_status, chfunc, charg, fds, errmsg, errmsg_buflen, 0);
4115 *status = process_status.status;
4122rb_fork_ruby(
int *status)
4124 if (UNLIKELY(!rb_ractor_main_p())) {
4125 rb_raise(rb_eRactorIsolationError,
"can not fork from non-main Ractors");
4130 int try_gc = 1, err = 0;
4131 struct child_handler_disabler_state old;
4137 rb_thread_acquire_fork_lock();
4138 disable_child_handler_before_fork(&old);
4141 child.pid = pid = rb_fork();
4142 child.error = err =
errno;
4145 disable_child_handler_fork_parent(&old);
4147#
if defined(__FreeBSD__)
4151 rb_thread_release_fork_lock();
4154 rb_thread_reset_fork_lock();
4156 after_fork_ruby(pid);
4159 }
while (pid < 0 && handle_fork_error(err, &child, NULL, &try_gc) == 0);
4161 if (status) *status = child.status;
4169 rb_pid_t pid = rb_fork_ruby(NULL);
4172 rb_sys_fail(
"fork(2)");
4179rb_call_proc__fork(
void)
4184 return proc_fork_pid();
4193#if defined(HAVE_WORKING_FORK) && !defined(CANNOT_FORK_WITH_PTHREAD)
4214rb_proc__fork(
VALUE _obj)
4216 rb_pid_t pid = proc_fork_pid();
4285 pid = rb_call_proc__fork();
4299#define rb_proc__fork rb_f_notimplement
4300#define rb_f_fork rb_f_notimplement
4304exit_status_code(
VALUE status)
4310 istatus = EXIT_SUCCESS;
4313 istatus = EXIT_FAILURE;
4317#if EXIT_SUCCESS != 0
4319 istatus = EXIT_SUCCESS;
4326NORETURN(
static VALUE rb_f_exit_bang(
int argc,
VALUE *argv,
VALUE obj));
4344rb_f_exit_bang(
int argc,
VALUE *argv,
VALUE obj)
4349 istatus = exit_status_code(argv[0]);
4352 istatus = EXIT_FAILURE;
4362 if (GET_EC()->tag) {
4378 istatus = exit_status_code(argv[0]);
4381 istatus = EXIT_SUCCESS;
4447 VALUE errinfo = rb_ec_get_errinfo(ec);
4448 if (!
NIL_P(errinfo)) {
4449 rb_ec_error_print(ec, errinfo);
4456 args[1] = args[0] = argv[0];
4458 rb_io_puts(1, args, rb_ractor_stderr());
4459 args[0] =
INT2NUM(EXIT_FAILURE);
4497#if !defined HAVE_WORKING_FORK && !defined HAVE_SPAWNV && !defined __EMSCRIPTEN__
4502 if (eargp && !eargp->use_shell) {
4503 VALUE str = eargp->invoke.cmd.argv_str;
4504 VALUE buf = eargp->invoke.cmd.argv_buf;
4505 char *p, **argv = ARGVSTR2ARGV(str);
4506 long i, argc = ARGVSTR2ARGC(str);
4507 const char *start = RSTRING_PTR(buf);
4509 p = RSTRING_PTR(cmd);
4510 for (i = 1; i < argc; ++i) {
4511 p[argv[i] - start - 1] =
' ';
4521rb_spawn_process(
struct rb_execarg *eargp,
char *errmsg,
size_t errmsg_buflen)
4524#if !defined HAVE_WORKING_FORK || USE_SPAWNV
4527# if !defined HAVE_SPAWNV
4532#if defined HAVE_WORKING_FORK && !USE_SPAWNV
4533 pid = fork_check_err(eargp->status, rb_exec_atfork, eargp, eargp->redirect_fds, errmsg, errmsg_buflen, eargp);
4535 prog = eargp->use_shell ? eargp->invoke.sh.shell_script : eargp->invoke.cmd.command_name;
4537 if (rb_execarg_run_options(eargp, &sarg, errmsg, errmsg_buflen) < 0) {
4541 if (prog && !eargp->use_shell) {
4542 char **argv = ARGVSTR2ARGV(eargp->invoke.cmd.argv_str);
4543 argv[0] = RSTRING_PTR(prog);
4545# if defined HAVE_SPAWNV
4546 if (eargp->use_shell) {
4547 pid = proc_spawn_sh(RSTRING_PTR(prog));
4550 char **argv = ARGVSTR2ARGV(eargp->invoke.cmd.argv_str);
4551 pid = proc_spawn_cmd(argv, prog, eargp);
4558 status = system(rb_execarg_commandline(eargp, &prog));
4563 if (eargp->waitpid_state) {
4564 eargp->waitpid_state->pid = pid;
4567 rb_execarg_run_options(&sarg, NULL, errmsg, errmsg_buflen);
4582do_spawn_process(
VALUE arg)
4586 rb_execarg_parent_start1(argp->execarg);
4588 return (
VALUE)rb_spawn_process(rb_execarg_get(argp->execarg),
4589 argp->errmsg.ptr, argp->errmsg.buflen);
4592NOINLINE(
static rb_pid_t
4593 rb_execarg_spawn(
VALUE execarg_obj,
char *errmsg,
size_t errmsg_buflen));
4596rb_execarg_spawn(
VALUE execarg_obj,
char *errmsg,
size_t errmsg_buflen)
4600 args.execarg = execarg_obj;
4601 args.errmsg.ptr = errmsg;
4602 args.errmsg.buflen = errmsg_buflen;
4605 execarg_parent_end, execarg_obj);
4610rb_spawn_internal(
int argc,
const VALUE *argv,
char *errmsg,
size_t errmsg_buflen)
4614 execarg_obj = rb_execarg_new(argc, argv, TRUE, FALSE);
4615 return rb_execarg_spawn(execarg_obj, errmsg, errmsg_buflen);
4621 return rb_spawn_internal(argc, argv, errmsg, errmsg_buflen);
4627 return rb_spawn_internal(argc, argv, NULL, 0);
4752 VALUE execarg_obj = rb_execarg_new(argc, argv, TRUE, TRUE);
4753 struct rb_execarg *eargp = rb_execarg_get(execarg_obj);
4756 eargp->status = &status;
4758 last_status_clear(th);
4762 rb_pid_t pid = rb_execarg_spawn(execarg_obj, 0, 0);
4769 th->last_status = status;
4771 if (data->status == EXIT_SUCCESS) {
4775 if (data->error != 0) {
4776 if (eargp->exception) {
4777 VALUE command = eargp->invoke.sh.shell_script;
4785 else if (eargp->exception) {
4786 VALUE command = eargp->invoke.sh.shell_script;
4800 if (eargp->exception) {
4801 VALUE command = eargp->invoke.sh.shell_script;
4917 char errmsg[CHILD_ERRMSG_BUFLEN] = {
'\0' };
4918 VALUE execarg_obj, fail_str;
4921 execarg_obj = rb_execarg_new(argc, argv, TRUE, FALSE);
4922 eargp = rb_execarg_get(execarg_obj);
4923 fail_str = eargp->use_shell ? eargp->invoke.sh.shell_script : eargp->invoke.cmd.command_name;
4925 pid = rb_execarg_spawn(execarg_obj, errmsg,
sizeof(errmsg));
4929 rb_exec_fail(eargp, err, errmsg);
4933#if defined(HAVE_WORKING_FORK) || defined(HAVE_SPAWNV)
4959 time_t beg = time(0);
4962 if (scheduler !=
Qnil) {
4966 if (argc == 0 || (argc == 1 &&
NIL_P(argv[0]))) {
4975 time_t end = time(0) - beg;
4977 return TIMET2NUM(end);
4981#if (defined(HAVE_GETPGRP) && defined(GETPGRP_VOID)) || defined(HAVE_GETPGID)
4998#if defined(HAVE_GETPGRP) && defined(GETPGRP_VOID)
5000 if (pgrp < 0) rb_sys_fail(0);
5004 if (pgrp < 0) rb_sys_fail(0);
5009#define proc_getpgrp rb_f_notimplement
5013#if defined(HAVE_SETPGID) || (defined(HAVE_SETPGRP) && defined(SETPGRP_VOID))
5031 if (setpgid(0,0) < 0) rb_sys_fail(0);
5032#elif defined(HAVE_SETPGRP) && defined(SETPGRP_VOID)
5033 if (setpgrp() < 0) rb_sys_fail(0);
5038#define proc_setpgrp rb_f_notimplement
5042#if defined(HAVE_GETPGID)
5060 if (i < 0) rb_sys_fail(0);
5064#define proc_getpgid rb_f_notimplement
5082 rb_pid_t ipid, ipgrp;
5087 if (setpgid(ipid, ipgrp) < 0) rb_sys_fail(0);
5091#define proc_setpgid rb_f_notimplement
5119 if (sid < 0) rb_sys_fail(0);
5123#define proc_getsid rb_f_notimplement
5127#if defined(HAVE_SETSID) || (defined(HAVE_SETPGRP) && defined(TIOCNOTTY))
5128#if !defined(HAVE_SETSID)
5129static rb_pid_t ruby_setsid(
void);
5130#define setsid() ruby_setsid()
5151 if (pid < 0) rb_sys_fail(0);
5155#if !defined(HAVE_SETSID)
5156#define HAVE_SETSID 1
5164#if defined(SETPGRP_VOID)
5170 ret = setpgrp(0, pid);
5172 if (ret == -1)
return -1;
5176 ioctl(fd, TIOCNOTTY, NULL);
5183#define proc_setsid rb_f_notimplement
5187#ifdef HAVE_GETPRIORITY
5215 int prio, iwhich, iwho;
5221 prio = getpriority(iwhich, iwho);
5222 if (
errno) rb_sys_fail(0);
5226#define proc_getpriority rb_f_notimplement
5230#ifdef HAVE_GETPRIORITY
5250 int iwhich, iwho, iprio;
5256 if (setpriority(iwhich, iwho, iprio) < 0)
5261#define proc_setpriority rb_f_notimplement
5264#if defined(HAVE_SETRLIMIT) && defined(NUM2RLIM)
5266rlimit_resource_name2int(
const char *name,
long len,
int casetype)
5270#define RESCHECK(r) \
5272 if (len == rb_strlen_lit(#r) && STRCASECMP(name, #r) == 0) { \
5273 resource = RLIMIT_##r; \
5307#ifdef RLIMIT_MEMLOCK
5310#ifdef RLIMIT_MSGQUEUE
5349#ifdef RLIMIT_SIGPENDING
5350 RESCHECK(SIGPENDING);
5359 for (p = name; *p; p++)
5365 for (p = name; *p; p++)
5371 rb_bug(
"unexpected casetype");
5378rlimit_type_by_hname(
const char *name,
long len)
5380 return rlimit_resource_name2int(name,
len, 0);
5384rlimit_type_by_lname(
const char *name,
long len)
5386 return rlimit_resource_name2int(name,
len, 1);
5390rlimit_type_by_sym(
VALUE key)
5393 const char *rname = RSTRING_PTR(name);
5394 long len = RSTRING_LEN(name);
5396 static const char prefix[] =
"rlimit_";
5397 enum {prefix_len =
sizeof(prefix)-1};
5399 if (
len > prefix_len && strncmp(prefix, rname, prefix_len) == 0) {
5400 rtype = rlimit_type_by_lname(rname + prefix_len,
len - prefix_len);
5408rlimit_resource_type(
VALUE rtype)
5415 switch (
TYPE(rtype)) {
5418 name = RSTRING_PTR(v);
5419 len = RSTRING_LEN(v);
5428 len = RSTRING_LEN(rtype);
5438 r = rlimit_type_by_hname(name,
len);
5442 rb_raise(rb_eArgError,
"invalid resource name: % "PRIsVALUE, rtype);
5448rlimit_resource_value(
VALUE rval)
5453 switch (
TYPE(rval)) {
5456 name = RSTRING_PTR(v);
5471 return NUM2RLIM(rval);
5475 if (strcmp(name,
"INFINITY") == 0)
return RLIM_INFINITY;
5477#ifdef RLIM_SAVED_MAX
5478 if (strcmp(name,
"SAVED_MAX") == 0)
return RLIM_SAVED_MAX;
5480#ifdef RLIM_SAVED_CUR
5481 if (strcmp(name,
"SAVED_CUR") == 0)
return RLIM_SAVED_CUR;
5483 rb_raise(rb_eArgError,
"invalid resource value: %"PRIsVALUE, rval);
5489#if defined(HAVE_GETRLIMIT) && defined(RLIM2NUM)
5517 if (getrlimit(rlimit_resource_type(resource), &rlim) < 0) {
5518 rb_sys_fail(
"getrlimit");
5520 return rb_assoc_new(RLIM2NUM(rlim.rlim_cur), RLIM2NUM(rlim.rlim_max));
5523#define proc_getrlimit rb_f_notimplement
5526#if defined(HAVE_SETRLIMIT) && defined(NUM2RLIM)
5580proc_setrlimit(
int argc,
VALUE *argv,
VALUE obj)
5582 VALUE resource, rlim_cur, rlim_max;
5588 if (argc < 3 ||
NIL_P(rlim_max = argv[2]))
5589 rlim_max = rlim_cur;
5591 rlim.rlim_cur = rlimit_resource_value(rlim_cur);
5592 rlim.rlim_max = rlimit_resource_value(rlim_max);
5594 if (setrlimit(rlimit_resource_type(resource), &rlim) < 0) {
5595 rb_sys_fail(
"setrlimit");
5600#define proc_setrlimit rb_f_notimplement
5603static int under_uid_switch = 0;
5605check_uid_switch(
void)
5607 if (under_uid_switch) {
5608 rb_raise(
rb_eRuntimeError,
"can't handle UID while evaluating block given to Process::UID.switch method");
5612static int under_gid_switch = 0;
5614check_gid_switch(
void)
5616 if (under_gid_switch) {
5617 rb_raise(
rb_eRuntimeError,
"can't handle GID while evaluating block given to Process::UID.switch method");
5622#if defined(HAVE_PWD_H)
5624login_not_found(
int err)
5626 return (err == ENOTTY || err == ENXIO || err == ENOENT);
5637# if !defined(USE_GETLOGIN_R) && !defined(USE_GETLOGIN)
5640 char MAYBE_UNUSED(*login) = NULL;
5642# ifdef USE_GETLOGIN_R
5644# if defined(__FreeBSD__)
5645 typedef int getlogin_r_size_t;
5647 typedef size_t getlogin_r_size_t;
5650 long loginsize = GETLOGIN_R_SIZE_INIT;
5653 loginsize = GETLOGIN_R_SIZE_DEFAULT;
5657 login = RSTRING_PTR(maybe_result);
5662 while ((gle = getlogin_r(login, (getlogin_r_size_t)loginsize)) != 0) {
5663 if (login_not_found(gle)) {
5664 rb_str_resize(maybe_result, 0);
5668 if (gle != ERANGE || loginsize >= GETLOGIN_R_SIZE_LIMIT) {
5669 rb_str_resize(maybe_result, 0);
5674 login = RSTRING_PTR(maybe_result);
5678 if (login == NULL) {
5679 rb_str_resize(maybe_result, 0);
5684 return maybe_result;
5686# elif defined(USE_GETLOGIN)
5692 if (login_not_found(err)) {
5706pwd_not_found(
int err)
5720# if defined(USE_GETPWNAM_R)
5721struct getpwnam_r_args {
5725 struct passwd *result;
5726 struct passwd pwstore;
5729# define GETPWNAM_R_ARGS(login_, buf_, bufsize_) (struct getpwnam_r_args) \
5730 {.login = login_, .buf = buf_, .bufsize = bufsize_, .result = NULL}
5733nogvl_getpwnam_r(
void *args)
5735 struct getpwnam_r_args *arg = args;
5736 return (
void *)(
VALUE)getpwnam_r(arg->login, &arg->pwstore, arg->buf, arg->bufsize, &arg->result);
5741rb_getpwdirnam_for_login(
VALUE login_name)
5743#if !defined(USE_GETPWNAM_R) && !defined(USE_GETPWNAM)
5747 if (
NIL_P(login_name)) {
5752 const char *login = RSTRING_PTR(login_name);
5755# ifdef USE_GETPWNAM_R
5758 long bufsizenm = GETPW_R_SIZE_INIT;
5761 bufsizenm = GETPW_R_SIZE_DEFAULT;
5765 bufnm = RSTRING_PTR(getpwnm_tmp);
5768 struct getpwnam_r_args args = GETPWNAM_R_ARGS(login, bufnm, (
size_t)bufsizenm);
5771 while ((enm = IO_WITHOUT_GVL_INT(nogvl_getpwnam_r, &args)) != 0) {
5772 if (pwd_not_found(enm)) {
5773 rb_str_resize(getpwnm_tmp, 0);
5777 if (enm != ERANGE || args.bufsize >= GETPW_R_SIZE_LIMIT) {
5778 rb_str_resize(getpwnm_tmp, 0);
5783 args.buf = RSTRING_PTR(getpwnm_tmp);
5787 if (args.result == NULL) {
5789 rb_str_resize(getpwnm_tmp, 0);
5795 rb_str_resize(getpwnm_tmp, 0);
5798# elif defined(USE_GETPWNAM)
5800 struct passwd *pwptr;
5802 if (!(pwptr = getpwnam(login))) {
5805 if (pwd_not_found(err)) {
5819# if defined(USE_GETPWUID_R)
5820struct getpwuid_r_args {
5824 struct passwd *result;
5825 struct passwd pwstore;
5828# define GETPWUID_R_ARGS(uid_, buf_, bufsize_) (struct getpwuid_r_args) \
5829 {.uid = uid_, .buf = buf_, .bufsize = bufsize_, .result = NULL}
5832nogvl_getpwuid_r(
void *args)
5834 struct getpwuid_r_args *arg = args;
5835 return (
void *)(
VALUE)getpwuid_r(arg->uid, &arg->pwstore, arg->buf, arg->bufsize, &arg->result);
5845# if !defined(USE_GETPWUID_R) && !defined(USE_GETPWUID)
5849 uid_t ruid = getuid();
5851# ifdef USE_GETPWUID_R
5854 long bufsizeid = GETPW_R_SIZE_INIT;
5857 bufsizeid = GETPW_R_SIZE_DEFAULT;
5861 bufid = RSTRING_PTR(getpwid_tmp);
5864 struct getpwuid_r_args args = GETPWUID_R_ARGS(ruid, bufid, (
size_t)bufsizeid);
5867 while ((eid = IO_WITHOUT_GVL_INT(nogvl_getpwuid_r, &args)) != 0) {
5868 if (pwd_not_found(eid)) {
5869 rb_str_resize(getpwid_tmp, 0);
5873 if (eid != ERANGE || args.bufsize >= GETPW_R_SIZE_LIMIT) {
5874 rb_str_resize(getpwid_tmp, 0);
5879 args.buf = RSTRING_PTR(getpwid_tmp);
5883 if (args.result == NULL) {
5885 rb_str_resize(getpwid_tmp, 0);
5891 rb_str_resize(getpwid_tmp, 0);
5894# elif defined(USE_GETPWUID)
5896 struct passwd *pwptr;
5898 if (!(pwptr = getpwuid(ruid))) {
5901 if (pwd_not_found(err)) {
5927#if defined(HAVE_PWD_H)
5930# ifdef USE_GETPWNAM_R
5943 struct passwd *pwptr;
5944#ifdef USE_GETPWNAM_R
5949 getpw_buf_len = GETPW_R_SIZE_INIT;
5950 if (getpw_buf_len < 0) getpw_buf_len = GETPW_R_SIZE_DEFAULT;
5953 getpw_buf = RSTRING_PTR(*getpw_tmp);
5957 struct getpwnam_r_args args = GETPWNAM_R_ARGS((
char *)usrname, getpw_buf, (
size_t)getpw_buf_len);
5959 while ((e = IO_WITHOUT_GVL_INT(nogvl_getpwnam_r, &args)) != 0) {
5960 if (e != ERANGE || args.bufsize >= GETPW_R_SIZE_LIMIT) {
5961 rb_str_resize(*getpw_tmp, 0);
5965 args.buf = RSTRING_PTR(*getpw_tmp);
5968 pwptr = args.result;
5970 pwptr = getpwnam(usrname);
5973#ifndef USE_GETPWNAM_R
5976 rb_raise(rb_eArgError,
"can't find user for %"PRIsVALUE,
id);
5978 uid = pwptr->pw_uid;
5979#ifndef USE_GETPWNAM_R
5986# ifdef p_uid_from_name
6006#if defined(HAVE_GRP_H)
6007# if defined(USE_GETGRNAM_R)
6008struct getgrnam_r_args {
6012 struct group *result;
6016# define GETGRNAM_R_ARGS(name_, buf_, bufsize_) (struct getgrnam_r_args) \
6017 {.name = name_, .buf = buf_, .bufsize = bufsize_, .result = NULL}
6020nogvl_getgrnam_r(
void *args)
6022 struct getgrnam_r_args *arg = args;
6023 return (
void *)(
VALUE)getgrnam_r(arg->name, &arg->grp, arg->buf, arg->bufsize, &arg->result);
6029# ifdef USE_GETGRNAM_R
6042 struct group *grptr;
6043#ifdef USE_GETGRNAM_R
6048 getgr_buf_len = GETGR_R_SIZE_INIT;
6049 if (getgr_buf_len < 0) getgr_buf_len = GETGR_R_SIZE_DEFAULT;
6052 getgr_buf = RSTRING_PTR(*getgr_tmp);
6056 struct getgrnam_r_args args = GETGRNAM_R_ARGS(grpname, getgr_buf, (
size_t)getgr_buf_len);
6058 while ((e = IO_WITHOUT_GVL_INT(nogvl_getgrnam_r, &args)) != 0) {
6059 if (e != ERANGE || args.bufsize >= GETGR_R_SIZE_LIMIT) {
6060 rb_str_resize(*getgr_tmp, 0);
6064 args.buf = RSTRING_PTR(*getgr_tmp);
6067 grptr = args.result;
6068#elif defined(HAVE_GETGRNAM)
6069 grptr = getgrnam(grpname);
6074#if !defined(USE_GETGRNAM_R) && defined(HAVE_ENDGRENT)
6077 rb_raise(rb_eArgError,
"can't find group for %"PRIsVALUE,
id);
6079 gid = grptr->gr_gid;
6080#if !defined(USE_GETGRNAM_R) && defined(HAVE_ENDGRENT)
6087# ifdef p_gid_from_name
6107#if defined HAVE_SETUID
6121 if (setuid(OBJ2UID(
id)) != 0) rb_sys_fail(0);
6125#define p_sys_setuid rb_f_notimplement
6129#if defined HAVE_SETRUID
6143 if (setruid(OBJ2UID(
id)) != 0) rb_sys_fail(0);
6147#define p_sys_setruid rb_f_notimplement
6151#if defined HAVE_SETEUID
6165 if (seteuid(OBJ2UID(
id)) != 0) rb_sys_fail(0);
6169#define p_sys_seteuid rb_f_notimplement
6173#if defined HAVE_SETREUID
6188 rb_uid_t ruid, euid;
6191 ruid = OBJ2UID1(rid);
6192 euid = OBJ2UID1(eid);
6194 if (setreuid(ruid, euid) != 0) rb_sys_fail(0);
6198#define p_sys_setreuid rb_f_notimplement
6202#if defined HAVE_SETRESUID
6217 rb_uid_t ruid, euid, suid;
6220 ruid = OBJ2UID1(rid);
6221 euid = OBJ2UID1(eid);
6222 suid = OBJ2UID1(sid);
6224 if (setresuid(ruid, euid, suid) != 0) rb_sys_fail(0);
6228#define p_sys_setresuid rb_f_notimplement
6245proc_getuid(
VALUE obj)
6247 rb_uid_t uid = getuid();
6252#if defined(HAVE_SETRESUID) || defined(HAVE_SETREUID) || defined(HAVE_SETRUID) || defined(HAVE_SETUID)
6272#if defined(HAVE_SETRESUID)
6273 if (setresuid(uid, -1, -1) < 0) rb_sys_fail(0);
6274#elif defined HAVE_SETREUID
6275 if (setreuid(uid, -1) < 0) rb_sys_fail(0);
6276#elif defined HAVE_SETRUID
6277 if (setruid(uid) < 0) rb_sys_fail(0);
6278#elif defined HAVE_SETUID
6280 if (geteuid() == uid) {
6281 if (setuid(uid) < 0) rb_sys_fail(0);
6291#define proc_setuid rb_f_notimplement
6305static rb_uid_t SAVED_USER_ID = -1;
6307#ifdef BROKEN_SETREUID
6309setreuid(rb_uid_t ruid, rb_uid_t euid)
6311 if (ruid != (rb_uid_t)-1 && ruid != getuid()) {
6312 if (euid == (rb_uid_t)-1) euid = geteuid();
6313 if (setuid(ruid) < 0)
return -1;
6315 if (euid != (rb_uid_t)-1 && euid != geteuid()) {
6316 if (seteuid(euid) < 0)
return -1;
6344 if (geteuid() == 0) {
6345#if defined(HAVE_SETRESUID)
6346 if (setresuid(uid, uid, uid) < 0) rb_sys_fail(0);
6347 SAVED_USER_ID = uid;
6348#elif defined(HAVE_SETUID)
6349 if (setuid(uid) < 0) rb_sys_fail(0);
6350 SAVED_USER_ID = uid;
6351#elif defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID)
6352 if (getuid() == uid) {
6353 if (SAVED_USER_ID == uid) {
6354 if (setreuid(-1, uid) < 0) rb_sys_fail(0);
6358 if (setreuid(-1, SAVED_USER_ID) < 0) rb_sys_fail(0);
6359 if (setreuid(SAVED_USER_ID, 0) < 0) rb_sys_fail(0);
6361 if (setreuid(uid, uid) < 0) rb_sys_fail(0);
6362 SAVED_USER_ID = uid;
6365 if (setreuid(0, -1) < 0) rb_sys_fail(0);
6367 if (setreuid(uid, uid) < 0) rb_sys_fail(0);
6368 SAVED_USER_ID = uid;
6373 if (setreuid(uid, uid) < 0) rb_sys_fail(0);
6374 SAVED_USER_ID = uid;
6376#elif defined(HAVE_SETRUID) && defined(HAVE_SETEUID)
6377 if (getuid() == uid) {
6378 if (SAVED_USER_ID == uid) {
6379 if (seteuid(uid) < 0) rb_sys_fail(0);
6383 if (setruid(SAVED_USER_ID) < 0) rb_sys_fail(0);
6385 if (setruid(0) < 0) rb_sys_fail(0);
6388 if (setruid(0) < 0) rb_sys_fail(0);
6390 if (seteuid(uid) < 0) rb_sys_fail(0);
6391 if (setruid(uid) < 0) rb_sys_fail(0);
6392 SAVED_USER_ID = uid;
6397 if (seteuid(uid) < 0) rb_sys_fail(0);
6398 if (setruid(uid) < 0) rb_sys_fail(0);
6399 SAVED_USER_ID = uid;
6407#if defined(HAVE_SETRESUID)
6408 if (setresuid((getuid() == uid)? (rb_uid_t)-1: uid,
6409 (geteuid() == uid)? (rb_uid_t)-1: uid,
6410 (SAVED_USER_ID == uid)? (rb_uid_t)-1: uid) < 0) rb_sys_fail(0);
6411 SAVED_USER_ID = uid;
6412#elif defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID)
6413 if (SAVED_USER_ID == uid) {
6414 if (setreuid((getuid() == uid)? (rb_uid_t)-1: uid,
6415 (geteuid() == uid)? (rb_uid_t)-1: uid) < 0)
6418 else if (getuid() != uid) {
6419 if (setreuid(uid, (geteuid() == uid)? (rb_uid_t)-1: uid) < 0)
6421 SAVED_USER_ID = uid;
6423 else if ( geteuid() != uid) {
6424 if (setreuid(geteuid(), uid) < 0) rb_sys_fail(0);
6425 SAVED_USER_ID = uid;
6426 if (setreuid(uid, -1) < 0) rb_sys_fail(0);
6429 if (setreuid(-1, SAVED_USER_ID) < 0) rb_sys_fail(0);
6430 if (setreuid(SAVED_USER_ID, uid) < 0) rb_sys_fail(0);
6431 SAVED_USER_ID = uid;
6432 if (setreuid(uid, -1) < 0) rb_sys_fail(0);
6434#elif defined(HAVE_SETRUID) && defined(HAVE_SETEUID)
6435 if (SAVED_USER_ID == uid) {
6436 if (geteuid() != uid && seteuid(uid) < 0) rb_sys_fail(0);
6437 if (getuid() != uid && setruid(uid) < 0) rb_sys_fail(0);
6439 else if ( geteuid() == uid) {
6440 if (getuid() != uid) {
6441 if (setruid(uid) < 0) rb_sys_fail(0);
6442 SAVED_USER_ID = uid;
6445 if (setruid(SAVED_USER_ID) < 0) rb_sys_fail(0);
6446 SAVED_USER_ID = uid;
6447 if (setruid(uid) < 0) rb_sys_fail(0);
6450 else if ( getuid() == uid) {
6451 if (seteuid(uid) < 0) rb_sys_fail(0);
6452 if (setruid(SAVED_USER_ID) < 0) rb_sys_fail(0);
6453 SAVED_USER_ID = uid;
6454 if (setruid(uid) < 0) rb_sys_fail(0);
6459#elif defined HAVE_44BSD_SETUID
6460 if (getuid() == uid) {
6462 if (setuid(uid) < 0) rb_sys_fail(0);
6463 SAVED_USER_ID = uid;
6468#elif defined HAVE_SETEUID
6469 if (getuid() == uid && SAVED_USER_ID == uid) {
6470 if (seteuid(uid) < 0) rb_sys_fail(0);
6475#elif defined HAVE_SETUID
6476 if (getuid() == uid && SAVED_USER_ID == uid) {
6477 if (setuid(uid) < 0) rb_sys_fail(0);
6491#if defined HAVE_SETGID
6505 if (setgid(OBJ2GID(
id)) != 0) rb_sys_fail(0);
6509#define p_sys_setgid rb_f_notimplement
6513#if defined HAVE_SETRGID
6527 if (setrgid(OBJ2GID(
id)) != 0) rb_sys_fail(0);
6531#define p_sys_setrgid rb_f_notimplement
6535#if defined HAVE_SETEGID
6549 if (setegid(OBJ2GID(
id)) != 0) rb_sys_fail(0);
6553#define p_sys_setegid rb_f_notimplement
6557#if defined HAVE_SETREGID
6572 rb_gid_t rgid, egid;
6574 rgid = OBJ2GID(rid);
6575 egid = OBJ2GID(eid);
6576 if (setregid(rgid, egid) != 0) rb_sys_fail(0);
6580#define p_sys_setregid rb_f_notimplement
6583#if defined HAVE_SETRESGID
6598 rb_gid_t rgid, egid, sgid;
6600 rgid = OBJ2GID(rid);
6601 egid = OBJ2GID(eid);
6602 sgid = OBJ2GID(sid);
6603 if (setresgid(rgid, egid, sgid) != 0) rb_sys_fail(0);
6607#define p_sys_setresgid rb_f_notimplement
6611#if defined HAVE_ISSETUGID
6625p_sys_issetugid(
VALUE obj)
6627 return RBOOL(issetugid());
6630#define p_sys_issetugid rb_f_notimplement
6647proc_getgid(
VALUE obj)
6649 rb_gid_t gid = getgid();
6654#if defined(HAVE_SETRESGID) || defined(HAVE_SETREGID) || defined(HAVE_SETRGID) || defined(HAVE_SETGID)
6673#if defined(HAVE_SETRESGID)
6674 if (setresgid(gid, -1, -1) < 0) rb_sys_fail(0);
6675#elif defined HAVE_SETREGID
6676 if (setregid(gid, -1) < 0) rb_sys_fail(0);
6677#elif defined HAVE_SETRGID
6678 if (setrgid(gid) < 0) rb_sys_fail(0);
6679#elif defined HAVE_SETGID
6681 if (getegid() == gid) {
6682 if (setgid(gid) < 0) rb_sys_fail(0);
6692#define proc_setgid rb_f_notimplement
6696#if defined(_SC_NGROUPS_MAX) || defined(NGROUPS_MAX)
6716static int _maxgroups = -1;
6718get_sc_ngroups_max(
void)
6720#ifdef _SC_NGROUPS_MAX
6721 return (
int)sysconf(_SC_NGROUPS_MAX);
6722#elif defined(NGROUPS_MAX)
6723 return (
int)NGROUPS_MAX;
6731 if (_maxgroups < 0) {
6732 _maxgroups = get_sc_ngroups_max();
6734 _maxgroups = RB_MAX_GROUPS;
6743#ifdef HAVE_GETGROUPS
6767proc_getgroups(
VALUE obj)
6773 ngroups = getgroups(0, NULL);
6777 groups =
ALLOCV_N(rb_gid_t, tmp, ngroups);
6779 ngroups = getgroups(ngroups, groups);
6784 for (i = 0; i < ngroups; i++)
6792#define proc_getgroups rb_f_notimplement
6796#ifdef HAVE_SETGROUPS
6821 if (ngroups > maxgroups())
6822 rb_raise(rb_eArgError,
"too many groups, %d max", maxgroups());
6824 groups =
ALLOCV_N(rb_gid_t, tmp, ngroups);
6826 for (i = 0; i < ngroups; i++) {
6829 groups[i] = OBJ2GID1(g);
6833 if (setgroups(ngroups, groups) == -1)
6838 return proc_getgroups(obj);
6841#define proc_setgroups rb_f_notimplement
6845#ifdef HAVE_INITGROUPS
6871 return proc_getgroups(obj);
6874#define proc_initgroups rb_f_notimplement
6877#if defined(_SC_NGROUPS_MAX) || defined(NGROUPS_MAX)
6890proc_getmaxgroups(
VALUE obj)
6895#define proc_getmaxgroups rb_f_notimplement
6898#ifdef HAVE_SETGROUPS
6911 int ngroups_max = get_sc_ngroups_max();
6914 rb_raise(rb_eArgError,
"maxgroups %d should be positive", ngroups);
6916 if (ngroups > RB_MAX_GROUPS)
6917 ngroups = RB_MAX_GROUPS;
6919 if (ngroups_max > 0 && ngroups > ngroups_max)
6920 ngroups = ngroups_max;
6922 _maxgroups = ngroups;
6927#define proc_setmaxgroups rb_f_notimplement
6930#if defined(HAVE_DAEMON) || (defined(HAVE_WORKING_FORK) && defined(HAVE_SETSID))
6931static int rb_daemon(
int nochdir,
int noclose);
6956 int n, nochdir = FALSE, noclose = FALSE;
6959 case 2: noclose = TO_BOOL(argv[1],
"noclose");
6960 case 1: nochdir = TO_BOOL(argv[0],
"nochdir");
6964 n = rb_daemon(nochdir, noclose);
6965 if (n < 0) rb_sys_fail(
"daemon");
6969extern const char ruby_null_device[];
6972rb_daemon(
int nochdir,
int noclose)
6977 err = daemon(nochdir, noclose);
6982 switch (rb_fork_ruby(NULL)) {
6985 default: _exit(EXIT_SUCCESS);
6989 if (setsid() < 0) (void)0;
6994 if (!noclose && (n =
rb_cloexec_open(ruby_null_device, O_RDWR, 0)) != -1) {
7006#define proc_daemon rb_f_notimplement
7019static rb_gid_t SAVED_GROUP_ID = -1;
7021#ifdef BROKEN_SETREGID
7023setregid(rb_gid_t rgid, rb_gid_t egid)
7025 if (rgid != (rb_gid_t)-1 && rgid != getgid()) {
7026 if (egid == (rb_gid_t)-1) egid = getegid();
7027 if (setgid(rgid) < 0)
return -1;
7029 if (egid != (rb_gid_t)-1 && egid != getegid()) {
7030 if (setegid(egid) < 0)
return -1;
7058 if (geteuid() == 0) {
7059#if defined(HAVE_SETRESGID)
7060 if (setresgid(gid, gid, gid) < 0) rb_sys_fail(0);
7061 SAVED_GROUP_ID = gid;
7062#elif defined HAVE_SETGID
7063 if (setgid(gid) < 0) rb_sys_fail(0);
7064 SAVED_GROUP_ID = gid;
7065#elif defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID)
7066 if (getgid() == gid) {
7067 if (SAVED_GROUP_ID == gid) {
7068 if (setregid(-1, gid) < 0) rb_sys_fail(0);
7072 if (setregid(-1, SAVED_GROUP_ID) < 0) rb_sys_fail(0);
7073 if (setregid(SAVED_GROUP_ID, 0) < 0) rb_sys_fail(0);
7075 if (setregid(gid, gid) < 0) rb_sys_fail(0);
7076 SAVED_GROUP_ID = gid;
7079 if (setregid(0, 0) < 0) rb_sys_fail(0);
7081 if (setregid(gid, gid) < 0) rb_sys_fail(0);
7082 SAVED_GROUP_ID = gid;
7087 if (setregid(gid, gid) < 0) rb_sys_fail(0);
7088 SAVED_GROUP_ID = gid;
7090#elif defined(HAVE_SETRGID) && defined (HAVE_SETEGID)
7091 if (getgid() == gid) {
7092 if (SAVED_GROUP_ID == gid) {
7093 if (setegid(gid) < 0) rb_sys_fail(0);
7097 if (setegid(gid) < 0) rb_sys_fail(0);
7098 if (setrgid(SAVED_GROUP_ID) < 0) rb_sys_fail(0);
7100 if (setrgid(0) < 0) rb_sys_fail(0);
7103 if (setrgid(0) < 0) rb_sys_fail(0);
7105 if (setegid(gid) < 0) rb_sys_fail(0);
7106 if (setrgid(gid) < 0) rb_sys_fail(0);
7107 SAVED_GROUP_ID = gid;
7112 if (setegid(gid) < 0) rb_sys_fail(0);
7113 if (setrgid(gid) < 0) rb_sys_fail(0);
7114 SAVED_GROUP_ID = gid;
7121#if defined(HAVE_SETRESGID)
7122 if (setresgid((getgid() == gid)? (rb_gid_t)-1: gid,
7123 (getegid() == gid)? (rb_gid_t)-1: gid,
7124 (SAVED_GROUP_ID == gid)? (rb_gid_t)-1: gid) < 0) rb_sys_fail(0);
7125 SAVED_GROUP_ID = gid;
7126#elif defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID)
7127 if (SAVED_GROUP_ID == gid) {
7128 if (setregid((getgid() == gid)? (rb_uid_t)-1: gid,
7129 (getegid() == gid)? (rb_uid_t)-1: gid) < 0)
7132 else if (getgid() != gid) {
7133 if (setregid(gid, (getegid() == gid)? (rb_uid_t)-1: gid) < 0)
7135 SAVED_GROUP_ID = gid;
7137 else if ( getegid() != gid) {
7138 if (setregid(getegid(), gid) < 0) rb_sys_fail(0);
7139 SAVED_GROUP_ID = gid;
7140 if (setregid(gid, -1) < 0) rb_sys_fail(0);
7143 if (setregid(-1, SAVED_GROUP_ID) < 0) rb_sys_fail(0);
7144 if (setregid(SAVED_GROUP_ID, gid) < 0) rb_sys_fail(0);
7145 SAVED_GROUP_ID = gid;
7146 if (setregid(gid, -1) < 0) rb_sys_fail(0);
7148#elif defined(HAVE_SETRGID) && defined(HAVE_SETEGID)
7149 if (SAVED_GROUP_ID == gid) {
7150 if (getegid() != gid && setegid(gid) < 0) rb_sys_fail(0);
7151 if (getgid() != gid && setrgid(gid) < 0) rb_sys_fail(0);
7153 else if ( getegid() == gid) {
7154 if (getgid() != gid) {
7155 if (setrgid(gid) < 0) rb_sys_fail(0);
7156 SAVED_GROUP_ID = gid;
7159 if (setrgid(SAVED_GROUP_ID) < 0) rb_sys_fail(0);
7160 SAVED_GROUP_ID = gid;
7161 if (setrgid(gid) < 0) rb_sys_fail(0);
7164 else if ( getgid() == gid) {
7165 if (setegid(gid) < 0) rb_sys_fail(0);
7166 if (setrgid(SAVED_GROUP_ID) < 0) rb_sys_fail(0);
7167 SAVED_GROUP_ID = gid;
7168 if (setrgid(gid) < 0) rb_sys_fail(0);
7173#elif defined HAVE_44BSD_SETGID
7174 if (getgid() == gid) {
7176 if (setgid(gid) < 0) rb_sys_fail(0);
7177 SAVED_GROUP_ID = gid;
7182#elif defined HAVE_SETEGID
7183 if (getgid() == gid && SAVED_GROUP_ID == gid) {
7184 if (setegid(gid) < 0) rb_sys_fail(0);
7189#elif defined HAVE_SETGID
7190 if (getgid() == gid && SAVED_GROUP_ID == gid) {
7191 if (setgid(gid) < 0) rb_sys_fail(0);
7218proc_geteuid(
VALUE obj)
7220 rb_uid_t euid = geteuid();
7224#if defined(HAVE_SETRESUID) || defined(HAVE_SETREUID) || defined(HAVE_SETEUID) || defined(HAVE_SETUID) || defined(_POSIX_SAVED_IDS)
7226proc_seteuid(rb_uid_t uid)
7228#if defined(HAVE_SETRESUID)
7229 if (setresuid(-1, uid, -1) < 0) rb_sys_fail(0);
7230#elif defined HAVE_SETREUID
7231 if (setreuid(-1, uid) < 0) rb_sys_fail(0);
7232#elif defined HAVE_SETEUID
7233 if (seteuid(uid) < 0) rb_sys_fail(0);
7234#elif defined HAVE_SETUID
7235 if (uid == getuid()) {
7236 if (setuid(uid) < 0) rb_sys_fail(0);
7247#if defined(HAVE_SETRESUID) || defined(HAVE_SETREUID) || defined(HAVE_SETEUID) || defined(HAVE_SETUID)
7261 proc_seteuid(OBJ2UID(euid));
7265#define proc_seteuid_m rb_f_notimplement
7269rb_seteuid_core(rb_uid_t euid)
7271#if defined(HAVE_SETRESUID) || (defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID))
7277#if defined(HAVE_SETRESUID) || (defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID))
7281#if defined(HAVE_SETRESUID)
7283 if (setresuid(-1,euid,euid) < 0) rb_sys_fail(0);
7284 SAVED_USER_ID = euid;
7287 if (setresuid(-1,euid,-1) < 0) rb_sys_fail(0);
7289#elif defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID)
7290 if (setreuid(-1, euid) < 0) rb_sys_fail(0);
7292 if (setreuid(euid,uid) < 0) rb_sys_fail(0);
7293 if (setreuid(uid,euid) < 0) rb_sys_fail(0);
7294 SAVED_USER_ID = euid;
7296#elif defined HAVE_SETEUID
7297 if (seteuid(euid) < 0) rb_sys_fail(0);
7298#elif defined HAVE_SETUID
7299 if (geteuid() == 0) rb_sys_fail(0);
7300 if (setuid(euid) < 0) rb_sys_fail(0);
7325 rb_seteuid_core(OBJ2UID(
id));
7344proc_getegid(
VALUE obj)
7346 rb_gid_t egid = getegid();
7351#if defined(HAVE_SETRESGID) || defined(HAVE_SETREGID) || defined(HAVE_SETEGID) || defined(HAVE_SETGID) || defined(_POSIX_SAVED_IDS)
7364#if defined(HAVE_SETRESGID) || defined(HAVE_SETREGID) || defined(HAVE_SETEGID) || defined(HAVE_SETGID)
7370#if defined(HAVE_SETRESGID) || defined(HAVE_SETREGID) || defined(HAVE_SETEGID) || defined(HAVE_SETGID)
7371 gid = OBJ2GID(egid);
7374#if defined(HAVE_SETRESGID)
7375 if (setresgid(-1, gid, -1) < 0) rb_sys_fail(0);
7376#elif defined HAVE_SETREGID
7377 if (setregid(-1, gid) < 0) rb_sys_fail(0);
7378#elif defined HAVE_SETEGID
7379 if (setegid(gid) < 0) rb_sys_fail(0);
7380#elif defined HAVE_SETGID
7381 if (gid == getgid()) {
7382 if (setgid(gid) < 0) rb_sys_fail(0);
7394#if defined(HAVE_SETRESGID) || defined(HAVE_SETREGID) || defined(HAVE_SETEGID) || defined(HAVE_SETGID)
7395#define proc_setegid_m proc_setegid
7397#define proc_setegid_m rb_f_notimplement
7401rb_setegid_core(rb_gid_t egid)
7403#if defined(HAVE_SETRESGID) || (defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID))
7409#if defined(HAVE_SETRESGID) || (defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID))
7413#if defined(HAVE_SETRESGID)
7415 if (setresgid(-1,egid,egid) < 0) rb_sys_fail(0);
7416 SAVED_GROUP_ID = egid;
7419 if (setresgid(-1,egid,-1) < 0) rb_sys_fail(0);
7421#elif defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID)
7422 if (setregid(-1, egid) < 0) rb_sys_fail(0);
7424 if (setregid(egid,gid) < 0) rb_sys_fail(0);
7425 if (setregid(gid,egid) < 0) rb_sys_fail(0);
7426 SAVED_GROUP_ID = egid;
7428#elif defined HAVE_SETEGID
7429 if (setegid(egid) < 0) rb_sys_fail(0);
7430#elif defined HAVE_SETGID
7431 if (geteuid() == 0 ) rb_sys_fail(0);
7432 if (setgid(egid) < 0) rb_sys_fail(0);
7457 rb_setegid_core(OBJ2GID(
id));
7472p_uid_exchangeable(
VALUE _)
7474#if defined(HAVE_SETRESUID)
7476#elif defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID)
7497p_uid_exchange(
VALUE obj)
7500#if defined(HAVE_SETRESUID) || (defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID))
7507#if defined(HAVE_SETRESUID) || (defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID))
7511#if defined(HAVE_SETRESUID)
7512 if (setresuid(euid, uid, uid) < 0) rb_sys_fail(0);
7513 SAVED_USER_ID = uid;
7514#elif defined(HAVE_SETREUID) && !defined(OBSOLETE_SETREUID)
7515 if (setreuid(euid,uid) < 0) rb_sys_fail(0);
7516 SAVED_USER_ID = uid;
7534p_gid_exchangeable(
VALUE _)
7536#if defined(HAVE_SETRESGID)
7538#elif defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID)
7559p_gid_exchange(
VALUE obj)
7562#if defined(HAVE_SETRESGID) || (defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID))
7569#if defined(HAVE_SETRESGID) || (defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID))
7573#if defined(HAVE_SETRESGID)
7574 if (setresgid(egid, gid, gid) < 0) rb_sys_fail(0);
7575 SAVED_GROUP_ID = gid;
7576#elif defined(HAVE_SETREGID) && !defined(OBSOLETE_SETREGID)
7577 if (setregid(egid,gid) < 0) rb_sys_fail(0);
7578 SAVED_GROUP_ID = gid;
7597p_uid_have_saved_id(
VALUE _)
7599#if defined(HAVE_SETRESUID) || defined(HAVE_SETEUID) || defined(_POSIX_SAVED_IDS)
7607#if defined(HAVE_SETRESUID) || defined(HAVE_SETEUID) || defined(_POSIX_SAVED_IDS)
7609p_uid_sw_ensure(
VALUE i)
7611 rb_uid_t
id = (rb_uid_t)i;
7612 under_uid_switch = 0;
7613 id = rb_seteuid_core(
id);
7632p_uid_switch(
VALUE obj)
7644 under_uid_switch = 1;
7651 else if (euid != SAVED_USER_ID) {
7652 proc_seteuid(SAVED_USER_ID);
7654 under_uid_switch = 1;
7669p_uid_sw_ensure(
VALUE obj)
7671 under_uid_switch = 0;
7672 return p_uid_exchange(obj);
7676p_uid_switch(
VALUE obj)
7688 p_uid_exchange(obj);
7690 under_uid_switch = 1;
7712p_gid_have_saved_id(
VALUE _)
7714#if defined(HAVE_SETRESGID) || defined(HAVE_SETEGID) || defined(_POSIX_SAVED_IDS)
7721#if defined(HAVE_SETRESGID) || defined(HAVE_SETEGID) || defined(_POSIX_SAVED_IDS)
7723p_gid_sw_ensure(
VALUE i)
7725 rb_gid_t
id = (rb_gid_t)i;
7726 under_gid_switch = 0;
7727 id = rb_setegid_core(
id);
7746p_gid_switch(
VALUE obj)
7758 under_gid_switch = 1;
7765 else if (egid != SAVED_GROUP_ID) {
7766 proc_setegid(obj,
GIDT2NUM(SAVED_GROUP_ID));
7768 under_gid_switch = 1;
7783p_gid_sw_ensure(
VALUE obj)
7785 under_gid_switch = 0;
7786 return p_gid_exchange(obj);
7790p_gid_switch(
VALUE obj)
7802 p_gid_exchange(obj);
7804 under_gid_switch = 1;
7814#if defined(HAVE_TIMES)
7818#ifdef HAVE__SC_CLK_TCK
7819 return sysconf(_SC_CLK_TCK);
7820#elif defined CLK_TCK
7843rb_proc_times(
VALUE obj)
7845 VALUE utime, stime, cutime, cstime, ret;
7846#if defined(RUSAGE_SELF) && defined(RUSAGE_CHILDREN)
7847 struct rusage usage_s, usage_c;
7849 if (getrusage(RUSAGE_SELF, &usage_s) != 0 || getrusage(RUSAGE_CHILDREN, &usage_c) != 0)
7850 rb_sys_fail(
"getrusage");
7851 utime =
DBL2NUM((
double)usage_s.ru_utime.tv_sec + (
double)usage_s.ru_utime.tv_usec/1e6);
7852 stime =
DBL2NUM((
double)usage_s.ru_stime.tv_sec + (
double)usage_s.ru_stime.tv_usec/1e6);
7853 cutime =
DBL2NUM((
double)usage_c.ru_utime.tv_sec + (
double)usage_c.ru_utime.tv_usec/1e6);
7854 cstime =
DBL2NUM((
double)usage_c.ru_stime.tv_sec + (
double)usage_c.ru_stime.tv_usec/1e6);
7856 const double hertz = (double)get_clk_tck();
7860 utime =
DBL2NUM(buf.tms_utime / hertz);
7861 stime =
DBL2NUM(buf.tms_stime / hertz);
7862 cutime =
DBL2NUM(buf.tms_cutime / hertz);
7863 cstime =
DBL2NUM(buf.tms_cstime / hertz);
7865 ret =
rb_struct_new(rb_cProcessTms, utime, stime, cutime, cstime);
7873#define rb_proc_times rb_f_notimplement
7876#ifdef HAVE_LONG_LONG
7878#define TIMETICK_INT_MIN LLONG_MIN
7879#define TIMETICK_INT_MAX LLONG_MAX
7880#define TIMETICK_INT2NUM(v) LL2NUM(v)
7881#define MUL_OVERFLOW_TIMETICK_P(a, b) MUL_OVERFLOW_LONG_LONG_P(a, b)
7883typedef long timetick_int_t;
7884#define TIMETICK_INT_MIN LONG_MIN
7885#define TIMETICK_INT_MAX LONG_MAX
7886#define TIMETICK_INT2NUM(v) LONG2NUM(v)
7887#define MUL_OVERFLOW_TIMETICK_P(a, b) MUL_OVERFLOW_LONG_P(a, b)
7890CONSTFUNC(
static timetick_int_t gcd_timetick_int(timetick_int_t, timetick_int_t));
7891static timetick_int_t
7892gcd_timetick_int(timetick_int_t a, timetick_int_t b)
7912reduce_fraction(timetick_int_t *np, timetick_int_t *dp)
7914 timetick_int_t gcd = gcd_timetick_int(*np, *dp);
7922reduce_factors(timetick_int_t *numerators,
int num_numerators,
7923 timetick_int_t *denominators,
int num_denominators)
7926 for (i = 0; i < num_numerators; i++) {
7927 if (numerators[i] == 1)
7929 for (j = 0; j < num_denominators; j++) {
7930 if (denominators[j] == 1)
7932 reduce_fraction(&numerators[i], &denominators[j]);
7938 timetick_int_t giga_count;
7943timetick2dblnum(
struct timetick *ttp,
7944 timetick_int_t *numerators,
int num_numerators,
7945 timetick_int_t *denominators,
int num_denominators)
7950 reduce_factors(numerators, num_numerators,
7951 denominators, num_denominators);
7953 d = ttp->giga_count * 1e9 + ttp->count;
7955 for (i = 0; i < num_numerators; i++)
7957 for (i = 0; i < num_denominators; i++)
7958 d /= denominators[i];
7964timetick2dblnum_reciprocal(
struct timetick *ttp,
7965 timetick_int_t *numerators,
int num_numerators,
7966 timetick_int_t *denominators,
int num_denominators)
7971 reduce_factors(numerators, num_numerators,
7972 denominators, num_denominators);
7975 for (i = 0; i < num_denominators; i++)
7976 d *= denominators[i];
7977 for (i = 0; i < num_numerators; i++)
7979 d /= ttp->giga_count * 1e9 + ttp->count;
7984#define NDIV(x,y) (-(-((x)+1)/(y))-1)
7985#define DIV(n,d) ((n)<0 ? NDIV((n),(d)) : (n)/(d))
7988timetick2integer(
struct timetick *ttp,
7989 timetick_int_t *numerators,
int num_numerators,
7990 timetick_int_t *denominators,
int num_denominators)
7995 reduce_factors(numerators, num_numerators,
7996 denominators, num_denominators);
7998 if (!MUL_OVERFLOW_SIGNED_INTEGER_P(1000000000, ttp->giga_count,
7999 TIMETICK_INT_MIN, TIMETICK_INT_MAX-ttp->count)) {
8000 timetick_int_t t = ttp->giga_count * 1000000000 + ttp->count;
8001 for (i = 0; i < num_numerators; i++) {
8002 timetick_int_t factor = numerators[i];
8003 if (MUL_OVERFLOW_TIMETICK_P(factor, t))
8007 for (i = 0; i < num_denominators; i++) {
8008 t = DIV(t, denominators[i]);
8010 return TIMETICK_INT2NUM(t);
8014 v = TIMETICK_INT2NUM(ttp->giga_count);
8017 for (i = 0; i < num_numerators; i++) {
8018 timetick_int_t factor = numerators[i];
8021 v =
rb_funcall(v,
'*', 1, TIMETICK_INT2NUM(factor));
8023 for (i = 0; i < num_denominators; i++) {
8024 v =
rb_funcall(v,
'/', 1, TIMETICK_INT2NUM(denominators[i]));
8030make_clock_result(
struct timetick *ttp,
8031 timetick_int_t *numerators,
int num_numerators,
8032 timetick_int_t *denominators,
int num_denominators,
8035 if (unit ==
ID2SYM(id_nanosecond)) {
8036 numerators[num_numerators++] = 1000000000;
8037 return timetick2integer(ttp, numerators, num_numerators, denominators, num_denominators);
8039 else if (unit ==
ID2SYM(id_microsecond)) {
8040 numerators[num_numerators++] = 1000000;
8041 return timetick2integer(ttp, numerators, num_numerators, denominators, num_denominators);
8043 else if (unit ==
ID2SYM(id_millisecond)) {
8044 numerators[num_numerators++] = 1000;
8045 return timetick2integer(ttp, numerators, num_numerators, denominators, num_denominators);
8047 else if (unit ==
ID2SYM(id_second)) {
8048 return timetick2integer(ttp, numerators, num_numerators, denominators, num_denominators);
8050 else if (unit ==
ID2SYM(id_float_microsecond)) {
8051 numerators[num_numerators++] = 1000000;
8052 return timetick2dblnum(ttp, numerators, num_numerators, denominators, num_denominators);
8054 else if (unit ==
ID2SYM(id_float_millisecond)) {
8055 numerators[num_numerators++] = 1000;
8056 return timetick2dblnum(ttp, numerators, num_numerators, denominators, num_denominators);
8058 else if (
NIL_P(unit) || unit ==
ID2SYM(id_float_second)) {
8059 return timetick2dblnum(ttp, numerators, num_numerators, denominators, num_denominators);
8062 rb_raise(rb_eArgError,
"unexpected unit: %"PRIsVALUE, unit);
8066static const mach_timebase_info_data_t *
8067get_mach_timebase_info(
void)
8069 static mach_timebase_info_data_t sTimebaseInfo;
8071 if ( sTimebaseInfo.denom == 0 ) {
8072 (void) mach_timebase_info(&sTimebaseInfo);
8075 return &sTimebaseInfo;
8079ruby_real_ms_time(
void)
8081 const mach_timebase_info_data_t *info = get_mach_timebase_info();
8082 uint64_t t = mach_absolute_time();
8083 return (
double)t * info->numer / info->denom / 1e6;
8087#if defined(NUM2CLOCKID)
8088# define NUMERIC_CLOCKID 1
8090# define NUMERIC_CLOCKID 0
8091# define NUM2CLOCKID(x) 0
8094#define clock_failed(name, err, arg) do { \
8095 int clock_error = (err); \
8096 rb_syserr_fail_str(clock_error, rb_sprintf("clock_" name "(%+"PRIsVALUE")", (arg))); \
8269 timetick_int_t numerators[2];
8270 timetick_int_t denominators[2];
8271 int num_numerators = 0;
8272 int num_denominators = 0;
8275 VALUE clk_id = argv[0];
8276#ifdef HAVE_CLOCK_GETTIME
8281#ifdef CLOCK_REALTIME
8282 if (clk_id == RUBY_CLOCK_REALTIME) {
8288#ifdef CLOCK_MONOTONIC
8289 if (clk_id == RUBY_CLOCK_MONOTONIC) {
8290 c = CLOCK_MONOTONIC;
8295#ifdef CLOCK_PROCESS_CPUTIME_ID
8296 if (clk_id == RUBY_CLOCK_PROCESS_CPUTIME_ID) {
8297 c = CLOCK_PROCESS_CPUTIME_ID;
8302#ifdef CLOCK_THREAD_CPUTIME_ID
8303 if (clk_id == RUBY_CLOCK_THREAD_CPUTIME_ID) {
8304 c = CLOCK_THREAD_CPUTIME_ID;
8312#ifdef HAVE_GETTIMEOFDAY
8317#define RUBY_GETTIMEOFDAY_BASED_CLOCK_REALTIME ID2SYM(id_GETTIMEOFDAY_BASED_CLOCK_REALTIME)
8318 if (clk_id == RUBY_GETTIMEOFDAY_BASED_CLOCK_REALTIME) {
8320 ret = gettimeofday(&tv, 0);
8322 rb_sys_fail(
"gettimeofday");
8323 tt.giga_count = tv.tv_sec;
8324 tt.count = (int32_t)tv.tv_usec * 1000;
8325 denominators[num_denominators++] = 1000000000;
8330#define RUBY_TIME_BASED_CLOCK_REALTIME ID2SYM(id_TIME_BASED_CLOCK_REALTIME)
8331 if (clk_id == RUBY_TIME_BASED_CLOCK_REALTIME) {
8334 if (t == (time_t)-1)
8335 rb_sys_fail(
"time");
8338 denominators[num_denominators++] = 1000000000;
8343#define RUBY_TIMES_BASED_CLOCK_MONOTONIC \
8344 ID2SYM(id_TIMES_BASED_CLOCK_MONOTONIC)
8345 if (clk_id == RUBY_TIMES_BASED_CLOCK_MONOTONIC) {
8348 unsigned_clock_t uc;
8350 if (c == (clock_t)-1)
8351 rb_sys_fail(
"times");
8352 uc = (unsigned_clock_t)c;
8353 tt.count = (int32_t)(uc % 1000000000);
8354 tt.giga_count = (uc / 1000000000);
8355 denominators[num_denominators++] = get_clk_tck();
8361#define RUBY_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID \
8362 ID2SYM(id_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID)
8363 if (clk_id == RUBY_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID) {
8364 struct rusage usage;
8366 ret = getrusage(RUSAGE_SELF, &usage);
8368 rb_sys_fail(
"getrusage");
8369 tt.giga_count = usage.ru_utime.tv_sec + usage.ru_stime.tv_sec;
8370 usec = (int32_t)(usage.ru_utime.tv_usec + usage.ru_stime.tv_usec);
8371 if (1000000 <= usec) {
8375 tt.count = usec * 1000;
8376 denominators[num_denominators++] = 1000000000;
8382#define RUBY_TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID \
8383 ID2SYM(id_TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID)
8384 if (clk_id == RUBY_TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID) {
8386 unsigned_clock_t utime, stime;
8387 if (times(&buf) == (clock_t)-1)
8388 rb_sys_fail(
"times");
8389 utime = (unsigned_clock_t)buf.tms_utime;
8390 stime = (unsigned_clock_t)buf.tms_stime;
8391 tt.count = (int32_t)((utime % 1000000000) + (stime % 1000000000));
8392 tt.giga_count = (utime / 1000000000) + (stime / 1000000000);
8393 if (1000000000 <= tt.count) {
8394 tt.count -= 1000000000;
8397 denominators[num_denominators++] = get_clk_tck();
8402#define RUBY_CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID \
8403 ID2SYM(id_CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID)
8404 if (clk_id == RUBY_CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID) {
8406 unsigned_clock_t uc;
8409 if (c == (clock_t)-1)
8410 rb_sys_fail(
"clock");
8411 uc = (unsigned_clock_t)c;
8412 tt.count = (int32_t)(uc % 1000000000);
8413 tt.giga_count = uc / 1000000000;
8414 denominators[num_denominators++] = CLOCKS_PER_SEC;
8419 if (clk_id == RUBY_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC) {
8420 const mach_timebase_info_data_t *info = get_mach_timebase_info();
8421 uint64_t t = mach_absolute_time();
8422 tt.count = (int32_t)(t % 1000000000);
8423 tt.giga_count = t / 1000000000;
8424 numerators[num_numerators++] = info->numer;
8425 denominators[num_denominators++] = info->denom;
8426 denominators[num_denominators++] = 1000000000;
8431 else if (NUMERIC_CLOCKID) {
8432#if defined(HAVE_CLOCK_GETTIME)
8434 c = NUM2CLOCKID(clk_id);
8436 ret = clock_gettime(c, &ts);
8438 clock_failed(
"gettime",
errno, clk_id);
8439 tt.count = (int32_t)ts.tv_nsec;
8440 tt.giga_count = ts.tv_sec;
8441 denominators[num_denominators++] = 1000000000;
8448 clock_failed(
"gettime", EINVAL, clk_id);
8451 return make_clock_result(&tt, numerators, num_numerators, denominators, num_denominators, unit);
8496 timetick_int_t numerators[2];
8497 timetick_int_t denominators[2];
8498 int num_numerators = 0;
8499 int num_denominators = 0;
8500#ifdef HAVE_CLOCK_GETRES
8505 VALUE clk_id = argv[0];
8508#ifdef CLOCK_REALTIME
8509 if (clk_id == RUBY_CLOCK_REALTIME) {
8515#ifdef CLOCK_MONOTONIC
8516 if (clk_id == RUBY_CLOCK_MONOTONIC) {
8517 c = CLOCK_MONOTONIC;
8522#ifdef CLOCK_PROCESS_CPUTIME_ID
8523 if (clk_id == RUBY_CLOCK_PROCESS_CPUTIME_ID) {
8524 c = CLOCK_PROCESS_CPUTIME_ID;
8529#ifdef CLOCK_THREAD_CPUTIME_ID
8530 if (clk_id == RUBY_CLOCK_THREAD_CPUTIME_ID) {
8531 c = CLOCK_THREAD_CPUTIME_ID;
8536#ifdef RUBY_GETTIMEOFDAY_BASED_CLOCK_REALTIME
8537 if (clk_id == RUBY_GETTIMEOFDAY_BASED_CLOCK_REALTIME) {
8540 denominators[num_denominators++] = 1000000000;
8545#ifdef RUBY_TIME_BASED_CLOCK_REALTIME
8546 if (clk_id == RUBY_TIME_BASED_CLOCK_REALTIME) {
8549 denominators[num_denominators++] = 1000000000;
8554#ifdef RUBY_TIMES_BASED_CLOCK_MONOTONIC
8555 if (clk_id == RUBY_TIMES_BASED_CLOCK_MONOTONIC) {
8558 denominators[num_denominators++] = get_clk_tck();
8563#ifdef RUBY_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID
8564 if (clk_id == RUBY_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID) {
8567 denominators[num_denominators++] = 1000000000;
8572#ifdef RUBY_TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID
8573 if (clk_id == RUBY_TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID) {
8576 denominators[num_denominators++] = get_clk_tck();
8581#ifdef RUBY_CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID
8582 if (clk_id == RUBY_CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID) {
8585 denominators[num_denominators++] = CLOCKS_PER_SEC;
8590#ifdef RUBY_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC
8591 if (clk_id == RUBY_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC) {
8592 const mach_timebase_info_data_t *info = get_mach_timebase_info();
8595 numerators[num_numerators++] = info->numer;
8596 denominators[num_denominators++] = info->denom;
8597 denominators[num_denominators++] = 1000000000;
8602 else if (NUMERIC_CLOCKID) {
8603#if defined(HAVE_CLOCK_GETRES)
8605 c = NUM2CLOCKID(clk_id);
8607 ret = clock_getres(c, &ts);
8609 clock_failed(
"getres",
errno, clk_id);
8610 tt.count = (int32_t)ts.tv_nsec;
8611 tt.giga_count = ts.tv_sec;
8612 denominators[num_denominators++] = 1000000000;
8619 clock_failed(
"getres", EINVAL, clk_id);
8622 if (unit ==
ID2SYM(id_hertz)) {
8623 return timetick2dblnum_reciprocal(&tt, numerators, num_numerators, denominators, num_denominators);
8626 return make_clock_result(&tt, numerators, num_numerators, denominators, num_denominators, unit);
8631get_CHILD_STATUS(
ID _x,
VALUE *_y)
8637get_PROCESS_ID(
ID _x,
VALUE *_y)
8729static VALUE rb_mProcUID;
8730static VALUE rb_mProcGID;
8731static VALUE rb_mProcID_Syscall;
8763 rb_gc_prepare_heap();
9191 rb_gvar_ractor_local(
"$$");
9192 rb_gvar_ractor_local(
"$?");
9247 process_status_dump, process_status_load);
9283#ifdef HAVE_GETPRIORITY
9294#if defined(RLIM2NUM) && defined(RLIM_INFINITY)
9296 VALUE inf = RLIM2NUM(RLIM_INFINITY);
9297#ifdef RLIM_SAVED_MAX
9299 VALUE v = RLIM_INFINITY == RLIM_SAVED_MAX ? inf : RLIM2NUM(RLIM_SAVED_MAX);
9301 rb_define_const(
rb_mProcess,
"RLIM_SAVED_MAX", v);
9305 rb_define_const(
rb_mProcess,
"RLIM_INFINITY", inf);
9306#ifdef RLIM_SAVED_CUR
9308 VALUE v = RLIM_INFINITY == RLIM_SAVED_CUR ? inf : RLIM2NUM(RLIM_SAVED_CUR);
9310 rb_define_const(
rb_mProcess,
"RLIM_SAVED_CUR", v);
9349#ifdef RLIMIT_MEMLOCK
9356#ifdef RLIMIT_MSGQUEUE
9422#ifdef RLIMIT_SIGPENDING
9457#if defined(RUBY_CLOCK_REALTIME)
9458#elif defined(RUBY_GETTIMEOFDAY_BASED_CLOCK_REALTIME)
9459# define RUBY_CLOCK_REALTIME RUBY_GETTIMEOFDAY_BASED_CLOCK_REALTIME
9460#elif defined(RUBY_TIME_BASED_CLOCK_REALTIME)
9461# define RUBY_CLOCK_REALTIME RUBY_TIME_BASED_CLOCK_REALTIME
9463#if defined(CLOCK_REALTIME) && defined(CLOCKID2NUM)
9465 rb_define_const(
rb_mProcess,
"CLOCK_REALTIME", CLOCKID2NUM(CLOCK_REALTIME));
9466#elif defined(RUBY_CLOCK_REALTIME)
9467 rb_define_const(
rb_mProcess,
"CLOCK_REALTIME", RUBY_CLOCK_REALTIME);
9470#if defined(RUBY_CLOCK_MONOTONIC)
9471#elif defined(RUBY_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC)
9472# define RUBY_CLOCK_MONOTONIC RUBY_MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC
9474#if defined(CLOCK_MONOTONIC) && defined(CLOCKID2NUM)
9476 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC", CLOCKID2NUM(CLOCK_MONOTONIC));
9477#elif defined(RUBY_CLOCK_MONOTONIC)
9478 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC", RUBY_CLOCK_MONOTONIC);
9481#if defined(RUBY_CLOCK_PROCESS_CPUTIME_ID)
9482#elif defined(RUBY_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID)
9483# define RUBY_CLOCK_PROCESS_CPUTIME_ID RUBY_GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID
9485#if defined(CLOCK_PROCESS_CPUTIME_ID) && defined(CLOCKID2NUM)
9487 rb_define_const(
rb_mProcess,
"CLOCK_PROCESS_CPUTIME_ID", CLOCKID2NUM(CLOCK_PROCESS_CPUTIME_ID));
9488#elif defined(RUBY_CLOCK_PROCESS_CPUTIME_ID)
9489 rb_define_const(
rb_mProcess,
"CLOCK_PROCESS_CPUTIME_ID", RUBY_CLOCK_PROCESS_CPUTIME_ID);
9492#if defined(CLOCK_THREAD_CPUTIME_ID) && defined(CLOCKID2NUM)
9494 rb_define_const(
rb_mProcess,
"CLOCK_THREAD_CPUTIME_ID", CLOCKID2NUM(CLOCK_THREAD_CPUTIME_ID));
9495#elif defined(RUBY_CLOCK_THREAD_CPUTIME_ID)
9496 rb_define_const(
rb_mProcess,
"CLOCK_THREAD_CPUTIME_ID", RUBY_CLOCK_THREAD_CPUTIME_ID);
9502 rb_define_const(
rb_mProcess,
"CLOCK_VIRTUAL", CLOCKID2NUM(CLOCK_VIRTUAL));
9506 rb_define_const(
rb_mProcess,
"CLOCK_PROF", CLOCKID2NUM(CLOCK_PROF));
9508#ifdef CLOCK_REALTIME_FAST
9510 rb_define_const(
rb_mProcess,
"CLOCK_REALTIME_FAST", CLOCKID2NUM(CLOCK_REALTIME_FAST));
9512#ifdef CLOCK_REALTIME_PRECISE
9514 rb_define_const(
rb_mProcess,
"CLOCK_REALTIME_PRECISE", CLOCKID2NUM(CLOCK_REALTIME_PRECISE));
9516#ifdef CLOCK_REALTIME_COARSE
9518 rb_define_const(
rb_mProcess,
"CLOCK_REALTIME_COARSE", CLOCKID2NUM(CLOCK_REALTIME_COARSE));
9520#ifdef CLOCK_REALTIME_ALARM
9522 rb_define_const(
rb_mProcess,
"CLOCK_REALTIME_ALARM", CLOCKID2NUM(CLOCK_REALTIME_ALARM));
9524#ifdef CLOCK_MONOTONIC_FAST
9526 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC_FAST", CLOCKID2NUM(CLOCK_MONOTONIC_FAST));
9528#ifdef CLOCK_MONOTONIC_PRECISE
9530 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC_PRECISE", CLOCKID2NUM(CLOCK_MONOTONIC_PRECISE));
9532#ifdef CLOCK_MONOTONIC_RAW
9534 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC_RAW", CLOCKID2NUM(CLOCK_MONOTONIC_RAW));
9536#ifdef CLOCK_MONOTONIC_RAW_APPROX
9538 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC_RAW_APPROX", CLOCKID2NUM(CLOCK_MONOTONIC_RAW_APPROX));
9540#ifdef CLOCK_MONOTONIC_COARSE
9542 rb_define_const(
rb_mProcess,
"CLOCK_MONOTONIC_COARSE", CLOCKID2NUM(CLOCK_MONOTONIC_COARSE));
9544#ifdef CLOCK_BOOTTIME
9546 rb_define_const(
rb_mProcess,
"CLOCK_BOOTTIME", CLOCKID2NUM(CLOCK_BOOTTIME));
9548#ifdef CLOCK_BOOTTIME_ALARM
9550 rb_define_const(
rb_mProcess,
"CLOCK_BOOTTIME_ALARM", CLOCKID2NUM(CLOCK_BOOTTIME_ALARM));
9554 rb_define_const(
rb_mProcess,
"CLOCK_UPTIME", CLOCKID2NUM(CLOCK_UPTIME));
9556#ifdef CLOCK_UPTIME_FAST
9558 rb_define_const(
rb_mProcess,
"CLOCK_UPTIME_FAST", CLOCKID2NUM(CLOCK_UPTIME_FAST));
9560#ifdef CLOCK_UPTIME_PRECISE
9562 rb_define_const(
rb_mProcess,
"CLOCK_UPTIME_PRECISE", CLOCKID2NUM(CLOCK_UPTIME_PRECISE));
9564#ifdef CLOCK_UPTIME_RAW
9566 rb_define_const(
rb_mProcess,
"CLOCK_UPTIME_RAW", CLOCKID2NUM(CLOCK_UPTIME_RAW));
9568#ifdef CLOCK_UPTIME_RAW_APPROX
9570 rb_define_const(
rb_mProcess,
"CLOCK_UPTIME_RAW_APPROX", CLOCKID2NUM(CLOCK_UPTIME_RAW_APPROX));
9574 rb_define_const(
rb_mProcess,
"CLOCK_SECOND", CLOCKID2NUM(CLOCK_SECOND));
9578 rb_define_const(
rb_mProcess,
"CLOCK_TAI", CLOCKID2NUM(CLOCK_TAI));
9584#if defined(HAVE_TIMES) || defined(_WIN32)
9598 SAVED_USER_ID = geteuid();
9599 SAVED_GROUP_ID = getegid();
9622#ifdef p_uid_from_name
9625#ifdef p_gid_from_name
9656#define define_id(name) id_##name = rb_intern_const(#name)
9669 define_id(new_pgroup);
9671 define_id(unsetenv_others);
9674 define_id(close_others);
9675 define_id(nanosecond);
9676 define_id(microsecond);
9677 define_id(millisecond);
9679 define_id(float_microsecond);
9680 define_id(float_millisecond);
9681 define_id(float_second);
9682 define_id(GETTIMEOFDAY_BASED_CLOCK_REALTIME);
9683 define_id(TIME_BASED_CLOCK_REALTIME);
9684#ifdef CLOCK_REALTIME
9685 define_id(CLOCK_REALTIME);
9687#ifdef CLOCK_MONOTONIC
9688 define_id(CLOCK_MONOTONIC);
9690#ifdef CLOCK_PROCESS_CPUTIME_ID
9691 define_id(CLOCK_PROCESS_CPUTIME_ID);
9693#ifdef CLOCK_THREAD_CPUTIME_ID
9694 define_id(CLOCK_THREAD_CPUTIME_ID);
9697 define_id(TIMES_BASED_CLOCK_MONOTONIC);
9698 define_id(TIMES_BASED_CLOCK_PROCESS_CPUTIME_ID);
9701 define_id(GETRUSAGE_BASED_CLOCK_PROCESS_CPUTIME_ID);
9703 define_id(CLOCK_BASED_CLOCK_PROCESS_CPUTIME_ID);
9705 define_id(MACH_ABSOLUTE_TIME_BASED_CLOCK_MONOTONIC);
#define rb_define_method(klass, mid, func, arity)
Defines klass#mid.
#define rb_define_singleton_method(klass, mid, func, arity)
Defines klass.mid.
#define rb_define_module_function(klass, mid, func, arity)
Defines klass#mid and makes it a module function.
#define rb_define_global_function(mid, func, arity)
Defines rb_mKernel #mid.
#define GIDT2NUM
Converts a C's gid_t into an instance of rb_cInteger.
#define NUM2GIDT
Converts an instance of rb_cNumeric into C's gid_t.
VALUE rb_singleton_class(VALUE obj)
Finds or creates the singleton class of the passed object.
VALUE rb_define_class_under(VALUE outer, const char *name, VALUE super)
Defines a class under the namespace of outer.
VALUE rb_define_module(const char *name)
Defines a top-level module.
VALUE rb_define_module_under(VALUE outer, const char *name)
Defines a module under the namespace of outer.
void rb_define_alias(VALUE klass, const char *name1, const char *name2)
Defines an alias of a method.
void rb_define_attr(VALUE klass, const char *name, int read, int write)
Defines public accessor method(s) for an attribute.
void rb_undef_method(VALUE klass, const char *name)
Defines an undef of a method.
int rb_block_given_p(void)
Determines if the current method is given a block.
#define rb_str_new2
Old name of rb_str_new_cstr.
#define TYPE(_)
Old name of rb_type.
#define T_FILE
Old name of RUBY_T_FILE.
#define rb_str_buf_cat2
Old name of rb_usascii_str_new_cstr.
#define T_STRING
Old name of RUBY_T_STRING.
#define Qundef
Old name of RUBY_Qundef.
#define INT2FIX
Old name of RB_INT2FIX.
#define rb_str_cat2
Old name of rb_str_cat_cstr.
#define ISUPPER
Old name of rb_isupper.
#define ID2SYM
Old name of RB_ID2SYM.
#define T_BIGNUM
Old name of RUBY_T_BIGNUM.
#define T_FIXNUM
Old name of RUBY_T_FIXNUM.
#define UNREACHABLE_RETURN
Old name of RBIMPL_UNREACHABLE_RETURN.
#define CLASS_OF
Old name of rb_class_of.
#define LONG2FIX
Old name of RB_INT2FIX.
#define FIX2INT
Old name of RB_FIX2INT.
#define TOUPPER
Old name of rb_toupper.
#define NUM2UINT
Old name of RB_NUM2UINT.
#define ISLOWER
Old name of rb_islower.
#define rb_ary_new3
Old name of rb_ary_new_from_args.
#define Qtrue
Old name of RUBY_Qtrue.
#define NUM2INT
Old name of RB_NUM2INT.
#define INT2NUM
Old name of RB_INT2NUM.
#define Qnil
Old name of RUBY_Qnil.
#define Qfalse
Old name of RUBY_Qfalse.
#define T_ARRAY
Old name of RUBY_T_ARRAY.
#define NIL_P
Old name of RB_NIL_P.
#define ALLOCV_N
Old name of RB_ALLOCV_N.
#define T_SYMBOL
Old name of RUBY_T_SYMBOL.
#define DBL2NUM
Old name of rb_float_new.
#define FIXNUM_P
Old name of RB_FIXNUM_P.
#define CONST_ID
Old name of RUBY_CONST_ID.
#define ALLOCV_END
Old name of RB_ALLOCV_END.
#define SYMBOL_P
Old name of RB_SYMBOL_P.
void ruby_stop(int ex)
Calls ruby_cleanup() and exits the process.
void rb_notimplement(void)
VALUE rb_eNotImpError
NotImplementedError exception.
void rb_exc_raise(VALUE mesg)
Raises an exception in the current thread.
void rb_syserr_fail(int e, const char *mesg)
Raises appropriate exception that represents a C errno.
VALUE rb_eSystemExit
SystemExit exception.
void rb_syserr_fail_str(int e, VALUE mesg)
Identical to rb_syserr_fail(), except it takes the message in Ruby's String instead of C's.
VALUE rb_eRuntimeError
RuntimeError exception.
void * rb_check_typeddata(VALUE obj, const rb_data_type_t *data_type)
Identical to rb_typeddata_is_kind_of(), except it raises exceptions instead of returning false.
void rb_warn(const char *fmt,...)
Identical to rb_warning(), except it reports unless $VERBOSE is nil.
VALUE rb_exc_new_str(VALUE etype, VALUE str)
Identical to rb_exc_new_cstr(), except it takes a Ruby's string instead of C's.
void rb_unexpected_type(VALUE x, int t)
Fails with the given object's type incompatibility to the type.
void rb_exit(int status)
Terminates the current execution context.
VALUE rb_mProcess
Process module.
VALUE rb_class_new_instance(int argc, const VALUE *argv, VALUE klass)
Allocates, then initialises an instance of the given class.
VALUE rb_cThread
Thread class.
VALUE rb_equal(VALUE lhs, VALUE rhs)
This function is an optimised version of calling #==.
VALUE rb_obj_freeze(VALUE obj)
Just calls rb_obj_freeze_inline() inside.
VALUE rb_to_int(VALUE val)
Identical to rb_check_to_int(), except it raises in case of conversion mismatch.
#define RB_OBJ_WRITTEN(old, oldv, young)
Identical to RB_OBJ_WRITE(), except it doesn't write any values, but only a WB declaration.
VALUE rb_funcall(VALUE recv, ID mid, int n,...)
Calls a method.
VALUE rb_ary_dup(VALUE ary)
Duplicates an array.
VALUE rb_check_array_type(VALUE obj)
Try converting an object to its array representation using its to_ary method, if any.
VALUE rb_ary_new(void)
Allocates a new, empty array.
VALUE rb_ary_push(VALUE ary, VALUE elem)
Special case of rb_ary_cat() that it adds only one element.
VALUE rb_ary_entry(VALUE ary, long off)
Queries an element of an array.
VALUE rb_assoc_new(VALUE car, VALUE cdr)
Identical to rb_ary_new_from_values(), except it expects exactly two parameters.
void rb_ary_store(VALUE ary, long key, VALUE val)
Destructively stores the passed value to the passed array's passed index.
#define UNLIMITED_ARGUMENTS
This macro is used in conjunction with rb_check_arity().
static int rb_check_arity(int argc, int min, int max)
Ensures that the passed integer is in the passed range.
VALUE rb_f_abort(int argc, const VALUE *argv)
This is similar to rb_f_exit().
VALUE rb_f_exit(int argc, const VALUE *argv)
Identical to rb_exit(), except how arguments are passed.
int rb_cloexec_dup2(int oldfd, int newfd)
Identical to rb_cloexec_dup(), except you can specify the destination file descriptor.
void rb_update_max_fd(int fd)
Informs the interpreter that the passed fd can be the max.
int rb_cloexec_open(const char *pathname, int flags, mode_t mode)
Opens a file that closes on exec.
void rb_close_before_exec(int lowfd, int maxhint, VALUE noclose_fds)
Closes everything.
int rb_reserved_fd_p(int fd)
Queries if the given FD is reserved or not.
int rb_pipe(int *pipes)
This is an rb_cloexec_pipe() + rb_update_max_fd() combo.
int rb_cloexec_fcntl_dupfd(int fd, int minfd)
Duplicates a file descriptor with closing on exec.
int rb_cloexec_dup(int oldfd)
Identical to rb_cloexec_fcntl_dupfd(), except it implies minfd is 3.
int rb_proc_exec(const char *cmd)
Executes a shell command.
VALUE rb_last_status_get(void)
Queries the "last status", or the $?.
rb_pid_t rb_waitpid(rb_pid_t pid, int *status, int flags)
Waits for a process, with releasing GVL.
rb_pid_t rb_spawn_err(int argc, const VALUE *argv, char *errbuf, size_t buflen)
Identical to rb_spawn(), except you can additionally know the detailed situation in case of abnormal ...
void rb_syswait(rb_pid_t pid)
This is a shorthand of rb_waitpid without status and flags.
VALUE rb_f_exec(int argc, const VALUE *argv)
Replaces the current process by running the given external command.
rb_pid_t rb_spawn(int argc, const VALUE *argv)
Identical to rb_f_exec(), except it spawns a child process instead of replacing the current one.
VALUE rb_process_status_wait(rb_pid_t pid, int flags)
Wait for the specified process to terminate, reap it, and return its status.
void rb_last_status_set(int status, rb_pid_t pid)
Sets the "last status", or the $?.
VALUE rb_detach_process(rb_pid_t pid)
"Detaches" a subprocess.
const char * ruby_signal_name(int signo)
Queries the name of the signal.
VALUE rb_f_kill(int argc, const VALUE *argv)
Sends a signal ("kills") to processes.
VALUE rb_str_append(VALUE dst, VALUE src)
Identical to rb_str_buf_append(), except it converts the right hand side before concatenating.
VALUE rb_str_tmp_new(long len)
Allocates a "temporary" string.
VALUE rb_str_subseq(VALUE str, long beg, long len)
Identical to rb_str_substr(), except the numbers are interpreted as byte offsets instead of character...
#define rb_str_new(str, len)
Allocates an instance of rb_cString.
#define rb_str_buf_cat
Just another name of rb_str_cat.
size_t rb_str_capacity(VALUE str)
Queries the capacity of the given string.
VALUE rb_str_new_frozen(VALUE str)
Creates a frozen copy of the string, if necessary.
VALUE rb_str_dup(VALUE str)
Duplicates a string.
void rb_str_set_len(VALUE str, long len)
Overwrites the length of the string.
VALUE rb_check_string_type(VALUE obj)
Try converting an object to its stringised representation using its to_str method,...
#define rb_str_cat_cstr(buf, str)
Identical to rb_str_cat(), except it assumes the passed pointer is a pointer to a C string.
void rb_str_modify_expand(VALUE str, long capa)
Identical to rb_str_modify(), except it additionally expands the capacity of the receiver.
VALUE rb_str_buf_new(long capa)
Allocates a "string buffer".
#define rb_str_new_cstr(str)
Identical to rb_str_new, except it assumes the passed pointer is a pointer to a C string.
VALUE rb_struct_define_under(VALUE space, const char *name,...)
Identical to rb_struct_define(), except it defines the class under the specified namespace instead of...
VALUE rb_struct_new(VALUE klass,...)
Creates an instance of the given struct.
VALUE rb_thread_local_aref(VALUE thread, ID key)
This badly named function reads from a Fiber local storage.
#define RUBY_UBF_IO
A special UBF for blocking IO operations.
void rb_thread_sleep_forever(void)
Blocks indefinitely.
void rb_thread_wait_for(struct timeval time)
Identical to rb_thread_sleep(), except it takes struct timeval instead.
void rb_thread_check_ints(void)
Checks for interrupts.
void rb_thread_atfork(void)
A pthread_atfork(3posix)-like API.
VALUE rb_thread_local_aset(VALUE thread, ID key, VALUE val)
This badly named function writes to a Fiber local storage.
#define RUBY_UBF_PROCESS
A special UBF for blocking process operations.
void rb_thread_sleep(int sec)
Blocks for the given period of time.
struct timeval rb_time_interval(VALUE num)
Creates a "time interval".
VALUE rb_ivar_set(VALUE obj, ID name, VALUE val)
Identical to rb_iv_set(), except it accepts the name as an ID instead of a C string.
void rb_undef_alloc_func(VALUE klass)
Deletes the allocator function of a class.
void rb_define_alloc_func(VALUE klass, rb_alloc_func_t func)
Sets the allocator function of a class.
ID rb_check_id(volatile VALUE *namep)
Detects if the given name is already interned or not.
VALUE rb_sym2str(VALUE symbol)
Obtain a frozen string representation of a symbol (not including the leading colon).
int rb_io_modestr_oflags(const char *modestr)
Identical to rb_io_modestr_fmode(), except it returns a mixture of O_ flags.
#define GetOpenFile
This is an old name of RB_IO_POINTER.
VALUE rb_io_check_io(VALUE io)
Try converting an object to its IO representation using its to_io method, if any.
int len
Length of the buffer.
void * rb_thread_call_without_gvl2(void *(*func)(void *), void *data1, rb_unblock_function_t *ubf, void *data2)
Identical to rb_thread_call_without_gvl(), except it does not interface with signals etc.
void * rb_thread_call_without_gvl(void *(*func)(void *), void *data1, rb_unblock_function_t *ubf, void *data2)
Allows the passed function to run in parallel with other Ruby threads.
#define RB_NUM2INT
Just another name of rb_num2int_inline.
#define RB_INT2NUM
Just another name of rb_int2num_inline.
#define RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg)
Shim for block function parameters.
VALUE rb_yield(VALUE val)
Yields the block.
void rb_marshal_define_compat(VALUE newclass, VALUE oldclass, VALUE(*dumper)(VALUE), VALUE(*loader)(VALUE, VALUE))
Marshal format compatibility layer.
#define MEMCPY(p1, p2, type, n)
Handy macro to call memcpy.
#define MEMZERO(p, type, n)
Handy macro to erase a region of memory.
#define RB_GC_GUARD(v)
Prevents premature destruction of local objects.
#define NUM2MODET
Converts a C's mode_t into an instance of rb_cInteger.
VALUE rb_thread_create(type *q, void *w)
Creates a rb_cThread instance.
VALUE rb_block_call(VALUE q, ID w, int e, const VALUE *r, type *t, VALUE y)
Call a method with a block.
void rb_define_virtual_variable(const char *q, type *w, void_type *e)
Define a function-backended global variable.
VALUE rb_ensure(type *q, VALUE w, type *e, VALUE r)
An equivalent of ensure clause.
#define PIDT2NUM
Converts a C's pid_t into an instance of rb_cInteger.
#define NUM2PIDT
Converts an instance of rb_cNumeric into C's pid_t.
#define RARRAY_LEN
Just another name of rb_array_len.
static int RARRAY_LENINT(VALUE ary)
Identical to rb_array_len(), except it differs for the return type.
static void RARRAY_ASET(VALUE ary, long i, VALUE v)
Assigns an object in an array.
#define RARRAY_AREF(a, i)
#define RUBY_DEFAULT_FREE
This is a value you can set to RData::dfree.
#define RHASH_SIZE(h)
Queries the size of the hash.
#define RHASH_EMPTY_P(h)
Checks if the hash is empty.
#define StringValue(v)
Ensures that the parameter object is a String.
#define StringValueCStr(v)
Identical to StringValuePtr, except it additionally checks for the contents for viability as a C stri...
#define RUBY_TYPED_DEFAULT_FREE
This is a value you can set to rb_data_type_struct::dfree.
#define TypedData_Get_Struct(obj, type, data_type, sval)
Obtains a C struct from inside of a wrapper Ruby object.
#define TypedData_Make_Struct(klass, type, data_type, sval)
Identical to TypedData_Wrap_Struct, except it allocates a new data region internally instead of takin...
const char * rb_class2name(VALUE klass)
Queries the name of the passed class.
#define FilePathValue(v)
Ensures that the parameter object is a path.
#define errno
Ractor-aware version of errno.
#define InitVM(ext)
This macro is for internal use.
VALUE rb_fiber_scheduler_current(void)
Identical to rb_fiber_scheduler_get(), except it also returns RUBY_Qnil in case of a blocking fiber.
VALUE rb_fiber_scheduler_kernel_sleepv(VALUE scheduler, int argc, VALUE *argv)
Identical to rb_fiber_scheduler_kernel_sleep(), except it can pass multiple arguments.
VALUE rb_fiber_scheduler_process_wait(VALUE scheduler, rb_pid_t pid, int flags)
Non-blocking waitpid.
static bool RB_SPECIAL_CONST_P(VALUE obj)
Checks if the given object is of enum ruby_special_consts.
#define RTEST
This is an old name of RB_TEST.
#define _(args)
This was a transition path from K&R to ANSI.
This is the struct that holds necessary info for a struct.
const char * wrap_struct_name
Name of structs of this kind.
Ruby's IO, metadata and buffers.
VALUE tied_io_for_writing
Duplex IO object, if set.
#define UIDT2NUM
Converts a C's uid_t into an instance of rb_cInteger.
#define NUM2UIDT
Converts an instance of rb_cNumeric into C's uid_t.
uintptr_t ID
Type that represents a Ruby identifier such as a variable name.
uintptr_t VALUE
Type that represents a Ruby object.
static enum ruby_value_type RB_BUILTIN_TYPE(VALUE obj)
Queries the type of the object.
static void Check_Type(VALUE v, enum ruby_value_type t)
Identical to RB_TYPE_P(), except it raises exceptions on predication failure.
static bool RB_TYPE_P(VALUE obj, enum ruby_value_type t)
Queries if the given object is of given type.