1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#define _POSIX_C_SOURCE 200809L
#include "ruby/3/config.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "ruby-runner.h"
#ifdef MAKE_MJIT_BUILD_DIR
const char MJIT_HEADER[] = BUILDDIR "/" MJIT_MIN_HEADER;
#else
#define STRINGIZE(expr) STRINGIZE0(expr)
#define STRINGIZE0(expr) #expr
static void
insert_env_path(const char *envname, const char *paths, size_t size, int prepend)
{
const char *env = getenv(envname);
char c = 0;
size_t n = 0;
if (env) {
while ((c = *env) == PATH_SEP) ++env;
n = strlen(env);
while (n > 0 && env[n-1] == PATH_SEP) --n;
}
if (c) {
char *e = malloc(size+n+1);
size_t pos = 0;
if (prepend) {
memcpy(e, paths, pos = size-1);
e[pos++] = PATH_SEP;
}
memcpy(e+pos, env, n);
pos += n;
if (!prepend) {
e[pos++] = PATH_SEP;
memcpy(e+pos, paths, size-1);
pos += size-1;
}
e[pos] = '\0';
env = e;
}
else {
env = paths;
}
setenv(envname, env, 1);
}
#define EXTOUT_DIR BUILDDIR"/"EXTOUT
int
main(int argc, char **argv)
{
static const char builddir[] = BUILDDIR;
static const char rubypath[] = BUILDDIR"/"STRINGIZE(RUBY_INSTALL_NAME);
static const char rubylib[] =
ABS_SRCDIR"/lib"
PATH_SEPARATOR
EXTOUT_DIR"/common"
PATH_SEPARATOR
EXTOUT_DIR"/"ARCH
;
#ifndef LOAD_RELATIVE
static const char mjit_build_dir[] = BUILDDIR"/mjit_build_dir."SOEXT;
struct stat stbuf;
#endif
const size_t dirsize = sizeof(builddir);
const size_t namesize = sizeof(rubypath) - dirsize;
const char *rubyname = rubypath + dirsize;
char *arg0 = argv[0], *p;
insert_env_path(LIBPATHENV, builddir, dirsize, 1);
insert_env_path("RUBYLIB", rubylib, sizeof(rubylib), 0);
#ifndef LOAD_RELATIVE
if (PRELOADENV[0] && stat(mjit_build_dir, &stbuf) == 0) {
insert_env_path(PRELOADENV, mjit_build_dir, sizeof(mjit_build_dir), 1);
setenv("MJIT_SEARCH_BUILD_DIR", "true", 0);
}
#endif
if (!(p = strrchr(arg0, '/'))) p = arg0; else p++;
if (strlen(p) < namesize - 1) {
argv[0] = malloc(p - arg0 + namesize);
memcpy(argv[0], arg0, p - arg0);
p = argv[0] + (p - arg0);
}
memcpy(p, rubyname, namesize);
execv(rubypath, argv);
perror(rubypath);
return -1;
}
#endif /* MAKE_MJIT_BUILD_DIR */
|
