1 | # -*- coding: utf-8 -*-
|
---|
2 | #
|
---|
3 | # mruby => TECS bridge
|
---|
4 | #
|
---|
5 | # Copyright (C) 2008-2014 by TOPPERS Project
|
---|
6 | #
|
---|
7 | # ä¸è¨èä½æ¨©è
|
---|
8 | ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
|
---|
9 | # ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹
|
---|
10 | # å¤ã»åé
|
---|
11 | å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
---|
12 | # (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
---|
13 | # 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
---|
14 | # ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
---|
15 | # (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
16 | # ç¨ã§ããå½¢ã§åé
|
---|
17 | å¸ããå ´åã«ã¯ï¼åé
|
---|
18 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
---|
19 | # è
|
---|
20 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
---|
21 | # ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
22 | # (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
23 | # ç¨ã§ããªãå½¢ã§åé
|
---|
24 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
---|
25 | # ã¨ï¼
|
---|
26 | # (a) åé
|
---|
27 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
---|
28 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
---|
29 | # ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
30 | # (b) åé
|
---|
31 | å¸ã®å½¢æ
|
---|
32 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
---|
33 | # å ±åãããã¨ï¼
|
---|
34 | # (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
---|
35 | # 害ãããï¼ä¸è¨èä½æ¨©è
|
---|
36 | ããã³TOPPERSããã¸ã§ã¯ããå
|
---|
37 | 責ãããã¨ï¼
|
---|
38 | # ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç
|
---|
39 | # ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è
|
---|
40 | ããã³TOPPERSããã¸ã§ã¯ãã
|
---|
41 | # å
|
---|
42 | 責ãããã¨ï¼
|
---|
43 | #
|
---|
44 | # æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
---|
45 | ã
|
---|
46 | # ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç
|
---|
47 | # ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§
|
---|
48 | # ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã
|
---|
49 | # ã®è²¬ä»»ãè² ããªãï¼
|
---|
50 | #
|
---|
51 | # $Id: Mruby2CBridgePlugin.rb 1011 2016-07-11 02:20:01Z coas-nagasima $
|
---|
52 | #
|
---|
53 |
|
---|
54 | class Mruby2CBridgePlugin < SignaturePlugin
|
---|
55 | @@signature_list = { }
|
---|
56 |
|
---|
57 | def initialize( signature, option )
|
---|
58 | super
|
---|
59 |
|
---|
60 | @celltype_name = :"t#{@signature.get_global_name}"
|
---|
61 | @class_name = :"T#{@signature.get_global_name}"
|
---|
62 |
|
---|
63 | parse_plugin_arg
|
---|
64 | end
|
---|
65 |
|
---|
66 | def gen_cdl_file( file )
|
---|
67 | if( @@signature_list.length == 0 )then
|
---|
68 | print_msg " Mruby2CBridgePlugin: [initialize function] 'void initializeBridge( mrb_state *mrb )' must be called from VM.\n"
|
---|
69 | c2tecs = "generate( C2TECSBridgePlugin, nMruby::sInitializeBridge, \"silent=true\" );\n"
|
---|
70 | end
|
---|
71 |
|
---|
72 | if @@signature_list[ @signature.get_global_name ] then
|
---|
73 | @@signature_list[ @signature.get_global_name ] << self
|
---|
74 | cdl_warning( "MRCW001 signature '$1' duplicate. ignored current one", @signature.get_namespace_path )
|
---|
75 | return
|
---|
76 | end
|
---|
77 |
|
---|
78 | @@signature_list[ @signature.get_global_name ] = [self]
|
---|
79 | print_msg " Mruby2CBridgePlugin: [object creattion] object = TECS::#{@class_name}.new( 'C#{@signature.get_global_name}' )\n"
|
---|
80 | print_msg " Mruby2CBridgePlugin: [function call] result = object.function( params ) # substitute 'function' and params \n"
|
---|
81 |
|
---|
82 | cf = CFile.open( "#{$gen}/Mruby2C_tsInitializerBridge.cdl", "w")
|
---|
83 | cf.print <<EOT
|
---|
84 | cell nC2TECS::tnMruby_sInitializeBridge C2TECS_tsInitializeBridge{
|
---|
85 | cCall = VM_TECSInitializer.eInitialize;
|
---|
86 | };
|
---|
87 | EOT
|
---|
88 | cf.close
|
---|
89 |
|
---|
90 | file.print <<EOT
|
---|
91 | generate( MrubyBridgePlugin, #{@signature.get_namespace_path}, "silent=true" );
|
---|
92 | generate( TECS2CBridgePlugin, #{@signature.get_namespace_path}, "silent=true" );
|
---|
93 | #{c2tecs}
|
---|
94 | cell nMruby::t#{@signature.get_name} C#{@signature.get_name}{
|
---|
95 | cTECS = TECS2C_#{@signature.get_name}.eEnt;
|
---|
96 | };
|
---|
97 | cell nTECS2C::t#{@signature.get_name} TECS2C_#{@signature.get_name}{};
|
---|
98 |
|
---|
99 | import( "Mruby2C_tsInitializerBridge.cdl" );
|
---|
100 | EOT
|
---|
101 |
|
---|
102 | end
|
---|
103 | end
|
---|