1 | /*
|
---|
2 | ** mruby/boxing_no.h - unboxed mrb_value definition
|
---|
3 | **
|
---|
4 | ** See Copyright Notice in mruby.h
|
---|
5 | */
|
---|
6 |
|
---|
7 | #ifndef MRUBY_BOXING_NO_H
|
---|
8 | #define MRUBY_BOXING_NO_H
|
---|
9 |
|
---|
10 | #define MRB_FIXNUM_SHIFT 0
|
---|
11 | #define MRB_TT_HAS_BASIC MRB_TT_OBJECT
|
---|
12 |
|
---|
13 | typedef struct mrb_value {
|
---|
14 | union {
|
---|
15 | mrb_float f;
|
---|
16 | void *p;
|
---|
17 | mrb_int i;
|
---|
18 | mrb_sym sym;
|
---|
19 | } value;
|
---|
20 | enum mrb_vtype tt;
|
---|
21 | } mrb_value;
|
---|
22 |
|
---|
23 | #define mrb_float_pool(mrb,f) mrb_float_value(mrb,f)
|
---|
24 |
|
---|
25 | #define mrb_ptr(o) (o).value.p
|
---|
26 | #define mrb_cptr(o) mrb_ptr(o)
|
---|
27 | #define mrb_float(o) (o).value.f
|
---|
28 | #define mrb_fixnum(o) (o).value.i
|
---|
29 | #define mrb_symbol(o) (o).value.sym
|
---|
30 | #define mrb_type(o) (o).tt
|
---|
31 |
|
---|
32 | #define BOXNIX_SET_VALUE(o, ttt, attr, v) do {\
|
---|
33 | (o).tt = ttt;\
|
---|
34 | (o).attr = v;\
|
---|
35 | } while (0)
|
---|
36 |
|
---|
37 | #define SET_NIL_VALUE(r) BOXNIX_SET_VALUE(r, MRB_TT_FALSE, value.i, 0)
|
---|
38 | #define SET_FALSE_VALUE(r) BOXNIX_SET_VALUE(r, MRB_TT_FALSE, value.i, 1)
|
---|
39 | #define SET_TRUE_VALUE(r) BOXNIX_SET_VALUE(r, MRB_TT_TRUE, value.i, 1)
|
---|
40 | #define SET_BOOL_VALUE(r,b) BOXNIX_SET_VALUE(r, b ? MRB_TT_TRUE : MRB_TT_FALSE, value.i, 1)
|
---|
41 | #define SET_INT_VALUE(r,n) BOXNIX_SET_VALUE(r, MRB_TT_FIXNUM, value.i, (n))
|
---|
42 | #define SET_FLOAT_VALUE(mrb,r,v) BOXNIX_SET_VALUE(r, MRB_TT_FLOAT, value.f, (v))
|
---|
43 | #define SET_SYM_VALUE(r,v) BOXNIX_SET_VALUE(r, MRB_TT_SYMBOL, value.sym, (v))
|
---|
44 | #define SET_OBJ_VALUE(r,v) BOXNIX_SET_VALUE(r, (((struct RObject*)(v))->tt), value.p, (v))
|
---|
45 | #define SET_CPTR_VALUE(mrb,r,v) BOXNIX_SET_VALUE(r, MRB_TT_CPTR, value.p, v)
|
---|
46 | #define SET_UNDEF_VALUE(r) BOXNIX_SET_VALUE(r, MRB_TT_UNDEF, value.i, 0)
|
---|
47 |
|
---|
48 | #endif /* MRUBY_BOXING_NO_H */
|
---|