binding_of_caller 0.7.2 → 1.0.1

Sign up to get free protection for your applications and to get access to all the features.
Files changed (70) hide show
  1. checksums.yaml +5 -5
  2. data/.gemtest +0 -0
  3. data/.github/workflows/test.yml +108 -0
  4. data/.gitignore +12 -7
  5. data/.yardopts +0 -0
  6. data/Gemfile +6 -1
  7. data/LICENSE +0 -0
  8. data/README.md +17 -5
  9. data/Rakefile +4 -132
  10. data/binding_of_caller.gemspec +33 -35
  11. data/lib/binding_of_caller/jruby_interpreted.rb +123 -0
  12. data/lib/binding_of_caller/{mri2.rb → mri.rb} +8 -14
  13. data/lib/binding_of_caller/rubinius.rb +21 -28
  14. data/lib/binding_of_caller/version.rb +1 -1
  15. data/lib/binding_of_caller.rb +9 -10
  16. metadata +33 -109
  17. data/.travis.yml +0 -23
  18. data/HISTORY +0 -0
  19. data/examples/example.rb +0 -41
  20. data/ext/binding_of_caller/binding_of_caller.c +0 -225
  21. data/ext/binding_of_caller/extconf.rb +0 -33
  22. data/ext/binding_of_caller/ruby_headers/192/debug.h +0 -36
  23. data/ext/binding_of_caller/ruby_headers/192/dln.h +0 -41
  24. data/ext/binding_of_caller/ruby_headers/192/eval_intern.h +0 -232
  25. data/ext/binding_of_caller/ruby_headers/192/id.h +0 -173
  26. data/ext/binding_of_caller/ruby_headers/192/iseq.h +0 -104
  27. data/ext/binding_of_caller/ruby_headers/192/method.h +0 -103
  28. data/ext/binding_of_caller/ruby_headers/192/node.h +0 -483
  29. data/ext/binding_of_caller/ruby_headers/192/regenc.h +0 -211
  30. data/ext/binding_of_caller/ruby_headers/192/regint.h +0 -841
  31. data/ext/binding_of_caller/ruby_headers/192/regparse.h +0 -354
  32. data/ext/binding_of_caller/ruby_headers/192/rubys_gc.h +0 -77
  33. data/ext/binding_of_caller/ruby_headers/192/thread_pthread.h +0 -27
  34. data/ext/binding_of_caller/ruby_headers/192/thread_win32.h +0 -33
  35. data/ext/binding_of_caller/ruby_headers/192/timev.h +0 -21
  36. data/ext/binding_of_caller/ruby_headers/192/transcode_data.h +0 -109
  37. data/ext/binding_of_caller/ruby_headers/192/version.h +0 -55
  38. data/ext/binding_of_caller/ruby_headers/192/vm_core.h +0 -703
  39. data/ext/binding_of_caller/ruby_headers/192/vm_exec.h +0 -184
  40. data/ext/binding_of_caller/ruby_headers/192/vm_insnhelper.h +0 -208
  41. data/ext/binding_of_caller/ruby_headers/192/vm_opts.h +0 -51
  42. data/ext/binding_of_caller/ruby_headers/193/addr2line.h +0 -21
  43. data/ext/binding_of_caller/ruby_headers/193/atomic.h +0 -56
  44. data/ext/binding_of_caller/ruby_headers/193/constant.h +0 -34
  45. data/ext/binding_of_caller/ruby_headers/193/debug.h +0 -41
  46. data/ext/binding_of_caller/ruby_headers/193/dln.h +0 -50
  47. data/ext/binding_of_caller/ruby_headers/193/encdb.h +0 -167
  48. data/ext/binding_of_caller/ruby_headers/193/eval_intern.h +0 -234
  49. data/ext/binding_of_caller/ruby_headers/193/id.h +0 -175
  50. data/ext/binding_of_caller/ruby_headers/193/internal.h +0 -227
  51. data/ext/binding_of_caller/ruby_headers/193/iseq.h +0 -125
  52. data/ext/binding_of_caller/ruby_headers/193/method.h +0 -105
  53. data/ext/binding_of_caller/ruby_headers/193/node.h +0 -503
  54. data/ext/binding_of_caller/ruby_headers/193/parse.h +0 -186
  55. data/ext/binding_of_caller/ruby_headers/193/regenc.h +0 -219
  56. data/ext/binding_of_caller/ruby_headers/193/regint.h +0 -851
  57. data/ext/binding_of_caller/ruby_headers/193/regparse.h +0 -362
  58. data/ext/binding_of_caller/ruby_headers/193/revision.h +0 -1
  59. data/ext/binding_of_caller/ruby_headers/193/rubys_gc.h +0 -98
  60. data/ext/binding_of_caller/ruby_headers/193/thread_pthread.h +0 -51
  61. data/ext/binding_of_caller/ruby_headers/193/thread_win32.h +0 -40
  62. data/ext/binding_of_caller/ruby_headers/193/timev.h +0 -21
  63. data/ext/binding_of_caller/ruby_headers/193/transcode_data.h +0 -117
  64. data/ext/binding_of_caller/ruby_headers/193/transdb.h +0 -189
  65. data/ext/binding_of_caller/ruby_headers/193/version.h +0 -52
  66. data/ext/binding_of_caller/ruby_headers/193/vm_core.h +0 -755
  67. data/ext/binding_of_caller/ruby_headers/193/vm_exec.h +0 -184
  68. data/ext/binding_of_caller/ruby_headers/193/vm_insnhelper.h +0 -220
  69. data/ext/binding_of_caller/ruby_headers/193/vm_opts.h +0 -51
  70. data/test/test_binding_of_caller.rb +0 -161
@@ -1,362 +0,0 @@
1
- #ifndef ONIGURUMA_REGPARSE_H
2
- #define ONIGURUMA_REGPARSE_H
3
- /**********************************************************************
4
- regparse.h - Oniguruma (regular expression library)
5
- **********************************************************************/
6
- /*-
7
- * Copyright (c) 2002-2007 K.Kosako <sndgk393 AT ybb DOT ne DOT jp>
8
- * All rights reserved.
9
- *
10
- * Redistribution and use in source and binary forms, with or without
11
- * modification, are permitted provided that the following conditions
12
- * are met:
13
- * 1. Redistributions of source code must retain the above copyright
14
- * notice, this list of conditions and the following disclaimer.
15
- * 2. Redistributions in binary form must reproduce the above copyright
16
- * notice, this list of conditions and the following disclaimer in the
17
- * documentation and/or other materials provided with the distribution.
18
- *
19
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
20
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22
- * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
23
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29
- * SUCH DAMAGE.
30
- */
31
-
32
- #include "regint.h"
33
-
34
- #if defined __GNUC__ && __GNUC__ >= 4
35
- #pragma GCC visibility push(default)
36
- #endif
37
-
38
- /* node type */
39
- #define NT_STR 0
40
- #define NT_CCLASS 1
41
- #define NT_CTYPE 2
42
- #define NT_CANY 3
43
- #define NT_BREF 4
44
- #define NT_QTFR 5
45
- #define NT_ENCLOSE 6
46
- #define NT_ANCHOR 7
47
- #define NT_LIST 8
48
- #define NT_ALT 9
49
- #define NT_CALL 10
50
-
51
- /* node type bit */
52
- #define NTYPE2BIT(type) (1<<(type))
53
-
54
- #define BIT_NT_STR NTYPE2BIT(NT_STR)
55
- #define BIT_NT_CCLASS NTYPE2BIT(NT_CCLASS)
56
- #define BIT_NT_CTYPE NTYPE2BIT(NT_CTYPE)
57
- #define BIT_NT_CANY NTYPE2BIT(NT_CANY)
58
- #define BIT_NT_BREF NTYPE2BIT(NT_BREF)
59
- #define BIT_NT_QTFR NTYPE2BIT(NT_QTFR)
60
- #define BIT_NT_ENCLOSE NTYPE2BIT(NT_ENCLOSE)
61
- #define BIT_NT_ANCHOR NTYPE2BIT(NT_ANCHOR)
62
- #define BIT_NT_LIST NTYPE2BIT(NT_LIST)
63
- #define BIT_NT_ALT NTYPE2BIT(NT_ALT)
64
- #define BIT_NT_CALL NTYPE2BIT(NT_CALL)
65
-
66
- #define IS_NODE_TYPE_SIMPLE(type) \
67
- ((NTYPE2BIT(type) & (BIT_NT_STR | BIT_NT_CCLASS | BIT_NT_CTYPE |\
68
- BIT_NT_CANY | BIT_NT_BREF)) != 0)
69
-
70
- #define NTYPE(node) ((node)->u.base.type)
71
- #define SET_NTYPE(node, ntype) (node)->u.base.type = (ntype)
72
-
73
- #define NSTR(node) (&((node)->u.str))
74
- #define NCCLASS(node) (&((node)->u.cclass))
75
- #define NCTYPE(node) (&((node)->u.ctype))
76
- #define NBREF(node) (&((node)->u.bref))
77
- #define NQTFR(node) (&((node)->u.qtfr))
78
- #define NENCLOSE(node) (&((node)->u.enclose))
79
- #define NANCHOR(node) (&((node)->u.anchor))
80
- #define NCONS(node) (&((node)->u.cons))
81
- #define NCALL(node) (&((node)->u.call))
82
-
83
- #define NCAR(node) (NCONS(node)->car)
84
- #define NCDR(node) (NCONS(node)->cdr)
85
-
86
-
87
-
88
- #define ANCHOR_ANYCHAR_STAR_MASK (ANCHOR_ANYCHAR_STAR | ANCHOR_ANYCHAR_STAR_ML)
89
- #define ANCHOR_END_BUF_MASK (ANCHOR_END_BUF | ANCHOR_SEMI_END_BUF)
90
-
91
- #define ENCLOSE_MEMORY (1<<0)
92
- #define ENCLOSE_OPTION (1<<1)
93
- #define ENCLOSE_STOP_BACKTRACK (1<<2)
94
-
95
- #define NODE_STR_MARGIN 16
96
- #define NODE_STR_BUF_SIZE 24 /* sizeof(CClassNode) - sizeof(int)*4 */
97
- #define NODE_BACKREFS_SIZE 6
98
-
99
- #define NSTR_RAW (1<<0) /* by backslashed number */
100
- #define NSTR_AMBIG (1<<1)
101
- #define NSTR_DONT_GET_OPT_INFO (1<<2)
102
-
103
- #define NSTRING_LEN(node) (OnigDistance)((node)->u.str.end - (node)->u.str.s)
104
- #define NSTRING_SET_RAW(node) (node)->u.str.flag |= NSTR_RAW
105
- #define NSTRING_CLEAR_RAW(node) (node)->u.str.flag &= ~NSTR_RAW
106
- #define NSTRING_SET_AMBIG(node) (node)->u.str.flag |= NSTR_AMBIG
107
- #define NSTRING_SET_DONT_GET_OPT_INFO(node) \
108
- (node)->u.str.flag |= NSTR_DONT_GET_OPT_INFO
109
- #define NSTRING_IS_RAW(node) (((node)->u.str.flag & NSTR_RAW) != 0)
110
- #define NSTRING_IS_AMBIG(node) (((node)->u.str.flag & NSTR_AMBIG) != 0)
111
- #define NSTRING_IS_DONT_GET_OPT_INFO(node) \
112
- (((node)->u.str.flag & NSTR_DONT_GET_OPT_INFO) != 0)
113
-
114
- #define BACKREFS_P(br) \
115
- (IS_NOT_NULL((br)->back_dynamic) ? (br)->back_dynamic : (br)->back_static);
116
-
117
- #define NQ_TARGET_ISNOT_EMPTY 0
118
- #define NQ_TARGET_IS_EMPTY 1
119
- #define NQ_TARGET_IS_EMPTY_MEM 2
120
- #define NQ_TARGET_IS_EMPTY_REC 3
121
-
122
- /* status bits */
123
- #define NST_MIN_FIXED (1<<0)
124
- #define NST_MAX_FIXED (1<<1)
125
- #define NST_CLEN_FIXED (1<<2)
126
- #define NST_MARK1 (1<<3)
127
- #define NST_MARK2 (1<<4)
128
- #define NST_MEM_BACKREFED (1<<5)
129
- #define NST_STOP_BT_SIMPLE_REPEAT (1<<6)
130
- #define NST_RECURSION (1<<7)
131
- #define NST_CALLED (1<<8)
132
- #define NST_ADDR_FIXED (1<<9)
133
- #define NST_NAMED_GROUP (1<<10)
134
- #define NST_NAME_REF (1<<11)
135
- #define NST_IN_REPEAT (1<<12) /* STK_REPEAT is nested in stack. */
136
- #define NST_NEST_LEVEL (1<<13)
137
- #define NST_BY_NUMBER (1<<14) /* {n,m} */
138
-
139
- #define SET_ENCLOSE_STATUS(node,f) (node)->u.enclose.state |= (f)
140
- #define CLEAR_ENCLOSE_STATUS(node,f) (node)->u.enclose.state &= ~(f)
141
-
142
- #define IS_ENCLOSE_CALLED(en) (((en)->state & NST_CALLED) != 0)
143
- #define IS_ENCLOSE_ADDR_FIXED(en) (((en)->state & NST_ADDR_FIXED) != 0)
144
- #define IS_ENCLOSE_RECURSION(en) (((en)->state & NST_RECURSION) != 0)
145
- #define IS_ENCLOSE_MARK1(en) (((en)->state & NST_MARK1) != 0)
146
- #define IS_ENCLOSE_MARK2(en) (((en)->state & NST_MARK2) != 0)
147
- #define IS_ENCLOSE_MIN_FIXED(en) (((en)->state & NST_MIN_FIXED) != 0)
148
- #define IS_ENCLOSE_MAX_FIXED(en) (((en)->state & NST_MAX_FIXED) != 0)
149
- #define IS_ENCLOSE_CLEN_FIXED(en) (((en)->state & NST_CLEN_FIXED) != 0)
150
- #define IS_ENCLOSE_STOP_BT_SIMPLE_REPEAT(en) \
151
- (((en)->state & NST_STOP_BT_SIMPLE_REPEAT) != 0)
152
- #define IS_ENCLOSE_NAMED_GROUP(en) (((en)->state & NST_NAMED_GROUP) != 0)
153
-
154
- #define SET_CALL_RECURSION(node) (node)->u.call.state |= NST_RECURSION
155
- #define IS_CALL_RECURSION(cn) (((cn)->state & NST_RECURSION) != 0)
156
- #define IS_CALL_NAME_REF(cn) (((cn)->state & NST_NAME_REF) != 0)
157
- #define IS_BACKREF_NAME_REF(bn) (((bn)->state & NST_NAME_REF) != 0)
158
- #define IS_BACKREF_NEST_LEVEL(bn) (((bn)->state & NST_NEST_LEVEL) != 0)
159
- #define IS_QUANTIFIER_IN_REPEAT(qn) (((qn)->state & NST_IN_REPEAT) != 0)
160
- #define IS_QUANTIFIER_BY_NUMBER(qn) (((qn)->state & NST_BY_NUMBER) != 0)
161
-
162
- #define CALLNODE_REFNUM_UNDEF -1
163
-
164
- typedef struct {
165
- NodeBase base;
166
- UChar* s;
167
- UChar* end;
168
- unsigned int flag;
169
- int capa; /* (allocated size - 1) or 0: use buf[] */
170
- UChar buf[NODE_STR_BUF_SIZE];
171
- } StrNode;
172
-
173
- typedef struct {
174
- NodeBase base;
175
- int state;
176
- struct _Node* target;
177
- int lower;
178
- int upper;
179
- int greedy;
180
- int target_empty_info;
181
- struct _Node* head_exact;
182
- struct _Node* next_head_exact;
183
- int is_refered; /* include called node. don't eliminate even if {0} */
184
- #ifdef USE_COMBINATION_EXPLOSION_CHECK
185
- int comb_exp_check_num; /* 1,2,3...: check, 0: no check */
186
- #endif
187
- } QtfrNode;
188
-
189
- typedef struct {
190
- NodeBase base;
191
- int state;
192
- int type;
193
- int regnum;
194
- OnigOptionType option;
195
- struct _Node* target;
196
- AbsAddrType call_addr;
197
- /* for multiple call reference */
198
- OnigDistance min_len; /* min length (byte) */
199
- OnigDistance max_len; /* max length (byte) */
200
- int char_len; /* character length */
201
- int opt_count; /* referenced count in optimize_node_left() */
202
- } EncloseNode;
203
-
204
- #ifdef USE_SUBEXP_CALL
205
-
206
- typedef struct {
207
- int offset;
208
- struct _Node* target;
209
- } UnsetAddr;
210
-
211
- typedef struct {
212
- int num;
213
- int alloc;
214
- UnsetAddr* us;
215
- } UnsetAddrList;
216
-
217
- typedef struct {
218
- NodeBase base;
219
- int state;
220
- int group_num;
221
- UChar* name;
222
- UChar* name_end;
223
- struct _Node* target; /* EncloseNode : ENCLOSE_MEMORY */
224
- UnsetAddrList* unset_addr_list;
225
- } CallNode;
226
-
227
- #endif
228
-
229
- typedef struct {
230
- NodeBase base;
231
- int state;
232
- int back_num;
233
- int back_static[NODE_BACKREFS_SIZE];
234
- int* back_dynamic;
235
- int nest_level;
236
- } BRefNode;
237
-
238
- typedef struct {
239
- NodeBase base;
240
- int type;
241
- struct _Node* target;
242
- int char_len;
243
- } AnchorNode;
244
-
245
- typedef struct {
246
- NodeBase base;
247
- struct _Node* car;
248
- struct _Node* cdr;
249
- } ConsAltNode;
250
-
251
- typedef struct {
252
- NodeBase base;
253
- int ctype;
254
- int not;
255
- } CtypeNode;
256
-
257
- typedef struct _Node {
258
- union {
259
- NodeBase base;
260
- StrNode str;
261
- CClassNode cclass;
262
- QtfrNode qtfr;
263
- EncloseNode enclose;
264
- BRefNode bref;
265
- AnchorNode anchor;
266
- ConsAltNode cons;
267
- CtypeNode ctype;
268
- #ifdef USE_SUBEXP_CALL
269
- CallNode call;
270
- #endif
271
- } u;
272
- } Node;
273
-
274
-
275
- #define NULL_NODE ((Node* )0)
276
-
277
- #define SCANENV_MEMNODES_SIZE 8
278
- #define SCANENV_MEM_NODES(senv) \
279
- (IS_NOT_NULL((senv)->mem_nodes_dynamic) ? \
280
- (senv)->mem_nodes_dynamic : (senv)->mem_nodes_static)
281
-
282
- typedef struct {
283
- OnigOptionType option;
284
- OnigCaseFoldType case_fold_flag;
285
- OnigEncoding enc;
286
- const OnigSyntaxType* syntax;
287
- BitStatusType capture_history;
288
- BitStatusType bt_mem_start;
289
- BitStatusType bt_mem_end;
290
- BitStatusType backrefed_mem;
291
- UChar* pattern;
292
- UChar* pattern_end;
293
- UChar* error;
294
- UChar* error_end;
295
- regex_t* reg; /* for reg->names only */
296
- int num_call;
297
- #ifdef USE_SUBEXP_CALL
298
- UnsetAddrList* unset_addr_list;
299
- #endif
300
- int num_mem;
301
- #ifdef USE_NAMED_GROUP
302
- int num_named;
303
- #endif
304
- int mem_alloc;
305
- Node* mem_nodes_static[SCANENV_MEMNODES_SIZE];
306
- Node** mem_nodes_dynamic;
307
- #ifdef USE_COMBINATION_EXPLOSION_CHECK
308
- int num_comb_exp_check;
309
- int comb_exp_max_regnum;
310
- int curr_max_regnum;
311
- int has_recursion;
312
- #endif
313
- int warnings_flag;
314
- const char* sourcefile;
315
- int sourceline;
316
- } ScanEnv;
317
-
318
-
319
- #define IS_SYNTAX_OP(syn, opm) (((syn)->op & (opm)) != 0)
320
- #define IS_SYNTAX_OP2(syn, opm) (((syn)->op2 & (opm)) != 0)
321
- #define IS_SYNTAX_BV(syn, bvm) (((syn)->behavior & (bvm)) != 0)
322
-
323
- #ifdef USE_NAMED_GROUP
324
- typedef struct {
325
- int new_val;
326
- } GroupNumRemap;
327
-
328
- extern int onig_renumber_name_table P_((regex_t* reg, GroupNumRemap* map));
329
- #endif
330
-
331
- extern int onig_strncmp P_((const UChar* s1, const UChar* s2, int n));
332
- extern void onig_strcpy P_((UChar* dest, const UChar* src, const UChar* end));
333
- extern void onig_scan_env_set_error_string P_((ScanEnv* env, int ecode, UChar* arg, UChar* arg_end));
334
- extern int onig_scan_unsigned_number P_((UChar** src, const UChar* end, OnigEncoding enc));
335
- extern void onig_reduce_nested_quantifier P_((Node* pnode, Node* cnode));
336
- extern void onig_node_conv_to_str_node P_((Node* node, int raw));
337
- extern int onig_node_str_cat P_((Node* node, const UChar* s, const UChar* end));
338
- extern int onig_node_str_set P_((Node* node, const UChar* s, const UChar* end));
339
- extern void onig_node_free P_((Node* node));
340
- extern Node* onig_node_new_enclose P_((int type));
341
- extern Node* onig_node_new_anchor P_((int type));
342
- extern Node* onig_node_new_str P_((const UChar* s, const UChar* end));
343
- extern Node* onig_node_new_list P_((Node* left, Node* right));
344
- extern Node* onig_node_list_add P_((Node* list, Node* x));
345
- extern Node* onig_node_new_alt P_((Node* left, Node* right));
346
- extern void onig_node_str_clear P_((Node* node));
347
- extern int onig_free_node_list P_((void));
348
- extern int onig_names_free P_((regex_t* reg));
349
- extern int onig_parse_make_tree P_((Node** root, const UChar* pattern, const UChar* end, regex_t* reg, ScanEnv* env));
350
- extern int onig_free_shared_cclass_table P_((void));
351
-
352
- #ifdef ONIG_DEBUG
353
- #ifdef USE_NAMED_GROUP
354
- extern int onig_print_names(FILE*, regex_t*);
355
- #endif
356
- #endif
357
-
358
- #if defined __GNUC__ && __GNUC__ >= 4
359
- #pragma GCC visibility pop
360
- #endif
361
-
362
- #endif /* ONIGURUMA_REGPARSE_H */
@@ -1 +0,0 @@
1
- #define RUBY_REVISION 32789
@@ -1,98 +0,0 @@
1
-
2
- #ifndef RUBY_GC_H
3
- #define RUBY_GC_H 1
4
-
5
- #if defined(__x86_64__) && defined(__GNUC__)
6
- #define SET_MACHINE_STACK_END(p) __asm__("movq\t%%rsp, %0" : "=r" (*(p)))
7
- #elif defined(__i386) && defined(__GNUC__)
8
- #define SET_MACHINE_STACK_END(p) __asm__("movl\t%%esp, %0" : "=r" (*(p)))
9
- #else
10
- NOINLINE(void rb_gc_set_stack_end(VALUE **stack_end_p));
11
- #define SET_MACHINE_STACK_END(p) rb_gc_set_stack_end(p)
12
- #define USE_CONSERVATIVE_STACK_END
13
- #endif
14
-
15
- /* for GC debug */
16
-
17
- #ifndef RUBY_MARK_FREE_DEBUG
18
- #define RUBY_MARK_FREE_DEBUG 0
19
- #endif
20
-
21
- #if RUBY_MARK_FREE_DEBUG
22
- extern int ruby_gc_debug_indent;
23
-
24
- static inline void
25
- rb_gc_debug_indent(void)
26
- {
27
- printf("%*s", ruby_gc_debug_indent, "");
28
- }
29
-
30
- static inline void
31
- rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
32
- {
33
- if (st == 0) {
34
- ruby_gc_debug_indent--;
35
- }
36
- rb_gc_debug_indent();
37
- printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
38
-
39
- if (st) {
40
- ruby_gc_debug_indent++;
41
- }
42
-
43
- fflush(stdout);
44
- }
45
-
46
- #define RUBY_MARK_ENTER(msg) rb_gc_debug_body("mark", (msg), 1, ptr)
47
- #define RUBY_MARK_LEAVE(msg) rb_gc_debug_body("mark", (msg), 0, ptr)
48
- #define RUBY_FREE_ENTER(msg) rb_gc_debug_body("free", (msg), 1, ptr)
49
- #define RUBY_FREE_LEAVE(msg) rb_gc_debug_body("free", (msg), 0, ptr)
50
- #define RUBY_GC_INFO rb_gc_debug_indent(); printf
51
-
52
- #else
53
- #define RUBY_MARK_ENTER(msg)
54
- #define RUBY_MARK_LEAVE(msg)
55
- #define RUBY_FREE_ENTER(msg)
56
- #define RUBY_FREE_LEAVE(msg)
57
- #define RUBY_GC_INFO if(0)printf
58
- #endif
59
-
60
- #define RUBY_MARK_UNLESS_NULL(ptr) if(RTEST(ptr)){rb_gc_mark(ptr);}
61
- #define RUBY_FREE_UNLESS_NULL(ptr) if(ptr){ruby_xfree(ptr);(ptr)=NULL;}
62
-
63
- #if STACK_GROW_DIRECTION > 0
64
- # define STACK_UPPER(x, a, b) (a)
65
- #elif STACK_GROW_DIRECTION < 0
66
- # define STACK_UPPER(x, a, b) (b)
67
- #else
68
- RUBY_EXTERN int ruby_stack_grow_direction;
69
- int ruby_get_stack_grow_direction(volatile VALUE *addr);
70
- # define stack_growup_p(x) ( \
71
- (ruby_stack_grow_direction ? \
72
- ruby_stack_grow_direction : \
73
- ruby_get_stack_grow_direction(x)) > 0)
74
- # define STACK_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
75
- #endif
76
-
77
- #if STACK_GROW_DIRECTION
78
- #define STACK_GROW_DIR_DETECTION
79
- #define STACK_DIR_UPPER(a,b) STACK_UPPER(0, (a), (b))
80
- #else
81
- #define STACK_GROW_DIR_DETECTION VALUE stack_grow_dir_detection
82
- #define STACK_DIR_UPPER(a,b) STACK_UPPER(&stack_grow_dir_detection, (a), (b))
83
- #endif
84
-
85
- #if defined __GNUC__ && __GNUC__ >= 4
86
- #pragma GCC visibility push(default)
87
- #endif
88
-
89
- size_t rb_objspace_data_type_memsize(VALUE obj);
90
- void rb_objspace_each_objects(
91
- int (*callback)(void *start, void *end, size_t stride, void *data),
92
- void *data);
93
-
94
- #if defined __GNUC__ && __GNUC__ >= 4
95
- #pragma GCC visibility pop
96
- #endif
97
-
98
- #endif /* RUBY_GC_H */
@@ -1,51 +0,0 @@
1
- /**********************************************************************
2
-
3
- thread_pthread.h -
4
-
5
- $Author: kosaki $
6
-
7
- Copyright (C) 2004-2007 Koichi Sasada
8
-
9
- **********************************************************************/
10
-
11
- #ifndef RUBY_THREAD_PTHREAD_H
12
- #define RUBY_THREAD_PTHREAD_H
13
-
14
- #include <pthread.h>
15
- #ifdef HAVE_PTHREAD_NP_H
16
- #include <pthread_np.h>
17
- #endif
18
- typedef pthread_t rb_thread_id_t;
19
- typedef pthread_mutex_t rb_thread_lock_t;
20
-
21
- typedef struct rb_thread_cond_struct {
22
- pthread_cond_t cond;
23
- #ifdef HAVE_CLOCKID_T
24
- clockid_t clockid;
25
- #endif
26
- } rb_thread_cond_t;
27
-
28
- typedef struct native_thread_data_struct {
29
- void *signal_thread_list;
30
- rb_thread_cond_t sleep_cond;
31
- } native_thread_data_t;
32
-
33
- #include <semaphore.h>
34
-
35
- typedef struct rb_global_vm_lock_struct {
36
- /* fast path */
37
- unsigned long acquired;
38
- pthread_mutex_t lock;
39
-
40
- /* slow path */
41
- volatile unsigned long waiting;
42
- rb_thread_cond_t cond;
43
-
44
- /* yield */
45
- rb_thread_cond_t switch_cond;
46
- rb_thread_cond_t switch_wait_cond;
47
- int need_yield;
48
- int wait_yield;
49
- } rb_global_vm_lock_t;
50
-
51
- #endif /* RUBY_THREAD_PTHREAD_H */
@@ -1,40 +0,0 @@
1
- /**********************************************************************
2
-
3
- thread_win32.h -
4
-
5
- $Author: kosaki $
6
-
7
- Copyright (C) 2004-2007 Koichi Sasada
8
-
9
- **********************************************************************/
10
-
11
- /* interface */
12
- #ifndef RUBY_THREAD_WIN32_H
13
- #define RUBY_THREAD_WIN32_H
14
-
15
- #include <windows.h>
16
-
17
- # ifdef __CYGWIN__
18
- # undef _WIN32
19
- # endif
20
-
21
- WINBASEAPI BOOL WINAPI
22
- TryEnterCriticalSection(IN OUT LPCRITICAL_SECTION lpCriticalSection);
23
-
24
- typedef HANDLE rb_thread_id_t;
25
- typedef CRITICAL_SECTION rb_thread_lock_t;
26
- typedef struct rb_thread_cond_struct {
27
- struct cond_event_entry *next;
28
- struct cond_event_entry *prev;
29
- } rb_thread_cond_t;
30
-
31
- typedef struct native_thread_data_struct {
32
- HANDLE interrupt_event;
33
- } native_thread_data_t;
34
-
35
- typedef struct rb_global_vm_lock_struct {
36
- HANDLE lock;
37
- } rb_global_vm_lock_t;
38
-
39
- #endif /* RUBY_THREAD_WIN32_H */
40
-
@@ -1,21 +0,0 @@
1
- #ifndef RUBY_TIMEV_H
2
- #define RUBY_TIMEV_H
3
-
4
- struct vtm {
5
- VALUE year; /* 2000 for example. Integer. */
6
- int mon; /* 1..12 */
7
- int mday; /* 1..31 */
8
- int hour; /* 0..23 */
9
- int min; /* 0..59 */
10
- int sec; /* 0..60 */
11
- VALUE subsecx; /* 0 <= subsecx < TIME_SCALE. possibly Rational. */
12
- VALUE utc_offset; /* -3600 as -01:00 for example. possibly Rational. */
13
- int wday; /* 0:Sunday, 1:Monday, ..., 6:Saturday */
14
- int yday; /* 1..366 */
15
- int isdst; /* 0:StandardTime 1:DayLightSavingTime */
16
- const char *zone; /* "JST", "EST", "EDT", etc. */
17
- };
18
-
19
- #define TIME_SCALE 1000000000
20
-
21
- #endif
@@ -1,117 +0,0 @@
1
- /**********************************************************************
2
-
3
- transcode_data.h -
4
-
5
- $Author: nobu $
6
- created at: Mon 10 Dec 2007 14:01:47 JST 2007
7
-
8
- Copyright (C) 2007 Martin Duerst
9
-
10
- **********************************************************************/
11
-
12
- #include "ruby/ruby.h"
13
-
14
- #ifndef RUBY_TRANSCODE_DATA_H
15
- #define RUBY_TRANSCODE_DATA_H 1
16
-
17
- #if defined __GNUC__ && __GNUC__ >= 4
18
- #pragma GCC visibility push(default)
19
- #endif
20
-
21
- #define WORDINDEX_SHIFT_BITS 2
22
- #define WORDINDEX2INFO(widx) ((widx) << WORDINDEX_SHIFT_BITS)
23
- #define INFO2WORDINDEX(info) ((info) >> WORDINDEX_SHIFT_BITS)
24
- #define BYTE_LOOKUP_BASE(bl) ((bl)[0])
25
- #define BYTE_LOOKUP_INFO(bl) ((bl)[1])
26
-
27
- #define PType (unsigned int)
28
-
29
- #define NOMAP (PType 0x01) /* direct map */
30
- #define ONEbt (0x02) /* one byte payload */
31
- #define TWObt (0x03) /* two bytes payload */
32
- #define THREEbt (0x05) /* three bytes payload */
33
- #define FOURbt (0x06) /* four bytes payload, UTF-8 only, macros start at getBT0 */
34
- #define INVALID (PType 0x07) /* invalid byte sequence */
35
- #define UNDEF (PType 0x09) /* legal but undefined */
36
- #define ZERObt (PType 0x0A) /* zero bytes of payload, i.e. remove */
37
- #define FUNii (PType 0x0B) /* function from info to info */
38
- #define FUNsi (PType 0x0D) /* function from start to info */
39
- #define FUNio (PType 0x0E) /* function from info to output */
40
- #define FUNso (PType 0x0F) /* function from start to output */
41
- #define STR1 (PType 0x11) /* string 4 <= len <= 259 bytes: 1byte length + content */
42
- #define GB4bt (PType 0x12) /* GB18030 four bytes payload */
43
- #define FUNsio (PType 0x13) /* function from start and info to output */
44
-
45
- #define STR1_LENGTH(byte_addr) (unsigned int)(*(byte_addr) + 4)
46
- #define STR1_BYTEINDEX(w) ((w) >> 6)
47
- #define makeSTR1(bi) (((bi) << 6) | STR1)
48
- #define makeSTR1LEN(len) ((len)-4)
49
-
50
- #define o1(b1) (PType((((unsigned char)(b1))<<8)|ONEbt))
51
- #define o2(b1,b2) (PType((((unsigned char)(b1))<<8)|(((unsigned char)(b2))<<16)|TWObt))
52
- #define o3(b1,b2,b3) (PType(((((unsigned char)(b1))<<8)|(((unsigned char)(b2))<<16)|(((unsigned int)(unsigned char)(b3))<<24)|THREEbt)&0xffffffffU))
53
- #define o4(b0,b1,b2,b3) (PType(((((unsigned char)(b1))<<8)|(((unsigned char)(b2))<<16)|(((unsigned char)(b3))<<24)|((((unsigned char)(b0))&0x07)<<5)|FOURbt)&0xffffffffU))
54
- #define g4(b0,b1,b2,b3) (PType(((((unsigned char)(b0))<<8)|(((unsigned char)(b2))<<16)|((((unsigned char)(b1))&0x0f)<<24)|((((unsigned int)(unsigned char)(b3))&0x0f)<<28)|GB4bt)&0xffffffffU))
55
- #define funsio(diff) (PType((((unsigned int)(diff))<<8)|FUNsio))
56
-
57
- #define getBT1(a) ((unsigned char)((a)>> 8))
58
- #define getBT2(a) ((unsigned char)((a)>>16))
59
- #define getBT3(a) ((unsigned char)((a)>>24))
60
- #define getBT0(a) (((unsigned char)((a)>> 5)&0x07)|0xF0) /* for UTF-8 only!!! */
61
-
62
- #define getGB4bt0(a) ((unsigned char)((a)>> 8))
63
- #define getGB4bt1(a) (((unsigned char)((a)>>24)&0x0F)|0x30)
64
- #define getGB4bt2(a) ((unsigned char)((a)>>16))
65
- #define getGB4bt3(a) (((unsigned char)((a)>>28)&0x0F)|0x30)
66
-
67
- #define o2FUNii(b1,b2) (PType((((unsigned char)(b1))<<8)|(((unsigned char)(b2))<<16)|FUNii))
68
-
69
- /* do we need these??? maybe not, can be done with simple tables */
70
- #define ONETRAIL /* legal but undefined if one more trailing UTF-8 */
71
- #define TWOTRAIL /* legal but undefined if two more trailing UTF-8 */
72
- #define THREETRAIL /* legal but undefined if three more trailing UTF-8 */
73
-
74
- typedef enum {
75
- asciicompat_converter, /* ASCII-compatible -> ASCII-compatible */
76
- asciicompat_decoder, /* ASCII-incompatible -> ASCII-compatible */
77
- asciicompat_encoder /* ASCII-compatible -> ASCII-incompatible */
78
- /* ASCII-incompatible -> ASCII-incompatible is intentionally omitted. */
79
- } rb_transcoder_asciicompat_type_t;
80
-
81
- typedef struct rb_transcoder rb_transcoder;
82
-
83
- /* static structure, one per supported encoding pair */
84
- struct rb_transcoder {
85
- const char *src_encoding;
86
- const char *dst_encoding;
87
- unsigned int conv_tree_start;
88
- const unsigned char *byte_array;
89
- unsigned int byte_array_length;
90
- const unsigned int *word_array;
91
- unsigned int word_array_length;
92
- int word_size;
93
- int input_unit_length;
94
- int max_input;
95
- int max_output;
96
- rb_transcoder_asciicompat_type_t asciicompat_type;
97
- size_t state_size;
98
- int (*state_init_func)(void*); /* ret==0:success ret!=0:failure(errno) */
99
- int (*state_fini_func)(void*); /* ret==0:success ret!=0:failure(errno) */
100
- VALUE (*func_ii)(void*, VALUE); /* info -> info */
101
- VALUE (*func_si)(void*, const unsigned char*, size_t); /* start -> info */
102
- ssize_t (*func_io)(void*, VALUE, const unsigned char*, size_t); /* info -> output */
103
- ssize_t (*func_so)(void*, const unsigned char*, size_t, unsigned char*, size_t); /* start -> output */
104
- ssize_t (*finish_func)(void*, unsigned char*, size_t); /* -> output */
105
- ssize_t (*resetsize_func)(void*); /* -> len */
106
- ssize_t (*resetstate_func)(void*, unsigned char*, size_t); /* -> output */
107
- ssize_t (*func_sio)(void*, const unsigned char*, size_t, VALUE, unsigned char*, size_t); /* start -> output */
108
- };
109
-
110
- void rb_declare_transcoder(const char *enc1, const char *enc2, const char *lib);
111
- void rb_register_transcoder(const rb_transcoder *);
112
-
113
- #if defined __GNUC__ && __GNUC__ >= 4
114
- #pragma GCC visibility pop
115
- #endif
116
-
117
- #endif /* RUBY_TRANSCODE_DATA_H */