[352] | 1 | /*
|
---|
| 2 | * mruby => TECS brige
|
---|
| 3 | *
|
---|
| 4 | * Copyright (C) 2008-2012 by TOPPERS Project
|
---|
| 5 | *--
|
---|
| 6 | * 上記著作権者は,以下の(1)(4)の条件を満たす場合に限り,本ソフトウェ
|
---|
| 7 | * ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改
|
---|
| 8 | * 変・再配布(以下,利用と呼ぶ)することを無償で許諾する.
|
---|
| 9 | * (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
|
---|
| 10 | * 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
|
---|
| 11 | * スコード中に含まれていること.
|
---|
| 12 | * (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
|
---|
| 13 | * 用できる形で再配布する場合には,再配布に伴うドキュメント(利用
|
---|
| 14 | * 者マニュアルなど)に,上記の著作権表示,この利用条件および下記
|
---|
| 15 | * の無保証規定を掲載すること.
|
---|
| 16 | * (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
|
---|
| 17 | * 用できない形で再配布する場合には,次のいずれかの条件を満たすこ
|
---|
| 18 | * と.
|
---|
| 19 | * (a) 再配布に伴うドキュメント(利用者マニュアルなど)に,上記の著
|
---|
| 20 | * 作権表示,この利用条件および下記の無保証規定を掲載すること.
|
---|
| 21 | * (b) 再配布の形態を,別に定める方法によって,TOPPERSプロジェクトに
|
---|
| 22 | * 報告すること.
|
---|
| 23 | * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
|
---|
| 24 | * 害からも,上記著作権者およびTOPPERSプロジェクトを免責すること.
|
---|
| 25 | * また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理
|
---|
| 26 | * 由に基づく請求からも,上記著作権者およびTOPPERSプロジェクトを
|
---|
| 27 | * 免責すること.
|
---|
| 28 | *
|
---|
| 29 | * 本ソフトウェアは,無保証で提供されているものである.上記著作権者お
|
---|
| 30 | * よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的
|
---|
| 31 | * に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ
|
---|
| 32 | * アの利用により直接的または間接的に生じたいかなる損害に関しても,そ
|
---|
| 33 | * の責任を負わない.
|
---|
| 34 | *
|
---|
| 35 | * $Id$
|
---|
| 36 | */
|
---|
| 37 |
|
---|
| 38 | #ifndef TECSStruct_h__
|
---|
| 39 | #define TECSStruct_h__
|
---|
| 40 |
|
---|
| 41 | #define MEMBER_GET_SET_INT( TAG, MEMBER, Type, TYPE ) \
|
---|
| 42 | static mrb_value \
|
---|
| 43 | Struct_ ## TAG ## _ ## MEMBER ## _aget(mrb_state *mrb, mrb_value self) \
|
---|
| 44 | { \
|
---|
| 45 | struct TAG *st = DATA_PTR( self ); \
|
---|
| 46 | TYPE ## _t val; \
|
---|
| 47 | \
|
---|
| 48 | val = st->MEMBER; \
|
---|
| 49 | VALCHECK_MRB_ ## Type( mrb, val ); \
|
---|
| 50 | return mrb_fixnum_value( val ); \
|
---|
| 51 | } \
|
---|
| 52 | \
|
---|
| 53 | static mrb_value \
|
---|
| 54 | Struct_ ## TAG ## _ ## MEMBER ## _aset(mrb_state *mrb, mrb_value self) \
|
---|
| 55 | { \
|
---|
| 56 | struct TAG *st = DATA_PTR( self ); \
|
---|
| 57 | mrb_int val; \
|
---|
| 58 | \
|
---|
| 59 | mrb_get_args(mrb, "i", &val ); \
|
---|
| 60 | \
|
---|
| 61 | VALCHECK_ ## Type ( mrb, val ); \
|
---|
| 62 | st->MEMBER = val; \
|
---|
| 63 | \
|
---|
| 64 | return self; \
|
---|
| 65 | }
|
---|
| 66 |
|
---|
| 67 | #define MEMBER_GET_SET_FLOAT( TAG, MEMBER ) \
|
---|
| 68 | static mrb_value \
|
---|
| 69 | Struct_ ## TAG ## _ ## MEMBER ## _aget(mrb_state *mrb, mrb_value self) \
|
---|
| 70 | { \
|
---|
| 71 | struct TAG *st = DATA_PTR( self ); \
|
---|
| 72 | \
|
---|
| 73 | return mrb_float_value( mrb, st->MEMBER ); \
|
---|
| 74 | } \
|
---|
| 75 | \
|
---|
| 76 | static mrb_value \
|
---|
| 77 | Struct_ ## TAG ## _ ## MEMBER ## _aset(mrb_state *mrb, mrb_value self) \
|
---|
| 78 | { \
|
---|
| 79 | struct TAG *st = DATA_PTR( self ); \
|
---|
| 80 | mrb_float val; \
|
---|
| 81 | \
|
---|
| 82 | mrb_get_args(mrb, "f", &val ); \
|
---|
| 83 | \
|
---|
| 84 | st->MEMBER = val; \
|
---|
| 85 | \
|
---|
| 86 | return self; \
|
---|
| 87 | }
|
---|
| 88 |
|
---|
| 89 | //// define Struct class ////
|
---|
| 90 | #define STRUCT_CLASS( TAG ) \
|
---|
| 91 | \
|
---|
| 92 | static void \
|
---|
| 93 | Struct ## TAG ## Body_free( mrb_state *mrb, void *p ) \
|
---|
| 94 | { \
|
---|
| 95 | (void)mrb_free( mrb, p ); \
|
---|
| 96 | } \
|
---|
| 97 | \
|
---|
| 98 | struct mrb_data_type Struct ## TAG ## Body_mrb_data_type = \
|
---|
| 99 | { \
|
---|
| 100 | "TECS::Struct" #TAG, \
|
---|
| 101 | Struct ## TAG ## Body_free \
|
---|
| 102 | }; \
|
---|
| 103 | \
|
---|
| 104 | static mrb_value \
|
---|
| 105 | Struct_ ## TAG ## _initialize( mrb_state *mrb, mrb_value self) \
|
---|
| 106 | { \
|
---|
| 107 | \
|
---|
| 108 | DATA_TYPE( self ) = &Struct ## TAG ## Body_mrb_data_type; \
|
---|
| 109 | DATA_PTR( self ) = mrb_malloc(mrb, sizeof(struct TAG)); \
|
---|
| 110 | \
|
---|
| 111 | return self; \
|
---|
| 112 | }
|
---|
| 113 |
|
---|
| 114 | #define STRUCT_INIT_BEGIN( TAG ) \
|
---|
| 115 | struct RClass * \
|
---|
| 116 | tecs_init_Struct_## TAG(mrb_state *mrb, struct RClass *TECS) \
|
---|
| 117 | { \
|
---|
| 118 | struct RClass *a; \
|
---|
| 119 | \
|
---|
| 120 | a = mrb_define_class_under(mrb, TECS, "Struct" #TAG, mrb->object_class); \
|
---|
| 121 | MRB_SET_INSTANCE_TT(a, MRB_TT_DATA); \
|
---|
| 122 | \
|
---|
| 123 | mrb_define_method(mrb, a, "initialize", Struct_ ## TAG ## _initialize, MRB_ARGS_NONE());
|
---|
| 124 |
|
---|
| 125 | #define STRUCT_INIT_MEMBER( TAG, MEMBER ) \
|
---|
| 126 | mrb_define_method(mrb, a, #MEMBER, Struct_ ## TAG ## _ ## MEMBER ## _aget, MRB_ARGS_NONE()); \
|
---|
| 127 | mrb_define_method(mrb, a, #MEMBER "=", Struct_ ## TAG ## _ ## MEMBER ## _aset, MRB_ARGS_REQ(1));
|
---|
| 128 |
|
---|
| 129 |
|
---|
| 130 | #define STRUCT_INIT_END( TAG ) \
|
---|
| 131 | }
|
---|
| 132 |
|
---|
| 133 | #define CHECK_STRUCT( tag, value ) \
|
---|
| 134 | do { \
|
---|
| 135 | if( mrb_type(value) != MRB_TT_DATA \
|
---|
| 136 | || DATA_TYPE( value ) == 0 \
|
---|
| 137 | || strcmp( DATA_TYPE( value )->struct_name, "TECS::Struct" #tag ) ) \
|
---|
| 138 | mrb_raise(mrb, E_TYPE_ERROR, "not Struct or tag mismatch"); \
|
---|
| 139 | }while(0)
|
---|
| 140 |
|
---|
| 141 | #endif /* TECSStruct_h__ */
|
---|