source: asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/mruby/TECSStruct.h@ 337

Last change on this file since 337 was 337, checked in by coas-nagasima, 6 years ago

ASP3版ECNLを追加
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-chdr;charset=UTF-8
File size: 5.9 KB
Line 
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: TECSStruct.h 2634 2017-04-08 12:28:00Z okuma-top $
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__ */
Note: See TracBrowser for help on using the repository browser.