ruby/method.h at trunk · keeprubyweird/ruby · GitHub

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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
/**********************************************************************

 method.h -

 $Author$
 created at: Wed Jul 15 20:02:33 2009

 Copyright (C) 2009 Koichi Sasada

**********************************************************************/
#ifndefMETHOD_H
#defineMETHOD_H

#include"internal.h"

#ifndefEND_OF_ENUMERATION
# if defined(__GNUC__) &&! defined(__STRICT_ANSI__)
# defineEND_OF_ENUMERATION(key)
# else
# defineEND_OF_ENUMERATION(key) END_OF_##key##_PLACEHOLDER = 0
# endif
#endif

typedefenum {
NOEX_PUBLIC=0x00,
NOEX_NOSUPER=0x01,
NOEX_PRIVATE=0x02,
NOEX_PROTECTED=0x04,
NOEX_MASK=0x06,
NOEX_BASIC=0x08,
NOEX_UNDEF=NOEX_NOSUPER,
NOEX_MODFUNC=0x12,
NOEX_SUPER=0x20,
NOEX_VCALL=0x40,
NOEX_RESPONDS=0x80,

NOEX_BIT_WIDTH=8,
NOEX_SAFE_SHIFT_OFFSET= ((NOEX_BIT_WIDTH+3)/4)*4/* round up to nibble */
} rb_method_flag_t;

#defineNOEX_SAFE(n) ((int)((n) >> NOEX_SAFE_SHIFT_OFFSET) & 0x0F)
#defineNOEX_WITH(n, s) (((s) << NOEX_SAFE_SHIFT_OFFSET) | (n) | (ruby_running ? 0 : NOEX_BASIC))
#defineNOEX_WITH_SAFE(n) NOEX_WITH((n), rb_safe_level())

/* method data type */

typedefenum {
VM_METHOD_TYPE_ISEQ,
VM_METHOD_TYPE_CFUNC,
VM_METHOD_TYPE_ATTRSET,
VM_METHOD_TYPE_IVAR,
VM_METHOD_TYPE_BMETHOD,
VM_METHOD_TYPE_ZSUPER,
VM_METHOD_TYPE_UNDEF,
VM_METHOD_TYPE_NOTIMPLEMENTED,
VM_METHOD_TYPE_OPTIMIZED, /* Kernel#send, Proc#call, etc */
VM_METHOD_TYPE_MISSING, /* wrapper for method_missing(id) */
VM_METHOD_TYPE_REFINED,

END_OF_ENUMERATION(VM_METHOD_TYPE)
} rb_method_type_t;

structrb_call_info_struct;

typedefstructrb_method_cfunc_struct {
VALUE (*func)(ANYARGS);
VALUE (*invoker)(VALUE (*func)(ANYARGS), VALUErecv, intargc, constVALUE*argv);
intargc;
} rb_method_cfunc_t;

typedefstructrb_method_attr_struct {
IDid;
constVALUElocation;
} rb_method_attr_t;

typedefstructrb_iseq_structrb_iseq_t;

typedefstructrb_method_definition_struct {
rb_method_type_ttype; /* method type */
intalias_count;
IDoriginal_id;
union {
rb_iseq_t*constiseq; /* should be mark */
rb_method_cfunc_tcfunc;
rb_method_attr_tattr;
constVALUEproc; /* should be mark */
enummethod_optimized_type {
OPTIMIZED_METHOD_TYPE_SEND,
OPTIMIZED_METHOD_TYPE_CALL,

OPTIMIZED_METHOD_TYPE__MAX
	} optimize_type;
structrb_method_entry_struct*orig_me;
 } body;
} rb_method_definition_t;

typedefstructrb_method_entry_struct {
rb_method_flag_tflag;
charmark;
rb_method_definition_t*def;
IDcalled_id;
VALUEklass; /* should be mark */
} rb_method_entry_t;

structunlinked_method_entry_list_entry {
structunlinked_method_entry_list_entry*next;
rb_method_entry_t*me;
};

#defineUNDEFINED_METHOD_ENTRY_P(me) (!(me) || !(me)->def || (me)->def->type == VM_METHOD_TYPE_UNDEF)

voidrb_add_method_cfunc(VALUEklass, IDmid, VALUE (*func)(ANYARGS), intargc, rb_method_flag_tnoex);
rb_method_entry_t*rb_add_method(VALUEklass, IDmid, rb_method_type_ttype, void*option, rb_method_flag_tnoex);
rb_method_entry_t*rb_method_entry(VALUEklass, IDid, VALUE*define_class_ptr);
rb_method_entry_t*rb_method_entry_at(VALUEobj, IDid);
voidrb_add_refined_method_entry(VALUErefined_class, IDmid);
rb_method_entry_t*rb_resolve_refined_method(VALUErefinements,
constrb_method_entry_t*me,
VALUE*defined_class_ptr);
rb_method_entry_t*rb_method_entry_with_refinements(VALUEklass, IDid,
VALUE*defined_class_ptr);
rb_method_entry_t*rb_method_entry_without_refinements(VALUEklass, IDid,
VALUE*defined_class_ptr);

rb_method_entry_t*rb_method_entry_get_without_cache(VALUEklass, IDid, VALUE*define_class_ptr);
rb_method_entry_t*rb_method_entry_set(VALUEklass, IDmid, constrb_method_entry_t*, rb_method_flag_tnoex);

intrb_method_entry_arity(constrb_method_entry_t*me);
intrb_method_entry_eq(constrb_method_entry_t*m1, constrb_method_entry_t*m2);
st_index_trb_hash_method_entry(st_index_thash, constrb_method_entry_t*me);

VALUErb_method_entry_location(rb_method_entry_t*me);
VALUErb_mod_method_location(VALUEmod, IDid);
VALUErb_obj_method_location(VALUEobj, IDid);

voidrb_mark_method_entry(constrb_method_entry_t*me);
voidrb_free_method_entry(rb_method_entry_t*me);
voidrb_sweep_method_entry(void*vm);
voidrb_free_m_tbl_wrapper(structmethod_table_wrapper*wrapper);

#endif/* METHOD_H */