Changeset 321 for EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib
- Timestamp:
- Aug 23, 2017, 9:27:43 AM (7 years ago)
- Location:
- EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenHRP2Marshaler.rb
-
Property svn:mime-type
changed from
text/x-ruby
totext/x-ruby;charset=UTF-8
r270 r321 6 6 # Copyright (C) 2008-2014 by TOPPERS Project 7 7 #-- 8 # ä¸è¨èä½æ¨©è 9 ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ 10 # ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹ 11 # å¤ã»åé 12 å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼ 13 # (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½ 14 # 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼ 15 # ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼ 16 # (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 17 # ç¨ã§ããå½¢ã§åé 18 å¸ããå ´åã«ã¯ï¼åé 19 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨ 20 # è 21 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ 22 # ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 23 # (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 24 # ç¨ã§ããªãå½¢ã§åé 25 å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã 26 # ã¨ï¼ 27 # (a) åé 28 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è 29 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è 30 # ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 31 # (b) åé 32 å¸ã®å½¢æ 33 ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã« 34 # å ±åãããã¨ï¼ 35 # (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ 36 # 害ãããï¼ä¸è¨èä½æ¨©è 37 ããã³TOPPERSããã¸ã§ã¯ããå 38 責ãããã¨ï¼ 39 # ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç 40 # ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è 41 ããã³TOPPERSããã¸ã§ã¯ãã 42 # å 43 責ãããã¨ï¼ 8 # 上記著作権者は,以下の(1)~(4)の条件を満たす場合に限り,本ソフトウェ 9 # ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改 10 # 変・再配布(以下,利用と呼ぶ)することを無償で許諾する. 11 # (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作 12 # 権表示,この利用条件および下記の無保証規定が,そのままの形でソー 13 # スコード中に含まれていること. 14 # (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使 15 # 用できる形で再配布する場合には,再配布に伴うドキュメント(利用 16 # 者マニュアルなど)に,上記の著作権表示,この利用条件および下記 17 # の無保証規定を掲載すること. 18 # (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使 19 # 用できない形で再配布する場合には,次のいずれかの条件を満たすこ 20 # と. 21 # (a) 再配布に伴うドキュメント(利用者マニュアルなど)に,上記の著 22 # 作権表示,この利用条件および下記の無保証規定を掲載すること. 23 # (b) 再配布の形態を,別に定める方法によって,TOPPERSプロジェクトに 24 # 報告すること. 25 # (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損 26 # 害からも,上記著作権者およびTOPPERSプロジェクトを免責すること. 27 # また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理 28 # 由に基づく請求からも,上記著作権者およびTOPPERSプロジェクトを 29 # 免責すること. 44 30 # 45 # æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è 46 ã 47 # ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç 48 # ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ 49 # ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã 50 # ã®è²¬ä»»ãè² ããªãï¼ 31 # 本ソフトウェアは,無保証で提供されているものである.上記著作権者お 32 # よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的 33 # に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ 34 # アの利用により直接的または間接的に生じたいかなる損害に関しても,そ 35 # の責任を負わない. 51 36 # 52 37 #++ 53 38 54 # ãã©ã°ã¤ã³ãªãã·ã§ã³ç¨å¤æ°39 #プラグインオプション用変数 55 40 #@task_priority:: Integer 56 41 #@channelCelltype:: String … … 59 44 module GenTransparentMarshaler 60 45 61 # ãã©ã°ã¤ã³å¼æ°åã¨Proc46 # プラグイン引数名と Proc 62 47 RPCPluginArgProc = { 63 48 "taskPriority" => Proc.new { |obj,rhs| obj.set_taskPriority rhs }, … … 68 53 } 69 54 70 #=== ãã©ã°ã¤ã³å¼æ° taskPriority ã®ãã§ãã¯55 #=== プラグイン引数 taskPriority のチェック 71 56 def set_taskPriority( rhs ) 72 57 @task_priority = rhs 73 58 end 74 59 75 #=== ãã©ã°ã¤ã³å¼æ° channelCelltype ã®ãã§ãã¯60 #=== プラグイン引数 channelCelltype のチェック 76 61 def set_channelCelltype( rhs ) 77 62 @channelCelltype = rhs.to_sym … … 85 70 end 86 71 87 #=== ãã©ã°ã¤ã³å¼æ° TDRCelltype ã®ãã§ãã¯72 #=== プラグイン引数 TDRCelltype のチェック 88 73 def set_TDRCelltype( rhs ) 89 74 @TDRCelltype = rhs.to_sym … … 97 82 end 98 83 99 #=== ãã©ã°ã¤ã³å¼æ° channelCellName ã®ãã§ãã¯84 #=== プラグイン引数 channelCellName のチェック 100 85 def set_channelCellName( rhs ) 101 86 @channelCellName = rhs … … 107 92 end 108 93 109 #=== ãã©ã°ã¤ã³å¼æ° PPAllocatorSize ã®ãã§ãã¯94 #=== プラグイン引数 PPAllocatorSize のチェック 110 95 def set_PPAllocatorSize( rhs ) 111 96 @PPAllocatorSize = rhs 112 97 end 113 98 114 #=== marshaler ã®ã»ã«ã¿ã¤ãåãè¨å®ãã99 #=== marshaler のセルタイプ名を設定する 115 100 def initialize_transparent_marshaler cell_name 116 101 @task_priority = 8 … … 134 119 135 120 f = CFile.open( @marshaler_celltype_file_name, "w" ) 136 # åãå 137 容ãäºåº¦æ¸ãå¯è½æ§ãã (AppFile ã¯ä¸å¯) 121 # 同じ内容を二度書く可能性あり (AppFile は不可) 138 122 139 123 # modified by ishikawa … … 163 147 end 164 148 165 #=== åãå£é¢æ°ã®æ¬ä½ã³ã¼ããçæï¼é é¨ã¨æ«å°¾ã¯å¥éåºåï¼166 #ct_name:: Symbol (through ãã©ã°ã¤ã³ã§çæããã) ã»ã«ã¿ã¤ãå ï¼Symbol ã¨ãã¦éããã¦ããï¼ãããï¼149 #=== 受け口関数の本体コードを生成(頭部と末尾は別途出力) 150 #ct_name:: Symbol (through プラグインで生成された) セルタイプ名 .Symbol として送られてくる(らしい) 167 151 def gen_ep_func_body( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 168 152 169 # unmarshaler ã¯ã©ã¹ã?153 # unmarshaler クラスか? 170 154 if ct_name == @unmarshaler_celltype_name.to_sym then 171 155 gen_ep_func_body_unmarshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) … … 175 159 end 176 160 177 #=== marshal ã³ã¼ãã®çæ161 #=== marshal コードの生成 178 162 def gen_ep_func_body_marshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 179 163 … … 181 165 b_ret_er = false 182 166 183 # é¢æ°ã®æ»ãå¤ã®å 184 ã®åãå¾ã(typedef ããã¦ããå ´å) 167 # 関数の戻り値の元の型を得る(typedef されている場合) 185 168 type = func_type.get_type.get_original_type 186 169 187 # æ»ãå¤è¨æ¶ç¨ã®å¤æ°ãåºåï¼void åã®é¢æ°ã§ã¯åºåããªãï¼170 # 戻り値記憶用の変数を出力(void 型の関数では出力しない) 188 171 if ! type.kind_of?( VoidType ) then 189 172 if func_type.get_type.kind_of?( DefinedType ) && ( func_type.get_type.get_type_str == "ER" || func_type.get_type.get_type_str == "ER_INT" ) then … … 200 183 file.print( " FLGPTN flgptn;\n" ) 201 184 202 # å¼ã³å 203 ã® signature ãåãåºã 185 # 呼び先の signature を取り出す 204 186 signature = @signature 205 187 206 # é¢æ° ID ï¼æ´æ°å¤ï¼188 # 関数 ID (整数値) 207 189 func_id = signature.get_id_from_func_name( func_name ) 208 190 file.print( " int16_t func_id_ = #{func_id}; /* id of #{func_name}: #{func_id} */\n" ) … … 210 192 file.print( " uint8_t msg[256];\n" ) 211 193 212 # ã·ã³ã°ã«ãã³ã§ãªããï¼194 # シングルトンでないか? 213 195 if ! b_singleton then 214 196 215 # singleton ã§ãªããã° p_cellcb åå¾ã³ã¼ããåºå197 # singleton でなければ p_cellcb 取得コードを出力 216 198 file.print <<EOT 217 199 #{ct_name}_CB *p_cellcb; … … 221 203 EOT 222 204 223 # ã¨ã©ã¼ãè¿ããï¼205 # エラーを返すか? 224 206 if b_ret_er then 225 207 file.print <<EOT … … 231 213 file.print <<EOT 232 214 }else{ 233 /* ã¨ã©ã¼å¦çã³ã¼ããããã«è¨è¿°*/234 } 235 EOT 236 end 237 end 238 239 # channel lock ã³ã¼ã215 /* エラー処理コードをここに記述 */ 216 } 217 EOT 218 end 219 end 220 221 # channel lock コード 240 222 file.print <<EOT 241 223 ///* Channel Lock */ … … 246 228 247 229 =begin 248 # SOP ãéä¿¡249 file.print " /* SOP ã®éåº*/\n"230 # SOP を送信 231 file.print " /* SOPの送出 */\n" 250 232 file.print " if( ( ercd_ = cTDR_sendSOP( true ) ) != E_OK )\n" 251 233 file.print " goto error_reset;\n" 252 234 =end 253 235 254 # func_id ãéä¿¡255 file.print " /* é¢æ° id ã®éåº*/\n"236 # func_id を送信 237 file.print " /* 関数 id の送出 */\n" 256 238 =begin 257 239 file.print " if( ( ercd_ = cTDR_putInt16( func_id_ ) ) != E_OK )\n" … … 263 245 # p "#{ct_name}, #{sig_name}, #{func_name}, #{func_global_name}" 264 246 265 b_get = false # marshal ãªãput247 b_get = false # marshal なら put 266 248 b_marshal = true # marshal 267 249 268 # in æ¹åã®å 269 ¥åºåãåºå 250 # in 方向の入出力を出力 270 251 @index = 2 271 file.print " /* å 272 ¥åå¼æ°éåº */\n" 252 file.print " /* 入力引数送出 */\n" 273 253 print_params( params, file, 1, b_marshal, b_get, true, func_type.is_oneway? ) 274 254 print_params( params, file, 1, b_marshal, b_get, false, func_type.is_oneway? ) … … 280 260 =end 281 261 282 file.print " /* EOP ã®éåºï¼ãã±ããã®æãã ãï¼*/\n"262 file.print " /* EOPの送出(パケットの掃きだし) */\n" 283 263 if ! func_type.is_oneway? then 284 264 b_continue = "true" … … 315 295 316 296 if( b_void == false )then 317 # å¼ã³å 318 ã«æ»ãå¤ããªã¿ã¼ã³ 297 # 呼び元に戻り値をリターン 319 298 file.print( " cMessageBuffer_receive(&retval_);\n" ) 320 299 file.print( " return retval_;\n" ) … … 332 311 EOT 333 312 334 # channel lock ã³ã¼ã313 # channel lock コード 335 314 file.print <<EOT 336 315 ///* Channel Lock */ … … 341 320 342 321 if( b_ret_er != false )then 343 # å¼ã³å 344 ã«æ»ãå¤ããªã¿ã¼ã³ 322 # 呼び元に戻り値をリターン 345 323 file.print( " return ercd_;\n" ) 346 324 else … … 350 328 end 351 329 352 #=== unmarshal ã³ã¼ãã®çæ330 #=== unmarshal コードの生成 353 331 def gen_ep_func_body_unmarshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 354 332 … … 356 334 b_ret_er = false 357 335 358 # func_id ãå¾ãã³ã¼ããçæ336 # func_id を得るコードを生成 359 337 file.print <<EOT 360 338 … … 377 355 file.print <<EOT 378 356 }else{ 379 /* ã¨ã©ã¼å¦çã³ã¼ããããã«è¨è¿°*/357 /* エラー処理コードをここに記述 */ 380 358 } 381 359 EOT … … 387 365 388 366 #if 0 389 /* SOP ã®ãã§ãã¯*/367 /* SOPのチェック */ 390 368 if( (ercd_=cTDR_receiveSOP( false )) != E_OK ) 391 369 goto error_reset; 392 /* func_id ã®åå¾*/370 /* func_id の取得 */ 393 371 if( (ercd_=cTDR_getInt16( &func_id_ )) != E_OK ) 394 372 goto error_reset; … … 405 383 EOT 406 384 407 # å¼ã³å 408 ã® signature ãåãåºã 385 # 呼び先の signature を取り出す 409 386 # port = @celltype.find( @next_cell_port_name ) 410 387 # signature = port.get_signature 411 388 signature = @signature 412 389 413 # through ã® signature ã«å«ã¾ãã ãã¹ã¦ã®é¢æ°ã«ã¤ãã¦390 # through の signature に含まれる すべての関数について 414 391 signature.get_function_head_array.each { |f| 415 392 f_name = f.get_name … … 417 394 id = signature.get_id_from_func_name( f_name ) 418 395 419 # é¢æ°ã¯è¿ãå¤ãæã¤ã?396 # 関数は返り値を持つか? 420 397 if f_type.get_type.kind_of?( VoidType ) then 421 398 b_void = true … … 424 401 end 425 402 426 # ãã±ããã®çµããããã§ãã¯ï¼æªåãåãã®ãã¼ã¿ãæ®ã£ã¦ããªãããã§ãã¯ï¼403 # パケットの終わりをチェック(未受け取りのデータが残っていないかチェック) 427 404 file.print " case #{id}: /*** #{f_name} ***/ \n" 428 405 file.print " if( tTransparentUnmarshaler_#{@signature.get_name}_#{f_name}() != E_OK )\n" … … 433 410 434 411 if @PPAllocatorSize then 435 ppallocator_dealloc_str = " /* PPAllocator ã®ãã¹ã¦ã解æ¾*/\n cPPAllocator_dealloc_all();"412 ppallocator_dealloc_str = " /* PPAllocator のすべてを解放 */\n cPPAllocator_dealloc_all();" 436 413 else 437 414 ppallocator_dealloc_str = "" … … 441 418 file.print <<EOT 442 419 default: 443 #if 0 // deleted by ishikawa: tSysLogãæªå®è£ 444 420 #if 0 // deleted by ishikawa: tSysLogが未実装 445 421 syslog(LOG_INFO, "unmarshaler task: ERROR: unknown func_id: %d", func_id_ ); 446 422 #endif /* 0 */ … … 463 439 464 440 # IN b_marshal, b_get 465 # b_marshal = true && b_get == false : ãã¼ã·ã£ã©ã§å 466 ¥åå¼æ°éåº 467 # b_marshal = true && b_get == true : ãã¼ã·ã£ã©ã§åºåå¼æ°åå 468 # b_marshal = false && b_get == true : ã¢ã³ãã¼ã·ã£ã©ã§å 469 ¥åå¼æ°åå 470 # b_marshal = false && b_get == get : ã¢ã³ãã¼ã·ã£ã©ã§åºåå¼æ°éåº 441 # b_marshal = true && b_get == false : マーシャラで入力引数送出 442 # b_marshal = true && b_get == true : マーシャラで出力引数受取 443 # b_marshal = false && b_get == true : アンマーシャラで入力引数受取 444 # b_marshal = false && b_get == get : アンマーシャラで出力引数送出 471 445 def print_params( params, file, nest, b_marshal, b_get, b_referenced, b_oneway = false ) 472 446 params.each{ |param| … … 479 453 type = param.get_type 480 454 if b_oneway && dir == :IN && type.get_original_type.kind_of?( PtrType ) || type.get_original_type.kind_of?( ArrayType ) then 481 # oneway, in, PtrType ã®å ´åã³ãã¼455 # oneway, in, PtrType の場合コピー 482 456 alloc_cp = "cPPAllocator_alloc" 483 457 alloc_cp_extra = nil … … 501 475 end 502 476 503 #=== ã³ãã¼ããªãå¼æ°æ¸¡ãã³ã¼ãã®åºå477 #=== コピーしない引数渡しコードの出力 504 478 def print_param_nc( name, type, file, nest, b_marshal, outer, outer2, b_get ) 505 479 indent = " " * ( nest + 1 ) … … 521 495 when :SIGNED 522 496 if bit_size == -1 || bit_size == -11 then 523 # signed char ã®å ´åãsigned ãæå®ãã497 # signed char の場合、signed を指定する 524 498 signC = "S" 525 499 sign = "s" … … 640 614 641 615 642 #=== PREAMBLE é¨ã®ã³ã¼ãçæ643 # ã¢ã³ãã¼ã·ã£ã©ã»ã«ã¿ã¤ãã®å ´åãã¢ã³ãã¼ã·ã£ã©é¢æ°ã®ãããã¿ã¤ã宣è¨ãçæ616 #=== PREAMBLE 部のコード生成 617 # アンマーシャラセルタイプの場合、アンマーシャラ関数のプロトタイプ宣言を生成 644 618 def gen_preamble file, b_singleton, ct_name, global_name 645 619 if ct_name != @unmarshaler_celltype_name.to_sym then … … 647 621 end 648 622 649 file.print "/* ã¢ã³ãã¼ã·ã£ã©é¢æ°ã®ãããã¿ã¤ã宣è¨*/\n"650 # signature ã«å«ã¾ãã ãã¹ã¦ã®é¢æ°ã«ã¤ãã¦623 file.print "/* アンマーシャラ関数のプロトタイプ宣言 */\n" 624 # signature に含まれる すべての関数について 651 625 @signature.get_function_head_array.each { |f| 652 626 f_name = f.get_name … … 660 634 end 661 635 662 #=== POSTAMBLE é¨ã®ã³ã¼ãçæ663 # ã¢ã³ãã¼ã·ã£ã©ã»ã«ã¿ã¤ãã®å ´åãã¢ã³ãã¼ã·ã£ã©é¢æ°ã®çæ636 #=== POSTAMBLE 部のコード生成 637 # アンマーシャラセルタイプの場合、アンマーシャラ関数の生成 664 638 def gen_postamble file, b_singleton, ct_name, global_name 665 639 if ct_name != @unmarshaler_celltype_name.to_sym then … … 667 641 end 668 642 669 file.print "\n/*** ã¢ã³ãã¼ã·ã£ã©é¢æ°***/\n\n"643 file.print "\n/*** アンマーシャラ関数 ***/\n\n" 670 644 @signature.get_function_head_array.each { |f| 671 645 f_name = f.get_name … … 673 647 id = @signature.get_id_from_func_name( f_name ) 674 648 675 # é¢æ°ã¯è¿ãå¤ãæã¤ã?649 # 関数は返り値を持つか? 676 650 if f_type.get_type.kind_of?( VoidType ) then 677 651 b_void = true … … 691 665 file.print " ER ercd_;\n" 692 666 693 # å¼æ°ãååãå¤æ°ã®å®ç¾©667 # 引数を受取る変数の定義 694 668 param_list = f.get_declarator.get_type.get_paramlist.get_items 695 669 # FuncHead-> Decl-> FuncType->ParamList … … 706 680 end 707 681 708 type_str = type.get_type_str.gsub( /\bconst\b */, "" ) # "const" ãå¤ã682 type_str = type.get_type_str.gsub( /\bconst\b */, "" ) # "const" を外す 709 683 710 684 file.printf( " %-12s %s%s%s%s;\n", type_str, aster, name, aster2, type.get_type_str_post ) 711 685 } 712 686 713 # æ»ãå¤ãåãåãå¤æ°ã®å®ç¾©687 # 戻り値を受け取る変数の定義 714 688 if ! b_void then 715 689 if f.is_oneway? then 716 retval_ptr = "" # oneway ã®å ´åãåãåããæ¨ã¦ããã690 retval_ptr = "" # oneway の場合、受け取るが捨てられる 717 691 else 718 692 # =begin ishikawa modified … … 724 698 end 725 699 726 # in æ¹åã®å 727 ¥åºåãå 728 ¥å 729 file.print "\n /* å 730 ¥åå¼æ°åå */\n" 731 b_get = true # unmarshal ã§ã¯ get 700 # in 方向の入出力を入力 701 file.print "\n /* 入力引数受取 */\n" 702 b_get = true # unmarshal では get 732 703 b_marshal = false 733 704 @index = 2 … … 740 711 end 741 712 =end 742 # ãã±ããã®åä¿¡å®äº743 # mikan æ¬å½ã¯ã対象é¢æ°ãå¼åºãå¾ã«å®æ½ãããï¼å¼åºããã±ããã®ä½¿ç¨çµããã宣è¨ããç®çã¨ãã¦744 file.print " /* ãã±ããçµããããã§ãã¯*/\n"713 # パケットの受信完了 714 # mikan 本当は、対象関数を呼出す後に実施したい.呼出しパケットの使用終わりを宣言する目的として 715 file.print " /* パケット終わりをチェック */\n" 745 716 if ! f.is_oneway? then 746 717 b_continue = "true" … … 752 723 file.print " goto error_reset;\n\n" 753 724 =end 754 # 対象é¢æ°ãå¼åºã755 file.print " /* 対象é¢æ°ã®å¼åºã*/\n"725 # 対象関数を呼出す 726 file.print " /* 対象関数の呼出し */\n" 756 727 if b_void then 757 728 file.print( " cServerCall_#{f_name}(" ) … … 768 739 file.print( " );\n" ) 769 740 770 # æ»ãå¤ãåºåå¼æ°ã®ååã³ã¼ãã®çæ741 # 戻り値、出力引数の受取コードの生成 771 742 772 743 if ! b_void && ! f.is_oneway? then … … 775 746 776 747 end 777 # oneway ã®å ´ååºåãæ»ãå¤ãç¡ããååãå¾ 778 ããªãï¼éåæãªå¼åºãï¼ 748 # oneway の場合出力、戻り値が無く、受取を待たない(非同期な呼出し) 779 749 if ! f.is_oneway? then 780 750 file.print <<EOT 781 /* é¢æ°å¦çã®çµäºãéç¥*/751 /* 関数処理の終了を通知 */ 782 752 if( ( ercd_ = cEventflag_set( 0x01 ) ) != E_OK ){ 783 753 goto error_reset; -
Property svn:mime-type
changed from
-
EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenOpaqueMarshaler.rb
-
Property svn:mime-type
changed from
text/x-ruby
totext/x-ruby;charset=UTF-8
r270 r321 6 6 # Copyright (C) 2008-2014 by TOPPERS Project 7 7 #-- 8 # ä¸è¨èä½æ¨©è 9 ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ 10 # ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹ 11 # å¤ã»åé 12 å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼ 13 # (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½ 14 # 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼ 15 # ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼ 16 # (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 17 # ç¨ã§ããå½¢ã§åé 18 å¸ããå ´åã«ã¯ï¼åé 19 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨ 20 # è 21 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ 22 # ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 23 # (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 24 # ç¨ã§ããªãå½¢ã§åé 25 å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã 26 # ã¨ï¼ 27 # (a) åé 28 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è 29 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è 30 # ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 31 # (b) åé 32 å¸ã®å½¢æ 33 ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã« 34 # å ±åãããã¨ï¼ 35 # (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ 36 # 害ãããï¼ä¸è¨èä½æ¨©è 37 ããã³TOPPERSããã¸ã§ã¯ããå 38 責ãããã¨ï¼ 39 # ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç 40 # ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è 41 ããã³TOPPERSããã¸ã§ã¯ãã 42 # å 43 責ãããã¨ï¼ 8 # 上記著作権者は,以下の(1)~(4)の条件を満たす場合に限り,本ソフトウェ 9 # ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改 10 # 変・再配布(以下,利用と呼ぶ)することを無償で許諾する. 11 # (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作 12 # 権表示,この利用条件および下記の無保証規定が,そのままの形でソー 13 # スコード中に含まれていること. 14 # (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使 15 # 用できる形で再配布する場合には,再配布に伴うドキュメント(利用 16 # 者マニュアルなど)に,上記の著作権表示,この利用条件および下記 17 # の無保証規定を掲載すること. 18 # (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使 19 # 用できない形で再配布する場合には,次のいずれかの条件を満たすこ 20 # と. 21 # (a) 再配布に伴うドキュメント(利用者マニュアルなど)に,上記の著 22 # 作権表示,この利用条件および下記の無保証規定を掲載すること. 23 # (b) 再配布の形態を,別に定める方法によって,TOPPERSプロジェクトに 24 # 報告すること. 25 # (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損 26 # 害からも,上記著作権者およびTOPPERSプロジェクトを免責すること. 27 # また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理 28 # 由に基づく請求からも,上記著作権者およびTOPPERSプロジェクトを 29 # 免責すること. 44 30 # 45 # æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è 46 ã 47 # ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç 48 # ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ 49 # ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã 50 # ã®è²¬ä»»ãè² ããªãï¼ 31 # 本ソフトウェアは,無保証で提供されているものである.上記著作権者お 32 # よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的 33 # に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ 34 # アの利用により直接的または間接的に生じたいかなる損害に関しても,そ 35 # の責任を負わない. 51 36 # 52 # $Id : GenOpaqueMarshaler.rb 1011 2016-07-11 02:20:01Z coas-nagasima$37 # $Id$ 53 38 #++ 54 39 55 40 #== GenOpaqueMarshaler 56 # OpaqueRPCPlugin, sharedOpaqueRPCPlugin å 57 ±éã®è¦ç´ ãéããã¢ã¸ã¥ã¼ã« 41 # OpaqueRPCPlugin, sharedOpaqueRPCPlugin 共通の要素を集めたモジュール 58 42 module GenOpaqueMarshaler 59 43 60 # ãã©ã°ã¤ã³å¼æ°åã¨Proc44 # プラグイン引数名と Proc 61 45 RPCPluginArgProc = { 62 46 "clientChannelCelltype" => Proc.new { |obj,rhs| obj.set_clientChannelCelltype rhs }, … … 79 63 } 80 64 81 ##### ãã©ã°ã¤ã³å¼æ°ãã§ãã¯é¢æ°82 83 #=== ãã©ã°ã¤ã³å¼æ° taskPriority ã®ãã§ãã¯65 ##### プラグイン引数チェック関数 66 67 #=== プラグイン引数 taskPriority のチェック 84 68 def set_taskPriority( rhs ) 85 69 @taskPriority = rhs 86 70 end 87 71 88 #=== ãã©ã°ã¤ã³å¼æ° serverChannelCelltype ã®ãã§ãã¯72 #=== プラグイン引数 serverChannelCelltype のチェック 89 73 def set_serverChannelCelltype( rhs ) 90 74 @serverChannelCelltype = rhs.to_sym … … 98 82 end 99 83 100 #=== ãã©ã°ã¤ã³å¼æ° clientChannelCelltype ã®ãã§ãã¯84 #=== プラグイン引数 clientChannelCelltype のチェック 101 85 def set_clientChannelCelltype( rhs ) 102 86 @clientChannelCelltype = rhs.to_sym … … 110 94 end 111 95 112 #=== ãã©ã°ã¤ã³å¼æ° serverChannelCell ã®ãã§ãã¯96 #=== プラグイン引数 serverChannelCell のチェック 113 97 def set_serverChannelCell( rhs ) 114 98 @serverChannelCell = rhs.to_sym 115 # ChannelCell ã¯ãã©ã°ã¤ã³ã§çæããããããããã§ã¯ãã§ãã¯ã§ããªã99 # ChannelCell はプラグインで生成されるため、ここではチェックできない 116 100 # path = [ "::", @serverChannelCell ] 117 101 # obj = Namespace.find( path ) … … 121 105 end 122 106 123 #=== ãã©ã°ã¤ã³å¼æ° clientChannelCell ã®ãã§ãã¯107 #=== プラグイン引数 clientChannelCell のチェック 124 108 def set_clientChannelCell( rhs ) 125 109 @clientChannelCell = rhs.to_sym 126 # ChannelCell ã¯ãã©ã°ã¤ã³ã§çæããããããããã§ã¯ãã§ãã¯ã§ããªã110 # ChannelCell はプラグインで生成されるため、ここではチェックできない 127 111 # path = [ "::", @clientChannelCell ] 128 112 # obj = Namespace.find( path ) … … 132 116 end 133 117 134 #=== ãã©ã°ã¤ã³å¼æ° serverChannelInitializer ã®ãã§ãã¯118 #=== プラグイン引数 serverChannelInitializer のチェック 135 119 def set_serverChannelInitializer( rhs ) 136 120 @serverChannelInitializer = rhs.to_sym 137 121 end 138 122 139 #=== ãã©ã°ã¤ã³å¼æ° clientChannelInitializer ã®ãã§ãã¯123 #=== プラグイン引数 clientChannelInitializer のチェック 140 124 def set_clientChannelInitializer( rhs ) 141 125 @clientChannelInitializer = rhs.to_sym 142 126 end 143 127 144 #=== ã¿ã¹ã¯ã¿ã¤ã taskCellype ã®ãã§ãã¯128 #=== タスクタイプ taskCellype のチェック 145 129 def set_taskCelltype( rhs ) 146 130 @taskCelltype = rhs.to_sym … … 154 138 end 155 139 156 #=== ã¿ã¹ã¯ã¿ã¤ã stack\size ã®ãã§ãã¯140 #=== タスクタイプ stack\size のチェック 157 141 def set_stackSize( rhs ) 158 142 @stackSize = rhs 159 143 end 160 144 161 #=== ãã©ã°ã¤ã³å¼æ° PPAllocatorSize ã®ãã§ãã¯145 #=== プラグイン引数 PPAllocatorSize のチェック 162 146 def set_PPAllocatorSize( rhs ) 163 147 @PPAllocatorSize = rhs 164 148 end 165 149 166 #=== ãã©ã°ã¤ã³å¼æ° TDRCelltype ã®ãã§ãã¯150 #=== プラグイン引数 TDRCelltype のチェック 167 151 def set_TDRCelltype( rhs ) 168 152 @TDRCelltype = rhs.to_sym … … 176 160 end 177 161 178 #=== ãã©ã°ã¤ã³å¼æ° substituteAllocator ã®ãã§ãã¯179 # ãªãã·ã§ã³å¼æ°ãã以ä¸ã®å½¢å¼ã§ãããã¨ããã§ãã¯162 #=== プラグイン引数 substituteAllocator のチェック 163 # オプション引数が、以下の形式であることをチェック 180 164 # substituteAllocator(Alloc.eAlloc=>Subst.eAlloc,Alloc2.eAlloc=>Subst2.eAlloc) 181 165 def set_substituteAllocator( rhs ) 182 #str::String : ç ´å£ãããï¼ãããããæ®ãã«ãªãï¼ãstr.empty? ã§ç©ºã«ãªã£ããã¨ããã§ãã¯ã§ãã 183 #regexp::Regexp : æå¾ 184 ãããã¼ã¯ã³ã«ãããããæ£è¦è¡¨ç¾ã "\A" åºå§ãã 185 #expected::String: æå¾ 186 ãããã¼ã¯ã³ãregexp ãåºç¾ããªãã£ãå ´åã«ã¨ã©ã¼ã¡ãã»ã¼ã¸ã¨ãã¦è¡¨ç¤º 166 #str::String : 破壊される(マッチした残りになる)。str.empty? で空になったことをチェックできる 167 #regexp::Regexp : 期待するトークンにマッチする正規表現。 "\A" 出始める 168 #expected::String: 期待するトークン、regexp が出現しなかった場合にエラーメッセージとして表示 187 169 def optparse (str,regexp,expected) 188 170 str.strip! … … 198 180 ident_rexpr = /\A(\w[\w\d]*)/ 199 181 200 # "Alloc.eAlloc=>CAlloc.eAlloc" ã®å½¢å¼ã«ãªã£ã¦ãããã¨ããã§ãã¯182 # "Alloc.eAlloc=>CAlloc.eAlloc" の形式になっていることをチェック 201 183 while true 202 184 lhs_alloc_cell = optparse( opt, ident_rexpr, "allocator cell name" ) … … 221 203 break if ! rhs_alloc_ent 222 204 223 # ããã§ã¯ãå³è¾ºã®ãã§ãã¯ã¯ã§ããªããå³è¾ºã®ã»ã«ã¯åæ¹åç 224 §ã¨ãªã 205 # ここでは、右辺のチェックはできない。右辺のセルは前方参照となる 225 206 # path = [ "::", rhs_alloc_cell.to_sym ] # mikan namespace 226 207 # obj = Namespace.find( path ) … … 229 210 # else 230 211 # ct = obj.get_celltype 231 # if ct # nil ãªãæ¢ã«ã¨ã©ã¼212 # if ct # nil なら既にエラー 232 213 # ent = ct.find rhs_alloc_ent 233 214 # if ! ent.instance_of? Port || ent.get_port_type != :ENTRY || ent.get_signature == nil || ! ent.get_signature.is_allocator? … … 250 231 end 251 232 252 #=== ãã©ã°ã¤ã³å¼æ° noServerChannelOpenerCode ã®ãã§ãã¯233 #=== プラグイン引数 noServerChannelOpenerCode のチェック 253 234 def set_noServerChannelOpenerCode( rhs ) 254 235 rhs = rhs.to_sym … … 262 243 end 263 244 264 #=== ãã©ã°ã¤ã³å¼æ° clientSemaphoreCelltype ã®ãã§ãã¯245 #=== プラグイン引数 clientSemaphoreCelltype のチェック 265 246 def set_clientSemaphoreCelltype rhs 266 247 @semaphoreCelltype = rhs.to_sym … … 272 253 end 273 254 274 #=== ãã©ã°ã¤ã³å¼æ° clientSemaphoreInitializer ã®ãã§ãã¯255 #=== プラグイン引数 clientSemaphoreInitializer のチェック 275 256 def set_clientSemaphoreInitializer rhs 276 257 @semaphoreInitializer = rhs.to_sym 277 258 end 278 259 279 #=== ãã©ã°ã¤ã³å¼æ° clientErrorHandler ã®ãã§ãã¯260 #=== プラグイン引数 clientErrorHandler のチェック 280 261 def set_clientErrorHandler rhs 281 262 @clientErrorHandler = rhs.to_sym 282 263 end 283 264 284 #=== ãã©ã°ã¤ã³å¼æ° serverErrorHandler ã®ãã§ãã¯265 #=== プラグイン引数 serverErrorHandler のチェック 285 266 def set_serverErrorHandler rhs 286 267 @serverErrorHandler = rhs.to_sym … … 288 269 289 270 290 #=== ã»ã«ã®ååãå¾ã291 # ThroughPlugin::get_cell_name plugin.rb ããªã¼ãã¼ã©ã¤ã271 #=== セルの名前を得る 272 # ThroughPlugin::get_cell_name plugin.rb をオーバーライド 292 273 def get_cell_name 293 274 @cell_name … … 295 276 end 296 277 297 #=== marshaler ã®ã»ã«ã¿ã¤ãåãè¨å®ãã278 #=== marshaler のセルタイプ名を設定する 298 279 def initialize_opaque_marshaler 299 280 300 # ãªãã·ã§ã³è¨å®ãããå¤æ°ã®ããã©ã«ããè¨å®281 # オプション設定される変数のデフォルトを設定 301 282 @taskPriority = 11 302 283 @stackSize = 4096 … … 309 290 @taskCelltype = :"tTask" 310 291 @PPAllocatorSize = nil 311 # @TDRCelltype = :"tTDR" # "tNBOTDR" ã«å¤æ´ã®äºå®292 # @TDRCelltype = :"tTDR" # "tNBOTDR" に変更の予定 312 293 @TDRCelltype = :"tNBOTDR" 313 294 @substituteAllocator = {} … … 324 305 @marshaler_celltype_file_name = "#{$gen}/#{@marshaler_celltype_name}.cdl" 325 306 326 # signature ã§å¯¾å¿ã§ããªããã®ããã§ãã¯307 # signature で対応できないものをチェック 327 308 @signature.each_param{ |func_decl, param_decl| 328 309 if param_decl.get_direction == :OUT then … … 337 318 end 338 319 339 #=== GenOpaqueMarshaler# Opener Code ã®çææã®ãã§ãã¯320 #=== GenOpaqueMarshaler# Opener Code の生成時のチェック 340 321 def check_opener_code 341 # ãµã¼ãã¼ãã£ã³ãã«ã»ã«ã¿ã¤ãã entry sServerChannelOpener eOpener ãæã¤ãã©ããããã§ãã¯342 # mikan entry ã (call ã§ãªãã) ããã§ãã¯ãã¦ããªã322 # サーバーチャンネルセルタイプが entry sServerChannelOpener eOpener を持つかどうかをチェック 323 # mikan entry か (call でないか) をチェックしていない 343 324 # scct = Namespace.find ["::", @serverChannelCelltype] # mikan namespace 344 325 nsp = NamespacePath.analyze( @serverChannelCelltype.to_s ) … … 360 341 end 361 342 362 #=== GenOpaqueMarshaler# PPAllocator ã®å¿ 363 è¦æ§ããã§ãã¯ãã 343 #=== GenOpaqueMarshaler# PPAllocator の必要性をチェックする 364 344 def check_PPAllocator 365 345 if @signature.need_PPAllocator?(true) then … … 374 354 def gen_marshaler_celltype 375 355 f = CFile.open( @marshaler_celltype_file_name, "w" ) 376 # åãå 377 容ãäºåº¦æ¸ãå¯è½æ§ãã (AppFile ã¯ä¸å¯) 356 # 同じ内容を二度書く可能性あり (AppFile は不可) 378 357 379 358 if @PPAllocatorSize then … … 404 383 end 405 384 406 #=== åãå£é¢æ°ã®æ¬ä½ã³ã¼ããçæï¼é é¨ã¨æ«å°¾ã¯å¥éåºåï¼407 #ct_name:: Symbol (through ãã©ã°ã¤ã³ã§çæããã) ã»ã«ã¿ã¤ãå ï¼Symbol ã¨ãã¦éããã¦ããï¼ãããï¼385 #=== 受け口関数の本体コードを生成(頭部と末尾は別途出力) 386 #ct_name:: Symbol (through プラグインで生成された) セルタイプ名 .Symbol として送られてくる(らしい) 408 387 def gen_ep_func_body( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 409 388 410 # unmarshaler ã¯ã©ã¹ã?389 # unmarshaler クラスか? 411 390 if ct_name == @unmarshaler_celltype_name.to_sym then 412 391 gen_ep_func_body_unmarshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) … … 416 395 end 417 396 418 #=== marshal ã³ã¼ãã®çæ397 #=== marshal コードの生成 419 398 def gen_ep_func_body_marshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 420 399 … … 422 401 b_ret_er = false 423 402 424 # é¢æ°ã®æ»ãå¤ã®å 425 ã®åãå¾ã(typedef ããã¦ããå ´å) 403 # 関数の戻り値の元の型を得る(typedef されている場合) 426 404 type = func_type.get_type.get_original_type 427 405 428 # æ»ãå¤è¨æ¶ç¨ã®å¤æ°ãåºåï¼void åã®é¢æ°ã§ã¯åºåããªãï¼406 # 戻り値記憶用の変数を出力(void 型の関数では出力しない) 429 407 if ! type.is_void? then 430 408 file.print( "\t#{func_type.get_type.get_type_str}\t\tretval_;\n" ) … … 439 417 file.print( "\tint16_t\tstate_;\n" ) 440 418 441 # é¢æ° ID ï¼æ´æ°å¤ï¼419 # 関数 ID (整数値) 442 420 func_id = "FUNCID_#{@signature.get_global_name}_#{func_name}".upcase 443 421 fid = @signature.get_id_from_func_name( func_name ) 444 422 file.print( "\tint16_t\tfunc_id_ = #{func_id}; /* (id of '#{func_name}') = #{fid}*/\n" ) 445 423 446 # ã·ã³ã°ã«ãã³ã§ãªããï¼424 # シングルトンでないか? 447 425 if ! b_singleton then 448 426 449 # singleton ã§ãªããã° p_cellcb åå¾ã³ã¼ããåºå427 # singleton でなければ p_cellcb 取得コードを出力 450 428 file.print <<EOT 451 429 #{ct_name}_CB *p_cellcb; … … 455 433 EOT 456 434 457 # ã¨ã©ã¼ãè¿ããï¼435 # エラーを返すか? 458 436 if b_ret_er then 459 437 file.print <<EOT … … 465 443 file.print <<EOT 466 444 }else{ 467 /* ã¨ã©ã¼å¦çã³ã¼ããããã«è¨è¿°*/445 /* エラー処理コードをここに記述 */ 468 446 } 469 447 … … 481 459 end 482 460 483 # channel lock ã³ã¼ã461 # channel lock コード 484 462 file.print <<EOT 485 463 … … 490 468 EOT 491 469 492 # SOP ãéä¿¡493 file.print " /* SOP ã®éåº*/\n"470 # SOP を送信 471 file.print " /* SOPの送出 */\n" 494 472 file.print " SET_RPC_STATE( state_, RPCSTATE_CLIENT_SEND_SOP );\n" 495 473 file.print " if( ( ercd_ = cTDR_sendSOP( true ) ) != E_OK )\n" 496 474 file.print " goto error_reset;\n" 497 475 498 # func_id ãéä¿¡499 file.print " /* é¢æ° id ã®éåº*/\n"476 # func_id を送信 477 file.print " /* 関数 id の送出 */\n" 500 478 file.print " if( ( ercd_ = cTDR_putInt16( func_id_ ) ) != E_OK )\n" 501 479 file.print " goto error_reset;\n" … … 504 482 # p "#{ct_name}, #{sig_name}, #{func_name}, #{func_global_name}" 505 483 506 b_get = false # marshal ãªãput484 b_get = false # marshal なら put 507 485 b_marshal = true # marshal 508 486 509 # in æ¹åã®å 510 ¥åºåãåºå 487 # in 方向の入出力を出力 511 488 if func_type.has_inward? then 512 file.print " /* å 513 ¥åå¼æ°éåº */\n" 489 file.print " /* 入力引数送出 */\n" 514 490 file.print " SET_RPC_STATE( state_, RPCSTATE_CLIENT_SEND_BODY );\n" 515 491 print_params( params, file, 1, b_marshal, b_get, true, "eClientEntry", func_name ) … … 523 499 b_continue = "false" 524 500 end 525 file.print " /* EOP ã®éåºï¼ãã±ããã®æãã ãï¼*/\n"501 file.print " /* EOPの送出(パケットの掃きだし) */\n" 526 502 file.print " SET_RPC_STATE( state_, RPCSTATE_CLIENT_SEND_EOP );\n" 527 503 file.print " if( (ercd_=cTDR_sendEOP(#{b_continue})) != E_OK )\n" 528 504 file.print " goto error_reset;\n\n" 529 505 530 # send ã®ã¡ã¢ãªããã¢ãã±ã¼ã506 # send のメモリをデアロケート 531 507 if func_type.has_send? then 532 508 file.print " /* dealloc send parameter while executing */\n" … … 539 515 if ! func_type.is_oneway? then 540 516 541 file.print " /* ãã±ããã®å§ã¾ãããã§ãã¯*/\n"517 file.print " /* パケットの始まりをチェック */\n" 542 518 file.print " SET_RPC_STATE( state_, RPCSTATE_CLIENT_RECV_SOP );\n" 543 519 file.print " if( (ercd_=cTDR_receiveSOP( true )) != E_OK )\n" 544 520 file.print " goto error_reset;\n" 545 521 546 b_get = true # marshaler ã¯get547 file.print " /* æ»ãå¤ã®åãåã*/\n"522 b_get = true # marshaler は get 523 file.print " /* 戻り値の受け取り */\n" 548 524 print_param( "retval_", func_type.get_type, file, 1, :RETURN, nil, nil, b_marshal, b_get ) 549 525 … … 557 533 indent = " " * indent_level 558 534 559 file.print "#{indent}/* åºåå¤ã®åãåã*/\n"535 file.print "#{indent}/* 出力値の受け取り */\n" 560 536 file.print "#{indent}SET_RPC_STATE( state_, RPCSTATE_CLIENT_RECV_BODY );\n" 561 537 print_params( params, file, indent_level, b_marshal, b_get, true, "eClientEntry", func_name ) … … 567 543 end 568 544 569 file.print "\n /* ãã±ããã®çµããããã§ãã¯*/\n"545 file.print "\n /* パケットの終わりをチェック */\n" 570 546 file.print " SET_RPC_STATE( state_, RPCSTATE_CLIENT_RECV_EOP );\n" 571 547 file.print " if( (ercd_=cTDR_receiveEOP(false)) != E_OK )\n" # b_continue = false … … 574 550 end # ! func_type.is_oneway? 575 551 576 # channel lock ã³ã¼ã552 # channel lock コード 577 553 file.print <<EOT 578 554 /* Channel Unlock */ … … 583 559 584 560 if( b_void == false )then 585 # å¼ã³å 586 ã«æ»ãå¤ããªã¿ã¼ã³ 561 # 呼び元に戻り値をリターン 587 562 file.print( " return retval_;\n" ) 588 563 else … … 594 569 error_reset: 595 570 EOT 596 # send ã®ã¡ã¢ãªããã¢ãã±ã¼ã571 # send のメモリをデアロケート 597 572 if func_type.has_send? then 598 573 file.print " /* dealloc send parameter */\n" … … 603 578 end 604 579 605 # receive ã®ã¡ã¢ãªããã¢ãã±ã¼ã580 # receive のメモリをデアロケート 606 581 if func_type.has_receive? then 607 582 file.print( " /* receive parameter */\n" ) … … 615 590 EOT 616 591 617 # channel lock ã³ã¼ã592 # channel lock コード 618 593 file.print <<EOT 619 594 /* Channel Unlock */ … … 626 601 627 602 if( b_ret_er != false )then 628 # å¼ã³å 629 ã«æ»ãå¤ããªã¿ã¼ã³ 603 # 呼び元に戻り値をリターン 630 604 file.print( " return ERCD( E_RPC, MERCD( ercd_ ) );\n" ) 631 605 else … … 635 609 end 636 610 637 #=== unmarshal ã³ã¼ãã®çæ611 #=== unmarshal コードの生成 638 612 def gen_ep_func_body_unmarshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 639 613 640 614 b_ret_er = true 641 615 642 # func_id ãå¾ãã³ã¼ããçæ616 # func_id を得るコードを生成 643 617 file.print <<EOT 644 618 … … 662 636 file.print <<EOT 663 637 }else{ 664 /* ã¨ã©ã¼å¦çã³ã¼ããããã«è¨è¿°*/638 /* エラー処理コードをここに記述 */ 665 639 } 666 640 EOT … … 673 647 #endif 674 648 675 /* SOP ã®ãã§ãã¯*/649 /* SOPのチェック */ 676 650 SET_RPC_STATE( state_, RPCSTATE_SERVER_RECV_SOP ); 677 651 if( (ercd_=cTDR_receiveSOP( false )) != E_OK ) 678 652 goto error_reset; 679 /* func_id ã®åå¾*/653 /* func_id の取得 */ 680 654 if( (ercd_=cTDR_getInt16( &func_id_ )) != E_OK ) 681 655 goto error_reset; … … 687 661 EOT 688 662 689 # signature ã«å«ã¾ãã ãã¹ã¦ã®é¢æ°ã«ã¤ãã¦663 # signature に含まれる すべての関数について 690 664 @signature.get_function_head_array.each { |f| 691 665 f_name = f.get_name … … 701 675 702 676 if @PPAllocatorSize then 703 ppallocator_dealloc_str = " /* PPAllocator ã®ãã¹ã¦ã解æ¾*/\n cPPAllocator_dealloc_all();"677 ppallocator_dealloc_str = " /* PPAllocator のすべてを解放 */\n cPPAllocator_dealloc_all();" 704 678 else 705 679 ppallocator_dealloc_str = "" … … 724 698 end 725 699 726 #=== PREAMBLE é¨ã®ã³ã¼ãçæ727 # ã¢ã³ãã¼ã·ã£ã©ã»ã«ã¿ã¤ãã®å ´åãã¢ã³ãã¼ã·ã£ã©é¢æ°ã®ãããã¿ã¤ã宣è¨ãçæ700 #=== PREAMBLE 部のコード生成 701 # アンマーシャラセルタイプの場合、アンマーシャラ関数のプロトタイプ宣言を生成 728 702 def gen_preamble file, b_singleton, ct_name, global_name 729 703 if ct_name != @unmarshaler_celltype_name.to_sym then … … 731 705 end 732 706 733 # string.h ã® include (memset, strlen ã®ãã)707 # string.h の include (memset, strlen のため) 734 708 file.print "/* header file (strlen, memset) */\n" 735 709 file.print "#include\t<string.h>\n\n" 736 710 737 file.print "/* ã¢ã³ãã¼ã·ã£ã©é¢æ°ã®ãããã¿ã¤ã宣è¨*/\n"738 # signature ã«å«ã¾ãã ãã¹ã¦ã®é¢æ°ã«ã¤ãã¦711 file.print "/* アンマーシャラ関数のプロトタイプ宣言 */\n" 712 # signature に含まれる すべての関数について 739 713 @signature.get_function_head_array.each { |f| 740 714 f_name = f.get_name … … 746 720 end 747 721 748 #=== POSTAMBLE é¨ã®ã³ã¼ãçæ 749 # ã¢ã³ãã¼ã·ã£ã©ã»ã«ã¿ã¤ãã®å ´åãåã 750 ã®ã¢ã³ãã¼ã·ã£ã©é¢æ°ã®çæ 722 #=== POSTAMBLE 部のコード生成 723 # アンマーシャラセルタイプの場合、個々のアンマーシャラ関数の生成 751 724 def gen_postamble file, b_singleton, ct_name, global_name 752 725 if ct_name != @unmarshaler_celltype_name.to_sym then … … 754 727 end 755 728 756 file.print "\n/*** ã¢ã³ãã¼ã·ã£ã©é¢æ°***/\n\n"729 file.print "\n/*** アンマーシャラ関数 ***/\n\n" 757 730 @signature.get_function_head_array.each { |f| 758 731 f_name = f.get_name … … 760 733 id = @signature.get_id_from_func_name( f_name ) 761 734 762 # é¢æ°ã¯è¿ãå¤ãæã¤ã?735 # 関数は返り値を持つか? 763 736 b_ret_er = false 764 737 init_retval = "" … … 784 757 file.print " ER ercd_;\n" 785 758 786 # å¼æ°ãååãå¤æ°ã®å®ç¾©759 # 引数を受取る変数の定義 787 760 params = f.get_declarator.get_type.get_paramlist.get_items 788 761 # FuncHead-> Decl-> FuncType->ParamList … … 793 766 dir = par.get_direction 794 767 if( dir == :RECEIVE )then 795 # type 㯠PtrType ã§ããããåãé¤ããå768 # type は PtrType で、それを取り除いた型 796 769 type = type.get_type 797 770 end … … 811 784 end 812 785 813 type_str = type.get_type_str.gsub( /\bconst\b */, "" ) # "const" ãå¤ã786 type_str = type.get_type_str.gsub( /\bconst\b */, "" ) # "const" を外す 814 787 file.printf( " %-12s %s%s%s%s%s;\n", type_str, aster, name, aster2, type.get_type_str_post, init ) 815 788 … … 823 796 end 824 797 825 # in æ¹åã®å 826 ¥åºåãå 827 ¥å 828 file.print "\n /* å 829 ¥åå¼æ°åå */\n" 798 # in 方向の入出力を入力 799 file.print "\n /* 入力引数受取 */\n" 830 800 file.print " SET_RPC_STATE( *state_, RPCSTATE_SERVER_RECV_BODY );\n" 831 b_get = true # unmarshal ã§ã¯get801 b_get = true # unmarshal では get 832 802 b_marshal = false 833 803 print_params( params, file, 1, b_marshal, b_get, true, "cServerCall", f_name ) … … 836 806 837 807 838 # ãã±ããã®åä¿¡å®äº839 file.print " /* ãã±ããçµããããã§ãã¯*/\n"808 # パケットの受信完了 809 file.print " /* パケット終わりをチェック */\n" 840 810 file.print " SET_RPC_STATE( *state_, RPCSTATE_SERVER_RECV_EOP );\n" 841 811 if ! f_type.is_oneway? then … … 847 817 file.print " goto error_reset;\n\n" 848 818 849 # out ã®ã¡ã¢ãªãã¢ãã±ã¼ã819 # out のメモリをアロケート 850 820 dir = :OUT; alloc_cp = "cPPAllocator_alloc"; alloc_cp_extra = nil; nest = 1 851 821 alloc_for_out_params( params, file, nest, dir, alloc_cp, alloc_cp_extra ) 852 822 853 # 対象é¢æ°ãå¼åºã854 file.print " /* 対象é¢æ°ã®å¼åºã*/\n"823 # 対象関数を呼出す 824 file.print " /* 対象関数の呼出し */\n" 855 825 file.print " SET_RPC_STATE( *state_, RPCSTATE_SERVER_EXEC );\n" 856 826 if b_void then … … 871 841 file.print( " );\n" ) 872 842 873 # æ»ãå¤ãåºåå¼æ°ã®ååã³ã¼ãã®çæ 874 875 # oneway ã®å ´ååºåãæ»ãå¤ãç¡ããååãå¾ 876 ããªãï¼éåæãªå¼åºãï¼ 843 # 戻り値、出力引数の受取コードの生成 844 845 # oneway の場合出力、戻り値が無く、受取を待たない(非同期な呼出し) 877 846 if ! f.is_oneway? then 878 847 879 file.print "\n /* SOP ã®éåº*/\n"848 file.print "\n /* SOPの送出 */\n" 880 849 file.print " SET_RPC_STATE( *state_, RPCSTATE_SERVER_SEND_SOP );\n" 881 850 … … 883 852 file.print " goto error_reset;\n" 884 853 885 b_get = false # unmarshaler ã¯put854 b_get = false # unmarshaler は put 886 855 if( ! b_void )then 887 file.print " /* æ»ãå¤ã®éåº*/\n"856 file.print " /* 戻り値の送出 */\n" 888 857 print_param( "retval_", f_type.get_type, file, 1, :RETURN, nil, nil, b_marshal, b_get ) 889 858 end … … 898 867 indent = " " * indent_level 899 868 900 file.print "#{indent}/* åºåå¤ã®éåº*/\n"869 file.print "#{indent}/* 出力値の送出 */\n" 901 870 file.print "#{indent}SET_RPC_STATE( *state_, RPCSTATE_SERVER_SEND_BODY );\n" 902 871 print_params( params, file, indent_level, b_marshal, b_get, true, "cServerCall", f_name ) 903 872 print_params( params, file, indent_level, b_marshal, b_get, false, "cServerCall", f_name ) 904 873 905 # receive ã®ã¡ã¢ãªããã¢ãã±ã¼ã874 # receive のメモリをデアロケート 906 875 if f_type.has_receive? then 907 876 file.print "#{indent}/* dealloc receive parameter */\n" … … 915 884 end 916 885 917 file.print " /* ãã±ããã®çµããï¼æãã ãï¼*/\n"886 file.print " /* パケットの終わり(掃きだし) */\n" 918 887 file.print " SET_RPC_STATE( *state_, RPCSTATE_SERVER_SEND_EOP );\n" 919 888 file.print " if( (ercd_=cTDR_sendEOP(false)) != E_OK )\n" # b_continue = false … … 926 895 error_reset: 927 896 EOT 928 # send ã®ãªã»ããç¨ãã¢ãã±ã¼ã897 # send のリセット用デアロケート 929 898 if f_type.has_send? then 930 899 file.print " /* dealloc send parameter */\n" … … 935 904 end 936 905 937 # receive ã®ã¡ã¢ãªããã¢ãã±ã¼ã906 # receive のメモリをデアロケート 938 907 if f_type.has_receive? && b_ret_er then 939 908 file.print " /* dealloc receive parameter */\n" … … 947 916 file.print "}\n\n" 948 917 949 # ããï¼åã 950 ã®é¢æ°ï¼ã§ã¯ã¨ã©ã¼ãã³ãã©ã¼ã¯å¼ã³åºããªããå¼ã³å 951 ï¼ãµã¼ãã¼ã®ã¡ã¤ã³é¢æ°ï¼ã§å¼ã³åºãã 918 # ここ(個々の関数)ではエラーハンドラーは呼び出さない。呼び元(サーバーのメイン関数)で呼び出す。 952 919 } 953 920 end … … 956 923 #b_marshal:: bool 957 924 #b_get:: bool 958 # b_marshal = true && b_get == false : ãã¼ã·ã£ã©ã§å 959 ¥åå¼æ°éåº 960 # b_marshal = true && b_get == true : ãã¼ã·ã£ã©ã§åºåå¼æ°åå 961 # b_marshal = false && b_get == false : ã¢ã³ãã¼ã·ã£ã©ã§å 962 ¥åå¼æ°åå 963 # b_marshal = false && b_get == true : ã¢ã³ãã¼ã·ã£ã©ã§åºåå¼æ°éåº 964 #b_referenced:: size_is, count_is, string ã§åç 965 §ããã¦ãããã®ãåºå 925 # b_marshal = true && b_get == false : マーシャラで入力引数送出 926 # b_marshal = true && b_get == true : マーシャラで出力引数受取 927 # b_marshal = false && b_get == false : アンマーシャラで入力引数受取 928 # b_marshal = false && b_get == true : アンマーシャラで出力引数送出 929 #b_referenced:: size_is, count_is, string で参照されているものを出力 966 930 def print_params( params, file, nest, b_marshal, b_get, b_referenced, port_name, func_name ) 967 931 params.each{ |param| … … 986 950 case dir 987 951 when :OUT, :INOUT 988 alloc_cp = nil # inout ã® b_get==true&&b_marsha==true ã®ã¨ãã¢ãã±ã¼ã¿ã³ã¼ãã¯ä¸ç¨952 alloc_cp = nil # inout の b_get==true&&b_marsha==true のときアロケータコードは不用 989 953 alloc_cp_extra = nil 990 954 print_param( param.get_name, param.get_type, file, nest, dir, nil, nil, b_marshal, b_get, alloc_cp, alloc_cp_extra ) … … 993 957 alloc_cp_extra = nil 994 958 if b_get then 995 outer = "(*" # ãã¼ã·ã£ã©å´ã§ã¯ããã¤ã³ã¿ã (send ã¨æ¯ã¹) ä¸ã¤å¤ã959 outer = "(*" # マーシャラ側では、ポインタが (send と比べ) 一つ多い 996 960 outer2 = ")" 997 961 else 998 outer = nil # ã¢ã³ãã¼ã·ã£ã©å´ã§ã¯ããã¤ã³ã¿ãä¸ã¤å¤ããã¦ãã962 outer = nil # アンマーシャラ側では、ポインタが一つ外されている 999 963 outer2 = nil 1000 964 end … … 1006 970 end 1007 971 1008 #=== ã¢ãã±ã¼ã¿ã³ã¼ããçæ (out ã®ã¢ã³ãã¼ã·ã£ã©ç¨)972 #=== アロケータコードを生成 (out のアンマーシャラ用) 1009 973 def alloc_for_out_params( params, file, nest, dir, alloc_cp, alloc_cp_extra ) 1010 974 params.each{ |param| … … 1016 980 end 1017 981 1018 #=== ã¢ãã±ã¼ã¿ã³ã¼ããçæ (out ã®ã¢ã³ãã¼ã·ã£ã©ç¨åå¥ãã©ã¡ã¼ã¿ã®çæ)982 #=== アロケータコードを生成 (out のアンマーシャラ用個別パラメータの生成) 1019 983 def alloc_for_out_param( name, type, file, nest, outer, outer2, alloc_cp, alloc_cp_extra ) 1020 984 org_type = type.get_original_type … … 1029 993 count = type.get_count; size = type.get_size; string = type.get_string 1030 994 if count || size || string then 1031 loop_counter_type = IntType.new(16) # mikan æ¹ã size_is, count_is ã®å¼æ°ã®åã¨ãã995 loop_counter_type = IntType.new(16) # mikan 方を size_is, count_is の引数の型とする 1032 996 if count then 1033 997 len = type.get_count.to_s … … 1042 1006 end 1043 1007 1044 # size_is ã« max æå®ãããå ´åãlength ã max ãè¶ 1045 ãã¦ããããã§ãã¯ããã³ã¼ããçæ 1008 # size_is に max 指定がある場合、length が max を超えているかチェックするコードを生成 1046 1009 if org_type.get_max != nil && string == nil then 1047 1010 file.print "#{indent}if( #{len} > #{type.get_max} ){\t/* GenOpaqueMarshaler max check 2 */\n" … … 1082 1045 end 1083 1046 1084 #=== å¼æ°ã®ä¸æ¬ãã¢ãã±ã¼ãã³ã¼ãã®çæ1085 # send ï¼ãã¼ã·ã£ã©ã®æå¾ãreceiveï¼ã¢ã³ãã¼ã·ã£ã©ã®æå¾ã§ä¸æ¬ãã¦å¼æ°ããã¢ãã±ã¼ããã1047 #=== 引数の一括デアロケートコードの生成 1048 # send:マーシャラの最後、receive:アンマーシャラの最後で一括して引数をデアロケートする 1086 1049 def dealloc_for_params( params, file, nest, dir, dealloc_cp, b_reset = false ) 1087 1050 if b_reset then … … 1097 1060 aster = "" 1098 1061 if dir == :RECEIVE then 1099 type = type.get_type.get_original_type # ãã¤ã³ã¿ãä¸ã¤å¤ã1062 type = type.get_type.get_original_type # ポインタを一つ外す 1100 1063 if b_reset then 1101 1064 aster = "*" … … 1118 1081 end 1119 1082 1120 #== out 㧠nullable ãªå¼æ°ã®æ 1121 å ±ã渡ã 1122 # out nullable ã®å ´åãin, send, receive ã®ããã«ãå¤ã渡ãç´åã§ã¯ãªããå¼åºãæã«æ¸¡ã 1083 #== out で nullable な引数の情報を渡す 1084 # out nullable の場合、in, send, receive のように、値を渡す直前ではなく、呼出し時に渡す 1123 1085 def print_out_nullable( params, file, nest, b_marshal ); 1124 1086 indent = "\t" * nest … … 1130 1092 file.print "#{indent}\tgoto error_reset;\n" 1131 1093 else 1132 # å¼ã³å 1133 㯠alloc_for_out_param 㧠nullable ã®å¯¾å¿ãã 1094 # 呼び先は alloc_for_out_param で nullable の対応する 1134 1095 file.print "#{indent}if( (ercd_=cTDR_getInt8( &b_#{param.get_name}_null_)) != E_OK )\n" 1135 1096 file.print "#{indent}\tgoto error_reset;\n" -
Property svn:mime-type
changed from
-
EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenParamCopy.rb
-
Property svn:mime-type
changed from
text/x-ruby
totext/x-ruby;charset=UTF-8
r270 r321 6 6 # Copyright (C) 2008-2014 by TOPPERS Project 7 7 #-- 8 # ä¸è¨èä½æ¨©è 9 ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ 10 # ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹ 11 # å¤ã»åé 12 å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼ 13 # (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½ 14 # 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼ 15 # ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼ 16 # (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 17 # ç¨ã§ããå½¢ã§åé 18 å¸ããå ´åã«ã¯ï¼åé 19 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨ 20 # è 21 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ 22 # ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 23 # (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 24 # ç¨ã§ããªãå½¢ã§åé 25 å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã 26 # ã¨ï¼ 27 # (a) åé 28 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è 29 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è 30 # ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 31 # (b) åé 32 å¸ã®å½¢æ 33 ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã« 34 # å ±åãããã¨ï¼ 35 # (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ 36 # 害ãããï¼ä¸è¨èä½æ¨©è 37 ããã³TOPPERSããã¸ã§ã¯ããå 38 責ãããã¨ï¼ 39 # ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç 40 # ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è 41 ããã³TOPPERSããã¸ã§ã¯ãã 42 # å 43 責ãããã¨ï¼ 8 # 上記著作権者は,以下の(1)~(4)の条件を満たす場合に限り,本ソフトウェ 9 # ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改 10 # 変・再配布(以下,利用と呼ぶ)することを無償で許諾する. 11 # (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作 12 # 権表示,この利用条件および下記の無保証規定が,そのままの形でソー 13 # スコード中に含まれていること. 14 # (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使 15 # 用できる形で再配布する場合には,再配布に伴うドキュメント(利用 16 # 者マニュアルなど)に,上記の著作権表示,この利用条件および下記 17 # の無保証規定を掲載すること. 18 # (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使 19 # 用できない形で再配布する場合には,次のいずれかの条件を満たすこ 20 # と. 21 # (a) 再配布に伴うドキュメント(利用者マニュアルなど)に,上記の著 22 # 作権表示,この利用条件および下記の無保証規定を掲載すること. 23 # (b) 再配布の形態を,別に定める方法によって,TOPPERSプロジェクトに 24 # 報告すること. 25 # (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損 26 # 害からも,上記著作権者およびTOPPERSプロジェクトを免責すること. 27 # また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理 28 # 由に基づく請求からも,上記著作権者およびTOPPERSプロジェクトを 29 # 免責すること. 44 30 # 45 # æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è 46 ã 47 # ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç 48 # ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ 49 # ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã 50 # ã®è²¬ä»»ãè² ããªãï¼ 31 # 本ソフトウェアは,無保証で提供されているものである.上記著作権者お 32 # よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的 33 # に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ 34 # アの利用により直接的または間接的に生じたいかなる損害に関しても,そ 35 # の責任を負わない. 51 36 # 52 # $Id : GenParamCopy.rb 1011 2016-07-11 02:20:01Z coas-nagasima$37 # $Id$ 53 38 #++ 54 39 55 40 #= ParamCopy 56 41 # 57 # ãã©ã¡ã¼ã¿ã³ãã¼ãããã¼ã·ã£ã©ï¼ã¢ã³ãã¼ã·ã£ã©ã³ã¼ããçæããã¡ã½ãã print_param ãæä¾ããï¼58 # RPCPlugin, OpaqueRPCPlugin ã« include ãããï¼59 # RPCPlugin ( ãã©ã³ã¹ãã¢ã¬ã³ã) ã§ã¯ãoneway é¢æ°ã§ in ã®ãã¤ã³ã¿å¼æ°ã®å ´åã«éã£ã¦ print_param ãç¨ããããï¼42 # パラメータコピーするマーシャラ/アンマーシャラコードを生成するメソッド print_param を提供する. 43 # RPCPlugin, OpaqueRPCPlugin に include される. 44 # RPCPlugin (トランスペアレント) では、oneway 関数で in のポインタ引数の場合に限って print_param が用いられる. 60 45 # 61 46 module GenParamCopy 62 47 63 #=== å¼æ°ã®è»¢éã³ã¼ããçæ48 #=== 引数の転送コードを生成 64 49 65 50 def print_param( name, type, file, nest, dir, outer, outer2, b_marshal, b_get, alloc_cp = nil, alloc_cp_extra = nil, name_list = nil ) … … 76 61 EOT 77 62 if ( dir == :SEND || dir == :RECEIVE ) && type.get_type.has_pointer? then 78 # send, receive ã®å ´åã¯ãã¨ã©ã¼ãªã»ããã«åã NULL ã«ãã63 # send, receive の場合は、エラーリセットに備え NULL にする 79 64 file.print <<EOT 80 65 #{indent}memset( (void *)#{outer}#{name}#{outer2}#{alloc_cp_extra}, 0, sizeof(#{type.get_type.get_type_str}#{type.get_type.get_type_str_post})*(#{size_str}); /* GenParamCopy Alloc1 */ … … 103 88 when :SIGNED 104 89 if bit_size == -1 || bit_size == -11 then 105 sign = "S" # signed char ã®å ´åã®ã¿ S ãã¤ã90 sign = "S" # signed char の場合のみ S がつく 106 91 else 107 92 sign = "" … … 156 141 nest = print_nullable_pre( name, type, file, nest, dir, outer, outer2, b_marshal, b_get ) 157 142 indent = "\t" * nest 158 loop_counter_type = IntType.new(32) # mikan åã size_is, count_is ã®å¼æ°ã®åã¨ãã143 loop_counter_type = IntType.new(32) # mikan 型を size_is, count_is の引数の型とする 159 144 file.print "#{indent}{\t/* GenParamCopy 4 */\n" 160 145 file.print "#{indent} #{loop_counter_type.get_type_str} i__#{nest}, length__#{nest};\n" … … 168 153 count_str = count.to_str( name_list, outer, outer2 ) 169 154 else 170 # size_is ã¯å¿ 171 é . count_is ã¯ãªãã·ã§ã³ 155 # size_is は必須. count_is はオプション 172 156 count_str = size_str 173 157 end 174 158 file.print "#{indent} length__#{nest} = #{count_str};\t/* GenParamCopy 5 */\n" 175 159 176 # size_is ã« max æå®ãããå ´åãlength ã max ãè¶ 177 ãã¦ããããã§ãã¯ããã³ã¼ããçæ 178 # alloc_cp == nil ã®ã¨ã dir 㯠INOUT, OUT ã®ã¯ã (æ¡ä»¶ãåé·)ã試é¨ãçµãã£ã¦ããã®ã§ã次åè¦ç´ãæã«å¤ã 160 # size_is に max 指定がある場合、length が max を超えているかチェックするコードを生成 161 # alloc_cp == nil のとき dir は INOUT, OUT のはず (条件が冗長)。試験が終わっているので、次回見直し時に外す 179 162 if b_get && type.get_max != nil && ! ( ( dir == :INOUT || dir == :OUT ) && alloc_cp == nil ) then 180 163 file.print "#{indent} if( length__#{nest} > #{type.get_max.to_s} ){\t/* GenParamCopy max check 1 */\n" … … 202 185 file.print "#{indent} length__#{nest} = STRLEN#{b_size}(#{outer}#{name}#{outer2})+1;\t/* GenParamCopy 7 */\n" 203 186 end 204 size_str = "length__#{nest}" # string ã®å ´åãstrnlen 以ä¸ã®é åã確ä¿ããªã187 size_str = "length__#{nest}" # string の場合、strnlen 以上の領域を確保しない 205 188 else 206 189 if ( dir == :INOUT ) then 207 190 if ( string.instance_of? Expression ) then 208 191 len = string.to_str( name_list, outer, outer2 ) 209 size_str = "#{len}" # string(len) ã®å ´å len ã確ä¿ãã192 size_str = "#{len}" # string(len) の場合 len を確保する 210 193 else 211 194 raise "unsuscripted string used for inout parameter #{name}" 212 195 end 213 196 else 214 size_str = "length__#{nest}" # string ã®å ´åãstrnlen 以ä¸ã®é åã確ä¿ããªã197 size_str = "length__#{nest}" # string の場合、strnlen 以上の領域を確保しない 215 198 end 216 199 end … … 224 207 EOT 225 208 if ( dir == :SEND || dir == :RECEIVE ) && type.get_type.has_pointer? then 226 # send, receive ã®å ´åã¯ãã¨ã©ã¼ãªã»ããã«åã NULL ã«ãã209 # send, receive の場合は、エラーリセットに備え NULL にする 227 210 file.print <<EOT 228 211 #{indent} memset( (void *)#{outer}#{name}#{outer2}#{alloc_cp_extra}, 0, sizeof(#{type.get_type.get_type_str}#{type.get_type.get_type_str_post})*(#{size_str}) ); /* GenParamCopy Alloc2 */ … … 251 234 EOT 252 235 if ( dir == :SEND || dir == :RECEIVE ) && type.get_type.has_pointer? then 253 # send, receive ã®å ´åã¯ãã¨ã©ã¼ãªã»ããã«åã NULL ã«ãã236 # send, receive の場合は、エラーリセットに備え NULL にする 254 237 file.print <<EOT 255 238 #{indent}memset( (void *)#{outer}#{name}#{outer2}#{alloc_cp_extra}, 0, sizeof(#{type.get_type.get_type_str}#{type.get_type.get_type_str_post}) ); /* GenParamCopy Alloc3 */ … … 286 269 size_str = subsc.to_str( name_list, outer, outer2 ) 287 270 288 loop_counter_type = IntType.new(32) # mikan åã size_is, count_is ã®å¼æ°ã®åã¨ãã271 loop_counter_type = IntType.new(32) # mikan 型を size_is, count_is の引数の型とする 289 272 file.print "#{indent}{\t/* GenParamCopy 11 */\n" 290 273 file.print "#{indent} #{loop_counter_type.get_type_str} i__#{nest}, length__#{nest} = #{size_str};\n" … … 302 285 if type.is_nullable? then 303 286 indent = " " * nest 304 if dir == :OUT then # OUT ã®å ´å print_out_nullable 㧠NULL ãã©ããã®æ 305 å ±ã渡ã 287 if dir == :OUT then # OUT の場合 print_out_nullable で NULL かどうかの情報を渡す 306 288 # 'null or not' is sent in the function 'print_out_nullable' 307 289 if b_get then … … 321 303 #{indent} if( ! b_null_ ){ 322 304 EOT 323 else # dir = :INOUT, b_marshal = true, b_get = true ã®å ´åãNULL ãã©ããã®æ 324 å ±ã渡ããªã 305 else # dir = :INOUT, b_marshal = true, b_get = true の場合、NULL かどうかの情報を渡さない 325 306 file.print <<EOT 326 307 #{indent} int8_t b_null_ = (#{outer}#{name}#{outer2} == NULL);\t/* GenParamCopy Null 21 */ … … 335 316 336 317 if ! ( dir == :INOUT && b_marshal == false ) then 337 # dir = :INOUT, b_marshal = false, b_get = false ã®å ´å318 # dir = :INOUT, b_marshal = false, b_get = false の場合 338 319 file.print <<EOT 339 320 #{indent} if((ercd_=cTDR_putInt8( b_null_ )) != E_OK )\t/* GenParamCopy Null 32 */ … … 355 336 def print_nullable_post( name, type, file, nest, dir, outer, outer2, b_marshal, b_get ) 356 337 if type.is_nullable? then 357 if dir == :OUT then # OUT ã®å ´å print_out_nullable 㧠NULL ãã©ããã®æ 358 å ±ã渡ã 338 if dir == :OUT then # OUT の場合 print_out_nullable で NULL かどうかの情報を渡す 359 339 nest -= 1 360 340 indent = " " * nest … … 371 351 #{indent} } /* ! b_null_ */ 372 352 EOT 373 else # dir = :INOUT, b_marshal = true # inout ã® out æ¹å353 else # dir = :INOUT, b_marshal = true # inout の out 方向 374 354 file.print "#{indent} } /* ! b_null_ GenParamCopy Null 52 */\n" 375 355 end -
Property svn:mime-type
changed from
-
EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenTransparentMarshaler.rb
-
Property svn:mime-type
changed from
text/x-ruby
totext/x-ruby;charset=UTF-8
r270 r321 6 6 # Copyright (C) 2008-2014 by TOPPERS Project 7 7 #-- 8 # ä¸è¨èä½æ¨©è 9 ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ 10 # ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹ 11 # å¤ã»åé 12 å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼ 13 # (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½ 14 # 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼ 15 # ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼ 16 # (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 17 # ç¨ã§ããå½¢ã§åé 18 å¸ããå ´åã«ã¯ï¼åé 19 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨ 20 # è 21 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ 22 # ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 23 # (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿ 24 # ç¨ã§ããªãå½¢ã§åé 25 å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã 26 # ã¨ï¼ 27 # (a) åé 28 å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è 29 ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è 30 # ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼ 31 # (b) åé 32 å¸ã®å½¢æ 33 ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã« 34 # å ±åãããã¨ï¼ 35 # (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ 36 # 害ãããï¼ä¸è¨èä½æ¨©è 37 ããã³TOPPERSããã¸ã§ã¯ããå 38 責ãããã¨ï¼ 39 # ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç 40 # ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è 41 ããã³TOPPERSããã¸ã§ã¯ãã 42 # å 43 責ãããã¨ï¼ 8 # 上記著作権者は,以下の(1)~(4)の条件を満たす場合に限り,本ソフトウェ 9 # ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改 10 # 変・再配布(以下,利用と呼ぶ)することを無償で許諾する. 11 # (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作 12 # 権表示,この利用条件および下記の無保証規定が,そのままの形でソー 13 # スコード中に含まれていること. 14 # (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使 15 # 用できる形で再配布する場合には,再配布に伴うドキュメント(利用 16 # 者マニュアルなど)に,上記の著作権表示,この利用条件および下記 17 # の無保証規定を掲載すること. 18 # (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使 19 # 用できない形で再配布する場合には,次のいずれかの条件を満たすこ 20 # と. 21 # (a) 再配布に伴うドキュメント(利用者マニュアルなど)に,上記の著 22 # 作権表示,この利用条件および下記の無保証規定を掲載すること. 23 # (b) 再配布の形態を,別に定める方法によって,TOPPERSプロジェクトに 24 # 報告すること. 25 # (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損 26 # 害からも,上記著作権者およびTOPPERSプロジェクトを免責すること. 27 # また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理 28 # 由に基づく請求からも,上記著作権者およびTOPPERSプロジェクトを 29 # 免責すること. 44 30 # 45 # æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è 46 ã 47 # ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç 48 # ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ 49 # ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã 50 # ã®è²¬ä»»ãè² ããªãï¼ 31 # 本ソフトウェアは,無保証で提供されているものである.上記著作権者お 32 # よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的 33 # に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ 34 # アの利用により直接的または間接的に生じたいかなる損害に関しても,そ 35 # の責任を負わない. 51 36 # 52 # $Id : GenTransparentMarshaler.rb 1011 2016-07-11 02:20:01Z coas-nagasima$37 # $Id$ 53 38 #++ 54 39 55 # ãã©ã°ã¤ã³ãªãã·ã§ã³ç¨å¤æ°40 #プラグインオプション用変数 56 41 #@task_priority:: Integer 57 42 #@channelCelltype:: String … … 60 45 module GenTransparentMarshaler 61 46 62 # ãã©ã°ã¤ã³å¼æ°åã¨Proc47 # プラグイン引数名と Proc 63 48 RPCPluginArgProc = { 64 49 "taskPriority" => Proc.new { |obj,rhs| obj.set_taskPriority rhs }, … … 69 54 } 70 55 71 #=== ãã©ã°ã¤ã³å¼æ° taskPriority ã®ãã§ãã¯56 #=== プラグイン引数 taskPriority のチェック 72 57 def set_taskPriority( rhs ) 73 58 @task_priority = rhs 74 59 end 75 60 76 #=== ãã©ã°ã¤ã³å¼æ° channelCelltype ã®ãã§ãã¯61 #=== プラグイン引数 channelCelltype のチェック 77 62 def set_channelCelltype( rhs ) 78 63 @channelCelltype = rhs.to_sym … … 86 71 end 87 72 88 #=== ãã©ã°ã¤ã³å¼æ° TDRCelltype ã®ãã§ãã¯73 #=== プラグイン引数 TDRCelltype のチェック 89 74 def set_TDRCelltype( rhs ) 90 75 @TDRCelltype = rhs.to_sym … … 98 83 end 99 84 100 #=== ãã©ã°ã¤ã³å¼æ° channelCellName ã®ãã§ãã¯85 #=== プラグイン引数 channelCellName のチェック 101 86 def set_channelCellName( rhs ) 102 87 @channelCellName = rhs … … 108 93 end 109 94 110 #=== ãã©ã°ã¤ã³å¼æ° PPAllocatorSize ã®ãã§ãã¯95 #=== プラグイン引数 PPAllocatorSize のチェック 111 96 def set_PPAllocatorSize( rhs ) 112 97 @PPAllocatorSize = rhs 113 98 end 114 99 115 #=== marshaler ã®ã»ã«ã¿ã¤ãåãè¨å®ãã100 #=== marshaler のセルタイプ名を設定する 116 101 def initialize_transparent_marshaler cell_name 117 102 @task_priority = 8 … … 135 120 136 121 f = CFile.open( @marshaler_celltype_file_name, "w" ) 137 # åãå 138 容ãäºåº¦æ¸ãå¯è½æ§ãã (AppFile ã¯ä¸å¯) 122 # 同じ内容を二度書く可能性あり (AppFile は不可) 139 123 140 124 f.print <<EOT … … 157 141 end 158 142 159 #=== åãå£é¢æ°ã®æ¬ä½ã³ã¼ããçæï¼é é¨ã¨æ«å°¾ã¯å¥éåºåï¼160 #ct_name:: Symbol (through ãã©ã°ã¤ã³ã§çæããã) ã»ã«ã¿ã¤ãå ï¼Symbol ã¨ãã¦éããã¦ããï¼ãããï¼143 #=== 受け口関数の本体コードを生成(頭部と末尾は別途出力) 144 #ct_name:: Symbol (through プラグインで生成された) セルタイプ名 .Symbol として送られてくる(らしい) 161 145 def gen_ep_func_body( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 162 146 163 # unmarshaler ã¯ã©ã¹ã?147 # unmarshaler クラスか? 164 148 if ct_name == @unmarshaler_celltype_name.to_sym then 165 149 gen_ep_func_body_unmarshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) … … 169 153 end 170 154 171 #=== marshal ã³ã¼ãã®çæ155 #=== marshal コードの生成 172 156 def gen_ep_func_body_marshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 173 157 … … 175 159 b_ret_er = false 176 160 177 # é¢æ°ã®æ»ãå¤ã®å 178 ã®åãå¾ã(typedef ããã¦ããå ´å) 161 # 関数の戻り値の元の型を得る(typedef されている場合) 179 162 type = func_type.get_type.get_original_type 180 163 181 # æ»ãå¤è¨æ¶ç¨ã®å¤æ°ãåºåï¼void åã®é¢æ°ã§ã¯åºåããªãï¼164 # 戻り値記憶用の変数を出力(void 型の関数では出力しない) 182 165 if ! type.is_void? then 183 166 if func_type.get_type.kind_of?( DefinedType ) && ( func_type.get_type.get_type_str == "ER" || func_type.get_type.get_type_str == "ER_INT" ) then … … 194 177 file.print( " FLGPTN flgptn;\n" ) 195 178 196 # å¼ã³å 197 ã® signature ãåãåºã 179 # 呼び先の signature を取り出す 198 180 signature = @signature 199 181 200 # é¢æ° ID ï¼æ´æ°å¤ï¼182 # 関数 ID (整数値) 201 183 func_id = signature.get_id_from_func_name( func_name ) 202 184 file.print( " int16_t func_id_ = #{func_id}; /* id of #{func_name}: #{func_id} */\n" ) 203 185 204 # ã·ã³ã°ã«ãã³ã§ãªããï¼186 # シングルトンでないか? 205 187 if ! b_singleton then 206 188 207 # singleton ã§ãªããã° p_cellcb åå¾ã³ã¼ããåºå189 # singleton でなければ p_cellcb 取得コードを出力 208 190 file.print <<EOT 209 191 #{ct_name}_CB *p_cellcb; … … 213 195 EOT 214 196 215 # ã¨ã©ã¼ãè¿ããï¼197 # エラーを返すか? 216 198 if b_ret_er then 217 199 file.print <<EOT … … 223 205 file.print <<EOT 224 206 }else{ 225 /* ã¨ã©ã¼å¦çã³ã¼ããããã«è¨è¿°*/226 } 227 EOT 228 end 229 end 230 231 # channel lock ã³ã¼ã207 /* エラー処理コードをここに記述 */ 208 } 209 EOT 210 end 211 end 212 213 # channel lock コード 232 214 file.print <<EOT 233 215 /* Channel Lock */ … … 237 219 EOT 238 220 239 # SOP ãéä¿¡240 file.print " /* SOP ã®éåº*/\n"221 # SOP を送信 222 file.print " /* SOPの送出 */\n" 241 223 file.print " if( ( ercd_ = cTDR_sendSOP( true ) ) != E_OK )\n" 242 224 file.print " goto error_reset;\n" 243 225 244 # func_id ãéä¿¡245 file.print " /* é¢æ° id ã®éåº*/\n"226 # func_id を送信 227 file.print " /* 関数 id の送出 */\n" 246 228 file.print " if( ( ercd_ = cTDR_putInt16( func_id_ ) ) != E_OK )\n" 247 229 file.print " goto error_reset;\n" … … 250 232 # p "#{ct_name}, #{sig_name}, #{func_name}, #{func_global_name}" 251 233 252 b_get = false # marshal ãªãput234 b_get = false # marshal なら put 253 235 b_marshal = true # marshal 254 236 255 # in æ¹åã®å 256 ¥åºåãåºå 257 file.print " /* å 258 ¥åå¼æ°éåº */\n" 237 # in 方向の入出力を出力 238 file.print " /* 入力引数送出 */\n" 259 239 print_params( params, file, 1, b_marshal, b_get, true, func_type.is_oneway? ) 260 240 print_params( params, file, 1, b_marshal, b_get, false, func_type.is_oneway? ) … … 264 244 end 265 245 266 file.print " /* EOP ã®éåºï¼ãã±ããã®æãã ãï¼*/\n"246 file.print " /* EOPの送出(パケットの掃きだし) */\n" 267 247 if ! func_type.is_oneway? then 268 248 b_continue = "true" … … 293 273 294 274 if( b_void == false )then 295 # å¼ã³å 296 ã«æ»ãå¤ããªã¿ã¼ã³ 275 # 呼び元に戻り値をリターン 297 276 file.print( " return retval_;\n" ) 298 277 else … … 307 286 EOT 308 287 309 # channel lock ã³ã¼ã288 # channel lock コード 310 289 file.print <<EOT 311 290 /* Channel Lock */ … … 316 295 317 296 if( b_ret_er != false )then 318 # å¼ã³å 319 ã«æ»ãå¤ããªã¿ã¼ã³ 297 # 呼び元に戻り値をリターン 320 298 file.print( " return ercd_;\n" ) 321 299 else … … 325 303 end 326 304 327 #=== unmarshal ã³ã¼ãã®çæ305 #=== unmarshal コードの生成 328 306 def gen_ep_func_body_unmarshal( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params ) 329 307 … … 331 309 b_ret_er = false 332 310 333 # func_id ãå¾ãã³ã¼ããçæ311 # func_id を得るコードを生成 334 312 file.print <<EOT 335 313 … … 352 330 file.print <<EOT 353 331 }else{ 354 /* ã¨ã©ã¼å¦çã³ã¼ããããã«è¨è¿°*/332 /* エラー処理コードをここに記述 */ 355 333 } 356 334 EOT … … 359 337 file.print <<EOT 360 338 361 /* SOP ã®ãã§ãã¯*/339 /* SOPのチェック */ 362 340 if( (ercd_=cTDR_receiveSOP( false )) != E_OK ) 363 341 goto error_reset; 364 /* func_id ã®åå¾*/342 /* func_id の取得 */ 365 343 if( (ercd_=cTDR_getInt16( &func_id_ )) != E_OK ) 366 344 goto error_reset; … … 372 350 EOT 373 351 374 # å¼ã³å 375 ã® signature ãåãåºã 352 # 呼び先の signature を取り出す 376 353 # port = @celltype.find( @next_cell_port_name ) 377 354 # signature = port.get_signature 378 355 signature = @signature 379 356 380 # through ã® signature ã«å«ã¾ãã ãã¹ã¦ã®é¢æ°ã«ã¤ãã¦357 # through の signature に含まれる すべての関数について 381 358 signature.get_function_head_array.each { |f| 382 359 f_name = f.get_name … … 384 361 id = signature.get_id_from_func_name( f_name ) 385 362 386 # é¢æ°ã¯è¿ãå¤ãæã¤ã?363 # 関数は返り値を持つか? 387 364 if f_type.get_type.is_void? then 388 365 b_void = true … … 391 368 end 392 369 393 # ãã±ããã®çµããããã§ãã¯ï¼æªåãåãã®ãã¼ã¿ãæ®ã£ã¦ããªãããã§ãã¯ï¼370 # パケットの終わりをチェック(未受け取りのデータが残っていないかチェック) 394 371 file.print " case #{id}: /*** #{f_name} ***/ \n" 395 372 file.print " if( tTransparentUnmarshaler_#{@signature.get_global_name}_#{f_name}() != E_OK )\n" … … 400 377 401 378 if @PPAllocatorSize then 402 ppallocator_dealloc_str = " /* PPAllocator ã®ãã¹ã¦ã解æ¾*/\n cPPAllocator_dealloc_all();"379 ppallocator_dealloc_str = " /* PPAllocator のすべてを解放 */\n cPPAllocator_dealloc_all();" 403 380 else 404 381 ppallocator_dealloc_str = "" … … 422 399 423 400 # IN b_marshal, b_get 424 # b_marshal = true && b_get == false : ãã¼ã·ã£ã©ã§å 425 ¥åå¼æ°éåº 426 # b_marshal = true && b_get == true : ãã¼ã·ã£ã©ã§åºåå¼æ°åå 427 # b_marshal = false && b_get == true : ã¢ã³ãã¼ã·ã£ã©ã§å 428 ¥åå¼æ°åå 429 # b_marshal = false && b_get == get : ã¢ã³ãã¼ã·ã£ã©ã§åºåå¼æ°éåº 401 # b_marshal = true && b_get == false : マーシャラで入力引数送出 402 # b_marshal = true && b_get == true : マーシャラで出力引数受取 403 # b_marshal = false && b_get == true : アンマーシャラで入力引数受取 404 # b_marshal = false && b_get == get : アンマーシャラで出力引数送出 430 405 def print_params( params, file, nest, b_marshal, b_get, b_referenced, b_oneway = false ) 431 406 params.each{ |param| … … 438 413 type = param.get_type 439 414 if b_oneway && dir == :IN && type.get_original_type.kind_of?( PtrType ) || type.get_original_type.kind_of?( ArrayType ) then 440 # oneway, in, PtrType ã®å ´åã³ãã¼415 # oneway, in, PtrType の場合コピー 441 416 alloc_cp = "cPPAllocator_alloc" 442 417 alloc_cp_extra = nil … … 460 435 end 461 436 462 #=== ã³ãã¼ããªãå¼æ°æ¸¡ãã³ã¼ãã®åºå437 #=== コピーしない引数渡しコードの出力 463 438 def print_param_nc( name, type, file, nest, b_marshal, outer, outer2, b_get ) 464 439 indent = " " * ( nest + 1 ) … … 480 455 when :SIGNED 481 456 if bit_size == -1 || bit_size == -11 then 482 # signed char ã®å ´åãsigned ãæå®ãã457 # signed char の場合、signed を指定する 483 458 signC = "S" 484 459 sign = "s" … … 573 548 574 549 575 #=== PREAMBLE é¨ã®ã³ã¼ãçæ576 # ã¢ã³ãã¼ã·ã£ã©ã»ã«ã¿ã¤ãã®å ´åãã¢ã³ãã¼ã·ã£ã©é¢æ°ã®ãããã¿ã¤ã宣è¨ãçæ550 #=== PREAMBLE 部のコード生成 551 # アンマーシャラセルタイプの場合、アンマーシャラ関数のプロトタイプ宣言を生成 577 552 def gen_preamble file, b_singleton, ct_name, global_name 578 553 if ct_name != @unmarshaler_celltype_name.to_sym then … … 580 555 end 581 556 582 file.print "/* ã¢ã³ãã¼ã·ã£ã©é¢æ°ã®ãããã¿ã¤ã宣è¨*/\n"583 # signature ã«å«ã¾ãã ãã¹ã¦ã®é¢æ°ã«ã¤ãã¦557 file.print "/* アンマーシャラ関数のプロトタイプ宣言 */\n" 558 # signature に含まれる すべての関数について 584 559 @signature.get_function_head_array.each { |f| 585 560 f_name = f.get_name … … 591 566 end 592 567 593 #=== POSTAMBLE é¨ã®ã³ã¼ãçæ594 # ã¢ã³ãã¼ã·ã£ã©ã»ã«ã¿ã¤ãã®å ´åãã¢ã³ãã¼ã·ã£ã©é¢æ°ã®çæ568 #=== POSTAMBLE 部のコード生成 569 # アンマーシャラセルタイプの場合、アンマーシャラ関数の生成 595 570 def gen_postamble file, b_singleton, ct_name, global_name 596 571 if ct_name != @unmarshaler_celltype_name.to_sym then … … 598 573 end 599 574 600 file.print "\n/*** ã¢ã³ãã¼ã·ã£ã©é¢æ°***/\n\n"575 file.print "\n/*** アンマーシャラ関数 ***/\n\n" 601 576 @signature.get_function_head_array.each { |f| 602 577 f_name = f.get_name … … 604 579 id = @signature.get_id_from_func_name( f_name ) 605 580 606 # é¢æ°ã¯è¿ãå¤ãæã¤ã?581 # 関数は返り値を持つか? 607 582 if f_type.get_type.is_void? then 608 583 b_void = true … … 623 598 file.print " CELLCB *p_cellcb;\n" 624 599 625 # å¼æ°ãååãå¤æ°ã®å®ç¾©600 # 引数を受取る変数の定義 626 601 param_list = f.get_declarator.get_type.get_paramlist.get_items 627 602 # FuncHead-> Decl-> FuncType->ParamList … … 638 613 end 639 614 640 type_str = type.get_type_str.gsub( /\bconst\b */, "" ) # "const" ãå¤ã615 type_str = type.get_type_str.gsub( /\bconst\b */, "" ) # "const" を外す 641 616 642 617 file.printf( " %-12s %s%s%s%s;\n", type_str, aster, name, aster2, type.get_type_str_post ) 643 618 } 644 619 645 # æ»ãå¤ãåãåãå¤æ°ã®å®ç¾©620 # 戻り値を受け取る変数の定義 646 621 if ! b_void then 647 622 if f.is_oneway? then 648 retval_ptr = "" # oneway ã®å ´åãåãåããæ¨ã¦ããã623 retval_ptr = "" # oneway の場合、受け取るが捨てられる 649 624 else 650 625 retval_ptr = "*" … … 653 628 end 654 629 655 # in æ¹åã®å 656 ¥åºåãå 657 ¥å 658 file.print "\n /* å 659 ¥åå¼æ°åå */\n" 660 b_get = true # unmarshal ã§ã¯ get 630 # in 方向の入出力を入力 631 file.print "\n /* 入力引数受取 */\n" 632 b_get = true # unmarshal では get 661 633 b_marshal = false 662 634 print_params( param_list, file, 1, b_marshal, b_get, true, f.is_oneway? ) … … 667 639 end 668 640 669 # ãã±ããã®åä¿¡å®äº670 # mikan æ¬å½ã¯ã対象é¢æ°ãå¼åºãå¾ã«å®æ½ãããï¼å¼åºããã±ããã®ä½¿ç¨çµããã宣è¨ããç®çã¨ãã¦671 file.print " /* ãã±ããçµããããã§ãã¯*/\n"641 # パケットの受信完了 642 # mikan 本当は、対象関数を呼出す後に実施したい.呼出しパケットの使用終わりを宣言する目的として 643 file.print " /* パケット終わりをチェック */\n" 672 644 if ! f.is_oneway? then 673 645 b_continue = "true" … … 678 650 file.print " goto error_reset;\n\n" 679 651 680 # 対象é¢æ°ãå¼åºã681 file.print " /* 対象é¢æ°ã®å¼åºã*/\n"652 # 対象関数を呼出す 653 file.print " /* 対象関数の呼出し */\n" 682 654 if b_void then 683 655 file.print( " cServerCall_#{f_name}(" ) … … 694 666 file.print( " );\n" ) 695 667 696 # æ»ãå¤ãåºåå¼æ°ã®ååã³ã¼ãã®çæ 697 698 # oneway ã®å ´ååºåãæ»ãå¤ãç¡ããååãå¾ 699 ããªãï¼éåæãªå¼åºãï¼ 668 # 戻り値、出力引数の受取コードの生成 669 670 # oneway の場合出力、戻り値が無く、受取を待たない(非同期な呼出し) 700 671 if ! f.is_oneway? then 701 672 file.print <<EOT 702 /* é¢æ°å¦çã®çµäºãéç¥*/673 /* 関数処理の終了を通知 */ 703 674 if( ( ercd_ = cEventflag_set( 0x01 ) ) != E_OK ){ 704 675 goto error_reset; -
Property svn:mime-type
changed from
Note:
See TracChangeset
for help on using the changeset viewer.