source: EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tCharPointer.c@ 270

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

mruby版ECNLプロトタイピング・ツールを追加

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
  • Property svn:mime-type set to text/x-csrc
File size: 1.4 KB
Line 
1/* #[<PREAMBLE>]#
2 * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください
3 * tecsmerge によるマージに使用されます
4 *
5 * #[</PREAMBLE>]# */
6
7/* プロトタイプ宣言や変数の定義をここに書きます #_PAC_# */
8#include "nMruby_tCharPointer_tecsgen.h"
9
10#ifndef E_OK
11#define E_OK 0 /* success */
12#define E_ID (-18) /* illegal ID */
13#endif
14
15GET_SET_INT( Char, char_t )
16POINTER_CLASS( Char, char_t )
17#ifndef TECS_Use_MrbString_for_CharPointer
18CHECK_AND_GET_POINTER( Char, char_t )
19#else
20CHECK_AND_GET_CHAR_POINTER( Char, char_t )
21CHECK_AND_GET_CHAR_POINTER_MOD( Char, char_t )
22#endif
23
24/* 受け口関数 #_TEPF_# */
25/* #[<ENTRY_PORT>]# eInitialize
26 * entry port: eInitialize
27 * signature: nMruby_sInitializeTECSBridge
28 * context: task
29 * #[</ENTRY_PORT>]# */
30
31/* #[<ENTRY_FUNC>]# eInitialize_initializeBridge
32 * name: eInitialize_initializeBridge
33 * global_name: nMruby_tCharPointer_eInitialize_initializeBridge
34 * oneway: false
35 * #[</ENTRY_FUNC>]# */
36void
37eInitialize_initializeBridge(mrb_state* mrb, struct RClass * TECS)
38{
39 struct RClass *c;
40
41 /* ここに処理本体を記述します #_TEFB_# */
42 c = tecs_init_CharPointer( mrb, TECS );
43 mrb_define_method(mrb, c, "to_s", CharPointer_to_s, MRB_ARGS_NONE());
44 mrb_define_method(mrb, c, "from_s", CharPointer_from_s, MRB_ARGS_REQ(1));
45
46}
47
48/* #[<POSTAMBLE>]#
49 * これより下に非受け口関数を書きます
50 * #[</POSTAMBLE>]#*/
Note: See TracBrowser for help on using the repository browser.