[270] | 1 | /*
|
---|
| 2 | ** mruby/boxing_word.h - word boxing mrb_value definition
|
---|
| 3 | **
|
---|
| 4 | ** See Copyright Notice in mruby.h
|
---|
| 5 | */
|
---|
| 6 |
|
---|
| 7 | #ifndef MRUBY_BOXING_WORD_H
|
---|
| 8 | #define MRUBY_BOXING_WORD_H
|
---|
| 9 |
|
---|
| 10 | #if defined(MRB_INT16)
|
---|
| 11 | # error MRB_INT16 is too small for MRB_WORD_BOXING.
|
---|
| 12 | #endif
|
---|
| 13 |
|
---|
[331] | 14 | #if defined(MRB_INT64) && !defined(MRB_64BIT)
|
---|
| 15 | #error MRB_INT64 cannot be used with MRB_WORD_BOXING in 32-bit mode.
|
---|
| 16 | #endif
|
---|
| 17 |
|
---|
[270] | 18 | struct RFloat {
|
---|
| 19 | MRB_OBJECT_HEADER;
|
---|
| 20 | mrb_float f;
|
---|
| 21 | };
|
---|
| 22 |
|
---|
| 23 | struct RCptr {
|
---|
| 24 | MRB_OBJECT_HEADER;
|
---|
| 25 | void *p;
|
---|
| 26 | };
|
---|
| 27 |
|
---|
| 28 | #define MRB_FIXNUM_SHIFT 1
|
---|
| 29 | #define MRB_TT_HAS_BASIC MRB_TT_FLOAT
|
---|
| 30 |
|
---|
| 31 | enum mrb_special_consts {
|
---|
| 32 | MRB_Qnil = 0,
|
---|
| 33 | MRB_Qfalse = 2,
|
---|
| 34 | MRB_Qtrue = 4,
|
---|
| 35 | MRB_Qundef = 6,
|
---|
| 36 | };
|
---|
| 37 |
|
---|
| 38 | #define MRB_FIXNUM_FLAG 0x01
|
---|
| 39 | #define MRB_SYMBOL_FLAG 0x0e
|
---|
| 40 | #define MRB_SPECIAL_SHIFT 8
|
---|
| 41 |
|
---|
| 42 | typedef union mrb_value {
|
---|
| 43 | union {
|
---|
| 44 | void *p;
|
---|
| 45 | struct {
|
---|
| 46 | unsigned int i_flag : MRB_FIXNUM_SHIFT;
|
---|
| 47 | mrb_int i : (MRB_INT_BIT - MRB_FIXNUM_SHIFT);
|
---|
| 48 | };
|
---|
| 49 | struct {
|
---|
| 50 | unsigned int sym_flag : MRB_SPECIAL_SHIFT;
|
---|
| 51 | mrb_sym sym : (sizeof(mrb_sym) * CHAR_BIT);
|
---|
| 52 | };
|
---|
| 53 | struct RBasic *bp;
|
---|
| 54 | struct RFloat *fp;
|
---|
| 55 | struct RCptr *vp;
|
---|
| 56 | } value;
|
---|
| 57 | unsigned long w;
|
---|
| 58 | } mrb_value;
|
---|
| 59 |
|
---|
| 60 | MRB_API mrb_value mrb_word_boxing_cptr_value(struct mrb_state*, void*);
|
---|
| 61 | MRB_API mrb_value mrb_word_boxing_float_value(struct mrb_state*, mrb_float);
|
---|
| 62 | MRB_API mrb_value mrb_word_boxing_float_pool(struct mrb_state*, mrb_float);
|
---|
| 63 |
|
---|
| 64 | #define mrb_float_pool(mrb,f) mrb_word_boxing_float_pool(mrb,f)
|
---|
| 65 |
|
---|
| 66 | #define mrb_ptr(o) (o).value.p
|
---|
| 67 | #define mrb_cptr(o) (o).value.vp->p
|
---|
| 68 | #define mrb_float(o) (o).value.fp->f
|
---|
[331] | 69 | #define mrb_fixnum(o) ((mrb_int)(o).value.i)
|
---|
[270] | 70 | #define mrb_symbol(o) (o).value.sym
|
---|
| 71 |
|
---|
| 72 | static inline enum mrb_vtype
|
---|
| 73 | mrb_type(mrb_value o)
|
---|
| 74 | {
|
---|
| 75 | switch (o.w) {
|
---|
| 76 | case MRB_Qfalse:
|
---|
| 77 | case MRB_Qnil:
|
---|
| 78 | return MRB_TT_FALSE;
|
---|
| 79 | case MRB_Qtrue:
|
---|
| 80 | return MRB_TT_TRUE;
|
---|
| 81 | case MRB_Qundef:
|
---|
| 82 | return MRB_TT_UNDEF;
|
---|
| 83 | }
|
---|
| 84 | if (o.value.i_flag == MRB_FIXNUM_FLAG) {
|
---|
| 85 | return MRB_TT_FIXNUM;
|
---|
| 86 | }
|
---|
| 87 | if (o.value.sym_flag == MRB_SYMBOL_FLAG) {
|
---|
| 88 | return MRB_TT_SYMBOL;
|
---|
| 89 | }
|
---|
| 90 | return o.value.bp->tt;
|
---|
| 91 | }
|
---|
| 92 |
|
---|
| 93 | #define mrb_bool(o) ((o).w != MRB_Qnil && (o).w != MRB_Qfalse)
|
---|
| 94 | #define mrb_fixnum_p(o) ((o).value.i_flag == MRB_FIXNUM_FLAG)
|
---|
| 95 | #define mrb_undef_p(o) ((o).w == MRB_Qundef)
|
---|
| 96 | #define mrb_nil_p(o) ((o).w == MRB_Qnil)
|
---|
| 97 |
|
---|
[331] | 98 | #define BOXWORD_SET_VALUE(o, ttt, attr, v) do { \
|
---|
[270] | 99 | switch (ttt) {\
|
---|
| 100 | case MRB_TT_FALSE: (o).w = (v) ? MRB_Qfalse : MRB_Qnil; break;\
|
---|
| 101 | case MRB_TT_TRUE: (o).w = MRB_Qtrue; break;\
|
---|
| 102 | case MRB_TT_UNDEF: (o).w = MRB_Qundef; break;\
|
---|
[331] | 103 | case MRB_TT_FIXNUM: (o).w = 0;(o).value.i_flag = MRB_FIXNUM_FLAG; (o).attr = (v); break;\
|
---|
| 104 | case MRB_TT_SYMBOL: (o).w = 0;(o).value.sym_flag = MRB_SYMBOL_FLAG; (o).attr = (v); break;\
|
---|
[270] | 105 | default: (o).w = 0; (o).attr = (v); if ((o).value.bp) (o).value.bp->tt = ttt; break;\
|
---|
| 106 | }\
|
---|
| 107 | } while (0)
|
---|
| 108 |
|
---|
| 109 | #define SET_FLOAT_VALUE(mrb,r,v) r = mrb_word_boxing_float_value(mrb, v)
|
---|
| 110 | #define SET_CPTR_VALUE(mrb,r,v) r = mrb_word_boxing_cptr_value(mrb, v)
|
---|
| 111 | #define SET_NIL_VALUE(r) BOXWORD_SET_VALUE(r, MRB_TT_FALSE, value.i, 0)
|
---|
| 112 | #define SET_FALSE_VALUE(r) BOXWORD_SET_VALUE(r, MRB_TT_FALSE, value.i, 1)
|
---|
| 113 | #define SET_TRUE_VALUE(r) BOXWORD_SET_VALUE(r, MRB_TT_TRUE, value.i, 1)
|
---|
| 114 | #define SET_BOOL_VALUE(r,b) BOXWORD_SET_VALUE(r, b ? MRB_TT_TRUE : MRB_TT_FALSE, value.i, 1)
|
---|
| 115 | #define SET_INT_VALUE(r,n) BOXWORD_SET_VALUE(r, MRB_TT_FIXNUM, value.i, (n))
|
---|
| 116 | #define SET_SYM_VALUE(r,v) BOXWORD_SET_VALUE(r, MRB_TT_SYMBOL, value.sym, (v))
|
---|
| 117 | #define SET_OBJ_VALUE(r,v) BOXWORD_SET_VALUE(r, (((struct RObject*)(v))->tt), value.p, (v))
|
---|
| 118 | #define SET_UNDEF_VALUE(r) BOXWORD_SET_VALUE(r, MRB_TT_UNDEF, value.i, 0)
|
---|
| 119 |
|
---|
| 120 | #endif /* MRUBY_BOXING_WORD_H */
|
---|