Ruby 3.0.5p211 (2022-11-24 revision ba5cf0f7c52d4d35cc6a173c89eda98ceffa2dcf)
goruby.c
Go to the documentation of this file.
1void Init_golf(void);
2#define ruby_options goruby_options
3#define ruby_run_node goruby_run_node
4#include "main.c"
5#undef ruby_options
6#undef ruby_run_node
7
8#if defined _WIN32
9#include <io.h>
10#include <fcntl.h>
11#define pipe(p) _pipe(p, 32L, _O_NOINHERIT)
12#elif defined HAVE_UNISTD_H
13#include <unistd.h>
14#endif
15
16RUBY_EXTERN void *ruby_options(int argc, char **argv);
17RUBY_EXTERN int ruby_run_node(void*);
18RUBY_EXTERN void ruby_init_ext(const char *name, void (*init)(void));
19
20static VALUE
21init_golf(VALUE arg)
22{
23 Init_golf();
24 rb_provide("golf.so");
25 return arg;
26}
27
28void *
30{
31 static const char cmd[] = "END{require 'irb';IRB.start}";
32 int rw[2], infd;
33 void *ret;
34
35 if ((isatty(0) && isatty(1) && isatty(2)) && (pipe(rw) == 0)) {
36 ssize_t n;
37 infd = dup(0);
38 if (infd < 0) {
39 close(rw[0]);
40 close(rw[1]);
41 goto no_irb;
42 }
43 dup2(rw[0], 0);
44 close(rw[0]);
45 n = write(rw[1], cmd, sizeof(cmd) - 1);
46 close(rw[1]);
47 ret = n > 0 ? ruby_options(argc, argv) : NULL;
48 dup2(infd, 0);
49 close(infd);
50 return ret;
51 }
52 no_irb:
53 return ruby_options(argc, argv);
54}
55
56int
58{
59 int state;
60 if (NIL_P(rb_protect(init_golf, Qtrue, &state))) {
62 }
63 return ruby_run_node(arg);
64}
#define RUBY_EXTERN
Definition: dllexport.h:36
#define EXIT_FAILURE
Definition: eval_intern.h:32
#define ruby_run_node
Definition: goruby.c:3
void Init_golf(void)
void ruby_init_ext(const char *name, void(*init)(void))
Definition: load.c:1220
void * goruby_options(int argc, char **argv)
Definition: goruby.c:29
int goruby_run_node(void *arg)
Definition: goruby.c:57
#define ruby_options
Definition: goruby.c:2
#define EXIT_SUCCESS
Definition: error.c:52
VALUE rb_protect(VALUE(*proc)(VALUE), VALUE data, int *pstate)
Protects a function call from potential global escapes from the function.
Definition: eval.c:1105
void rb_provide(const char *)
Definition: load.c:616
int dup2(int, int)
Definition: dup2.c:27
const char * name
Definition: nkf.c:208
#define NULL
Definition: regenc.h:69
int argc
Definition: ruby.c:240
char ** argv
Definition: ruby.c:241
#define Qtrue
#define NIL_P
Definition: blast.c:41
unsigned long VALUE
Definition: value.h:38
int write(ozstream &zs, const T *x, Items items)
Definition: zstream.h:264