Changeset 429 for EcnlProtoTool/trunk/asp3_dcre/tecsgen

EcnlProtoTool/trunk/asp3_dcre/tecsgen/MANIFEST_for_asp3

-              r270
+              r429
 tecslib/core/tecs_lang.rb
 tecslib/core/tecsgen.rb
+tecslib/core/tecsinfo.rb
+tecslib/core/tool_info.rb
 tecslib/core/types.rb
+tecslib/core/unjoin_plugin.rb
 tecslib/core/value.rb
 …
 tecslib/plugin/CellPlugin.rb
 tecslib/plugin/CelltypePlugin.rb
+tecslib/plugin/CompositePlugin.rb
 tecslib/plugin/DomainPlugin.rb
 tecslib/plugin/Mruby2CBridgePlugin.rb
 tecslib/plugin/MrubyBridgePlugin.rb
+tecslib/plugin/MultiPlugin.rb
 tecslib/plugin/NotifierPlugin.rb
 tecslib/plugin/RPCPlugin.rb
 …
 tecs/rpc/tTDR_inline.h
 tecs/rpc/tecs_rpc.h
+tecs/rpc/tMessageBufferCEP.cdl
+tecs/rpc/tMessageBufferCEP_inline.h
+tecs/rpc/tMessageBufferChannel.cdl

EcnlProtoTool/trunk/asp3_dcre/tecsgen/MANIFEST_tecsgen_body

-              r270
+              r429
 Makefile
+tecscde
+tecscde.rb
 tecsgen
 tecsgen.rb
+tecsgen_rcov.rb
 tecsmerge
 tecsmerge.rb
+tecslib/version.rb
+cdelib/Makefile
+cdelib/cell_plugin_dialog.rb
+cdelib/cell_plugin_dialog_ui_definition.rb
+cdelib/palette.rb
+cdelib/saveload.rb
+cdelib/tcontrol.rb
+cdelib/tmodel.rb
+cdelib/tview.rb
+cdelib/version.rb
+tecs/TECSInfo/TECSInfo.cdl
+tecs/TECSInfo/TECSInfoAccessor.cdl
+tecs/TECSInfo/nTECSInfo_tArrayTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tBoolTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tCallInfo.c
+tecs/TECSInfo/nTECSInfo_tCellInfo.c
+tecs/TECSInfo/nTECSInfo_tCelltypeInfo.c
+tecs/TECSInfo/nTECSInfo_tDefinedTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tDescriptorTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tEntryInfo.c
+tecs/TECSInfo/nTECSInfo_tFloatTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tFunctionInfo.c
+tecs/TECSInfo/nTECSInfo_tIntTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tNamespaceInfo.c
+tecs/TECSInfo/nTECSInfo_tParamInfo.c
+tecs/TECSInfo/nTECSInfo_tPtrTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tRawEntryDescriptorInfo.c
+tecs/TECSInfo/nTECSInfo_tRegionInfo.c
+tecs/TECSInfo/nTECSInfo_tSignatureInfo.c
+tecs/TECSInfo/nTECSInfo_tStructTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tTECSInfoAccessor.c
+tecs/TECSInfo/nTECSInfo_tTECSInfoSub.c
+tecs/TECSInfo/nTECSInfo_tTECSInfo_inline.h
+tecs/TECSInfo/nTECSInfo_tTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tVarDeclInfo.c
+tecs/TECSInfo/nTECSInfo_tVoidTypeInfo.c
+tecs/TECSInfo/tTECSInfoAccessor.c
+tecs/TLSFMalloc/README-TLSF.txt
+tecs/TLSFMalloc/tTLSFMalloc.cdl
+tecs/TLSFMalloc/tTLSFMalloc_inline.h
+tecs/mruby/README-mruby.txt
+tecs/mruby/TECSPointer.h
+tecs/mruby/TECSStruct.h
+tecs/mruby/mruby.cdl
+tecs/mruby/mrubyBridge.txt
+tecs/mruby/mrubyInitializer.cdl
+tecs/mruby/mrubyPointers.cdl
+tecs/mruby/mrubyTECSPointer.txt
+tecs/mruby/mrubyTECSStruct.txt
+tecs/mruby/mrubyVMs.cdl
+tecs/mruby/nMruby_tBoolPointer.c
+tecs/mruby/nMruby_tCharPointer.c
+tecs/mruby/nMruby_tDouble64Pointer.c
+tecs/mruby/nMruby_tFloat32Pointer.c
+tecs/mruby/nMruby_tInt16Pointer.c
+tecs/mruby/nMruby_tInt32Pointer.c
+tecs/mruby/nMruby_tInt64Pointer.c
+tecs/mruby/nMruby_tInt8Pointer.c
+tecs/mruby/nMruby_tIntPointer.c
+tecs/mruby/nMruby_tLongPointer.c
+tecs/mruby/nMruby_tMruby.c
+tecs/mruby/nMruby_tMrubyCyclicTaskBody.c
+tecs/mruby/nMruby_tMrubyProc.c
+tecs/mruby/nMruby_tMrubyTaskBody.c
+tecs/mruby/nMruby_tMrubyVM.c
+tecs/mruby/nMruby_tSCharPointer.c
+tecs/mruby/nMruby_tShortPointer.c
+tecs/mruby/nMruby_tTECSInitializer.c
+tecs/mruby/nMruby_tUCharPointer.c
+tecs/mruby/nMruby_tUInt16Pointer.c
+tecs/mruby/nMruby_tUInt32Pointer.c
+tecs/mruby/nMruby_tUInt64Pointer.c
+tecs/mruby/nMruby_tUInt8Pointer.c
+tecs/mruby/nMruby_tUIntPointer.c
+tecs/mruby/nMruby_tULongPointer.c
+tecs/mruby/nMruby_tUShortPointer.c
+tecs/mruby/sMruby.cdl
+tecs/mruby/tMruby.cdl
+tecs/mruby/tecs_mruby.h
+tecs/posix/posix.cdl
+tecs/rpc/PPAllocator.cdl
+tecs/rpc/RPCTask.cdl
+tecs/rpc/TDR.cdl
+tecs/rpc/rpc.cdl
+tecs/rpc/rpc_string.h
+tecs/rpc/sChannel.cdl
+tecs/rpc/sRPCErrorHandler.cdl
+tecs/rpc/tDataqueueAdaptor_inline.h
+tecs/rpc/tDataqueueOWChannel.cdl
+tecs/rpc/tMessageBufferCEP.cdl
+tecs/rpc/tMessageBufferCEP_inline.h
+tecs/rpc/tMessageBufferChannel.cdl
+tecs/rpc/tNBOTDR_inline.h
+tecs/rpc/tPPAllocator.c
+tecs/rpc/tRPCDedicatedTaskMain.c
+tecs/rpc/tRPCDedicatedTaskMainWithOpener.c
+tecs/rpc/tRPCSharedChannelMan.c
+tecs/rpc/tRPCSharedTaskMain.c
+tecs/rpc/tRPCSharedTaskMainWithOpener.c
+tecs/rpc/tSocketChannel.cdl
+tecs/rpc/tSocketClient.c
+tecs/rpc/tSocketServer.c
+tecs/rpc/tTDR_inline.h
+tecs/rpc/tTINETChannel.cdl
+tecs/rpc/tTINETClient.c
+tecs/rpc/tTINETServer.c
+tecs/rpc/tecs_rpc.h
+tecs/sMalloc.cdl
+tecs/tecs.h
+tecs/tecs.xsd
 tecslib/core/C_parser.tab.rb
 tecslib/core/C_parser.y.rb
 …
 tecslib/core/tecs_lang.rb
 tecslib/core/tecsgen.rb
+tecslib/core/tecsinfo.rb
+tecslib/core/tool_info.rb
 tecslib/core/types.rb
+tecslib/core/unjoin_plugin.rb
 tecslib/core/value.rb
 tecslib/messages/messages_console_en_US.rb
 tecslib/messages/messages_console_ja_JP.rb
 tecslib/messages/messages_file_en_US.rb
 tecslib/messages/messages_file_ja_JP.rb
 tecslib/plugin/ATK1AlarmPlugin.rb
 tecslib/plugin/ATK1DelayTaskPlugin.rb
 …
 tecslib/plugin/CellPlugin.rb
 tecslib/plugin/CelltypePlugin.rb
+tecslib/plugin/CompositePlugin.rb
 tecslib/plugin/DomainPlugin.rb
 tecslib/plugin/HRP2AlarmHandlerPlugin.rb
 …
 tecslib/plugin/HRP2SemaphorePlugin.rb
 tecslib/plugin/HRP2TaskPlugin.rb
+tecslib/plugin/HRPHandlerPlugin.rb
+tecslib/plugin/HRPKernelObjectManager.rb
+tecslib/plugin/HRPKernelObjectPlugin.rb
+tecslib/plugin/HRPObjectPlugin.rb
+tecslib/plugin/HRPPlugin.rb
+tecslib/plugin/HRPRPCPlugin.rb
+tecslib/plugin/HRPSVCPlugin.rb
+tecslib/plugin/HRPTaskPlugin.rb
 tecslib/plugin/Mruby2CBridgePlugin.rb
+tecslib/plugin/MrubyBridgeCellPlugin.rb
+tecslib/plugin/MrubyBridgeCelltypePlugin.rb
+tecslib/plugin/MrubyBridgeCompositePlugin.rb
 tecslib/plugin/MrubyBridgePlugin.rb
+tecslib/plugin/MrubyBridgeSignaturePlugin.rb
+tecslib/plugin/MultiPlugin.rb
 tecslib/plugin/NotifierPlugin.rb
 tecslib/plugin/OpaqueMarshalerPlugin.rb
 tecslib/plugin/OpaqueRPCPlugin.rb
 tecslib/plugin/RPCPlugin.rb
+tecslib/plugin/RepeatCellPlugin.rb
+tecslib/plugin/RepeatJoinPlugin.rb
 tecslib/plugin/SharedOpaqueRPCPlugin.rb
 tecslib/plugin/SharedRPCPlugin.rb
 tecslib/plugin/SignaturePlugin.rb
 tecslib/plugin/TECS2CBridgePlugin.rb
+tecslib/plugin/TECSInfoPlugin.rb
 tecslib/plugin/ThroughPlugin.rb
 tecslib/plugin/TracePlugin.rb
 …
 tecslib/plugin/lib/GenParamCopy.rb
 tecslib/plugin/lib/GenTransparentMarshaler.rb
+tecs/mruby/TECSPointer.h
+tecs/mruby/TECSStruct.h
+tecs/mruby/mruby.cdl
+tecs/mruby/mrubyInitializer.cdl
+tecs/mruby/mrubyPointers.cdl
+tecs/mruby/mrubyVMs.cdl
+tecs/mruby/nMruby_tBoolPointer.c
+tecs/mruby/nMruby_tCharPointer.c
+tecs/mruby/nMruby_tDouble64Pointer.c
+tecs/mruby/nMruby_tFloat32Pointer.c
+tecs/mruby/nMruby_tInt16Pointer.c
+tecs/mruby/nMruby_tInt32Pointer.c
+tecs/mruby/nMruby_tInt64Pointer.c
+tecs/mruby/nMruby_tInt8Pointer.c
+tecs/mruby/nMruby_tIntPointer.c
+tecs/mruby/nMruby_tLongPointer.c
+tecs/mruby/nMruby_tMruby.c
+tecs/mruby/nMruby_tMrubyProc.c
+tecs/mruby/nMruby_tMrubyProc_1_0.c
+tecs/mruby/nMruby_tSCharPointer.c
+tecs/mruby/nMruby_tShortPointer.c
+tecs/mruby/nMruby_tTECSInitializer.c
+tecs/mruby/nMruby_tUCharPointer.c
+tecs/mruby/nMruby_tUInt16Pointer.c
+tecs/mruby/nMruby_tUInt32Pointer.c
+tecs/mruby/nMruby_tUInt64Pointer.c
+tecs/mruby/nMruby_tUInt8Pointer.c
+tecs/mruby/nMruby_tUIntPointer.c
+tecs/mruby/nMruby_tULongPointer.c
+tecs/mruby/nMruby_tUShortPointer.c
+tecs/mruby/tMruby.cdl
+tecs/mruby/tecs_mruby.h
+tecs/posix/posix.cdl
+tecs/rpc/PPAllocator.cdl
+tecs/rpc/RPCTask.cdl
+tecs/rpc/TDR.cdl
+tecs/rpc/rpc.cdl
+tecs/rpc/rpc_string.h
+tecs/rpc/sChannel.cdl
+tecs/rpc/sRPCErrorHandler.cdl
+tecs/rpc/tDataqueueAdaptor_inline.h
+tecs/rpc/tDataqueueOWChannel.cdl
+tecs/rpc/tNBOTDR_inline.h
+tecs/rpc/tPPAllocator.c
+tecs/rpc/tRPCDedicatedTaskMain.c
+tecs/rpc/tRPCDedicatedTaskMainWithOpener.c
+tecs/rpc/tRPCSharedChannelMan.c
+tecs/rpc/tRPCSharedTaskMain.c
+tecs/rpc/tRPCSharedTaskMainWithOpener.c
+tecs/rpc/tSocketChannel.cdl
+tecs/rpc/tSocketClient.c
+tecs/rpc/tSocketServer.c
+tecs/rpc/tTDR_inline.h
+tecs/rpc/tTINETChannel.cdl
+tecs/rpc/tTINETClient.c
+tecs/rpc/tTINETServer.c
+tecs/rpc/tecs_rpc.h
+tecs/tecs.h
+tecs/tecs.xsd
+tecslib/plugin/lib/MrubyBridgeCelltypePluginModule.rb
+tecslib/version.rb

EcnlProtoTool/trunk/asp3_dcre/tecsgen/Makefile

-              r321
+              r429
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: Makefile 2640 2017-06-03 11:27:12Z okuma-top $
 #++
 …
 C_TAB = $(LIB_PATH)/C_parser.tab.rb
 EXERB_EXE = tecsgen.exe
-EXERB_EXY = tecsgen.exy
 all: generator
 …
         racc -v -g -o $(GEN_TAB_DEB) $(BNF)     # yydebug を有効にする
-# exerb : $(EXERB_EXE)
-exerb :
-        @echo "!!! please build using ActiveScriptRuby !!!"
-        exit 1
-# $(EXERB_EXE) : $(EXERB_EXY) $(GEN_SRC) $(PLUGIN_SRC)
-#       exerb  $(EXERB_EXY)
-# tecsgen.exy.ini から tecsgen.exy を生成するのは util/release.sh により行われる
-# MANIFEST に記載のバージョン番号が、tecsgen.exy.ini の文字列置換により、埋め込まれる
-exerb_check : $(EXERB_EXE)
-$(EXERB_EXE) : $(EXERB_EXY) $(GEN_SRC) $(PLUGIN_SRC)
-        @echo "### Need make_tecsgen_exerb on ActiveScriptRuby to update tecsgen.exerb ###"
 print_error :   # エラーメッセージを拾い出す
         grep -e "Generator\.error" -e cdl_error $(LIB_PATH)/*.rb \
                 | grep -v bnf.tab.rb \
                 | sed -e "s/\s*Generator\.error(/  /" -e "s/\s*cdl_error(//" -e "s/).*$$//"
+                | sed -e "s/\s*Generator\.error(//" -e "s/\s*cdl_error[0-9]*(//" -e "s/).*$$//"
 print_error2 :  # エラーメッセージを拾い出す

EcnlProtoTool/trunk/asp3_dcre/tecsgen/in_exerb.rb

r321	r429
35	35	# の責任を負わない．
36	36	#
37		# $Id$
	37	# $Id: in_exerb.rb 1011 2016-07-11 02:20:01Z coas-nagasima $
38	38	#++
39	39

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/TECSPointer.h

-              r321
+              r429
         {                                                                                                                                       \
                 if( sizeof( type ) > sizeof( mrb_int ) ){                                               \
                         if( val >= (((type)1) << (sizeof(mrb_int)*8-1))                         \
                                 || val < -(((type)1) << (sizeof(mrb_int)*8-1)) )                \
+                        if( val > TYPE ## _MAX                          \
+                                || val < TYPE ## _MIN )         \
                                 /* '=' unecessary for negative value    */                              \
                                 /* ignore warning on int32_t */                                                 \
 …
         {                                                                                                                                       \
                 if( sizeof( type ) > sizeof( mrb_int ) ){                                               \
                         if( val >= (((type)1) << (sizeof(mrb_int)*8)))                          \
+      if( val > TYPE ## _MAX )                        \
                                 /* '=' unecessary for negative value    */                              \
                                 /* ignore warning on int32_t */                                                 \
 …
 VALCHECK_MRB_INT( Int16, INT16, int16_t )
 VALCHECK_UINT( UInt8, UINT8, uint8_t )
 #define VALCHECK_MRB_UInt8
+#define VALCHECK_MRB_UInt8(mrb,val)
 VALCHECK_UINT( UInt16, UINT16, uint16_t )
 #define VALCHECK_MRB_UInt16
+#define VALCHECK_MRB_UInt16(mrb,val)
 VALCHECK_INT( Int32, INT32, int32_t )
 #define VALCHECK_MRB_Int32
+#define VALCHECK_MRB_Int32(mrb,val)
 VALCHECK_UINT( UInt32, UINT32, uint32_t )
 #define VALCHECK_MRB_UInt32
+#define VALCHECK_MRB_UInt32(mrb,val)
 VALCHECK_INT( Int64, INT64, int64_t )
 …
 VALCHECK_MRB_UINT( UInt64, UINT64, uint64_t )
 #else
 #define VALCHECK_MRB_Int64      // 範囲チェックが無意味であるため、警告が出るのを回避する
 #define VALCHECK_MRB_UInt64      // 範囲チェックが無意味であるため、警告が出るのを回避する
+#define VALCHECK_MRB_Int64(mrb,val)      // 範囲チェックが無意味であるため、警告が出るのを回避する
+#define VALCHECK_MRB_UInt64(mrb,val)      // 範囲チェックが無意味であるため、警告が出るのを回避する
 #endif

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/TECSStruct.h

r321	r429
105	105	Struct_ ## TAG ## _initialize( mrb_state *mrb, mrb_value self) \
106	106	{ \
107		~~mrb_int length; \~~
108		~~struct TAG *structBody; \~~
109	107	\
110	108	DATA_TYPE( self ) = &Struct ## TAG ## Body_mrb_data_type; \

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mruby.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 import_C( "tecs_mruby.h" );

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyInitializer.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 namespace nMruby{

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyPointers.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 // Pointer celltypes

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyVMs.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 import( <posix.cdl> );
 /*
+ * tools/mruby/mruby.c から cInit_initializeBridge( mrb ) を呼び出すように変更したもの
+ * POSIX 環境用の VM
+ * mrbgems の mrbgems/mruby-bin-mruby/tools/mruby/mruby.c を参考に作成したもの
  */
 namespace nMruby{

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tBoolPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tCharPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tDouble64Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tFloat32Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *   *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt16Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt32Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt64Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2012 by Ubiquitous Computing and Networking Laboratory
+ *                Ritsumeikan Univ., JAPAN
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt8Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tIntPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tLongPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tMruby.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tMrubyProc.c

-              r321
+              r429
 /*
+ * This file comes from mruby. (renamed from tools/mruby/mruby.c)
+ * This file is distributed under ruby's license. (not under TOPPERS license)
+ *   see https://github.com/mruby/mruby
+ * A little modification is done to to call initializer registering TECS components.
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ * このファイルは、mruby のものです。
+ * mruby のライセンスのもとで、配布されます。(TOPPERS ライセンスではありません)
+ *  参照：  https://github.com/mruby/mruby
+ * TECS コンポーネントを登録する初期化子を呼ぶため、少しの修正がなされています。
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
  */
+#include "nMruby_tMrubyProc_tecsgen.h"
+/*
+ * 以前の nMruby_tMrubyProc.c は、mruby の本体に含まれていた
+ *    mrbgems/mruby-bin-mruby/tools/mruby/mruby.c
+ * をベースに TECS のコードを足していたが、TOPPERS ライセンスと異なるため
+ * 新たに書き下ろした。（小さなコードのため、概ね似たようなものになるが。
+ */
 #include <stdio.h>
 …
 #include <string.h>
 #include "mruby.h"
+#include "mruby/string.h"
 #include "mruby/array.h"
 #include "mruby/compile.h"
 …
 #include "mruby/variable.h"
+#ifndef ENABLE_STDIO
+static void
+p(mrb_state *mrb, mrb_value obj)
+{
+  obj = mrb_funcall(mrb, obj, "inspect", 0);
+  fwrite(RSTRING_PTR(obj), RSTRING_LEN(obj), 1, stdout);
+  putc('\n', stdout);
+}
+#else
+#define p(mrb,obj) mrb_p(mrb,obj)
+/* #[<PREAMBLE>]#
+ * Don't edit the comments between #[<...>]# and #[</...>]#
+ * These comment are used by tecsmerege when merging.
+ *
+ * attr access macro #_CAAM_#
+ * mrb              mrb_state*       VAR_mrb
+ *
+ * call port function #_TCPF_#
+ * call port: cInit signature: nMruby_sInitializeBridge context:task optional:true
+ *   bool_t     is_cInit_joined()                     check if joined
+ *   void           cInit_initializeBridge( const mrb_state* mrb );
+ *
+ * #[</PREAMBLE>]# */
+/* プロトタイプ宣言や変数の定義をここに書きます #_PAC_# */
+#include "nMruby_tMrubyProc_tecsgen.h"
+#ifndef E_OK
+#define E_OK    0               /* success */
+#define E_ID    (-18)   /* illegal ID */
 #endif
+void mrb_show_version(mrb_state *);
+void mrb_show_copyright(mrb_state *);
+/* 受け口関数 #_TEPF_# */
+/* #[<ENTRY_PORT>]# eMain
+ * entry port: eMain
+ * signature:  nPosix_sMain
+ * context:    task
+ * #[</ENTRY_PORT>]# */
+struct _args {
+  FILE *rfp;
+  char* cmdline;
+  mrb_bool fname        : 1;
+  mrb_bool mrbfile      : 1;
+  mrb_bool check_syntax : 1;
+  mrb_bool verbose      : 1;
+  int argc;
+  char** argv;
+};
+/* #[<ENTRY_FUNC>]# eMain_main
+ * name:         eMain_main
+ * global_name:  nMruby_tMrubyProc_eMain_main
+ * oneway:       false
+ * #[</ENTRY_FUNC>]# */
+int
+eMain_main(CELLIDX idx, int argc, const char** argv)
+{
+        CELLCB  *p_cellcb;
+  mrb_state *mrb;
+  mrbc_context* context;
+  if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                /* エラー処理コードをここに記述します */
+      return -1;
+        } /* end if VALID_IDX(idx) */
+static void
+usage(const char *name)
+{
   static const char *const usage_msg[] = {
   "switches:",
   "-b           load and execute RiteBinary (mrb) file",
   "-c           check syntax only",
   "-e 'command' one line of script",
   "-v           print version number, then run in verbose mode",
   "--verbose    run in verbose mode",
   "--version    print the version",
   "--copyright  print the copyright",
   NULL
   };
   const char *const *p = usage_msg;
+        /* ここに処理本体を記述します #_TEFB_# */
+  if (argc != 2) {
+      printf("usage: %s script.rb\n", argv[0]);
+      goto error_return;
+  }
+  mrb = mrb_open();
+  if( mrb == 0 ){
+      printf("%s: mrb_open() failed\n", argv[0]);
+      goto error_return;
+  }
+  context = mrbc_context_new(mrb);
+  if (context == 0) {
+      printf("%s: mrbc_context_new() failed\n", argv[0]);
+      goto error_close;
+  }
+  printf("Usage: %s [switches] programfile\n", name);
+  while (*p)
+    printf("  %s\n", *p++);
+  /*--------   ARGV   ----------*/
+  {
+      mrb_value ARGV = mrb_ary_new_capa(mrb, argc);
+      int  i;
+      for (i = 0; i < argc; i++) {
+          mrb_ary_push(mrb, ARGV, mrb_str_new_cstr(mrb, argv[i]));
+      }
+      mrb_define_global_const(mrb, "ARGV", ARGV);
+  }
+  /*--------   $0   ----------*/
+  {
+      mrb_sym zero_sym = mrb_intern_lit(mrb, "$0");
+      mrbc_filename(mrb, context, argv[0]);
+      mrb_gv_set(mrb, zero_sym, mrb_str_new_cstr(mrb, argv[0]));
+  }
+  /* ------- register TECS bridge classes -------*/
+  if (is_cInit_joined()) {
+      cInit_initializeBridge(mrb);
+  }
+  /*--------  load .rb file -------*/
+  {
+      FILE *file = fopen(argv[1], "r");
+      if (file == NULL) {
+          printf("file not found: %s\n", argv[1]);
+          goto error_free;
+      }
+      mrb_value val = mrb_load_file_cxt(mrb, file, context);
+      if (mrb->exc) {
+          if(! mrb_undef_p(val)){
+              mrb_print_error(mrb);
+          }
+      }
+  }
+  /*---------- success case --------*/
+  mrbc_context_free(mrb, context);
+  mrb_close( mrb );
+  return 0;
+  /*---------- error case ----------*/
+error_free:
+  mrbc_context_free(mrb, context);
+error_close:
+  mrb_close( mrb );
+error_return:
+  return -1;
+}
+static int
+parse_args(mrb_state *mrb, int argc, char **argv, struct _args *args)
+{
+  char **origargv = argv;
+  static const struct _args args_zero = { 0 };
+  *args = args_zero;
+  for (argc--,argv++; argc > 0; argc--,argv++) {
+    char *item;
+    if (argv[0][0] != '-') break;
+    if (strlen(*argv) <= 1) {
+      argc--; argv++;
+      args->rfp = stdin;
+      break;
+    }
+    item = argv[0] + 1;
+    switch (*item++) {
+    case 'b':
+      args->mrbfile = TRUE;
+      break;
+    case 'c':
+      args->check_syntax = TRUE;
+      break;
+    case 'e':
+      if (item[0]) {
+        goto append_cmdline;
+      }
+      else if (argc > 1) {
+        argc--; argv++;
+        item = argv[0];
+append_cmdline:
+        if (!args->cmdline) {
+          size_t buflen;
+          char *buf;
+          buflen = strlen(item) + 1;
+          buf = (char *)mrb_malloc(mrb, buflen);
+          memcpy(buf, item, buflen);
+          args->cmdline = buf;
+        }
+        else {
+          size_t cmdlinelen;
+          size_t itemlen;
+          cmdlinelen = strlen(args->cmdline);
+          itemlen = strlen(item);
+          args->cmdline =
+            (char *)mrb_realloc(mrb, args->cmdline, cmdlinelen + itemlen + 2);
+          args->cmdline[cmdlinelen] = '\n';
+          memcpy(args->cmdline + cmdlinelen + 1, item, itemlen + 1);
+        }
+      }
+      else {
+        printf("%s: No code specified for -e\n", *origargv);
+        return EXIT_SUCCESS;
+      }
+      break;
+    case 'v':
+      if (!args->verbose) mrb_show_version(mrb);
+      args->verbose = TRUE;
+      break;
+    case '-':
+      if (strcmp((*argv) + 2, "version") == 0) {
+        mrb_show_version(mrb);
+        exit(EXIT_SUCCESS);
+      }
+      else if (strcmp((*argv) + 2, "verbose") == 0) {
+        args->verbose = TRUE;
+        break;
+      }
+      else if (strcmp((*argv) + 2, "copyright") == 0) {
+        mrb_show_copyright(mrb);
+        exit(EXIT_SUCCESS);
+      }
+    default:
+      return EXIT_FAILURE;
+    }
+  }
+  if (args->rfp == NULL && args->cmdline == NULL) {
+    if (*argv == NULL) args->rfp = stdin;
+    else {
+      args->rfp = fopen(argv[0], args->mrbfile ? "rb" : "r");
+      if (args->rfp == NULL) {
+        printf("%s: Cannot open program file. (%s)\n", *origargv, *argv);
+        return EXIT_FAILURE;
+      }
+      args->fname = TRUE;
+      args->cmdline = argv[0];
+      argc--; argv++;
+    }
+  }
+  args->argv = (char **)mrb_realloc(mrb, args->argv, sizeof(char*) * (argc + 1));
+  memcpy(args->argv, argv, (argc+1) * sizeof(char*));
+  args->argc = argc;
+  return EXIT_SUCCESS;
+}
+static void
+cleanup(mrb_state *mrb, struct _args *args)
+{
+  if (args->rfp && args->rfp != stdin)
+    fclose(args->rfp);
+  if (args->cmdline && !args->fname)
+    mrb_free(mrb, args->cmdline);
+  if (args->argv)
+    mrb_free(mrb, args->argv);
+  mrb_close(mrb);
+}
+int
+// main(int argc, char **argv)
+eMain_main( CELLIDX idx, int argc, const char **argv)
+{
+  CELLCB   *p_cellcb = GET_CELLCB( idx );
+  mrb_state *mrb = mrb_open();
+  int n = -1;
+  int i;
+  struct _args args;
+  mrb_value ARGV;
+  mrbc_context *c;
+  mrb_value v;
+  mrb_sym zero_sym;
+  cInit_initializeBridge( mrb );    // TECS
+  if (mrb == NULL) {
+    fputs("Invalid mrb_state, exiting mruby\n", stderr);
+    return EXIT_FAILURE;
+  }
+  n = parse_args(mrb, argc, (char **)argv, &args);
+  if (n == EXIT_FAILURE || (args.cmdline == NULL && args.rfp == NULL)) {
+    cleanup(mrb, &args);
+    usage(argv[0]);
+    return n;
+  }
+  ARGV = mrb_ary_new_capa(mrb, args.argc);
+  for (i = 0; i < args.argc; i++) {
+    mrb_ary_push(mrb, ARGV, mrb_str_new_cstr(mrb, args.argv[i]));
+  }
+  mrb_define_global_const(mrb, "ARGV", ARGV);
+  c = mrbc_context_new(mrb);
+  if (args.verbose)
+    c->dump_result = TRUE;
+  if (args.check_syntax)
+    c->no_exec = TRUE;
+  /* Set $0 */
+  zero_sym = mrb_intern_lit(mrb, "$0");
+  if (args.rfp) {
+    char *cmdline;
+    cmdline = args.cmdline ? args.cmdline : "-";
+    mrbc_filename(mrb, c, cmdline);
+    mrb_gv_set(mrb, zero_sym, mrb_str_new_cstr(mrb, cmdline));
+  }
+  else {
+    mrbc_filename(mrb, c, "-e");
+    mrb_gv_set(mrb, zero_sym, mrb_str_new_lit(mrb, "-e"));
+  }
+  /* Load program */
+  if (args.mrbfile) {
+    v = mrb_load_irep_file_cxt(mrb, args.rfp, c);
+  }
+  else if (args.rfp) {
+    v = mrb_load_file_cxt(mrb, args.rfp, c);
+  }
+  else {
+    v = mrb_load_string_cxt(mrb, args.cmdline, c);
+  }
+  mrbc_context_free(mrb, c);
+  if (mrb->exc) {
+    if (!mrb_undef_p(v)) {
+      mrb_print_error(mrb);
+    }
+    n = -1;
+  }
+  else if (args.check_syntax) {
+    printf("Syntax OK\n");
+  }
+  cleanup(mrb, &args);
+  return n == 0 ? EXIT_SUCCESS : EXIT_FAILURE;
+}
+/* #[<POSTAMBLE>]#
+ *   Put non-entry functions below.
+ * #[</POSTAMBLE>]#*/

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tSCharPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tShortPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tTECSInitializer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUCharPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt16Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt32Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt64Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt8Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUIntPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tULongPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUShortPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/tMruby.cdl

-              r321
+              r429
 /*
  *  Copyright (C) 2012 by Ubiquitous Computing and Networking Laboratory
 …
 import(<mruby.cdl>);
+import(<sMruby.cdl>);
+import(<tTLSFMalloc.cdl>);
 namespace nMruby{
+  celltype tMruby{
+    entry sTaskBody eMrubyBody;
+/*** mruby VM ***/
+  celltype tMrubyVM{
+    entry sMrubyVM eMrubyVM;
     attr{
       [omit]char_t *mrubyFile;
       char_t *irep=C_EXP("&$cell_global$_irep");
+      const uint8_t *irep=C_EXP("$cell_global$_irep");
     };
+    /* write関数の接続先 */
+//    [optional]        call sSerialPort cSerialPort;
+    var{
+      mrb_irep      *var_irep;
+      mrb_state     *mrb;
+      struct RProc  *rproc;
+    };
+    /* MrubyBridgePlugin の生成する VM_TECSInitializeer.eInitialize へ結合する */
     [optional]  call sInitializeBridge cInit;
+    /*
+     * アロケータ
+     *  他と共有しないのであれば、このアロケータは排他制御される必要はない
+     */
+    call sMalloc cMalloc;
     FACTORY{
       write("Makefile.tecsgen", "clean_mrb_c :");
 …
       write("Makefile.tecsgen", "TECS_COBJS := $(TECS_COBJS) $cell_global$_mrb.o");
       write("Makefile.tecsgen", "MRB_C := $(MRB_C) $cell_global$_mrb.c");
       write("$ct_global$_factory.h","extern const char_t *$cell_global$_irep;");
+      write("$ct_global$_factory.h","extern const uint8_t $cell_global$_irep[];");
     };
   };
+/*** Standard Task Versoin  ***/
+  /*
+   * tMruby　の eMrubyBody.main が、繰り返し起床されることは想定されていません。
+   */
+  celltype tMrubyTaskBody{
+    entry sTaskBody eMrubyBody;
+    call  sMrubyVM  cMrubyVM;
+  };
+  composite tMruby{
+    entry sTaskBody eMrubyBody;
+    [optional]  call sInitializeBridge cInit;
+    attr{
+      [omit]char_t *mrubyFile;
+      size_t memoryPoolSize = 1024 * 1024;    /** 1MB default **/
+      /* note: this requires enough memory */
+      /* please pay attention to memory layout */
+    };
+    /** **/
+    cell tMrubyVM MrubyVM{
+      mrubyFile = composite.mrubyFile;
+      cInit => composite.cInit;
+      cMalloc = TLSFMalloc.eMalloc;
+    };
+    cell tMrubyTaskBody MrubyTaskBody {
+      cMrubyVM = MrubyVM.eMrubyVM;
+    };
+    cell tTLSFMalloc TLSFMalloc {
+      memoryPoolSize = composite.memoryPoolSize;
+    };
+    composite.eMrubyBody => MrubyTaskBody.eMrubyBody;
+  };
+/*** Cyclic Task Versoin  ***/
+  /*
+   * tMrubyCyclic の eMrubyBody.main が繰り返し呼び出されることが想定されています。
+   * この実装では mrb_close は呼び出されません (終了は、突然電源が切れることを想定)
+   */
+  celltype tMrubyCyclicTaskBody{
+    entry sTaskBody eMrubyBody;
+    call  sMrubyVM  cMrubyVM;
+    var {
+        bool_t  b_init;
+    };
+  };
+  composite tMrubyCyclic{
+    entry sTaskBody eMrubyBody;
+    [optional]  call sInitializeBridge cInit;
+    attr{
+      [omit]char_t *mrubyFile;
+      size_t memoryPoolSize = 1024 * 1024;    /** 1MB default **/
+      /* note: this requires enough memory */
+      /* please pay attention to memory layout */
+    };
+    /** **/
+    cell tMrubyVM MrubyVM{
+      mrubyFile = composite.mrubyFile;
+      cInit => composite.cInit;
+      cMalloc = TLSFMalloc.eMalloc;
+    };
+    cell tMrubyCyclicTaskBody MrubyTaskBody {
+      cMrubyVM = MrubyVM.eMrubyVM;
+    };
+    cell tTLSFMalloc TLSFMalloc {
+      memoryPoolSize = composite.memoryPoolSize;
+    };
+    composite.eMrubyBody => MrubyTaskBody.eMrubyBody;
+  };
 };

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/tecs_mruby.h

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2019 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 #ifndef tecs_mruby_h__
 #define tecs_mruby_h__
 …
 #include "mruby/data.h"
 #include "mruby/string.h"
+#include "mruby/irep.h"
+#include "mruby/dump.h"
+#include "mruby/proc.h"
 #include "TECSPointer.h"
 #include "TECSStruct.h"
-#if  ! defined( MRUBY_RELEASE_MAJOR ) || MRUBY_RELEASE_MAJOR == 1 && MRUBY_RELEASE_MINOR < 2
-#ifndef MRB_ARGS_REQ
-#define MRB_ARGS_REQ(n)     ARGS_REQ(n)
-#define MRB_ARGS_OPT(n)     ARGS_OPT(n)
-#define MRB_ARGS_ARG(n1,n2) ARGS_ARG(n1,n2)
-#define MRB_ARGS_REST()     ARGS_REST()
-#define MRB_ARGS_POST(n)    ARGS_POST(n)
-#define MRB_ARGS_KEY(n1,n2) ARGS_KEY(n1,n2)
-#define MRB_ARGS_BLOCK()    ARGS_BLOCK()
-#define MRB_ARGS_ANY()      ARGS_ANY()
-#define MRB_ARGS_NONE()     ARGS_NONE()
-#endif /* MRB_ARGS_REQ */
-#endif
+#if  ! defined( MRUBY_RELEASE_MAJOR )
+#define mrb_float_value( mrb, val )  mrb_float_value( val )
+#endif
+#else
+#else /* TECSGEN */
 /*
  * fake tecsgen because tecsgen cannot accept actual mruby.h in case of below.
+ * fake definition because tecsgen cannot accept actual mruby.h in case of below.
  *   types:   long long, long long int
  *   special keyword __attribute__(x), __extension__
  */
 typedef int mrb_state;
+struct  RClass {int dummy;};
+typedef int mrb_irep;
+typedef int mrb_context;
+struct  RClass {uint32_t gcnext;};  // actual definition: struct RBasic *gcnext
+struct  RProc  {uint32_t gcnext;};  // actual definition: struct RBasic *gcnext
 typedef int CELLCB;
+#define GET_SET_BOOL( Type, type )
+#define GET_SET_CHAR( Type, type )
+#define GET_SET_INT( Type, type )
+#define GET_SET_FLOAT( Type, type )
+#define POINTER_CLASS( Type, type )
+#define CHECK_AND_GET_POINTER( Type, type )
 #endif /* TECSGEN */

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/posix/posix.cdl

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 namespace nPosix {

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/rpc/TDR.cdl

-              r321
+              r429
         ER      sendSOP( [in]bool_t b_client );     /* StartOfPacket magic を送信 */
         ER      receiveSOP( [in]bool_t b_client );  /* StartOfPacket magic を受信 */
-                                                 /* b_client: クライアント側なら true, サーバー側なら false */
-        /* マジックコードの送受信 */
-        //      ER      sendSHSOP( [in]bool_t b_client );     /* StartOfPacket magic を送信 */
-        //      ER      receiveSHSOP( [in]bool_t b_client );  /* StartOfPacket magic を受信 */
                                                  /* b_client: クライアント側なら true, サーバー側なら false */
 …
 };
 // Straight Order TECS Data Representation (Straight means no endian-conversion is done)
+// Straight Byte Order TECS Data Representation (Data are always sent in native endian)
 celltype tTDR {
         call    sChannel        cChannel;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/rpc/sChannel.cdl

-              r321
+              r429
 };
+/*
+ * size に uint16_t ではなく int16_t を用いるのは、下位層が ER_INT を返す場合を想定したもの．
+ *
+ * sChannel は TECS RPC の TDR の下位層である通信チャンネルとのインタフェースである．
+ * 通信チャンネルは、高水準 I/O のように、バッファリングされることを想定する．
+ * TDR からは、int8_t, int16_t, int32_t, int64_t, (int128_t), float32_t, double64_t bool_t, char_t のような基本型(無符号を含む)が渡される。
+ * 配列や構造体の場合であっても要素ごとに渡される。
+ */

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/rpc/tTDR_inline.h

-              r321
+              r429
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         syslog( LOG_INFO, "TDR: resetting channel" );
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
 #endif
     if( b_client )
+  if( b_client )
                 p_sopMagic = &SOP_MAGIC2;
         else
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
         ER              ercd = E_OK;
         CELLCB  *p_cellcb;
+        uint8_t val;
+        if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                return(E_ID);
+        } /* end if VALID_IDX(idx) */
+        uint8_t val = 0;
+        if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                return(E_ID);
+        } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsgen

r321	r429
7	7	#
8	8	# ä¸è¨èä½æ¨©è
9		ã¯ï¼ä»¥ä¸ã®(1)~~ã~~(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
	9	ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
10	10	# ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ãä½¿ç¨ã»è¤è£½ã»æ¹
11	11	# å¤ã»åé

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsgen.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  Authors list is in i-ro-ha order.
 #Version::   see version.rb
 $Copyright = "Copyright(c) 2008-2016, TOPPERS project. All rights reserved."
+$Copyright = "Copyright(c) 2008-2019, TOPPERS project. All rights reserved."
 $License   = "TOPPERS License"
 …
     analyze_option addtional_option_parser
     load_modules
+    setup
+    if ! $TECSFLOW then
+      setup
+    end
     dbgPrint  "tecspath: #{$tecsgen_base_path}, __FILE__=#{__FILE__}\n"
 …
     ARGV.each { |a| $arguments += " " + a }
+    $unopt     = false     # bool:   disable optimizing
+    $unopt     = false     # bool:   disable optimizing both call and entry port
+    $unopt_entry= false    # bool:   disable optimizing entry port
     $gen_base  = "gen"     # string: folder path to place generated files
     $gen       = $gen_base # string: folder path to place generated files
 …
         $unopt = true
+      }
+      parser.on('--unoptimize-entry', 'unoptimize entry port') {
+        $unopt_entry = true
+      }
       parser.on('-c', '--cpp=cpp_cmd', 'C pre-processor command used import_C (default: gcc -E -DTECSGEN), you can also specify by environment variable TECS_CPP' ){
         |arg|
 …
+    }
     if ARGV.empty? && ! $print_version && ! $unit_test
+    if ARGV.empty? && ! $print_version && ! $unit_test && ! $TECSFLOW
       ARGV.options{|parser|
         puts parser.help
 …
     # このファイルを誤って読み込むと、異なるバージョン名を表示してしまう
     require_tecsgen_lib 'tecslib/version.rb'
+    if ! $no_banner || $print_version
+    if $title then
+      STDERR << "#{$title} version #{$tool_version} (tecsgen version #{$version})  #{$Copyright}\n"
+    elsif ! $no_banner || $print_version
       STDERR << "tecsgen  version #{$version}  #{$Copyright}\n"
     end
 …
       STDERR << "ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE} patchlevel #{RUBY_PATCHLEVEL}) [#{RUBY_PLATFORM}]\n"
     end
     if $print_version && ARGV.empty?
+    if $print_version && ARGV.empty? && ! $TECSFLOW
       exit
     end
 …
     require_tecsgen_lib 'tecslib/core/generate.rb'
     require_tecsgen_lib 'tecslib/core/gen_xml.rb'
+#    require_tecsgen_lib 'tecslib/core/tool_info.rb'
+    require_tecsgen_lib 'tecslib/core/tool_info.rb'
+    require_tecsgen_lib 'tecslib/core/tecsinfo.rb'
+    require_tecsgen_lib 'tecslib/core/unjoin_plugin.rb'
     require_tecsgen_lib 'tecslib/plugin/CelltypePlugin.rb'
+    require_tecsgen_lib 'tecslib/plugin/CompositePlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/CellPlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/SignaturePlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/ThroughPlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/DomainPlugin.rb'
+    require_tecsgen_lib 'tecslib/plugin/MultiPlugin.rb'
     # C 言語パーサ
 …
 #  クラス変数のリセットを確実に行う必要がある
 if $TECSCDE != true then
+if $TECSCDE != true && $TECSFLOW != true then
   begin
     TECSGEN.init
 …
     tecsgen.run1
     tecsgen.run2
+    tecsgen.dump_tecsgen_rbdmp
   rescue => evar
     print_exception( evar )

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsgen_rcov.rb

-              r321
+              r429
 # Usage: tecsgen_rcov.rb [options] CDL-file.cdl
+#
+$:.unshift(File.dirname(__FILE__))
 require 'simplecov'
 SimpleCov.command_name "tecsgen#{$$}"
+SimpleCov.command_name "tecsgen#{Time.now.to_f}"
 SimpleCov.root File.dirname( File.expand_path __FILE__ )
 SimpleCov.at_exit do

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/C_parser.tab.rb

-              r321
+              r429
+#
 # DO NOT MODIFY!!!!
 # This file is automatically generated by Racc 1.4.12
+# This file is automatically generated by Racc 1.4.9
 # from Racc grammer file "".
+#
 …
 class C_parser < Racc::Parser
+module_eval(<<'...end C_parser.y.rb/module_eval...', 'C_parser.y.rb', 715)
+  RESERVED = {
+    # keyword
+    'typedef' => :TYPEDEF,
+    'struct' => :STRUCT,
+    'union' => :UNION,
+    'sizeof' => :SIZEOF,
+    'throw' => :THROW,
+    # specifier
+    # types
+    'void'    => :VOID,
+    'char'    => :CHAR,
+    'short'   => :SHORT,
+    'volatile'=> :VOLATILE,
+    'const'   => :CONST,
+    'extern'   => :EXTERN,
+    'long'    => :LONG,
+    'float'   => :FLOAT,
+    'double'  => :DOUBLE,
+    'signed'  => :SIGNED,
+    'unsigned'=> :UNSIGNED,
+    'int'     => :INT,
+    'enum'    => :ENUM,
+    'if'      => :IF,
+    'else'    => :ELSE,
+    'while'   => :WHILE,
+    'do'      => :DO,
+    'for'     => :FOR,
+    'case'    => :CASE,
+    'default' => :DEFAULT,
+    'goto'    => :GOTO,
+    'continue' => :CONTINUE,
+    'break'   => :BREAK,
+    'return'  => :RETURN,
+    '__inline__'  => :__INLINE__,
+    'inline'  => :INLINE,
+    '__inline'  => :__INLINE,
+    'Inline'  => :CINLINE,        # inline starting with Capital letter
+    'static'  => :STATIC,
+    'register' => :REGISTER,
+    'auto'    => :AUTO,
+    '__extension__'    => :EXTENSION,
+  }
+  @@generator_nest = -1
+  @@generator_stack = []
+  @@current_locale = []
+  def finalize
+    # mikan Namespace.pop
+    Celltype.pop
+    Cell.pop
+    CompositeCelltype.pop
+    Region.pop
+  end
+  def set_plugin( plugin )
+    @plugin = plugin
+  end
+  def self.get_plugin
+    @@generator_stack[@@generator_nest].get_plugin
+  end
+  def get_plugin
+    @plugin
+  end
+  def parse(files)
+    # mikan Namespace.push
+    Celltype.push
+    Cell.push
+    CompositeCelltype.push
+    Region.push
+    @@generator_nest += 1
+    @@generator_stack[@@generator_nest] = self
+    @b_no_type_name = false
+   begin
+    @q = []
+    comment = false
+    # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+    TECS_LANG::set_kcode_binary
+    # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+    integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+    files.each {|file|
+      lineno = 1
+     begin
+#2.0       IO.foreach(file) {|line|
+       TECSIO.foreach(file) {|line|
+        col = 1
+        line.rstrip!
+        until line.empty?
+          if comment
+            case line
+            # コメント終了
+            when /\A\*\//
+              comment = false
+            when /\A./
+              ;
+            end
+          else
+            case line
+            # 空白、プリプロセスディレクティブ
+            when /\A\s+/
+              ;
+            # 識別子
+            when /\A[a-zA-Z_]\w*/
+              word = $&
+              @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+            # 16 進数定数
+            when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+              @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+            # 8 進数定数
+            when /\A0[0-7]+#{integer_qualifier}/
+              @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+            # 浮動小数定数
+            when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+              @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+            # 整数定数
+            when /\A\d+#{integer_qualifier}/
+            # when /\A\d+/
+              @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+            # 文字
+            when /\A'(?:[^'\\]|\\.)'/
+              @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+            # 文字列
+#              "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#            when /\A"(?:[^"\\]+|\\.)*"/
+            when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+              @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+            # 行コメント
+            when /\A\/\/.*$/
+              # 読み飛ばすだけ
+            # コメント開始
+            when /\A\/\*/
+              comment = true
+            when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A./
+              @q << [$&, Token.new($&, file, lineno, col)]
+            else
+              raise
+            end
+          end
+          line = $'
+          col += $&.length
+        end
+        lineno += 1
+      }
+     rescue => evar
+       Generator.error( "B1002 while open or reading \'$1\'" , file )
+       print_exception( evar )
+     end
+    }
+    # 終了の印
+    @q << nil
+    @yydebug = true
+    do_parse
+   ensure
+    @@generator_nest -= 1
+    TECS_LANG::reset_kcode
+   end
+  end
+  def next_token
+    token = @q.shift
+    if token then
+      @@current_locale[@@generator_nest] = token[1].locale
+      case token[1].val
+      when ";", ":", ",", "(", ")", "{", "}"
+        set_no_type_name false
+      when ".", "->"
+        set_no_type_name true
+      end
+      # TYPE_NAME トークンへ置き換え
+      if @b_no_type_name == false
+        if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+          token[0] = :TYPE_NAME
+        end
+      end
+      if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+        locale = @@current_locale[@@generator_nest]
+        if token then
+          print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+        else
+          print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+        end
+      end
+    end
+    token
+  end
+  def on_error(t, v, vstack)
+    if v == "$" then
+     Generator.error( "B1003 Unexpected EOF"  )
+    else
+     Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+    end
+  end
+  def self.current_locale
+    @@current_locale[ @@generator_nest ]
+  end
+  @@n_error = 0
+  @@n_warning = 0
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+  def self.error( msg )
+    @@n_error += 1
+    locale = @@current_locale[ @@generator_nest ]
+    if locale then
+      Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+    else
+      Console.puts "error: #{msg}"
+    end
+  end
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+  def self.warning( msg )
+    @@n_warning += 1
+    locale = @@current_locale[ @@generator_nest ]
+    Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+  end
+  def self.get_n_error
+    @@n_error
+  end
+  def self.get_n_warning
+    @@n_warning
+  end
+  def self.get_nest
+    @@generator_nest
+  end
+  def set_no_type_name b_no_type_name
+    # print "b_no_type_name=#{b_no_type_name}\n"
+    @b_no_type_name = b_no_type_name
+  end
+module_eval(<<'...end C_parser.y.rb/module_eval...', 'C_parser.y.rb', 784)
+        RESERVED = {
+                # keyword
+                'typedef' => :TYPEDEF,
+                'struct' => :STRUCT,
+                'union' => :UNION,
+                'sizeof' => :SIZEOF,
+                'throw' => :THROW,
+                # specifier
+                # types
+                'void'    => :VOID,
+                'char'    => :CHAR,
+                'short'   => :SHORT,
+                'volatile'=> :VOLATILE,
+                'restrict'=> :RESTRICT,
+                'const'   => :CONST,
+                'extern'   => :EXTERN,
+                'long'    => :LONG,
+                'float'   => :FLOAT,
+                'double'  => :DOUBLE,
+                'signed'  => :SIGNED,
+                'unsigned'=> :UNSIGNED,
+                'int'     => :INT,
+                'enum'    => :ENUM,
+                'if'      => :IF,
+                'else'    => :ELSE,
+                'while'   => :WHILE,
+                'do'      => :DO,
+                'for'     => :FOR,
+                'switch'  => :SWITCH,
+                'case'    => :CASE,
+                'default' => :DEFAULT,
+                'goto'    => :GOTO,
+                'continue' => :CONTINUE,
+                'break'   => :BREAK,
+                'return'  => :RETURN,
+                '__inline__'  => :__INLINE__,
+                'inline'  => :INLINE,
+                '__inline'  => :__INLINE,
+                'Inline'  => :CINLINE,        # inline starting with Capital letter
+                'static'  => :STATIC,
+                'register' => :REGISTER,
+                'auto'    => :AUTO,
+                '__extension__'    => :EXTENSION,
+                '__asm__' => :_ASM,
+                'asm' =>     :_ASM
+        }
+        @@generator_nest = -1
+        @@generator_stack = []
+        @@current_locale = []
+        def finalize
+                # mikan Namespace.pop
+                Celltype.pop
+                Cell.pop
+                CompositeCelltype.pop
+                Region.pop
+        end
+        def set_plugin( plugin )
+                @plugin = plugin
+        end
+        def self.get_plugin
+                @@generator_stack[@@generator_nest].get_plugin
+        end
+        def get_plugin
+                @plugin
+        end
+        def parse(files)
+                # mikan Namespace.push
+                Celltype.push
+                Cell.push
+                CompositeCelltype.push
+                Region.push
+                @@generator_nest += 1
+                @@generator_stack[@@generator_nest] = self
+                @b_no_type_name = false
+        begin
+                @q = []
+                comment = false
+#               b_asm   = false
+                # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+                TECS_LANG::set_kcode_binary
+                # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+                integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+                files.each {|file|
+                        lineno = 1
+                begin
+#2.0            IO.foreach(file) {|line|
+                        TECSIO.foreach(file) {|line|
+                        col = 1
+                        line.rstrip!
+                        until line.empty?
+                                if comment
+                                        case line
+                                        # コメント終了
+                                        when /\A\*\//
+                                                comment = false
+                                        when /\A./
+                                                ;
+                                        end
+                                else
+                                        case line
+                                        # 空白、プリプロセスディレクティブ
+                                        when /\A\s+/
+                                                ;
+                                        # 識別子
+                                        when /\A[a-zA-Z_]\w*/
+                                                word = $&
+                                                @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+                                        # 16 進数定数
+                                        when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+                                                @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 8 進数定数
+                                        when /\A0[0-7]+#{integer_qualifier}/
+                                                @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 浮動小数定数
+                                        when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+                                                @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 整数定数
+                                        when /\A\d+#{integer_qualifier}/
+                                        # when /\A\d+/
+                                                @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+                                        # 文字
+                                        when /\A'(?:[^'\\]|\\.)'/
+                                                @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 文字列
+#                                       "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#                                       when /\A"(?:[^"\\]+|\\.)*"/
+                                        when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+                                                @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 行コメント
+                                        when /\A\/\/.*$/
+                                                # 読み飛ばすだけ
+                                        # コメント開始
+                                        when /\A\/\*/
+                                                comment = true
+                                        when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\|\|/, /\A\&\&/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A./
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        else
+                                                raise
+                                        end
+                                end
+                                line = $'
+                                col += $&.length
+                        end
+                        lineno += 1
+                }
+                rescue => evar
+                        Generator.error( "B1002 while open or reading \'$1\'" , file )
+                        print_exception( evar )
+                end
+        }
+        # 終了の印
+        @q << nil
+        @yydebug = true
+        do_parse
+                ensure
+                        @@generator_nest -= 1
+                        TECS_LANG::reset_kcode
+                end
+        end
+        def next_token
+                token = @q.shift
+                if token then
+                        @@current_locale[@@generator_nest] = token[1].locale
+                        case token[1].val
+                        when ";", ":", ",", "(", ")", "{", "}"
+                        set_no_type_name false
+                        when ".", "->"
+                        set_no_type_name true
+                        end
+                        # TYPE_NAME トークンへ置き換え
+                        if @b_no_type_name == false
+                                if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+                                        token[0] = :TYPE_NAME
+                                        locale = @@current_locale[@@generator_nest]
+#print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}: type_name'\n" )
+                                end
+                        end
+                        if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+                                locale = @@current_locale[@@generator_nest]
+                                if token then
+                                        print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+                                else
+                                        print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+                                end
+                        end
+                end
+                token
+        end
+        def on_error(t, v, vstack)
+                if v == "$" then
+                        Generator.error( "B1003 Unexpected EOF"  )
+                else
+                        Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+                end
+        end
+        def self.current_locale
+                @@current_locale[ @@generator_nest ]
+        end
+        @@n_error = 0
+        @@n_warning = 0
+        @@n_info = 0
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+        def self.error( msg )
+                @@n_error += 1
+                locale = @@current_locale[ @@generator_nest ]
+                if locale then
+                        Console.puts "#{locale[0]}:#{locale[1]}: error: #{msg}"
+                else
+                        Console.puts "error: #{msg}"
+                end
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+        def self.warning( msg )
+                @@n_warning += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: warning: #{msg}"
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可
+        def self.info( msg )
+                @@n_info += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: info: #{msg}"
+        end
+        def self.get_n_error
+                @@n_error
+        end
+        def self.get_n_warning
+                @@n_warning
+        end
+        def self.get_nest
+                @@generator_nest
+        end
+        def set_no_type_name b_no_type_name
+                locale = @@current_locale[ @@generator_nest ]
+#print "b_no_type_name=#{b_no_type_name} #{locale[0]}: line #{locale[1]}\n"
+                @b_no_type_name = b_no_type_name
+        end
 ...end C_parser.y.rb/module_eval...
 …
 clist = [
+'104,105,106,107,108,110,68,111,66,179,300,141,53,116,117,206,115,118',
+'119,120,121,122,123,104,105,106,107,108,110,168,111,203,204,207,141',
+'74,116,117,168,115,118,119,120,121,122,123,303,208,67,299,65,26,27,104',
+'105,106,107,108,110,73,111,26,27,75,141,348,116,117,167,115,118,119',
+'120,121,122,123,77,265,195,196,160,304,305,306,307,308,309,310,311,312',
+'313,262,351,142,8,9,10,11,15,16,17,18,19,20,21,22,53,192,23,25,26,27',
+'193,194,343,261,142,104,105,106,107,108,110,344,111,172,340,151,141',
+'272,116,117,251,115,118,119,120,121,122,123,104,105,106,107,108,110',
+'142,111,355,171,339,141,81,116,117,80,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,52,111,195,196,3,141,51,116,117,359,115,118,119',
+'120,121,122,123,104,105,106,107,108,110,373,111,96,335,361,141,334,116',
+'117,344,115,118,119,120,121,122,123,79,142,247,335,272,251,334,251,51',
+'104,105,106,107,108,110,81,111,53,80,362,234,363,116,117,142,115,118',
+'119,120,121,122,123,247,52,364,251,197,198,51,51,197,198,79,197,198',
+'53,53,142,228,365,8,9,10,11,15,16,17,18,19,20,21,22,77,192,23,25,26',
+'27,193,194,142,229,95,230,231,232,233,87,235,236,238,239,240,241,192',
+'199,200,201,202,193,194,197,198,370,37,38,39,40,41,42,43,44,142,104',
+'105,106,107,108,110,86,111,203,204,85,141,375,116,117,376,115,118,119',
+'120,121,122,123,104,105,106,107,108,110,377,111,195,196,378,141,379',
+'116,117,380,115,118,119,120,121,122,123,104,105,106,107,108,110,382',
+'111,383,35,384,141,63,116,117,60,115,118,119,120,121,122,123,104,105',
+'106,107,108,110,389,111,209,210,390,141,391,116,117,392,115,118,119',
+'120,121,122,123,59,142,394,34,396,8,9,10,11,15,16,17,18,19,20,21,22',
+'52,278,23,25,26,27,51,142,36,52,52,52,35,53,52,51,51,51,197,198,51,45',
+'53,53,53,277,275,53,269,268,142,267,37,38,39,40,41,42,43,44,181,95,182',
+'254,183,184,185,199,200,201,202,253,34,142,8,9,10,11,15,16,17,18,19',
+'20,21,22,245,244,23,25,26,27,243,30,36,104,105,106,107,108,110,214,111',
+'213,208,207,141,206,116,117,205,115,118,119,120,121,122,123,37,38,39',
+'40,41,42,43,44,301,104,105,106,107,108,110,314,111,315,317,318,234,319',
+'116,117,321,115,118,119,120,121,122,123,52,52,52,322,52,323,51,51,51',
+'324,51,327,174,53,53,53,228,53,8,9,10,11,15,16,17,18,19,20,21,22,77',
+'173,23,25,26,27,75,95,142,229,169,230,231,232,233,161,235,236,238,239',
+'240,241,199,200,201,202,346,347,205,,,,37,38,39,40,41,42,43,44,142,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+',,104,105,106,107,108,110,,111,,,,234,,116,117,,115,118,119,120,121',
+'122,123,,,,,,,,,,,,,,,,,228,,8,9,10,11,15,16,17,18,19,20,21,22,77,,23',
+'25,26,27,,,,229,,230,231,232,233,142,235,236,238,239,240,241,,,,,,,',
+',,,37,38,39,40,41,42,43,44,142,104,105,106,107,108,110,,111,,,,234,',
+'116,117,,115,118,119,120,121,122,123,,,,,,,,,,,,,,,,,228,,8,9,10,11',
+'15,16,17,18,19,20,21,22,77,,23,25,26,27,,,,229,,230,231,232,233,,235',
+'236,238,239,240,241,,,,,,,,,,,37,38,39,40,41,42,43,44,142,104,105,106',
+'107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,104,105',
+'106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+'104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122',
+'123,,142,,,,,,,,104,105,106,107,108,110,,111,,,,141,,116,117,142,115',
+'118,119,120,121,122,123,104,105,106,107,108,110,,111,,366,,141,,116',
+'117,142,115,118,119,120,121,122,123,,,,,,,,104,105,106,107,108,110,',
+'111,142,,,234,,116,117,,115,118,119,120,121,122,123,,,,,,,,,,,,,,,,',
+'228,142,8,9,10,11,15,16,17,18,19,20,21,22,77,,23,25,26,27,,,,229,142',
+'230,231,232,233,,235,236,238,239,240,241,,,,,,,,,,,37,38,39,40,41,42',
+'43,44,142,104,105,106,107,108,110,,111,,,,234,,116,117,,115,118,119',
+'120,121,122,123,,,,,,,,,,,,,,,,,228,,8,9,10,11,15,16,17,18,19,20,21',
+'22,77,,23,25,26,27,,,,229,,230,231,232,233,,235,236,238,239,240,241',
+',,,,,,,,,,37,38,39,40,41,42,43,44,142,104,105,106,107,108,110,,111,',
+',,234,,116,117,,115,118,119,120,121,122,123,,,,,,,,,,,,,,,,,228,,8,9',
+'10,11,15,16,17,18,19,20,21,22,77,,23,25,26,27,,,,229,,230,231,232,233',
+',235,236,238,239,240,241,,,,,,,,,,,37,38,39,40,41,42,43,44,142,104,105',
+'106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+'104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122',
+'123,104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121',
+'122,123,,142,,,,,,139,,,,,,140,104,105,106,107,108,110,,111,,145,142',
+'141,,116,117,,115,118,119,120,121,122,123,104,105,106,107,108,110,,111',
+',,142,141,,116,117,,115,118,119,120,121,122,123,104,105,106,107,108',
+'110,,111,,,142,141,,116,117,,115,118,119,120,121,122,123,104,105,106',
+'107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,,142,',
+',,,,,,104,105,106,107,108,110,,111,,,,141,,116,117,142,115,118,119,120',
+'121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,142,115,118',
+'119,120,121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,142',
+'115,118,119,120,121,122,123,104,105,106,107,108,110,,111,,,,141,,116',
+'117,,115,118,119,120,121,122,123,,142,,,,,,139,349,,,,,140,104,105,106',
+'107,108,110,,111,,,142,141,,116,117,,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,142,141,,116,117,,115,118,119,120,121,122',
+'123,104,105,106,107,108,110,,111,,,142,141,,116,117,,115,118,119,120',
+'121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119',
+'120,121,122,123,,142,,,,,,,,104,105,106,107,108,110,,111,,,,141,,116',
+'117,142,115,118,119,120,121,122,123,104,105,106,107,108,110,,111,,,',
+'141,,116,117,142,115,118,119,120,121,122,123,104,105,106,107,108,110',
+',111,,,,141,,116,117,142,115,118,119,120,121,122,123,,,,,,,,,,104,105',
+'106,107,108,110,,111,,,,234,,116,117,142,115,118,119,120,121,122,123',
+',,,,,,,,,,,,,,,142,228,,8,9,10,11,15,16,17,18,19,20,21,22,77,237,23',
+'25,26,27,,,142,229,,230,231,232,233,,235,236,238,239,240,241,,,,,,,',
+',,,37,38,39,40,41,42,43,44,142,104,105,106,107,108,110,,111,,336,,141',
+',116,117,,115,118,119,120,121,122,123,104,105,106,107,108,110,,111,',
+',,141,,116,117,,115,118,119,120,121,122,123,8,9,10,11,15,16,17,18,19',
+'20,21,22,,,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26',
+'27,,104,105,106,107,108,110,,111,,,142,141,,116,117,,115,118,119,120',
+'121,122,123,104,105,106,107,108,110,,111,,,142,141,,116,117,,115,118',
+'119,120,121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,,115',
+'118,119,120,121,122,123,104,105,106,107,108,187,,111,,,,141,,116,117',
+',115,118,119,120,121,122,123,,142,,,,,,,,104,105,106,107,108,189,,111',
+',,,141,,116,117,142,115,118,119,120,121,122,123,104,105,106,107,108',
+'189,,111,,,,141,,116,117,142,115,118,119,120,121,122,123,104,105,106',
+'107,108,110,,111,,,,141,,116,117,142,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+',142,,,,,,139,,,,,,140,272,332,326,251,104,105,106,107,108,110,142,111',
+',53,,141,,116,117,,115,118,119,120,121,122,123,,,,,,,142,,,8,9,10,11',
+'15,16,17,18,19,20,21,22,,,23,25,26,27,,,142,104,105,106,107,108,110',
+',111,,,,234,,116,117,,115,118,119,120,121,122,123,37,38,39,40,41,42',
+'43,44,,,,,,,,,228,142,8,9,10,11,15,16,17,18,19,20,21,22,77,,23,25,26',
+'27,,,,229,,230,231,232,233,,235,236,238,239,240,241,368,,,,,,,,,,37',
+'38,39,40,41,42,43,44,142,247,332,,251,,,51,,,,,,,53,,,8,9,10,11,15,16',
+'17,18,19,20,21,22,,,23,25,26,27,,,8,9,10,11,15,16,17,18,19,20,21,22',
+',,23,25,26,27,147,,,,,,37,38,39,40,41,42,43,44,,,,,,,,,328,,,,37,38',
+'39,40,41,42,43,44,,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,8',
+'9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37,38,39,40,41',
+'42,43,44,,,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19',
+'20,21,22,,,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,338,23,25',
+'26,27,,,,,,,,,37,38,39,40,41,42,43,44,,,,,,,,,,,37,38,39,40,41,42,43',
+'44,8,9,10,11,15,16,17,18,19,20,21,22,,162,23,25,26,27,8,9,10,11,15,16',
+'17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37,38,39,40,41,42,43,44,,,,',
+',,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19,20,21,22,,,23',
+'25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37',
+'38,39,40,41,42,43,44,,,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15',
+'16,17,18,19,20,21,22,,255,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21',
+'22,,,23,25,26,27,,,,,,,,,37,38,39,40,41,42,43,44,,,,,,,,,,,37,38,39',
+'40,41,42,43,44,8,9,10,11,15,16,17,18,19,20,21,22,,260,23,25,26,27,8',
+'9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37,38,39,40,41',
+'42,43,44,,,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19',
+'20,21,22,,,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26',
+'27,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19,20,21,22',
+',,23,25,26,27' ]
+        racc_action_table = arr = ::Array.new(2877, nil)
+'111,112,113,114,115,117,294,118,56,298,55,163,54,123,124,82,54,262,122',
+'125,126,127,128,129,130,111,112,113,114,115,117,217,118,271,391,101',
+'163,91,123,124,82,271,271,122,125,126,127,128,129,130,56,70,171,72,82',
+'69,397,71,80,32,33,34,224,309,271,223,216,226,84,227,228,229,84,392',
+'101,325,272,171,298,312,80,164,165,172,393,173,174,175,176,177,178,179',
+'180,149,181,101,218,79,308,369,388,32,33,34,265,266,164,165,172,73,173',
+'174,175,176,177,178,179,180,149,181,111,112,113,114,115,117,384,118',
+'32,33,34,163,78,123,124,82,440,402,122,125,126,127,128,129,130,55,219',
+'271,271,383,101,54,332,248,325,387,55,298,249,250,56,382,54,111,112',
+'113,114,115,117,56,118,56,171,331,163,395,123,124,82,276,210,122,125',
+'126,127,128,129,130,420,55,378,210,248,377,396,54,330,249,250,393,92',
+'164,165,172,56,173,174,175,176,177,178,179,180,149,181,171,9,10,11,12',
+'13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,355,356',
+'213,164,165,172,204,173,174,175,176,177,178,179,180,149,181,111,112',
+'113,114,115,117,404,118,93,378,203,163,377,123,124,82,193,271,122,125',
+'126,127,128,129,130,111,112,113,114,115,117,290,118,101,86,55,163,85',
+'123,124,82,54,291,122,125,126,127,128,129,130,56,357,171,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,248,86,322,438,85,249,250,171',
+'434,435,370,164,165,172,271,173,174,175,176,177,178,179,180,149,181',
+'259,260,261,321,255,256,257,258,315,316,262,164,165,172,271,173,174',
+'175,176,177,178,179,180,149,181,111,112,113,114,115,117,403,118,317',
+'318,263,163,264,123,124,82,320,271,122,125,126,127,128,129,130,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,437,111,112,113,114,115',
+'117,360,118,400,171,271,163,368,123,124,82,166,103,122,125,126,127,128',
+'129,130,102,55,255,256,257,258,310,54,255,256,257,258,405,164,165,172',
+'56,173,174,175,176,177,178,179,180,149,181,171,9,10,11,12,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,259,260,301,164,165',
+'172,300,173,174,175,176,177,178,179,180,149,181,111,112,113,114,115',
+'117,408,118,253,254,292,163,409,123,124,82,253,254,122,125,126,127,128',
+'129,130,111,112,113,114,115,117,410,118,253,254,55,163,289,123,124,82',
+'54,288,122,125,126,127,128,129,130,56,415,171,13,14,15,16,17,18,19,20',
+'21,22,26,28,30,31,32,33,34,253,254,253,254,251,252,261,171,211,212,285',
+'164,165,172,284,173,174,175,176,177,178,179,180,149,181,237,238,239',
+'240,241,242,243,244,245,246,247,164,165,172,283,173,174,175,176,177',
+'178,179,180,149,181,111,112,113,114,115,117,282,118,251,252,389,163',
+'389,123,124,82,251,252,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,101,118,67,82,55,163,64,123,124,82,54,63,122,125,126,127,128,129',
+'130,56,55,171,55,55,294,280,54,298,54,54,54,279,430,431,432,56,433,56',
+'56,56,365,436,278,263,275,264,171,273,270,48,164,165,172,444,173,174',
+'175,176,177,178,179,180,149,181,269,3,,,,,,,,,,164,165,172,,173,174',
+'175,176,177,178,179,180,149,181,111,112,113,114,115,117,,118,,,,163',
+',123,124,82,,,122,125,126,127,128,129,130,111,112,113,114,115,117,,118',
+',,,148,,123,124,,,,122,125,126,127,128,129,130,,,171,111,112,113,114',
+'115,117,,118,,,,148,,123,124,,,,122,125,126,127,128,129,130,,,,164,165',
+'172,,173,174,175,176,177,178,179,180,149,181,,,,,,,111,112,113,114,115',
+'117,,118,,411,,148,,123,124,,,149,122,125,126,127,128,129,130,,,,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,,,171,,,,,,,,,,,,,149,,111,112,113,114,115,117,,118,,,171',
+'148,,123,124,,,,122,125,126,127,128,129,130,,149,,,,,,,,111,112,113',
+'114,115,117,,118,,,,148,,123,124,146,398,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,111,112,113,114,115,117,,118,,149,,148,,123,124,389,,,122',
+'125,126,127,128,129,130,,,,147,,,111,112,113,114,115,117,,118,,,,148',
+'149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,379,,148,149,123,124,,,,122,125,126,127,128,129,130,,,,,,,,,,,',
+',149,,,,,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126',
+'127,128,129,130,,149,,,,,,,,,,,,,,,,,,,,,,,,,149,171,9,10,11,12,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,111,112,113',
+'114,115,117,,118,,,,148,,123,124,149,,,122,125,126,127,128,129,130,111',
+'112,113,114,115,117,,118,,,,148,,123,124,146,,,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122',
+'125,126,127,128,129,130,,,147,,,111,112,113,114,115,117,,118,,,,148',
+'149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113,114',
+'115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,111,112',
+'113,114,115,117,,118,,,,148,,123,124,146,,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,427,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149',
+'122,125,126,127,128,129,130,,,147,,,111,112,113,114,115,117,,118,,185',
+',148,149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112',
+'113,114,115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130',
+'111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128',
+'129,130,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149',
+'122,125,126,127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123',
+'124,,,149,122,125,126,127,128,129,130,111,112,113,114,115,117,,118,',
+',,148,,123,124,,,149,122,125,126,127,128,129,130,,111,112,113,114,115',
+'117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113',
+'114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122',
+'125,126,127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123,124',
+',,149,122,125,126,127,128,129,130,,111,112,113,114,115,117,,118,,,,148',
+',123,124,,,149,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113,114',
+'115,117,,118,,,,148,,123,124,146,,149,122,125,126,127,128,129,130,,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,,,,,,,,,,,,,,,,,,149,,,,,,,,,,147,,,111,112,113,114,115,117,,118',
+',,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113,114,115',
+'117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,,,,,,13',
+'14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114,115',
+'117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,,111,112',
+'113,114,115,231,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130',
+'111,112,113,114,115,233,,118,,,,148,,123,124,,,,122,125,126,127,128',
+'129,130,111,112,113,114,115,233,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,,,,,,,,,,,,111,112,113,114,115,117,149,118,,,,148,',
+'123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,149,118',
+',,,148,,123,124,,,,122,125,126,127,128,129,130,,,,,,,149,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114,115,117,,118',
+',,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,327,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,,,,,,',
+',13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114',
+'115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112',
+'113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130',
+'111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127,128',
+'129,130,,111,112,113,114,115,117,429,118,,,,148,,123,124,,,149,122,125',
+'126,127,128,129,130,,287,,,,111,112,113,114,115,117,,118,,,,148,149',
+'123,124,146,442,,122,125,126,127,128,129,130,111,112,113,114,115,117',
+',118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113',
+'114,115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,',
+',147,,,,,,,,,,,,,,46,149,,,,,,,,,,,,,,,,,,,,,,,,,149,,,46,,,,,,,,,,',
+',,,,,,,,,,,,149,45,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30',
+'31,32,33,34,35,36,37,38,,,47,45,9,10,11,12,13,14,15,16,17,18,19,20,21',
+'22,26,28,30,31,32,33,34,35,36,37,38,,41,47,294,375,,298,,,54,,,,,,,',
+',56,,,,,,,,,,325,375,,298,,,,,,,,,,,,56,,,,,,,,9,10,11,12,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,188,,,,,192',
+',,,,,,,,,,,,,,,,,,,413,,,,,,,,,,,,,,,,,,,,,,9,10,11,12,13,14,15,16,17',
+'18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15',
+'16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,371,9,10,11,12',
+'13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,,,,,',
+'205,,,,,,,,,,,,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31',
+'32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28',
+'30,31,32,33,34,35,36,37,38,307,,,,,,,,,,,,,,,,,,,,,,,,,381,,,,,,,,,',
+',,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36',
+'37,38,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34',
+'35,36,37,38,302,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31',
+'32,33,34,35,36,37,38,,,,,,,,,,,,9,10,11,12,13,14,15,16,17,18,19,20,21',
+'22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17,18,19',
+'20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17',
+'18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15',
+'16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13',
+'14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11',
+'12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9',
+'10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37',
+'38' ]
+        racc_action_table = arr = ::Array.new(3198, nil)
         idx = 0
         clist.each do |str|
 …
 clist = [
+'208,208,208,208,208,208,24,208,23,112,211,208,53,208,208,295,208,208',
+'208,208,208,208,208,209,209,209,209,209,209,93,209,130,130,296,209,46',
+'209,209,170,209,209,209,209,209,209,209,215,297,24,211,23,53,53,187',
+'187,187,187,187,187,46,187,112,112,48,187,298,187,187,93,187,187,187',
+'187,187,187,187,48,170,285,285,88,215,215,215,215,215,215,215,215,215',
+'215,164,301,208,187,187,187,187,187,187,187,187,187,187,187,187,83,283',
+'187,187,187,187,283,283,273,164,209,392,392,392,392,392,392,273,392',
+'99,257,82,392,271,392,392,271,392,392,392,392,392,392,392,179,179,179',
+'179,179,179,187,179,316,99,257,179,50,179,179,50,179,179,179,179,179',
+'179,179,192,192,192,192,192,192,49,192,286,286,1,192,49,192,192,320',
+'192,192,192,192,192,192,192,193,193,193,193,193,193,345,193,68,250,322',
+'193,250,193,193,345,193,193,193,193,193,193,193,49,392,246,330,178,246',
+'330,178,246,390,390,390,390,390,390,78,390,178,78,325,390,328,390,390',
+'179,390,390,390,390,390,390,390,150,158,331,150,287,287,150,158,288',
+'288,246,289,289,150,158,192,390,333,390,390,390,390,390,390,390,390',
+'390,390,390,390,390,284,390,390,390,390,284,284,193,390,67,390,390,390',
+'390,64,390,390,390,390,390,390,126,129,129,129,129,126,126,290,290,337',
+'390,390,390,390,390,390,390,390,390,379,379,379,379,379,379,62,379,293',
+'293,61,379,352,379,379,353,379,379,379,379,379,379,379,378,378,378,378',
+'378,378,354,378,127,127,355,378,356,378,378,357,378,378,378,378,378',
+'378,378,194,194,194,194,194,194,363,194,367,30,369,194,22,194,194,14',
+'194,194,194,194,194,194,194,195,195,195,195,195,195,380,195,135,135',
+'385,195,387,195,195,388,195,195,195,195,195,195,195,12,379,391,30,395',
+'30,30,30,30,30,30,30,30,30,30,30,30,92,183,30,30,30,30,92,378,30,262',
+'74,4,2,92,72,262,74,4,128,128,72,3,262,74,4,182,180,72,176,175,194,173',
+'30,30,30,30,30,30,30,30,113,168,113,155,113,113,113,291,291,291,291',
+'154,2,195,2,2,2,2,2,2,2,2,2,2,2,2,148,146,2,2,2,2,144,2,2,196,196,196',
+'196,196,196,142,196,140,134,133,196,132,196,196,131,196,196,196,196',
+'196,196,196,2,2,2,2,2,2,2,2,213,377,377,377,377,377,377,229,377,230',
+'232,233,377,234,377,377,236,377,377,377,377,377,377,377,340,216,172',
+'238,52,239,340,216,172,240,52,242,109,340,216,172,377,52,377,377,377',
+'377,377,377,377,377,377,377,377,377,377,103,377,377,377,377,102,96,196',
+'377,95,377,377,377,377,89,377,377,377,377,377,377,292,292,292,292,276',
+'279,294,,,,377,377,377,377,377,377,377,377,377,169,169,169,169,169,169',
+',169,,,,169,,169,169,,169,169,169,169,169,169,169,,,376,376,376,376',
+'376,376,,376,,,,376,,376,376,,376,376,376,376,376,376,376,,,,,,,,,,',
+',,,,,,376,,376,376,376,376,376,376,376,376,376,376,376,376,376,,376',
+'376,376,376,,,,376,,376,376,376,376,169,376,376,376,376,376,376,,,,',
+',,,,,,376,376,376,376,376,376,376,376,376,359,359,359,359,359,359,,359',
+',,,359,,359,359,,359,359,359,359,359,359,359,,,,,,,,,,,,,,,,,359,,359',
+'359,359,359,359,359,359,359,359,359,359,359,359,,359,359,359,359,,,',
+'359,,359,359,359,359,,359,359,359,359,359,359,,,,,,,,,,,359,359,359',
+'359,359,359,359,359,359,197,197,197,197,197,197,,197,,,,197,,197,197',
+',197,197,197,197,197,197,197,348,348,348,348,348,348,,348,,,,348,,348',
+'348,,348,348,348,348,348,348,348,344,344,344,344,344,344,,344,,,,344',
+',344,344,,344,344,344,344,344,344,344,189,189,189,189,189,189,,189,',
+',,189,,189,189,,189,189,189,189,189,189,189,,197,,,,,,,,198,198,198',
+'198,198,198,,198,,,,198,,198,198,348,198,198,198,198,198,198,198,334',
+'334,334,334,334,334,,334,,334,,334,,334,334,344,334,334,334,334,334',
+'334,334,,,,,,,,321,321,321,321,321,321,,321,189,,,321,,321,321,,321',
+'321,321,321,321,321,321,,,,,,,,,,,,,,,,,321,198,321,321,321,321,321',
+'321,321,321,321,321,321,321,321,,321,321,321,321,,,,321,334,321,321',
+'321,321,,321,321,321,321,321,321,,,,,,,,,,,321,321,321,321,321,321,321',
+'321,321,319,319,319,319,319,319,,319,,,,319,,319,319,,319,319,319,319',
+'319,319,319,,,,,,,,,,,,,,,,,319,,319,319,319,319,319,319,319,319,319',
+'319,319,319,319,,319,319,319,319,,,,319,,319,319,319,319,,319,319,319',
+'319,319,319,,,,,,,,,,,319,319,319,319,319,319,319,319,319,396,396,396',
+'396,396,396,,396,,,,396,,396,396,,396,396,396,396,396,396,396,,,,,,',
+',,,,,,,,,,396,,396,396,396,396,396,396,396,396,396,396,396,396,396,',
+'396,396,396,396,,,,396,,396,396,396,396,,396,396,396,396,396,396,,,',
+',,,,,,,396,396,396,396,396,396,396,396,396,318,318,318,318,318,318,',
+'318,,,,318,,318,318,,318,318,318,318,318,318,318,317,317,317,317,317',
+'317,,317,,,,317,,317,317,,317,317,317,317,317,317,317,75,75,75,75,75',
+'75,,75,,,,75,,75,75,,75,75,75,75,75,75,75,315,315,315,315,315,315,,315',
+',,,315,,315,315,,315,315,315,315,315,315,315,,318,,,,,,75,,,,,,75,80',
+'80,80,80,80,80,,80,,80,317,80,,80,80,,80,80,80,80,80,80,80,181,181,181',
+'181,181,181,,181,,,75,181,,181,181,,181,181,181,181,181,181,181,314',
+'314,314,314,314,314,,314,,,315,314,,314,314,,314,314,314,314,314,314',
+'314,302,302,302,302,302,302,,302,,,,302,,302,302,,302,302,302,302,302',
+'302,302,,80,,,,,,,,199,199,199,199,199,199,,199,,,,199,,199,199,181',
+'199,199,199,199,199,199,199,200,200,200,200,200,200,,200,,,,200,,200',
+'200,314,200,200,200,200,200,200,200,300,300,300,300,300,300,,300,,,',
+'300,,300,300,302,300,300,300,300,300,300,300,275,275,275,275,275,275',
+',275,,,,275,,275,275,,275,275,275,275,275,275,275,,199,,,,,,300,300',
+',,,,300,201,201,201,201,201,201,,201,,,200,201,,201,201,,201,201,201',
+'201,201,201,201,207,207,207,207,207,207,,207,,,300,207,,207,207,,207',
+'207,207,207,207,207,207,210,210,210,210,210,210,,210,,,275,210,,210',
+'210,,210,210,210,210,210,210,210,202,202,202,202,202,202,,202,,,,202',
+',202,202,,202,202,202,202,202,202,202,,201,,,,,,,,269,269,269,269,269',
+'269,,269,,,,269,,269,269,207,269,269,269,269,269,269,269,203,203,203',
+'203,203,203,,203,,,,203,,203,203,210,203,203,203,203,203,203,203,204',
+'204,204,204,204,204,,204,,,,204,,204,204,202,204,204,204,204,204,204',
+'204,,,,,,,,,,143,143,143,143,143,143,,143,,,,143,,143,143,269,143,143',
+'143,143,143,143,143,,,,,,,,,,,,,,,,203,143,,143,143,143,143,143,143',
+'143,143,143,143,143,143,143,143,143,143,143,143,,,204,143,,143,143,143',
+'143,,143,143,143,143,143,143,,,,,,,,,,,143,143,143,143,143,143,143,143',
+'143,251,251,251,251,251,251,,251,,251,,251,,251,251,,251,251,251,251',
+'251,251,251,110,110,110,110,110,110,,110,,,,110,,110,110,,110,110,110',
+'110,110,110,110,70,70,70,70,70,70,70,70,70,70,70,70,,,70,70,70,70,110',
+'110,110,110,110,110,110,110,110,110,110,110,,,110,110,110,110,,205,205',
+'205,205,205,205,,205,,,251,205,,205,205,,205,205,205,205,205,205,205',
+'206,206,206,206,206,206,,206,,,110,206,,206,206,,206,206,206,206,206',
+'206,206,114,114,114,114,114,114,,114,,,,114,,114,114,,114,114,114,114',
+'114,114,114,115,115,115,115,115,115,,115,,,,115,,115,115,,115,115,115',
+'115,115,115,115,,205,,,,,,,,116,116,116,116,116,116,,116,,,,116,,116',
+'116,206,116,116,116,116,116,116,116,117,117,117,117,117,117,,117,,,',
+'117,,117,117,114,117,117,117,117,117,117,117,139,139,139,139,139,139',
+',139,,,,139,,139,139,115,139,139,139,139,139,139,139,241,241,241,241',
+'241,241,,241,,,,241,,241,241,,241,241,241,241,241,241,241,,116,,,,,',
+'139,,,,,,139,272,272,241,272,235,235,235,235,235,235,117,235,,272,,235',
+',235,235,,235,235,235,235,235,235,235,,,,,,,139,,,272,272,272,272,272',
+'272,272,272,272,272,272,272,,,272,272,272,272,,,241,231,231,231,231',
+'231,231,,231,,,,231,,231,231,,231,231,231,231,231,231,231,272,272,272',
+'272,272,272,272,272,,,,,,,,,231,235,231,231,231,231,231,231,231,231',
+'231,231,231,231,231,,231,231,231,231,,,,231,,231,231,231,231,,231,231',
+'231,231,231,231,335,,,,,,,,,,231,231,231,231,231,231,231,231,231,247',
+'247,,247,,,247,,,,,,,247,,,335,335,335,335,335,335,335,335,335,335,335',
+'335,,,335,335,335,335,,,247,247,247,247,247,247,247,247,247,247,247',
+'247,,,247,247,247,247,81,,,,,,335,335,335,335,335,335,335,335,,,,,,',
+',,245,,,,247,247,247,247,247,247,247,247,,81,81,81,81,81,81,81,81,81',
+'81,81,81,,,81,81,81,81,245,245,245,245,245,245,245,245,245,245,245,245',
+',,245,245,245,245,,,,,,,,,81,81,81,81,81,81,81,81,,,,,,,,,,,245,245',
+'245,245,245,245,245,245,5,5,5,5,5,5,5,5,5,5,5,5,,,5,5,5,5,252,252,252',
+'252,252,252,252,252,252,252,252,252,,252,252,252,252,252,,,,,,,,,5,5',
+'5,5,5,5,5,5,,,,,,,,,,,252,252,252,252,252,252,252,252,90,90,90,90,90',
+'90,90,90,90,90,90,90,,90,90,90,90,90,153,153,153,153,153,153,153,153',
+'153,153,153,153,,,153,153,153,153,,,,,,,,,90,90,90,90,90,90,90,90,,',
+',,,,,,,,153,153,153,153,153,153,153,153,87,87,87,87,87,87,87,87,87,87',
+'87,87,,,87,87,87,87,86,86,86,86,86,86,86,86,86,86,86,86,,,86,86,86,86',
+',,,,,,,,87,87,87,87,87,87,87,87,,,,,,,,,,,86,86,86,86,86,86,86,86,156',
+'156,156,156,156,156,156,156,156,156,156,156,,156,156,156,156,156,65',
+'65,65,65,65,65,65,65,65,65,65,65,,,65,65,65,65,,,,,,,,,156,156,156,156',
+'156,156,156,156,,,,,,,,,,,65,65,65,65,65,65,65,65,159,159,159,159,159',
+'159,159,159,159,159,159,159,,159,159,159,159,159,7,7,7,7,7,7,7,7,7,7',
+'7,7,,,7,7,7,7,,,,,,,,,159,159,159,159,159,159,159,159,,,,,,,,,,,7,7',
+'7,7,7,7,7,7,6,6,6,6,6,6,6,6,6,6,6,6,,,6,6,6,6,36,36,36,36,36,36,36,36',
+'36,36,36,36,,,36,36,36,36,,,,,,,,,6,6,6,6,6,6,6,6,71,71,71,71,71,71',
+'71,71,71,71,71,71,,,71,71,71,71' ]
+        racc_action_check = arr = ::Array.new(2877, nil)
+'440,440,440,440,440,440,293,440,56,293,52,440,293,440,440,440,52,139',
+'440,440,440,440,440,440,440,438,438,438,438,438,438,106,438,354,326',
+'103,438,65,438,438,438,151,326,438,438,438,438,438,438,438,88,29,440',
+'31,51,29,354,31,109,56,56,56,120,207,286,120,106,120,293,120,120,120',
+'52,328,212,324,151,438,324,212,51,440,440,440,328,440,440,440,440,440',
+'440,440,440,440,440,318,110,49,207,286,318,88,88,88,142,142,438,438',
+'438,31,438,438,438,438,438,438,438,438,438,438,436,436,436,436,436,436',
+'304,436,120,120,120,436,49,436,436,436,428,362,436,436,436,436,436,436',
+'436,98,116,428,362,304,316,98,227,340,222,316,309,222,340,340,98,304',
+'309,167,167,167,167,167,167,222,167,309,436,226,167,333,167,167,167',
+'167,98,167,167,167,167,167,167,167,394,4,297,309,339,297,334,4,225,339',
+'339,394,66,436,436,436,4,436,436,436,436,436,436,436,436,436,436,167',
+'167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167',
+'167,167,167,167,167,167,167,167,267,267,101,167,167,167,95,167,167,167',
+'167,167,167,167,167,167,167,429,429,429,429,429,429,364,429,68,373,94',
+'429,373,429,429,429,87,364,429,429,429,429,429,429,429,427,427,427,427',
+'427,427,187,427,71,83,217,427,83,427,427,427,217,187,427,427,427,427',
+'427,427,427,217,269,429,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75',
+'75,75,133,53,221,426,53,133,133,427,418,418,291,429,429,429,426,429',
+'429,429,429,429,429,429,429,429,429,137,137,350,220,136,136,136,136',
+'214,214,351,427,427,427,220,427,427,427,427,427,427,427,427,427,427',
+'175,175,175,175,175,175,363,175,215,215,352,175,353,175,175,175,218',
+'363,175,175,175,175,175,175,175,76,76,76,76,76,76,76,76,76,76,76,76',
+'76,76,76,76,76,425,82,82,82,82,82,82,274,82,357,175,425,82,283,82,82',
+'82,82,73,82,82,82,82,82,82,82,72,201,347,347,347,347,209,201,348,348',
+'348,348,365,175,175,175,201,175,175,175,175,175,175,175,175,175,175',
+'82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82',
+'82,82,82,349,349,198,82,82,82,197,82,82,82,82,82,82,82,82,82,82,273',
+'273,273,273,273,273,371,273,135,135,189,273,374,273,273,273,346,346',
+'273,273,273,273,273,273,273,404,404,404,404,404,404,376,404,345,345',
+'79,404,186,404,404,404,79,184,404,404,404,404,404,404,404,79,380,273',
+'47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,344,344,343,343,342',
+'342,138,404,99,99,179,273,273,273,178,273,273,273,273,273,273,273,273',
+'273,273,131,131,131,131,131,131,131,131,131,131,131,404,404,404,177',
+'404,404,404,404,404,404,404,404,404,404,402,402,402,402,402,402,176',
+'402,341,341,395,402,396,402,402,402,134,134,402,402,402,402,402,402',
+'402,275,275,275,275,275,275,102,275,27,403,77,275,25,275,275,275,77',
+'23,275,275,275,275,275,275,275,77,55,402,152,384,191,174,55,191,152',
+'384,191,173,408,412,414,55,416,152,384,191,281,422,172,140,165,141,275',
+'163,149,3,402,402,402,437,402,402,402,402,402,402,402,402,402,402,147',
+'1,,,,,,,,,,275,275,275,,275,275,275,275,275,275,275,275,275,275,360',
+'360,360,360,360,360,,360,,,,360,,360,360,360,,,360,360,360,360,360,360',
+'360,249,249,249,249,249,249,,249,,,,249,,249,249,,,,249,249,249,249',
+'249,249,249,,,360,383,383,383,383,383,383,,383,,,,383,,383,383,,,,383',
+'383,383,383,383,383,383,,,,360,360,360,,360,360,360,360,360,360,360',
+'360,360,360,,,,,,,377,377,377,377,377,377,,377,,377,,377,,377,377,,',
+'249,377,377,377,377,377,377,377,,,,367,367,367,367,367,367,,367,,,,367',
+',367,367,,,383,367,367,367,367,367,367,367,366,366,366,366,366,366,',
+'366,,,,366,,366,366,,,,366,366,366,366,366,366,366,,,367,,,,,,,,,,,',
+',377,,393,393,393,393,393,393,,393,,,366,393,,393,393,,,,393,393,393',
+'393,393,393,393,,367,,,,,,,,356,356,356,356,356,356,,356,,,,356,,356',
+'356,356,356,366,356,356,356,356,356,356,356,330,330,330,330,330,330',
+',330,,,,330,,330,330,,,,330,330,330,330,330,330,330,322,322,322,322',
+'322,322,,322,,393,,322,,322,322,322,,,322,322,322,322,322,322,322,,',
+',356,,,310,310,310,310,310,310,,310,,,,310,356,310,310,,,,310,310,310',
+'310,310,310,310,298,298,298,298,298,298,,298,,298,,298,330,298,298,',
+',,298,298,298,298,298,298,298,,,,,,,,,,,,,322,,,,,282,282,282,282,282',
+'282,,282,,,,282,,282,282,,,,282,282,282,282,282,282,282,,310,,,,,,,',
+',,,,,,,,,,,,,,,,,298,282,282,282,282,282,282,282,282,282,282,282,282',
+'282,282,282,282,282,282,282,282,282,282,282,282,282,282,280,280,280',
+'280,280,280,,280,,,,280,,280,280,282,,,280,280,280,280,280,280,280,146',
+'146,146,146,146,146,,146,,,,146,,146,146,146,,,146,146,146,146,146,146',
+'146,278,278,278,278,278,278,,278,,,,278,,278,278,,,,278,278,278,278',
+'278,278,278,,397,397,397,397,397,397,,397,,,,397,,397,397,,,280,397',
+'397,397,397,397,397,397,,,146,,,405,405,405,405,405,405,,405,,,,405',
+'146,405,405,,,,405,405,405,405,405,405,405,271,271,271,271,271,271,',
+'271,,,,271,278,271,271,,,,271,271,271,271,271,271,271,,266,266,266,266',
+'266,266,,266,,,,266,397,266,266,,,,266,266,266,266,266,266,266,80,80',
+'80,80,80,80,,80,,,,80,,80,80,80,,405,80,80,80,80,80,80,80,406,406,406',
+'406,406,406,406,406,,,,406,,406,406,,,271,406,406,406,406,406,406,406',
+',265,265,265,265,265,265,,265,,,,265,,265,265,,,266,265,265,265,265',
+'265,265,265,,,80,,,85,85,85,85,85,85,,85,,85,,85,80,85,85,,,,85,85,85',
+'85,85,85,85,264,264,264,264,264,264,,264,,,,264,406,264,264,,,,264,264',
+'264,264,264,264,264,,263,263,263,263,263,263,,263,,,,263,265,263,263',
+',,,263,263,263,263,263,263,263,262,262,262,262,262,262,,262,,,,262,',
+'262,262,,,85,262,262,262,262,262,262,262,261,261,261,261,261,261,,261',
+',,,261,,261,261,,,264,261,261,261,261,261,261,261,,260,260,260,260,260',
+'260,,260,,,,260,,260,260,,,263,260,260,260,260,260,260,260,259,259,259',
+'259,259,259,,259,,,,259,,259,259,,,262,259,259,259,259,259,259,259,258',
+'258,258,258,258,258,,258,,,,258,,258,258,,,261,258,258,258,258,258,258',
+'258,,257,257,257,257,257,257,,257,,,,257,,257,257,,,260,257,257,257',
+'257,257,257,257,256,256,256,256,256,256,,256,,,,256,,256,256,,,259,256',
+'256,256,256,256,256,256,255,255,255,255,255,255,,255,,,,255,,255,255',
+',,258,255,255,255,255,255,255,255,,254,254,254,254,254,254,,254,,,,254',
+',254,254,,,257,254,254,254,254,254,254,254,253,253,253,253,253,253,',
+'253,,,,253,,253,253,,,256,253,253,253,253,253,253,253,252,252,252,252',
+'252,252,,252,,,,252,,252,252,,,255,252,252,252,252,252,252,252,,251',
+'251,251,251,251,251,,251,,,,251,,251,251,,,254,251,251,251,251,251,251',
+'251,250,250,250,250,250,250,,250,,,,250,,250,250,,,253,250,250,250,250',
+'250,250,250,389,389,389,389,389,389,,389,,,,389,,389,389,389,,252,389',
+'389,389,389,389,389,389,,248,248,248,248,248,248,,248,,,,248,,248,248',
+',,251,248,248,248,248,248,248,248,,,,,,,,,,,,,,,,,,250,,,,,,,,,,389',
+',,117,117,117,117,117,117,,117,,,,117,389,117,117,,,,117,117,117,117',
+'117,117,117,,236,236,236,236,236,236,,236,,,,236,248,236,236,,,,236',
+'236,236,236,236,236,236,,,,,,,117,117,117,117,117,117,117,117,117,117',
+'117,117,117,117,117,117,117,,,121,121,121,121,121,121,,121,,,,121,,121',
+'121,,,117,121,121,121,121,121,121,121,,122,122,122,122,122,122,,122',
+',,,122,,122,122,,,236,122,122,122,122,122,122,122,123,123,123,123,123',
+'123,,123,,,,123,,123,123,,,,123,123,123,123,123,123,123,124,124,124',
+'124,124,124,,124,,,,124,,124,124,,,121,124,124,124,124,124,124,124,',
+',,,,,,,,,,,233,233,233,233,233,233,122,233,,,,233,,233,233,,,,233,233',
+'233,233,233,233,233,223,223,223,223,223,223,123,223,,,,223,,223,223',
+',,,223,223,223,223,223,223,223,,,,,,,124,233,233,233,233,233,233,233',
+'233,233,233,233,233,233,233,233,233,233,,,231,231,231,231,231,231,,231',
+',,,231,,231,231,,,233,231,231,231,231,231,231,231,224,224,224,224,224',
+'224,224,224,,,,224,,224,224,,,223,224,224,224,224,224,224,224,,,,,,',
+',231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231',
+',,213,213,213,213,213,213,,213,,,,213,,213,213,,,231,213,213,213,213',
+'213,213,213,210,210,210,210,210,210,,210,,,,210,,210,210,,,224,210,210',
+'210,210,210,210,210,180,180,180,180,180,180,,180,,,,180,,180,180,,,',
+'180,180,180,180,180,180,180,,407,407,407,407,407,407,407,407,,,,407',
+',407,407,,,213,407,407,407,407,407,407,407,,180,,,,435,435,435,435,435',
+'435,,435,,,,435,210,435,435,435,435,,435,435,435,435,435,435,435,164',
+'164,164,164,164,164,,164,,,,164,180,164,164,,,,164,164,164,164,164,164',
+'164,,279,279,279,279,279,279,,279,,,,279,407,279,279,,,,279,279,279',
+'279,279,279,279,,,435,,,,,,,,,,,,,,41,435,,,,,,,,,,,,,,,,,,,,,,,,,164',
+',,2,,,,,,,,,,,,,,,,,,,,,,,279,41,41,41,41,41,41,41,41,41,41,41,41,41',
+'41,41,41,41,41,41,41,41,41,41,41,41,41,,,41,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,2,2,2,2,2,2,,2,2,294,294,,294,,,294,,,,,,,,,294,,,,',
+',,,,,325,325,,325,,,,,,,,,,,,325,,,,,,,,294,294,294,294,294,294,294',
+'294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294',
+'294,325,325,325,325,325,325,325,325,325,325,325,325,325,325,325,325',
+'325,325,325,325,325,325,325,325,325,86,,,,,86,,,,,,,,,,,,,,,,,,,,378',
+',,,,,,,,,,,,,,,,,,,,,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86',
+'86,86,86,86,86,86,86,86,86,378,378,378,378,378,378,378,378,378,378,378',
+'378,378,378,378,378,378,378,378,378,378,378,378,378,378,292,7,7,7,7',
+'7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,,,,,,96,,,,,,,,,,,,292,292',
+'292,292,292,292,292,292,292,292,292,292,292,292,292,292,292,292,292',
+'292,292,292,292,292,292,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96',
+'96,96,96,96,96,96,96,96,96,96,202,,,,,,,,,,,,,,,,,,,,,,,,,299,,,,,,',
+',,,,,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202',
+'202,202,202,202,202,202,202,202,202,299,299,299,299,299,299,299,299',
+'299,299,299,299,299,299,299,299,299,299,299,299,299,299,299,299,299',
+'199,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92',
+'92,92,92,,,,,,,,,,,,199,199,199,199,199,199,199,199,199,199,199,199',
+'199,199,199,199,199,199,199,199,199,199,199,199,199,8,8,8,8,8,8,8,8',
+'8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,196,196,196,196,196,196,196,196,196',
+'196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,6,6',
+'6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5,5,5,5,5,5,5,5,5,5,5',
+'5,5,5,5,5,5,5,5,5,5,5,5,5,5,93,93,93,93,93,93,93,93,93,93,93,93,93,93',
+'93,93,93,93,93,93,93,93,93,93,93,69,69,69,69,69,69,69,69,69,69,69,69',
+'69,69,69,69,69,69,69,69,69,69,69,69,69' ]
+        racc_action_check = arr = ::Array.new(3198, nil)
         idx = 0
         clist.each do |str|
 …
 racc_action_pointer = [
+   nil,   173,   432,   442,   425,  2414,  2764,  2712,   nil,   nil,
+   nil,   nil,   363,   nil,   332,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   357,    -5,    -7,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,  2782,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    18,   nil,    21,   162,
+,   nil,   548,    -8,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   267,   263,   nil,   231,  2642,   nil,   268,   139,   nil,
+,  2816,   428,   nil,   424,  1315,   nil,   nil,   217,   nil,
+,  2344,   119,    86,   nil,   nil,  2572,  2554,    39,   555,
+,   nil,   414,    12,   nil,   549,   575,   nil,   nil,   108,
+   nil,   nil,   545,   487,   nil,   nil,   nil,   nil,   nil,   554,
+,   nil,     2,   451,  1984,  2007,  2039,  2062,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   273,   322,   412,   265,
+    -2,   492,   473,   470,   468,   351,   nil,   nil,   nil,  2085,
+,   nil,   489,  1761,   482,   nil,   480,   nil,   470,   nil,
+,   nil,   nil,  2502,   431,   423,  2624,   nil,   235,  2694,
+   nil,   nil,   nil,   nil,    74,   nil,   nil,   nil,   449,   620,
+,   nil,   546,   439,   nil,   442,   441,   nil,   206,   138,
+,  1398,   433,   409,   nil,   nil,   nil,    51,   nil,   902,
+   nil,   nil,   161,   184,   356,   379,   494,   833,   934,  1476,
+,  1582,  1651,  1706,  1729,  1938,  1961,  1605,    -2,    21,
+,    -7,   nil,   518,   nil,     4,   545,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   527,
+,  2202,   530,   531,   500,  2149,   503,   nil,   541,   515,
+,  2108,   521,   nil,   nil,  2362,   204,  2291,   nil,   nil,
+,  1855,  2432,   nil,   nil,   nil,   nil,   109,   nil,   nil,
+   nil,   nil,   423,   nil,   nil,   nil,   nil,   nil,   nil,  1683,
+   nil,   122,  2140,   106,   nil,  1545,   596,   nil,   nil,   600,
+   nil,   nil,   nil,    87,   252,    57,   150,   218,   222,   225,
+,   439,   574,   287,   590,   -20,    -3,    10,    25,   nil,
+,    84,  1444,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,  1421,  1338,    82,  1292,  1269,  1081,
+,   987,   155,   nil,   nil,   187,   nil,   nil,   218,   nil,
+,   235,   nil,   250,   957,  2271,   nil,   291,   nil,   nil,
+,   nil,   nil,   nil,   879,   184,   nil,   nil,   856,   nil,
+   nil,   nil,   283,   319,   333,   338,   306,   342,   nil,   739,
+   nil,   nil,   nil,   352,   nil,   nil,   nil,   355,   nil,   360,
+   nil,   nil,   nil,   nil,   nil,   nil,   645,   526,   333,   310,
+,   nil,   nil,   nil,   nil,   326,   nil,   385,   355,   nil,
+,   365,   115,   nil,   nil,   400,  1175,   nil ]
+   nil,   732,  2528,   716,   182,  3068,  3043,  2752,  2993,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   624,   nil,   619,   nil,   656,   nil,    38,
+   nil,    40,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,  2499,   nil,   nil,   nil,   nil,   nil,   510,   nil,    78,
+   nil,    37,     3,   322,   nil,   680,   -14,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    20,   183,   nil,   249,  3118,
+   nil,   278,   429,   421,   nil,   252,   344,   664,   nil,   544,
+,   nil,   419,   285,   nil,  1473,  2701,   266,    28,   nil,
+   nil,   nil,  2932,  3093,   214,   193,  2819,   nil,   138,   576,
+   nil,   200,   654,    22,   nil,   nil,    12,   nil,   nil,    15,
+,   nil,   nil,   nil,   nil,   nil,   137,  1959,   nil,   nil,
+,  2035,  2061,  2086,  2111,   nil,   nil,   nil,   nil,   nil,
+   nil,   568,   nil,   306,   629,   495,   326,   318,   571,   -20,
+,   673,    64,   nil,   nil,   nil,  1235,   724,   nil,   702,
+   nil,    22,   682,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   672,  2431,   669,   nil,   161,   nil,   nil,
+   nil,   nil,   702,   691,   685,   376,   635,   612,   546,   542,
+,   nil,   nil,   nil,   547,   nil,   545,   281,   nil,   507,
+   nil,   684,   nil,   nil,   nil,   nil,  3018,   451,   447,  2968,
+   nil,   440,  2881,   nil,   nil,   nil,   nil,    44,   nil,   410,
+,   nil,    61,  2300,   343,   368,   nil,   286,   381,   nil,
+,   322,   147,  2173,  2249,   189,   160,   139,   nil,   nil,
+   nil,  2224,   nil,  2148,   nil,   nil,  1985,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1904,   779,
+,  1828,  1802,  1777,  1752,  1726,  1701,  1676,  1650,  1625,
+,  1574,  1549,  1524,  1498,  1443,  1367,   223,   nil,   300,
+   nil,  1341,   nil,   514,   385,   659,   nil,   nil,  1260,  2457,
+,   619,  1132,   379,   nil,   nil,    45,   nil,   nil,   nil,
+   nil,   325,  2794,    -1,  2604,   nil,   nil,   183,  1090,  2906,
+   nil,   nil,   nil,   nil,   107,   nil,   nil,   nil,   nil,   149,
+,   nil,   nil,   nil,   nil,   nil,   137,   nil,    82,   nil,
+   nil,   nil,  1034,   nil,    68,  2629,    23,   nil,    65,   nil,
+,   nil,   nil,   167,   186,   nil,   nil,   nil,   nil,   170,
+,   621,   567,   559,   557,   520,   503,   417,   423,   464,
+,   326,   350,   351,    14,   nil,   984,   421,   nil,   nil,
+,   nil,   129,   376,   256,   451,   908,   883,   nil,   nil,
+   nil,   510,   nil,   260,   520,   nil,   539,   855,  2726,   nil,
+,   nil,   nil,   807,   683,   nil,   nil,   nil,   nil,  1878,
+   nil,   nil,   nil,   950,   180,   629,   631,  1286,   nil,   nil,
+   nil,   nil,   634,   653,   539,  1316,  1417,  2376,   687,   nil,
+   nil,   nil,   689,   nil,   693,   nil,   649,   nil,   318,   nil,
+   nil,   nil,   622,   nil,   nil,   412,   323,   281,   128,   256,
+   nil,   nil,   nil,   nil,   nil,  2406,   118,   666,    23,   nil,
+    -2,   nil,   nil,   nil,   nil,   nil,   nil ]
 racc_action_default = [
+  -174,  -241,    -1,  -241,  -241,   -70,   -71,   -72,   -80,   -81,
+   -82,   -83,   -84,   -85,   -86,   -87,   -88,   -89,   -90,   -91,
+   -92,   -93,   -96,  -241,  -241,  -127,  -132,  -133,  -175,  -176,
+  -241,  -178,  -179,  -182,  -183,  -184,  -241,  -230,  -231,  -232,
+  -233,  -234,  -235,  -236,  -237,   398,  -241,   -76,   -78,  -241,
+  -135,  -137,  -241,  -143,   -73,   -84,   -86,   -74,   -75,  -181,
+  -180,   -98,  -241,  -101,  -114,  -241,  -117,  -241,  -126,  -177,
+  -105,  -107,  -241,   -69,  -241,  -241,  -188,  -189,  -134,  -136,
+  -241,  -241,  -241,  -144,  -145,   -94,  -241,  -241,   -84,   -85,
+  -241,  -115,  -241,  -241,  -128,  -130,  -241,  -106,  -108,  -241,
+  -186,   -77,   -78,    -2,    -3,    -4,    -5,    -6,    -7,    -8,
+  -241,   -10,   -12,   -23,  -241,  -241,  -241,  -241,   -29,   -30,
+   -31,   -32,   -33,   -34,   -35,   -37,   -41,   -44,   -47,   -52,
+   -55,   -57,   -59,   -61,   -63,   -65,   -68,   -79,  -168,  -241,
+  -241,  -238,  -241,  -241,  -241,  -140,  -241,  -142,  -147,  -149,
+  -153,  -138,  -146,  -241,   -84,   -85,  -241,   -99,  -241,  -241,
+  -120,  -119,  -113,  -116,  -241,  -121,  -123,  -124,  -241,  -241,
+  -241,  -185,  -241,  -241,   -11,  -241,  -241,   -67,  -154,   -20,
+  -241,  -241,  -241,  -241,   -18,   -19,   -24,  -241,   -25,  -241,
+   -27,   -28,  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,
+  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,
+  -241,  -241,  -172,  -241,  -239,   -35,  -241,  -190,  -191,  -192,
+  -193,  -194,  -195,  -196,  -197,  -198,  -199,  -200,  -201,  -241,
+  -241,  -241,  -241,  -241,  -238,  -241,  -241,  -211,  -241,  -241,
+  -241,  -241,  -241,  -139,  -141,  -241,  -156,  -241,  -151,  -152,
+  -157,  -241,  -241,  -104,  -103,   -97,  -100,  -241,  -109,  -111,
+  -112,  -118,  -241,  -129,  -131,  -125,  -187,  -240,    -9,  -241,
+  -155,  -156,  -241,  -241,   -21,   -20,  -241,   -16,   -17,  -241,
+   -38,   -39,   -40,   -42,   -43,   -45,   -46,   -48,   -49,   -50,
+   -51,   -53,   -54,   -56,   -58,   -60,   -62,   -64,  -241,  -169,
+  -241,  -241,  -241,  -219,  -220,  -221,  -222,  -223,  -224,  -225,
+  -226,  -227,  -228,  -229,  -241,  -241,  -241,  -241,  -241,  -241,
+  -241,  -241,  -241,  -213,  -214,  -241,  -216,  -217,  -241,  -150,
+  -158,  -241,  -164,  -241,  -241,  -241,  -160,  -241,   -95,  -102,
+  -241,  -122,   -36,   -13,  -241,  -241,   -15,   -26,  -241,  -170,
+  -173,  -171,  -241,  -241,  -241,  -241,  -241,  -241,  -208,  -241,
+  -210,  -212,  -215,  -241,  -159,  -165,  -162,  -241,  -166,  -241,
+  -161,  -110,   -22,   -14,   -66,  -218,  -241,  -241,  -241,  -241,
+  -241,  -209,  -148,  -163,  -167,  -202,  -204,  -241,  -241,  -207,
+  -241,  -241,  -241,  -203,  -205,  -241,  -241,  -206 ]
+  -215,  -269,    -1,  -269,  -269,   -86,   -88,   -90,   -92,   -98,
+   -99,  -100,  -101,  -102,  -103,  -104,  -105,  -106,  -107,  -108,
+  -109,  -110,  -111,  -112,  -113,  -114,  -115,  -118,  -121,  -269,
+  -139,  -269,  -163,  -164,  -165,  -166,  -167,  -168,  -169,  -216,
+  -217,  -269,  -219,  -220,  -223,  -224,  -225,  -269,   447,  -269,
+   -94,   -96,  -269,  -171,  -173,  -269,  -180,   -87,  -112,  -114,
+   -89,   -91,   -93,  -222,  -221,  -120,  -269,  -124,  -138,  -269,
+  -142,  -269,  -155,  -158,  -218,  -130,  -132,  -269,   -85,  -269,
+  -269,  -229,  -269,  -170,  -172,  -269,  -269,  -269,  -181,  -182,
+  -184,  -116,  -269,  -269,  -112,  -113,  -269,  -140,  -269,  -269,
+  -159,  -161,  -269,  -269,  -129,  -131,  -269,  -227,   -95,   -96,
+    -2,    -3,    -4,    -5,    -6,    -7,    -8,  -269,   -10,   -12,
+   -25,  -269,  -269,  -269,  -269,   -31,   -32,   -33,   -34,   -35,
+   -36,   -37,   -39,   -43,   -46,   -49,   -54,   -57,   -59,   -61,
+   -63,   -65,   -67,   -69,   -97,  -209,  -269,  -269,  -265,  -269,
+   -82,  -269,  -269,  -230,  -231,  -232,  -233,  -234,  -235,  -236,
+  -237,  -238,  -239,  -265,  -269,  -269,  -243,  -269,  -245,  -247,
+  -248,  -249,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,
+  -269,  -268,   -37,   -84,  -269,  -176,  -269,  -269,  -179,  -186,
+  -188,  -192,  -193,  -174,  -183,  -185,  -269,  -112,  -113,  -269,
+  -122,  -269,  -269,  -145,  -144,  -137,  -141,  -269,  -146,  -148,
+  -269,  -151,  -269,  -269,  -269,  -269,  -226,  -269,  -269,   -11,
+  -269,  -269,  -195,  -269,  -269,  -269,  -269,  -269,   -19,   -20,
+   -26,  -269,   -27,  -269,   -29,   -30,  -269,   -71,   -72,   -73,
+   -74,   -75,   -76,   -77,   -78,   -79,   -80,   -81,  -269,  -269,
+  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,
+  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -213,  -269,
+  -266,  -269,  -250,  -269,  -269,  -269,  -244,  -246,  -269,  -269,
+  -269,  -269,  -269,  -269,  -261,  -262,  -269,  -263,  -175,  -177,
+  -178,  -269,  -269,  -197,  -269,  -190,  -191,  -198,  -269,  -269,
+  -128,  -127,  -119,  -123,  -269,  -133,  -135,  -136,  -143,  -269,
+  -269,  -149,  -153,  -160,  -162,  -152,  -269,  -156,  -269,  -228,
+  -267,    -9,  -269,  -196,  -197,  -269,  -269,   -14,  -269,   -23,
+  -269,   -17,   -18,  -269,  -269,   -70,   -40,   -41,   -42,   -44,
+   -45,   -47,   -48,   -50,   -51,   -52,   -53,   -55,   -56,   -58,
+   -60,   -62,   -64,   -66,  -269,  -210,  -269,  -269,   -83,  -240,
+  -269,  -242,  -269,  -269,  -269,  -269,  -269,  -269,  -260,  -264,
+  -194,  -269,  -189,  -199,  -269,  -205,  -269,  -269,  -269,  -201,
+  -269,  -117,  -125,  -269,  -269,  -147,  -150,  -154,  -157,  -269,
+   -38,   -13,   -15,  -269,  -269,   -28,  -269,  -269,  -211,  -214,
+  -212,  -241,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -200,
+  -206,  -203,  -269,  -207,  -269,  -202,  -269,  -134,  -269,   -24,
+   -16,   -68,  -251,  -253,  -254,  -269,  -269,  -269,  -269,  -269,
+  -187,  -204,  -208,  -126,   -21,  -269,  -269,  -269,  -269,  -256,
+  -269,  -258,   -22,  -252,  -255,  -257,  -259 ]
 racc_goto_table = [
+,     4,   144,   146,    54,    57,    58,   217,    84,    12,
+,   137,    78,   175,   258,   136,   273,   165,   188,   190,
+,   186,    72,    89,   256,    93,   176,   163,    70,     4,
+,   156,   249,    29,   283,   284,   302,    12,   152,    14,
+,     2,    71,   293,   155,    89,   215,    90,    89,   287,
+,   289,   290,   294,   170,   295,    97,    98,    33,    83,
+,    69,    70,    70,    92,   330,   296,    14,   100,   159,
+,   297,    88,   101,   136,   212,    71,    71,   285,   286,
+,    61,   274,   153,   276,   158,    92,    62,   166,    92,
+,   264,   175,   154,    88,   316,   163,    88,   252,   280,
+,   282,    70,   279,   136,   246,   291,   292,   257,    64,
+,   155,   345,   298,   155,   263,    71,    89,   180,   329,
+,   211,    28,    99,    76,   143,     1,   nil,   nil,   nil,
+   nil,   nil,   nil,   271,   215,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   325,   nil,   248,   nil,   nil,   nil,
+   nil,   nil,   158,   nil,   259,   158,   nil,   320,    92,   nil,
+,   nil,   nil,   154,   nil,   nil,    88,   nil,   266,   nil,
+,   nil,   nil,   337,   nil,   nil,   342,   nil,   274,    70,
+   nil,   nil,   nil,   358,   nil,   360,   136,   341,   nil,   nil,
+   nil,   nil,   nil,    71,   nil,   nil,   371,   nil,   nil,   nil,
+   nil,   nil,   246,   nil,   nil,   352,   nil,   nil,   nil,    78,
+,   nil,   102,   nil,   nil,   nil,   nil,   353,   354,   nil,
+,   357,   215,   381,   215,   nil,   nil,   271,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   136,   350,   nil,   nil,   nil,
+,   386,   nil,   nil,   150,   nil,   150,   372,   nil,   nil,
+   nil,   158,   nil,   nil,   393,   nil,   367,   369,   166,   154,
+,   nil,   215,   nil,   nil,   nil,   nil,   nil,   nil,   136,
+   nil,   150,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   215,
+,   387,   388,   374,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   215,   nil,   395,   nil,   nil,   nil,   215,
+,   144,   145,    81,   183,   182,   184,   281,   186,    23,
+,    95,   208,    83,   206,   305,   303,   313,   328,   169,
+,     4,   199,   230,    57,    60,    61,    62,    75,    89,
+,    99,   168,   221,   198,    95,   296,    77,    95,   220,
+,   182,   232,   234,   235,    65,    96,   207,    23,    76,
+,   366,   343,   344,   345,   346,    75,    75,    90,    25,
+,   194,   214,   215,    66,   104,   105,   323,   145,    74,
+,   373,   196,   107,    68,   109,    94,    76,    76,   347,
+,   339,   340,   183,   182,   274,   341,   342,    98,   108,
+,   236,   187,    88,   209,   372,   353,   352,    75,   197,
+,   152,   286,    94,   169,   359,    39,   361,   351,   106,
+,   201,    98,   349,     2,    98,   303,   277,   167,    76,
+,   313,   225,   313,   394,     1,   299,   nil,   nil,   183,
+,   311,   183,   182,   314,   406,   407,   nil,   198,   nil,
+   nil,   198,   nil,   nil,    95,   326,   329,   333,   109,   334,
+,   337,   338,   220,   nil,   220,   nil,   nil,   335,   nil,
+   nil,   nil,   nil,   nil,   293,   nil,   nil,   nil,   182,   182,
+,   182,   182,   182,   182,   182,   182,   182,   182,   182,
+,   182,   182,   182,   182,   182,   152,   295,   354,   nil,
+   nil,   nil,   401,   358,   nil,   324,   nil,   306,   417,   nil,
+,   363,   364,   197,   nil,   nil,   197,   nil,   nil,    94,
+   nil,   nil,    75,   319,    75,   201,   nil,   nil,   201,   367,
+,    98,   nil,   385,   390,   nil,   nil,   nil,   nil,   183,
+,   386,   nil,    76,   422,    76,   424,   nil,   nil,   nil,
+   nil,   198,   182,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   329,   418,    83,   nil,   nil,   nil,   nil,   439,
+   nil,   441,   nil,   nil,   nil,   nil,   nil,   293,   443,   nil,
+,   nil,   446,   nil,   nil,   nil,   nil,   399,   145,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   324,   412,
+,   152,   183,   182,   416,   209,   197,   nil,   nil,   nil,
+   nil,   145,   nil,   nil,   nil,   419,   421,   182,   201,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   425,   426,   428,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   150,   nil,   259 ]
+racc_goto_check = [
+,    27,    25,    55,    27,    27,    27,    68,    53,    34,
+,    33,    54,     6,    44,    24,     8,    49,    10,    10,
+,    12,    43,    35,    41,    51,    13,    47,    30,    27,
+,    38,    58,    62,    14,    14,    77,    34,    53,    36,
+,     2,     9,    18,    35,    35,    10,    46,    35,    16,
+,    16,    16,    19,    51,    20,    43,    43,    26,     9,
+,    62,    30,    30,    27,    59,    21,    36,    32,    46,
+,    22,    34,    31,    24,    33,     9,     9,    15,    15,
+,    37,     6,    39,     6,    27,    27,    40,    32,    27,
+,    25,     6,    34,    34,    68,    47,    34,    38,    12,
+,    12,    30,    13,    24,    53,    17,    17,    42,    45,
+,    35,     8,     6,    35,    52,     9,    35,     9,    57,
+,    60,    61,    65,    66,    67,     1,   nil,   nil,   nil,
+   nil,   nil,   nil,    53,    10,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,     6,   nil,    32,   nil,   nil,   nil,
+   nil,   nil,    27,   nil,    32,    27,   nil,    25,    27,   nil,
+,   nil,   nil,    34,   nil,   nil,    34,   nil,    32,   nil,
+,   nil,   nil,    25,   nil,   nil,    12,   nil,     6,    30,
+   nil,   nil,   nil,    68,   nil,    68,    24,    49,   nil,   nil,
+   nil,   nil,   nil,     9,   nil,   nil,    44,   nil,   nil,   nil,
+   nil,   nil,    53,   nil,   nil,     6,   nil,   nil,   nil,    54,
+,   nil,    32,   nil,   nil,   nil,   nil,     6,     6,   nil,
+,     6,    10,    68,    10,   nil,   nil,    53,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    24,    33,   nil,   nil,   nil,
+,    68,   nil,   nil,    27,   nil,    27,     6,   nil,   nil,
+   nil,    27,   nil,   nil,    68,   nil,    25,    55,    32,    34,
+,   nil,    10,   nil,   nil,   nil,   nil,   nil,   nil,    24,
+   nil,    27,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    10,
+,     6,     6,    24,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    10,   nil,     6,   nil,   nil,   nil,    10,
+   nil,   nil,   nil,   nil,   nil,   423,   399,   145,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+]
+racc_goto_check = [
+,    37,    12,    72,    26,    13,    28,    73,    60,    38,
+,    39,    55,    59,    53,    49,    46,    57,     8,    29,
+,    30,    43,    15,    30,    30,    30,    30,    33,    58,
+,    56,    84,    10,    39,    39,    65,    48,    39,     6,
+,    13,    13,    13,    13,    42,    52,    54,    38,     9,
+,    75,    18,    18,    18,    18,    33,    33,     9,    40,
+,    58,    56,    56,    45,    48,    48,    65,    12,    68,
+,    66,    44,    36,    51,    36,    38,     9,     9,    19,
+,    16,    16,    26,    13,    28,    17,    17,    30,    35,
+,    27,    61,    62,    36,    64,    24,    23,    33,    38,
+,    30,     6,    38,    29,    73,    67,    73,    22,    71,
+,    30,    30,    20,     2,    30,    46,    84,    83,     9,
+,    57,     9,    57,     8,     1,    43,   nil,   nil,    26,
+,    28,    26,    13,    28,    75,    75,   nil,    39,   nil,
+   nil,    39,   nil,   nil,    39,     6,    12,    10,    36,    10,
+,    15,    15,     6,   nil,     6,   nil,   nil,    12,   nil,
+   nil,   nil,   nil,   nil,    58,   nil,   nil,   nil,    13,    13,
+,    13,    13,    13,    13,    13,    13,    13,    13,    13,
+,    13,    13,    13,    13,    13,    30,    36,     6,   nil,
+   nil,   nil,    73,    12,   nil,    58,   nil,    36,    49,   nil,
+,     6,     6,    38,   nil,   nil,    38,   nil,   nil,    38,
+   nil,   nil,    33,    36,    33,    30,   nil,   nil,    30,    29,
+,    30,   nil,    55,    15,   nil,   nil,   nil,   nil,    26,
+,    28,   nil,     9,    73,     9,    73,   nil,   nil,   nil,
+   nil,    39,    13,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,    12,    11,    59,   nil,   nil,   nil,   nil,    73,
+   nil,    73,   nil,   nil,   nil,   nil,   nil,    58,    73,   nil,
+,   nil,    73,   nil,   nil,   nil,   nil,    37,    12,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,    27,   nil,    32 ]
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    58,    12,
+,    30,    26,    13,    28,    36,    38,   nil,   nil,   nil,
+   nil,    12,   nil,   nil,   nil,    12,    26,    13,    30,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,     6,     6,     6,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    72,    37,    12,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+]
 racc_goto_pointer = [
+   nil,   126,    41,   nil,   nil,   nil,   -97,   nil,  -163,     6,
+   -97,   nil,   -93,   -84,  -161,  -119,  -150,   -97,  -162,  -153,
+  -152,  -142,  -138,   nil,   -65,   -78,    28,    -1,   nil,   nil,
+    -8,    -1,    -4,   -64,     7,   -42,    37,    59,   -55,    -2,
+,  -132,   -50,   -14,  -144,    86,   -18,   -63,    18,   -75,
+   nil,   -42,   -53,   -45,   -37,   -78,   nil,  -126,  -118,  -206,
+   -18,   120,    31,   nil,   nil,    51,    76,    48,  -136,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,  -179 ]
+   nil,   125,   114,   nil,   nil,   nil,   -78,   nil,  -206,     2,
+   -84,  -136,   -78,   -80,   nil,   -98,  -170,  -167,  -203,  -180,
+  -148,  -152,  -155,  -167,  -169,   nil,   -81,   -40,   -79,   -63,
+,   nil,   nil,   -19,   nil,    10,    -4,   -79,     7,   -58,
+,   nil,    18,   -70,   -19,    37,  -183,  -151,   -10,  -186,
+   nil,    45,   -23,   -82,   -51,   -86,   -40,  -195,   -27,   -39,
+   -78,     6,    37,   nil,  -197,  -155,  -253,   104,    28,   nil,
+   nil,    32,   -48,  -168,   nil,  -231,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    36,   -50 ]
 racc_goto_default = [
+   nil,   nil,   nil,   112,   103,   109,   242,   113,   nil,     7,
+,   114,   125,   nil,   126,   127,   128,   129,   130,   131,
+,   133,   134,   135,   177,   138,   218,   216,    46,     5,
+,    47,    82,   nil,    55,    13,    56,   nil,   nil,   nil,
+   nil,   157,   nil,   178,   nil,   nil,   nil,    91,   nil,   nil,
+,   nil,    94,    49,    50,   333,   148,   149,   331,   250,
+   nil,   nil,   nil,    31,    32,   nil,   225,   nil,   nil,   219,
+,   221,   222,   223,   224,   226,   227,   nil ]
+   nil,   nil,   nil,   119,   110,   116,   151,   120,   nil,     7,
+   nil,   nil,   150,   131,   121,   132,   133,   134,   135,   136,
+,   138,   139,   140,   141,   142,   143,   nil,   nil,    44,
+,    49,     5,     6,     8,    50,    87,   268,    58,    24,
+,    27,   nil,   nil,   nil,   nil,   200,   nil,   222,   nil,
+,   nil,   nil,    97,   nil,   nil,   nil,   100,    52,    53,
+,   nil,   nil,   189,   190,   374,   297,   nil,   nil,    42,
+,   nil,   154,   170,   153,   155,   156,   157,   158,   159,
+,   161,   162,   nil,   nil ]
 racc_reduce_table = [
 , 0, :racc_error,
+, 97, :_reduce_none,
+, 99, :_reduce_2,
+, 99, :_reduce_3,
+, 99, :_reduce_4,
+, 99, :_reduce_5,
+, 99, :_reduce_6,
+, 99, :_reduce_7,
+, 99, :_reduce_8,
+, 99, :_reduce_9,
+, 101, :_reduce_10,
+, 101, :_reduce_11,
+, 103, :_reduce_none,
+, 103, :_reduce_none,
+, 103, :_reduce_none,
+, 103, :_reduce_15,
+, 103, :_reduce_16,
+, 103, :_reduce_17,
+, 103, :_reduce_18,
+, 103, :_reduce_19,
+, 104, :_reduce_none,
+, 98, :_reduce_none,
+, 100, :_reduce_2,
+, 100, :_reduce_3,
+, 100, :_reduce_4,
+, 100, :_reduce_5,
+, 100, :_reduce_6,
+, 100, :_reduce_7,
+, 100, :_reduce_8,
+, 100, :_reduce_9,
+, 102, :_reduce_10,
+, 102, :_reduce_11,
 , 104, :_reduce_none,
+, 104, :_reduce_13,
 , 104, :_reduce_none,
+, 106, :_reduce_none,
+, 106, :_reduce_24,
+, 106, :_reduce_25,
+, 106, :_reduce_26,
+, 106, :_reduce_27,
+, 106, :_reduce_28,
+, 107, :_reduce_29,
+, 107, :_reduce_30,
+, 107, :_reduce_31,
+, 107, :_reduce_32,
+, 107, :_reduce_33,
+, 107, :_reduce_34,
+, 108, :_reduce_none,
+, 108, :_reduce_36,
+, 104, :_reduce_none,
+, 104, :_reduce_none,
+, 104, :_reduce_17,
+, 104, :_reduce_18,
+, 104, :_reduce_19,
+, 104, :_reduce_20,
+, 104, :_reduce_none,
+, 104, :_reduce_none,
+, 105, :_reduce_none,
+, 105, :_reduce_none,
 , 110, :_reduce_none,
+, 110, :_reduce_38,
+, 110, :_reduce_39,
+, 110, :_reduce_40,
+, 111, :_reduce_none,
+, 111, :_reduce_42,
+, 111, :_reduce_43,
+, 110, :_reduce_26,
+, 110, :_reduce_27,
+, 110, :_reduce_28,
+, 110, :_reduce_29,
+, 110, :_reduce_30,
+, 111, :_reduce_31,
+, 111, :_reduce_32,
+, 111, :_reduce_33,
+, 111, :_reduce_34,
+, 111, :_reduce_35,
+, 111, :_reduce_36,
 , 112, :_reduce_none,
+, 112, :_reduce_45,
+, 112, :_reduce_46,
+, 112, :_reduce_38,
 , 113, :_reduce_none,
+, 113, :_reduce_48,
+, 113, :_reduce_49,
+, 113, :_reduce_50,
+, 113, :_reduce_51,
+, 113, :_reduce_40,
+, 113, :_reduce_41,
+, 113, :_reduce_42,
 , 114, :_reduce_none,
 , 114, :_reduce_53,
 , 114, :_reduce_54,
+, 114, :_reduce_44,
+, 114, :_reduce_45,
 , 115, :_reduce_none,
+, 115, :_reduce_56,
+, 115, :_reduce_47,
+, 115, :_reduce_48,
 , 116, :_reduce_none,
+, 116, :_reduce_58,
+, 116, :_reduce_50,
+, 116, :_reduce_51,
+, 116, :_reduce_52,
+, 116, :_reduce_53,
 , 117, :_reduce_none,
+, 117, :_reduce_60,
+, 117, :_reduce_55,
+, 117, :_reduce_56,
 , 118, :_reduce_none,
 , 118, :_reduce_62,
+, 118, :_reduce_58,
 , 119, :_reduce_none,
 , 119, :_reduce_64,
+, 119, :_reduce_60,
 , 120, :_reduce_none,
 , 120, :_reduce_66,
 , 102, :_reduce_67,
 , 121, :_reduce_68,
 , 122, :_reduce_none,
 , 123, :_reduce_70,
+, 120, :_reduce_62,
+, 121, :_reduce_none,
+, 121, :_reduce_64,
+, 122, :_reduce_none,
+, 122, :_reduce_66,
 , 123, :_reduce_none,
+, 123, :_reduce_72,
+, 123, :_reduce_73,
+, 123, :_reduce_74,
+, 123, :_reduce_75,
+, 124, :_reduce_76,
+, 124, :_reduce_77,
+, 123, :_reduce_68,
+, 109, :_reduce_none,
+, 109, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 103, :_reduce_82,
+, 103, :_reduce_83,
+, 125, :_reduce_84,
+, 126, :_reduce_none,
+, 127, :_reduce_86,
+, 127, :_reduce_87,
 , 127, :_reduce_none,
+, 127, :_reduce_79,
+, 126, :_reduce_80,
+, 126, :_reduce_81,
+, 126, :_reduce_82,
+, 126, :_reduce_83,
+, 126, :_reduce_84,
+, 126, :_reduce_85,
+, 126, :_reduce_86,
+, 126, :_reduce_87,
+, 126, :_reduce_88,
+, 126, :_reduce_89,
+, 126, :_reduce_90,
+, 126, :_reduce_91,
+, 126, :_reduce_92,
+, 126, :_reduce_93,
+, 135, :_reduce_94,
+, 130, :_reduce_95,
+, 136, :_reduce_96,
+, 130, :_reduce_97,
+, 130, :_reduce_98,
+, 134, :_reduce_none,
+, 134, :_reduce_none,
+, 133, :_reduce_101,
+, 137, :_reduce_102,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 139, :_reduce_none,
+, 139, :_reduce_106,
+, 139, :_reduce_107,
+, 139, :_reduce_108,
+, 138, :_reduce_109,
+, 138, :_reduce_110,
+, 127, :_reduce_89,
+, 127, :_reduce_90,
+, 127, :_reduce_91,
+, 127, :_reduce_none,
+, 127, :_reduce_none,
+, 128, :_reduce_94,
+, 128, :_reduce_95,
+, 132, :_reduce_none,
+, 132, :_reduce_97,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 130, :_reduce_102,
+, 130, :_reduce_103,
+, 130, :_reduce_104,
+, 130, :_reduce_105,
+, 130, :_reduce_106,
+, 130, :_reduce_107,
+, 130, :_reduce_108,
+, 130, :_reduce_109,
+, 130, :_reduce_110,
+, 130, :_reduce_111,
+, 130, :_reduce_112,
+, 130, :_reduce_113,
+, 130, :_reduce_114,
+, 130, :_reduce_115,
+, 141, :_reduce_116,
+, 135, :_reduce_117,
+, 142, :_reduce_118,
+, 135, :_reduce_119,
+, 135, :_reduce_120,
+, 138, :_reduce_121,
 , 140, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 142, :_reduce_none,
+, 142, :_reduce_none,
+, 141, :_reduce_none,
+, 143, :_reduce_none,
+, 140, :_reduce_none,
+, 139, :_reduce_124,
+, 143, :_reduce_125,
+, 143, :_reduce_126,
 , 143, :_reduce_none,
 , 143, :_reduce_none,
+, 144, :_reduce_none,
+, 144, :_reduce_none,
+, 145, :_reduce_129,
 , 145, :_reduce_none,
+, 132, :_reduce_none,
+, 132, :_reduce_none,
+, 132, :_reduce_none,
+, 146, :_reduce_127,
+, 147, :_reduce_none,
+, 147, :_reduce_none,
+, 145, :_reduce_131,
+, 145, :_reduce_132,
+, 144, :_reduce_133,
+, 144, :_reduce_134,
+, 146, :_reduce_none,
+, 136, :_reduce_none,
+, 136, :_reduce_none,
+, 136, :_reduce_none,
+, 147, :_reduce_139,
+, 149, :_reduce_none,
+, 149, :_reduce_none,
 , 148, :_reduce_none,
+, 148, :_reduce_none,
+, 105, :_reduce_132,
+, 105, :_reduce_133,
+, 128, :_reduce_134,
+, 128, :_reduce_none,
+, 128, :_reduce_136,
+, 150, :_reduce_137,
+, 150, :_reduce_138,
+, 150, :_reduce_139,
+, 150, :_reduce_140,
+, 150, :_reduce_141,
+, 150, :_reduce_142,
+, 149, :_reduce_143,
+, 149, :_reduce_144,
+, 149, :_reduce_145,
+, 149, :_reduce_146,
+, 150, :_reduce_none,
+, 150, :_reduce_none,
+, 150, :_reduce_none,
 , 151, :_reduce_none,
 , 151, :_reduce_none,
+, 151, :_reduce_none,
 , 152, :_reduce_none,
+, 152, :_reduce_none,
 , 152, :_reduce_none,
+, 153, :_reduce_none,
+, 153, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
 , 153, :_reduce_none,
+, 109, :_reduce_none,
+, 109, :_reduce_none,
+, 153, :_reduce_none,
 , 154, :_reduce_none,
+, 154, :_reduce_none,
+, 154, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_164,
+, 155, :_reduce_none,
+, 155, :_reduce_166,
+, 155, :_reduce_none,
+, 129, :_reduce_168,
+, 129, :_reduce_169,
+, 129, :_reduce_170,
+, 129, :_reduce_171,
+, 156, :_reduce_172,
+, 156, :_reduce_173,
+, 98, :_reduce_none,
+, 98, :_reduce_none,
+, 154, :_reduce_none,
+, 106, :_reduce_163,
+, 106, :_reduce_none,
+, 106, :_reduce_165,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 133, :_reduce_170,
+, 133, :_reduce_none,
+, 133, :_reduce_172,
+, 156, :_reduce_173,
+, 156, :_reduce_174,
+, 156, :_reduce_175,
+, 156, :_reduce_176,
+, 156, :_reduce_177,
+, 156, :_reduce_none,
+, 156, :_reduce_179,
+, 155, :_reduce_180,
+, 155, :_reduce_181,
+, 155, :_reduce_182,
+, 155, :_reduce_183,
+, 159, :_reduce_none,
+, 159, :_reduce_none,
 , 157, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 161, :_reduce_none,
+, 161, :_reduce_none,
+, 161, :_reduce_none,
 , 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 159, :_reduce_185,
+, 161, :_reduce_186,
+, 161, :_reduce_187,
+, 160, :_reduce_none,
+, 163, :_reduce_none,
+, 158, :_reduce_none,
+, 107, :_reduce_none,
+, 107, :_reduce_none,
+, 162, :_reduce_none,
+, 162, :_reduce_none,
+, 162, :_reduce_none,
+, 163, :_reduce_none,
 , 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_205,
+, 163, :_reduce_none,
+, 163, :_reduce_207,
+, 163, :_reduce_none,
+, 134, :_reduce_209,
+, 134, :_reduce_210,
+, 134, :_reduce_211,
+, 134, :_reduce_212,
+, 108, :_reduce_213,
+, 108, :_reduce_214,
+, 99, :_reduce_none,
+, 99, :_reduce_none,
 , 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 166, :_reduce_none,
+, 167, :_reduce_none,
+, 168, :_reduce_none,
+, 169, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 162, :_reduce_none,
+, 164, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 166, :_reduce_226,
+, 168, :_reduce_227,
+, 168, :_reduce_228,
+, 167, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
 , 171, :_reduce_none,
+, 171, :_reduce_none,
+, 171, :_reduce_none,
+, 171, :_reduce_none,
 , 171, :_reduce_none,
+, 171, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 180, :_reduce_none,
+, 180, :_reduce_none,
+, 181, :_reduce_none,
+, 181, :_reduce_none,
+, 172, :_reduce_none,
 , 172, :_reduce_none,
+, 172, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 100, :_reduce_238,
+, 100, :_reduce_239,
+, 100, :_reduce_240 ]
+racc_reduce_n = 241
+racc_shift_n = 398
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 177, :_reduce_none,
+, 174, :_reduce_none,
+, 175, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 101, :_reduce_265,
+, 101, :_reduce_266,
+, 101, :_reduce_267,
+, 179, :_reduce_268 ]
+racc_reduce_n = 269
+racc_shift_n = 447
 racc_token_table = {
 …
   "++" => 15,
   "--" => 16,
+  "," => 17,
+  :SIZEOF => 18,
+  "&" => 19,
+  "*" => 20,
+  "+" => 21,
+  "-" => 22,
+  "~" => 23,
+  "!" => 24,
+  "/" => 25,
+  "%" => 26,
+  "<<" => 27,
+  ">>" => 28,
+  "<" => 29,
+  ">" => 30,
+  "<=" => 31,
+  ">=" => 32,
+  "==" => 33,
+  "!=" => 34,
+  "^" => 35,
+  "|" => 36,
+  "&&" => 37,
+  "||" => 38,
+  "?" => 39,
+  ":" => 40,
+  ";" => 41,
+  "=" => 42,
+  :VOID => 43,
+  :FLOAT => 44,
+  :DOUBLE => 45,
+  :BOOL => 46,
+  :TYPE_NAME => 47,
+  :CHAR => 48,
+  :SHORT => 49,
+  :INT => 50,
+  :LONG => 51,
+  :SIGNED => 52,
+  :UNSIGNED => 53,
+  :STRUCT => 54,
+  "{" => 55,
+  "}" => 56,
+  :UNION => 57,
+  :ENUM => 58,
+  :CONST => 59,
+  :VOLATILE => 60,
+  :C_EXP => 61,
+  :EXTENSION => 62,
+  :TYPEDEF => 63,
+  :IF => 64,
+  :ELSE => 65,
+  :WHILE => 66,
+  :DO => 67,
+  :FOR => 68,
+  :SWITCH => 69,
+  :infunc_statment => 70,
+  :CASE => 71,
+  :DEFAULT => 72,
+  :GOTO => 73,
+  :CONTINUE => 74,
+  :BREAK => 75,
+  :RETURN => 76,
+  "+=" => 77,
+  "-=" => 78,
+  "*=" => 79,
+  "/=" => 80,
+  "%=" => 81,
+  "<<=" => 82,
+  ">>=" => 83,
+  "&=" => 84,
+  "|=" => 85,
+  "^=" => 86,
+  :__INLINE__ => 87,
+  :INLINE => 88,
+  :__INLINE => 89,
+  :CINLINE => 90,
+  :EXTERN => 91,
+  :STATIC => 92,
+  :AUTO => 93,
+  :REGISTER => 94,
+  "::" => 95 }
+racc_nt_base = 96
+  "{" => 17,
+  "}" => 18,
+  "," => 19,
+  :SIZEOF => 20,
+  "&" => 21,
+  "*" => 22,
+  "+" => 23,
+  "-" => 24,
+  "~" => 25,
+  "!" => 26,
+  "/" => 27,
+  "%" => 28,
+  "<<" => 29,
+  ">>" => 30,
+  "<" => 31,
+  ">" => 32,
+  "<=" => 33,
+  ">=" => 34,
+  "==" => 35,
+  "!=" => 36,
+  "^" => 37,
+  "|" => 38,
+  "&&" => 39,
+  "||" => 40,
+  "?" => 41,
+  ":" => 42,
+  "=" => 43,
+  "+=" => 44,
+  "-=" => 45,
+  "*=" => 46,
+  "/=" => 47,
+  "%=" => 48,
+  "<<=" => 49,
+  ">>=" => 50,
+  "&=" => 51,
+  "|=" => 52,
+  "^=" => 53,
+  ";" => 54,
+  :EXTERN => 55,
+  :STATIC => 56,
+  :AUTO => 57,
+  :REGISTER => 58,
+  :VOID => 59,
+  :CHAR => 60,
+  :SHORT => 61,
+  :INT => 62,
+  :LONG => 63,
+  :FLOAT => 64,
+  :DOUBLE => 65,
+  :SIGNED => 66,
+  :UNSIGNED => 67,
+  :BOOL => 68,
+  :TYPE_NAME => 69,
+  :STRUCT => 70,
+  :UNION => 71,
+  :ENUM => 72,
+  :CONST => 73,
+  :RESTRICT => 74,
+  :VOLATILE => 75,
+  :__INLINE__ => 76,
+  :INLINE => 77,
+  :__INLINE => 78,
+  :CINLINE => 79,
+  :C_EXP => 80,
+  :EXTENSION => 81,
+  :TYPEDEF => 82,
+  :CASE => 83,
+  :DEFAULT => 84,
+  :IF => 85,
+  :ELSE => 86,
+  :SWITCH => 87,
+  :WHILE => 88,
+  :DO => 89,
+  :FOR => 90,
+  :GOTO => 91,
+  :CONTINUE => 92,
+  :BREAK => 93,
+  :RETURN => 94,
+  "::" => 95,
+  :_ASM => 96 }
+racc_nt_base = 97
 racc_use_result_var = true
 …
   "\"++\"",
   "\"--\"",
+  "\"{\"",
+  "\"}\"",
   "\",\"",
   "SIZEOF",
 …
   "\"?\"",
   "\":\"",
-  "\";\"",
   "\"=\"",
-  "VOID",
-  "FLOAT",
-  "DOUBLE",
-  "BOOL",
-  "TYPE_NAME",
-  "CHAR",
-  "SHORT",
-  "INT",
-  "LONG",
-  "SIGNED",
-  "UNSIGNED",
-  "STRUCT",
-  "\"{\"",
-  "\"}\"",
-  "UNION",
-  "ENUM",
-  "CONST",
-  "VOLATILE",
-  "C_EXP",
-  "EXTENSION",
-  "TYPEDEF",
-  "IF",
-  "ELSE",
-  "WHILE",
-  "DO",
-  "FOR",
-  "SWITCH",
-  "infunc_statment",
-  "CASE",
-  "DEFAULT",
-  "GOTO",
-  "CONTINUE",
-  "BREAK",
-  "RETURN",
   "\"+=\"",
   "\"-=\"",
 …
   "\"|=\"",
   "\"^=\"",
+  "\";\"",
+  "EXTERN",
+  "STATIC",
+  "AUTO",
+  "REGISTER",
+  "VOID",
+  "CHAR",
+  "SHORT",
+  "INT",
+  "LONG",
+  "FLOAT",
+  "DOUBLE",
+  "SIGNED",
+  "UNSIGNED",
+  "BOOL",
+  "TYPE_NAME",
+  "STRUCT",
+  "UNION",
+  "ENUM",
+  "CONST",
+  "RESTRICT",
+  "VOLATILE",
   "__INLINE__",
   "INLINE",
   "__INLINE",
   "CINLINE",
+  "EXTERN",
+  "STATIC",
+  "AUTO",
+  "REGISTER",
+  "C_EXP",
+  "EXTENSION",
+  "TYPEDEF",
+  "CASE",
+  "DEFAULT",
+  "IF",
+  "ELSE",
+  "SWITCH",
+  "WHILE",
+  "DO",
+  "FOR",
+  "GOTO",
+  "CONTINUE",
+  "BREAK",
+  "RETURN",
   "\"::\"",
+  "_ASM",
   "$start",
   "all",
 …
   "expression",
   "postfix_expression",
   "argument_list",
+  "argument_expression_list",
   "type_qualifier",
+  "type_name",
+  "initializer_list",
+  "assignment_expression",
   "unary_expression",
   "unary_operator",
   "cast_expression",
-  "type_name",
   "multiplicative_expression",
   "additive_expression",
 …
   "logical_or_expression",
   "conditional_expression",
+  "assignment_operator",
   "constant_expression",
   "declaration",
   "declaration_specifiers",
   "init_declarator_list",
   "storage_class",
+  "storage_class_specifier",
   "type_specifier",
+  "function_specifier",
   "init_declarator",
   "declarator",
 …
   "union_specifier",
   "enum_specifier",
+  "struct_term",
   "struct_tag",
   "struct_declaration_list",
 …
   "struct_declaration",
   "struct_declarator_list",
   "type_specifier_qualifier_list",
+  "specifier_qualifier_list",
   "struct_declarator",
+  "union_term",
   "union_tag",
   "union_declaration_list",
 …
   "union_declarator_list",
   "union_declarator",
-  "enum_type",
   "enumerator_list",
   "enumerator",
 …
   "direct_declarator",
   "parameter_type_list",
+  "identifier_list",
+  "type_qualifier_list",
   "parameter_list",
   "parameter_declaration",
   "abstract_declarator",
   "direct_abstract_declarator",
-  "initializer_list",
   "extension_statement",
   "statement",
+  "cdl_statement",
   "typedef",
   "func_def",
   "declarator_list",
+  "compoundstatement",
+  "infunc_statement_list",
+  "infunc_statement",
+  "compound_statement",
+  "statement",
+  "labeled_statement",
+  "expression_statement",
   "ifstatement",
   "whilestatement",
 …
   "forstatement",
   "switchstatement",
   "labelstatement",
   "gotostatement",
   "expressionstatement",
   "assignment_operator" ]
+  "jump_statement",
+  "asm_statement",
+  "block_item_list",
+  "block_item" ]
 Racc_debug_parser = false
 …
 # reduce 1 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 52)
+module_eval(<<'.,.,', 'C_parser.y.rb', 57)
   def _reduce_2(val, _values, result)
      result = [ :IDENTIFIER, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 60)
+module_eval(<<'.,.,', 'C_parser.y.rb', 65)
   def _reduce_3(val, _values, result)
      result = [ :INTEGER_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 62)
+module_eval(<<'.,.,', 'C_parser.y.rb', 67)
   def _reduce_4(val, _values, result)
      result = [ :FLOATING_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 64)
+module_eval(<<'.,.,', 'C_parser.y.rb', 69)
   def _reduce_5(val, _values, result)
      result = [ :OCTAL_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 66)
+module_eval(<<'.,.,', 'C_parser.y.rb', 71)
   def _reduce_6(val, _values, result)
      result = [ :HEX_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 68)
+module_eval(<<'.,.,', 'C_parser.y.rb', 73)
   def _reduce_7(val, _values, result)
      result = [ :CHARACTER_LITERAL, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 70)
+module_eval(<<'.,.,', 'C_parser.y.rb', 75)
   def _reduce_8(val, _values, result)
      result = [ :STRING_LITERAL_LIST, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 72)
+module_eval(<<'.,.,', 'C_parser.y.rb', 77)
   def _reduce_9(val, _values, result)
      result = [ :PARENTHESES, val[1].get_elements ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 76)
+module_eval(<<'.,.,', 'C_parser.y.rb', 81)
   def _reduce_10(val, _values, result)
      result = [val[0]]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 78)
+module_eval(<<'.,.,', 'C_parser.y.rb', 83)
   def _reduce_11(val, _values, result)
      result << val[1]
 …
 # reduce 12 omitted
+# reduce 13 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 89)
+  def _reduce_13(val, _values, result)
+     result = [ :OP_SUBSC, val[0], val[2] ]
+    result
+  end
+.,.,
 # reduce 14 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 86)
+  def _reduce_15(val, _values, result)
+     result = [ :OP_SUBSC, val[0], val[2] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 88)
+  def _reduce_16(val, _values, result)
+# reduce 15 omitted
+# reduce 16 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 94)
+  def _reduce_17(val, _values, result)
      result = [ :OP_DOT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 90)
   def _reduce_17(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 96)
+  def _reduce_18(val, _values, result)
      result = [ :OP_REF, val[0], val[2] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 91)
+  def _reduce_18(val, _values, result)
+     result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 92)
+module_eval(<<'.,.,', 'C_parser.y.rb', 97)
   def _reduce_19(val, _values, result)
      result = val[0]
 …
 .,.,
+# reduce 20 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 98)
+  def _reduce_20(val, _values, result)
+     result = val[0]
+    result
+  end
+.,.,
 # reduce 21 omitted
 …
 # reduce 23 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 104)
+  def _reduce_24(val, _values, result)
+# reduce 24 omitted
+# reduce 25 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 111)
+  def _reduce_26(val, _values, result)
      result = [ val[0], val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 106)
   def _reduce_25(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 113)
+  def _reduce_27(val, _values, result)
      result = [ :OP_SIZEOF_EXPR, val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 108)
   def _reduce_26(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 115)
+  def _reduce_28(val, _values, result)
      result = [ :OP_SIZEOF_TYPE, val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 109)
   def _reduce_27(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 116)
+  def _reduce_29(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 110)
   def _reduce_28(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 117)
+  def _reduce_30(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 113)
   def _reduce_29(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 120)
+  def _reduce_31(val, _values, result)
      result = :OP_U_AMP
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 114)
   def _reduce_30(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 121)
+  def _reduce_32(val, _values, result)
      result = :OP_U_ASTER
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 115)
   def _reduce_31(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 122)
+  def _reduce_33(val, _values, result)
      result = :OP_U_PLUS
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 116)
   def _reduce_32(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 123)
+  def _reduce_34(val, _values, result)
      result = :OP_U_MINUS
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 117)
   def _reduce_33(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 124)
+  def _reduce_35(val, _values, result)
      result = :OP_U_TILDE
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 118)
   def _reduce_34(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 125)
+  def _reduce_36(val, _values, result)
      result = :OP_U_EXCLAM
     result
 …
 .,.,
 # reduce 35 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 123)
   def _reduce_36(val, _values, result)
+# reduce 37 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 130)
+  def _reduce_38(val, _values, result)
       result = [ :CAST, val[1], val[3] ]
     result
 …
 .,.,
 # reduce 37 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 128)
   def _reduce_38(val, _values, result)
+# reduce 39 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 135)
+  def _reduce_40(val, _values, result)
      result = [ :OP_MULT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 130)
   def _reduce_39(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 137)
+  def _reduce_41(val, _values, result)
      result = [ :OP_DIV, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 132)
   def _reduce_40(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 139)
+  def _reduce_42(val, _values, result)
      result = [ :OP_REMAIN, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 41 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 137)
   def _reduce_42(val, _values, result)
+# reduce 43 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 144)
+  def _reduce_44(val, _values, result)
      result = [ :OP_ADD, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 139)
   def _reduce_43(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 146)
+  def _reduce_45(val, _values, result)
      result = [ :OP_SUB, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 44 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 144)
   def _reduce_45(val, _values, result)
+# reduce 46 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 151)
+  def _reduce_47(val, _values, result)
      result = [ :OP_LSFT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 146)
   def _reduce_46(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 153)
+  def _reduce_48(val, _values, result)
      result = [ :OP_RSFT, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 47 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 151)
   def _reduce_48(val, _values, result)
+# reduce 49 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 158)
+  def _reduce_50(val, _values, result)
      result = [ :OP_LT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 153)
   def _reduce_49(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 160)
+  def _reduce_51(val, _values, result)
      result = [ :OP_GT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 155)
   def _reduce_50(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 162)
+  def _reduce_52(val, _values, result)
      result = [ :OP_LE, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 157)
   def _reduce_51(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 164)
+  def _reduce_53(val, _values, result)
      result = [ :OP_GE, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 52 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 162)
   def _reduce_53(val, _values, result)
+# reduce 54 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 169)
+  def _reduce_55(val, _values, result)
      result = [ :OP_EQ, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 164)
   def _reduce_54(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 171)
+  def _reduce_56(val, _values, result)
      result = [ :OP_NE, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 55 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 169)
   def _reduce_56(val, _values, result)
+# reduce 57 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 176)
+  def _reduce_58(val, _values, result)
      result = [ :OP_AND, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 57 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 174)
   def _reduce_58(val, _values, result)
+# reduce 59 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 181)
+  def _reduce_60(val, _values, result)
      result = [ :OP_EOR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 59 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 179)
   def _reduce_60(val, _values, result)
+# reduce 61 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 186)
+  def _reduce_62(val, _values, result)
      result = [ :OP_OR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 61 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 184)
   def _reduce_62(val, _values, result)
+# reduce 63 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 191)
+  def _reduce_64(val, _values, result)
      result = [ :OP_LAND, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 63 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 189)
   def _reduce_64(val, _values, result)
+# reduce 65 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 196)
+  def _reduce_66(val, _values, result)
      result = [ :OP_LOR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 65 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 194)
   def _reduce_66(val, _values, result)
+# reduce 67 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 201)
+  def _reduce_68(val, _values, result)
      result = [ :OP_CEX, val[0], val[2].get_elements, val[4] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 201)
+  def _reduce_67(val, _values, result)
+# reduce 69 omitted
+# reduce 70 omitted
+# reduce 71 omitted
+# reduce 72 omitted
+# reduce 73 omitted
+# reduce 74 omitted
+# reduce 75 omitted
+# reduce 76 omitted
+# reduce 77 omitted
+# reduce 78 omitted
+# reduce 79 omitted
+# reduce 80 omitted
+# reduce 81 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 223)
+  def _reduce_82(val, _values, result)
                         result = Expression.new( val[0] )
                         # result.print
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 208)
+  def _reduce_68(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 228)
+  def _reduce_83(val, _values, result)
+                        result = Expression.new( val[2] )    # ',' の後ろを採用
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 234)
+  def _reduce_84(val, _values, result)
                         result = Expression.new( val[0] )
                         # result.print
 …
 .,.,
 # reduce 69 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 237)
   def _reduce_70(val, _values, result)
+# reduce 85 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 261)
+  def _reduce_86(val, _values, result)
                         result = CIntType.new( -3 )    # storage class は無視
 …
 .,.,
+# reduce 71 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 242)
+  def _reduce_72(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 265)
+  def _reduce_87(val, _values, result)
+                        result = val[1]                # storage class は無視
+    result
+  end
+.,.,
+# reduce 88 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 270)
+  def _reduce_89(val, _values, result)
+                        result = val[1].merge val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 274)
+  def _reduce_90(val, _values, result)
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 247)
+  def _reduce_73(val, _values, result)
+                        result = val[1]                # storage class は無視
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 251)
+  def _reduce_74(val, _values, result)
+                        result = val[1].merge val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 255)
+  def _reduce_75(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 279)
+  def _reduce_91(val, _values, result)
                         val[1].set_qualifier val[0]
+                        result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 262)
+  def _reduce_76(val, _values, result)
+                                                result = val[1]
+    result
+  end
+.,.,
+# reduce 92 omitted
+# reduce 93 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 287)
+  def _reduce_94(val, _values, result)
      result = [val[0]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 264)
   def _reduce_77(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 289)
+  def _reduce_95(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 # reduce 78 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 269)
   def _reduce_79(val, _values, result)
+# reduce 96 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 294)
+  def _reduce_97(val, _values, result)
      val[0].set_initializer( val[2] )
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 272)
+  def _reduce_80(val, _values, result)
+# reduce 98 omitted
+# reduce 99 omitted
+# reduce 100 omitted
+# reduce 101 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 304)
+  def _reduce_102(val, _values, result)
      set_no_type_name true; result = CVoidType.new
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 273)
+  def _reduce_81(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 306)
+  def _reduce_103(val, _values, result)
+     set_no_type_name true; result = CIntType.new(-11 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 308)
+  def _reduce_104(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -2 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 310)
+  def _reduce_105(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -3 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 312)
+  def _reduce_106(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -4 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 314)
+  def _reduce_107(val, _values, result)
      set_no_type_name true; result = CFloatType.new(-32)
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 274)
   def _reduce_82(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 316)
+  def _reduce_108(val, _values, result)
      set_no_type_name true; result = CFloatType.new(-64)
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 275)
+  def _reduce_83(val, _values, result)
+     set_no_type_name true; result = CBoolType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 276)
+  def _reduce_84(val, _values, result)
+     set_no_type_name true; result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 277)
+  def _reduce_85(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 278)
+  def _reduce_86(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 279)
+  def _reduce_87(val, _values, result)
+     set_no_type_name true; result = CDefinedType.new( val[0].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 281)
+  def _reduce_88(val, _values, result)
+     set_no_type_name true; result = CIntType.new(-11 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 282)
+  def _reduce_89(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -2 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 283)
+  def _reduce_90(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -3 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 284)
+  def _reduce_91(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -4 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 287)
+  def _reduce_92(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 319)
+  def _reduce_109(val, _values, result)
                         set_no_type_name true
                         result = CIntType.new( -3 )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 293)
   def _reduce_93(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 325)
+  def _reduce_110(val, _values, result)
                         set_no_type_name true
                         result = CIntType.new( -3 )
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 301)
+  def _reduce_94(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 330)
+  def _reduce_111(val, _values, result)
+     set_no_type_name true; result = CBoolType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 332)
+  def _reduce_112(val, _values, result)
+     set_no_type_name true; result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 334)
+  def _reduce_113(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 336)
+  def _reduce_114(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 338)
+  def _reduce_115(val, _values, result)
+     set_no_type_name true; result = CDefinedType.new( val[0].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 344)
+  def _reduce_116(val, _values, result)
      StructType.set_define( true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 304)
   def _reduce_95(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 347)
+  def _reduce_117(val, _values, result)
                         StructType.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 309)
   def _reduce_96(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 353)
+  def _reduce_118(val, _values, result)
                         result = CStructType.new()
                         StructType.set_define( true )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 314)
   def _reduce_97(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 358)
+  def _reduce_119(val, _values, result)
                         StructType.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 319)
   def _reduce_98(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 364)
+  def _reduce_120(val, _values, result)
                         StructType.set_define( false )
                         StructType.end_of_parse
 …
 .,.,
+# reduce 99 omitted
+# reduce 100 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 331)
+  def _reduce_101(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 370)
+  def _reduce_121(val, _values, result)
+     set_no_type_name true
+    result
+  end
+.,.,
+# reduce 122 omitted
+# reduce 123 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 379)
+  def _reduce_124(val, _values, result)
                         result = CStructType.new( val[0].val )
                         set_no_type_name true
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 340)
   def _reduce_102(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 388)
+  def _reduce_125(val, _values, result)
                         val[1].each { |i|       # i: Decl
                                 i.set_type( val[0] )
 …
 .,.,
+# reduce 103 omitted
+# reduce 104 omitted
+# reduce 105 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 359)
+  def _reduce_106(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 399)
+  def _reduce_126(val, _values, result)
+                        val[1].each { |i|       # i: Decl
+                                i.set_type( val[0] )
+                                i.set_kind( :MEMBER )
+                                i.check
+                                CStructType.new_member( i )
+                        }
+                        result = val[1]
+    result
+  end
+.,.,
+# reduce 127 omitted
+# reduce 128 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 417)
+  def _reduce_129(val, _values, result)
                         result = val[1].merge val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 363)
+  def _reduce_107(val, _values, result)
+# reduce 130 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 422)
+  def _reduce_131(val, _values, result)
+                        val[1].set_qualifier val[0]
+                                                result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 427)
+  def _reduce_132(val, _values, result)
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 368)
+  def _reduce_108(val, _values, result)
+                        val[1].set_qualifier val[0]
+                        result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 374)
+  def _reduce_109(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 433)
+  def _reduce_133(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 376)
   def _reduce_110(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 435)
+  def _reduce_134(val, _values, result)
      result << val[2]
     result
 …
 .,.,
+# reduce 111 omitted
+# reduce 112 omitted
+# reduce 113 omitted
+# reduce 114 omitted
+# reduce 115 omitted
+# reduce 116 omitted
+# reduce 117 omitted
+# reduce 118 omitted
+# reduce 119 omitted
+# reduce 120 omitted
+# reduce 121 omitted
+# reduce 122 omitted
+# reduce 123 omitted
+# reduce 124 omitted
+# reduce 125 omitted
+# reduce 126 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 418)
+  def _reduce_127(val, _values, result)
+     result = CEnumType.new( -1 )
+    result
+  end
+.,.,
+# reduce 128 omitted
+# reduce 129 omitted
+# reduce 130 omitted
+# reduce 131 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 434)
+  def _reduce_132(val, _values, result)
+# reduce 135 omitted
+# reduce 136 omitted
+# reduce 137 omitted
+# reduce 138 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 452)
+  def _reduce_139(val, _values, result)
+     set_no_type_name true
+    result
+  end
+.,.,
+# reduce 140 omitted
+# reduce 141 omitted
+# reduce 142 omitted
+# reduce 143 omitted
+# reduce 144 omitted
+# reduce 145 omitted
+# reduce 146 omitted
+# reduce 147 omitted
+# reduce 148 omitted
+# reduce 149 omitted
+# reduce 150 omitted
+# reduce 151 omitted
+# reduce 152 omitted
+# reduce 153 omitted
+# reduce 154 omitted
+# reduce 155 omitted
+# reduce 156 omitted
+# reduce 157 omitted
+# reduce 158 omitted
+# reduce 159 omitted
+# reduce 160 omitted
+# reduce 161 omitted
+# reduce 162 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 495)
+  def _reduce_163(val, _values, result)
      result = :CONST
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 435)
+  def _reduce_133(val, _values, result)
+# reduce 164 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 498)
+  def _reduce_165(val, _values, result)
      result = :VOLATILE
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 440)
+  def _reduce_134(val, _values, result)
+# reduce 166 omitted
+# reduce 167 omitted
+# reduce 168 omitted
+# reduce 169 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 509)
+  def _reduce_170(val, _values, result)
                         val[1].set_type( val[0] )
                         result = val[1]
 …
 .,.,
 # reduce 135 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 446)
   def _reduce_136(val, _values, result)
+# reduce 171 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 515)
+  def _reduce_172(val, _values, result)
                         result = Decl.new( val[1].val )
                         result.set_type( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 452)
   def _reduce_137(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 521)
+  def _reduce_173(val, _values, result)
      result = Decl.new( val[0].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 454)
   def _reduce_138(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 523)
+  def _reduce_174(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 457)
   def _reduce_139(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 526)
+  def _reduce_175(val, _values, result)
                         val[0].set_type( CArrayType.new( val[2] ) )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 462)
   def _reduce_140(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 531)
+  def _reduce_176(val, _values, result)
                         val[0].set_type( CArrayType.new )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 467)
   def _reduce_141(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 536)
+  def _reduce_177(val, _values, result)
                 #       Generator.warning( "W6001 need 'void' for no parameter"  )
                         val[0].set_type( CFuncType.new )
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 475)
+  def _reduce_142(val, _values, result)
+# reduce 178 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 543)
+  def _reduce_179(val, _values, result)
                 #       Generator.warning( "W6002 need 'void' for no parameter"  )
                         val[0].set_type( CFuncType.new )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 482)
   def _reduce_143(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 550)
+  def _reduce_180(val, _values, result)
      result = CPtrType.new
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 485)
   def _reduce_144(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 553)
+  def _reduce_181(val, _values, result)
                         result = CPtrType.new
                         result.set_qualifier( val[1] )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 490)
   def _reduce_145(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 558)
+  def _reduce_182(val, _values, result)
                         val[1].set_type(CPtrType.new)
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 495)
   def _reduce_146(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 563)
+  def _reduce_183(val, _values, result)
                         ptrtype = CPtrType.new
                         ptrtype.set_qualifier( val[1] )
 …
 .,.,
+# reduce 147 omitted
+# reduce 148 omitted
+# reduce 149 omitted
+# reduce 150 omitted
+# reduce 151 omitted
+# reduce 152 omitted
+# reduce 153 omitted
+# reduce 154 omitted
+# reduce 155 omitted
+# reduce 156 omitted
+# reduce 157 omitted
+# reduce 158 omitted
+# reduce 159 omitted
+# reduce 160 omitted
+# reduce 161 omitted
+# reduce 162 omitted
+# reduce 163 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 559)
+  def _reduce_164(val, _values, result)
+# reduce 184 omitted
+# reduce 185 omitted
+# reduce 186 omitted
+# reduce 187 omitted
+# reduce 188 omitted
+# reduce 189 omitted
+# reduce 190 omitted
+# reduce 191 omitted
+# reduce 192 omitted
+# reduce 193 omitted
+# reduce 194 omitted
+# reduce 195 omitted
+# reduce 196 omitted
+# reduce 197 omitted
+# reduce 198 omitted
+# reduce 199 omitted
+# reduce 200 omitted
+# reduce 201 omitted
+# reduce 202 omitted
+# reduce 203 omitted
+# reduce 204 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 630)
+  def _reduce_205(val, _values, result)
                         Generator.warning( "W6003 need 'void' for no parameter"  )
 …
 .,.,
 # reduce 165 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 564)
   def _reduce_166(val, _values, result)
+# reduce 206 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 635)
+  def _reduce_207(val, _values, result)
                         Generator.warning( "W6004 need 'void' for no parameter"  )
 …
 .,.,
 # reduce 167 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 571)
   def _reduce_168(val, _values, result)
+# reduce 208 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 642)
+  def _reduce_209(val, _values, result)
      result = val[0]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 573)
   def _reduce_169(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 644)
+  def _reduce_210(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 575)
   def _reduce_170(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 646)
+  def _reduce_211(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 577)
   def _reduce_171(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 648)
+  def _reduce_212(val, _values, result)
      result = C_EXP.new( val[2] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 582)
   def _reduce_172(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 653)
+  def _reduce_213(val, _values, result)
                         result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 586)
   def _reduce_173(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 657)
+  def _reduce_214(val, _values, result)
                         val[0] << val[2]
                         result = val[0]
 …
 .,.,
 # reduce 174 omitted
 # reduce 175 omitted
 # reduce 176 omitted
 # reduce 177 omitted
 # reduce 178 omitted
 # reduce 179 omitted
 # reduce 180 omitted
 # reduce 181 omitted
 # reduce 182 omitted
 # reduce 183 omitted
 # reduce 184 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 614)
   def _reduce_185(val, _values, result)
+# reduce 215 omitted
+# reduce 216 omitted
+# reduce 217 omitted
+# reduce 218 omitted
+# reduce 219 omitted
+# reduce 220 omitted
+# reduce 221 omitted
+# reduce 222 omitted
+# reduce 223 omitted
+# reduce 224 omitted
+# reduce 225 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 685)
+  def _reduce_226(val, _values, result)
                         val[2].each{ |i|
                            i.set_kind( :TYPEDEF )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 623)
   def _reduce_186(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 694)
+  def _reduce_227(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 625)
   def _reduce_187(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 696)
+  def _reduce_228(val, _values, result)
      result << val[2]
     result
 …
 .,.,
-# reduce 188 omitted
-# reduce 189 omitted
-# reduce 190 omitted
-# reduce 191 omitted
-# reduce 192 omitted
-# reduce 193 omitted
-# reduce 194 omitted
-# reduce 195 omitted
-# reduce 196 omitted
-# reduce 197 omitted
-# reduce 198 omitted
-# reduce 199 omitted
-# reduce 200 omitted
-# reduce 201 omitted
-# reduce 202 omitted
-# reduce 203 omitted
-# reduce 204 omitted
-# reduce 205 omitted
-# reduce 206 omitted
-# reduce 207 omitted
-# reduce 208 omitted
-# reduce 209 omitted
-# reduce 210 omitted
-# reduce 211 omitted
-# reduce 212 omitted
-# reduce 213 omitted
-# reduce 214 omitted
-# reduce 215 omitted
-# reduce 216 omitted
-# reduce 217 omitted
-# reduce 218 omitted
-# reduce 219 omitted
-# reduce 220 omitted
-# reduce 221 omitted
-# reduce 222 omitted
-# reduce 223 omitted
-# reduce 224 omitted
-# reduce 225 omitted
-# reduce 226 omitted
-# reduce 227 omitted
-# reduce 228 omitted
 # reduce 229 omitted
 …
 # reduce 237 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 706)
+  def _reduce_238(val, _values, result)
+# reduce 238 omitted
+# reduce 239 omitted
+# reduce 240 omitted
+# reduce 241 omitted
+# reduce 242 omitted
+# reduce 243 omitted
+# reduce 244 omitted
+# reduce 245 omitted
+# reduce 246 omitted
+# reduce 247 omitted
+# reduce 248 omitted
+# reduce 249 omitted
+# reduce 250 omitted
+# reduce 251 omitted
+# reduce 252 omitted
+# reduce 253 omitted
+# reduce 254 omitted
+# reduce 255 omitted
+# reduce 256 omitted
+# reduce 257 omitted
+# reduce 258 omitted
+# reduce 259 omitted
+# reduce 260 omitted
+# reduce 261 omitted
+# reduce 262 omitted
+# reduce 263 omitted
+# reduce 264 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 761)
+  def _reduce_265(val, _values, result)
      result = NamespacePath.new( val[0].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 707)
   def _reduce_239(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 762)
+  def _reduce_266(val, _values, result)
      result = NamespacePath.new( val[1].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 709)
   def _reduce_240(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 764)
+  def _reduce_267(val, _values, result)
      result = val[0].append!( val[2].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 768)
+  def _reduce_268(val, _values, result)
+                while true
+                        # ';' が表れるまで、トークンを読み飛ばす。
+                        # gcc の構文拡張に対応すべきだが、単純な実装として、';' まで読み飛ばす。
+                        # トークン単位で読み飛ばしているので、文字列やコメント内の ';' は対象にならない。
+                        token = next_token
+                        if token[1].val == ";"
+                                break
+                        end
+                        # p "skip: #{token[1].val}"
+                end
     result
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/C_parser.y.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
 #   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 #   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: C_parser.y.rb 2810 2018-03-11 13:20:03Z okuma-top $
 #++
 …
 # argument_expression_list(関数引数), assignment_expression(代入)がない
 # 式の result は、すべて配列で第一要素が識別シンボル、第二要素以下が引数
+#
+# 2019/3/28 長島 下記のC99の構文に近づくよう変更
+#（読めないヘッダーファイルがあったため）
+# http://www.quut.com/c/ANSI-C-grammar-y-1999.html
+# 元々のコメントと合わなくなっています
 primary_expression
         : namespace_identifier
+                : namespace_identifier
                 { result = [ :IDENTIFIER, val[0] ] }     #1ok
 #        : IDENTIFIER   # mikan namespace への対応
 …
 #        | FALSE
 #               { result = [ :BOOL_CONSTANT, false ] }
         | INTEGER_CONSTANT
+                | INTEGER_CONSTANT
                 { result = [ :INTEGER_CONSTANT, val[0] ] }
         | FLOATING_CONSTANT
+                | FLOATING_CONSTANT
                 { result = [ :FLOATING_CONSTANT, val[0] ] }
         | OCTAL_CONSTANT
+                | OCTAL_CONSTANT
                 { result = [ :OCTAL_CONSTANT, val[0] ] }
         | HEX_CONSTANT
+                | HEX_CONSTANT
                 { result = [ :HEX_CONSTANT, val[0] ] }
         | CHARACTER_LITERAL
+                | CHARACTER_LITERAL
                 { result = [ :CHARACTER_LITERAL, val[0] ] }
         | string_literal_list
+                | string_literal_list
                 { result = [ :STRING_LITERAL_LIST, val[0] ] }
         | '(' expression ')'
+                | '(' expression ')'
                 { result = [ :PARENTHESES, val[1].get_elements ] }
 string_literal_list
         : STRING_LITERAL
+                : STRING_LITERAL
                 { result = [val[0]] }
         | string_literal_list STRING_LITERAL
+                | string_literal_list STRING_LITERAL
                 { result << val[1] }
 # 関数呼び出しと後置インクリメント、デクリメント演算子がない
 postfix_expression
+        : primary_expression
+        | primary_expression '(' argument_list ')'
+        | primary_expression type_qualifier '(' argument_list ')'    # intended __asm volatile ( "   MNEMONIC  OPERAND" );
+        | postfix_expression '[' expression ']'
+                : primary_expression
+                | postfix_expression '[' expression ']'
                 { result = [ :OP_SUBSC, val[0], val[2] ] }
+        | postfix_expression '.' IDENTIFIER
+                | postfix_expression '(' ')'
+                | postfix_expression '(' argument_expression_list ')'
+                | postfix_expression type_qualifier '(' argument_expression_list ')'    # intended __asm volatile ( "   MNEMONIC  OPERAND" );
+                | postfix_expression '.' IDENTIFIER
                 { result = [ :OP_DOT, val[0], val[2] ] }
         | postfix_expression '->' IDENTIFIER
+                | postfix_expression '->' IDENTIFIER
                 { result = [ :OP_REF, val[0], val[2] ] }
+        | postfix_expression '++'       { result = val[0] }   # ++, -- は無視する
+        | postfix_expression '--'       { result = val[0] }
+argument_list
+        :
+        | expression
+        | argument_list ',' expression
+                | postfix_expression '++'       { result = val[0] }   # ++, -- は無視する
+                | postfix_expression '--'       { result = val[0] }
+                | '(' type_name ')' '{' initializer_list '}'
+                | '(' type_name ')' '{' initializer_list ',' '}'
+argument_expression_list
+                : assignment_expression
+                | argument_expression_list ',' assignment_expression
 # 前置インクリメント、デクリメント演算子がない
 unary_expression
         : postfix_expression
         | unary_operator cast_expression
+                : postfix_expression
+                | unary_operator cast_expression
                 { result = [ val[0], val[1] ] }
         | SIZEOF unary_expression
+                | SIZEOF unary_expression
                 { result = [ :OP_SIZEOF_EXPR, val[1] ] }
         | SIZEOF '(' type_name ')'
+                | SIZEOF '(' type_name ')'
                 { result = [ :OP_SIZEOF_TYPE, val[1] ] }
                 | '++' unary_expression                 { result = val[1] }   # ++, -- は無視する
 …
 unary_operator
         : '&'   { result = :OP_U_AMP }
         | '*'   { result = :OP_U_ASTER }
         | '+'   { result = :OP_U_PLUS }
         | '-'   { result = :OP_U_MINUS }
         | '~'   { result = :OP_U_TILDE }
         | '!'   { result = :OP_U_EXCLAM }
+                : '&'   { result = :OP_U_AMP }
+                | '*'   { result = :OP_U_ASTER }
+                | '+'   { result = :OP_U_PLUS }
+                | '-'   { result = :OP_U_MINUS }
+                | '~'   { result = :OP_U_TILDE }
+                | '!'   { result = :OP_U_EXCLAM }
 cast_expression
         : unary_expression
         | '(' type_name ')' cast_expression
+                : unary_expression
+                | '(' type_name ')' cast_expression
                 {  result = [ :CAST, val[1], val[3] ] }
 multiplicative_expression
         : cast_expression
         | multiplicative_expression '*' cast_expression
+                : cast_expression
+                | multiplicative_expression '*' cast_expression
                 { result = [ :OP_MULT, val[0], val[2] ]  }
         | multiplicative_expression '/' cast_expression
+                | multiplicative_expression '/' cast_expression
                 { result = [ :OP_DIV, val[0], val[2] ]  }
         | multiplicative_expression '%' cast_expression
+                | multiplicative_expression '%' cast_expression
                 { result = [ :OP_REMAIN, val[0], val[2] ]  }
 additive_expression
         : multiplicative_expression
         | additive_expression '+' multiplicative_expression
+                : multiplicative_expression
+                | additive_expression '+' multiplicative_expression
                 { result = [ :OP_ADD, val[0], val[2] ]  }
         | additive_expression '-' multiplicative_expression
+                | additive_expression '-' multiplicative_expression
                 { result = [ :OP_SUB, val[0], val[2] ]  }
 shift_expression
         : additive_expression
         | shift_expression '<<' additive_expression
+                : additive_expression
+                | shift_expression '<<' additive_expression
                 { result = [ :OP_LSFT, val[0], val[2] ]  }
         | shift_expression '>>' additive_expression
+                | shift_expression '>>' additive_expression
                 { result = [ :OP_RSFT, val[0], val[2] ]  }
 relational_expression
         : shift_expression
         | relational_expression '<' shift_expression
+                : shift_expression
+                | relational_expression '<' shift_expression
                 { result = [ :OP_LT, val[0], val[2] ]  }
         | relational_expression '>' shift_expression
+                | relational_expression '>' shift_expression
                 { result = [ :OP_GT, val[0], val[2] ]  }
         | relational_expression '<=' shift_expression
+                | relational_expression '<=' shift_expression
                 { result = [ :OP_LE, val[0], val[2] ]  }
         | relational_expression '>=' shift_expression
+                | relational_expression '>=' shift_expression
                 { result = [ :OP_GE, val[0], val[2] ]  }
 equality_expression
         : relational_expression
         | equality_expression '==' relational_expression
+                : relational_expression
+                | equality_expression '==' relational_expression
                 { result = [ :OP_EQ, val[0], val[2] ]  }
         | equality_expression '!=' relational_expression
+                | equality_expression '!=' relational_expression
                 { result = [ :OP_NE, val[0], val[2] ]  }
 and_expression
         : equality_expression
         | and_expression '&' equality_expression
+                : equality_expression
+                | and_expression '&' equality_expression
                 { result = [ :OP_AND, val[0], val[2] ]  }
 exclusive_or_expression
         : and_expression
         | exclusive_or_expression '^' and_expression
+                : and_expression
+                | exclusive_or_expression '^' and_expression
                 { result = [ :OP_EOR, val[0], val[2] ]  }
 inclusive_or_expression
         : exclusive_or_expression
         | inclusive_or_expression '|' exclusive_or_expression
+                : exclusive_or_expression
+                | inclusive_or_expression '|' exclusive_or_expression
                 { result = [ :OP_OR, val[0], val[2] ]  }
 logical_and_expression
         : inclusive_or_expression
         | logical_and_expression '&&' inclusive_or_expression
+                : inclusive_or_expression
+                | logical_and_expression '&&' inclusive_or_expression
                 { result = [ :OP_LAND, val[0], val[2] ]  }
 logical_or_expression
         : logical_and_expression
         | logical_or_expression '||' logical_and_expression
+                : logical_and_expression
+                | logical_or_expression '||' logical_and_expression
                 { result = [ :OP_LOR, val[0], val[2] ]  }
 conditional_expression
         : logical_or_expression
         | logical_or_expression '?' expression ':' conditional_expression
+                : logical_or_expression
+                | logical_or_expression '?' expression ':' conditional_expression
                 { result = [ :OP_CEX, val[0], val[2].get_elements, val[4] ]  }
+# コンマ演算子が使えない
+assignment_expression
+                : conditional_expression
+                | unary_expression assignment_operator assignment_expression
+assignment_operator
+                : '='
+                | '+='
+                | '-='
+                | '*='
+                | '/='
+                | '%='
+                | '<<='
+                | '>>='
+                | '&='
+                | '|='
+                | '^='
 expression
         : conditional_expression
+                : assignment_expression
+                {
                         result = Expression.new( val[0] )
                         # result.print
+                }
+                | expression ',' assignment_expression
+                {
+                        result = Expression.new( val[2] )    # ',' の後ろを採用
+                }
 constant_expression
         : conditional_expression
+                : conditional_expression
+                {
                         result = Expression.new( val[0] )
 …
+                }
 # Types
 ##########################  宣言  ##########################
 …
 # K&Rとの違い: storage classが指定できない、型が省略できない
 declaration
         : declaration_specifiers init_declarator_list ';'
 #        : type_specifier_qualifier_list init_declarator_list ';'
+                : declaration_specifiers init_declarator_list ';'
+#        : specifier_qualifier_list init_declarator_list ';'
 # declaration_specifiersは関数のパラメータで使われるが、
 # type_specifier_qualifier_listで十分かもしれない
+# specifier_qualifier_listで十分かもしれない
 declaration_specifiers
+        : storage_class
+                : storage_class_specifier
+                {
                         result = CIntType.new( -3 )    # storage class は無視
+                }
+        | type_specifier
+        | type_qualifier
+                | storage_class_specifier declaration_specifiers
+                {
+                        result = val[1]                # storage class は無視
+                }
+                | type_specifier
+                | type_specifier declaration_specifiers
+                {
+                        result = val[1].merge val[0]
+                }
+                | type_qualifier
+                {
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
+                }
+        | storage_class declaration_specifiers
+                {
+                        result = val[1]                # storage class は無視
+                }
+        | type_specifier declaration_specifiers
+                {
+                        result = val[1].merge val[0]
+                }
+        | type_qualifier declaration_specifiers
+                | type_qualifier declaration_specifiers
+                {
                         val[1].set_qualifier val[0]
+                        result = val[1]
+                }
+                                                result = val[1]
+                }
+                | function_specifier
+                | function_specifier declaration_specifiers
 init_declarator_list
         : init_declarator
+                : init_declarator
                 { result = [val[0]] }
         | init_declarator_list ',' init_declarator
+                | init_declarator_list ',' init_declarator
                 { result << val[2] }
 init_declarator
         : declarator
         | declarator '=' initializer
+                : declarator
+                | declarator '=' initializer
                 { val[0].set_initializer( val[2] ) }
+storage_class_specifier
+                : EXTERN
+                | STATIC
+                | AUTO
+                | REGISTER
 type_specifier
+        : VOID  { set_no_type_name true; result = CVoidType.new }
+        | FLOAT { set_no_type_name true; result = CFloatType.new(-32) }
+        | DOUBLE        { set_no_type_name true; result = CFloatType.new(-64) }
+        | BOOL  { set_no_type_name true; result = CBoolType.new }
+        | struct_specifier      { set_no_type_name true; result = val[0] } # set_no_type_name true は struct_tag でも呼ばれる
+        | union_specifier       { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+        | enum_specifier        { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+        | TYPE_NAME     { set_no_type_name true; result = CDefinedType.new( val[0].val ) }
+        | CHAR  { set_no_type_name true; result = CIntType.new(-11 ) }
+        | SHORT { set_no_type_name true; result = CIntType.new( -2 ) }
+        | INT           { set_no_type_name true; result = CIntType.new( -3 ) }
+        | LONG  { set_no_type_name true; result = CIntType.new( -4 ) }
+        | SIGNED
+                : VOID
+                { set_no_type_name true; result = CVoidType.new }
+                | CHAR
+                { set_no_type_name true; result = CIntType.new(-11 ) }
+                | SHORT
+                { set_no_type_name true; result = CIntType.new( -2 ) }
+                | INT
+                { set_no_type_name true; result = CIntType.new( -3 ) }
+                | LONG
+                { set_no_type_name true; result = CIntType.new( -4 ) }
+                | FLOAT
+                { set_no_type_name true; result = CFloatType.new(-32) }
+                | DOUBLE
+                { set_no_type_name true; result = CFloatType.new(-64) }
+                | SIGNED
+                {
                         set_no_type_name true
 …
                         result.set_sign :SIGNED
+                }
         | UNSIGNED
+                | UNSIGNED
+                {
                         set_no_type_name true
 …
                         result.set_sign :UNSIGNED
+                }
+                | BOOL
+                { set_no_type_name true; result = CBoolType.new }
+                | struct_specifier
+                { set_no_type_name true; result = val[0] } # set_no_type_name true は struct_tag でも呼ばれる
+                | union_specifier
+                { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+                | enum_specifier
+                { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+                | TYPE_NAME
+                { set_no_type_name true; result = CDefinedType.new( val[0].val ) }
 # mikan K&Rのstruct_or_union_specifierに相当するが、unionは使えない, bit field にも対応しない
 struct_specifier                # mikan
+        : STRUCT struct_tag '{'
+#        : STRUCT struct_tag '{'
+                : struct_term struct_tag '{'
                 { StructType.set_define( true )  }
            struct_declaration_list '}'
+                struct_declaration_list '}'
+                {
                         StructType.end_of_parse
                         result = val[1]
+                }
+        | STRUCT
+#        | STRUCT
+                | struct_term
+                {
                         result = CStructType.new()
                         StructType.set_define( true )
+                }
            '{' struct_declaration_list '}'
+                '{' struct_declaration_list '}'
+                {
                         StructType.end_of_parse
                         result = val[1]
+                }
+        | STRUCT struct_tag   # mikan struct_tag は namespace 対応が必要
+#        | STRUCT struct_tag   # mikan struct_tag は namespace 対応が必要
+                | struct_term struct_tag   # mikan struct_tag は namespace 対応が必要
+                {
                         StructType.set_define( false )
 …
+                }
+struct_term
+                : STRUCT { set_no_type_name true }
 struct_declaration_list
         : struct_declaration
         | struct_declaration_list struct_declaration
+                : struct_declaration
+                | struct_declaration_list struct_declaration
 struct_tag:
         IDENTIFIER
+                IDENTIFIER
+                {
                         result = CStructType.new( val[0].val )
 …
 # ポインタ修飾子を追加
 struct_declaration
         : declaration_specifiers struct_declarator_list ';'
 #        :                                type_specifier_qualifier_list struct_declarator_list ';'
+                : declaration_specifiers struct_declarator_list ';'
+#        :                                specifier_qualifier_list struct_declarator_list ';'
+                {
                         val[1].each { |i|       # i: Decl
 …
                         result = val[1]
+                }
+        | union_specifier ';'                       # 無名
+        | struct_specifier ';'                       # 無名
+                # ビットフィールドを読み飛ばし
+                | declaration_specifiers struct_declarator_list ':' constant_expression ';'
+                {
+                        val[1].each { |i|       # i: Decl
+                                i.set_type( val[0] )
+                                i.set_kind( :MEMBER )
+                                i.check
+                                CStructType.new_member( i )
+                        }
+                        result = val[1]
+                }
+                | union_specifier ';'                       # 無名
+                | struct_specifier ';'                       # 無名
 …
 # K&Rのspecifier_qualifier_listと同じ
 # 名前がまぎらわしかったのでtype_を付けた
+type_specifier_qualifier_list
+        : type_specifier
+        | type_specifier type_specifier_qualifier_list
+specifier_qualifier_list
+                : type_specifier specifier_qualifier_list
+                {
                         result = val[1].merge val[0]
+                }
+        | type_qualifier
+                | type_specifier
+                | type_qualifier specifier_qualifier_list
+                {
+                        val[1].set_qualifier val[0]
+                                                result = val[1]
+                }
+                | type_qualifier
+                {
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
+                }
-        | type_qualifier type_specifier_qualifier_list
+                {
-                        val[1].set_qualifier val[0]
-                        result = val[1]
+                }
 struct_declarator_list
         : struct_declarator
+                : struct_declarator
                 { result = [ val[0] ] }
         | struct_declarator_list ',' struct_declarator
+                | struct_declarator_list ',' struct_declarator
                 { result << val[2] }
 # ビットフィールドは使えない
 struct_declarator
         : declarator
+                : declarator
+#               | ':' constant_expression
+#               | declarator ':' constant_expression
 union_specifier
+        : UNION union_tag '{' union_declaration_list '}'
+        | UNION '{' union_declaration_list '}'
+        | UNION union_tag   # mikan struct_tag は namespace 対応が必要
+#        : UNION union_tag '{' union_declaration_list '}'
+#        | UNION '{' union_declaration_list '}'
+#        | UNION union_tag   # mikan struct_tag は namespace 対応が必要
+                : union_term union_tag '{' union_declaration_list '}'
+                | union_term '{' union_declaration_list '}'
+                | union_term union_tag   # mikan struct_tag は namespace 対応が必要
+union_term
+                : UNION { set_no_type_name true }
 union_declaration_list
         : union_declaration
         | union_declaration_list union_declaration
+                : union_declaration
+                | union_declaration_list union_declaration
 union_tag:
 …
 union_declaration
         : declaration_specifiers union_declarator_list ';'
+                : declaration_specifiers union_declarator_list ';'
                 | union_specifier ';'                       # 無名
                 | struct_specifier ';'                      # 無名
 union_declarator_list
+        : union_declarator
+        | union_declarator_list ',' union_declarator
+# ビットフィールドは使えない
+                : union_declarator
+                | union_declarator_list ',' union_declarator
 union_declarator
+        : declarator
+# enumの種類を追加
+enum_specifier          # mikan
+        : enum_type            '{' enumerator_list '}'
+        | enum_type IDENTIFIER '{' enumerator_list '}'
+        | enum_type IDENTIFIER
+enum_type
+        : ENUM  { result = CEnumType.new( -1 ) }
+#        | ENUM8        { result = CEnumType.new( 8 ) }
+#        | ENUM16       { result = CEnumType.new( 16 ) }
+#        | ENUM32       { result = CEnumType.new( 32 ) }
+#        | ENUM64       { result = CEnumType.new( 64 ) }
+#        | ENUM128      { result = CEnumType.new( 128 ) }
+                : declarator
+                | ':' constant_expression
+                | declarator ':' constant_expression
+enum_specifier
+                : ENUM '{' enumerator_list '}'
+                | ENUM IDENTIFIER '{' enumerator_list '}'
+                | ENUM '{' enumerator_list ',' '}'
+                | ENUM IDENTIFIER '{' enumerator_list ',' '}'
+                | ENUM IDENTIFIER
+                | ENUM TYPE_NAME '{' enumerator_list '}'
+                | ENUM TYPE_NAME '{' enumerator_list ',' '}'
+                | ENUM TYPE_NAME
 enumerator_list
         : enumerator
         | enumerator_list ',' enumerator
+                : enumerator
+                | enumerator_list ',' enumerator
 enumerator
         : IDENTIFIER
         | IDENTIFIER '=' constant_expression
+                : IDENTIFIER
+                | IDENTIFIER '=' constant_expression
 type_qualifier
+        : CONST { result = :CONST }
+        | VOLATILE      { result = :VOLATILE }
+                : CONST
+                { result = :CONST }
+                | RESTRICT
+                | VOLATILE
+                { result = :VOLATILE }
+function_specifier
+                : __INLINE__
+                | INLINE
+                | __INLINE
+                | CINLINE
 declarator
         : pointer direct_declarator
+                : pointer direct_declarator
+                {
                         val[1].set_type( val[0] )
                         result = val[1]
+                }
         | direct_declarator
         | pointer TYPE_NAME     # 関数ポインタの typedef が二重定義の場合
+                | direct_declarator
+                | pointer TYPE_NAME     # 関数ポインタの typedef が二重定義の場合
+                {
                         result = Decl.new( val[1].val )
 …
 direct_declarator               # mikan
         : IDENTIFIER
+                : IDENTIFIER
                 { result = Decl.new( val[0].val ) }
         | '(' declarator ')'
+                | '(' declarator ')'
                 { result = val[1] }
         | direct_declarator '[' constant_expression ']'
+                | direct_declarator '[' constant_expression ']'
+                {
                         val[0].set_type( CArrayType.new( val[2] ) )
                         result = val[0]
+                }
         | direct_declarator '[' ']'
+                | direct_declarator '[' ']'
+                {
                         val[0].set_type( CArrayType.new )
                         result = val[0]
+                }
         | direct_declarator '(' parameter_type_list ')'
+                | direct_declarator '(' parameter_type_list ')'
+                {
                 #       Generator.warning( "W6001 need 'void' for no parameter"  )
 …
                         result = val[0]
+                }
+#        | direct_declarator '(' identifier_list ')'  # これは何のために必要？ 060211
+        | direct_declarator '(' ')'
+                | direct_declarator '(' identifier_list ')'  # これは何のために必要？ 060211
+                | direct_declarator '(' ')'
+                {
                 #       Generator.warning( "W6002 need 'void' for no parameter"  )
 …
 pointer
         : '*'
+                : '*'
                 { result = CPtrType.new }
+        | '*' type_qualifier
+                | '*' type_qualifier_list
+                {
                         result = CPtrType.new
                         result.set_qualifier( val[1] )
+                }
         | '*' pointer
+                | '*' pointer
+                {
                         val[1].set_type(CPtrType.new)
                         result = val[1]
+                }
         | '*' type_qualifier pointer
+                | '*' type_qualifier_list pointer
+                {
                         ptrtype = CPtrType.new
 …
+                }
+type_qualifier_list
+                : type_qualifier
+                | type_qualifier_list type_qualifier
 parameter_type_list
         : parameter_list
         | parameter_list ',' '.' '.' '.'
+                : parameter_list
+                | parameter_list ',' '.' '.' '.'
                 # mikan 可変長パラメータ,  ... の間のスペースが許される（手抜き）
 parameter_list
         : parameter_declaration
+                : parameter_declaration
 #               { result = ParamList.new( val[0] ) }
         | parameter_list ',' parameter_declaration
+                | parameter_list ',' parameter_declaration
 #               {
 #                       val[0].add_param( val[2] )
 …
 # パラメータ修飾子を追加
 parameter_declaration
         : declaration_specifiers declarator
+                : declaration_specifiers declarator
 #               {
 #                       decl = ParamDecl.new( val[1], val[0], [] )
 …
 #                       result = nil
 #               }
         | declaration_specifiers abstract_declarator    # 仮引数なし
         | declaration_specifiers                                                # 仮引数なし
 #identifier_list       # 060211  不用になった
 #        : IDENTIFIER
 #        | identifier_list ',' IDENTIFIER
+                | declaration_specifiers abstract_declarator    # 仮引数なし
+                | declaration_specifiers                                                # 仮引数なし
+identifier_list       # 060211  不用になった
+        : IDENTIFIER
+        | identifier_list ',' IDENTIFIER
 type_name
         : type_specifier_qualifier_list
         | type_specifier_qualifier_list abstract_declarator
+                : specifier_qualifier_list
+                | specifier_qualifier_list abstract_declarator
 abstract_declarator             # mikan
         : pointer
         | direct_abstract_declarator
         | pointer direct_abstract_declarator
+                : pointer
+                | direct_abstract_declarator
+                | pointer direct_abstract_declarator
 direct_abstract_declarator
         : '(' abstract_declarator ')'
         | '[' ']'
         | '[' constant_expression ']'
         | direct_abstract_declarator '[' ']'
         | direct_abstract_declarator '[' constant_expression ']'
         | '(' ')'
+                : '(' abstract_declarator ')'
+                | '[' ']'
+                | '[' assignment_expression ']'
+                | direct_abstract_declarator '[' ']'
+                | direct_abstract_declarator '[' assignment_expression ']'
+                | '(' ')'
+                {
                         Generator.warning( "W6003 need 'void' for no parameter"  )
+                }
         | '(' parameter_type_list ')'
         | direct_abstract_declarator '(' ')'
+                | '(' parameter_type_list ')'
+                | direct_abstract_declarator '(' ')'
+                {
                         Generator.warning( "W6004 need 'void' for no parameter"  )
+                }
         | direct_abstract_declarator '(' parameter_type_list ')'
+                | direct_abstract_declarator '(' parameter_type_list ')'
 # assignment_expressionをconstant_expressionに変更
 initializer                     # mikan
         : constant_expression
+                : assignment_expression
                 { result = val[0] }
         | '{' initializer_list '}'
+                | '{' initializer_list '}'
                 { result = val[1] }
         | '{' initializer_list ',' '}'
+                | '{' initializer_list ',' '}'
                 { result = val[1] }
         | C_EXP '(' STRING_LITERAL ')'
+                | C_EXP '(' STRING_LITERAL ')'
                 { result = C_EXP.new( val[2] ) }
 initializer_list
         : initializer
+                : initializer
+                {
                         result = [ val[0] ]
+                }
         | initializer_list ',' initializer
+                | initializer_list ',' initializer
+                {
                         val[0] << val[2]
 …
 #トップレベルの構文規則
 C_parser
+        :
         | C_parser extension_statement
+                :
+                | C_parser extension_statement
 extension_statement
         : statement
         | EXTENSION statement
 statement
         : typedef
         | func_def
         | enum_specifier ';'
         | struct_specifier ';'
         | declaration
         | ';'
         | error   # エラー回復ポイント
+                : cdl_statement
+                | EXTENSION cdl_statement
+cdl_statement
+                : typedef
+                | func_def
+                | enum_specifier ';'
+                | struct_specifier ';'
+                | declaration
+                | ';'
+                | error   # エラー回復ポイント
 typedef
         : TYPEDEF type_specifier_qualifier_list declarator_list ';'
+        : TYPEDEF specifier_qualifier_list declarator_list ';'
+                {
                         val[2].each{ |i|
 …
 declarator_list
         : declarator
+                : declarator
                 { result = [ val[0] ] }
         | declarator_list ',' declarator
+                | declarator_list ',' declarator
                 { result << val[2] }
 func_def
+        : declaration_specifiers declarator compoundstatement
+infunc_statement_list
+        :
+        | infunc_statement_list infunc_statement
+infunc_statement
+        : declaration
+        | ifstatement
+        | whilestatement
+        | dowhilestatement
+        | forstatement
+        | switchstatement
+        | labelstatement
+        | compoundstatement
+        | gotostatement
+        | expressionstatement
+        | ';'
+                : declaration_specifiers declarator compound_statement
+statement
+                : labeled_statement
+                | compound_statement
+                | expression_statement
+                | ifstatement
+                | whilestatement
+                | dowhilestatement
+                | forstatement
+                | switchstatement
+                | jump_statement
+                | asm_statement
+labeled_statement
+                : IDENTIFIER ':' statement
+                | CASE constant_expression ':' statement
+                | DEFAULT ':' statement
+compound_statement
+                : '{' '}'
+                | '{' block_item_list '}'
+block_item_list
+                : block_item
+                | block_item_list block_item
+block_item
+                : declaration
+                | statement
+expression_statement
+                : ';'
+                | expression ';'
 ifstatement
+        : IF '(' expression ')' infunc_statement
+        | IF '(' expression ')' infunc_statement ELSE infunc_statement
+                : IF '(' expression ')' statement
+                | IF '(' expression ')' statement ELSE statement
+switchstatement
+                : SWITCH '(' expression ')' compound_statement
 whilestatement
         : WHILE '(' expression ')' infunc_statement
+                : WHILE '(' expression ')' statement
 dowhilestatement
         : DO infunc_statement WHILE '(' expression ')' ';'
+                : DO statement WHILE '(' expression ')' ';'
 forstatement
+        : FOR '(' expression ';' expression ';' expression ')' infunc_statement
+switchstatement
+        : SWITCH '(' expression ')'  infunc_statment
+labelstatement
+        : IDENTIFIER ':' infunc_statement
+        | CASE constant_expression ':' infunc_statement
+        | DEFAULT ':' infunc_statement
+compoundstatement
+        : '{' infunc_statement_list '}'
+gotostatement
+        : GOTO IDENTIFIER ';'
+        | CONTINUE ';'
+        | BREAK ';'
+        | RETURN expression ';'
+        | RETURN ';'
+expressionstatement
+        : expression ';'
+        | unary_expression assignment_operator expression ';'
+assignment_operator
+        : '='
+        | '+='
+        | '-='
+        | '*='
+        | '/='
+        | '%='
+        | '<<='
+        | '>>='
+        | '&='
+        | '|='
+        | '^='
+storage_class
+        : __INLINE__
+        | INLINE
+        | __INLINE
+        | CINLINE
+        | EXTERN
+        | STATIC
+        | AUTO
+        | REGISTER
+                : FOR '(' expression_statement expression_statement ')' statement
+                | FOR '(' expression_statement expression_statement expression ')' statement
+                | FOR '(' declaration expression_statement ')' statement
+                | FOR '(' declaration expression_statement expression ')' statement
+jump_statement
+                : GOTO IDENTIFIER ';'
+                | CONTINUE ';'
+                | BREAK ';'
+                | RETURN ';'
+                | RETURN expression ';'
 namespace_identifier
         : IDENTIFIER            { result = NamespacePath.new( val[0].val, false ) }
         | '::' IDENTIFIER       { result = NamespacePath.new( val[1].val, true ) }
         | namespace_identifier '::' IDENTIFIER
+                : IDENTIFIER            { result = NamespacePath.new( val[0].val, false ) }
+                | '::' IDENTIFIER       { result = NamespacePath.new( val[1].val, true ) }
+                | namespace_identifier '::' IDENTIFIER
                 { result = val[0].append!( val[2].val ) }
+asm_statement
+                : _ASM {
+                while true
+                        # ';' が表れるまで、トークンを読み飛ばす。
+                        # gcc の構文拡張に対応すべきだが、単純な実装として、';' まで読み飛ばす。
+                        # トークン単位で読み飛ばしているので、文字列やコメント内の ';' は対象にならない。
+                        token = next_token
+                        if token[1].val == ";"
+                                break
+                        end
+                        # p "skip: #{token[1].val}"
+                end
+                }
 end
 ---- inner
+  RESERVED = {
+    # keyword
+    'typedef' => :TYPEDEF,
+    'struct' => :STRUCT,
+    'union' => :UNION,
+    'sizeof' => :SIZEOF,
+    'throw' => :THROW,
+    # specifier
+    # types
+    'void'    => :VOID,
+    'char'    => :CHAR,
+    'short'   => :SHORT,
+    'volatile'=> :VOLATILE,
+    'const'   => :CONST,
+    'extern'   => :EXTERN,
+    'long'    => :LONG,
+    'float'   => :FLOAT,
+    'double'  => :DOUBLE,
+    'signed'  => :SIGNED,
+    'unsigned'=> :UNSIGNED,
+    'int'     => :INT,
+    'enum'    => :ENUM,
+    'if'      => :IF,
+    'else'    => :ELSE,
+    'while'   => :WHILE,
+    'do'      => :DO,
+    'for'     => :FOR,
+    'case'    => :CASE,
+    'default' => :DEFAULT,
+    'goto'    => :GOTO,
+    'continue' => :CONTINUE,
+    'break'   => :BREAK,
+    'return'  => :RETURN,
+    '__inline__'  => :__INLINE__,
+    'inline'  => :INLINE,
+    '__inline'  => :__INLINE,
+    'Inline'  => :CINLINE,        # inline starting with Capital letter
+    'static'  => :STATIC,
+    'register' => :REGISTER,
+    'auto'    => :AUTO,
+    '__extension__'    => :EXTENSION,
+  }
+  @@generator_nest = -1
+  @@generator_stack = []
+  @@current_locale = []
+  def finalize
+    # mikan Namespace.pop
+    Celltype.pop
+    Cell.pop
+    CompositeCelltype.pop
+    Region.pop
+  end
+  def set_plugin( plugin )
+    @plugin = plugin
+  end
+  def self.get_plugin
+    @@generator_stack[@@generator_nest].get_plugin
+  end
+  def get_plugin
+    @plugin
+  end
+  def parse(files)
+    # mikan Namespace.push
+    Celltype.push
+    Cell.push
+    CompositeCelltype.push
+    Region.push
+    @@generator_nest += 1
+    @@generator_stack[@@generator_nest] = self
+    @b_no_type_name = false
+   begin
+    @q = []
+    comment = false
+    # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+    TECS_LANG::set_kcode_binary
+    # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+    integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+    files.each {|file|
+      lineno = 1
+     begin
+#2.0       IO.foreach(file) {|line|
+       TECSIO.foreach(file) {|line|
+        col = 1
+        line.rstrip!
+        until line.empty?
+          if comment
+            case line
+            # コメント終了
+            when /\A\*\//
+              comment = false
+            when /\A./
+              ;
+            end
+          else
+            case line
+            # 空白、プリプロセスディレクティブ
+            when /\A\s+/
+              ;
+            # 識別子
+            when /\A[a-zA-Z_]\w*/
+              word = $&
+              @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+            # 16 進数定数
+            when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+              @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+            # 8 進数定数
+            when /\A0[0-7]+#{integer_qualifier}/
+              @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+            # 浮動小数定数
+            when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+              @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+            # 整数定数
+            when /\A\d+#{integer_qualifier}/
+            # when /\A\d+/
+              @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+            # 文字
+            when /\A'(?:[^'\\]|\\.)'/
+              @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+            # 文字列
+#              "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#            when /\A"(?:[^"\\]+|\\.)*"/
+            when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+              @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+            # 行コメント
+            when /\A\/\/.*$/
+              # 読み飛ばすだけ
+            # コメント開始
+            when /\A\/\*/
+              comment = true
+            when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A./
+              @q << [$&, Token.new($&, file, lineno, col)]
+            else
+              raise
+            end
+          end
+          line = $'
+          col += $&.length
+        end
+        lineno += 1
+      }
+     rescue => evar
+       Generator.error( "B1002 while open or reading \'$1\'" , file )
+       print_exception( evar )
+     end
+    }
+    # 終了の印
+    @q << nil
+    @yydebug = true
+    do_parse
+   ensure
+    @@generator_nest -= 1
+    TECS_LANG::reset_kcode
+   end
+  end
+  def next_token
+    token = @q.shift
+    if token then
+      @@current_locale[@@generator_nest] = token[1].locale
+      case token[1].val
+      when ";", ":", ",", "(", ")", "{", "}"
+        set_no_type_name false
+      when ".", "->"
+        set_no_type_name true
+      end
+      # TYPE_NAME トークンへ置き換え
+      if @b_no_type_name == false
+        if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+          token[0] = :TYPE_NAME
+        end
+      end
+      if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+        locale = @@current_locale[@@generator_nest]
+        if token then
+          print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+        else
+          print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+        end
+      end
+    end
+    token
+  end
+  def on_error(t, v, vstack)
+    if v == "$" then
+     Generator.error( "B1003 Unexpected EOF"  )
+    else
+     Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+    end
+  end
+  def self.current_locale
+    @@current_locale[ @@generator_nest ]
+  end
+  @@n_error = 0
+  @@n_warning = 0
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+  def self.error( msg )
+    @@n_error += 1
+    locale = @@current_locale[ @@generator_nest ]
+    if locale then
+      Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+    else
+      Console.puts "error: #{msg}"
+    end
+  end
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+  def self.warning( msg )
+    @@n_warning += 1
+    locale = @@current_locale[ @@generator_nest ]
+    Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+  end
+  def self.get_n_error
+    @@n_error
+  end
+  def self.get_n_warning
+    @@n_warning
+  end
+  def self.get_nest
+    @@generator_nest
+  end
+  def set_no_type_name b_no_type_name
+    # print "b_no_type_name=#{b_no_type_name}\n"
+    @b_no_type_name = b_no_type_name
+  end
+        RESERVED = {
+                # keyword
+                'typedef' => :TYPEDEF,
+                'struct' => :STRUCT,
+                'union' => :UNION,
+                'sizeof' => :SIZEOF,
+                'throw' => :THROW,
+                # specifier
+                # types
+                'void'    => :VOID,
+                'char'    => :CHAR,
+                'short'   => :SHORT,
+                'volatile'=> :VOLATILE,
+                'restrict'=> :RESTRICT,
+                'const'   => :CONST,
+                'extern'   => :EXTERN,
+                'long'    => :LONG,
+                'float'   => :FLOAT,
+                'double'  => :DOUBLE,
+                'signed'  => :SIGNED,
+                'unsigned'=> :UNSIGNED,
+                'int'     => :INT,
+                'enum'    => :ENUM,
+                'if'      => :IF,
+                'else'    => :ELSE,
+                'while'   => :WHILE,
+                'do'      => :DO,
+                'for'     => :FOR,
+                'switch'  => :SWITCH,
+                'case'    => :CASE,
+                'default' => :DEFAULT,
+                'goto'    => :GOTO,
+                'continue' => :CONTINUE,
+                'break'   => :BREAK,
+                'return'  => :RETURN,
+                '__inline__'  => :__INLINE__,
+                'inline'  => :INLINE,
+                '__inline'  => :__INLINE,
+                'Inline'  => :CINLINE,        # inline starting with Capital letter
+                'static'  => :STATIC,
+                'register' => :REGISTER,
+                'auto'    => :AUTO,
+                '__extension__'    => :EXTENSION,
+                '__asm__' => :_ASM,
+                'asm' =>     :_ASM
+        }
+        @@generator_nest = -1
+        @@generator_stack = []
+        @@current_locale = []
+        def finalize
+                # mikan Namespace.pop
+                Celltype.pop
+                Cell.pop
+                CompositeCelltype.pop
+                Region.pop
+        end
+        def set_plugin( plugin )
+                @plugin = plugin
+        end
+        def self.get_plugin
+                @@generator_stack[@@generator_nest].get_plugin
+        end
+        def get_plugin
+                @plugin
+        end
+        def parse(files)
+                # mikan Namespace.push
+                Celltype.push
+                Cell.push
+                CompositeCelltype.push
+                Region.push
+                @@generator_nest += 1
+                @@generator_stack[@@generator_nest] = self
+                @b_no_type_name = false
+        begin
+                @q = []
+                comment = false
+#               b_asm   = false
+                # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+                TECS_LANG::set_kcode_binary
+                # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+                integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+                files.each {|file|
+                        lineno = 1
+                begin
+#2.0            IO.foreach(file) {|line|
+                        TECSIO.foreach(file) {|line|
+                        col = 1
+                        line.rstrip!
+                        until line.empty?
+                                if comment
+                                        case line
+                                        # コメント終了
+                                        when /\A\*\//
+                                                comment = false
+                                        when /\A./
+                                                ;
+                                        end
+                                else
+                                        case line
+                                        # 空白、プリプロセスディレクティブ
+                                        when /\A\s+/
+                                                ;
+                                        # 識別子
+                                        when /\A[a-zA-Z_]\w*/
+                                                word = $&
+                                                @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+                                        # 16 進数定数
+                                        when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+                                                @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 8 進数定数
+                                        when /\A0[0-7]+#{integer_qualifier}/
+                                                @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 浮動小数定数
+                                        when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+                                                @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 整数定数
+                                        when /\A\d+#{integer_qualifier}/
+                                        # when /\A\d+/
+                                                @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+                                        # 文字
+                                        when /\A'(?:[^'\\]|\\.)'/
+                                                @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 文字列
+#                                       "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#                                       when /\A"(?:[^"\\]+|\\.)*"/
+                                        when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+                                                @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 行コメント
+                                        when /\A\/\/.*$/
+                                                # 読み飛ばすだけ
+                                        # コメント開始
+                                        when /\A\/\*/
+                                                comment = true
+                                        when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\|\|/, /\A\&\&/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A./
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        else
+                                                raise
+                                        end
+                                end
+                                line = $'
+                                col += $&.length
+                        end
+                        lineno += 1
+                }
+                rescue => evar
+                        Generator.error( "B1002 while open or reading \'$1\'" , file )
+                        print_exception( evar )
+                end
+        }
+        # 終了の印
+        @q << nil
+        @yydebug = true
+        do_parse
+        ensure
+                @@generator_nest -= 1
+                TECS_LANG::reset_kcode
+        end
+        end
+        def next_token
+                token = @q.shift
+                if token then
+                        @@current_locale[@@generator_nest] = token[1].locale
+                        case token[1].val
+                        when ";", ":", ",", "(", ")", "{", "}"
+                        set_no_type_name false
+                        when ".", "->"
+                        set_no_type_name true
+                        end
+                        # TYPE_NAME トークンへ置き換え
+                        if @b_no_type_name == false
+                                if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+                                        token[0] = :TYPE_NAME
+                                        locale = @@current_locale[@@generator_nest]
+#print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}: type_name'\n" )
+                                end
+                        end
+                        if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+                                locale = @@current_locale[@@generator_nest]
+                                if token then
+                                        print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+                                else
+                                        print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+                                end
+                        end
+                end
+                token
+        end
+        def on_error(t, v, vstack)
+                if v == "$" then
+                        Generator.error( "B1003 Unexpected EOF"  )
+                else
+                        Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+                end
+        end
+        def self.current_locale
+                @@current_locale[ @@generator_nest ]
+        end
+        @@n_error = 0
+        @@n_warning = 0
+        @@n_info = 0
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+        def self.error( msg )
+                @@n_error += 1
+                locale = @@current_locale[ @@generator_nest ]
+                if locale then
+                        Console.puts "#{locale[0]}:#{locale[1]}: error: #{msg}"
+                else
+                        Console.puts "error: #{msg}"
+                end
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+        def self.warning( msg )
+                @@n_warning += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: warning: #{msg}"
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可
+        def self.info( msg )
+                @@n_info += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: info: #{msg}"
+        end
+        def self.get_n_error
+                @@n_error
+        end
+        def self.get_n_warning
+                @@n_warning
+        end
+        def self.get_nest
+                @@generator_nest
+        end
+        def set_no_type_name b_no_type_name
+                locale = @@current_locale[ @@generator_nest ]
+#print "b_no_type_name=#{b_no_type_name} #{locale[0]}: line #{locale[1]}\n"
+                @b_no_type_name = b_no_type_name
+        end
 ---- footer

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/bnf.tab.rb

-              r321
+              r429
+#
 # DO NOT MODIFY!!!!
 # This file is automatically generated by Racc 1.4.12
+# This file is automatically generated by Racc 1.4.14
 # from Racc grammer file "".
+#
 …
 class Generator < Racc::Parser
 module_eval(<<'...end bnf.y.rb/module_eval...', 'bnf.y.rb', 1504)
+module_eval(<<'...end bnf.y.rb/module_eval...', 'bnf.y.rb', 1534)
   RESERVED = {
 …
     'import_C' => :IMPORT_C,
     'generate' => :GENERATE,
+    '__tool_info__' => :TOOL_INFO,
     # types
 …
   # すべての構文解析が完了した
   @@b_end_all_parse = false
+  # tag なし struct
+  @@no_struct_tag_num = 0
   def self.parse( file_name, plugin = nil, b_reuse = false )
 …
                   string += line
                   # この位置では error メソッドは使えない (token 読出し前)
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 end
 …
                   b_in_string = true
                   # この位置では error メソッドは使えない (token 読出し前) # mikan cdl_error ではない
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 # 山括弧で囲まれた文字列
+                when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                # when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                when /\A<(?:[^>\\]|\\.)*>/   # これはうまく行くようだ
                   @q << [:AB_STRING_LITERAL, Token.new($&, file, lineno, col)]
                 # 行コメント
 …
   @@n_error = 0
   @@n_warning = 0
+  @@n_info = 0
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
 …
       end
       if locale then
         Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: error: #{msg}"
       else
         Console.puts "error: #{msg}"
 …
       end
       if locale then
         Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: warning: #{msg}"
       else
         Console.puts "warning: #{msg}"
 …
   end
+  # このメソッドは構文解析、意味解析からのみ呼出し可
+  def self.info( msg, *arg )
+    locale = nil
+    self.info2( locale, msg, *arg )
+  end
+  def self.info2( locale, msg, *arg )
+    @@n_info += 1
+    msg = TECSMsg.get_info_message( msg )
+    # $1, $2, ... を arg で置換
+    count = 1
+    arg.each{ |a|
+      str = TECSIO.str_code_convert( msg, a.to_s )
+      msg.sub!( /\$#{count}/, str )
+      count += 1
+    }
+    # import_C の中でのウォーニング？
+    if @@import_C then
+      C_parser.info( msg )
+    else
+      if @@b_end_all_parse == false || locale == nil then
+        locale = @@current_locale[ @@generator_nest ]
+      end
+      if locale then
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: info: #{msg}"
+      else
+        Console.puts "info: #{msg}"
+      end
+    end
+  end
   def self.get_n_error
     @@n_error
 …
   end
+  def self.get_n_info
+    @@n_info
+  end
   def self.get_nest
     @@generator_nest
+  end
+  def self.parsing_C?
+    @@import_C
   end
 …
 clist = [
+'65,566,323,779,733,806,77,346,347,323,77,77,77,160,194,195,196,197,198',
+'199,200,202,174,203,664,133,860,133,99,207,208,209,210,211,212,213,663',
+'244,831,551,394,512,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25',
+'26,27,28,29,30,31,32,33,34,35,38,678,395,459,309,696,42,43,44,45,46',
+'47,48,49,858,98,654,827,440,133,133,826,133,133,133,133,133,65,186,186',
+'186,186,69,67,68,308,70,71,77,72,323,73,299,300,319,819,133,175,133',
+'134,320,134,322,186,74,74,74,75,76,76,76,133,86,186,186,186,186,78,85',
+'5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32',
+'33,34,35,38,77,420,186,358,359,42,43,44,45,46,47,48,49,186,134,134,134',
+'65,134,134,134,134,134,133,133,87,571,77,77,570,323,69,67,68,325,70',
+'71,133,72,799,73,530,134,341,134,299,300,319,342,343,397,798,682,320',
+'74,322,75,134,76,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,444,48,49,352,353,42,43,44,45,46,47,48',
+'49,328,329,509,510,65,299,300,301,186,302,303,305,306,683,606,77,134',
+'134,69,67,68,856,70,71,272,72,607,73,77,177,134,643,299,300,319,77,77',
+'636,203,780,320,74,322,75,684,76,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,795,160,610,676,855,42',
+'43,44,45,46,47,48,49,160,637,403,470,86,160,471,633,426,781,85,793,470',
+'87,87,471,502,705,69,67,68,758,70,71,397,72,396,73,159,625,402,194,195',
+'196,197,198,199,200,202,614,203,74,792,75,133,76,207,208,209,210,211',
+'212,213,299,300,301,160,302,303,305,306,194,195,196,197,198,199,200',
+'202,160,203,624,609,283,133,626,207,208,209,210,211,212,213,867,742',
+'809,194,195,196,197,198,199,200,202,335,203,336,159,337,133,229,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,810,203,251',
+'160,230,133,409,207,208,209,210,211,212,213,229,649,707,666,400,837',
+'79,134,496,277,676,251,571,704,846,570,160,539,845,393,230,848,596,408',
+'818,229,748,147,619,630,146,706,648,684,667,401,838,134,761,495,278',
+'675,250,705,167,230,620,229,86,847,760,86,817,86,85,177,618,85,87,85',
+'341,87,134,87,270,342,343,230,632,177,194,195,196,197,198,199,200,202',
+'173,203,614,744,869,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,147,203,650,146,651,133,172,207,208,209,210,211',
+'212,213,194,195,196,197,198,199,200,202,171,203,388,389,390,133,170',
+'207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,169,203',
+'388,389,390,133,659,207,208,209,210,211,212,213,348,349,350,351,194',
+'195,196,197,198,199,200,202,168,203,583,330,660,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,661,203,344,345,165',
+'133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202',
+'164,203,282,283,665,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,668,203,352,353,670,133,134,207,208,209,210,211',
+'212,213,348,349,350,351,194,195,196,197,198,199,200,202,431,203,346',
+'347,671,133,134,207,208,209,210,211,212,213,672,448,673,376,377,378',
+'430,432,433,434,435,431,346,347,134,371,372,373,374,375,379,229,450',
+'451,452,449,348,349,350,351,674,430,432,433,434,435,134,341,142,143',
+'677,230,342,343,194,195,196,197,198,199,200,202,163,203,346,347,203',
+'133,134,207,208,209,210,211,212,213,346,347,344,345,194,195,196,197',
+'198,199,200,202,680,203,344,345,162,133,134,207,208,209,210,211,212',
+'213,194,195,196,197,198,199,200,202,161,203,398,330,689,133,160,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,691,203,719',
+'510,692,133,693,207,208,209,210,211,212,213,194,195,196,197,198,199',
+'200,202,160,203,376,377,378,133,134,207,208,209,210,211,212,213,371',
+'372,373,374,375,379,102,103,104,105,106,107,108,109,110,111,112,695',
+'134,697,698,699,700,703,708,229,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,134,711,562,74,714,230,715,716,194,195,196,197,198,199,200,202',
+'717,203,157,744,720,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,721,203,722,599,724,133,134,207,208,209,210,211',
+'212,213,194,195,196,197,198,199,200,202,725,203,726,728,614,133,731',
+'207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,732,203',
+'156,153,736,133,152,207,208,209,210,211,212,213,739,743,751,752,194',
+'195,196,197,198,199,200,202,144,203,754,576,755,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,757,203,759,762,763',
+'133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202',
+'764,203,767,768,769,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,770,203,643,232,703,133,134,207,208,209,210,211',
+'212,213,86,86,86,229,177,775,85,85,85,86,87,87,87,776,86,85,777,778',
+'134,87,85,141,711,230,87,786,194,195,196,197,198,199,200,202,140,203',
+'788,138,132,133,134,207,208,209,210,211,212,213,194,195,196,197,198',
+'199,200,202,791,203,130,796,128,133,134,207,208,209,210,211,212,213',
+'194,195,196,197,198,199,200,202,800,203,801,-383,802,133,134,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,803,203,804,124',
+'123,133,807,207,208,209,210,211,212,213,767,203,813,816,194,195,196',
+'197,198,199,200,202,821,203,822,94,824,133,134,207,208,209,210,211,212',
+'213,194,195,196,197,198,199,200,202,828,203,829,830,90,133,134,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,833,203,834,89,836',
+'133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202',
+'798,203,839,840,323,133,134,207,208,209,210,211,212,213,842,843,844',
+'849,194,195,196,197,198,199,200,202,850,203,851,88,857,133,134,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,357,203,356,362',
+'363,133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200',
+'202,365,203,366,122,861,133,134,207,208,209,210,211,212,213,194,195',
+'196,197,198,199,200,202,3,203,156,355,399,133,134,207,208,209,210,211',
+'212,213,404,140,406,407,194,195,196,197,198,199,200,202,410,203,411',
+'412,413,133,134,207,208,209,210,211,212,213,194,195,196,197,198,199',
+'200,202,414,203,415,354,862,133,134,207,208,209,210,211,212,213,194',
+'195,196,197,198,199,200,202,438,203,439,442,453,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,330,203,456,457,186',
+'133,134,207,208,209,210,211,212,213,464,465,466,473,194,195,196,197',
+'198,199,200,202,474,203,307,285,284,133,134,207,208,209,210,211,212',
+'213,194,195,196,197,198,199,200,202,281,203,280,279,276,133,134,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,275,203,274',
+'267,177,133,134,207,208,209,210,211,212,213,194,195,196,197,198,199',
+'200,202,265,203,203,259,203,133,134,207,208,209,210,211,212,213,156',
+'503,504,505,194,195,196,197,198,199,200,202,506,203,507,863,513,133',
+'134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,514',
+'203,515,259,517,133,134,207,208,209,210,211,212,213,86,86,86,86,252',
+'265,85,85,85,85,87,87,87,87,134,299,300,301,520,302,303,305,306,521',
+'194,195,196,197,198,199,200,202,203,203,524,203,134,133,203,207,208',
+'209,210,211,212,213,177,528,194,195,196,197,198,199,200,202,529,203',
+'532,533,534,133,134,207,208,209,210,211,212,213,115,116,117,118,119',
+'120,121,115,116,117,118,119,120,121,134,536,537,540,186,5,6,7,10,13',
+'14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38',
+'265,865,550,554,160,42,43,44,45,46,47,48,49,134,194,195,196,197,198',
+'199,200,202,556,203,866,186,560,133,562,207,208,209,210,211,212,213',
+'323,134,565,87,242,190,578,579,354,355,356,357,580,189,188,186,185,184',
+'183,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,182,181,596,597,599,42,43,44,45,46,47,48,49,194,195,196',
+'197,198,199,200,202,600,203,330,601,603,133,604,207,208,209,210,211',
+'212,213,605,,134,194,195,196,197,198,199,200,339,,203,,,,133,,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,,203,,685,,133,',
+'207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,,203,,,',
+'133,,207,208,209,210,211,212,213,,194,195,196,197,198,199,200,202,,203',
+',576,,133,134,207,208,209,210,211,212,213,,,,194,195,196,197,198,199',
+'200,202,,203,,655,,133,134,207,208,209,210,211,212,213,194,195,196,197',
+'198,199,200,202,,203,,,,133,134,207,208,209,210,211,212,213,194,195',
+'196,197,198,199,200,202,,203,,,,133,134,207,208,209,210,211,212,213',
+',194,195,196,197,198,199,200,202,,203,,,,133,134,207,208,209,210,211',
+'212,213,,,,194,195,196,197,198,199,200,202,,203,,,,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,,203,,,,133,134,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,,203,,,,133',
+'134,207,208,209,210,211,212,213,,194,195,196,197,198,199,200,202,,203',
+',,,133,134,207,208,209,210,211,212,213,,,,194,195,196,197,198,199,200',
+'202,,203,,,,133,134,207,208,209,210,211,212,213,102,103,104,105,106',
+'107,108,109,110,111,112,,,,134,,,,,,,,,,,,,,,,,,,,,,134,,115,116,117',
+'118,119,120,121,,,229,581,,,470,574,,573,,,,,134,,87,,,,,,230,,,,,,',
+',,,,,,,,,,134,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,236,,77,,,42,43,44,45,46,47,48,49,,,,,,,',
+',,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,657,,77,,,42,43,44,45,46,47,48,49,,,,,,,,,,',
+',,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29',
+'30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,',
+',,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,498,,,,,,,,,,,,,,,,,,5',
+'66,575,328,559,538,815,78,330,869,328,78,78,78,409,199,200,201,202,203',
+'204,205,207,846,208,678,135,897,135,647,212,213,214,215,216,217,218',
+'249,679,177,872,870,408,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,465,189,693,333,334,42,43,44,45',
+'46,47,48,49,896,88,644,406,666,761,711,87,135,871,135,135,135,135,189',
+'66,189,189,70,68,69,135,71,72,328,73,78,74,304,305,324,860,901,189,407',
+'136,325,136,327,189,75,75,75,76,77,77,77,135,874,178,189,189,189,79',
+'875,101,80,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,78,364,365,256,899,42,43,44,45,46,47,48,49,189',
+'189,189,136,66,136,136,136,136,878,135,135,89,100,78,78,136,328,70,68',
+'69,399,71,72,135,73,877,74,304,305,324,135,446,135,478,868,325,479,327',
+'867,879,75,136,76,89,77,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,450,48,49,314,838,42,43,44,45,46',
+'47,48,49,135,135,839,135,66,304,305,306,135,307,308,310,311,691,838',
+'78,136,136,70,68,69,313,71,72,275,73,880,74,78,180,136,816,304,305,324',
+'78,881,136,136,136,325,75,327,76,690,77,5,6,7,10,13,14,15,16,17,18,19',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,835,426,403,282,697',
+'42,43,44,45,46,47,48,49,163,817,163,620,288,277,136,136,432,136,180',
+'504,78,150,136,654,149,720,70,68,69,283,71,72,403,73,402,74,520,636',
+'162,199,200,201,202,203,204,205,207,328,208,75,503,76,135,77,212,213',
+'214,215,216,217,218,304,305,306,859,307,308,310,311,199,200,201,202',
+'203,204,205,207,889,208,635,648,883,135,637,212,213,214,215,216,217',
+'218,884,858,681,199,200,201,202,203,204,205,207,341,208,342,888,343',
+'135,234,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+'682,208,885,668,235,135,661,212,213,214,215,216,217,218,88,789,790,691',
+'256,400,87,136,150,890,89,149,199,200,201,202,203,204,205,207,667,208',
+'891,660,163,135,776,212,213,214,215,216,217,218,794,255,401,136,199',
+'200,201,202,203,204,205,207,892,208,719,415,850,135,162,212,213,214',
+'215,216,217,218,887,898,136,902,886,582,721,903,581,833,199,200,201',
+'202,203,204,205,207,720,208,414,851,904,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,832,208,722,698,826,135,906',
+'212,213,214,215,216,217,218,163,163,88,478,136,907,479,582,87,908,581',
+'607,89,163,3,163,88,910,827,699,699,81,87,352,353,234,89,797,170,770',
+'136,199,200,201,202,203,204,205,207,796,208,547,587,564,135,235,212',
+'213,214,215,216,217,218,90,199,200,201,202,203,204,205,207,136,208,394',
+'395,396,135,91,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,136,208,394,395,396,135,92,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,207,163,208,350,351,96,135,124,212,213,214,215,216,217',
+'218,594,336,125,199,200,201,202,203,204,205,207,126,208,130,510,132',
+'135,136,212,213,214,215,216,217,218,134,199,200,201,202,203,204,205',
+'207,140,208,352,353,142,135,136,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,143,208,404,336,144,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,147,208,358,359,155,135',
+'136,212,213,214,215,216,217,218,350,351,156,199,200,201,202,203,204',
+'205,207,159,208,350,351,160,135,136,212,213,214,215,216,217,218,164',
+'199,200,201,202,203,204,205,207,165,208,358,359,166,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,167,208,630,437',
+'168,135,136,212,213,214,215,216,217,218,352,353,234,747,518,171,631',
+'287,288,436,438,439,440,441,136,347,629,172,347,173,348,349,235,348',
+'349,199,200,201,202,203,204,205,207,174,208,352,353,175,135,136,212',
+'213,214,215,216,217,218,176,199,200,201,202,203,204,205,207,180,208',
+'184,772,185,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,454,208,145,146,186,135,136,212,213,214,215,216,217,218',
+'347,187,234,517,518,348,349,456,457,458,455,199,200,201,202,203,204',
+'205,207,454,208,188,235,189,135,191,212,213,214,215,216,217,218,354',
+'355,356,357,787,788,136,456,457,458,455,354,355,356,357,199,200,201',
+'202,203,204,205,207,437,208,382,383,384,135,136,212,213,214,215,216',
+'217,218,377,378,379,380,381,385,436,438,439,440,441,304,305,306,136',
+'307,308,310,311,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,136,354,355,356,357,42,43,44,45,46,47,48',
+'49,199,200,201,202,203,204,205,207,192,208,352,353,193,135,196,212,213',
+'214,215,216,217,218,247,89,136,199,200,201,202,203,204,205,207,257,208',
+'159,264,208,135,270,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,180,208,272,279,280,135,281,212,213,214,215,216,217,218',
+'234,284,285,286,289,290,199,200,201,202,203,204,205,207,312,208,335',
+'189,336,135,235,212,213,214,215,216,217,218,360,199,200,201,202,203',
+'204,205,207,136,208,361,670,362,135,363,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,368,208,369,136,371,135,372,212,213',
+'214,215,216,217,218,159,199,200,201,202,203,204,205,207,405,208,136',
+'587,410,135,142,212,213,214,215,216,217,218,412,413,199,200,201,202',
+'203,204,205,207,416,208,417,418,419,135,136,212,213,214,215,216,217',
+'218,420,199,200,201,202,203,204,205,207,421,208,444,445,448,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,459,208',
+'462,772,463,135,136,212,213,214,215,216,217,218,470,88,234,88,382,383',
+'384,87,472,87,473,89,474,89,481,136,377,378,379,380,381,385,235,482',
+'208,199,200,201,202,203,204,205,207,511,208,512,513,514,135,136,212',
+'213,214,215,216,217,218,515,199,200,201,202,203,204,205,207,521,208',
+'522,523,264,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,525,208,270,528,529,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,208,208,532,208,208,135,180,212,213',
+'214,215,216,217,218,536,537,540,199,200,201,202,203,204,205,207,541',
+'208,542,544,545,135,136,212,213,214,215,216,217,218,737,738,740,741',
+'548,189,270,558,562,196,739,737,738,740,741,136,565,189,743,742,196',
+'739,234,592,569,88,88,571,88,743,742,87,87,88,87,89,89,136,89,87,328',
+'574,235,89,196,199,200,201,202,203,204,205,207,589,208,590,700,360,135',
+'136,212,213,214,215,216,217,218,361,362,472,199,200,201,202,203,204',
+'205,207,363,208,472,591,607,135,136,212,213,214,215,216,217,218,199',
+'200,201,202,203,204,205,207,608,208,611,336,612,135,614,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,615,208,616,617,618',
+'135,208,212,213,214,215,216,217,218,621,737,738,740,741,163,625,88,88',
+'641,196,739,785,87,87,136,643,89,89,743,742,625,662,663,669,674,199',
+'200,201,202,203,204,205,207,675,208,676,680,683,135,136,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,685,208,686,687,688',
+'135,136,212,213,214,215,216,217,218,472,104,105,106,107,108,109,110',
+'111,112,113,114,689,189,136,692,208,695,704,5,6,7,10,13,14,15,16,17',
+'18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,163,706,707',
+'708,163,42,43,44,45,46,47,48,49,710,712,136,117,118,119,120,121,122',
+'123,199,200,201,202,203,204,205,207,713,208,714,715,718,135,136,212',
+'213,214,215,216,217,218,199,200,201,202,203,204,205,207,723,208,726',
+'571,75,135,729,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,730,208,196,744,745,135,748,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,749,208,752,753,754,135,756,212,213,214,215',
+'216,217,218,625,759,760,764,199,200,201,202,203,204,205,207,767,208',
+'771,779,780,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,782,208,783,791,793,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,189,208,795,798,799,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,800,208,803,804',
+'805,135,136,212,213,214,215,216,217,218,806,654,718,180,199,200,201',
+'202,203,204,205,207,811,208,812,813,814,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,726,208,823,828,831,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,836,208',
+'840,841,-386,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,842,208,843,237,844,135,136,212,213,214,215,216,217,218',
+'848,803,208,854,199,200,201,202,203,204,205,207,857,208,862,863,865',
+'135,136,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+',208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202,203,204',
+'205,207,,208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202',
+'203,204,205,207,,208,,,,135,136,212,213,214,215,216,217,218,88,,,,,',
+'87,,,88,89,737,738,740,741,87,,,136,89,196,739,,,,234,,,,743,742,117',
+'118,119,120,121,122,123,,,136,,,,,235,,,199,200,201,202,203,204,205',
+'207,,208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,,208,472,,,135,136,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,345,,208,,,,135,,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,,208,,,,135,,212,213,214,215,216,217,218,,,',
+'104,105,106,107,108,109,110,111,112,113,114,,,,,136,,,,,,,104,105,106',
+'107,108,109,110,111,112,113,114,,,,,136,117,118,119,120,121,122,123',
+',,,478,585,,584,,,,,,,89,136,117,118,119,120,121,122,123,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,136,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,672,,78,,,42,43,44,45,46',
+'47,48,49,,,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
+'23,24,25,26,27,28,29,30,31,32,33,34,35,38,241,,78,,,42,43,44,45,46,47',
+'48,49,,,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49',
+',,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,506,,,',
+',,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,78,428,,,,42,43,44,45,46,47,48,49,,,,,,,',
+',,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,',
+',,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30',
+'31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5',
 '6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
 '34,35,38,126,381,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7',
 '10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34',
 '35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14',
 '15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,77',
 ',,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17',
 '18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,77,,,,,42,43',
 '44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20',
 '21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,77,422,,,,42,43,44,45',
 '46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
 '23,24,25,26,27,28,29,30,31,32,33,34,35,38,77,508,,,,42,43,44,45,46,47',
+'34,35,38,78,632,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10',
+'13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35',
+'38,78,638,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14',
+'15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,128',
+'658,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16',
+'17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42',
+'43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,516,,,,42,43,44',
+'45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47',
 '48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
 '25,26,27,28,29,30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,',
 ',,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
 '27,28,29,30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,',
+'25,26,27,28,29,30,31,32,33,34,35,38,78,387,,,,42,43,44,45,46,47,48,49',
+',,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,',
 ',,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,',
+',,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30',
+'31,32,33,34,35,38,77,621,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,',
+',,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,77,627,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5',
+'6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
+'34,35,38,,646,,,,42,43,44,45,46,47,48,49,102,103,104,105,106,107,108',
+'109,110,111,112,,,,,,,,,,,,,,,,,,,,,,,,,,,,115,116,117,118,119,120,121',
+'29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14',
+'15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,',
+',,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49',
 '5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32',
 '33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18',
 …
 '23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48',
 '49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17',
+'18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43',
+'44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47' ]
+        racc_action_table = arr = ::Array.new(3597, nil)
+'32,33,34,35,38,,,,,,42,43,44,45,46,47' ]
+        racc_action_table = arr = ::Array.new(3593, nil)
         idx = 0
         clist.each do |str|
 …
 clist = [
+'2,463,803,749,688,787,189,218,218,189,602,2,324,386,714,714,714,714',
+'714,714,714,714,123,714,586,754,854,714,41,714,714,714,714,714,714,714',
+'585,151,815,441,257,386,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,602,257,324,187,631,2,2,2,2,2,2,2,2,854,41,567,810,303,298',
+'550,810,90,620,328,74,320,286,749,688,787,463,2,2,2,187,2,2,286,2,555',
+'2,189,189,189,803,799,123,504,754,189,714,189,586,602,2,324,2,602,2',
+'324,503,83,815,441,585,151,2,83,286,286,286,286,286,286,286,286,286',
+'286,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286',
+'286,286,184,286,631,225,225,286,286,286,286,286,286,286,286,567,303',
+'298,550,158,90,620,328,74,320,281,706,87,469,310,158,469,310,286,286',
+'286,191,286,286,464,286,776,286,416,799,480,504,555,555,555,480,480',
+'614,776,614,555,286,555,286,503,286,158,158,158,158,158,158,158,158',
+'158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158',
+'158,158,158,310,87,87,220,220,158,158,158,158,158,158,158,158,191,191',
+'383,383,182,184,184,184,416,184,184,184,184,615,528,182,281,706,158',
+'158,158,852,158,158,169,158,529,158,553,169,464,553,310,310,310,289',
+'750,552,530,750,310,158,310,158,615,158,182,182,182,182,182,182,182',
+'182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182',
+'182,182,182,182,772,369,535,723,852,182,182,182,182,182,182,182,182',
+'100,553,264,334,125,536,334,552,289,750,125,765,468,334,125,468,369',
+'772,182,182,182,723,182,182,259,182,259,182,100,545,264,705,705,705',
+'705,705,705,705,705,540,705,182,765,182,705,182,705,705,705,705,705',
+'705,705,289,289,289,701,289,289,289,289,761,761,761,761,761,761,761',
+'761,564,761,545,531,531,761,545,761,761,761,761,761,761,761,865,701',
+'794,760,760,760,760,760,760,760,760,205,760,205,564,205,760,705,760',
+'760,760,760,760,760,760,720,720,720,720,720,720,720,720,794,720,253',
+'428,705,720,273,720,720,720,720,720,720,720,761,559,645,588,262,825',
+'3,705,360,173,598,154,569,642,838,569,113,428,838,253,761,839,728,273',
+'801,760,705,145,541,549,145,642,559,645,588,262,825,761,728,360,173',
+'598,154,642,113,760,541,720,681,839,728,510,801,283,681,124,541,510',
+'681,283,479,510,760,283,168,479,479,720,551,168,704,704,704,704,704',
+'704,704,704,122,704,556,704,868,704,720,704,704,704,704,704,704,704',
+'699,699,699,699,699,699,699,699,84,699,561,84,563,699,121,699,699,699',
+'699,699,699,699,695,695,695,695,695,695,695,695,120,695,512,512,512',
+'695,117,695,695,695,695,695,695,695,691,691,691,691,691,691,691,691',
+'116,691,249,249,249,691,572,691,691,691,691,691,691,691,219,219,219',
+'219,667,667,667,667,667,667,667,667,115,667,497,497,575,667,704,667',
+'667,667,667,667,667,667,285,285,285,285,285,285,285,285,577,285,217',
+'217,112,285,699,285,285,285,285,285,285,285,252,252,252,252,252,252',
+'252,252,108,252,178,178,587,252,695,252,252,252,252,252,252,252,229',
+'229,229,229,229,229,229,229,589,229,489,489,593,229,691,229,229,229',
+'229,229,229,229,488,488,488,488,861,861,861,861,861,861,861,861,539',
+'861,486,486,594,861,667,861,861,861,861,861,861,861,595,313,596,241',
+'241,241,539,539,539,539,539,292,485,485,285,241,241,241,241,241,241',
+'229,313,313,313,313,487,487,487,487,597,292,292,292,292,292,252,216',
+'80,80,600,229,216,216,848,848,848,848,848,848,848,848,106,848,484,484',
+'605,848,229,848,848,848,848,848,848,848,483,483,482,482,821,821,821',
+'821,821,821,821,821,608,821,481,481,104,821,861,821,821,821,821,821',
+'821,821,818,818,818,818,818,818,818,818,102,818,260,260,621,818,623',
+'818,818,818,818,818,818,818,807,807,807,807,807,807,807,807,625,807',
+'669,669,626,807,627,807,807,807,807,807,807,807,798,798,798,798,798',
+'798,798,798,629,798,502,502,502,798,848,798,798,798,798,798,798,798',
+'502,502,502,502,502,502,159,159,159,159,159,159,159,159,159,159,159',
+'630,821,632,633,635,637,640,646,807,36,36,36,36,36,36,36,36,36,36,36',
+'36,36,36,818,650,651,652,653,807,654,656,795,795,795,795,795,795,795',
+'795,658,795,99,795,673,795,807,795,795,795,795,795,795,795,786,786,786',
+'786,786,786,786,786,674,786,676,677,678,786,798,786,786,786,786,786',
+'786,786,775,775,775,775,775,775,775,775,679,775,680,682,684,775,685',
+'775,775,775,775,775,775,775,770,770,770,770,770,770,770,770,686,770',
+'98,93,692,770,92,770,770,770,770,770,770,770,696,703,710,712,471,471',
+'471,471,471,471,471,471,82,471,715,471,718,471,795,471,471,471,471,471',
+'471,471,144,144,144,144,144,144,144,144,721,144,727,732,733,144,786',
+'144,144,144,144,144,144,144,466,466,466,466,466,466,466,466,735,466',
+'736,738,739,466,775,466,466,466,466,466,466,466,146,146,146,146,146',
+'146,146,146,740,146,741,146,742,146,770,146,146,146,146,146,146,146',
+'240,86,4,144,743,744,240,86,4,591,240,86,4,745,418,591,747,748,471,591',
+'418,78,752,144,418,753,867,867,867,867,867,867,867,867,76,867,757,75',
+'73,867,144,867,867,867,867,867,867,867,397,397,397,397,397,397,397,397',
+'763,397,72,774,71,397,466,397,397,397,397,397,397,397,359,359,359,359',
+'359,359,359,359,778,359,779,780,781,359,146,359,359,359,359,359,359',
+'359,358,358,358,358,358,358,358,358,784,358,785,69,68,358,788,358,358',
+'358,358,358,358,358,793,796,797,800,357,357,357,357,357,357,357,357',
+'805,357,806,38,809,357,867,357,357,357,357,357,357,357,163,163,163,163',
+'163,163,163,163,811,163,812,814,16,163,397,163,163,163,163,163,163,163',
+'356,356,356,356,356,356,356,356,819,356,820,9,822,356,359,356,356,356',
+'356,356,356,356,355,355,355,355,355,355,355,355,828,355,831,832,833',
+'355,358,355,355,355,355,355,355,355,835,836,837,840,354,354,354,354',
+'354,354,354,354,841,354,842,8,853,354,357,354,354,354,354,354,354,354',
+'353,353,353,353,353,353,353,353,224,353,223,230,231,353,163,353,353',
+'353,353,353,353,353,352,352,352,352,352,352,352,352,235,352,237,67,856',
+'352,356,352,352,352,352,352,352,352,351,351,351,351,351,351,351,351',
+'1,351,251,222,261,351,355,351,351,351,351,351,351,351,266,267,269,271',
+'350,350,350,350,350,350,350,350,275,350,276,277,278,350,354,350,350',
+'350,350,350,350,350,349,349,349,349,349,349,349,349,279,349,280,221',
+'857,349,353,349,349,349,349,349,349,349,348,348,348,348,348,348,348',
+'348,301,348,302,304,319,348,352,348,348,348,348,348,348,348,347,347',
+'347,347,347,347,347,347,201,347,321,322,193,347,351,347,347,347,347',
+'347,347,347,329,331,332,336,346,346,346,346,346,346,346,346,337,346',
+'186,181,180,346,350,346,346,346,346,346,346,346,345,345,345,345,345',
+'345,345,345,176,345,175,174,172,345,349,345,345,345,345,345,345,345',
+'344,344,344,344,344,344,344,344,171,344,170,166,165,344,348,344,344',
+'344,344,344,344,344,343,343,343,343,343,343,343,343,164,343,162,161',
+'362,343,347,343,343,343,343,343,343,343,157,374,375,376,342,342,342',
+'342,342,342,342,342,377,342,378,860,388,342,346,342,342,342,342,342',
+'342,342,341,341,341,341,341,341,341,341,389,341,390,395,396,341,345',
+'341,341,341,341,341,341,341,424,367,248,143,156,401,424,367,248,143',
+'424,367,248,143,344,538,538,538,402,538,538,538,538,403,335,335,335',
+'335,335,335,335,335,404,335,405,406,343,335,407,335,335,335,335,335',
+'335,335,408,410,339,339,339,339,339,339,339,339,413,339,419,420,422',
+'339,342,339,339,339,339,339,339,339,255,255,255,255,255,255,255,167',
+'167,167,167,167,167,167,341,425,426,431,436,339,339,339,339,339,339',
+'339,339,339,339,339,339,339,339,339,339,339,339,339,339,339,339,339',
+'339,339,339,339,339,437,863,440,444,446,339,339,339,339,339,339,339',
+'339,335,202,202,202,202,202,202,202,202,448,202,864,454,455,202,456',
+'202,202,202,202,202,202,202,457,339,459,149,148,139,472,475,490,491',
+'492,493,494,137,136,135,134,131,129,202,202,202,202,202,202,202,202',
+'202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202',
+'202,202,202,127,126,517,518,520,202,202,202,202,202,202,202,202,206',
+'206,206,206,206,206,206,206,521,206,522,523,525,206,526,206,206,206',
+'206,206,206,206,527,,202,207,207,207,207,207,207,207,207,,207,,,,207',
+',207,207,207,207,207,207,207,619,619,619,619,619,619,619,619,,619,,619',
+',619,,619,619,619,619,619,619,619,580,580,580,580,580,580,580,580,,580',
+',,,580,,580,580,580,580,580,580,580,,573,573,573,573,573,573,573,573',
+',573,,573,,573,206,573,573,573,573,573,573,573,,,,570,570,570,570,570',
+'570,570,570,,570,,570,,570,207,570,570,570,570,570,570,570,566,566,566',
+'566,566,566,566,566,,566,,,,566,619,566,566,566,566,566,566,566,515',
+'515,515,515,515,515,515,515,,515,,,,515,580,515,515,515,515,515,515',
+'515,,514,514,514,514,514,514,514,514,,514,,,,514,573,514,514,514,514',
+'514,514,514,,,,513,513,513,513,513,513,513,513,,513,,,,513,570,513,513',
+'513,513,513,513,513,507,507,507,507,507,507,507,507,,507,,,,507,566',
+'507,507,507,507,507,507,507,506,506,506,506,506,506,506,506,,506,,,',
+'506,515,506,506,506,506,506,506,506,,505,505,505,505,505,505,505,505',
+',505,,,,505,514,505,505,505,505,505,505,505,,,,496,496,496,496,496,496',
+'496,496,,496,,,,496,513,496,496,496,496,496,496,496,458,458,458,458',
+'458,458,458,458,458,458,458,,,,507,,,,,,,,,,,,,,,,,,,,,,506,,458,458',
+'458,458,458,458,458,,,496,496,,,470,470,,470,,,,,505,,470,,,,,,496,',
+',,,,,,,,,,,,,,,496,470,470,470,470,470,470,470,470,470,470,470,470,470',
+'470,470,470,470,470,470,470,470,470,470,470,470,470,470,470,147,,147',
+',,470,470,470,470,470,470,470,470,,,,,,,,,,,,,,,,,,,,,147,147,147,147',
+'147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147',
+'147,147,147,147,147,147,147,571,,571,,,147,147,147,147,147,147,147,147',
+',,,,,,,,,,,,,,,,,,,,571,571,571,571,571,571,571,571,571,571,571,571',
+'571,571,571,571,571,571,571,571,571,571,571,571,571,571,571,571,366',
+',,,,571,571,571,571,571,571,571,571,,,,,,,,,,,,,,,,,,,366,366,366,366',
+'366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366',
+'366,366,366,366,366,366,366,246,,,,,366,366,366,366,366,366,366,366',
+'366,,,,,,,,,,,,,,,,,,246,246,246,246,246,246,246,246,246,246,246,246',
+'246,246,246,246,246,246,246,246,246,246,246,246,246,246,246,246,70,246',
+',,,246,246,246,246,246,246,246,246,,,,,,,,,,,,,,,,,,,70,70,70,70,70',
+'70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70',
+'153,,,,,70,70,70,70,70,70,70,70,,,,,,,,,,,,,,,,,,,153,153,153,153,153',
+'153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153',
+'153,153,153,153,153,153,245,,,,,153,153,153,153,153,153,153,153,,,,',
+',,,,,,,,,,,,,,245,245,245,245,245,245,245,245,245,245,245,245,245,245',
+'245,245,245,245,245,245,245,245,245,245,245,245,245,245,288,,,,,245',
+'245,245,245,245,245,245,245,,,,,,,,,,,,,,,,,,,288,288,288,288,288,288',
+'288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288',
+'288,288,288,288,288,380,288,,,,288,288,288,288,288,288,288,288,,,,,',
+',,,,,,,,,,,,,380,380,380,380,380,380,380,380,380,380,380,380,380,380',
+'380,380,380,380,380,380,380,380,380,380,380,380,380,380,438,380,,,,380',
+'380,380,380,380,380,380,380,,,,,,,,,,,,,,,,,,,438,438,438,438,438,438',
+'438,438,438,438,438,438,438,438,438,438,438,438,438,438,438,438,438',
+'438,438,438,438,438,439,,,,,438,438,438,438,438,438,438,438,,,,,,,,',
+',,,,,,,,,,439,439,439,439,439,439,439,439,439,439,439,439,439,439,439',
+'439,439,439,439,439,439,439,439,439,439,439,439,439,453,,,,,439,439',
+'439,439,439,439,439,439,,,,,,,,,,,,,,,,,,,453,453,453,453,453,453,453',
+'453,453,453,453,453,453,453,453,453,453,453,453,453,453,453,453,453',
+'453,453,453,453,542,,,,,453,453,453,453,453,453,453,453,,,,,,,,,,,,',
+',,,,,,542,542,542,542,542,542,542,542,542,542,542,542,542,542,542,542',
+'542,542,542,542,542,542,542,542,542,542,542,542,546,542,,,,542,542,542',
+'542,542,542,542,542,,,,,,,,,,,,,,,,,,,546,546,546,546,546,546,546,546',
+'546,546,546,546,546,546,546,546,546,546,546,546,546,546,546,546,546',
+'546,546,546,557,546,,,,546,546,546,546,546,546,546,546,,,,,,,,,,,,,',
+',,,,,557,557,557,557,557,557,557,557,557,557,557,557,557,557,557,557',
+'557,557,557,557,557,557,557,557,557,557,557,557,,557,,,,557,557,557',
+'557,557,557,557,557,53,53,53,53,53,53,53,53,53,53,53,,,,,,,,,,,,,,,',
+',,,,,,,,,,,,53,53,53,53,53,53,53,694,694,694,694,694,694,694,694,694',
+'694,694,694,694,694,694,694,694,694,694,694,694,694,694,694,694,694',
+'694,694,,,,,,694,694,694,694,694,694,694,694,690,690,690,690,690,690',
+'690,690,690,690,690,690,690,690,690,690,690,690,690,690,690,690,690',
+'690,690,690,690,690,,,,,,690,690,690,690,690,690,690,690,239,239,239',
+'239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239',
+'239,239,239,239,239,239,239,239,,,,,,239,239,239,239,239,239,239,239',
+'40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40',
+'40,40,40,40,40,,,,,,40,40,40,40,40,40,40,40,284,284,284,284,284,284',
+'284,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284',
+'284,284,284,284,284,,,,,,284,284,284,284,284,284,284,284,511,511,511',
+'511,511,511,511,511,511,511,511,511,511,511,511,511,511,511,511,511',
+'511,511,511,511,511,511,511,511,,,,,,511,511,511,511,511,511,511,511',
+'611,611,611,611,611,611,611,611,611,611,611,611,611,611,611,611,611',
+'611,611,611,611,611,611,611,611,611,611,611,,,,,,611,611,611,611,611',
+'611,611,611,234,234,234,234,234,234,234,234,234,234,234,234,234,234',
+'234,234,234,234,234,234,234,234,234,234,234,234,234,234,,,,,,234,234',
+'234,234,234,234' ]
+        racc_action_check = arr = ::Array.new(3597, nil)
+'2,469,843,447,422,777,192,194,852,192,329,2,613,269,515,515,515,515',
+'515,515,515,515,824,515,596,325,893,515,560,515,515,515,515,515,515',
+'515,154,597,125,856,853,269,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,329,422,613,194,194,2,2,2,2,2,2,2,2,893,85,560,267,576',
+'703,642,85,721,855,631,558,528,511,447,161,777,469,2,2,2,92,2,2,563',
+'2,161,2,192,192,192,843,895,824,267,325,192,515,192,596,329,2,613,2',
+'329,2,613,75,860,125,856,154,597,2,861,41,2,161,161,161,161,161,161',
+'161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161',
+'161,161,161,161,161,187,230,230,258,895,161,161,161,161,161,161,161',
+'161,576,703,642,721,185,631,558,528,511,866,691,303,89,41,315,185,92',
+'315,161,161,161,258,161,161,333,161,863,161,563,563,563,286,308,782',
+'340,851,563,340,563,851,866,161,75,161,340,161,185,185,185,185,185,185',
+'185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185',
+'185,185,185,185,185,315,89,89,190,869,185,185,185,185,185,185,185,185',
+'839,470,812,692,291,187,187,187,512,187,187,187,187,609,812,291,691',
+'303,185,185,185,190,185,185,171,185,872,185,778,171,333,778,315,315',
+'315,294,873,286,308,782,315,185,315,185,609,185,291,291,291,291,291',
+'291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291',
+'291,291,291,291,291,291,808,291,625,176,625,291,291,291,291,291,291',
+'291,291,392,778,573,539,539,172,839,470,294,692,172,366,561,86,512,561',
+'86,808,291,291,291,176,291,291,264,291,264,291,392,553,573,720,720,720',
+'720,720,720,720,720,874,720,291,366,291,720,291,720,720,720,720,720',
+'720,720,294,294,294,841,294,294,294,294,902,902,902,902,902,902,902',
+'902,880,902,553,561,876,902,553,902,902,902,902,902,902,902,877,841',
+'599,889,889,889,889,889,889,889,889,210,889,210,880,210,889,720,889',
+'889,889,889,889,889,889,521,521,521,521,521,521,521,521,599,521,878',
+'577,720,521,568,521,521,521,521,521,521,521,430,743,743,751,157,262',
+'430,720,148,881,430,148,522,522,522,522,522,522,522,522,577,522,882',
+'568,102,522,720,522,522,522,522,522,522,522,751,157,262,902,523,523',
+'523,523,523,523,523,523,883,523,653,278,834,523,102,523,523,523,523',
+'523,523,523,879,894,889,897,879,580,653,898,580,801,234,234,234,234',
+'234,234,234,234,653,234,278,834,901,234,521,234,234,234,234,234,234',
+'234,166,166,166,166,166,166,166,166,801,166,657,626,784,166,904,166',
+'166,166,166,166,166,166,115,716,518,476,522,905,476,477,518,906,477',
+'756,518,434,1,452,127,909,784,657,626,3,127,494,494,234,127,756,115',
+'716,523,479,479,479,479,479,479,479,479,756,479,434,479,452,479,234',
+'479,479,479,479,479,479,479,8,358,358,358,358,358,358,358,358,234,358',
+'520,520,520,358,9,358,358,358,358,358,358,358,363,363,363,363,363,363',
+'363,363,166,363,254,254,254,363,16,363,363,363,363,363,363,363,360,360',
+'360,360,360,360,360,360,375,360,222,222,38,360,68,360,360,360,360,360',
+'360,360,505,505,69,361,361,361,361,361,361,361,361,70,361,72,375,73',
+'361,479,361,361,361,361,361,361,361,74,682,682,682,682,682,682,682,682',
+'76,682,223,223,77,682,358,682,682,682,682,682,682,682,862,862,862,862',
+'862,862,862,862,79,862,265,265,80,862,363,862,862,862,862,862,862,862',
+'362,362,362,362,362,362,362,362,84,362,225,225,94,362,360,362,362,362',
+'362,362,362,362,489,489,95,797,797,797,797,797,797,797,797,100,797,490',
+'490,101,797,361,797,797,797,797,797,797,797,104,811,811,811,811,811',
+'811,811,811,106,811,497,497,108,811,682,811,811,811,811,811,811,811',
+'838,838,838,838,838,838,838,838,110,838,549,297,114,838,862,838,838',
+'838,838,838,838,838,491,491,797,684,684,117,549,181,181,297,297,297',
+'297,297,362,487,549,118,221,119,487,487,797,221,221,796,796,796,796',
+'796,796,796,796,122,796,492,492,123,796,797,796,796,796,796,796,796',
+'796,124,835,835,835,835,835,835,835,835,126,835,128,835,129,835,811',
+'835,835,835,835,835,835,835,514,514,514,514,514,514,514,514,318,514',
+'82,82,131,514,838,514,514,514,514,514,514,514,488,133,796,389,389,488',
+'488,318,318,318,318,823,823,823,823,823,823,823,823,564,823,136,796',
+'137,823,138,823,823,823,823,823,823,823,495,495,495,495,742,742,796',
+'564,564,564,564,224,224,224,224,207,207,207,207,207,207,207,207,547',
+'207,510,510,510,207,835,207,207,207,207,207,207,207,510,510,510,510',
+'510,510,547,547,547,547,547,546,546,546,514,546,546,546,546,207,207',
+'207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207',
+'207,207,207,207,207,207,207,207,207,823,496,496,496,496,207,207,207',
+'207,207,207,207,207,748,748,748,748,748,748,748,748,139,748,493,493',
+'141,748,144,748,748,748,748,748,748,748,151,152,207,859,859,859,859',
+'859,859,859,859,159,859,160,164,165,859,167,859,859,859,859,859,859',
+'859,575,575,575,575,575,575,575,575,168,575,169,173,174,575,175,575',
+'575,575,575,575,575,575,748,177,178,179,183,184,257,257,257,257,257',
+'257,257,257,189,257,195,198,206,257,748,257,257,257,257,257,257,257',
+'226,581,581,581,581,581,581,581,581,748,581,227,581,228,581,229,581',
+'581,581,581,581,581,581,729,729,729,729,729,729,729,729,235,729,236',
+'859,240,729,242,729,729,729,729,729,729,729,256,584,584,584,584,584',
+'584,584,584,266,584,575,584,271,584,272,584,584,584,584,584,584,584',
+'274,276,147,147,147,147,147,147,147,147,280,147,281,282,283,147,257',
+'147,147,147,147,147,147,147,284,591,591,591,591,591,591,591,591,285',
+'591,306,307,309,591,581,591,591,591,591,591,591,591,719,719,719,719',
+'719,719,719,719,324,719,326,719,327,719,729,719,719,719,719,719,719',
+'719,334,288,147,602,246,246,246,288,335,602,337,288,338,602,342,584',
+'246,246,246,246,246,246,147,343,368,714,714,714,714,714,714,714,714',
+'380,714,381,382,383,714,147,714,714,714,714,714,714,714,384,710,710',
+'710,710,710,710,710,710,394,710,395,396,401,710,591,710,710,710,710',
+'710,710,710,706,706,706,706,706,706,706,706,402,706,407,408,409,706',
+'719,706,706,706,706,706,706,706,504,504,504,504,504,504,504,504,410',
+'504,411,412,413,504,414,504,504,504,504,504,504,504,416,419,425,365',
+'365,365,365,365,365,365,365,426,365,428,431,432,365,714,365,365,365',
+'365,365,365,365,827,827,827,827,437,442,443,446,450,827,827,783,783',
+'783,783,710,454,460,827,827,783,783,504,504,461,4,696,462,373,783,783',
+'4,696,146,373,4,696,706,373,146,463,465,504,146,472,630,630,630,630',
+'630,630,630,630,480,630,483,630,498,630,504,630,630,630,630,630,630',
+'630,499,500,827,364,364,364,364,364,364,364,364,501,364,783,502,525',
+'364,365,364,364,364,364,364,364,364,908,908,908,908,908,908,908,908',
+'526,908,529,530,531,908,533,908,908,908,908,908,908,908,341,341,341',
+'341,341,341,341,341,534,341,535,536,537,341,538,341,341,341,341,341',
+'341,341,543,739,739,739,739,544,548,88,424,557,739,739,739,88,424,630',
+'559,88,424,739,739,565,570,572,578,583,347,347,347,347,347,347,347,347',
+'586,347,588,598,600,347,364,347,347,347,347,347,347,347,345,345,345',
+'345,345,345,345,345,604,345,605,606,607,345,908,345,345,345,345,345',
+'345,345,739,162,162,162,162,162,162,162,162,162,162,162,608,610,341',
+'611,616,619,632,345,345,345,345,345,345,345,345,345,345,345,345,345',
+'345,345,345,345,345,345,345,345,345,345,345,345,345,345,345,634,636',
+'637,638,640,345,345,345,345,345,345,345,345,641,643,347,260,260,260',
+'260,260,260,260,348,348,348,348,348,348,348,348,644,348,646,648,651',
+'348,345,348,348,348,348,348,348,348,349,349,349,349,349,349,349,349',
+'658,349,662,663,664,349,665,349,349,349,349,349,349,349,350,350,350',
+'350,350,350,350,350,666,350,668,671,673,350,688,350,350,350,350,350',
+'350,350,351,351,351,351,351,351,351,351,689,351,693,694,695,351,697',
+'351,351,351,351,351,351,351,699,700,701,707,352,352,352,352,352,352',
+'352,352,711,352,718,725,727,352,348,352,352,352,352,352,352,352,353',
+'353,353,353,353,353,353,353,730,353,731,746,749,353,349,353,353,353',
+'353,353,353,353,354,354,354,354,354,354,354,354,750,354,755,760,761',
+'354,350,354,354,354,354,354,354,354,355,355,355,355,355,355,355,355',
+'763,355,764,766,767,355,351,355,355,355,355,355,355,355,768,769,770',
+'771,356,356,356,356,356,356,356,356,772,356,773,775,776,356,352,356',
+'356,356,356,356,356,356,357,357,357,357,357,357,357,357,780,357,781',
+'793,799,357,353,357,357,357,357,357,357,357,359,359,359,359,359,359',
+'359,359,810,359,814,815,816,359,354,359,359,359,359,359,359,359,149',
+'149,149,149,149,149,149,149,817,149,821,149,822,149,355,149,149,149',
+'149,149,149,149,828,833,836,837,474,474,474,474,474,474,474,474,840',
+'474,845,846,850,474,356,474,474,474,474,474,474,474,290,290,290,290',
+'290,290,290,290,,290,,,,290,357,290,290,290,290,290,290,290,848,848',
+'848,848,848,848,848,848,,848,,,,848,359,848,848,848,848,848,848,848',
+'806,806,806,806,806,806,806,806,,806,,,,806,149,806,806,806,806,806',
+'806,806,245,,,,,,245,,,253,245,669,669,669,669,253,,,474,253,669,669',
+',,,848,,,,669,669,170,170,170,170,170,170,170,,,290,,,,,848,,,403,403',
+'403,403,403,403,403,403,,403,,,,403,848,403,403,403,403,403,403,403',
+'513,513,513,513,513,513,513,513,,513,669,,,513,806,513,513,513,513,513',
+'513,513,212,212,212,212,212,212,212,212,,212,,,,212,,212,212,212,212',
+'212,212,212,211,211,211,211,211,211,211,211,,211,,,,211,,211,211,211',
+'211,211,211,211,,,,464,464,464,464,464,464,464,464,464,464,464,,,,,403',
+',,,,,,54,54,54,54,54,54,54,54,54,54,54,,,,,513,464,464,464,464,464,464',
+'464,,,,478,478,,478,,,,,,,478,212,54,54,54,54,54,54,54,36,36,36,36,36',
+'36,36,36,36,36,36,36,36,36,211,478,478,478,478,478,478,478,478,478,478',
+'478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,478',
+'478,582,,582,,,478,478,478,478,478,478,478,478,,,,,,,,,,,,,,,,,,,,,582',
+'582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582',
+'582,582,582,582,582,582,582,582,582,582,150,,150,,,582,582,582,582,582',
+'582,582,582,,,,,,,,,,,,,,,,,,,,,150,150,150,150,150,150,150,150,150',
+'150,150,150,150,150,150,150,150,150,150,150,150,150,150,150,150,150',
+'150,150,372,,,,,150,150,150,150,150,150,150,150,,,,,,,,,,,,,,,,,,,372',
+'372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372',
+'372,372,372,372,372,372,372,372,372,372,293,,,,,372,372,372,372,372',
+'372,372,372,372,,,,,,,,,,,,,,,,,,293,293,293,293,293,293,293,293,293',
+'293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293',
+'293,293,444,293,,,,293,293,293,293,293,293,293,293,,,,,,,,,,,,,,,,,',
+',444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444',
+'444,444,444,444,444,444,444,444,444,444,444,445,,,,,444,444,444,444',
+'444,444,444,444,,,,,,,,,,,,,,,,,,,445,445,445,445,445,445,445,445,445',
+'445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445',
+'445,445,550,,,,,445,445,445,445,445,445,445,445,,,,,,,,,,,,,,,,,,,550',
+'550,550,550,550,550,550,550,550,550,550,550,550,550,550,550,550,550',
+'550,550,550,550,550,550,550,550,550,550,554,550,,,,550,550,550,550,550',
+'550,550,550,,,,,,,,,,,,,,,,,,,554,554,554,554,554,554,554,554,554,554',
+'554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554',
+'554,566,554,,,,554,554,554,554,554,554,554,554,,,,,,,,,,,,,,,,,,,566',
+'566,566,566,566,566,566,566,566,566,566,566,566,566,566,566,566,566',
+'566,566,566,566,566,566,566,566,566,566,71,566,,,,566,566,566,566,566',
+'566,566,566,,,,,,,,,,,,,,,,,,,71,71,71,71,71,71,71,71,71,71,71,71,71',
+'71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,386,,,,,71,71,71,71,71',
+'71,71,71,,,,,,,,,,,,,,,,,,,386,386,386,386,386,386,386,386,386,386,386',
+'386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386',
+'459,386,,,,386,386,386,386,386,386,386,386,,,,,,,,,,,,,,,,,,,459,459',
+'459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459',
+'459,459,459,459,459,459,459,459,459,251,,,,,459,459,459,459,459,459',
+'459,459,,,,,,,,,,,,,,,,,,,251,251,251,251,251,251,251,251,251,251,251',
+'251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251',
+'250,251,,,,251,251,251,251,251,251,251,251,,,,,,,,,,,,,,,,,,,250,250',
+'250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250',
+'250,250,250,250,250,250,250,250,250,156,,,,,250,250,250,250,250,250',
+'250,250,,,,,,,,,,,,,,,,,,,156,156,156,156,156,156,156,156,156,156,156',
+'156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,156',
+',,,,,156,156,156,156,156,156,156,156,622,622,622,622,622,622,622,622',
+'622,622,622,622,622,622,622,622,622,622,622,622,622,622,622,622,622',
+'622,622,622,,,,,,622,622,622,622,622,622,622,622,40,40,40,40,40,40,40',
+'40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,,,,,',
+'40,40,40,40,40,40,40,40,705,705,705,705,705,705,705,705,705,705,705',
+'705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705',
+',,,,,705,705,705,705,705,705,705,705,244,244,244,244,244,244,244,244',
+'244,244,244,244,244,244,244,244,244,244,244,244,244,244,244,244,244',
+'244,244,244,,,,,,244,244,244,244,244,244,244,244,519,519,519,519,519',
+'519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519',
+'519,519,519,519,519,519,,,,,,519,519,519,519,519,519,519,519,709,709',
+'709,709,709,709,709,709,709,709,709,709,709,709,709,709,709,709,709',
+'709,709,709,709,709,709,709,709,709,,,,,,709,709,709,709,709,709,709',
+'709,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289',
+'289,289,289,289,289,289,289,289,289,289,289,289,,,,,,289,289,289,289',
+'289,289,289,289,239,239,239,239,239,239,239,239,239,239,239,239,239',
+'239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,,,,,,239',
+'239,239,239,239,239' ]
+        racc_action_check = arr = ::Array.new(3593, nil)
         idx = 0
         clist.each do |str|
 …
 racc_action_pointer = [
    nil,  1429,    -1,   489,  1138,   nil,   nil,   nil,  1326,  1278,
    nil,   nil,   nil,   nil,   nil,   nil,  1288,   nil,   nil,   nil,
+   nil,   613,    -1,   620,  1492,   nil,   nil,   nil,   612,   627,
+   nil,   nil,   nil,   nil,   nil,   nil,   680,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   889,   nil,  1259,   nil,
+,    13,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,  3134,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1401,  1240,  1239,
+,  1190,  1188,  1168,    79,  1167,  1164,   nil,  1095,   nil,
+,   nil,  1023,   122,   574,   nil,  1137,   172,   nil,   nil,
+,   nil,   974,   971,   nil,   nil,   nil,   nil,  1026,   904,
+,   nil,   850,   nil,   832,   nil,   802,   nil,   688,   nil,
+   nil,   nil,   670,   486,   nil,   644,   618,   602,   nil,   nil,
+,   580,   550,    11,   523,   348,  1803,  1804,   nil,  1775,
+   nil,  1774,   nil,   nil,  1829,  1735,  1827,  1770,   nil,  1762,
+   nil,   nil,   nil,  1669,  1077,   501,  1121,  2314,  1822,  1812,
+   nil,    27,   nil,  2611,   453,   nil,  1637,  1612,   182,   831,
+   nil,  1601,  1604,  1283,  1598,  1580,  1465,  1622,   537,   280,
+,  1576,  1558,   482,  1562,  1561,  1528,   nil,   659,   nil,
+,  1541,   269,   nil,   154,   nil,  1534,    33,   nil,    -6,
+   nil,   128,   nil,  1417,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,  1510,  1804,   nil,   nil,   435,  1886,  1911,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   777,   657,   -19,   613,
+,  1462,  1398,  1352,  1349,   132,   nil,   nil,   nil,   709,
+,  1376,   nil,   nil,  3515,  1397,   nil,  1368,   nil,  3310,
+,   689,   nil,   nil,   nil,  2670,  2493,   nil,  1668,   556,
+   nil,  1416,   687,   430,   nil,  1615,   nil,    30,   nil,   365,
+,  1423,   477,   nil,   341,   nil,  1402,  1429,   nil,  1404,
+   nil,  1405,   nil,   465,   nil,  1414,  1447,  1418,  1448,  1437,
+,   174,   nil,   527,  3392,   665,    95,   nil,  2729,   289,
+   nil,   nil,   678,   nil,   nil,   nil,   nil,   nil,    73,   nil,
+   nil,  1428,  1430,    72,  1431,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   668,   nil,   nil,   nil,   nil,   nil,  1432,
+,  1395,  1510,   nil,     0,   nil,   nil,   nil,    78,  1526,
+   nil,  1526,  1527,   nil,   347,  1697,  1523,  1532,   nil,  1721,
+   nil,  1651,  1629,  1603,  1581,  1559,  1537,  1511,  1489,  1467,
+,  1419,  1397,  1375,  1353,  1327,  1305,  1261,  1235,  1213,
+,   nil,  1606,   nil,   nil,   nil,  2434,  1667,   nil,   328,
+   nil,   nil,   nil,   nil,  1619,  1620,  1621,  1630,  1632,   nil,
+,   nil,   nil,   228,   nil,   nil,     0,   nil,  1634,  1652,
+,   nil,   nil,   nil,   nil,  1649,  1650,  1191,   nil,   nil,
+   nil,  1665,  1622,  1683,  1696,  1638,  1699,  1702,  1706,   nil,
+,   nil,   nil,  1721,   nil,   nil,   166,   nil,  1150,  1723,
+,   nil,  1695,   nil,  1666,  1650,  1721,   nil,   459,   nil,
+   nil,  1753,   nil,   nil,   nil,   nil,  1655,  1777,  2847,  2906,
+,    25,   nil,   nil,  1755,   nil,  1783,   nil,  1805,   nil,
+   nil,   nil,   nil,  2965,  1709,  1803,  1805,  1813,  2119,  1790,
+   nil,   nil,   nil,    -8,   188,   nil,  1099,   nil,   356,   183,
+,  1055,  1821,   nil,   nil,  1825,   nil,   nil,   nil,   524,
+,   819,   807,   799,   787,   745,   721,   757,   705,   689,
+,  1803,  1803,  1803,  1801,   nil,  2187,   645,   nil,   nil,
+   nil,   nil,   832,   115,   102,  2162,  2139,  2117,   nil,   nil,
+,  3433,   534,  2095,  2070,  2047,   nil,  1863,  1865,   nil,
+,  1854,  1887,  1889,   nil,  1890,  1892,  1869,   270,   252,
+,   385,   nil,   nil,   nil,   302,   345,   nil,  1573,   653,
+,   499,  3024,   nil,   nil,   308,  3083,   nil,   nil,   438,
+,   536,   288,   282,   nil,    94,   548,  3142,   nil,   444,
+   nil,   571,   nil,   459,   409,   nil,  2025,    71,   nil,   486,
+,  2375,   623,  1978,   nil,   647,   nil,   662,   nil,   nil,
+,   nil,   nil,   nil,   nil,    26,    14,   691,   476,   709,
+   nil,  1145,   nil,   713,   739,   749,   746,   775,   452,   nil,
+,   nil,    -2,   nil,   nil,   804,   nil,   nil,   827,   nil,
+   nil,  3474,   nil,   nil,   204,   269,   nil,   nil,   nil,  1933,
+,   823,   nil,   852,   nil,   872,   843,   847,   nil,   890,
+,    60,   896,   897,   nil,   929,   nil,   899,   nil,   nil,
+,   nil,   484,   nil,   nil,   475,   901,   nil,   nil,   nil,
+,   944,   835,   920,   948,   nil,   951,   nil,   963,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   643,   nil,   843,
+   nil,   nil,   nil,   935,   980,   nil,   982,   983,   959,  1007,
+,   522,  1005,   nil,  1006,   983,  1026,   nil,   -10,   nil,
+,   617,   972,   nil,  3228,   595,  1038,   nil,   nil,   573,
+   nil,   396,   nil,  1045,   551,   382,   175,   nil,   nil,   nil,
+,   nil,  1042,   nil,    12,   939,   nil,   nil,  1059,   nil,
+,  1073,   nil,   302,   nil,   nil,   nil,  1049,   491,   nil,
+   nil,   nil,  1050,  1076,   nil,  1099,  1100,   nil,  1102,  1073,
+,  1118,  1009,  1134,  1108,  1145,   nil,  1121,  1148,   -11,
+,   nil,  1152,  1129,    10,   nil,   nil,  1166,   nil,   nil,
+,   412,   nil,  1161,   nil,   323,   nil,   nil,   nil,   nil,
+,   nil,   328,   nil,  1163,  1007,   175,   nil,  1208,  1210,
+,  1187,   nil,   nil,  1117,  1207,   985,    -9,  1209,   nil,
+   nil,   nil,   nil,  1248,   428,   963,  1249,  1221,   893,   100,
+,   495,   nil,   -13,   nil,  1230,  1258,   871,   nil,  1235,
+,  1280,  1285,   nil,  1256,    24,   nil,   nil,   849,  1301,
+,   827,  1309,   nil,   nil,   478,   nil,   nil,  1295,   nil,
+   nil,  1324,  1327,  1326,   nil,  1341,  1281,  1313,   486,   492,
+,  1323,  1294,   nil,   nil,   nil,   nil,   nil,   801,   nil,
+   nil,   nil,   272,  1354,    11,   nil,  1402,  1441,   nil,   nil,
+,   735,   nil,  1778,  1806,   395,   nil,  1169,   555,   nil ]
+   nil,   nil,   nil,   nil,   nil,   nil,  2268,   nil,   694,   nil,
+,   123,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,  2185,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   702,   712,
+,  2888,   717,   719,   729,   115,   738,   742,   nil,   704,
+,   nil,   921,   nil,   755,    75,   359,   nil,  1610,   174,
+   nil,   nil,    89,   nil,   730,   742,   nil,   nil,   nil,   nil,
+,   755,   496,   nil,   827,   nil,   836,   nil,   840,   nil,
+,   nil,   nil,   nil,   862,   586,   nil,   877,   889,   891,
+   nil,   nil,   905,   909,   917,    27,   922,   606,   866,   870,
+   nil,   892,   nil,   903,   nil,   nil,   979,   888,   983,  1040,
+   nil,  1044,   nil,   nil,  1106,   nil,  1500,  1268,   484,  2000,
+,  1115,  1107,   nil,    26,   nil,  3183,   448,   nil,  1094,
+,    97,  1591,   nil,  1124,  1129,   575,  1127,  1143,  1031,
+,   282,   350,  1146,  1147,  1149,   335,  1163,  1164,  1134,
+   nil,   848,   nil,  1163,  1168,   184,   nil,   156,   nil,  1171,
+,   nil,    -6,   nil,   -65,  1178,   nil,   nil,  1081,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,  1179,  1019,   nil,   nil,
+,  2228,  2206,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   880,   687,   729,   989,   767,  1182,  1177,  1178,  1179,
+,   nil,   nil,   nil,   553,  1222,  1220,   nil,   nil,  3511,
+,   nil,  1196,   nil,  3347,  2107,  1268,   nil,   nil,   nil,
+,  3065,   nil,  2116,   612,   nil,  1230,  1176,   130,   nil,
+,   nil,   480,   nil,   367,   767,  1244,    76,   nil,    -1,
+   nil,  1217,  1245,   nil,  1227,   nil,  1228,   nil,   524,   nil,
+,  1270,  1241,  1271,  1252,  1261,   197,   nil,  1329,  3470,
+,   271,   nil,  2534,   291,   nil,   nil,   778,   nil,   nil,
+   nil,   nil,   nil,   177,   nil,   nil,  1232,  1233,   198,  1234,
+   nil,   nil,   nil,   nil,   nil,   183,   nil,   nil,   867,   nil,
+   nil,   nil,   nil,   nil,  1252,    10,  1197,  1313,   nil,    -2,
+   nil,   nil,   nil,   190,  1328,  1274,   nil,  1337,  1339,   nil,
+,  1588,  1336,  1345,   nil,  1658,   nil,  1636,  1750,  1772,
+,  1816,  1842,  1864,  1886,  1908,  1934,  1956,   651,  1978,
+,   720,   787,   673,  1544,  1452,   325,   nil,  1350,   nil,
+   nil,   nil,  2475,  1495,   nil,   692,   nil,   nil,   nil,   nil,
+,  1363,  1364,  1365,  1375,   nil,  2947,   nil,   nil,   936,
+   nil,   nil,   342,   nil,  1384,  1386,  1387,   nil,   nil,   nil,
+   nil,  1382,  1400,  2162,   nil,   nil,   nil,  1402,  1347,  1404,
+,  1368,  1429,  1430,  1428,   nil,  1440,   nil,   nil,  1442,
+   nil,   nil,   -37,   nil,  1611,  1443,  1422,   nil,  1424,   nil,
+,  1355,  1426,   nil,   599,   nil,   nil,  1471,   nil,   nil,
+   nil,   nil,  1373,  1467,  2593,  2652,  1441,   -11,   nil,   nil,
+,   nil,   601,   nil,  1483,   nil,   nil,   nil,   nil,  3006,
+,  1485,  1488,  1501,  2163,  1477,   nil,   nil,   nil,    -8,
+,   nil,  1509,   nil,  2026,   nil,   593,   597,  2294,   628,
+,   nil,   nil,  1521,   nil,   nil,   nil,   877,   954,   791,
+,   855,   890,  1087,   596,   978,  1063,   815,  1515,  1509,
+,  1518,  1518,   nil,  1427,   709,   nil,   nil,   nil,   nil,
+,    81,   261,  2184,   949,    12,   nil,   nil,   592,  3388,
+,   461,   495,   521,   nil,  1544,  1563,   nil,    80,  1536,
+,  1570,   nil,  1572,  1588,  1559,  1591,  1562,  1593,   318,
+   nil,   nil,   nil,  1572,  1604,   nil,   937,   937,  1603,   857,
+,   nil,   nil,   310,  2770,   nil,   nil,  1547,    79,  1613,
+,   355,   nil,    92,   900,  1618,  2829,   nil,   437,   nil,
+,   nil,  1507,   344,   nil,  1148,    73,   433,  1597,   nil,
+,  1199,  2355,  1627,  1244,   nil,  1636,   nil,  1635,   nil,
+   nil,  1291,   nil,   nil,   nil,   nil,    14,    27,  1639,   430,
+,   nil,  1331,   nil,  1658,  1660,  1661,  1657,  1680,   240,
+,  1626,   nil,     0,   nil,   nil,  1687,   nil,   nil,  1689,
+   nil,   nil,  3224,   nil,   nil,   332,   578,   nil,   nil,   nil,
+,    78,  1660,   nil,  1716,   nil,  1721,  1689,  1692,   nil,
+,  1733,    75,  1703,  1720,   nil,  1753,   nil,  1723,   nil,
+   nil,  1638,   nil,   521,   nil,   nil,   nil,   577,  1742,   nil,
+   nil,   nil,  1769,  1770,  1661,  1747,  1789,   nil,  1795,  2125,
+   nil,  1794,   nil,  1798,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   743,   nil,   844,   nil,   nil,   nil,  1768,  1811,
+   nil,   176,   256,  1788,  1819,  1790,  1493,  1817,   nil,  1825,
+,  1829,   nil,    74,   nil,  3306,  1405,  1772,   nil,  3429,
+,  1837,   nil,   nil,  1360,   nil,   587,   nil,  1845,  1313,
+,    76,   nil,   nil,   nil,  1815,   nil,  1842,   nil,  1221,
+,  1837,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1611,
+   nil,   nil,  1006,   482,   nil,   nil,  1867,   nil,  1101,  1864,
+,   447,   nil,   nil,   nil,  1858,   596,   nil,   nil,   nil,
+,  1885,   nil,  1908,  1909,   nil,  1911,  1882,  1891,  1918,
+,  1920,  1902,  1933,   nil,  1907,  1934,    -9,   284,   nil,
+,  1927,   199,  1485,   576,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,  1954,   nil,   nil,   904,   812,   nil,  1930,
+   nil,   513,   nil,   nil,   nil,   nil,  2092,   nil,   330,   nil,
+,   835,   240,   nil,  1975,  1976,  1864,  1970,   nil,   nil,
+   nil,  1884,  1974,   982,     8,   nil,   nil,  1474,  1982,   nil,
+   nil,   nil,   nil,  2014,   525,   927,  2015,  1987,   857,   253,
+,   399,   nil,   -13,   nil,  1997,  2024,   nil,  2070,   nil,
+,   205,    -5,    30,   nil,    52,    25,   nil,   nil,  1126,
+,    97,   765,   197,   nil,   nil,   180,   nil,   nil,   217,
+   nil,   nil,   279,   291,   379,   nil,   418,   367,   433,   534,
+,   454,   467,   460,   nil,   nil,   nil,   nil,   nil,   439,
+   nil,   nil,   nil,    11,   533,   100,   nil,   539,   512,   nil,
+   nil,   558,   414,   nil,   576,   594,   567,   nil,  1566,   606,
+   nil ]
 racc_action_default = [
   -194,  -418,    -1,  -418,  -418,   -69,   -70,   -71,   -72,   -73,
    -74,   -75,   -76,   -77,   -78,   -79,  -418,   -81,   -82,   -83,
+  -195,  -442,    -1,  -442,  -442,   -69,   -70,   -71,   -72,   -73,
+   -74,   -75,   -76,   -77,   -78,   -79,  -442,   -81,   -82,   -83,
    -84,   -85,   -86,   -87,   -88,   -89,   -90,   -91,   -92,   -93,
+   -94,   -95,   -96,   -97,   -98,   -99,  -418,  -101,  -104,  -118,
+  -418,  -418,  -126,  -127,  -128,  -129,  -130,  -131,  -136,  -137,
+  -192,  -193,  -195,  -418,  -197,  -198,  -199,  -200,  -201,  -202,
+  -203,  -206,  -207,  -208,  -209,  -210,  -234,  -418,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -405,  -418,   870,
+  -418,   -65,   -67,  -418,  -139,  -140,  -418,  -146,  -205,  -204,
+  -418,  -100,  -106,  -418,  -109,   -72,   -73,  -119,  -418,  -125,
+  -418,  -211,  -418,  -214,  -418,  -216,  -418,  -218,  -418,  -220,
+  -221,  -222,  -418,  -418,  -386,  -418,  -418,  -418,  -394,  -395,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -247,  -418,
+  -254,  -418,  -260,  -250,  -418,  -327,  -418,  -418,  -350,  -418,
+  -398,  -410,   -62,  -418,  -418,  -138,  -418,  -418,  -418,  -147,
+  -148,  -418,  -102,  -418,  -418,  -132,  -134,  -418,  -418,  -418,
+  -406,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -337,  -418,  -244,
+  -418,  -242,  -418,  -255,  -418,  -251,  -418,  -418,  -328,  -418,
+  -399,  -418,   -66,    -2,    -3,    -4,    -5,    -6,    -7,    -8,
+    -9,   -10,  -418,   -12,   -14,   -18,  -418,  -418,   -22,   -23,
+   -24,   -25,   -26,   -27,   -28,   -30,   -34,   -37,   -40,   -45,
+   -48,   -50,   -52,   -54,   -56,   -58,   -61,   -68,  -186,  -418,
+  -418,  -418,  -143,   -63,  -418,  -418,  -145,  -150,  -152,  -418,
+  -156,  -418,  -141,  -149,   -80,  -418,  -418,  -107,  -418,  -418,
+  -123,  -418,  -418,  -418,  -196,  -418,  -212,  -418,  -224,  -418,
+  -418,  -418,  -418,  -228,  -418,  -291,  -418,  -418,  -387,  -418,
+  -389,  -418,  -391,  -418,  -404,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -240,  -418,  -418,  -418,  -418,  -248,  -418,  -418,
+  -261,  -263,  -418,  -265,  -266,  -267,  -268,  -269,  -418,  -288,
+  -289,  -418,  -418,  -418,  -418,  -313,  -314,  -252,  -324,  -326,
+  -418,  -351,  -353,  -418,  -355,  -356,  -357,  -358,  -365,  -418,
+  -418,  -418,  -418,  -381,  -418,  -407,  -408,  -409,  -418,  -418,
+   -13,  -418,  -418,   -60,  -172,  -418,  -418,  -418,   -19,  -418,
+   -20,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -190,  -418,  -142,   -64,  -144,  -418,  -157,  -155,  -418,
+  -159,  -161,  -162,  -163,  -418,  -418,  -166,  -418,  -418,  -171,
+  -418,  -105,  -108,  -418,  -120,  -122,  -418,  -112,  -114,  -418,
+  -418,  -133,  -135,  -124,  -213,  -418,  -418,  -418,  -215,  -217,
+  -219,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -393,
+  -418,  -397,  -235,  -418,  -237,  -238,  -418,  -245,  -418,  -418,
+  -418,  -249,  -418,  -256,  -418,  -418,  -418,  -262,  -418,  -270,
+  -272,  -418,  -274,  -275,  -276,  -277,  -290,  -418,  -418,  -418,
+  -250,  -418,  -315,  -329,  -418,  -352,  -418,  -359,  -418,  -361,
+  -362,  -363,  -364,  -418,  -372,  -418,  -418,  -418,  -418,  -418,
+  -400,  -401,  -402,  -418,  -418,   -11,  -418,  -173,  -174,  -175,
+  -418,  -418,  -418,   -16,   -17,  -418,   -31,   -32,   -33,   -35,
+   -36,   -38,   -39,   -41,   -42,   -43,   -44,   -46,   -47,   -49,
+   -51,   -53,   -55,   -57,  -418,  -187,  -418,  -418,  -151,  -153,
+  -154,  -158,  -418,  -418,  -418,  -418,  -418,  -418,  -103,  -110,
+  -418,  -418,  -418,  -418,  -418,  -418,  -225,  -418,  -418,  -229,
+  -418,  -418,  -338,  -418,  -399,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -243,  -246,  -253,  -418,  -418,  -259,  -418,  -418,
+  -418,  -418,  -418,  -294,  -296,  -418,  -418,  -305,  -307,  -418,
+  -418,  -418,  -418,  -418,  -349,  -418,  -418,  -418,  -367,  -418,
+  -373,  -418,  -382,  -418,  -418,  -385,  -418,  -418,   -29,  -176,
+  -418,  -418,  -418,  -405,  -182,  -418,  -178,  -418,   -15,   -21,
+  -418,  -188,  -191,  -189,  -160,  -418,  -418,  -418,  -418,  -418,
+  -121,  -418,  -113,  -418,  -418,  -418,  -418,  -418,  -418,  -232,
+  -418,  -223,  -418,  -388,  -390,  -418,  -396,  -236,  -418,  -241,
+  -257,  -418,  -264,  -271,  -418,  -418,  -278,  -279,  -284,  -418,
+  -418,  -418,  -295,  -418,  -298,  -418,  -418,  -418,  -306,  -418,
+  -418,  -418,  -418,  -418,  -316,  -418,  -319,  -418,  -330,  -331,
+  -418,  -333,  -418,  -343,  -354,  -418,  -418,  -368,  -369,  -371,
+  -418,  -418,  -418,  -418,  -418,  -180,  -418,  -184,  -418,  -177,
+  -183,  -179,   -59,  -164,  -165,  -167,  -168,  -418,  -170,  -418,
+  -115,  -116,  -117,  -418,  -418,  -230,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -273,  -418,  -418,  -418,  -292,  -418,  -293,
+  -418,  -418,  -418,  -304,  -418,  -418,  -418,  -310,  -312,  -418,
+  -325,  -418,  -335,  -418,  -418,  -418,  -418,  -360,  -366,  -374,
+  -418,  -383,  -418,  -403,  -418,  -418,  -181,  -185,  -418,  -111,
+  -418,  -418,  -233,  -418,  -384,  -392,  -239,  -418,  -418,  -280,
+  -281,  -285,  -418,  -418,  -297,  -418,  -418,  -308,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -348,  -418,  -418,  -418,
+  -418,  -379,  -418,  -418,  -418,  -169,  -226,  -418,  -231,  -258,
+  -418,  -418,  -286,  -418,  -299,  -418,  -302,  -303,  -309,  -311,
+  -418,  -332,  -418,  -334,  -418,  -418,  -418,  -341,  -418,  -418,
+  -343,  -418,  -375,  -376,  -418,  -418,  -418,  -418,  -418,  -282,
+  -283,  -287,  -300,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -370,  -418,  -380,  -418,  -418,  -418,  -301,  -418,
+  -418,  -418,  -418,  -339,  -418,  -418,  -342,  -344,  -418,  -418,
+  -418,  -418,  -418,  -227,  -317,  -418,  -320,  -322,  -418,  -336,
+  -340,  -418,  -418,  -418,  -378,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -417,  -318,  -321,  -323,  -346,  -418,  -345,
+  -377,  -413,  -418,  -418,  -418,  -415,  -418,  -418,  -411,  -412,
+  -418,  -418,  -347,  -418,  -418,  -418,  -416,  -418,  -418,  -414 ]
+   -94,   -95,   -96,   -97,   -98,   -99,  -442,  -101,  -104,  -118,
+  -442,  -442,  -126,  -127,  -128,  -129,  -130,  -131,  -136,  -137,
+  -192,  -193,  -194,  -196,  -442,  -198,  -199,  -200,  -201,  -202,
+  -203,  -204,  -207,  -208,  -209,  -210,  -211,  -235,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -408,  -442,
+  -442,   911,  -442,   -65,   -67,  -442,  -139,  -140,  -442,  -146,
+  -206,  -205,  -442,  -100,  -106,  -442,  -109,   -72,   -73,  -119,
+  -442,  -125,  -442,  -212,  -442,  -215,  -442,  -217,  -442,  -219,
+  -442,  -221,  -222,  -223,  -442,  -442,  -389,  -442,  -442,  -442,
+  -397,  -398,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -248,  -442,  -255,  -442,  -261,  -251,  -442,  -328,  -442,  -442,
+  -351,  -442,  -401,  -413,  -442,   -62,  -442,  -442,  -138,  -442,
+  -442,  -442,  -147,  -148,  -442,  -102,  -442,  -442,  -132,  -134,
+  -442,  -442,  -442,  -409,  -442,  -442,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -338,  -442,  -245,  -442,  -243,  -442,  -256,  -442,  -252,  -442,
+  -442,  -329,  -442,  -402,  -442,  -442,  -435,   -66,    -2,    -3,
+    -4,    -5,    -6,    -7,    -8,    -9,   -10,  -442,   -12,   -14,
+   -18,  -442,  -442,   -22,   -23,   -24,   -25,   -26,   -27,   -28,
+   -30,   -34,   -37,   -40,   -45,   -48,   -50,   -52,   -54,   -56,
+   -58,   -61,   -68,  -186,  -442,  -442,  -442,  -143,   -63,  -442,
+  -442,  -145,  -150,  -152,  -442,  -156,  -442,  -141,  -149,   -80,
+  -442,  -442,  -107,  -442,  -442,  -123,  -442,  -442,  -442,  -197,
+  -442,  -213,  -442,  -225,  -442,  -442,  -442,  -442,  -229,  -442,
+  -292,  -442,  -442,  -390,  -442,  -392,  -442,  -394,  -442,  -407,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -241,  -442,  -442,
+  -442,  -442,  -249,  -442,  -442,  -262,  -264,  -442,  -266,  -267,
+  -268,  -269,  -270,  -442,  -289,  -290,  -442,  -442,  -442,  -442,
+  -314,  -315,  -253,  -325,  -327,  -442,  -352,  -354,  -442,  -356,
+  -357,  -358,  -359,  -367,  -442,  -442,  -442,  -442,  -384,  -442,
+  -410,  -411,  -412,  -442,  -442,  -442,   -13,  -442,  -442,   -60,
+  -172,  -442,  -442,  -442,   -19,  -442,   -20,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -190,  -442,  -142,
+   -64,  -144,  -442,  -157,  -155,  -442,  -159,  -161,  -162,  -163,
+  -442,  -442,  -166,  -442,  -442,  -171,  -442,  -105,  -108,  -442,
+  -120,  -122,  -442,  -112,  -114,  -442,  -442,  -133,  -135,  -124,
+  -214,  -442,  -442,  -442,  -216,  -218,  -220,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -396,  -442,  -400,  -236,  -442,
+  -238,  -239,  -442,  -246,  -442,  -442,  -442,  -250,  -442,  -257,
+  -442,  -442,  -442,  -263,  -442,  -271,  -273,  -442,  -275,  -276,
+  -277,  -278,  -291,  -442,  -442,  -442,  -251,  -442,  -316,  -330,
+  -442,  -353,  -442,  -360,  -442,  -363,  -364,  -365,  -366,  -442,
+  -374,  -442,  -442,  -442,  -442,  -442,  -403,  -404,  -405,  -442,
+  -442,  -421,  -442,   -11,  -442,  -173,  -174,  -175,  -442,  -442,
+  -442,   -16,   -17,  -442,   -31,   -32,   -33,   -35,   -36,   -38,
+   -39,   -41,   -42,   -43,   -44,   -46,   -47,   -49,   -51,   -53,
+   -55,   -57,  -442,  -187,  -442,  -442,  -151,  -153,  -154,  -158,
+  -442,  -442,  -442,  -442,  -442,  -442,  -103,  -110,  -442,  -442,
+  -442,  -442,  -442,  -442,  -226,  -442,  -442,  -230,  -442,  -442,
+  -339,  -442,  -402,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -244,  -247,  -254,  -442,  -442,  -260,  -442,  -442,  -442,  -442,
+  -442,  -295,  -297,  -442,  -442,  -306,  -308,  -442,  -442,  -442,
+  -442,  -442,  -350,  -442,  -442,  -442,  -442,  -369,  -442,  -375,
+  -442,  -385,  -442,  -442,  -388,  -442,  -442,  -442,  -442,   -29,
+  -176,  -442,  -442,  -442,  -408,  -182,  -442,  -178,  -442,   -15,
+   -21,  -442,  -188,  -191,  -189,  -160,  -442,  -442,  -442,  -442,
+  -442,  -121,  -442,  -113,  -442,  -442,  -442,  -442,  -442,  -442,
+  -233,  -442,  -224,  -442,  -391,  -393,  -442,  -399,  -237,  -442,
+  -242,  -258,  -442,  -265,  -272,  -442,  -442,  -279,  -280,  -285,
+  -442,  -442,  -442,  -296,  -442,  -299,  -442,  -442,  -442,  -307,
+  -442,  -442,  -442,  -442,  -442,  -317,  -442,  -320,  -442,  -331,
+  -332,  -442,  -334,  -442,  -344,  -355,  -361,  -442,  -442,  -370,
+  -371,  -373,  -442,  -442,  -442,  -442,  -442,  -422,  -442,  -442,
+  -180,  -442,  -184,  -442,  -177,  -183,  -179,   -59,  -164,  -165,
+  -167,  -168,  -442,  -170,  -442,  -115,  -116,  -117,  -442,  -442,
+  -231,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -274,  -442,
+  -442,  -442,  -293,  -442,  -294,  -442,  -442,  -442,  -305,  -442,
+  -442,  -442,  -311,  -313,  -442,  -326,  -442,  -336,  -442,  -442,
+  -442,  -442,  -362,  -368,  -376,  -442,  -386,  -442,  -406,  -442,
+  -442,  -442,  -423,  -425,  -426,  -427,  -428,  -429,  -430,  -442,
+  -436,  -437,  -442,  -442,  -181,  -185,  -442,  -111,  -442,  -442,
+  -234,  -442,  -387,  -395,  -240,  -442,  -442,  -281,  -282,  -286,
+  -442,  -442,  -298,  -442,  -442,  -309,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -349,  -442,  -442,  -442,  -442,  -382,
+  -442,  -442,  -442,  -442,  -442,  -432,  -433,  -438,  -439,  -440,
+  -441,  -169,  -227,  -442,  -232,  -259,  -442,  -442,  -287,  -442,
+  -300,  -442,  -303,  -304,  -310,  -312,  -442,  -333,  -442,  -335,
+  -442,  -442,  -442,  -342,  -442,  -442,  -344,  -442,  -377,  -378,
+  -379,  -442,  -442,  -442,  -442,  -424,  -431,  -442,  -442,  -283,
+  -284,  -288,  -301,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -442,  -442,  -372,  -442,  -383,  -442,  -442,  -434,  -442,  -302,
+  -442,  -442,  -442,  -442,  -340,  -442,  -442,  -343,  -345,  -442,
+  -442,  -442,  -442,  -442,  -228,  -318,  -442,  -321,  -323,  -442,
+  -337,  -341,  -442,  -442,  -442,  -381,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -420,  -319,  -322,  -324,  -347,  -442,
+  -346,  -380,  -416,  -442,  -442,  -442,  -418,  -442,  -442,  -414,
+  -415,  -442,  -442,  -348,  -442,  -442,  -442,  -419,  -442,  -442,
+  -417 ]
 racc_goto_table = [
+,   135,    82,   227,   260,   176,   149,   333,   231,   233,
+,   258,   100,   150,    97,   318,   235,   151,   563,   383,
+,   178,    50,   166,   324,   261,   523,   461,   525,   526,
+,   370,     9,     8,   338,   429,   263,   638,   561,    81,
+,   598,   311,   382,   125,   467,   266,   332,   547,   269,
+,   702,   290,   246,   154,   543,   745,   615,   766,   642,
+,   483,   484,   485,   486,   137,   234,   487,   488,   310,
+,   544,   548,   645,   644,   243,   479,   480,   481,   482,
+,   447,   557,   455,   148,   559,   544,   750,   361,   709,
+,   783,   268,   273,   191,   326,   364,   327,   854,   859,
+,   233,   852,     2,   340,   489,   490,   491,   492,   493,
+,   367,    91,   253,   392,   808,    92,   245,    93,   386,
+,   391,   419,   179,   145,   499,   369,   248,   569,   360,
+,   254,   256,   257,   262,   541,   318,   180,   127,   286,
+,    82,   129,   288,   333,   380,   423,   811,   131,   289,
+,   249,   608,   773,   428,   628,   255,   427,   234,   622,
+,   729,   785,   445,   333,   437,   686,   542,   623,   476,
+,   478,   472,   765,   647,   544,   334,   382,   192,   548,
+,   572,   292,   546,   475,   629,   552,   313,     9,     8,
+,   634,   635,   825,   136,   187,   494,   553,   723,   443,
+,   701,   287,   771,   497,   nil,   nil,   nil,   416,   nil,
+   nil,   nil,     9,     8,   nil,   nil,   nil,   nil,   nil,   248,
+,   nil,   nil,   nil,   nil,   436,   nil,   679,   233,   nil,
+,   405,   nil,   712,   782,   nil,   nil,   nil,   368,   nil,
+   nil,   nil,   nil,   249,   249,   516,   522,   454,   522,   522,
+   nil,   nil,   nil,   nil,   nil,   463,   nil,   nil,   418,   518,
+,   nil,   424,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   519,   nil,   nil,   nil,   nil,   nil,   501,
+   nil,   417,   613,   nil,    53,   234,   425,   292,   nil,   527,
+   nil,   nil,   584,   592,   568,   nil,   511,   nil,   462,   nil,
+   nil,   nil,   nil,   nil,   nil,   461,   421,   nil,   313,   nil,
+,   333,   333,   334,   531,   nil,     9,     8,   333,   333,
+,   nil,   458,   734,   nil,   nil,   nil,   737,   nil,   nil,
+   nil,   nil,   233,   577,   nil,   nil,   nil,   nil,   538,   575,
+   nil,   nil,   587,   588,   589,   nil,   nil,   nil,   713,   nil,
+,   594,   595,   nil,   248,   582,   555,   nil,   602,   nil,
+   nil,   nil,   669,   nil,   820,   500,   nil,   nil,   nil,   nil,
+   nil,   nil,   522,   nil,   nil,   nil,   nil,   nil,   249,   nil,
+   nil,   318,   nil,   nil,   nil,   662,   nil,   nil,   nil,   234,
+   nil,   567,   nil,   nil,   841,   nil,   468,   nil,   nil,   nil,
+,   137,   232,    84,   236,   265,   263,   161,   179,   195,
+,   152,   240,   572,   238,   102,   153,    99,   154,   323,
+,   266,   389,   329,   531,   468,   533,   534,   467,   393,
+,   181,   425,   435,    50,   376,   453,   344,   268,   570,
+,   552,   556,   649,   650,   609,   141,   732,   127,    83,
+,   388,   251,   274,   276,   338,   552,   475,   316,   717,
+,   725,   295,   555,   157,   551,   802,   626,   491,   492,
+,   494,   239,   487,   488,   495,   496,   489,   490,   248,
+,   452,   566,   480,   657,   461,   568,   151,   778,   367,
+,   819,   273,   339,   278,   194,   331,   332,   895,   900,
+,   471,   577,   370,     1,   784,     2,   502,   238,   346,
+,   498,   398,   499,   500,   501,    82,   786,   373,    93,
+,   250,    95,   392,   258,   601,   182,   397,   148,   507,
+,   580,   366,   253,    51,   849,    52,   259,   261,   262,
+,   549,   323,   183,   339,    84,   386,   552,   339,   129,
+,   556,   619,   131,   254,   293,   429,   133,   294,   260,
+,   825,   434,   552,   757,   443,   239,   701,   339,   433,
+,   633,   639,   484,   485,   486,   852,   821,   809,   822,
+,   451,   801,    54,   340,   297,   388,   659,   554,     9,
+,   197,   640,   483,   560,   583,   645,   646,   866,     8,
+,   190,   561,   449,   716,   847,   807,   808,   505,   751,
+,   315,   422,     9,   655,   nil,   nil,   292,   nil,   nil,
+   nil,   nil,   nil,     8,   nil,   nil,   nil,   253,   253,   442,
+,   nil,   nil,   nil,   447,   nil,   238,   nil,   nil,   nil,
+,   411,   nil,   524,   374,   nil,   nil,   nil,   254,   254,
+,   460,   530,   530,   nil,   598,   599,   600,   526,   469,
+,   820,   nil,   604,   605,   606,   424,   476,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   527,   nil,
+,   nil,   656,   624,   nil,   nil,   nil,   423,   nil,    54,
+   nil,   431,   297,   nil,   239,   603,   535,   519,   nil,   595,
+,   nil,   762,   nil,   nil,   nil,   765,   nil,   nil,   468,
+   nil,   nil,   467,   318,   nil,   nil,   339,   339,   339,     9,
+   nil,   nil,   340,   427,   339,   339,   339,   464,   539,     8,
+   nil,   nil,   nil,   nil,   588,   nil,   nil,   578,   nil,   546,
+,   nil,   238,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   563,   nil,   593,
+,   nil,   613,   253,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   684,   508,   nil,   nil,   nil,   nil,   nil,   530,   nil,
+   nil,   nil,   nil,   nil,   254,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   861,   677,   nil,   576,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   476,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   179,   564,   812,   nil,
+   nil,   nil,   535,   nil,   nil,   nil,   nil,   nil,   653,   nil,
+,   586,   656,   233,   nil,   577,   545,   549,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   611,   522,   nil,   nil,
+   nil,   545,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   182,   882,   573,   nil,   nil,   nil,   543,
+,   nil,   nil,   nil,   nil,   nil,   671,   596,   597,   588,
+   nil,   nil,   553,   557,   673,   nil,   238,   nil,   763,   622,
+,   nil,   766,   nil,   610,   nil,   530,   553,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   652,   nil,   nil,   631,   nil,   nil,
+   nil,   687,   nil,   nil,   nil,   591,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   333,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   664,   nil,
+   nil,   nil,   nil,   nil,   642,   702,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   602,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   239,   nil,   nil,   nil,   nil,   339,
+   nil,   nil,   nil,   339,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   735,   718,
+   nil,   nil,   738,   690,   730,   nil,   nil,   nil,   nil,   694,
+,   nil,   nil,   nil,   549,   nil,   nil,   688,   nil,   nil,
+   nil,   640,   nil,   nil,   nil,   545,   nil,   nil,   nil,   nil,
+   nil,   740,   nil,   nil,   747,   nil,   746,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   753,   nil,   nil,   756,
+,   nil,   nil,   nil,   nil,   681,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   731,   nil,   nil,   nil,   746,   nil,   705,
+   nil,   758,   nil,   nil,   nil,   709,   nil,   nil,   553,   nil,
+   nil,   nil,   557,   837,   nil,   nil,   nil,   703,   nil,   651,
+   nil,   nil,   nil,   nil,   553,   nil,   nil,   nil,   nil,   768,
+   nil,   nil,   nil,   nil,   774,   775,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   781,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   696,
+   nil,   873,   nil,   792,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   464,   nil,   nil,   339,   nil,   nil,   750,   610,   nil,
+   nil,   769,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   894,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   339,   nil,   nil,   nil,   nil,   nil,   777,   nil,   nil,
+   nil,   829,   830,   810,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   834,   339,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   530,   nil,   845,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   333,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   741,   797,   nil,   nil,   nil,   nil,   nil,   nil,   789,
+,   nil,   nil,   333,   774,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   794,   749,   nil,   814,   nil,   nil,   522,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   805,   nil,
+   nil,   nil,   nil,   333,   nil,   832,   nil,   746,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   823,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   727,
+   nil,   787,   nil,   835,   nil,   853,   nil,   nil,   nil,   nil,
+,   nil,   339,   nil,   nil,   755,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   864,   nil,   nil,   nil,   nil,   824,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   876,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   864,   nil,   nil,   815,   nil,   nil,   868,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   905,   nil,   nil,
+   nil,   nil,   nil,   909,   nil,   856,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   651 ]
+racc_goto_check = [
+,     4,    32,    31,    23,     5,    85,    47,    83,   167,
+,    29,    55,   153,    28,    68,    53,    25,     4,   101,
+,    23,    44,   157,    84,    74,    84,    84,    76,    48,
+,    89,     6,   106,    64,    60,   145,    10,    86,   154,
+,    24,    24,   129,   130,    88,   156,   170,    25,    30,
+,    43,    40,    83,    83,    11,    24,    61,   138,   133,
+,   152,    98,   118,    51,   113,   116,   107,    14,    14,
+,    14,    29,    12,    12,    15,    15,    13,    13,    53,
+,   140,   146,     6,   107,   147,   148,    31,   149,    32,
+,   151,   158,    22,   159,   161,   162,   163,   164,   165,
+,   168,   169,    28,     1,   173,     2,     6,    28,     8,
+,    17,    23,    18,    19,    20,    26,   170,    27,    37,
+,    41,    42,    46,    51,    49,    31,    52,    54,    57,
+,    62,    63,    25,    65,   116,    66,    67,    80,    81,
+,    87,   101,    90,    22,    31,    40,    24,    22,    91,
+,    24,    84,    93,    45,    94,    95,    96,    97,    45,
+,   170,   100,    24,   108,   110,    29,   111,    22,    98,
+,   113,   118,    10,    10,    10,   135,   152,   133,   152,
+,   138,   115,    45,    25,    45,    43,   113,   117,    34,
+,    30,   119,    11,   121,    61,   122,   123,   124,    33,
+,   126,   127,   128,   131,   170,   132,   134,     5,    88,
+,   137,     4,    34,   139,   nil,   nil,    64,   nil,   nil,
+   nil,   nil,   nil,    33,   nil,   nil,   nil,    25,    25,     4,
+,   nil,   nil,   nil,     4,   nil,    28,   nil,   nil,   nil,
+,   156,   nil,    85,    31,   nil,   nil,   nil,    45,    45,
+,     4,     5,     5,   nil,     6,     6,     6,    23,     4,
+,   130,   nil,     6,     6,     6,    25,    53,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    86,   nil,
+,   nil,   145,   106,   nil,   nil,   nil,    31,   nil,    45,
+   nil,    45,    45,   nil,    29,    48,    83,    47,   nil,    60,
+,   nil,    24,   nil,   nil,   nil,    24,   nil,   nil,    74,
+   nil,   nil,    76,    45,   nil,   nil,    22,    22,    22,    34,
+   nil,   nil,    25,    64,    22,    22,    22,    45,    89,    33,
+   nil,   nil,   nil,   nil,    23,   nil,   nil,   167,   nil,    47,
+,   nil,    28,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,    47,   nil,    32,
+,   nil,   157,    25,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    44,    31,   nil,   nil,   nil,   nil,   nil,     5,   nil,
+   nil,   nil,   nil,   nil,    45,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   153,    22,   nil,     4,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,    53,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   640 ]
+racc_goto_check = [
+,     4,    31,    32,     5,    82,    29,    22,    23,    28,
+,    84,    67,    53,    25,   100,    55,     4,   152,    44,
+,    88,    64,    47,   156,    23,    83,    75,    83,    83,
+,    60,    34,    33,    10,   105,    85,   128,   153,    30,
+,    87,   137,    43,    25,    61,    82,    11,   117,    82,
+,   132,    97,    40,    51,   112,   134,   106,   115,   133,
+,    14,    14,    14,    14,   135,    29,    15,    15,   136,
+,    24,    24,   106,   138,    53,    12,    12,    13,    13,
+,   144,   145,   146,    31,   147,    24,   148,    32,   149,
+,   150,   157,   158,   160,   161,    28,   162,   163,   164,
+,    28,   165,     2,     8,    16,    17,    18,    19,    20,
+,    27,    37,    51,    23,   115,    39,    41,    42,    46,
+,    52,     6,    31,    54,    57,    59,    25,    62,    63,
+,    66,    79,    80,    81,    86,   100,    89,    90,    91,
+,    31,    92,    93,    22,    40,    94,   134,    95,    96,
+,    45,    83,   132,    99,   117,    45,    97,    29,   112,
+,   107,   151,   137,    22,   109,   110,   111,   113,    10,
+,    10,     6,   114,   112,    24,    25,    43,    30,    24,
+,    61,    45,   116,    11,   118,   120,    45,    34,    33,
+,   121,   122,   123,   124,   125,     6,   126,    87,   127,
+,   130,    64,   131,     5,   nil,   nil,   nil,     4,   nil,
+   nil,   nil,    34,    33,   nil,   nil,   nil,   nil,   nil,    25,
+,   nil,   nil,   nil,   nil,     4,   nil,    83,    28,   nil,
+,   155,   nil,   153,   128,   nil,   nil,   nil,    31,   nil,
+   nil,   nil,   nil,    45,    45,    84,     5,     4,     5,     5,
+   nil,   nil,   nil,   nil,   nil,     4,   nil,   nil,    25,    23,
+,   nil,    25,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    85,   nil,   nil,   nil,   nil,   nil,    47,
+   nil,    31,   105,   nil,    45,    29,    45,    45,   nil,    82,
+   nil,   nil,    60,    48,    10,   nil,    47,   nil,    73,   nil,
+   nil,   nil,   nil,   nil,   nil,    75,    64,   nil,    45,   nil,
+,    22,    22,    25,    88,   nil,    34,    33,    22,    22,
+,   nil,    45,    24,   nil,   nil,   nil,    24,   nil,   nil,
+   nil,   nil,    28,    23,   nil,   nil,   nil,   nil,    47,    55,
+   nil,   nil,     6,     6,     6,   nil,   nil,   nil,    73,   nil,
+,     6,     6,   nil,    25,    32,    47,   nil,   156,   nil,
+   nil,   nil,    44,   nil,   152,    31,   nil,   nil,   nil,   nil,
+   nil,   nil,     5,   nil,   nil,   nil,   nil,   nil,    45,   nil,
+   nil,   100,   nil,   nil,   nil,    22,   nil,   nil,   nil,    29,
+   nil,     4,   nil,   nil,   152,   nil,    53,   nil,   nil,   nil,
+   nil,   nil,   nil,    31,   153,    68,   nil,   nil,   nil,    31,
+,   nil,   nil,   nil,   nil,   nil,    23,     4,     4,    23,
+   nil,   nil,    45,    45,    55,   nil,    28,   nil,     6,    47,
+,   nil,     6,   nil,     4,   nil,     5,    45,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,    31,    67,    83,   nil,
    nil,   nil,    31,   nil,   nil,   nil,   nil,   nil,    23,   nil,
 ,     4,    23,    28,   nil,    23,    45,    45,   nil,   nil,
 ,   nil,   nil,   nil,   nil,   nil,    47,     5,   nil,   nil,
    nil,    45,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    47,   nil,
+   nil,   nil,   nil,   nil,     4,    23,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    25,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,    29,   nil,   nil,   nil,   nil,    22,
+   nil,   nil,   nil,    22,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,    47,   nil,   nil,     4,   nil,   nil,
+   nil,    23,   nil,   nil,   nil,    25,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,    22,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   167,   nil,   nil,   nil,    23,   nil,    47,
+   nil,    85,   nil,   nil,   nil,    47,   nil,   nil,    45,   nil,
+   nil,   nil,    45,     6,   nil,   nil,   nil,     4,   nil,    45,
+   nil,   nil,   nil,   nil,    45,   nil,   nil,   nil,   nil,    23,
+   nil,   nil,   nil,   nil,    23,    32,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,    23,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    25,
+   nil,     6,   nil,    32,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    45,   nil,   nil,    22,   nil,   nil,     4,     4,   nil,
+   nil,    47,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,     6,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    22,   nil,   nil,   nil,   nil,   nil,     4,   nil,   nil,
+   nil,    32,    32,    83,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    23,    22,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,     5,   nil,    23,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,     6,    23,
+   nil,   nil,     6,    47,    84,   nil,   nil,   nil,   nil,    47,
+,   nil,   nil,   nil,    45,   nil,   nil,     4,   nil,   nil,
+   nil,    45,   nil,   nil,   nil,    45,   nil,   nil,   nil,   nil,
+   nil,    23,   nil,   nil,    32,   nil,    23,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,   nil,    32,
+,   nil,   nil,   nil,   nil,    25,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,    22,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    47,     6,   nil,   nil,   nil,   nil,   nil,   nil,    32,
+,   nil,   nil,    22,    82,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,    23,     4,   nil,     6,   nil,   nil,     5,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,
+   nil,   nil,   nil,    22,   nil,     6,   nil,    23,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    32,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    31,
+   nil,     4,   nil,    23,   nil,     6,   nil,   nil,   nil,   nil,
+,   nil,    22,   nil,   nil,    31,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    32,   nil,   nil,   nil,   nil,     4,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    23,   nil,   nil,     4,   nil,   nil,    23,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,   nil,
+   nil,   nil,   nil,    23,   nil,     4,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    45 ]
+racc_goto_pointer = [
+   nil,   104,   106,   nil,   -74,  -160,  -258,   nil,  -103,   nil,
+  -174,  -152,  -277,  -275,  -286,  -283,  -250,  -250,  -249,  -249,
+  -249,   nil,  -197,  -145,  -403,   -23,   112,  -126,  -136,   -78,
+,    -1,  -145,    38,    28,   nil,   nil,    83,   nil,    82,
+  -104,   -34,    84,  -200,  -231,    -2,  -131,   -95,  -225,  -393,
+   nil,   -36,  -129,   -73,    43,  -138,   nil,  -243,   nil,  -116,
+  -211,  -283,  -345,  -102,    32,   132,   134,   -24,   -39,   nil,
+   nil,   nil,   nil,   nil,  -304,   nil,  -301,   nil,   nil,   nil,
+   -24,   -25,   -27,  -118,  -386,  -158,  -129,  -302,  -483,   -96,
+,    77,   -35,    80,   -31,  -137,    83,   -29,  -125,  -386,
+  -135,  -173,   nil,   nil,   nil,   nil,  -264,  -481,  -535,   nil,
+  -138,  -463,  -274,  -379,  -373,  -582,  -698,  -257,  -382,  -365,
+   nil,  -254,  -364,  -363,  -653,   125,    63,  -247,  -110,  -518,
+  -517,  -447,  -563,  -592,  -562,  -659,   134,    19,  -134,  -349,
+  -237,   nil,   nil,   nil,   nil,  -282,  -377,  -240,  -375,  -636,
+  -570,  -687,  -601,  -450,  -423,   nil,   -31,  -170,   -78,   -79,
+   nil,   -48,   -98,   -97,  -794,  -796,  -784,  -135,  -234,  -370,
+  -622,   nil,   nil,  -634 ]
+racc_goto_default = [
+   nil,   nil,   nil,   209,   198,   206,   337,   210,   219,   211,
+,   nil,   221,   222,   223,   224,   225,   226,   227,   228,
+,   230,   231,   233,    67,     4,   nil,   245,    39,    40,
+   nil,   391,   nil,    97,    98,    11,    12,    37,    36,   nil,
+   nil,   nil,   nil,   252,   nil,   246,   nil,   nil,   nil,   390,
+,   nil,   158,    85,    86,   nil,   242,   243,   244,   nil,
+   nil,   nil,   477,   nil,   nil,   nil,   nil,    53,   nil,    55,
+,    57,    58,    59,    60,    61,    62,    63,    64,    65,
+,   nil,   nil,   nil,   nil,   628,   nil,   269,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   296,
+   nil,   298,   299,   300,   301,   302,   nil,   nil,   627,   303,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    45 ]
+racc_goto_pointer = [
+   nil,   100,   103,   nil,   -73,  -158,  -163,   nil,  -103,   nil,
+  -172,  -155,  -268,  -268,  -287,  -285,  -249,  -249,  -249,  -249,
+  -249,   nil,  -195,  -138,  -367,   -26,   106,  -128,  -138,   -81,
+,    -2,  -141,    31,    30,   nil,   nil,    76,   nil,    78,
+  -100,   -35,    80,  -203,  -229,    -2,  -130,   -90,  -219,  -390,
+   nil,   -44,  -130,   -74,    41,  -131,   nil,  -241,   nil,  -115,
+  -210,  -289,  -340,  -100,    20,   128,   -27,   -41,   nil,   nil,
+   nil,   nil,   nil,  -304,   nil,  -297,   nil,   nil,   nil,   -27,
+   -28,   -30,  -119,  -378,  -150,  -128,  -302,  -479,  -104,    11,
+,   -43,    70,   -40,  -142,    75,   -35,  -132,  -388,  -138,
+  -174,   nil,   nil,   nil,   nil,  -257,  -483,  -523,   nil,  -133,
+  -453,  -271,  -383,  -377,  -563,  -678,  -256,  -391,  -364,   nil,
+  -256,  -361,  -360,  -617,   120,    59,  -246,  -109,  -516,  -353,
+  -439,  -538,  -589,  -494,  -648,   -10,  -120,  -147,  -481,  -233,
+   nil,   nil,   nil,   nil,  -232,  -371,  -237,  -370,  -622,  -559,
+  -659,  -590,  -439,  -418,   nil,   -36,  -166,   -75,   -77,   nil,
+   -47,   -96,   -94,  -753,  -755,  -741 ]
+racc_goto_default = [
+   nil,   nil,   nil,   204,   193,   201,   331,   205,   214,   206,
+,   nil,   216,   217,   218,   219,   220,   221,   222,   223,
+,   225,   226,   228,    66,     4,   nil,   240,    39,    40,
+   nil,   385,   nil,    95,    96,    11,    12,    37,    36,   nil,
+   nil,   nil,   nil,   247,   nil,   241,   nil,   nil,   nil,   384,
+,   nil,   155,    83,    84,   nil,   237,   238,   239,   nil,
+   nil,   nil,   469,   nil,   nil,   nil,    52,   nil,    54,    55,
+,    57,    58,    59,    60,    61,    62,    63,    64,   101,
+   nil,   nil,   nil,   nil,   617,   nil,   264,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   291,   nil,
+,   294,   295,   296,   297,   nil,   nil,   616,   298,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   304,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   641,   nil,   772,   nil,   nil,   nil,   nil,   312,   nil,
+,   315,   316,   317,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   321,   nil,   113,   nil,   nil,   114,   nil,   460,
+   nil,   nil,   nil,   nil,   nil,   nil ]
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   652,   nil,   653,   nil,   nil,   nil,   nil,   317,
+   nil,   319,   320,   321,   322,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   326,   nil,   115,   nil,   nil,   116,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   733,   735,   nil,
+   nil,   734,   736,   nil ]
 racc_reduce_table = [
 , 0, :racc_error,
+, 141, :_reduce_none,
+, 143, :_reduce_2,
+, 143, :_reduce_3,
+, 143, :_reduce_4,
+, 143, :_reduce_5,
+, 143, :_reduce_6,
+, 143, :_reduce_7,
+, 143, :_reduce_8,
+, 143, :_reduce_9,
+, 143, :_reduce_10,
+, 143, :_reduce_11,
+, 145, :_reduce_none,
+, 145, :_reduce_13,
+, 147, :_reduce_none,
+, 147, :_reduce_15,
+, 147, :_reduce_16,
+, 147, :_reduce_17,
+, 142, :_reduce_none,
+, 144, :_reduce_2,
+, 144, :_reduce_3,
+, 144, :_reduce_4,
+, 144, :_reduce_5,
+, 144, :_reduce_6,
+, 144, :_reduce_7,
+, 144, :_reduce_8,
+, 144, :_reduce_9,
+, 144, :_reduce_10,
+, 144, :_reduce_11,
+, 146, :_reduce_none,
+, 146, :_reduce_13,
 , 148, :_reduce_none,
 , 148, :_reduce_19,
 , 148, :_reduce_20,
 , 148, :_reduce_21,
 , 149, :_reduce_22,
 , 149, :_reduce_23,
 , 149, :_reduce_24,
 , 149, :_reduce_25,
 , 149, :_reduce_26,
 , 149, :_reduce_27,
 , 150, :_reduce_none,
 , 150, :_reduce_29,
 , 152, :_reduce_none,
 , 152, :_reduce_31,
 , 152, :_reduce_32,
 , 152, :_reduce_33,
+, 148, :_reduce_15,
+, 148, :_reduce_16,
+, 148, :_reduce_17,
+, 149, :_reduce_none,
+, 149, :_reduce_19,
+, 149, :_reduce_20,
+, 149, :_reduce_21,
+, 150, :_reduce_22,
+, 150, :_reduce_23,
+, 150, :_reduce_24,
+, 150, :_reduce_25,
+, 150, :_reduce_26,
+, 150, :_reduce_27,
+, 151, :_reduce_none,
+, 151, :_reduce_29,
 , 153, :_reduce_none,
+, 153, :_reduce_35,
+, 153, :_reduce_36,
+, 153, :_reduce_31,
+, 153, :_reduce_32,
+, 153, :_reduce_33,
 , 154, :_reduce_none,
 , 154, :_reduce_38,
 , 154, :_reduce_39,
+, 154, :_reduce_35,
+, 154, :_reduce_36,
 , 155, :_reduce_none,
+, 155, :_reduce_41,
+, 155, :_reduce_42,
+, 155, :_reduce_43,
+, 155, :_reduce_44,
+, 155, :_reduce_38,
+, 155, :_reduce_39,
 , 156, :_reduce_none,
+, 156, :_reduce_46,
+, 156, :_reduce_47,
+, 156, :_reduce_41,
+, 156, :_reduce_42,
+, 156, :_reduce_43,
+, 156, :_reduce_44,
 , 157, :_reduce_none,
+, 157, :_reduce_49,
+, 157, :_reduce_46,
+, 157, :_reduce_47,
 , 158, :_reduce_none,
 , 158, :_reduce_51,
+, 158, :_reduce_49,
 , 159, :_reduce_none,
 , 159, :_reduce_53,
+, 159, :_reduce_51,
 , 160, :_reduce_none,
 , 160, :_reduce_55,
+, 160, :_reduce_53,
 , 161, :_reduce_none,
 , 161, :_reduce_57,
+, 161, :_reduce_55,
 , 162, :_reduce_none,
+, 162, :_reduce_59,
+, 146, :_reduce_60,
+, 163, :_reduce_61,
+, 164, :_reduce_62,
+, 167, :_reduce_none,
+, 167, :_reduce_64,
+, 166, :_reduce_65,
+, 166, :_reduce_66,
+, 170, :_reduce_none,
+, 170, :_reduce_68,
+, 168, :_reduce_69,
+, 168, :_reduce_70,
+, 168, :_reduce_71,
+, 162, :_reduce_57,
+, 163, :_reduce_none,
+, 163, :_reduce_59,
+, 147, :_reduce_60,
+, 164, :_reduce_61,
+, 165, :_reduce_62,
 , 168, :_reduce_none,
+, 168, :_reduce_none,
+, 168, :_reduce_74,
+, 168, :_reduce_none,
+, 168, :_reduce_none,
+, 168, :_reduce_77,
+, 168, :_reduce_78,
+, 168, :_reduce_79,
+, 168, :_reduce_80,
+, 176, :_reduce_81,
+, 176, :_reduce_82,
+, 176, :_reduce_83,
+, 177, :_reduce_84,
+, 177, :_reduce_85,
+, 177, :_reduce_86,
+, 177, :_reduce_87,
+, 177, :_reduce_88,
+, 177, :_reduce_89,
+, 177, :_reduce_90,
+, 177, :_reduce_91,
+, 177, :_reduce_92,
+, 177, :_reduce_93,
+, 177, :_reduce_94,
+, 177, :_reduce_95,
+, 177, :_reduce_96,
+, 177, :_reduce_97,
+, 178, :_reduce_98,
+, 178, :_reduce_99,
+, 175, :_reduce_100,
+, 175, :_reduce_none,
+, 181, :_reduce_102,
+, 173, :_reduce_103,
+, 182, :_reduce_104,
+, 173, :_reduce_105,
+, 173, :_reduce_106,
+, 180, :_reduce_none,
+, 180, :_reduce_none,
+, 179, :_reduce_109,
+, 183, :_reduce_110,
+, 183, :_reduce_111,
+, 186, :_reduce_112,
+, 186, :_reduce_113,
+, 188, :_reduce_114,
+, 188, :_reduce_115,
+, 188, :_reduce_116,
+, 188, :_reduce_117,
+, 165, :_reduce_none,
+, 165, :_reduce_119,
+, 184, :_reduce_120,
+, 184, :_reduce_121,
+, 189, :_reduce_none,
+, 174, :_reduce_none,
+, 174, :_reduce_none,
+, 174, :_reduce_none,
+, 190, :_reduce_126,
+, 190, :_reduce_127,
+, 190, :_reduce_128,
+, 190, :_reduce_129,
+, 190, :_reduce_130,
+, 190, :_reduce_131,
+, 191, :_reduce_none,
+, 191, :_reduce_none,
+, 168, :_reduce_64,
+, 167, :_reduce_65,
+, 167, :_reduce_66,
+, 171, :_reduce_none,
+, 171, :_reduce_68,
+, 169, :_reduce_69,
+, 169, :_reduce_70,
+, 169, :_reduce_71,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_74,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_77,
+, 169, :_reduce_78,
+, 169, :_reduce_79,
+, 169, :_reduce_80,
+, 177, :_reduce_81,
+, 177, :_reduce_82,
+, 177, :_reduce_83,
+, 178, :_reduce_84,
+, 178, :_reduce_85,
+, 178, :_reduce_86,
+, 178, :_reduce_87,
+, 178, :_reduce_88,
+, 178, :_reduce_89,
+, 178, :_reduce_90,
+, 178, :_reduce_91,
+, 178, :_reduce_92,
+, 178, :_reduce_93,
+, 178, :_reduce_94,
+, 178, :_reduce_95,
+, 178, :_reduce_96,
+, 178, :_reduce_97,
+, 179, :_reduce_98,
+, 179, :_reduce_99,
+, 176, :_reduce_100,
+, 176, :_reduce_none,
+, 182, :_reduce_102,
+, 174, :_reduce_103,
+, 183, :_reduce_104,
+, 174, :_reduce_105,
+, 174, :_reduce_106,
+, 181, :_reduce_none,
+, 181, :_reduce_none,
+, 180, :_reduce_109,
+, 184, :_reduce_110,
+, 184, :_reduce_111,
+, 187, :_reduce_112,
+, 187, :_reduce_113,
+, 189, :_reduce_114,
+, 189, :_reduce_115,
+, 189, :_reduce_116,
+, 189, :_reduce_117,
+, 166, :_reduce_none,
+, 166, :_reduce_119,
+, 185, :_reduce_120,
+, 185, :_reduce_121,
+, 190, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 191, :_reduce_126,
+, 191, :_reduce_127,
+, 191, :_reduce_128,
+, 191, :_reduce_129,
+, 191, :_reduce_130,
+, 191, :_reduce_131,
 , 192, :_reduce_none,
 , 192, :_reduce_none,
+, 169, :_reduce_136,
+, 169, :_reduce_137,
+, 171, :_reduce_138,
+, 171, :_reduce_none,
+, 194, :_reduce_140,
+, 194, :_reduce_141,
+, 194, :_reduce_142,
+, 194, :_reduce_143,
+, 194, :_reduce_144,
+, 194, :_reduce_145,
+, 193, :_reduce_146,
+, 193, :_reduce_147,
+, 193, :_reduce_148,
+, 193, :_reduce_149,
+, 195, :_reduce_none,
+, 195, :_reduce_none,
+, 196, :_reduce_152,
+, 196, :_reduce_153,
+, 197, :_reduce_154,
+, 197, :_reduce_155,
+, 197, :_reduce_156,
+, 197, :_reduce_157,
+, 198, :_reduce_158,
+, 199, :_reduce_159,
+, 199, :_reduce_160,
+, 200, :_reduce_161,
+, 200, :_reduce_162,
+, 200, :_reduce_163,
+, 200, :_reduce_164,
+, 200, :_reduce_165,
+, 200, :_reduce_166,
+, 200, :_reduce_167,
+, 200, :_reduce_168,
+, 200, :_reduce_169,
+, 200, :_reduce_170,
+, 200, :_reduce_171,
+, 151, :_reduce_none,
+, 151, :_reduce_173,
+, 201, :_reduce_none,
+, 201, :_reduce_none,
+, 201, :_reduce_none,
+, 202, :_reduce_177,
+, 202, :_reduce_178,
+, 202, :_reduce_179,
+, 202, :_reduce_180,
+, 202, :_reduce_181,
+, 202, :_reduce_182,
+, 202, :_reduce_none,
+, 202, :_reduce_184,
+, 202, :_reduce_185,
+, 172, :_reduce_186,
+, 172, :_reduce_187,
+, 172, :_reduce_188,
+, 172, :_reduce_189,
+, 203, :_reduce_190,
+, 203, :_reduce_191,
+, 142, :_reduce_none,
+, 142, :_reduce_none,
+, 142, :_reduce_none,
+, 204, :_reduce_none,
+, 204, :_reduce_196,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 207, :_reduce_211,
+, 207, :_reduce_212,
+, 219, :_reduce_213,
+, 219, :_reduce_214,
+, 219, :_reduce_215,
+, 219, :_reduce_216,
+, 219, :_reduce_217,
+, 219, :_reduce_218,
+, 219, :_reduce_219,
+, 219, :_reduce_220,
+, 219, :_reduce_221,
+, 219, :_reduce_222,
+, 219, :_reduce_223,
+, 220, :_reduce_224,
+, 220, :_reduce_225,
+, 224, :_reduce_226,
+, 224, :_reduce_227,
+, 221, :_reduce_228,
+, 221, :_reduce_229,
+, 225, :_reduce_230,
+, 225, :_reduce_231,
+, 227, :_reduce_232,
+, 227, :_reduce_233,
+, 209, :_reduce_234,
+, 217, :_reduce_235,
+, 217, :_reduce_236,
+, 216, :_reduce_237,
+, 216, :_reduce_238,
+, 218, :_reduce_239,
+, 208, :_reduce_240,
+, 208, :_reduce_241,
+, 229, :_reduce_none,
+, 229, :_reduce_none,
+, 228, :_reduce_244,
+, 228, :_reduce_245,
+, 210, :_reduce_246,
+, 230, :_reduce_247,
+, 193, :_reduce_none,
+, 193, :_reduce_none,
+, 170, :_reduce_136,
+, 170, :_reduce_137,
+, 172, :_reduce_138,
+, 172, :_reduce_none,
+, 195, :_reduce_140,
+, 195, :_reduce_141,
+, 195, :_reduce_142,
+, 195, :_reduce_143,
+, 195, :_reduce_144,
+, 195, :_reduce_145,
+, 194, :_reduce_146,
+, 194, :_reduce_147,
+, 194, :_reduce_148,
+, 194, :_reduce_149,
+, 196, :_reduce_none,
+, 196, :_reduce_none,
+, 197, :_reduce_152,
+, 197, :_reduce_153,
+, 198, :_reduce_154,
+, 198, :_reduce_155,
+, 198, :_reduce_156,
+, 198, :_reduce_157,
+, 199, :_reduce_158,
+, 200, :_reduce_159,
+, 200, :_reduce_160,
+, 201, :_reduce_161,
+, 201, :_reduce_162,
+, 201, :_reduce_163,
+, 201, :_reduce_164,
+, 201, :_reduce_165,
+, 201, :_reduce_166,
+, 201, :_reduce_167,
+, 201, :_reduce_168,
+, 201, :_reduce_169,
+, 201, :_reduce_170,
+, 201, :_reduce_171,
+, 152, :_reduce_none,
+, 152, :_reduce_173,
+, 202, :_reduce_none,
+, 202, :_reduce_none,
+, 202, :_reduce_none,
+, 203, :_reduce_177,
+, 203, :_reduce_178,
+, 203, :_reduce_179,
+, 203, :_reduce_180,
+, 203, :_reduce_181,
+, 203, :_reduce_182,
+, 203, :_reduce_none,
+, 203, :_reduce_184,
+, 203, :_reduce_185,
+, 173, :_reduce_186,
+, 173, :_reduce_187,
+, 173, :_reduce_188,
+, 173, :_reduce_189,
+, 204, :_reduce_190,
+, 204, :_reduce_191,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 205, :_reduce_none,
+, 205, :_reduce_197,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 209, :_reduce_212,
+, 209, :_reduce_213,
+, 221, :_reduce_214,
+, 221, :_reduce_215,
+, 221, :_reduce_216,
+, 221, :_reduce_217,
+, 221, :_reduce_218,
+, 221, :_reduce_219,
+, 221, :_reduce_220,
+, 221, :_reduce_221,
+, 221, :_reduce_222,
+, 221, :_reduce_223,
+, 221, :_reduce_224,
+, 222, :_reduce_225,
+, 222, :_reduce_226,
+, 226, :_reduce_227,
+, 226, :_reduce_228,
+, 223, :_reduce_229,
+, 223, :_reduce_230,
+, 227, :_reduce_231,
+, 227, :_reduce_232,
+, 229, :_reduce_233,
+, 229, :_reduce_234,
+, 211, :_reduce_235,
+, 219, :_reduce_236,
+, 219, :_reduce_237,
+, 218, :_reduce_238,
+, 218, :_reduce_239,
+, 220, :_reduce_240,
+, 210, :_reduce_241,
+, 210, :_reduce_242,
 , 231, :_reduce_none,
+, 231, :_reduce_none,
+, 144, :_reduce_250,
+, 144, :_reduce_251,
+, 144, :_reduce_252,
+, 211, :_reduce_253,
+, 232, :_reduce_254,
+, 233, :_reduce_255,
+, 233, :_reduce_256,
+, 234, :_reduce_257,
+, 234, :_reduce_258,
+, 212, :_reduce_259,
+, 235, :_reduce_260,
+, 236, :_reduce_none,
+, 236, :_reduce_none,
+, 237, :_reduce_263,
+, 237, :_reduce_264,
+, 231, :_reduce_none,
+, 230, :_reduce_245,
+, 230, :_reduce_246,
+, 212, :_reduce_247,
+, 232, :_reduce_248,
+, 233, :_reduce_none,
+, 233, :_reduce_none,
+, 145, :_reduce_251,
+, 145, :_reduce_252,
+, 145, :_reduce_253,
+, 213, :_reduce_254,
+, 234, :_reduce_255,
+, 235, :_reduce_256,
+, 235, :_reduce_257,
+, 236, :_reduce_258,
+, 236, :_reduce_259,
+, 214, :_reduce_260,
+, 237, :_reduce_261,
 , 238, :_reduce_none,
+, 238, :_reduce_none,
+, 238, :_reduce_none,
+, 238, :_reduce_none,
+, 238, :_reduce_none,
+, 239, :_reduce_270,
+, 239, :_reduce_271,
+, 245, :_reduce_272,
+, 245, :_reduce_273,
+, 245, :_reduce_274,
+, 245, :_reduce_275,
+, 245, :_reduce_276,
+, 245, :_reduce_277,
+, 246, :_reduce_278,
+, 246, :_reduce_279,
+, 246, :_reduce_280,
+, 246, :_reduce_281,
+, 247, :_reduce_282,
+, 247, :_reduce_283,
+, 240, :_reduce_284,
+, 240, :_reduce_285,
+, 240, :_reduce_286,
+, 240, :_reduce_287,
+, 248, :_reduce_288,
+, 248, :_reduce_289,
+, 249, :_reduce_290,
+, 226, :_reduce_none,
+, 250, :_reduce_none,
+, 241, :_reduce_293,
+, 251, :_reduce_294,
+, 251, :_reduce_295,
+, 252, :_reduce_296,
+, 252, :_reduce_297,
+, 253, :_reduce_298,
+, 253, :_reduce_299,
+, 253, :_reduce_300,
+, 254, :_reduce_301,
+, 254, :_reduce_302,
+, 255, :_reduce_none,
+, 242, :_reduce_304,
+, 256, :_reduce_305,
+, 256, :_reduce_306,
+, 257, :_reduce_307,
+, 257, :_reduce_308,
+, 258, :_reduce_309,
+, 243, :_reduce_310,
+, 243, :_reduce_311,
+, 244, :_reduce_none,
+, 259, :_reduce_313,
+, 259, :_reduce_314,
+, 260, :_reduce_none,
+, 260, :_reduce_none,
+, 261, :_reduce_317,
+, 261, :_reduce_318,
+, 262, :_reduce_none,
+, 263, :_reduce_320,
+, 263, :_reduce_321,
+, 263, :_reduce_322,
+, 263, :_reduce_323,
+, 267, :_reduce_324,
+, 213, :_reduce_325,
+, 213, :_reduce_326,
+, 264, :_reduce_327,
+, 265, :_reduce_328,
+, 266, :_reduce_none,
+, 266, :_reduce_none,
+, 266, :_reduce_none,
+, 268, :_reduce_332,
+, 268, :_reduce_333,
+, 270, :_reduce_334,
+, 270, :_reduce_335,
+, 272, :_reduce_336,
+, 222, :_reduce_337,
+, 223, :_reduce_none,
+, 271, :_reduce_339,
+, 271, :_reduce_340,
+, 271, :_reduce_341,
+, 271, :_reduce_342,
+, 273, :_reduce_none,
+, 269, :_reduce_344,
+, 269, :_reduce_345,
+, 269, :_reduce_346,
+, 269, :_reduce_347,
+, 274, :_reduce_none,
+, 214, :_reduce_349,
+, 275, :_reduce_350,
+, 238, :_reduce_none,
+, 239, :_reduce_264,
+, 239, :_reduce_265,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 241, :_reduce_271,
+, 241, :_reduce_272,
+, 247, :_reduce_273,
+, 247, :_reduce_274,
+, 247, :_reduce_275,
+, 247, :_reduce_276,
+, 247, :_reduce_277,
+, 247, :_reduce_278,
+, 248, :_reduce_279,
+, 248, :_reduce_280,
+, 248, :_reduce_281,
+, 248, :_reduce_282,
+, 249, :_reduce_283,
+, 249, :_reduce_284,
+, 242, :_reduce_285,
+, 242, :_reduce_286,
+, 242, :_reduce_287,
+, 242, :_reduce_288,
+, 250, :_reduce_289,
+, 250, :_reduce_290,
+, 251, :_reduce_291,
+, 228, :_reduce_none,
+, 252, :_reduce_none,
+, 243, :_reduce_294,
+, 253, :_reduce_295,
+, 253, :_reduce_296,
+, 254, :_reduce_297,
+, 254, :_reduce_298,
+, 255, :_reduce_299,
+, 255, :_reduce_300,
+, 255, :_reduce_301,
+, 256, :_reduce_302,
+, 256, :_reduce_303,
+, 257, :_reduce_none,
+, 244, :_reduce_305,
+, 258, :_reduce_306,
+, 258, :_reduce_307,
+, 259, :_reduce_308,
+, 259, :_reduce_309,
+, 260, :_reduce_310,
+, 245, :_reduce_311,
+, 245, :_reduce_312,
+, 246, :_reduce_none,
+, 261, :_reduce_314,
+, 261, :_reduce_315,
+, 262, :_reduce_none,
+, 262, :_reduce_none,
+, 263, :_reduce_318,
+, 263, :_reduce_319,
+, 264, :_reduce_none,
+, 265, :_reduce_321,
+, 265, :_reduce_322,
+, 265, :_reduce_323,
+, 265, :_reduce_324,
+, 269, :_reduce_325,
+, 215, :_reduce_326,
+, 215, :_reduce_327,
+, 266, :_reduce_328,
+, 267, :_reduce_329,
+, 268, :_reduce_none,
+, 268, :_reduce_none,
+, 268, :_reduce_none,
+, 270, :_reduce_333,
+, 270, :_reduce_334,
+, 272, :_reduce_335,
+, 272, :_reduce_336,
+, 274, :_reduce_337,
+, 224, :_reduce_338,
+, 225, :_reduce_none,
+, 273, :_reduce_340,
+, 273, :_reduce_341,
+, 273, :_reduce_342,
+, 273, :_reduce_343,
+, 275, :_reduce_none,
+, 271, :_reduce_345,
+, 271, :_reduce_346,
+, 271, :_reduce_347,
+, 271, :_reduce_348,
 , 276, :_reduce_none,
+, 276, :_reduce_none,
+, 277, :_reduce_353,
+, 277, :_reduce_354,
+, 216, :_reduce_350,
+, 277, :_reduce_351,
 , 278, :_reduce_none,
+, 278, :_reduce_none,
+, 278, :_reduce_none,
+, 278, :_reduce_none,
+, 279, :_reduce_359,
+, 284, :_reduce_360,
+, 284, :_reduce_361,
+, 284, :_reduce_362,
+, 284, :_reduce_363,
+, 284, :_reduce_364,
+, 280, :_reduce_365,
+, 281, :_reduce_366,
+, 285, :_reduce_367,
+, 285, :_reduce_368,
+, 289, :_reduce_369,
+, 282, :_reduce_370,
+, 282, :_reduce_371,
+, 286, :_reduce_372,
+, 287, :_reduce_373,
+, 288, :_reduce_none,
+, 288, :_reduce_none,
+, 288, :_reduce_none,
+, 290, :_reduce_377,
+, 290, :_reduce_378,
+, 283, :_reduce_379,
+, 283, :_reduce_380,
+, 292, :_reduce_none,
+, 278, :_reduce_none,
+, 279, :_reduce_354,
+, 279, :_reduce_355,
+, 280, :_reduce_none,
+, 280, :_reduce_none,
+, 280, :_reduce_none,
+, 280, :_reduce_none,
+, 281, :_reduce_360,
+, 281, :_reduce_361,
+, 286, :_reduce_362,
+, 286, :_reduce_363,
+, 286, :_reduce_364,
+, 286, :_reduce_365,
+, 286, :_reduce_366,
+, 282, :_reduce_367,
+, 283, :_reduce_368,
+, 287, :_reduce_369,
+, 287, :_reduce_370,
+, 291, :_reduce_371,
+, 284, :_reduce_372,
+, 284, :_reduce_373,
+, 288, :_reduce_374,
+, 289, :_reduce_375,
+, 290, :_reduce_none,
+, 290, :_reduce_none,
+, 290, :_reduce_none,
+, 290, :_reduce_none,
+, 292, :_reduce_380,
+, 292, :_reduce_381,
+, 285, :_reduce_382,
+, 285, :_reduce_383,
+, 294, :_reduce_none,
+, 295, :_reduce_none,
 , 293, :_reduce_none,
+, 291, :_reduce_none,
+, 215, :_reduce_384,
+, 215, :_reduce_385,
+, 294, :_reduce_none,
+, 294, :_reduce_none,
+, 297, :_reduce_388,
+, 297, :_reduce_389,
+, 297, :_reduce_390,
+, 297, :_reduce_391,
+, 297, :_reduce_392,
+, 297, :_reduce_393,
+, 297, :_reduce_394,
+, 297, :_reduce_395,
+, 297, :_reduce_396,
+, 297, :_reduce_397,
+, 295, :_reduce_398,
+, 296, :_reduce_none,
+, 296, :_reduce_none,
+, 296, :_reduce_none,
+, 299, :_reduce_none,
+, 299, :_reduce_403,
+, 298, :_reduce_404,
+, 185, :_reduce_405,
+, 187, :_reduce_406,
+, 205, :_reduce_none,
+, 300, :_reduce_none,
+, 300, :_reduce_none,
+, 300, :_reduce_none,
+, 301, :_reduce_411,
+, 303, :_reduce_412,
+, 303, :_reduce_413,
+, 304, :_reduce_414,
+, 302, :_reduce_415,
+, 305, :_reduce_416,
+, 305, :_reduce_417 ]
+racc_reduce_n = 418
+racc_shift_n = 870
+, 217, :_reduce_387,
+, 217, :_reduce_388,
+, 296, :_reduce_none,
+, 296, :_reduce_none,
+, 299, :_reduce_391,
+, 299, :_reduce_392,
+, 299, :_reduce_393,
+, 299, :_reduce_394,
+, 299, :_reduce_395,
+, 299, :_reduce_396,
+, 299, :_reduce_397,
+, 299, :_reduce_398,
+, 299, :_reduce_399,
+, 299, :_reduce_400,
+, 297, :_reduce_401,
+, 298, :_reduce_none,
+, 298, :_reduce_none,
+, 298, :_reduce_none,
+, 301, :_reduce_none,
+, 301, :_reduce_406,
+, 300, :_reduce_407,
+, 186, :_reduce_408,
+, 188, :_reduce_409,
+, 206, :_reduce_none,
+, 302, :_reduce_none,
+, 302, :_reduce_none,
+, 302, :_reduce_none,
+, 303, :_reduce_414,
+, 305, :_reduce_415,
+, 305, :_reduce_416,
+, 306, :_reduce_417,
+, 304, :_reduce_418,
+, 307, :_reduce_419,
+, 307, :_reduce_420,
+, 207, :_reduce_421,
+, 309, :_reduce_422,
+, 310, :_reduce_423,
+, 310, :_reduce_424,
+, 311, :_reduce_none,
+, 311, :_reduce_none,
+, 311, :_reduce_none,
+, 311, :_reduce_none,
+, 311, :_reduce_429,
+, 311, :_reduce_430,
+, 313, :_reduce_431,
+, 313, :_reduce_432,
+, 314, :_reduce_433,
+, 314, :_reduce_434,
+, 308, :_reduce_435,
+, 312, :_reduce_436,
+, 312, :_reduce_437,
+, 312, :_reduce_438,
+, 312, :_reduce_439,
+, 312, :_reduce_440,
+, 312, :_reduce_441 ]
+racc_reduce_n = 442
+racc_shift_n = 911
 racc_token_table = {
 …
   :__LOCATION_INFORMATION__ => 137,
   :__CELL__ => 138,
+  :__JOIN__ => 139 }
+racc_nt_base = 140
+  :__JOIN__ => 139,
+  :TOOL_INFO => 140 }
+racc_nt_base = 141
 racc_use_result_var = true
 …
   "__CELL__",
   "__JOIN__",
+  "TOOL_INFO",
   "$start",
   "all",
 …
   "specified_statement",
   "location_information",
+  "tool_info",
   "statement",
   "statement_specifier_list",
 …
   "import",
   "import_C",
   "signature_plugin",
+  "generate_statement",
   "statement_specifier",
   "alloc_list",
 …
   "port_location_list",
   "port_location",
+  "bar_list" ]
+  "bar_list",
+  "JSON_string",
+  "JSON_object",
+  "JSON_property_list",
+  "JSON_value",
+  "JSON_number",
+  "JSON_array",
+  "JSON_array_list" ]
 Racc_debug_parser = false
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 379)
   def _reduce_104(val, _values, result)
+                        result = StructType.new()
+                        # tag が無い場合、内部名を与える
+                        result = StructType.new( :"TAG__#{@@no_struct_tag_num}__" )
+                        @@no_struct_tag_num += 1
                         StructType.set_define( true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 384)
+module_eval(<<'.,.,', 'bnf.y.rb', 386)
   def _reduce_105(val, _values, result)
                         StructType.end_of_parse
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 389)
+module_eval(<<'.,.,', 'bnf.y.rb', 391)
   def _reduce_106(val, _values, result)
                         StructType.set_define( false )
 …
 # reduce 108 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 400)
+module_eval(<<'.,.,', 'bnf.y.rb', 402)
   def _reduce_109(val, _values, result)
      result = StructType.new( val[0].val )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 406)
+module_eval(<<'.,.,', 'bnf.y.rb', 408)
   def _reduce_110(val, _values, result)
                         val[1].each { |i|       # i: Decl
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 416)
+module_eval(<<'.,.,', 'bnf.y.rb', 418)
   def _reduce_111(val, _values, result)
                         val[4].each { |i|       # i: Decl
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 427)
+module_eval(<<'.,.,', 'bnf.y.rb', 429)
   def _reduce_112(val, _values, result)
      result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 428)
+module_eval(<<'.,.,', 'bnf.y.rb', 430)
   def _reduce_113(val, _values, result)
      result <<  val[2]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 431)
+module_eval(<<'.,.,', 'bnf.y.rb', 433)
   def _reduce_114(val, _values, result)
      result = [:STRING,-1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 432)
+module_eval(<<'.,.,', 'bnf.y.rb', 434)
   def _reduce_115(val, _values, result)
      result = [:STRING,val[2]]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 433)
+module_eval(<<'.,.,', 'bnf.y.rb', 435)
   def _reduce_116(val, _values, result)
      result = [:SIZE_IS,val[2]]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 434)
+module_eval(<<'.,.,', 'bnf.y.rb', 436)
   def _reduce_117(val, _values, result)
      result = [:COUNT_IS,val[2]]
 …
 # reduce 118 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 445)
+module_eval(<<'.,.,', 'bnf.y.rb', 447)
   def _reduce_119(val, _values, result)
                         val[1].set_qualifier( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 454)
+module_eval(<<'.,.,', 'bnf.y.rb', 456)
   def _reduce_120(val, _values, result)
      result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 456)
+module_eval(<<'.,.,', 'bnf.y.rb', 458)
   def _reduce_121(val, _values, result)
      result << val[2]
 …
 # reduce 125 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 469)
+module_eval(<<'.,.,', 'bnf.y.rb', 471)
   def _reduce_126(val, _values, result)
      result = EnumType.new( -1 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 470)
+module_eval(<<'.,.,', 'bnf.y.rb', 472)
   def _reduce_127(val, _values, result)
      result = EnumType.new( 8 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 471)
+module_eval(<<'.,.,', 'bnf.y.rb', 473)
   def _reduce_128(val, _values, result)
      result = EnumType.new( 16 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 472)
+module_eval(<<'.,.,', 'bnf.y.rb', 474)
   def _reduce_129(val, _values, result)
      result = EnumType.new( 32 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 473)
+module_eval(<<'.,.,', 'bnf.y.rb', 475)
   def _reduce_130(val, _values, result)
      result = EnumType.new( 64 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 474)
+module_eval(<<'.,.,', 'bnf.y.rb', 476)
   def _reduce_131(val, _values, result)
      result = EnumType.new( 128 )
 …
 # reduce 135 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 485)
+module_eval(<<'.,.,', 'bnf.y.rb', 487)
   def _reduce_136(val, _values, result)
      result = :CONST
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 486)
+module_eval(<<'.,.,', 'bnf.y.rb', 488)
   def _reduce_137(val, _values, result)
      result = :VOLATILE
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 491)
+module_eval(<<'.,.,', 'bnf.y.rb', 493)
   def _reduce_138(val, _values, result)
                         val[1].set_type( val[0] )
 …
 # reduce 139 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 498)
+module_eval(<<'.,.,', 'bnf.y.rb', 500)
   def _reduce_140(val, _values, result)
      result = Decl.new( val[0].val )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 500)
+module_eval(<<'.,.,', 'bnf.y.rb', 502)
   def _reduce_141(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 503)
+module_eval(<<'.,.,', 'bnf.y.rb', 505)
   def _reduce_142(val, _values, result)
                         val[0].set_type( ArrayType.new( val[2] ) )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 508)
+module_eval(<<'.,.,', 'bnf.y.rb', 510)
   def _reduce_143(val, _values, result)
                         val[0].set_type( ArrayType.new )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 513)
+module_eval(<<'.,.,', 'bnf.y.rb', 515)
   def _reduce_144(val, _values, result)
                         val[0].set_type( FuncType.new( val[2] ) )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 519)
+module_eval(<<'.,.,', 'bnf.y.rb', 521)
   def _reduce_145(val, _values, result)
                         Generator.warning( "W5010 need 'void' for no parameter"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 526)
+module_eval(<<'.,.,', 'bnf.y.rb', 528)
   def _reduce_146(val, _values, result)
      result = PtrType.new
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 529)
+module_eval(<<'.,.,', 'bnf.y.rb', 531)
   def _reduce_147(val, _values, result)
                         result = PtrType.new
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 534)
+module_eval(<<'.,.,', 'bnf.y.rb', 536)
   def _reduce_148(val, _values, result)
                         val[1].set_type(PtrType.new)
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 539)
+module_eval(<<'.,.,', 'bnf.y.rb', 541)
   def _reduce_149(val, _values, result)
                         ptrtype = PtrType.new
 …
 # reduce 151 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 553)
+module_eval(<<'.,.,', 'bnf.y.rb', 555)
   def _reduce_152(val, _values, result)
      result = ParamList.new( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 556)
+module_eval(<<'.,.,', 'bnf.y.rb', 558)
   def _reduce_153(val, _values, result)
                         val[0].add_param( val[2] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 566)
+module_eval(<<'.,.,', 'bnf.y.rb', 568)
   def _reduce_154(val, _values, result)
                         val[2].set_kind( :PARAMETER )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 575)
+module_eval(<<'.,.,', 'bnf.y.rb', 577)
   def _reduce_155(val, _values, result)
                         Generator.error( "G1001 need specifier for \'$1\'" , val[1].get_name )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 580)
+module_eval(<<'.,.,', 'bnf.y.rb', 582)
   def _reduce_156(val, _values, result)
                         unless val[0].instance_of?( VoidType ) then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 588)
+module_eval(<<'.,.,', 'bnf.y.rb', 590)
   def _reduce_157(val, _values, result)
                         unless val[1].instance_of?( VoidType ) then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 595)
+module_eval(<<'.,.,', 'bnf.y.rb', 597)
   def _reduce_158(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 599)
+module_eval(<<'.,.,', 'bnf.y.rb', 601)
   def _reduce_159(val, _values, result)
      result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 601)
+module_eval(<<'.,.,', 'bnf.y.rb', 603)
   def _reduce_160(val, _values, result)
      result = result + val[2]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 604)
+module_eval(<<'.,.,', 'bnf.y.rb', 606)
   def _reduce_161(val, _values, result)
      result = [ [:IN]  ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 605)
+module_eval(<<'.,.,', 'bnf.y.rb', 607)
   def _reduce_162(val, _values, result)
      result = [ [:OUT] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 606)
+module_eval(<<'.,.,', 'bnf.y.rb', 608)
   def _reduce_163(val, _values, result)
      result = [ [:INOUT] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 607)
+module_eval(<<'.,.,', 'bnf.y.rb', 609)
   def _reduce_164(val, _values, result)
      result = [ [:SEND,   val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 608)
+module_eval(<<'.,.,', 'bnf.y.rb', 610)
   def _reduce_165(val, _values, result)
      result = [ [:RECEIVE,val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 609)
+module_eval(<<'.,.,', 'bnf.y.rb', 611)
   def _reduce_166(val, _values, result)
      result = [ [:STRING,nil] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 610)
+module_eval(<<'.,.,', 'bnf.y.rb', 612)
   def _reduce_167(val, _values, result)
      result = [ [:STRING,  val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 611)
+module_eval(<<'.,.,', 'bnf.y.rb', 613)
   def _reduce_168(val, _values, result)
      result = [ [:SIZE_IS, val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 614)
+module_eval(<<'.,.,', 'bnf.y.rb', 616)
   def _reduce_169(val, _values, result)
                         result = [ [:SIZE_IS,val[2]], [:MAX_IS, val[4]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 616)
+module_eval(<<'.,.,', 'bnf.y.rb', 618)
   def _reduce_170(val, _values, result)
      result = [ [:COUNT_IS,val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 617)
+module_eval(<<'.,.,', 'bnf.y.rb', 619)
   def _reduce_171(val, _values, result)
      result = [ [:NULLABLE] ]
 …
 # reduce 172 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 623)
+module_eval(<<'.,.,', 'bnf.y.rb', 625)
   def _reduce_173(val, _values, result)
                         if val[1] then
 …
 # reduce 176 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 640)
+module_eval(<<'.,.,', 'bnf.y.rb', 642)
   def _reduce_177(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 643)
+module_eval(<<'.,.,', 'bnf.y.rb', 645)
   def _reduce_178(val, _values, result)
                         Generator.error( "G1004 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 648)
+module_eval(<<'.,.,', 'bnf.y.rb', 650)
   def _reduce_179(val, _values, result)
                         Generator.error( "G1005 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 653)
+module_eval(<<'.,.,', 'bnf.y.rb', 655)
   def _reduce_180(val, _values, result)
                         Generator.error( "G1006 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 658)
+module_eval(<<'.,.,', 'bnf.y.rb', 660)
   def _reduce_181(val, _values, result)
                         Generator.error( "G1007 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 663)
+module_eval(<<'.,.,', 'bnf.y.rb', 665)
   def _reduce_182(val, _values, result)
                         Generator.error( "G1008 impossible function type"  )
 …
 # reduce 183 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 669)
+module_eval(<<'.,.,', 'bnf.y.rb', 671)
   def _reduce_184(val, _values, result)
                         Generator.warning( "W5011 need 'void' for no parameter"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 675)
+module_eval(<<'.,.,', 'bnf.y.rb', 677)
   def _reduce_185(val, _values, result)
                         val[0].set_type( FuncType.new( val[2] ) )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 682)
+module_eval(<<'.,.,', 'bnf.y.rb', 684)
   def _reduce_186(val, _values, result)
      result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 684)
+module_eval(<<'.,.,', 'bnf.y.rb', 686)
   def _reduce_187(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 686)
+module_eval(<<'.,.,', 'bnf.y.rb', 688)
   def _reduce_188(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 689)
+module_eval(<<'.,.,', 'bnf.y.rb', 691)
   def _reduce_189(val, _values, result)
      result = C_EXP.new( val[2] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 694)
+module_eval(<<'.,.,', 'bnf.y.rb', 696)
   def _reduce_190(val, _values, result)
                         result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 698)
+module_eval(<<'.,.,', 'bnf.y.rb', 700)
   def _reduce_191(val, _values, result)
                         val[0] << val[2]
 …
 # reduce 195 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 716)
+  def _reduce_196(val, _values, result)
+# reduce 196 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 719)
+  def _reduce_197(val, _values, result)
                         obj = val[3]
                         if obj.kind_of?( Cell ) || obj.kind_of?( Signature ) || obj.kind_of?( Celltype ) || obj.kind_of?( CompositeCelltype )then
 …
 .,.,
-# reduce 197 omitted
 # reduce 198 omitted
 …
 # reduce 210 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 745)
+  def _reduce_211(val, _values, result)
+# reduce 211 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 748)
+  def _reduce_212(val, _values, result)
      Generator.add_statement_specifier val[0]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 747)
   def _reduce_212(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 750)
+  def _reduce_213(val, _values, result)
      Generator.add_statement_specifier val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 751)
   def _reduce_213(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 754)
+  def _reduce_214(val, _values, result)
      result = [ :ALLOCATOR, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 753)
   def _reduce_214(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 756)
+  def _reduce_215(val, _values, result)
      result = [ :CALLBACK ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 755)
   def _reduce_215(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 758)
+  def _reduce_216(val, _values, result)
      result = [ :CONTEXT, val[2].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 757)
   def _reduce_216(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 760)
+  def _reduce_217(val, _values, result)
      result = [ :DEVIATE ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 759)
   def _reduce_217(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 762)
+  def _reduce_218(val, _values, result)
      result = [ :ID, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 761)
   def _reduce_218(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 764)
+  def _reduce_219(val, _values, result)
      result = [ :PROTOTYPE ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 763)
   def _reduce_219(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 766)
+  def _reduce_220(val, _values, result)
      result = [ :RESTRICT, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 764)
   def _reduce_220(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 767)
+  def _reduce_221(val, _values, result)
      result = [:SINGLETON]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 765)
   def _reduce_221(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 768)
+  def _reduce_222(val, _values, result)
      result = [:IDX_IS_ID]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 766)
   def _reduce_222(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 769)
+  def _reduce_223(val, _values, result)
      result = [:ACTIVE]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 768)
-  def _reduce_223(val, _values, result)
-     result = [:GENERATE, val[2].val, val[4].val]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 771)
   def _reduce_224(val, _values, result)
+     result = [:GENERATE, val[2].val, val[4].val]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 774)
+  def _reduce_225(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 772)
   def _reduce_225(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 775)
+  def _reduce_226(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 776)
   def _reduce_226(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 779)
+  def _reduce_227(val, _values, result)
       result = [ :NORMAL_ALLOC, val[0], nil, val[2], val[4], val[6] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 778)
   def _reduce_227(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 781)
+  def _reduce_228(val, _values, result)
       result = [ :NORMAL_ALLOC, val[0], val[2], val[5], val[7], val[9] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 787)
   def _reduce_228(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 790)
+  def _reduce_229(val, _values, result)
         result = [val[0]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 789)
   def _reduce_229(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 792)
+  def _reduce_230(val, _values, result)
         result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 793)
   def _reduce_230(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 796)
+  def _reduce_231(val, _values, result)
         result = [ val[0].val, nil, val[3] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 795)
   def _reduce_231(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 798)
+  def _reduce_232(val, _values, result)
         result = [ val[0].val, val[2].val, val[5] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 799)
+  def _reduce_232(val, _values, result)
+        result = [val[0].val]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 801)
+module_eval(<<'.,.,', 'bnf.y.rb', 802)
   def _reduce_233(val, _values, result)
         result << val[2].val
     result
   end
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 806)
+        result = [val[0]]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 804)
   def _reduce_234(val, _values, result)
+        result << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 809)
+  def _reduce_235(val, _values, result)
                         val[0].each { |decl|
                                 decl.set_kind( :CONSTANT )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 816)
   def _reduce_235(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 819)
+  def _reduce_236(val, _values, result)
                         @@import_C = true
                         Import_C.new( val[2] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 822)
   def _reduce_236(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 825)
+  def _reduce_237(val, _values, result)
                         @@import_C = true
                         Import_C.new( val[2], val[4] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 829)
   def _reduce_237(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 832)
+  def _reduce_238(val, _values, result)
      Import.new( val[2] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 831)
   def _reduce_238(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 834)
+  def _reduce_239(val, _values, result)
      Import.new( val[2], true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 836)
   def _reduce_239(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 839)
+  def _reduce_240(val, _values, result)
      Generate.new( val[2].val, val[4], val[6] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 841)
   def _reduce_240(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 844)
+  def _reduce_241(val, _values, result)
                         val[2].each{ |i|       # i:Decl
                                 i.set_kind( :TYPEDEF )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 851)
   def _reduce_241(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 854)
+  def _reduce_242(val, _values, result)
                         val[5].each{ |i|       # i:Decl
                                 i.set_kind( :TYPEDEF )
 …
 .,.,
-# reduce 242 omitted
 # reduce 243 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 868)
+  def _reduce_244(val, _values, result)
+# reduce 244 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 871)
+  def _reduce_245(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 870)
   def _reduce_245(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 873)
+  def _reduce_246(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 874)
   def _reduce_246(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 877)
+  def _reduce_247(val, _values, result)
     val[1].end_of_parse
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 878)
   def _reduce_247(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 881)
+  def _reduce_248(val, _values, result)
     result = Namespace.new(val[0].val)
     result
 …
 .,.,
-# reduce 248 omitted
 # reduce 249 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 886)
+  def _reduce_250(val, _values, result)
+# reduce 250 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 889)
+  def _reduce_251(val, _values, result)
      result = NamespacePath.new( val[0].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 887)
   def _reduce_251(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 890)
+  def _reduce_252(val, _values, result)
      result = NamespacePath.new( val[1].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 889)
   def _reduce_252(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 892)
+  def _reduce_253(val, _values, result)
      result = val[0].append!( val[2].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 894)
   def _reduce_253(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 897)
+  def _reduce_254(val, _values, result)
      result = val[1].end_of_parse( val[3] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 898)
   def _reduce_254(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 901)
+  def _reduce_255(val, _values, result)
     result = Signature.new( val[0].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 904)
   def _reduce_255(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 907)
+  def _reduce_256(val, _values, result)
      result = NamedList.new( nil, "function" )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 906)
   def _reduce_256(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 909)
+  def _reduce_257(val, _values, result)
      result = val[0].add_item( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 911)
   def _reduce_257(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 914)
+  def _reduce_258(val, _values, result)
                         # val[1]: Decl
                         if val[1].is_function? then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 924)
   def _reduce_258(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 927)
+  def _reduce_259(val, _values, result)
                         if val[4].is_function? then
                                 result = FuncHead.new( val[4], val[3], true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 937)
   def _reduce_259(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 940)
+  def _reduce_260(val, _values, result)
                         val[1].end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 943)
   def _reduce_260(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 946)
+  def _reduce_261(val, _values, result)
      result = Celltype.new(val[0].val)
     result
 …
 .,.,
-# reduce 261 omitted
 # reduce 262 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 952)
+  def _reduce_263(val, _values, result)
+# reduce 263 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 955)
+  def _reduce_264(val, _values, result)
                         if val[0].kind_of? Port then
                                 Celltype.new_port( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 958)
   def _reduce_264(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 961)
+  def _reduce_265(val, _values, result)
                         if val[3].kind_of? Port then
                                 val[3].set_specifier val[1]  # 設定順序あり
 …
 .,.,
-# reduce 265 omitted
 # reduce 266 omitted
 …
 # reduce 269 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 977)
+  def _reduce_270(val, _values, result)
+# reduce 270 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 980)
+  def _reduce_271(val, _values, result)
      result = [ val[0] ]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 979)
-  def _reduce_271(val, _values, result)
-     result << val[2]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 982)
   def _reduce_272(val, _values, result)
+     result << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 985)
+  def _reduce_273(val, _values, result)
      result = [ :INLINE ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 983)
   def _reduce_273(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 986)
+  def _reduce_274(val, _values, result)
      result = [ :ALLOCATOR, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 984)
   def _reduce_274(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 987)
+  def _reduce_275(val, _values, result)
      result = [ :OPTIONAL ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 985)
   def _reduce_275(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 988)
+  def _reduce_276(val, _values, result)
      result = [ :REF_DESC ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 986)
   def _reduce_276(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 989)
+  def _reduce_277(val, _values, result)
      result = [ :DYNAMIC ]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 987)
-  def _reduce_277(val, _values, result)
-     result = [ :OMIT ]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 990)
   def _reduce_278(val, _values, result)
      result = [ val[0] ]
     result
   end
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 991)
+     result = [ :OMIT ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 993)
   def _reduce_279(val, _values, result)
      result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 992)
+module_eval(<<'.,.,', 'bnf.y.rb', 994)
   def _reduce_280(val, _values, result)
      result << val[2]
     result
   end
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 993)
+     result = [ val[0] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 995)
   def _reduce_281(val, _values, result)
      result << val[2]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 997)
+module_eval(<<'.,.,', 'bnf.y.rb', 996)
   def _reduce_282(val, _values, result)
+     result << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1000)
+  def _reduce_283(val, _values, result)
       result = [ :INTERNAL_ALLOC, val[0].val, val[2].val, val[4] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 999)
   def _reduce_283(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1002)
+  def _reduce_284(val, _values, result)
       result = [ :RELAY_ALLOC, val[0].val, val[2].val, val[4] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1005)
   def _reduce_284(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1008)
+  def _reduce_285(val, _values, result)
      result = Port.new( val[2].val, val[1], val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1007)
   def _reduce_285(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1010)
+  def _reduce_286(val, _values, result)
      result = Port.new( val[2].val, val[1], val[0], "[]" )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1009)
   def _reduce_286(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1012)
+  def _reduce_287(val, _values, result)
      result = Port.new(val[2].val, val[1], val[0], val[4])
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1011)
-  def _reduce_287(val, _values, result)
-     result = Port.new( val[2].val, val[1], val[0], nil, val[4], val[ 6 ].val )
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 1014)
   def _reduce_288(val, _values, result)
+     result = Port.new( val[2].val, val[1], val[0], nil, val[4], val[ 6 ].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1017)
+  def _reduce_289(val, _values, result)
      result = :CALL
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1015)
   def _reduce_289(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1018)
+  def _reduce_290(val, _values, result)
      result = :ENTRY
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1019)
   def _reduce_290(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1022)
+  def _reduce_291(val, _values, result)
      result = val[0]
     result
 …
 .,.,
-# reduce 291 omitted
 # reduce 292 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1031)
+  def _reduce_293(val, _values, result)
+# reduce 293 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1034)
+  def _reduce_294(val, _values, result)
      result = nil
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1035)
   def _reduce_294(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1038)
+  def _reduce_295(val, _values, result)
      Celltype.new_attribute( val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1037)
   def _reduce_295(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1040)
+  def _reduce_296(val, _values, result)
      Celltype.new_attribute( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1043)
   def _reduce_296(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1046)
+  def _reduce_297(val, _values, result)
                         val[0].each{ |i|       # i:Decl
                                 i.set_kind( :ATTRIBUTE )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1051)
   def _reduce_297(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1054)
+  def _reduce_298(val, _values, result)
                         val[3].each{ |i|       # i:Decl
                                 i.set_kind( :ATTRIBUTE )   # 設定順序あり
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1060)
   def _reduce_298(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1063)
+  def _reduce_299(val, _values, result)
      result = [:OMIT]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1061)
   def _reduce_299(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1064)
+  def _reduce_300(val, _values, result)
      result = [:SIZE_IS,val[2]]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1062)
-  def _reduce_300(val, _values, result)
-      result = [:CHOICE,val[3]]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 1065)
   def _reduce_301(val, _values, result)
+      result = [:CHOICE,val[3]]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1068)
+  def _reduce_302(val, _values, result)
       result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1066)
   def _reduce_302(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1069)
+  def _reduce_303(val, _values, result)
       result = [ val[0] ]
     result
 …
 .,.,
 # reduce 303 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1074)
   def _reduce_304(val, _values, result)
+# reduce 304 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1077)
+  def _reduce_305(val, _values, result)
      result = nil
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1078)
   def _reduce_305(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1081)
+  def _reduce_306(val, _values, result)
      Celltype.new_var( val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1080)
   def _reduce_306(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1083)
+  def _reduce_307(val, _values, result)
      Celltype.new_var( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1085)
   def _reduce_307(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1088)
+  def _reduce_308(val, _values, result)
                         val[0].each{ |i|       # i:Decl
                                 i.set_kind( :VAR )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1092)
   def _reduce_308(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1095)
+  def _reduce_309(val, _values, result)
                         val[3].each{ |i|       # i:Decl
                                 i.set_kind( :VAR )   # 設定順序あり
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1101)
   def _reduce_309(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1104)
+  def _reduce_310(val, _values, result)
      result = [:SIZE_IS,val[2]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1107)
   def _reduce_310(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1110)
+  def _reduce_311(val, _values, result)
                         Celltype.new_require( val[1], val[3] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1111)
   def _reduce_311(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1114)
+  def _reduce_312(val, _values, result)
                         Celltype.new_require( val[3], val[5], val[1].val )
 …
 .,.,
 # reduce 312 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1119)
   def _reduce_313(val, _values, result)
+# reduce 313 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1122)
+  def _reduce_314(val, _values, result)
      Factory.set_f_celltype( false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1120)
   def _reduce_314(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1123)
+  def _reduce_315(val, _values, result)
      Factory.set_f_celltype( true )
     result
 …
 .,.,
-# reduce 315 omitted
 # reduce 316 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1128)
+  def _reduce_317(val, _values, result)
+# reduce 317 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1131)
+  def _reduce_318(val, _values, result)
      Factory.new( val[0].val, val[2], val[4], nil    )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1130)
   def _reduce_318(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1133)
+  def _reduce_319(val, _values, result)
      Factory.new( val[0].val, val[2], val[4], val[6] )
     result
 …
 .,.,
 # reduce 319 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1137)
   def _reduce_320(val, _values, result)
+# reduce 320 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1140)
+  def _reduce_321(val, _values, result)
      result = [ [ :IDENTIFIER, val[0].val ] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1139)
   def _reduce_321(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1142)
+  def _reduce_322(val, _values, result)
      result << [ :IDENTIFIER, val[2].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1141)
   def _reduce_322(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1144)
+  def _reduce_323(val, _values, result)
      result = [ [ :STRING_LITERAL, val[0].val ] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1143)
   def _reduce_323(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1146)
+  def _reduce_324(val, _values, result)
      result << [ :STRING_LITERAL, val[2].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1148)
   def _reduce_324(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1151)
+  def _reduce_325(val, _values, result)
      Cell.new_def
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1150)
   def _reduce_325(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1153)
+  def _reduce_326(val, _values, result)
      result = Cell.end_of_parse true
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1152)
   def _reduce_326(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1155)
+  def _reduce_327(val, _values, result)
      result = Cell.end_of_parse false
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1156)
   def _reduce_327(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1159)
+  def _reduce_328(val, _values, result)
      result = Cell.new(val[0])
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1160)
   def _reduce_328(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1163)
+  def _reduce_329(val, _values, result)
      result = Cell.set_name(val[0].val)
     result
 …
 .,.,
-# reduce 329 omitted
 # reduce 330 omitted
 # reduce 331 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1169)
+  def _reduce_332(val, _values, result)
+# reduce 332 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1172)
+  def _reduce_333(val, _values, result)
      val[3].set_specifier_list( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1171)
   def _reduce_333(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1174)
+  def _reduce_334(val, _values, result)
      val[0].set_specifier_list( [] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1175)
   def _reduce_334(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1178)
+  def _reduce_335(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1177)
   def _reduce_335(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1180)
+  def _reduce_336(val, _values, result)
      result = [val[0]]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1181)
-  def _reduce_336(val, _values, result)
-     result = [ :THROUGH, val[2], val[4] ]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 1184)
   def _reduce_337(val, _values, result)
+     result = [ :THROUGH, val[2], val[4] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1187)
+  def _reduce_338(val, _values, result)
      result = val[0]
     result
 …
 .,.,
 # reduce 338 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1198)
   def _reduce_339(val, _values, result)
+# reduce 339 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1201)
+  def _reduce_340(val, _values, result)
                         result = Join.new( val[0].val,  -1, val[4] )
                         Cell.new_join( result, true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1203)
   def _reduce_340(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1206)
+  def _reduce_341(val, _values, result)
                         result = Join.new( val[0].val, val[2], val[5] )
                         Cell.new_join( result, true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1208)
   def _reduce_341(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1211)
+  def _reduce_342(val, _values, result)
                         result = Join.new( val[0].val, nil, val[2] )
                         Cell.new_join( result, true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1213)
   def _reduce_342(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1216)
+  def _reduce_343(val, _values, result)
                         result = Join.new( val[0].val, nil, [ :COMPOSITE, val[4] ] )
                         Cell.new_join( result, true )
 …
 .,.,
 # reduce 343 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1224)
   def _reduce_344(val, _values, result)
+# reduce 344 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1227)
+  def _reduce_345(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, nil, val[2], val[4].val )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1230)
   def _reduce_345(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1233)
+  def _reduce_346(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, nil, val[2], val[4].val, val[6] )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1236)
   def _reduce_346(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1239)
+  def _reduce_347(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, val[2], val[5], val[7].val )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1242)
   def _reduce_347(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1245)
+  def _reduce_348(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, val[2], val[5], val[7].val, val[9] )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 # reduce 348 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1254)
   def _reduce_349(val, _values, result)
+# reduce 349 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1257)
+  def _reduce_350(val, _values, result)
                         CompositeCelltype.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1260)
   def _reduce_350(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1263)
+  def _reduce_351(val, _values, result)
      result = CompositeCelltype.new(val[0].val)
     result
 …
 .,.,
-# reduce 351 omitted
 # reduce 352 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1269)
+  def _reduce_353(val, _values, result)
+# reduce 353 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1272)
+  def _reduce_354(val, _values, result)
                         if val[0].kind_of?( Port ) then
                                 CompositeCelltype.new_port( val[0] )   # 遅延して登録
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1275)
   def _reduce_354(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1278)
+  def _reduce_355(val, _values, result)
                         if val[3].kind_of?( Port ) then
                                 # port 以外 val[3] に有効な値が入っていないので、以下のメソッドを適用できない
 …
 .,.,
-# reduce 355 omitted
 # reduce 356 omitted
 …
 # reduce 358 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1299)
+  def _reduce_359(val, _values, result)
+# reduce 359 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1302)
+  def _reduce_360(val, _values, result)
                         Generator.add_statement_specifier val[0]
                         result = [ val[0] ]
 …
 .,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1304)
+  def _reduce_360(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1307)
+  def _reduce_361(val, _values, result)
+                        Generator.add_statement_specifier val[2]
+                        result = val[0] << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1312)
+  def _reduce_362(val, _values, result)
      result = [ :ALLOCATOR, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1305)
   def _reduce_361(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1313)
+  def _reduce_363(val, _values, result)
      result = [ :OMIT ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1306)
   def _reduce_362(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1314)
+  def _reduce_364(val, _values, result)
      result = [ :OPTIONAL ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1307)
   def _reduce_363(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1315)
+  def _reduce_365(val, _values, result)
      result = [ :REF_DESC ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1308)
   def _reduce_364(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1316)
+  def _reduce_366(val, _values, result)
      result = [ :DYNAMIC ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1313)
   def _reduce_365(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1321)
+  def _reduce_367(val, _values, result)
                         # CompositeCelltype.new_port( val[0] )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1320)
   def _reduce_366(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1328)
+  def _reduce_368(val, _values, result)
      result = nil
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1324)
   def _reduce_367(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1332)
+  def _reduce_369(val, _values, result)
      CompositeCelltype.new_attribute( val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1326)
   def _reduce_368(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1334)
+  def _reduce_370(val, _values, result)
      CompositeCelltype.new_attribute( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1331)
   def _reduce_369(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1339)
+  def _reduce_371(val, _values, result)
      Cell.new_def
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1333)
   def _reduce_370(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1341)
+  def _reduce_372(val, _values, result)
      result = Cell.end_of_parse true
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1335)
   def _reduce_371(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1343)
+  def _reduce_373(val, _values, result)
      result = Cell.end_of_parse false
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1340)
   def _reduce_372(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1348)
+  def _reduce_374(val, _values, result)
      Cell.new(val[0],true)
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1344)
   def _reduce_373(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1352)
+  def _reduce_375(val, _values, result)
      Cell.set_name(val[0].val)
     result
 …
 .,.,
-# reduce 374 omitted
-# reduce 375 omitted
 # reduce 376 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1354)
+  def _reduce_377(val, _values, result)
+# reduce 377 omitted
+# reduce 378 omitted
+# reduce 379 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1363)
+  def _reduce_380(val, _values, result)
         Cell.external_join( val[0].val, val[4].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1356)
   def _reduce_378(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1365)
+  def _reduce_381(val, _values, result)
         Cell.external_join( val[0].val, val[2].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1363)
   def _reduce_379(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1372)
+  def _reduce_382(val, _values, result)
                         CompositeCelltype.new_join( val[0].val,
                                                 val[2].val, val[4].val, :ENTRY )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1368)
   def _reduce_380(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1377)
+  def _reduce_383(val, _values, result)
                         CompositeCelltype.new_join( val[2].val,
                                                 val[4].val, val[6].val, :ENTRY )
 …
 .,.,
 # reduce 381 omitted
 # reduce 382 omitted
 # reduce 383 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1384)
   def _reduce_384(val, _values, result)
+# reduce 384 omitted
+# reduce 385 omitted
+# reduce 386 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1393)
+  def _reduce_387(val, _values, result)
      Region.end_of_parse
     result
   end
 .,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1386)
-  def _reduce_385(val, _values, result)
-     Region.end_of_parse
-    result
-  end
-.,.,
-# reduce 386 omitted
-# reduce 387 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1395)
   def _reduce_388(val, _values, result)
+     Region.end_of_parse
+    result
+  end
+.,.,
+# reduce 389 omitted
+# reduce 390 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1404)
+  def _reduce_391(val, _values, result)
      Region.new_in_through( val[2].val, val[4].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1397)
   def _reduce_389(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1406)
+  def _reduce_392(val, _values, result)
      Region.new_in_through
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1399)
   def _reduce_390(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1408)
+  def _reduce_393(val, _values, result)
      Region.new_out_through( val[2].val, val[4].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1401)
   def _reduce_391(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1410)
+  def _reduce_394(val, _values, result)
      Region.new_out_through()
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1403)
   def _reduce_392(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1412)
+  def _reduce_395(val, _values, result)
      Region.new_to_through( val[2], val[4].val, val[6].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1405)
   def _reduce_393(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1414)
+  def _reduce_396(val, _values, result)
      Region.new_to_through( val[2], nil, nil )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1407)
   def _reduce_394(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1416)
+  def _reduce_397(val, _values, result)
      Region.set_type( :NODE )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1409)
   def _reduce_395(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1418)
+  def _reduce_398(val, _values, result)
      Region.set_type( :LINKUNIT )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1411)
   def _reduce_396(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1420)
+  def _reduce_399(val, _values, result)
      Region.set_domain( val[2].val, val[4] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1413)
   def _reduce_397(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1422)
+  def _reduce_400(val, _values, result)
      Region.set_type( :CLASS, val[2].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1417)
   def _reduce_398(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1426)
+  def _reduce_401(val, _values, result)
      result = Region.new( val[0].val )
     result
 …
 .,.,
-# reduce 399 omitted
-# reduce 400 omitted
-# reduce 401 omitted
 # reduce 402 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1428)
+  def _reduce_403(val, _values, result)
+# reduce 403 omitted
+# reduce 404 omitted
+# reduce 405 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1437)
+  def _reduce_406(val, _values, result)
                         obj = val[3]
                         if obj.kind_of?( Cell ) then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1450)
   def _reduce_404(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1459)
+  def _reduce_407(val, _values, result)
      result = [ val[0].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1455)
   def _reduce_405(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1464)
+  def _reduce_408(val, _values, result)
      set_in_specifier
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1457)
   def _reduce_406(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1466)
+  def _reduce_409(val, _values, result)
      unset_in_specifier
     result
 …
 .,.,
-# reduce 407 omitted
-# reduce 408 omitted
-# reduce 409 omitted
 # reduce 410 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1471)
+  def _reduce_411(val, _values, result)
+# reduce 411 omitted
+# reduce 412 omitted
+# reduce 413 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1480)
+  def _reduce_414(val, _values, result)
                         TECSGEN::Cell_location.new( val[1], val[3], val[5], val[7], val[9], val[12] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1477)
   def _reduce_412(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1486)
+  def _reduce_415(val, _values, result)
                         result = val[0] << val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1480)
   def _reduce_413(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1489)
+  def _reduce_416(val, _values, result)
      result = []
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1484)
   def _reduce_414(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1493)
+  def _reduce_417(val, _values, result)
      result = [ val[0], val[2], val[3] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1489)
   def _reduce_415(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1498)
+  def _reduce_418(val, _values, result)
                 TECSGEN::Join_location.new( val[2], val[4], val[6], val[8], val[11] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1495)
   def _reduce_416(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1504)
+  def _reduce_419(val, _values, result)
                 result = val[0] << [ val[1], val[3] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1497)
   def _reduce_417(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1506)
+  def _reduce_420(val, _values, result)
      result = []
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1510)
+  def _reduce_421(val, _values, result)
+     TOOL_INFO.new( val[2].to_sym, val[4] )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1511)
+  def _reduce_422(val, _values, result)
+      result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1512)
+  def _reduce_423(val, _values, result)
+     result = { val[0].to_sym => val[2] }
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1514)
+  def _reduce_424(val, _values, result)
+     val[0][ val[2].to_sym ] = val[4]
+    result
+  end
+.,.,
+# reduce 425 omitted
+# reduce 426 omitted
+# reduce 427 omitted
+# reduce 428 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1516)
+  def _reduce_429(val, _values, result)
+     result=val[0].val
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1516)
+  def _reduce_430(val, _values, result)
+     result=val[0].val
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1517)
+  def _reduce_431(val, _values, result)
+     result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1518)
+  def _reduce_432(val, _values, result)
+     result = []
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1519)
+  def _reduce_433(val, _values, result)
+     result = [ val[0] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1520)
+  def _reduce_434(val, _values, result)
+     val[0] << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1521)
+  def _reduce_435(val, _values, result)
+     result = val[0].val.gsub!( /\"(.*)\"/, "\\1" )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1522)
+  def _reduce_436(val, _values, result)
+     result = val[0].val.to_i
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1523)
+  def _reduce_437(val, _values, result)
+     result = val[0].val.to_f
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1524)
+  def _reduce_438(val, _values, result)
+     result = - val[0].val.to_i
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1525)
+  def _reduce_439(val, _values, result)
+     result = - val[0].val.to_f
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1526)
+  def _reduce_440(val, _values, result)
+     result = val[0].val.to_i
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1527)
+  def _reduce_441(val, _values, result)
+     result = val[0].val.to_f
     result
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/bnf.y.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
         | STRUCT
+                {
+                        result = StructType.new()
+                        # tag が無い場合、内部名を与える
+                        result = StructType.new( :"TAG__#{@@no_struct_tag_num}__" )
+                        @@no_struct_tag_num += 1
                         StructType.set_define( true )
+                }
 …
         : component_description specified_statement
         | component_description location_information
+        | component_description tool_info
+        |
 …
         | import
         | import_C
         | signature_plugin
+        | generate_statement
         | error   # エラー回復ポイント
 …
 region_name_list
         : IDENTIFIER
                 {       result = [val[0].val]           }
         | region_name_list ',' IDENTIFIER
                 {       result << val[2].val            }
+        : namespace_identifier
+                {       result = [val[0]]               }
+        | region_name_list ',' namespace_identifier
+                {       result << val[2]                }
 const_statement
 …
                 { Import.new( val[2], true ) }
+signature_plugin
+generate_statement
 #        : GENERATE '(' plugin_name ',' namespace_identifier ',' STRING_LITERAL ')' ';'  #1ok signature plugin
         : GENERATE '(' plugin_name ',' namespace_identifier ',' plugin_arg ')' ';'  #1ok signature plugin
 …
                         result = [ val[0] ]
+                }
+        | composite_celltype_statement_specifier_list ',' composite_celltype_statement_specifier
+                {
+                        Generator.add_statement_specifier val[2]
+                        result = val[0] << val[2]
+                }
 composite_celltype_statement_specifier
 …
         | internal_join_list specified_join
         | internal_join_list external_join
+        | internal_join_list reverse_join
 external_join  # cell 内に記述する呼び口の外部結合
 …
+#  JSON object
+tool_info        : TOOL_INFO '(' JSON_string ')' JSON_object { TOOL_INFO.new( val[2].to_sym, val[4] ) }
+JSON_object      : '{' JSON_property_list   '}'              {  result = val[1] }
+JSON_property_list : JSON_string ':' JSON_value              { result = { val[0].to_sym => val[2] } }
+                 | JSON_property_list ',' JSON_string ':' JSON_value
+                                                             { val[0][ val[2].to_sym ] = val[4] }
+JSON_value       : JSON_string | JSON_number | JSON_object | JSON_array
+                 | TRUE { result=val[0].val } | FALSE  { result=val[0].val } # JSON_NULL # null not suppoted
+JSON_array       : '[' JSON_array_list ']'                   { result = val[1]  }
+                 | '['  ']'                                  { result = []  }
+JSON_array_list  : JSON_value                                { result = [ val[0] ] }
+                 | JSON_array_list ',' JSON_value            { val[0] << val[2] }
+JSON_string      : STRING_LITERAL                            { result = val[0].val.gsub!( /\"(.*)\"/, "\\1" ) }
+JSON_number      : INTEGER_CONSTANT                          { result = val[0].val.to_i }
+                 | FLOATING_CONSTANT                         { result = val[0].val.to_f }
+                 | '-' INTEGER_CONSTANT                      { result = - val[0].val.to_i }
+                 | '-' FLOATING_CONSTANT                     { result = - val[0].val.to_f }
+                 | '+' INTEGER_CONSTANT                      { result = val[0].val.to_i }
+                 | '+' FLOATING_CONSTANT                     { result = val[0].val.to_f }
 end
 …
     'import_C' => :IMPORT_C,
     'generate' => :GENERATE,
+    '__tool_info__' => :TOOL_INFO,
     # types
 …
   # すべての構文解析が完了した
   @@b_end_all_parse = false
+  # tag なし struct
+  @@no_struct_tag_num = 0
   def self.parse( file_name, plugin = nil, b_reuse = false )
 …
                   string += line
                   # この位置では error メソッドは使えない (token 読出し前)
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 end
 …
                   b_in_string = true
                   # この位置では error メソッドは使えない (token 読出し前) # mikan cdl_error ではない
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 # 山括弧で囲まれた文字列
+                when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                # when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                when /\A<(?:[^>\\]|\\.)*>/   # これはうまく行くようだ
                   @q << [:AB_STRING_LITERAL, Token.new($&, file, lineno, col)]
                 # 行コメント
 …
   @@n_error = 0
   @@n_warning = 0
+  @@n_info = 0
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
 …
       end
       if locale then
         Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: error: #{msg}"
       else
         Console.puts "error: #{msg}"
 …
       end
       if locale then
         Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: warning: #{msg}"
       else
         Console.puts "warning: #{msg}"
 …
   end
+  # このメソッドは構文解析、意味解析からのみ呼出し可
+  def self.info( msg, *arg )
+    locale = nil
+    self.info2( locale, msg, *arg )
+  end
+  def self.info2( locale, msg, *arg )
+    @@n_info += 1
+    msg = TECSMsg.get_info_message( msg )
+    # $1, $2, ... を arg で置換
+    count = 1
+    arg.each{ |a|
+      str = TECSIO.str_code_convert( msg, a.to_s )
+      msg.sub!( /\$#{count}/, str )
+      count += 1
+    }
+    # import_C の中でのウォーニング？
+    if @@import_C then
+      C_parser.info( msg )
+    else
+      if @@b_end_all_parse == false || locale == nil then
+        locale = @@current_locale[ @@generator_nest ]
+      end
+      if locale then
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: info: #{msg}"
+      else
+        Console.puts "info: #{msg}"
+      end
+    end
+  end
   def self.get_n_error
     @@n_error
 …
   end
+  def self.get_n_info
+    @@n_info
+  end
   def self.get_nest
     @@generator_nest
+  end
+  def self.parsing_C?
+    @@import_C
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/componentobj.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  @b_checked_as_allocator_signature:: bool:  アロケータシグニチャとしてチェック済み
 #  @b_empty:: Bool: 空(関数が一つもない状態)
+#  @descriptor_list:: nil | { Signature => ParamDecl }  最後の ParamDecl しか記憶しないことに注意
+#  @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+  include PluginModule
   @@nest_stack_index = -1
 …
     @b_empty = false
     @b_checked_as_allocator_signature = false
+    @descriptor_list = nil
+    @generate = nil
     @@current_object = self
     set_specifier_list( Generator.get_statement_specifier )
 …
     function_head_list.get_items.each{ |f|
       @func_name_to_id[ f.get_name ] = id
+      f.set_owner self
       id += 1
+    }
 …
     end
+    # set_descriptor_list ##
+    if @generate then
+      signature_plugin
+    end
     @@current_object = nil
     return self
   end
 …
       when :DEVIATE
         @b_deviate = true
+      when :GENERATE
+        if @generate then
+          cdl_error( "S9999 generate specifier duplicate"  )
+        end
+        @generate = [ s[1], s[2] ] # [ PluginName, "option" ]
       else
         cdl_error( "S1002 \'$1\': unknown specifier for signature" , s[0] )
 …
   end
+  #== Signature# 引数で参照されている Descriptor 型のリストを作成する
+  #=== Signature# シグニチャプラグイン (generate 指定子)
+  def signature_plugin
+    plugin_name = @generate[0]
+    option = @generate[1]
+    apply_plugin( plugin_name, option )
+  end
+  #== Signature#apply_plugin
+  def apply_plugin plugin_name, option
+    if is_empty? then
+      cdl_warning( "S9999 $1 is empty. cannot apply signature plugin. ignored" , @name )
+      return
+    end
+    plClass = load_plugin( plugin_name, SignaturePlugin )
+    return if plClass == nil
+    if $verbose then
+      print "new through: plugin_object = #{plClass.class.name}.new( #{@name}, #{option} )\n"
+    end
+    begin
+      plugin_object = plClass.new( self, option )
+      plugin_object.set_locale @locale
+    rescue Exception => evar
+      cdl_error( "S1150 $1: fail to new" , plugin_name )
+      print_exception( evar )
+    end
+    generate_and_parse plugin_object
+end
+  #== Signature# 引数で参照されている Descriptor 型のリストを
   #RETURN:: Hash { Signature => ParamDecl }:  複数の ParamDecl から参照されている場合、最後のものしか返さない
   def get_descriptor_list
+    @descriptor_list
+  end
+  @@set_descriptor_list = {}
+  def self.set_descriptor_list
+    Namespace.get_root.travers_all_signature{ |sig|
+      if @@set_descriptor_list[ sig ] == nil then
+        @@set_descriptor_list[ sig ] = true
+        sig.set_descriptor_list
+      end
+    }
+  end
+  #== Signature# 引数で参照されている Descriptor 型のリストを作成する
+  def set_descriptor_list
     desc_list = { }
     # p "has_desc #{@name}"
     fha = get_function_head_array                       # 呼び口または受け口のシグニチャの関数配列
     if fha == nil then                                  # nil の場合、自己参照によるケースと仮定
+      @descriptor_list = desc_list
       return desc_list
     end
 …
             # p "has_desc #{param.get_name} #{t}"
             if t.kind_of? DescriptorType then
+              desc_list[t] = param
+              desc_list[ t.get_signature ] = param
+              # p self.get_name, t.get_signature.get_name
+              if t.get_signature == self then
+               # cdl_error( "S9999 Descriptor argument '$1' is the same signature as this parameter '$2' included", @name, param.get_name )
+              end
+              dir = param.get_direction
+              if dir != :IN && dir != :OUT && dir != :INOUT then
+                cdl_error( "S9999 Descriptor argument '$1' cannot be specified for $2 parameter", param.get_name, dir.to_s.downcase )
+              end
             end
+          }
 …
       end
+    }
     return desc_list
+    @descriptor_list = desc_list
   end
   #=== Signature# 引数に Descriptor があるか？
   def has_descriptor?
+    # p "has_desc #{@name}"
+    fha = get_function_head_array                       # 呼び口または受け口のシグニチャの関数配列
+    if fha == nil then                                  # nil の場合、自己参照によるケースと仮定
+    if get_descriptor_list == nil then
+      # end_of_parse が呼び出される前に has_descriptor? が呼び出された
+      # 呼び出し元は DescriptorType#initialize
+      # この場合、同じシグニチャ内の引数が Descriptor 型である
       return true
+    end
+    fha.each{ |fh|
+      fd = fh.get_declarator                            # fd: Decl  (関数頭部からDeclarotorを得る)
+      if fd.is_function? then                           # fd が関数でなければ、すでにエラー
+        params = fd.get_type.get_paramlist.get_items
+        if params then
+          params.each{ |param|
+            t = param.get_type.get_original_type
+            while( t.kind_of? PtrType )
+              t = t.get_referto
+            end
+            # p "has_desc #{param.get_name} #{t}"
+            if t.kind_of? DescriptorType then
+              return true
+            end
+          }
+        end
+      end
+    }
+    return false
+    elsif get_descriptor_list.length > 0 then
+      return true
+    else
+      return false
+    end
   end
 …
 end
+module CelltypePluginModule
+  #=== Celltype# セルタイププラグイン (generate 指定子)
+  def celltype_plugin
+    plugin_name = @generate[0]
+    option = @generate[1]
+    @generate[2] = apply_plugin( plugin_name, option )
+  end
+  #=== Celltype# セルタイププラグインをこのセルタイプに適用
+  def apply_plugin( plugin_name, option )
+    # plClass = load_plugin( plugin_name, CelltypePlugin )
+    if kind_of? Celltype then
+      plugin_class = CelltypePlugin
+    elsif kind_of? CompositeCelltype then
+      plugin_class = CompositePlugin
+    else
+      raise "unknown class #{self.class.name}"
+    end
+    plClass = load_plugin( plugin_name, plugin_class )
+    return if plClass == nil
+    if $verbose then
+      print "new celltype plugin: plugin_object = #{plClass.class.name}.new( #{@name}, #{option} )\n"
+    end
+    begin
+      plugin_object = plClass.new( self, option )
+      @generate_list << [ plugin_name, option, plugin_object ]
+      plugin_object.set_locale @locale
+      generate_and_parse plugin_object
+    rescue Exception => evar
+      cdl_error( "S1023 $1: fail to new" , plugin_name )
+      print_exception( evar )
+    end
+    # 既に存在するセルに new_cell を適用
+    @cell_list.each{ |cell|
+      apply_plugin_cell plugin_object, cell
+    }
+    return plugin_object
+  end
+  def apply_plugin_cell plugin, cell
+    begin
+      plugin.new_cell cell
+    rescue Exception => evar
+      cdl_error( "S1037 $1: celltype plugin fail to new_cell" , plugin.class.name )
+      print_exception( evar )
+    end
+  end
+  def celltype_plugin_new_cell cell
+    @generate_list.each{ |generate|
+      celltype_plugin = generate[2]
+      begin
+        celltype_plugin.new_cell cell
+      rescue Exception => evar
+        cdl_error( "S1037 $1: celltype plugin fail to new_cell" , celltype_plugin.class.name )
+        print_exception( evar )
+      end
+    }
+  end
+end #CelltypePluginModule
 class Celltype < NSBDNode # < Nestable
 …
 # @ct_factory_list::    Factory[] :    celltype factory
 # @cell_list:: Cell[] : 定義のみ (V1.0.0.2 以降)
+# @ordered_cell_list:: Cell[] : ID 順に順序付けされたセルリスト、最適化以降有効 (リンク単位ごとに生成されなおす)
 # @singleton:: bool
 # @idx_is_id:: bool
 # @idx_is_id_act:: bool: actual value
+# @b_need_ptab:: bool: true if having cells in multi-domain
 # @active:: bool
 # @b_reuse:: bool :  reuse 指定されて import された(template 不要)
 # @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @generate_list:: [ [ Symbol, String, Plugin ], ... ]   generate 文で追加された generate
+#
 # @n_attribute_ro:: int >= 0    none specified
 …
 # @n_var_omit:: int >= 0        # of [omit] specified vars # mikan var の omit は有？
 # @n_var_init:: int >= 0        # of vars with initializer
 # @n_call_port:: int >= 0
 # @n_call_port_array:: int >= 0
+# @n_call_port:: int >= 0       # dynamic ports are included
+# @n_call_port_array:: int >= 0  # dynamic ports are included
 # @n_call_port_omitted_in_CB:: int >= 0   最適化で省略される呼び口
+# @n_call_port_dynamic:: int >= 0  #
+# @n_call_port_array_dynamic:: int >= 0
+# @n_call_port_ref_desc:: int >= 0  #
+# @n_call_port_array_ref_desc:: int >= 0
 # @n_entry_port:: int >= 0
 # @n_entry_port_array:: int >= 0
 …
   include PluginModule
+  include CelltypePluginModule
   @@nest_stack_index = -1
   @@nest_stack = []
 …
     @active = false
     @generate = nil
+    @generate_list = []
     @n_attribute_ro = 0
 …
     @n_call_port_array = 0
     @n_call_port_omitted_in_CB = 0
+    @n_call_port_dynamic = 0
+    @n_call_port_array_dynamic = 0
+    @n_call_port_ref_desc = 0
+    @n_call_port_array_ref_desc = 0
     @n_entry_port = 0
     @n_entry_port_array = 0
 …
     if $idx_is_id then
       @idx_is_id = true
+      @idx_is_id_act = true
+      @b_need_ptab = true
     else
       @idx_is_id = false
+    end
+    @idx_is_id_act = @idx_is_id
+      @idx_is_id_act = false
+      @b_need_ptab = false
+    end
     Namespace.new_celltype( self )
     set_namespace_path # @NamespacePath の設定
     set_specifier_list( Generator.get_statement_specifier )
-    if @singleton then
-      @idx_is_id_act = false
-    end
     @included_header = {}
 …
       celltype_plugin
     end
+    # check_dynamic_join ##
     @@current_object = nil
 …
       @n_call_port += 1
       @n_call_port_array += 1 if port.get_array_size != nil
+      if port.is_dynamic? then
+        @n_call_port_dynamic += 1
+        @n_call_port_array_dynamic += 1 if port.get_array_size != nil
+      end
+      if port.is_ref_desc? then
+        @n_call_port_ref_desc += 1
+        @n_call_port_array_ref_desc += 1 if port.get_array_size != nil
+      end
     else
       @n_entry_port += 1
 …
       when :IDX_IS_ID
         @idx_is_id = true
+        @idx_is_id_act = true
+        @b_need_ptab = true
       when :ACTIVE
         @active = true
 …
       end
+    }
+    if @singleton then
+      @idx_is_id_act = false
+      @b_need_ptab = false
+    end
   end
 …
   end
+  #=== Celltype# セルタイププラグイン (generate 指定子)
+  def celltype_plugin
+    load_plugin( @generate[0], CelltypePlugin )
+    plugin_name = @generate[0]
+    option = @generate[1]
+    plugin_object = nil
+    eval_str = "plugin_object = #{plugin_name}.new( self, option )"
+    if $verbose then
+      print "new celltype : #{eval_str}\n"
+    end
+    begin
+      eval( eval_str )     # plugin を生成
+      plugin_object.set_locale @locale
+      @generate[ 2 ] = plugin_object
+      generate_and_parse plugin_object
+    rescue Exception => evar
+      cdl_error( "S1023 $1: fail to new" , plugin_name )
+      print "eval( #{eval_str} )\n"
+      print_exception( evar )
+    end
+  @@dynamic_join_checked_list = {}
+  def self.check_dynamic_join
+    Namespace.get_root.travers_all_celltype{ |ct|
+      if @@dynamic_join_checked_list[ ct ] == nil then
+        @@dynamic_join_checked_list[ ct ] = true
+        ct.check_dynamic_join
+      end
+    }
+  end
+  #=== Celltype#dynamic の適合性チェック
+  def check_dynamic_join
+    return if ! $verbose
+    @port.each{ |port|
+      signature = port.get_signature
+      next if signature == nil   # すでにエラー
+      if port.is_dynamic? then
+        dbgPrint( "[DYNAMIC] checking dynamic port: #{@global_name}.#{port.get_name}\n" )
+        # print( "[DYNAMIC] checking dynamic port: #{@global_name}.#{port.get_name}\n" )
+        next if find_ref_desc_port signature
+        next if find_descriptor_param signature, :DYNAMIC
+        cdl_warning( 'W9999 $1 cannot get information for dynamic port $2', @name, port.get_name )
+      elsif port.is_ref_desc? then
+        dbgPrint( "[DYNAMIC] checking ref_desc port: #{@global_name}.#{port.get_name}\n" )
+        # print( "[DYNAMIC] checking ref_desc port: #{@global_name}.#{port.get_name}\n" )
+        next if find_dynamic_port signature
+        next if find_descriptor_param signature, :REF_DESC
+        cdl_warning( 'W9999 $1 cannot put information from ref_desc port $2', @name, port.get_name )
+      elsif port.get_signature then
+        if port.get_signature.has_descriptor? then
+          port.get_signature.get_descriptor_list.each{ |signature, param|
+            dbgPrint( "[DYNAMIC] checking Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+            # print( "[DYNAMIC] checking Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+            if port.get_port_type == :CALL then
+              if param.get_direction == :IN
+                next if find_ref_desc_port signature
+                next if find_descriptor_param signature, :DYNAMIC
+              elsif param.get_direction == :OUT
+                next if find_dynamic_port signature
+                next if find_descriptor_param signature, :REF_DESC
+              end
+            else  # :ENTRY
+              if param.get_direction == :IN
+                next if find_dynamic_port signature
+                next if find_descriptor_param signature, :REF_DESC
+              elsif param.get_direction == :OUT
+                next if find_ref_desc_port signature
+                next if find_descriptor_param signature, :DYNAMIC
+              end
+            end
+            cdl_warning( 'W9999 "$1" cannot handle Descriptor "$2" information for port "$3"', @name, param.get_name, port.get_name )
+          }
+        end
+      end
+    }
+  end
+  def find_dynamic_port signature
+    dbgPrint "[DYNAMIC] find_dynamic_port signature=#{signature.get_name}"
+    @port.each{ |port|
+      dbgPrint "[DYNAMIC] port=#{port.get_name} signature=#{port.get_signature.get_name} dynamic=#{port.is_dynamic?}"
+      return port if port.is_dynamic? && port.get_signature == signature
+    }
+    return nil
+  end
+  def find_ref_desc_port signature
+    if signature == nil then  # すでにエラー
+      return nil
+    end
+    dbgPrint "[DYNAMIC] find_ref_desc_port signature=#{signature.get_name}"
+    @port.each{ |port|
+      dbgPrint "[DYNAMIC] port=#{port.get_name} signature=#{port.get_signature.get_name} ref_desc=#{port.is_ref_desc?}"
+      return port if port.is_ref_desc? && port.get_signature == signature
+    }
+    return nil
+  end
+  #=== Celltype#ディスクリプタ型でシグニチャが一致し dyn_ref に対応づく引数を探す
+  #dyn_ref::Symbol: :DYNAMIC=ディスクリプタを得る手段となる引数を探す．:REF_DESC=渡す手段となる引数を探す
+  def find_descriptor_param signature, dyn_ref
+    param_list = []
+    @port.each{ |port|
+      port.each_param{ |port, func, param|
+        type = param.get_type
+        while type.kind_of? PtrType
+          type = type.get_type
+        end
+        dbgPrint( "[DYNAMIC] dyn_ref=#{dyn_ref} port_type=#{port.get_port_type} dir=#{param.get_direction} paramName=#{param.get_name} paramType=#{type.class}\n" )
+        # print( "[DYNAMIC] dyn_ref=#{dyn_ref} port_type=#{port.get_port_type} dir=#{param.get_direction} paramName=#{param.get_name} paramType=#{type.class}\n" )
+        if type.kind_of? DescriptorType then
+          if type.get_signature == signature then
+            dir = param.get_direction
+            if dir == :INOUT then
+              dbgPrint( "[DYNAMIC] found INOUT Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+              # print( "[DYNAMIC] found INOUT Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+              return param
+            elsif dyn_ref == :DYNAMIC then
+              if dir == :IN && port.get_port_type == :ENTRY ||
+                 dir == :OUT && port.get_port_type == :CALL then
+                dbgPrint( "[DYNAMIC] found INBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                # print( "[DYNAMIC] found INBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                return param
+              end
+            elsif dyn_ref == :REF_DESC
+              if dir == :IN && port.get_port_type == :CALL ||
+                 dir == :OUT && port.get_port_type == :ENTRY then
+                dbgPrint( "[DYNAMIC] found OUTBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                # print( "[DYNAMIC] found OUTBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                return param
+              end
+            else
+              raise "unknown ref_desc"
+            end
+          end
+        end
+      }
+    }
+    return nil
   end
 …
   # シングルトンセルが同じ linkunit に複数ないかチェック
   def new_cell( cell )
+    dbgPrint "Celltype#new_cell( #{cell.get_name} )\n"
     # Celltype では Cell の set_owner しない
     # シングルトンで、プロトタイプ宣言でない場合、コード生成対象リージョンの場合
 …
     end
     @cell_list << cell
+    # プラグインにより生成されたセルタイプか ?
     if @plugin then
       @plugin.new_cell cell
     end
+    # セルタイププラグインの適用
+    celltype_plugin_new_cell cell
   end
 …
   #     呼び口（ただし、最適化で不要となるものは除く）
   def has_INIB?
+#    print "name=#{@name} @n_attribute_ro=#{@n_attribute_ro}  @n_var_size_is=#{@n_var_size_is} @n_call_port=#{@n_call_port} @n_call_port_omitted_in_CB=#{@n_call_port_omitted_in_CB} @n_entry_port_array_ns=#{@n_entry_port_array_ns}\n"
+    return $rom && (@n_attribute_ro > 0 || @n_var_size_is > 0 || ( @n_call_port - @n_call_port_omitted_in_CB ) > 0 || @n_entry_port_array_ns > 0)
+#    return $rom && (@n_attribute_ro > 0 || ( @n_call_port - @n_call_port_omitted_in_CB ) > 0)
+    result = $rom &&
+             (@n_attribute_ro > 0 ||
+              @n_var_size_is > 0 ||
+              ( @n_call_port - @n_call_port_omitted_in_CB - (@n_call_port_dynamic-@n_call_port_array_dynamic) ) > 0 ||
+              $ram_initializer && @n_call_port_dynamic > 0 ||
+              @n_entry_port_array_ns > 0)
+    # print "name=#{@name} n_attribute_ro=#{@n_attribute_ro}  n_var_size_is=#{@n_var_size_is} n_call_port=#{@n_call_port} n_call_port_omitted_in_CB=#{@n_call_port_omitted_in_CB} n_call_port_dynamic=#{@n_call_port_dynamic} n_call_port_array_dynamic=#{@n_call_port_array_dynamic} n_entry_port_array_ns=#{@n_entry_port_array_ns} has_INIB?=#{result}\n"
+    return result
   end
 …
   def has_CB?
     if $rom then
       return @n_attribute_rw > 0 || (@n_var-@n_var_size_is) > 0
+      return @n_attribute_rw > 0 || (@n_var-@n_var_size_is) > 0 || (@n_call_port_dynamic - @n_call_port_array_dynamic) > 0
       # return @n_attribute_rw > 0 || @n_var > 0
     else
 …
   #=== Celltype# SET_CB_INIB_POINTER, INITIALIZE_CB が必要か
   def need_CB_initializer?
     @n_var_init > 0 || has_CB?
+    @n_var_init > 0 || has_CB? || ( @n_call_port_dynamic && $ram_initializer )
   end
 …
   def is_active?
     @active
+  end
+  def idx_is_id_act?
+    @idx_is_id_act
+  end
+  def multi_domain?
+    @b_need_ptab
   end
 …
 #                                               逆require ポートに対して複数の結合がないかチェックする
 # @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @b_post_code_generated:: Bool: true if generated in tmp_plugin_post_code.cdl
+#
 # composite のためインスタンス変数
 …
 # @id:: Integer : コード生成直前に設定  (プロトタイプ宣言の場合は -1 のまま放置)
 # @id_specified::Integer : 指定された id
+# @restrict_list::{ entry_name => { func_name, [ region_name, ... ] } }
+# @restrict_list::{ entry_name => { func_name, [ region_path_str, ... ] } }
+# @restrict_list2::{ entry_name => { func_name, [ domain_root_region, ... ] } }
+# @b_restrict_referenced::Bool: restrict_list が参照れた
 =begin
 …
   end
-  # composite で clone されたもの（子孫まで含む）
-  # Join.change_rhs_port にて CompoisteCelltype 内の Join の結合先を変更する際に使用
-  @@cloned_cell_list = {}
-  ### mikan BUG @@cloned_cell_list は composite の階層ごとに記憶していないため、同じ名前が内部に現れると、うまく動作しない
-  # change_rhs_port の実装は、こんな回りくどいことをする必要はなかった。右辺に現れるセル名には、composite のセル名を前につなげるだけでよかった
   def initialize( ct_path, in_composite = false )
     super()
 …
     @referenced_port_list = {}
     @restrict_list = {}
+    @restrict_list2 = {}
+    @b_restrict_referenced = false
+    @b_post_code_generated = false
     @cell_list = {}
 …
       cell_prev = CompositeCelltype.find( name )
       if cell_prev == nil then
         CompositeCelltype.new_cell( self )
+        CompositeCelltype.new_cell_in_composite( self )
       end
     else
 …
     else
+      dbgPrint "new_join: cell=#{@name} add_item=#{join.get_name}\n"
       # join
       @join_list.add_item( join )
 …
         # 呼び口側のセルと、そのセルタイプ
+        cell = Namespace.find cp_cell_nsp
+        if ! @in_composite then
+          cell = Namespace.find cp_cell_nsp
+        else
+          cell = CompositeCelltype.find cp_cell_nsp.to_s.to_sym
+        end
         if ! cell.instance_of? Cell then
           cdl_error( "S9999 '$1': not cell for reverse join", cp_cell_nsp.get_path_str )
 …
         end
+        ep_cell_nsp = get_namespace_path
+        if ! @in_composite then
+          ep_cell_nsp = get_namespace_path
+          ep_cell_nsp_str = ep_cell_nsp.get_path_str
+        else
+          ep_cell_nsp = NamespacePath.new @name, false
+          ep_cell_nsp_str = @name
+        end
         ep_subscript_val = ep_subscript ? ep_subscript.eval_const( nil ) : nil
         rhs = Expression.create_cell_join_expression( ep_cell_nsp, ep_subscript_val, ep_name, rj.get_locale )
 …
           ss_str = ""
         end
         dbgPrint "create_reverse_join: #{cell.get_name}.#{cp_name}#{ss_str} => #{ep_cell_nsp.get_path_str}.ep_name\n"
+        dbgPrint "create_reverse_join: #{cell.get_name}.#{cp_name}#{ss_str} => #{ep_cell_nsp_str}.#{ep_name}\n"
+      }
     end
 …
       set_specifier_list( Generator.get_statement_specifier )
     end
+    if TECSGEN.post_coded?
+      @b_post_code_generated = true
+    end
     set_f_def f_def
 …
     if ! @in_composite then
+      if @celltype.instance_of? Celltype then
+      # if @celltype.instance_of? Celltype then
+      if @celltype then  # composite でも呼びだす, エラー時 nil
         @celltype.new_cell self
       end
 …
   end
   #=== Cell# セルタイププラグイン (generate 指定子)
+  #=== Cell# セルプラグイン (generate 指定子)
   def cell_plugin
-    load_plugin( @generate[0], CellPlugin )
     plugin_name = @generate[0]
     option = @generate[1]
+    plugin_object = nil
+    eval_str = "plugin_object = #{plugin_name}.new( self, option )"
+    @generate[2] = apply_plugin plugin_name, option
+  end
+  def apply_plugin plugin_name, option
+    if ! @b_defined then
+      cdl_error( "S9999 plugin cannot apply to prototype cell '$1'", @name )
+    end
+    plClass = load_plugin( plugin_name, CellPlugin )
+    # return if plClass == nil # 従来と仕様が変わるので、継続する
     if $verbose then
       print "new cell : #{eval_str}\n"
+      print "new cell plugin: plugin_object = #{plClass.class.name}.new( #{@name}, #{option} )\n"
     end
     begin
       eval( eval_str )     # plugin を生成
+      plugin_object = plClass.new( self, option )
       plugin_object.set_locale @locale
-      @generate[ 2 ] = plugin_object
       generate_and_parse plugin_object
     rescue Exception => evar
       cdl_error( "S1166 $1: fail to new", plugin_name )
-      print "eval( #{eval_str} )\n"
       print_exception( evar )
     end
+    return  plugin_object
   end
 …
     # debug
+    dbgPrint "Cell#clone_for_composite : cloning: #{@name} #{global_name}  b_defined=#{@b_defined}\n"
+    dbgPrint "  CLONING Cell#clone_for_composite : cloning: #{@name} #{global_name}  b_defined=#{@b_defined} #{self}=>#{@my_clone} \n"
+    dbgPrint "              my_name=#{@name} name=#{name} owner class=#{@owner.class.name}\n"
     @my_clone = self.clone
-    @@cloned_cell_list[ self ] = @my_clone
     # clone したセルの内部に持つ名前情報を調整する
     @my_clone.set_cloned( name, global_name, namespacePath, join_array, ct_name, region, plugin, locale )
 …
     # debug
     dbgPrint "cell.set_cloned : global_name: #{global_name}  name: #{name}  @name: #{@name}\n"
+    dbgPrint "set_cloned:  entry_array_max_subscript.len=#{@entry_array_max_subscript.length}\n"
     @global_name = :"#{global_name}_#{@name}"
     @name = :"#{name}_#{@name}"
 …
     @alloc_list = []
     @require_joined_list = {}
     @entry_array_max_subscript = {}
+    @entry_array_max_subscript = @entry_array_max_subscript.dup
     @cell_list = {}
     @cell_list2 = []
 …
       @join_list.change_item j
+    }
+  end
+  #=== clone されたセルが composite の場合、内部セルを展開する
+  #self:: clone されたセルでなければならない
+  def expand_inner
+    if ! @f_cloned then
+      raise "expnad_inner: not cloned cell"
+    end
     # clone しようとするセルが composit セルタイプ？
 …
       @cell_list, @cell_list2 = @celltype.expand( @name, @global_name, @NamespacePath, @join_list, @region, @plugin, @locale )
     end
   end
   #=== Cell# clone された cell の join_list の右辺の変更
   #  呼び口の右辺の cell を他の clone された cell に置換え
   def change_rhs_port
+  def change_rhs_port cloned_cell_list
     # debug
     dbgPrint "Cell change_rhs_port: global_name: #{@global_name}\n"
+    dbgPrint "=====   Cell#change_rhs_port: name=#{@name}   =====\n"
     @join_list.get_items.each { |j|
+      j.change_rhs_port( @@cloned_cell_list, @celltype )
+    }
+    if @celltype.instance_of?( CompositeCelltype ) then
+      # 入れ子のセルについても変更
+      @cell_list.each{ |name,c|
+        c.change_rhs_port
+      }
+    end
+      j.change_rhs_port( cloned_cell_list, @celltype )
+    }
   end
 …
   def is_in_composite?
     @in_composite
+  end
+  #=== Cell# composite のセルか？
+  def is_of_composite?
+    if @celltype.kind_of? CompositeCelltype
+      return true
+    else
+      return false
+    end
+  end
+  #=== Cell# tmp_plugin_post_code.cdl で生成されたセルか？
+  def post_code_generated?
+    @b_post_code_generated
   end
 …
       # セルタイプ内で port_name の CompositeCelltypeJoin を探す（コード生成段階では必ず見つかる）
+      # print "get_real_cell: cell=#{@name} port=#{port_name}\n"
+      # pp @cell_list
       cj = @celltype.find_export( port_name )
 …
   end
+  #=== Cell#get_real_celltype
+  #
+  def get_real_celltype( port_name )
+    if @celltype.instance_of?( CompositeCelltype ) then
+      return @celltype.get_real_celltype port_name
+    else
+      return @celltype
+    end
+  end
   #=== Cell# 受け口のport の参照カウントをアップする
 …
   end
+  #Cell#属性の初期値を得る
+  #attr_name::Symbol  必ず初期化されていないと Ruby 例外となる
+  def get_attr_initializer attr_name
+    val = @join_list.get_item( attr_name )
+    if val == nil then
+      val = (@celltype.find  attr_name).get_initializer
+    else
+      val = val.get_rhs
+    end
+    return val
+  end
   def get_celltype
     @celltype
 …
   #=== Cell# composite の内側セルの受け口配列の添数の最大値を設定
   def set_entry_inner_port_max_subscript( port, num )
     if @cell_list == nil then   # mikan これって問題ない？
       return    # プロトタイプ宣言しかされていなくて、内側セルが展開されていない
+    if @cell_list == nil then
+      return    # プロトタイプ宣言しかされていなくて、内側セルが展開されていない　or composite 展開前
     end
     # composite の内側のセルに伝播
     if @celltype.instance_of? CompositeCelltype then
+      dbgPrint "set_entry_inner_port_max_subscript #{@name} #{@port} #{num} cell_list.len=#{@cell_list.length}\n"
+      # @cell_list.each{ |c, p| print c, p, '\n' }
       cj = @celltype.find_export port.get_name
       if cj && @cell_list[ cj.get_cell_name.to_s ] then
 …
         else
           cell = j.get_rhs_cell2
           next if cell == nil     # 右辺が見つからなかった．既にエラー
+          next if cell == nil || cell.get_celltype == nil     # 右辺が見つからなかった．既にエラー
           port = cell.get_celltype.find( j.get_rhs_port2 )
+          if port == nil then
+            dbgPrint "set_port_ref: #{@name}.#{j.get_name} = #{cell.get_name}.#{j.get_rhs_port2}\n"
+            # through プラグインで生成されたセルの受け口が見つからないケース (のハズ)
+            cdl_error( "entry '$1' not found in '$2' refered from $3.$4", j.get_rhs_port2, cell.get_name, @name, j.get_name )
+            next
+          end
           dbgPrint( "set_port_reference_count: #{@name}.#{j.get_name} => #{cell.get_name}.#{port.get_name}\n")
           cell.port_referenced port
 …
+          }
         else
+          dbgPrint "set_definition_join: #{@name}.#{join.get_name} celltype=#{@celltype.get_name}\n"
           join.set_definition( @celltype.find(join.get_name) )
         end
 …
       expand
     end
-    # celltype に generate が指定されされているか
-    celltype_plugin = @celltype.get_celltype_plugin
-    if celltype_plugin then
-      begin
-        celltype_plugin.new_cell self
-      rescue Exception => evar
-        cdl_error( "S1037 $1: celltype plugin fail to new_cell" , celltype_plugin.class.name )
-        print_exception( evar )
-      end
-    end
   end
 …
     #debug
+    dbgPrint "expanding #{@name} #{@celltype.get_name}\n"
+    # 展開されたセルのリスト
+    @@cloned_cell_list = {}
+    dbgPrint "=====    expanding   #{@name}     =====\n"
     # composite celltype の cell を展開
 …
       set_f_ref
     end
+    # 呼び口の右辺のセルを clone したものに変更
+    self.change_rhs_port
+  end
+  #=== Cell#内部セルの受け口添数最大値を設定
+  def set_max_entry_port_inner_cell
+    if @cell_list == nil then
+      return
+    end
+    dbgPrint "set_max_entry_port_inner_cell name=#{@name} entry_array_max_subscript.len=#{@entry_array_max_subscript.length}\n"
     # プロトタイプ宣言で設定されていたものを反映する
     @entry_array_max_subscript.each{ |port,name|
+      dbgPrint "set_entry_inner_port_max_subscript( #{port}, #{name} )\n"
       set_entry_inner_port_max_subscript( port, name )
+    }
 …
   #=== Cell#restrict を追加
   def add_restrict( entry_name, func_name, region_name_list )
+    if @restrict_list[ entry_name ] then
+      if @restrict_list[ entry_name ][ func_name ] then
+        @restrict_list[ entry_name ][ func_name ].each{ |rn|
+          if region_name_list.include? rn then
+            # p func_name
+            name = func_name ? entry_name : entry_name+"."+func_name
+            cdl_warning( "W9999 $1 restrict region duplicate $2", name, rn )
+    if @restrict_list[ entry_name ] == nil then
+      @restrict_list[ entry_name ] = {}
+      @restrict_list2[ entry_name ] = {}
+    end
+    if @restrict_list[ entry_name ][ func_name ] == nil then
+      @restrict_list[ entry_name ][ func_name ] = []
+      @restrict_list2[ entry_name ][ func_name ] = []
+    end
+    region_name_list.each { |rp|
+      @restrict_list[ entry_name ][ func_name ] << rp
+      # p "Class: " + rp.to_s
+      obj = Namespace.find rp
+      if ( obj.kind_of? Region ) then
+        @restrict_list2[ entry_name ][ func_name ] << obj.get_domain_root
+      else
+        cdl_error( "S9999 $1 not found or not region", rp.to_s )
+      end
+    }
+  end
+  #=== Cell#check_restrict_list
+  def check_restrict_list
+    # p "check_restrict_list"
+    @restrict_list.each{ |entry_name, func_hash|
+      func_hash.each{ |func_name, region_list|
+        region_list.each{ |rp|
+          obj = Namespace.find rp
+          if ( obj.kind_of? Region ) then
+            if obj.get_domain_root != @region.get_domain_root then
+            else
+              cdl_info( "I9999 $1: restrict calling domain to $2, which is same domain as the cell locates", @name, rp.to_s )
+              # restrict を同じドメインを指定してもよいこととする (HRP3)
+              # KernelDoamin 内のセルに対し、KernelDomain に restrict している場合、
+              # 無所属経由で結合されているが、KernelDomain から呼出すことを想定した許可
+            end
+          else
+            cdl_error( "S9999 $1 not region", rp.to_s )
+          end
+        }
+      }
+    }
+  end
+  #=== Cell#callable?
+  def callable?( callee_cell, entry_name, func_name )
+    # p "callable? #{@name}"
+    res = callee_cell.callable_from?( entry_name, func_name, self )
+    dbgPrint "callable? #{callee_cell.get_namespace_path}.#{entry_name}.#{func_name} from #{@NamespacePath} is #{res}\n"
+    return res
+  end
+  #=== Cell#callable_from? (private)
+  def callable_from?( entry_name, func_name, caller_cell )
+    @b_restrict_referenced = true
+    if @restrict_list.length == 0 then
+      return true
+    end
+    dr = caller_cell.get_region.get_domain_root
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][func_name] then
+        @restrict_list2[entry_name][func_name].each{ |region|
+          if dr == region then
+            return true
+          end
+        }
+      elsif @restrict_list[entry_name][nil] then
+        @restrict_list2[entry_name][nil].each{ |region|
+          if dr == region then
+            return true
           end
+        }
       else
+        @restrict_list[ entry_name ][ func_name ] = region_name_list
+      end
+    else
+      func_list = { }
+      func_list[ func_name ] = region_name_list
+      @restrict_list[ entry_name ] = func_list
+    end
+    # pp @restrict_list
+  end
+  #=== Cell#check_restrict_list
+  def check_restrict_list
+    @restrict_list.each{ |entry_name, func_hash|
+      func_hash.each{ |func_name, region_list|
+        region_list.each{ |rn|
+          obj = Namespace.find [ rn ]
+          if ( obj.kind_of? Region ) then
+            if obj.get_domain_root != @region.get_domain_root then
+            else
+              cdl_warning( "W9999 $1 in same domain", rn )
+            end
+          else
+            cdl_error( "S9999 $1 not region", region )
+          end
+        }
+      }
+    }
+  end
+  #=== Cell#callable?
+  def callable?( callee_cell, entry_name, func_name )
+    res = callee_cell.callable_from?( entry_name, func_name, self )
+    dbgPrint "callable? #{callee_cell.get_namespace_path}.#{entry_name}.#{func_name} from #{@NamespacePath} is #{res}\n"
+    return res
+  end
+  #=== Cell#callable_from? (private)
+  def callable_from?( entry_name, func_name, caller_cell )
+    if @restrict_list.length == 0 then
+        return false
+      end
+    else
+      return false
+    end
+  end
+  #=== Cell#get_callable_regions( entry_name, func_name )
+  # func_name=nil の場合、entry_name の可否をチェック数る
+  # nil が返る場合、制限されていないことを意味する
+  def get_restricted_regions( entry_name, func_name )
+    # p "get_restricted_regions #{@name}"
+    @b_restrict_referenced = true
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][func_name] then
+        return @restrict_list2[entry_name][func_name]
+      else
+        return @restrict_list2[entry_name][nil]
+      end
+    end
+    return nil
+  end
+  #=== Cell#has_ineffective_restrict_specifier
+  # restrict 指定子が指定されていて、参照されていない場合 true
+  # 参照は、HRPSVCPlugin のみ
+  def has_ineffective_restrict_specifier
+    if @restrict_list.length != 0 && @b_restrict_referenced == false then
       return true
+    end
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][nil] &&
+         @restrict_list[entry_name][nil].include?( caller_cell.get_region.get_domain_root.get_name )then
+        return true
+      end
+      if @restrict_list[entry_name][func_name] &&
+         @restrict_list[entry_name][func_name].include?( caller_cell.get_region.get_domain_root.get_name )then
+        return true
+      else
+        return false
+      end
+    else
+      return true
+    end
+  end
+    else
+      return false
+    end
+  end
   def show_tree( indent )
     indent.times { print "  " }
 …
 # @name:: str
 # @global_name:: str
+# @cell_list:: NamedList   Cell
+# @cell_list_in_composite:: NamedList   Cell
+# @cell_list::Array :: [ Cell ] : cell of CompositeCelltype's cell
 # @export_name_list:: NamedList : CompositeCelltypeJoin
 # @port_list:: CompositeCelltypeJoin[]
 …
 # @name_list:: NamedList item: Decl (attribute), Port エクスポート定義
 # @internal_allocator_list:: [ [cell, internal_cp_name, port_name, func_name, param_name, ext_alloc_ent], ... ]
+# @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @generate_list:: [ [ Symbol, String, Plugin ], ... ]   generate 文で追加された generate
   @@nest_stack_index = -1
   @@nest_stack = []
   @@current_object = nil
+  include CelltypePluginModule
+  include PluginModule
   def self.push
 …
     super()
     @name = name
+    @cell_list = NamedList.new( nil, "in composite celltype #{name}" )
+    @cell_list_in_composite = NamedList.new( nil, "in composite celltype #{name}" )
+    @cell_list = []
     @export_name_list = NamedList.new( nil, "export in composite celltype #{name}" )
     @name_list = NamedList.new( nil, "in composite celltype #{name}" )
 …
     @attr_list = []
     @internal_allocator_list = []
+    @generate_list = []
     set_specifier_list( Generator.get_statement_specifier )
   end
 …
   # CompositeCelltype#end_of_parse
   def end_of_parse
     # singleton に関するチェック
     if @b_singleton && @real_singleton == nil then
 …
     # mikan relay が正しく抜けているかチェックされていない
+    # callback 結合
+    @cell_list_in_composite.get_items.each{ |c|
+      ct = c.get_celltype
+      if ct then
+        c.create_reverse_join
+      end
+    }
     # 意味解析
     @cell_list.get_items.each{ |c|
+    @cell_list_in_composite.get_items.each{ |c|
       c.set_definition_join
+    }
     # cell の未結合の呼び口がないかチェック
     @cell_list.get_items.each{ |c|
+    @cell_list_in_composite.get_items.each{ |c|
       c.check_join
       c.check_reverse_require
 …
+      }
+    }
+  end
+ ### cell (CompositeCelltype)
+  def self.new_cell( cell )
+    @@current_object.new_cell( cell )
+  end
+  def new_cell( cell )
+    # composite プラグイン
+    if @generate then
+      celltype_plugin
+    end
+  end
+ ### CompositeCelltype#new_cell_in_composite
+  def self.new_cell_in_composite( cell )
+    @@current_object.new_cell_in_composite( cell )
+  end
+  def new_cell_in_composite( cell )
     cell.set_owner self  # Cell (in_omposite)
     @cell_list.add_item( cell )
+    @cell_list_in_composite.add_item( cell )
     if cell.get_celltype then    # nil ならば、すでにセルタイプなしエラー
       if cell.get_celltype.is_singleton? then
 …
                                          internal_cell_elem_name, type )
+  end
+ ### CompositeCelltype#new_cell
+  def new_cell cell
+    @cell_list << cell
+    # セルタイププラグインの適用
+    celltype_plugin_new_cell cell
   end
 …
     dbgPrint "new_join: #{export_name} #{internal_cell_name} #{internal_cell_elem_name}\n"
     cell = @cell_list.get_item( internal_cell_name )
+    cell = @cell_list_in_composite.get_item( internal_cell_name )
     if cell == nil then
       cdl_error( "S1057 $1 not found in $2" , internal_cell_name, @name )
 …
         elsif obj.is_omit? != obj2.is_omit? then
           cdl_error( "S9999 $1 : omit specifier mismatch with previous definition" , export_name )
+        elsif obj.is_dynamic? != obj2.is_dynamic? then
+          cdl_error( "S9999 $1 : dynamic specifier mismatch with previous definition" , export_name )
+        elsif obj.is_ref_desc? != obj2.is_ref_desc? then
+          cdl_error( "S9999 $1 : ref_desc specifier mismatch with previous definition" , export_name )
         end
       else
 …
   def find name
     dbgPrint "CompositeCelltype: find in composite: #{name}\n"
     cell = @cell_list.get_item( name )
+    cell = @cell_list_in_composite.get_item( name )
     return cell if cell
 …
     clone_cell_list = {}
     clone_cell_list2 = []
+    clone_cell_list3 = {}
     #  composite 内部のすべての cell について
     @cell_list.get_items.each { |c|
+    @cell_list_in_composite.get_items.each { |c|
       # debug
 …
           # debug
           if j then
             dbgPrint "expand : parent cell: #{name} child cell: #{c.get_name}:  parent's export port: #{cj.get_name}  join: #{j.get_name} #{j}\n"
+            dbgPrint "  REWRITE_EX parent cell: #{name} child cell: #{c.get_name}:  parent's export port: #{cj.get_name}  join: #{j.get_name}=>#{j.get_rhs.to_s}\n"
           else
             dbgPrint "expand : parent cell: #{name} child cell: #{c.get_name}:  parent's export port: #{cj.get_name}  join: nil\n"
 …
       clone_cell_list[ "#{c.get_local_name}" ] = c2
       clone_cell_list2 << c2
+      clone_cell_list3[ c ] = c2
+    }
 …
         j.set_cloned( clone_cell_list[ "#{c.get_local_name}" ] )
+      }
+      dbgPrint "change_rhs_port: inner cell #{c.get_name}\n"
+      c.change_rhs_port clone_cell_list3
+    }
+    clone_cell_list2.each { |c|
+      c.expand_inner
+    }
     return [ clone_cell_list, clone_cell_list2 ]
 …
       when :ACTIVE
         @b_active = true
+      when :GENERATE
+        if @generate then
+          cdl_error( "S9999 generate specifier duplicate"  )
+        end
+        @generate = [ s[1], s[2] ] # [ PluginName, "option" ]
       else
         cdl_error( "S1071 $1 cannot be specified for composite" , s[0] )
 …
   end
+  def get_global_name
+    @global_name
+  end
   def get_port_list
     @port_list
 …
   def get_internal_allocator_list
     @internal_allocator_list
+  end
+  #== CompositeCelltype#get_real_celltype
+  # port_name に接続されている内部のセルタイプを得る
+  def get_real_celltype( port_name )
+    cj = find_export port_name
+    inner_celltype = cj.get_cell.get_celltype
+    if inner_celltype.instance_of? CompositeCelltype then
+      return inner_celltype.get_real_celltype
+    else
+      return inner_celltype
+    end
   end
 …
   def is_inactive?
     if @b_active == false then
       @cell_list.get_items.each{ |c|
+      @cell_list_in_composite.get_items.each{ |c|
         if c.get_celltype && c.get_celltype.is_inactive? == false then
           # c.get_celltype == nil の場合はセルタイプ未定義ですでにエラー
 …
     (indent+1).times { print "  " }
     puts "active: #{@b_active}, singleton: #{@b_singleton}"
     @cell_list.show_tree( indent + 1 )
+    @cell_list_in_composite.show_tree( indent + 1 )
     (indent+1).times { print "  " }
     puts "name_list"
 …
 # @b_omit:: bool : omit 指定子が指定された (call port のみ)
 # @b_optional:: bool : call port のみ
 # @b_ref_des:: bool :  ref_desc キーワードが指定された
+# @b_ref_desc:: bool :  ref_desc キーワードが指定された
 # @b_dynamic:: bool :  dynamic キーワードが指定された (呼び口のみ)
+#
 …
     @b_inline = false
     @b_optional = false
+    @b_omit = false
     @b_ref_desc = false
     @b_dynamic = false
 …
     else
       # entry port optimize
       if $unopt then
+      if $unopt || $unopt_entry then
         # 最適化なし
         @b_VMT_useless = false                     # VMT 不要 (true の時 VMT を介することなく呼出す)
 …
         @b_optional = true
       when :REF_DESC
+        if @port_type == :ENTRY then
+          cdl_error( "S9999 ref_desc: cannnot be specified for entry port" )
+          next
+        end
         @b_ref_desc = true
       when :DYNAMIC
 …
       end
+    }
+    if ( @b_dynamic || @b_ref_desc ) then
+      if @b_dynamic then
+        dyn_ref = "dynamic"
+      else
+        dyn_ref = "ref_desc"
+      end
+      if @b_omit then     # is_omit? は is_empty? も含んでいるので使えない
+        cdl_error( "S9999 omit cannot be specified with $1", dyn_ref  )
+      elsif @signature && @signature.is_empty? then
+        cdl_error( "S9999 $1 cannot be specified for empty signature", dyn_ref  )
+      elsif @signature && @signature.has_descriptor? then
+        # cdl_error( "S9999 $1 port '$2' cannot have Descriptor in its signature", dyn_ref, @name )
+      end
+    elsif @b_dynamic && @b_ref_desc then
+      cdl_error( "S9999 both dynamic & ref_desc cannot be specified simultaneously"  )
+    end
   end
 …
   def is_VMT_useless?                     # VMT 関数テーブルを使用しない
+   @b_VMT_useless
+    if @port_type == :ENTRY && $unopt_entry == true then
+      # プラグインから $unopt_entry を設定するケースのため
+      # ここで読み出すときに、false を返す (reset_optimize での設定変更は速すぎる)
+      return false
+    else
+      return @b_VMT_useless
+    end
   end
   def is_skelton_useless?                 # スケルトン関数不要   (true の時、受け口関数を呼出す)
+    @b_skelton_useless
+    if @port_type == :ENTRY && $unopt_entry == true then
+      # プラグインから $unopt_entry を設定するケースのため
+      # ここで読み出すときに、false を返す (reset_optimize での設定変更は速すぎる)
+      return false
+    else
+      return @b_skelton_useless
+    end
   end
 …
   def is_reverse_required?
     @reverse_require_cell_path != nil
+  end
+  #=== Port# is_dynamic?
+  def is_dynamic?
+    @b_dynamic
+  end
+  #=== Port# is_ref_desc?
+  def is_ref_desc?
+    @b_ref_desc
   end
 …
       if ! c.get_f_def then   # Namespace の @cell_list にはプロトタイプが含まれるケースあり
         if c.get_f_ref then
           cdl_error( "S1093 $1 : undefined cell" , c.get_namespace_path.get_path_str )
+          c.cdl_error( "S1093 $1 : undefined cell" , c.get_namespace_path.get_path_str )
         elsif $verbose then
           cdl_warning( "W1006 $1 : only prototype, unused and undefined cell" , c.get_namespace_path.get_path_str )
+          c.cdl_warning( "W1006 $1 : only prototype, unused and undefined cell" , c.get_namespace_path.get_path_str )
         end
       else
 …
         # if c.get_f_ref == false && c.is_generate? && ct && ct.is_inactive? then
         if c.get_f_ref == false && ct && ct.is_inactive? then
+          cdl_warning( "W1007 $1 : non-active cell has no entry join and no factory" , c.get_namespace_path.get_path_str )
+          c.cdl_warning( "W1007 $1 : non-active cell has no entry join and no factory" , c.get_namespace_path.get_path_str )
+        end
+        if c.has_ineffective_restrict_specifier then
+          c.cdl_warning( "W9999: $1 has ineffective restrict specifier", c.get_namespace_path.get_path_str )
         end
       end
 …
   end
+  #=== Namespace# set_max_entry_port_inner_cell
+  # セルタイプに属するすべてのセルに対して実施
+  def set_max_entry_port_inner_cell
+    # celltype のコードを生成
+    @cell_list.each { |c|
+      c.set_max_entry_port_inner_cell
+    }
+    @namespace_list.each{ |ns|
+      ns.set_max_entry_port_inner_cell
+    }
+  end
   #=== Namespace# セルの結合をチェックする
   def check_join
 …
   end
+  #== Namespace (Region) に属するセルのリスト
+  def get_cell_list
+    @cell_list
+  end
+  #== Namespace (Region)# 子リージョンのリスト
+  #
+  # リージョンは Namespace クラスで namespace として記憶されている
+  def get_region_list
+    @namespace_list
+  end
   def show_tree( indent )
     indent.times { print "  " }
 …
     if object == nil then                                             # (2)
       cdl_error( "S1109 \'$1\' not found" , @cell_name )
+      cdl_error( "S1109 \'$1\' not found" , nsp.to_s )
     elsif ! object.instance_of?( Cell ) then                          # (3)
       cdl_error( "S1110 \'$1\' not cell" , @cell_name )
+      cdl_error( "S1110 \'$1\' not cell" , nsp.to_s )
     else
       dbgPrint "set_definition: set_f_ref #{@owner.get_name}.#{@name} => #{object.get_name}\n"
 …
           next_cell_nsp       = @through_generated_list[ i + 1 ].get_cell_namespace_path
           next_port_name      = @through_generated_list[ i + 1 ].get_through_entry_port_name
+          next_port_subscript = @through_generated_list[ i + 1 ].get_through_entry_port_subscript
         rescue Exception => evar
           cdl_error( "S1124 $1: plugin function failed: \'get_through_entry_port_name\'" , plugin_name )
 …
         next_cell      = @cell
         next_port_name = @port_name
+        next_port_subscript = @rhs_subscript
         if next_cell == nil then
 …
         # region から @cell_name.@port_name への through がないか探す
         # rp = @through_list[i][3].find_cell_port_through_plugin( @cell_name, @port_name ) #762
         rp = @through_list[i][3].find_cell_port_through_plugin( @cell.get_global_name, @port_name )
+        rp = @through_list[i][3].find_cell_port_through_plugin( @cell.get_global_name, @port_name, @rhs_subscript )
            # @through_list[i] と @region_through_list[i-cp_len] は同じ
         # 共用しないようにするには、見つからなかったことにすればよい
 …
       if rp == nil then
+        if( load_plugin( plugin_name, ThroughPlugin ) ) then
+          gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name )
+        plClass = load_plugin( plugin_name, ThroughPlugin )
+        if( plClass ) then
+          gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, next_port_subscript, plClass )
         end
       else
 …
           # 生成したものを region(@through_list[i][3]) のリストに追加
           # @through_list[i][3].add_cell_port_through_plugin( @cell_name, @port_name, @through_generated_list[i] ) #762
           @through_list[i][3].add_cell_port_through_plugin( @cell.get_global_name, @port_name, @through_generated_list[i] )
+          @through_list[i][3].add_cell_port_through_plugin( @cell.get_global_name, @port_name, @rhs_subscript, @through_generated_list[i] )
         end
       end
 …
   #=== Join# through プラグインを呼び出して CDL 生成させるとともに、import する
   def gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name )
+  def gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, next_port_subscript, plClass )
     through = @through_list[ i ]
 …
     end
     @@plugin_creating_join = self
     caller_cell = @owner
-    plugin_object = nil
-    eval_str = "plugin_object = #{plugin_name}.new( '#{generating_cell_name}'.to_sym, plugin_arg.to_s, next_cell, '#{next_port_name}'.to_sym, @definition.get_signature, @celltype, caller_cell )"
-    if $verbose then
-      print "new through: #{eval_str}\n"
-    end
     begin
+      eval( eval_str )     # plugin を生成
+      plugin_object = plClass.new( generating_cell_name.to_sym, plugin_arg.to_s,
+                                   next_cell, next_port_name.to_sym, next_port_subscript,
+                                   @definition.get_signature, @celltype, caller_cell )
       plugin_object.set_locale @locale
     rescue Exception => evar
 …
         print "signature: #{@definition.get_signature.get_name} from: #{caller_cell.get_name} to: #{next_cell.get_name} of celltype: #{@celltype.get_name}\n"
       end
-      print "eval( #{eval_str} )\n"
       print_exception( evar )
       return
 …
   end
+  def get_rhs_subscript
+  # 末尾数字1 : CDL で指定された、右辺のセルを返す
+  def get_rhs_cell1   # get_cell と同じ
+    @cell
+  end
+  def get_rhs_port1   # get_port_name 同じ
+    @port_name
+  end
+  def get_rhs_subscript1
     @rhs_subscript
   end
 …
     # through 指定あり？
     if @through_list[0] then
-      # mikan through で生成したものが root namespace 限定
       # through で生成されたセルを探す
-#      cell = Namespace.find( [ "::", @through_generated_list[0].get_cell_name.to_sym ] )    #1
       cell = Namespace.find( @through_generated_list[0].get_cell_namespace_path )    #1
       # cell のプラグインで生成されたポート名のポートを探す (composite なら内部の繋がるポート)
 …
       # ポートを返す(composite なら内部の繋がるポートを返す)
       return @cell.get_real_port( @port_name )
+    end
+  end
+  #=== Join# 右辺の配列添数を得る
+  #    右辺が through の場合は挿入されたセルの添数
+  #    右辺が composite の場合は、内部の繋がるセルのポートの添数 (composite では変わらない)
+  #    このメソッドは get_rhs_cell,  と対になっている
+  def get_rhs_subscript
+    if @through_list[0] then
+      return @through_generated_list[0].get_through_entry_port_subscript
+    else
+      return @rhs_subscript
     end
   end
 …
   # composite cell を展開したセルの結合を clone したセルの名前に変更
   def change_rhs_port( clone_cell_list, celltype )
+    dbgPrint "change_rhs_port: name=#{@name}\n"
     # debug
     if $debug then
+      dbgPrint "change_rhs name: #{@name}  cell_name: #{@cell_name} #{@cell} #{self}\n"
+#    if @name == :cCallB then
+      # dbgPrint "change_rhs name: #{@name}  cell_name: #{@cell_name} #{@cell} #{self}\n"
+      print "============\n"
+      print "CHANGE_RHS change_rhs name: #{@owner.get_name}.#{@name}  rhs cell_name: #{@cell_name} #{@cell} #{self}\n"
       clone_cell_list.each{ |cell, ce|
+        dbgPrint "change_rhs:  #{cell.get_name}=#{cell} : #{ce.get_name}\n"
+        # dbgPrint "=== change_rhs:  #{cell.get_name}=#{cell} : #{ce.get_name}\n"
+        print "   CHANGE_RHS  change_rhs:  #{cell.get_name}=#{cell} : #{ce.get_name}\n"
+      }
+      print "============\n"
     end
 …
     # debug
     dbgPrint "  cell_name:   #{@cell_name} => #{c.get_global_name}, #{c.get_name}\n"
+    dbgPrint "  REWRITE cell_name:  #{@owner.get_name}   #{@cell_name} => #{c.get_global_name}, #{c.get_name}\n"
     # @rhs の内容を調整しておく（この内容は、subscript を除いて、後から使われていない）
 …
       # debug
       # p "array_member2.len : #{@array_member.length}"
+      dbgPrint "array_member2.len : #{@array_member.length}\n"
       i = 0
 …
         # 無駄に設定されているものについては、再帰的に呼び出す必要はない（clone_for_composite では対策している）
         if @array_member2[i] != self && @array_member[i] != nil then
+          dbgPrint "change_rhs array_member #{i}: #{@name}  #{@cell_name}\n"
           @array_member2[i].change_rhs_port( clone_cell_list, celltype )
         end
 …
   # @through_list などもコピーされるので、これが呼び出される前に確定する必要がある
   def clone_for_composite( ct_name, cell_name, locale, b_need_recursive = true )
     # debug
     dbgPrint "join.clone_for_composite : #{@name} #{@cell_name} #{self}\n"
+    dbgPrint "=====  clone_for_composite: #{@name} #{@cell_name} #{self}   =====\n"
     cl = self.clone
     if @array_member2 && b_need_recursive then
       cl.clone_array_member( @array_member, @array_member2, ct_name, cell_name, self, locale )
+      cl.clone_array_member( ct_name, cell_name, self, locale )
     end
 …
   end
   def clone_array_member( array_member, array_member2, ct_name, cell_name, prev, locale )
+  def clone_array_member( ct_name, cell_name, prev, locale )
     # 配列のコピーを作る
     am  = array_member.clone
     am2 = array_member2.clone
+    am  = @array_member.clone
+    am2 = @array_member2.clone
     # 配列要素のコピーを作る
     i = 0
     while i < am2.length
       if array_member2[i] == prev then
+      if @array_member2[i] == prev then
         # 自分自身である（ので、呼出すと無限再帰呼出しとなる）
         am2[i] = self
+      elsif array_member2[i] then
+        am2[i] = array_member2[i].clone_for_composite( ct_name, cell_name, locale, false )
+        am[i] = am2[i].get_rhs
+      elsif @array_member2[i] then
+#        am2[i] = @array_member2[i].clone_for_composite( ct_name, cell_name, locale, false )
+        am2[i] = @array_member2[i].clone_for_composite( ct_name, cell_name, locale, true )
+        am[i] = am2[i].get_rhs
       else
         # 以前のエラーで array_member2[i] は nil になっている
 …
       # debug
       dbgPrint "clone_array_member: #{@name} #{am2[i]} #{array_member2[i]}\n"
+      dbgPrint "clone_array_member: #{@name} subsript=#{i} #{am2[i]} #{@array_member2[i]}\n"
       i += 1
 …
     dbgPrint "Join#set_cloned: #{@name}  prev owner: #{@owner.get_name} new owner: #{owner.get_name}\n"
     @owner = owner
+    if @array_member2 then
+      @array_member2.each{ |join|
+        dbgPrint "Joinarray#set_cloned: #{@name}  prev owner: #{join.get_owner.get_name} new owner: #{owner.get_name}\n"
+        join.set_owner owner
+      }
+    end
   end
 …
         if j then
           (indent+2).times { print "  " }
           puts "[#{i}]: #{j.get_name}  id: #{j}"
+          puts "[#{i}]: #{j.get_name}  id: #{j} owner=#{j.get_owner.get_name}"
           j.get_rhs.show_tree(indent+3)
+          (indent+3).times { print "  " }
+          puts "cell global name: #{j.get_cell_global_name}"
+          (indent+3).times { print "  " }
+          puts "port global name: #{j.get_port_global_name}"
+#          (indent+3).times { print "  " }
+#          puts "cell global name: #{j.get_cell_global_name}"
+#          puts "cell global name: #{j.get_rhs_cell.get_global_name}"
+#          (indent+3).times { print "  " }
+#          puts "port global name: #{j.get_port_global_name}"
+#          puts "port global name: #{j.get_rhs_port.get_name}"
         else
           (indent+2).times { print "  " }
 …
 end
 #== Domain
+#== DomainType
+#
 # region の domain を記憶するクラス
 …
     @name = name
     @plugin_name = (name.to_s + "Plugin").to_sym
     load_plugin( @plugin_name, DomainPlugin )
+    plClass = load_plugin( @plugin_name, DomainPlugin )
     @region = region
     @option = option
 …
     if ! @plugin then
       pluginClass = Object.const_get @plugin_name
+      return if pluginClass == nil
       @plugin = pluginClass.new( @region, @name, @option )
+      @plugin.set_locale @locale
     end
   end
 …
   end
   #== Domain リージョンの Hash を得る
+  #== DomainType リージョンの Hash を得る
   # @@domain_regions の説明参照
   def self.get_domain_regions
 …
   def get_option
     @option
+  end
+  #== DomainType#ドメイン種別を得る
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    @plugin.get_kind
   end
 …
     if @@domain_name then
+      dbgPrint "Region=#{name} domain_type=#{@@domain_name} option=#{@@domain_option}\n"
       domain_option = CDLString.remove_dquote @@domain_option.to_s
       @domain_type = DomainType.new( self, @@domain_name, domain_option )
 …
         # 再出現時に specifier が指定されているか？
+        if( @in_through_list.length != 0 || @out_through_list.length != 0 || @to_through_list.length != 0 || @region_type != nil )then
+        if( @in_through_list.length != 0 || @out_through_list.length != 0 || @to_through_list.length != 0 ||
+            @region_type != nil || @domain_type != nil )then
           cdl_error( "S1140 $1: region specifier must place at first appearence" , name )
         end
 …
   end
+  #== Region# ルートリージョン
+  # ルートリージョンは、namespace のルートと同じインスタンス
+  def selfget_root
+    Namespace.get_root
+  end
   def next_in_through_count
     @in_through_count += 1
 …
   #=== Region# through プラグインで、この region から cell_name.port_name へのプラグインオブジェクトを登録
   # mikan namesppace 対応 (cell_name)
+  def add_cell_port_through_plugin( cell_name, port_name, through_plugin_object )
+    @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}" ] = through_plugin_object
+  end
+  def find_cell_port_through_plugin( cell_name, port_name )
+    return @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}" ]
+  def add_cell_port_through_plugin( cell_name, port_name, subscript, through_plugin_object )
+    if subscript then
+      subscript = '[' + subscript.to_s + ']'
+    end
+    @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}#{subscript}" ] = through_plugin_object
+  end
+  def find_cell_port_through_plugin( cell_name, port_name, subscript )
+    if subscript then
+      subscript = '[' + subscript.to_s + ']'
+    end
+    return @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}#{subscript}" ]
   end
 …
 end
+#== Importable class
+# this module is included by Import_C and Import
+module Importable
+#@last_base_dir::String
+  #=== Importable#find_file
+  #file::String : file name to find
+  #return::String | Nil: path to file or nil if not found
+  #find file in
+  def find_file file
+    $import_path.each{ |path|
+      if path == "."
+        pt = file
+      else
+        pt = "#{path}/#{file}"
+      end
+      if File.exist?( pt )
+        if ! $base_dir[ Dir.pwd ]
+          $base_dir[ Dir.pwd ] = true
+        end
+        if $verbose then
+          print "#{file} is found in #{path}\n"
+        end
+        @last_base_dir = nil
+        dbgPrint "base_dir=. while searching #{file}\n"
+        return pt
+      end
+    }
+    $base_dir.each_key{ |bd|
+      $import_path.each{ |path|
+#        if path =~ /\A\// || path =~ /\A[a-zA-Z]:/
+          pt = "#{path}/#{file}"
+#        else
+#          pt = "#{bd}/#{path}/#{file}"
+#        end
+        begin
+          Dir.chdir $run_dir
+          Dir.chdir bd
+          if File.exist?( pt )
+            if $verbose then
+              print "#{file} is found in #{bd}/#{path}\n"
+            end
+            @last_base_dir = bd
+            dbgPrint "base_dir=#{bd} while searching #{file}\n"
+            $base_dir[ bd ] = true
+            return pt
+          end
+        rescue
+        end
+      }
+    }
+    @last_base_dir = nil
+    dbgPrint "base_dir=. while searching #{file}\n"
+    return nil
+  end
+  def get_base_dir
+    return @last_base_dir
+    $base_dir.each{ |bd, flag|
+      if flag == true
+        return bd
+      end
+    }
+    return nil
+  end
+end
 class Import_C < Node
 …
   @@header_list2 = []
   @@define_list = {}
+  include Importable
   #=== Import_C# import_C の生成（ヘッダファイルを取込む）
 …
+    }
+    header_path = find_file header
+=begin
     include_opt = ""
     found = false
 …
     if found == false then
+=end
+    if header_path == nil then
       cdl_error( "S1142 $1 not found in search path" , header )
       return
     end
+    include_opt = ""
+    if get_base_dir then
+      base = get_base_dir + "/"
+    else
+      base = ""
+    end
+    $import_path.each{ |path|
+      include_opt = "#{include_opt} -I #{base}#{path}"
+    }
     # 読込み済み？
 …
     @@header_list2 << header
     @@define_list[ header ] = define
+    if $verbose then
+      print "import_C header=#{header_path}, define=#{define}\n"
+    end
     begin
 …
  * --no-gcc-extension-support for tecsgen.
  */
+#ifdef __GNUC__
 #ifndef __attribute__
 #define __attribute__(x)
 …
 #endif
+#ifndef restrict
+#define restrict
+#endif
+#endif /* ifdef __GNUC__ */
 #endif /* TECS_NO_GCC_EXTENSION_SUPPORT */
 EOT
 …
 # @cdl_path:: string:   CDL のパス
 # @b_imported:: bool:   import された(コマンドライン指定されていない)
+  include Importable
   # ヘッダの名前文字列のリスト  添字：expand したパス、値：Import
 …
     @b_reuse_real = @b_reuse || Generator.is_reuse?
+    if Generator.get_plugin then
+      # plugin から import されている場合 gen をサーチパスの先頭に加える
+      search_path = [ $gen ] + $import_path
+    else
+      search_path = $import_path
+    end
+    search_path.each{ |path|
+      dbgPrint "import: searching #{path}/#{@cdl}"
+      begin
+        if path == "."
+          cdl_path =  @cdl
+        else
+          cdl_path = "#{path}/#{@cdl}"
+        end
+        # ファイルの stat を取ってみる(なければ例外発生)
+        File.stat( cdl_path )
+        # cdl を見つかったファイルパスに再設定
+        @cdl_path = cdl_path
+    if( Generator.get_plugin ) &&( File.exist? "#{$gen}/#{@cdl}" ) then
+      @cdl_path = "#{$gen}/#{@cdl}"
+      found = true
+    else
+      path = find_file @cdl
+      if path then
         found = true
+        dbgPrint ": found\n"
+        break
+      rescue => evar
+        found = false
+        dbgPrint ": not found\n"
+        # print_exception( evar )
+      end
+    }
+        @cdl_path = path
+      end
+    end
     if found == false then
 …
 end
 #== generate: signature プラグインのロードと実行
+#== generate: signature, celltype, cell へのプラグインのロードと適用
 class Generate < Node
 #@plugin_name:: Symbol
 #@signature_nsp:: NamespacePath
+#@object_nsp:: NamespacePath
 #@option::         String '"', '"' で囲まれている
+#@plugin_object:: Plugin
   include PluginModule
   def initialize( plugin_name, signature_nsp, option )
+  def initialize( plugin_name, object_nsp, option )
     super()
     @plugin_name = plugin_name
     @signature_nsp = signature_nsp
+    @object_nsp = object_nsp
     option = option.to_s    # option は Token
     @option = option
+    signature = Namespace.find( signature_nsp ) #mikan Namespace   #1
+    if ! signature.instance_of? Signature then
+      cdl_error( "S1149 $1 not signature" , signature_nsp )
+    @plugin_object = nil
+    dbgPrint "generate: #{plugin_name} #{object_nsp.to_s} option=#{option}\n"
+    object = Namespace.find( object_nsp )
+    if object.kind_of?( Signature ) ||
+       object.kind_of?( Celltype ) ||
+       object.kind_of?( CompositeCelltype ) ||
+       object.kind_of?( Cell )then
+      @plugin_object = object.apply_plugin( @plugin_name, @option )
+    elsif object then
+      # V1.5.0 以前の仕様では、signature のみ可能だった
+#      cdl_error( "S1149 $1 not signature" , signature_nsp )
+      cdl_error( "S9999 generate: '$1' neither signature, celltype nor cell", object_nsp )
       return
+    elsif signature.is_empty? then
+      cdl_warning( "S9999 $1 is empty. cannot apply signature plugin. ignored" , signature_nsp )
+      return
+    end
+    load_plugin( plugin_name, SignaturePlugin )
+    plugin_object = nil
+    eval_str = "plugin_object = #{plugin_name}.new( signature, option )"
+    if $verbose then
+      print "new through: #{eval_str}\n"
+    end
+    begin
+      eval( eval_str )     # plugin を生成
+      plugin_object.set_locale @locale
+    rescue Exception => evar
+      cdl_error( "S1150 $1: fail to new" , plugin_name )
+      print "eval( #{eval_str} )\n"
+      print_exception( evar )
+    end
+    generate_and_parse plugin_object
+    else
+      cdl_error( "S9999 generate: '$1' not found", object_nsp )
+    end
   end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/ctypes.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
       end
       return self
     else
+    elsif self.instance_of?( CFloatType ) then
       # mikan long double
       #   TECS には long double を表現する手段がない (double80_t を定義すればよいか?)
 #      cdl_warning( "C1003 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.class, another.class, self.class )
+      cdl_warning( "W9999 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.get_type_str, another.get_type_str, self.get_type_str )
+      return self
+#      cdl_warning( "W9999 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.get_type_str, another.get_type_str, self.get_type_str )
+      self.to_long
+      return self
+    else
+      raise "merge: unknown type"
     end
   end
 …
   end
+  def to_long
+    if @bit_size != -64 then
+      cdl_warning( "W9999 long specified for $1" , get_type_str )
+    else
+      @bit_size = -128  # @bit_size = -128 : long double
+    end
+  end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/expression.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
     when :IDENTIFIER
       nsp = elements[1]
+      # if nsp.is_name_only? && name_list && name_list.get_item( nsp.get_name ) then
       if nsp.is_name_only? && name_list && name_list.get_item( nsp.get_name ) then
         return "#{pre}#{nsp.get_name}#{post}"
 …
   end
+  #=== Expression# 逆ポーランド文字列化
+  #param_list:: ParamlList  関数の引数リスト
+  def get_rpn( param_list = nil, name_list2 = nil )
+    return elements_rpn( @elements, param_list, name_list2 )
+  end
+  #=== Expression# 逆ポーランド文字列化 (private)
+  #name_list:: ParamlList  関数の引数リスト
+  def elements_rpn( elements, name_list = nil, name_list2 = nil )
+    if elements.instance_of? Token then
+      print "rpn: #{elements.to_s}\n"
+      return elements.to_s    # OP_DOT, OP_REF の右辺
+    end
+    case elements[0]
+    when :IDENTIFIER
+      nsp = elements[1]
+      #if nsp.is_name_only? && name_list && name_list.find( nsp.get_name ) then
+      if nsp.is_name_only? then
+        count = 0
+        # p "search: #{nsp.get_name}"
+        name_list.get_items.each{ |nm,val|
+          # p "    : #{nm.get_name} #{nsp.get_name.class} #{nm.get_name.class}"
+          if nsp.get_name == nm.get_name then
+            return " $#{count}"
+          end
+          count += 1
+        }
+        raise "not found parameter"
+      else
+        # return  elements[1].get_global_name
+        raise "not unexpected parameter"
+      end
+    when :INTEGER_CONSTANT, :FLOATING_CONSTANT, :OCTAL_CONSTANT, :HEX_CONSTANT, :CHARACTER_LITERAL, :STRING_LITERAL_LIST, :BOOL_CONSTANT
+      return elements[1].to_s
+    when :PARENTHESES
+      return elements_rpn( elements[1], name_list, name_list2 )
+    when :OP_SUBSC
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[1], "", name_list, name_list2 ) + " []"
+    when :OP_DOT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " ."
+    when :OP_REF
+      return elements_rpn( elements[1], name_list, name_list2 ) + " ->"
+    when :OP_SIZEOF_EXPR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #s"
+    when :OP_SIZEOF_TYPE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #S"
+    when :OP_U_AMP
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #&"
+    when :OP_U_ASTER
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #*"
+    when :OP_U_PLUS
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #+"
+    when :OP_U_MINUS
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #-"
+    when :OP_U_TILDE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #~"
+    when :OP_U_EXCLAM
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #!"
+    when :CAST
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #(" + elements_rpn( elements[2], "", name_list, name_list2 ) + ")"
+    when :OP_MULT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " *"
+    when :OP_DIV
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " /"
+    when :OP_REMAIN
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " %"
+    when :OP_ADD
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " +"
+    when :OP_SUB
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " -"
+    when :OP_LSFT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " <<"
+    when :OP_RSFT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " >>"
+    when :OP_LT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " <"
+    when :OP_GT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " >"
+    when :OP_LE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " <="
+    when :OP_GE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " >="
+    when :OP_EQ
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " =="
+    when :OP_NE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " !="
+    when :OP_AND
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " &"
+    when :OP_EOR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " ^"
+    when :OP_OR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " |"
+    when :OP_LAND
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " &&"
+    when :OP_LOR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " ||"
+    when :OP_CEX
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " +
+             elements_rpn( elements[2], name_list, name_list2 ) + " " +
+             elements_rpn( elements[3], name_list, name_list2 ) + " ?:"
+    else
+      raise "Unknown expression element: #{elemets[0]}. try -t and please report"
+    end
+    return ""
+  end
   # 定数式(elements)を評価する
+  #
 …
       return nil
     when :OP_SIZEOF_EXPR
+      cdl_error( "E1007 cannot evaluate \'sizeof\' operator"  )
+      if Generator.parsing_C? then
+        cdl_info( "I9999 cannot evaluate \'sizeof\' operator. this might causes later error."  )
+      else
+        cdl_error( "E1007 cannot evaluate \'sizeof\' operator"  )
+      end
       return nil
     when :OP_SIZEOF_TYPE
+      cdl_error( "E1008 cannot evaluate \'sizeof\' operator"  )
+      if Generator.parsing_C? then
+        cdl_info( "I9999 cannot evaluate \'sizeof\' operator. this might causes later error."  )
+      else
+        cdl_error( "E1008 cannot evaluate \'sizeof\' operator"  )
+      end
       return nil
     when :OP_U_AMP

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/generate.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class Namespace
+  @@domain_gen_factory_list = nil
   def generate
 …
           return
         end
+        if instance_of? Region then
+          @@domain_gen_factory_list = {}   # create hash
+        end
       end
 …
       gen_global_header
+      if ( instance_of? Region ) && get_domain_type != nil then
+        # p "*******************  domain_type: #{get_domain_type.get_name}  ****************"
+        domain_type = get_domain_type
+        if @@domain_gen_factory_list[ domain_type ] == nil then
+          @@domain_gen_factory_list[ domain_type ] = self
+          domain_type.gen_factory
+        end
+      end
       # signature のコードを生成
       @signature_list.each { |s|
 …
       f.print( "/* Descriptor for dynamic join */\n" )
+      f.print( "#define Descriptor( signature_global_name )  DynDesc__ ## signature_global_name\n\n" )
+      f.print( "#define Descriptor( signature_global_name )  DynDesc__ ## signature_global_name\n" )
+      f.print( "#define is_descriptor_unjoined( desc )  ((desc).vdes==NULL)\n\n" )
       endif_macro_only f
     end
 …
+      }
     end
         f.print "       rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET) #{timestamp}\n"
+          f.print "     rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET) #{timestamp}\n"
     if $generating_region == @@root_namespace then
       f.print " rm -rf $(GEN_DIR)\n"
 …
       f.print "tecs : $(PRE_TECSGEN_TARGET) $(TIMESTAMP) $(POST_TECSGEN_TARGET)\n\n"
       f.print "$(TIMESTAMP) : $(TECS_IMPORTS)\n"
       f.print " $(TECSGEN) #{TECSGEN.subst_tecspath( $arguments, true )}\n"
+      f.print " $(TECSGEN) #{TECSGEN.subst_tecspath( $arguments, true )}\n\n"
       # f.print "       touch $(TIMESTAMP)\n\n"
     else
       f.print "tecs:\n"
 …
     end
+    # tecsflow:, tcflow ターゲット
+    if $generating_region.get_n_cells != 0 || $generating_region == @@root_namespace then
+      f.print "#####  TECSFlow targets  #####\n"
+    end
+    if Region.get_link_roots.length > 1 && $generating_region == @@root_namespace then
+      tecsflow_target = "tecsflow_sub"
+      if $generating_region.get_n_cells > 0 then
+        f.print "tecsflow: tecs tecsflow_sub\n"
+      else
+        f.print "tecsflow:\n"
+      end
+      Region.get_link_roots.each {|region|
+        if region.get_n_cells > 0 then
+          f.print "\tcd #{region.get_global_name}; make tecsflow\n"
+        end
+      }
+      f.print "\n"
+    else
+      tecsflow_target = "tecsflow"
+    end
+    if $generating_region.get_n_cells != 0 then
+      f.print "#{tecsflow_target} : $(GEN_DIR)/tecsgen.rbdmp tcflow\n"
+      f.print "\ttecsflow -g $(GEN_DIR)\n\n"
+      f.print "tecsflow_u : $(GEN_DIR)/tecsgen.rbdmp tcflow\n"
+      f.print "\ttecsflow -g $(GEN_DIR) -U\n\n"
+      f.print "$(GEN_DIR)/tecsgen.rbdmp : tecs\n\n"
+      f.print "tcflow : tecs\n"
+      f.print "\tmake tcflow_exec\n\n"
+      f.print "tcflow_exec : $(GEN_DIR)/tcflow.rbdmp\n"
+      f.print "$(GEN_DIR)/tcflow.rbdmp : $(CELLTYPE_SRCS) $(PLUGIN_CELLTYPE_SRCS)\n"
+      f.print "\ttcflow -g $(GEN_DIR) -c '$(CC) -E -DTECSFLOW -DTECSGEN $(CFLAGS) -I ./' $^\n"
+    end
+    if $generating_region.get_n_cells != 0 || $generating_region == @@root_namespace then
+      f.print "#####  end TECSFlow targets  #####\n\n"
+    end
+    # generic %.o : %.c
     f.print "# generic target for objs\n"
     f.print "$(_TECS_OBJ_DIR)%.o : %.#{$c_suffix}\n"
 …
     ### Makefile.tecsgen の生成
     f = AppFile.open( "#{$gen}/Makefile.tecsgen" )
+    f.print <<EOT
+# generated automatically by tecsgen.
+# This file is not intended to modify.
+#
+# Makefile variables below are defined.
+#  TECS_IMPORT_CDLS          .cdl files improted by import statement
+#  SIGNATURE_HEADERS         .h files of signature
+#  CELLTYPE_TECSGEN_HEADERS  .h files of celltype
+#  CELLTYPE_FACTORY_HEADERS  .h files of celltype's factory
+#  TECS_HEADERS              summary of .h files above
+#  TECS_INLINE_HEADERS       .h files of celltype inline header
+#  PLUGIN_INLINE_HEADERS     .h files of plugin generated inline header
+#
+#  TECS_COBJS                .o files of TECS
+#                            = $(TECSGEN_COBJS)+$(PLUGIN_COBJS)+$(CELLTYPE_COBJS)
+#                            = $(TECS_KERNEL_COBJS)+$(TECS_KERNEL_COBJS)+$(TECS_OUTOFDOMAIN_COBJS)
+#                            = $(TECSGEN_domain_COBJS)+$(PLUGIN_domain_COBJS)+$(CELLTYPE_domain_COBJS) for each domain
+#
+#  TECSGEN_COBJS             .o files of celltype_tecsgen.c
+#  CELLTYPE_COBJS            .o files of celltype.c (celltype code)
+#  PLUGIN_COBJS              .o files of plugin generated .c files
+#
+#  TECSGEN_SRCS              .c files of celltype_tecsgen.c
+#  CELLTYPE_SRCS             .c files of celltype.c (celltype code)
+#  PLUGIN_SRCS               .c files of plugin generated
+#  PLUGIN_CELLTYPE_SRCS      .c files of plugin generated celltype.c (celltype code)
+#  PLUGIN_TECSGEN_SRCS       .c files of plugin generated celltype_tecsgen.c
+#
+# Variables for domain
+#  TECS_DOMAINS             domain names
+#  TECS_KERNEL_COBJS        .o files of kernel domain (tecsgen, celltype, plugin)
+#  TECS_USER_COBJS          .o files of user domain (tecsgen, celltype, plugin)
+#  TECS_OUTOFDOMAIN_COBJS   .o files of OutOfDomain (tecsgen, celltype, plugin)
+#  TECSGEN_domain_COBJS     .o files of celltype_tecsgen.c files for each domain
+#  PLUGIN_domain_COBJS      .o files of plugin generated .c files for each domain
+#  CELLTYPE_domain_COBJS    .o files of celltype.c files for each domain
+#  TECSGEN_domain_SRCS      .c files of celltype_domain_tecsgen.c
+#  PLUGIN_domain_SRCS       .c files of plugin generated .c files for each domain
+#  CELLTYPE_domain_SRCS     .c files of celltype.c files for each domain
+EOT
     f.print( "TECS_IMPORT_CDLS =" )
 …
     DomainType.get_domain_regions.each{ |dt, regions|
       # domain_type は一つのノードには、一つしかないので、このループは、必ず一回しか回らない
+        ###   mikan 複数のノードがあり、異なる domain_type が指定される可能性はある
       domain_regions = regions
       domain_type = dt
 …
       f.print( "\n\n" )
+      f.print( "# TECS_COBJS: objects from sources which are automatically generated by tecsgen\n" )
+      f.print( "# TECS_KERNEL_COBJS: objects belong to kernel domain\n" )
+      f.print( "TECS_KERNEL_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :kernel then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_KERNEL_COBJS terminator\n\n" )
+      f.print( "# TECS_USER_COBJS: objects belong to user domain\n" )
+      f.print( "TECS_USER_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :user then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_USER_COBJS terminator\n\n" )
+      f.print( "# TECS_OUTOFDOMAIN_COBJS: objects belong to OutOfDomain\n" )
+      f.print( "TECS_OUTOFDOMAIN_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :OutOfDomain then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_OUTOFDOMAIN_COBJS terminator\n\n" )
+      f.print( "# TECSGEN_COBJS: objects from sources which are automatically generated by tecsgen\n" )
       f.print( "TECSGEN_COBJS = \\\n" )
       domain_regions.each{ |r|
 …
     ###
     f.print( "# TECS_COBJS: objects from sources which are automatically generated by tecsgen\n" )
+    f.print( "# TECSGEN_COBJS: objects from sources which are automatically generated by tecsgen\n" )
     domain_regions.each{ |r|
       nsp = decideDomainNameProc.call( r )
 …
     f.print( "# PLUGIN_SRCS: sources automatically generated by plugin\n" )
+    f.print( "PLUGIN_CELLTYPE_SRCS = \\\n" )
     domain_regions.each{ |r|
       nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_SRCS = \\\n" )
+      gen_celltype_names_domain( f, "   $(GEN_DIR)/", "_tecsgen.#{$c_suffix} \\\n", domain_type, r, true )
+      gen_celltype_names_domain2( f, "  $(GEN_DIR)/", ".#{$c_suffix} \\\n", domain_type, r, true, false )
+      f.print( "# PLUGIN#{nsp}_SRCS terminator\n\n" )
+    }
+      f.print( "  $(PLUGIN#{nsp}_CELLTYPE_SRCS)\\\n" )
+    }
+    f.print( "# PLUGIN_CELLTYPE_SRCS terminator\n\n" )
+    f.print( "PLUGIN_TECSGEN_SRCS = \\\n" )
+    domain_regions.each{ |r|
+      nsp = decideDomainNameProc.call( r )
+      f.print( "  $(PLUGIN#{nsp}_TECSGEN_SRCS)\\\n" )
+    }
+    f.print( "# PLUGIN_TECSGEN_SRCS terminator\n\n" )
+    domain_regions.each{ |r|
+      nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_SRCS = $(PLUGIN#{nsp}_CELLTYPE_SRCS) $(PLUGIN#{nsp}_TECSGEN_SRCS)\n\n" )
+      f.print( "PLUGIN#{nsp}_CELLTYPE_SRCS = \\\n" )
+      gen_celltype_names_domain2( f, "", ".#{$c_suffix} \\\n", domain_type, r, true, false )
+      f.print( "# PLUGIN#{nsp}_CELLTYPE_SRCS terminator\n\n" )
+      nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_TECSGEN_SRCS = \\\n" )
+      gen_celltype_names_domain( f, "", "_tecsgen.#{$c_suffix} \\\n", domain_type, r, true )
+      f.print( "# PLUGIN#{nsp}_TECSGEN_SRCS terminator\n\n" )
+    }
+    f.print( "# CELLTYPE_SRCS: sources of celltype code written by user\n" )
+     f.print( "CELLTYPE_SRCS = \\\n" )
+     gen_celltype_names( f, "   ", ".#{$c_suffix} \\\n", false, false )
+      f.print( "# CELLTYPE_SRCS terminator\n\n" )
     f.close
 …
   end
+  #=== Namespace#すべてのシグニチャをたどる
+  def travers_all_signature # ブロック引数 { |signature|  }
+    proc = Proc.new    # このメソッドのブロック引数
+    @signature_list.each{ |sig|
+      proc.call sig
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_signature_proc proc
+    }
+  end
+  def travers_all_signature_proc proc
+    @signature_list.each{ |sig|
+      proc.call sig
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_signature_proc proc
+    }
+  end
+  #=== Namespace#すべてのセルタイプをたどる
+  def travers_all_celltype # ブロック引数 { |celltype|  }
+    proc = Proc.new    # このメソッドのブロック引数
+    @celltype_list.each{ |ct|
+      proc.call ct
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_celltype_proc proc
+    }
+  end
+  def travers_all_celltype_proc proc
+    @celltype_list.each{ |ct|
+      proc.call ct
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_celltype_proc proc
+    }
+  end
 end
 …
       f.printf TECSMsg.get(:SDI_comment), "#_SDI_#"
       dl.each{ |dt,param|
+        f.print "#include \"#{dt.get_signature.get_global_name}_tecsgen.#{$h_suffix}\"\n"
+        f.print <<EOT
+/* pre-typedef incomplete-type to avoid error in case of mutual or cyclic reference */
+#ifndef Descriptor_of_#{dt.get_global_name}_Defined
+#define  Descriptor_of_#{dt.get_global_name}_Defined
+typedef struct { struct tag_#{dt.get_global_name}_VDES *vdes; } Descriptor( #{dt.get_global_name} );
+#endif
+EOT
+#        f.print "#include \"#{dt.get_global_name}_tecsgen.#{$h_suffix}\"\n"
+      }
       f.print "\n"
 …
     end
+    f.print "};\n"
+    f.printf "\n"
+    f.print "};\n\n"
     f.printf TECSMsg.get(:SDES_comment), "#_SDES_#"
+    f.print( "typedef struct { struct tag_#{@global_name}_VDES *vdes; } Descriptor( #{@global_name} );\n" )
+    f.print <<EOT
+#ifndef Descriptor_of_#{@global_name}_Defined
+#define  Descriptor_of_#{@global_name}_Defined
+typedef struct { struct tag_#{@global_name}_VDES *vdes; } Descriptor( #{@global_name} );
+#endif
+EOT
   end
 …
     gen_ph_get_cellcb f
     gen_ph_attr_access f          if @n_attribute_rw > 0 || @n_attribute_ro > 0 || @n_var > 0
+    gen_ph_cp_fun_macro f         if @n_call_port > 0
+    f.print "#ifndef TECSFLOW\n"
+    gen_ph_cp_fun_macro f, false  if @n_call_port > 0
+    f.print "#else  /* TECSFLOW */\n"
+    gen_ph_cp_fun_macro f, true   if @n_call_port > 0
+    f.print "#endif /* TECSFLOW */\n"
 #    gen_ph_abstract_ep_des_type f
 …
 #    gen_ph_ep_fun_prototype f
     gen_ph_ep_skel_prototype f
+    #--- CB_TYPE_ONLY の場合、ref_desc, set_desc 関数は含めない (マクロ参照するため)
+    if @n_entry_port_inline == 0 then
+      ifndef_cb_type_only f
+    end
+    gen_ph_ref_desc_func f
+    gen_ph_set_desc_func f
+    if @n_entry_port_inline == 0 then
+      endif_cb_type_only f
+    end
     end_extern_C f
     endif_macro_only f
 …
     gen_ph_attr_access_abbrev f   if @n_attribute_rw > 0 || @n_attribute_ro > 0 || @n_var > 0
     gen_ph_cp_fun_macro_abbrev f  if @n_call_port > 0
+    gen_ph_ref_desc_macro_abbrev f
+    gen_ph_set_desc_macro_abbrev f
     gen_ph_test_optional_call_port_abbrev f
     gen_ph_ep_fun_macro f         if @n_entry_port > 0
 …
           end
+        }
+        if p.is_dynamic? then
+          f.print( "#undef #{p.get_name}_set_descriptor\n" )
+          if p.is_optional? then
+            f.print( "#undef #{p.get_name}_unjoin\n" )
+          end
+        elsif p.is_ref_desc? then
+          f.print( "#undef #{p.get_name}_refer_to_descriptor\n" )
+          f.print( "#undef #{p.get_name}_ref_desc\n" )
+        end
+      }
       @port.each { |p|
 …
   def gen_ph_info f
+    yn_multi_domain = "no"
+    yn_multi_domain = "yes" if multi_domain?
     yn_idx_is_id = "no"
     yn_idx_is_id = "yes"  if @idx_is_id
 …
     yn_rom       = "no"
     yn_rom       = "yes"  if $rom
+    yn_has_CB    = "no"
+    yn_has_CB    = "yes"  if has_CB?
+    yn_has_INIB  = "no"
+    yn_has_INIB  = "yes"  if has_INIB?
     yn_cb_init   = "no"
     yn_cb_init   = "yes"  if need_CB_initializer?
 …
  * celltype          :  #{@name}
  * global name       :  #{@global_name}
+ * multi-domain      :  #{yn_multi_domain}
  * idx_is_id(actual) :  #{yn_idx_is_id}(#{yn_idx_is_id_act})
  * singleton         :  #{yn_singleton}
  * has_CB            :  #{has_CB?}
  * has_INIB          :  #{has_INIB?}
+ * has_CB            :  #{yn_has_CB}
+ * has_INIB          :  #{yn_has_INIB}
  * rom               :  #{yn_rom}
  * CB initializer    :  #{yn_cb_init}
 …
       end
+      if p.get_array_size == nil then
+        f.print( "#define #{@global_name}_is_#{p.get_name}_joined(p_that) \\\n" )
+      else
+        f.print( "#define #{@global_name}_is_#{p.get_name}_joined(p_that,subscript) \\\n" )
+      end
+      if @singleton then
+        param = ""
+        delim = ""
+      else
+        param = "p_that"
+        delim = ","
+      end
+      if p.get_array_size != nil then
+        param = param + delim + "subscript"
+      end
+      f.print( "#define #{@global_name}_is_#{p.get_name}_joined(#{param}) \\\n" )
       if p.is_omit? then
 …
       # mikan  全部つながっているかどうかで (1) を判定する
       if ! p.is_VMT_useless? then
+        if p.is_dynamic? then
+          if @singleton then
+            inib_tmp = "CB"
+          else
+            inib_tmp = ""
+          end
+        else
+          inib_tmp = inib
+        end
         # 標準コード
         if p.get_array_size == nil then
           if @singleton then
             f.print( "\t  (#{@global_name}_SINGLE_CELL_#{inib}.#{p.get_name}!=0)\n" )
+            f.print( "\t  (#{@global_name}_SINGLE_CELL_#{inib_tmp}.#{p.get_name}!=0)\n" )
           else
             f.print( "\t  ((p_that)#{inib}->#{p.get_name}!=0)\n" )
+            f.print( "\t  ((p_that)#{inib_tmp}->#{p.get_name}!=0)\n" )
           end
         else
           # 配列の場合
           if @singleton then
             f.print( "\t  ((#{@global_name}_SINGLE_CELL_#{inib}.#{p.get_name}!=0) \\\n" )
             f.print( "\t  &&(#{@global_name}_SINGLE_CELL_#{inib}.#{p.get_name}[subscript]!=0))\n" )
+            f.print( "\t  ((#{@global_name}_SINGLE_CELL_#{inib_tmp}.#{p.get_name}!=0) \\\n" )
+            f.print( "\t  &&(#{@global_name}_SINGLE_CELL_#{inib_tmp}.#{p.get_name}[subscript]!=0))\n" )
           else
             f.print( "\t  (((p_that)#{inib}->#{p.get_name}!=0)\\\n" )
             f.print( "\t  &&((p_that)#{inib}->#{p.get_name}[subscript]!=0))\n" )
+            f.print( "\t  (((p_that)#{inib_tmp}->#{p.get_name}!=0)\\\n" )
+            f.print( "\t  &&((p_that)#{inib_tmp}->#{p.get_name}[subscript]!=0))\n" )
           end
         end
 …
       end
+      if @singleton then
+        param = ""
+        delim = ""
+      else
+        param = "p_cellcb"
+        delim = ","
+      end
       if p.get_array_size == nil then
+        f.print( "#define is_#{p.get_name}_joined()\\\n\t\t#{@global_name}_is_#{p.get_name}_joined(p_cellcb)\n" )
+      else
+        f.print( "#define is_#{p.get_name}_joined(subscript)\\\n" )
+        f.print( "\t\t#{@global_name}_is_#{p.get_name}_joined(p_cellcb,subscript)\n" )
+      end
+        subscript = ""
+      else
+        subscript = "subscript"
+        param = param + delim + subscript
+      end
+      f.print( "#define is_#{p.get_name}_joined(#{subscript})\\\n\t\t#{@global_name}_is_#{p.get_name}_joined(#{param})\n" )
+    }
   end
 …
       f.print( "#define #{@global_name}_GET_CELLCB(idx) ((void *)0)\n" )
     elsif @idx_is_id_act then   # mikan 単一のセルの場合の最適化, idx_is_id でない場合
       f.print( "#define #{@global_name}_GET_CELLCB(idx) (#{@global_name}_CB_tab[(idx) - #{@global_name}_ID_BASE])\n" )
+      f.print( "#define #{@global_name}_GET_CELLCB(idx) (#{@global_name}_CB_ptab[(idx) - #{@global_name}_ID_BASE])\n" )
     else
       f.print( "#define #{@global_name}_GET_CELLCB(idx) (idx)\n" )
 …
   end
   def gen_ph_cp_fun_macro f
     if @n_call_port >0 then
+  def gen_ph_cp_fun_macro f, b_flow
+    if @n_call_port >0 && b_flow == false then
       f.printf( TECSMsg.get( :CPM_comment ) , "#_CPM_#" )
-    end
-    if @singleton then
-      if has_INIB? then
-        inib = "INIB"
-      else
-        inib = "CB"
-      end
-    else
-      if has_CB? && has_INIB? then
-        inib = "->_inib"
-      else
-        inib = ""
-      end
     end
 …
       p.get_signature.get_function_head_array.each{ |fun|
+        if @singleton then
+          if has_INIB? then
+            inib = "INIB"
+          else
+            inib = "CB"
+          end
+          if p.is_dynamic? && p.get_array_size == nil then
+            # dynamic call port (not array)
+            inib = "CB"
+          end
+        else
+          if has_CB? && has_INIB? then
+            inib = "->_inib"
+          else
+            inib = ""
+          end
+          if p.is_dynamic? && p.get_array_size == nil then
+            # dynamic call port (not array)
+            inib = ""
+          end
+        end
         f.print( "#define #{@global_name}_#{p.get_name}_#{fun.get_name}(" )
         ft = fun.get_declarator.get_type
 …
         # 関数名の出力(標準：受け口ディスクリプタから VMT の関数名、最適化：受け口関数 or 受け口ディスクリプタ)
+        if ! p.is_VMT_useless? then
+        if b_flow then
+          f.print( "\t  (p_that)->#{p.get_name}#{subsc}.#{fun.get_name}__T( \\\n" )
+        elsif ! p.is_VMT_useless? then
           # 標準コード
           if @singleton then
 …
         # 受け口情報の出力(標準：受け口ディスクリプタ、最適化：IDX など)
+        if ! p.is_skelton_useless? && ! p.is_cell_unique? then
+        if b_flow then
+        elsif ! p.is_skelton_useless? && ! p.is_cell_unique? then
           # 標準コード
           if @singleton then
 …
   end
+  #=== ref_desc 指定された呼び口に対するディスクリプタ参照関数の生成
+  def gen_ph_ref_desc_func f
+    if @n_call_port_ref_desc >0 then
+      f.printf( TECSMsg.get( :CRD_comment ), "#_CRD_#" )
+    end
+    if has_CB? && has_INIB? then
+      inib = "->_inib"
+    else
+      inib = ""
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_ref_desc?
+      if @singleton then
+        p_that = ""
+        p_cellcb = ""
+        delim = ""
+        if has_INIB? then
+          cb = "#{@global_name}_SINGLE_CELL_INIB."
+        else
+          cb = "#{@global_name}_SINGLE_CELL_CB."
+        end
+      else
+        p_that = "#{@global_name}_CB  *p_that"
+        p_cellcb = "    #{@global_name}_CB *p_cellcb = p_that;\n"
+        delim = ", "
+        cb = "p_cellcb#{inib}->"
+      end
+      if p.get_array_size
+        array = "#{delim}int_t  i "
+        array2 = "[ i ]"
+        assert = "    assert( 0 <= i && i < NCP_#{p.get_name} );\n"
+      else
+        array = ""
+        array2 = ""
+        assert = ""
+      end
+      f.print <<EOT
+/* [ref_desc] #{p.get_name} */
+Inline Descriptor( #{p.get_signature.get_global_name} )
+#{@global_name}_#{p.get_name}_refer_to_descriptor( #{p_that}#{array} )
+{
+    Descriptor( #{p.get_signature.get_global_name} )  des;
+#{p_cellcb}    /* cast is ncecessary for removing 'const'  */
+#{assert}    des.vdes = (struct tag_#{p.get_signature.get_global_name}_VDES *)#{cb}#{p.get_name}#{array2};
+    return des;
+}
+EOT
+    }
+  end
+  #=== dynamic 指定された呼び口に対するディスクリプタ設定関数の生成
+  def gen_ph_set_desc_func f
+    if @n_call_port_dynamic >0 then
+      f.printf( TECSMsg.get( :SDF_comment ), "#_SDF_#" )
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_dynamic?
+      if has_CB? && has_INIB? && p.get_array_size then
+        inib = "->_inib"
+      else
+        inib = ""
+      end
+      if @singleton then
+        # p "main== #{@global_name} #{p.get_name} #{p.get_array_size}"
+        p_that = ""
+        p_that2 = ""
+        p_cellcb = ""
+        if p.get_array_size && $rom then
+          cb = "#{@global_name}_SINGLE_CELL_INIB."
+        else
+          cb = "#{@global_name}_SINGLE_CELL_CB."
+        end
+      else
+        p_that = "#{@global_name}_CB  *p_that, "
+        p_that2 = "#{@global_name}_CB  *p_that "
+        p_cellcb = "    #{@global_name}_CB *p_cellcb = p_that;\n"
+        cb = "(p_cellcb)->#{inib}"
+      end
+      if p.get_array_size then
+        array = "int_t  i, "
+        array2 = "[ i ]"
+        array3 = " int_t  i "
+        assert2 = "    assert( 0 <= i && i < NCP_#{p.get_name} );\n"
+      else
+        array = ""
+        array2 = ""
+        array3 = ""
+        assert2 = ""
+      end
+      f.print <<EOT
+/* [dynamic] #{p.get_name} */
+Inline void
+#{@global_name}_#{p.get_name}_set_descriptor( #{p_that}#{array}Descriptor( #{p.get_signature.get_global_name} ) des )
+{
+#{p_cellcb}    assert( des.vdes != NULL );
+#{assert2}    #{cb}#{p.get_name}#{array2} = des.vdes;
+}
+EOT
+      if p.is_optional? then
+        if p_that2 != "" && array3 != "" then
+          delim = ", "
+        else
+          delim = ""
+        end
+        f.print <<EOT
+/* [dynamic,optional] #{p.get_name} */
+Inline void
+#{@global_name}_#{p.get_name}_unjoin( #{p_that2}#{delim}#{array3} )
+{
+#{p_cellcb}    #{cb}#{p.get_name}#{array2} = NULL;
+}
+EOT
+      end
+    }
+  end
   #=== send/receive で受け取ったメモリ領域を dealloc するマクロコード
   #f:: File
 …
         if p.is_omit? then
           f.print( "                      #{dummy_p_cell_access_pre}omitted #{p.get_name}_#{fun.get_name}(" )
         else
           f.print( "                      #{dummy_p_cell_access_pre}#{@global_name}_#{p.get_name}_#{fun.get_name}(" )
+          f.print( "          #{dummy_p_cell_access_pre}omitted #{p.get_name}_#{fun.get_name}(" )
+        else
+          f.print( "          #{dummy_p_cell_access_pre}#{@global_name}_#{p.get_name}_#{fun.get_name}(" )
         end
         ft = fun.get_declarator.get_type
 …
         f.print( " )#{dummy_p_cell_access_post}\n" )
+      }
+    }
+    f.print( "\n" )
+  end
+  def gen_ph_ref_desc_macro_abbrev f
+    if @n_call_port_ref_desc >0 then
+      f.printf( TECSMsg.get( :CRDA_comment ), "#_CRDA_#" )
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_ref_desc?
+      if @singleton then
+        p_cellcb = ""
+        delim = ""
+      else
+        p_cellcb = "p_cellcb"
+        delim = ", "
+      end
+      if p.get_array_size then
+        array = " i "
+        array2 = "#{delim}i"
+      else
+        array = ""
+        array2 = ""
+      end
+      f.printf( "#define %s_refer_to_descriptor(#{array})\\\n          %s_refer_to_descriptor( #{p_cellcb}#{array2} )\n",
+                "#{p.get_name}",
+                "#{@global_name}_#{p.get_name}" )
+      f.printf( "#define %s_ref_desc(#{array})\\\n          %s_refer_to_descriptor(#{array})\n",
+                "#{p.get_name}",
+                "#{p.get_name}" )
+    }
+    f.print( "\n" )
+  end
+  def gen_ph_set_desc_macro_abbrev f
+    if @n_call_port_dynamic >0 then
+      f.printf( TECSMsg.get( :SDMA_comment ), "#_SDMA_#" )
+    end
+    if @singleton then
+      p_cellcb = ""
+      delim = ""
+    else
+      p_cellcb = "p_cellcb"
+      delim = ", "
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_dynamic?
+      if p.get_array_size then
+        subsc = "i, "
+        subsc2 = "i"
+        subsc3 = delim + subsc2
+      else
+        subsc = ""
+        subsc2 = ""
+        subsc3 = ""
+      end
+      f.printf( "#define %s_set_descriptor( #{subsc}desc )\\\n          %s_set_descriptor( #{p_cellcb}#{delim}#{subsc}desc )\n",
+                "#{p.get_name}",
+                "#{@global_name}_#{p.get_name}" )
+      f.printf( "#define %s_unjoin( #{subsc2} )\\\n          %s_unjoin( #{p_cellcb}#{subsc3} )\n",
+                "#{p.get_name}",
+                "#{@global_name}_#{p.get_name}" )
+    }
     f.print( "\n" )
 …
         f.print( "typedef const struct tag_#{@global_name}_INIB {\n" )
         gen_cell_cb_type_port f
+        gen_cell_cb_type_port( f, :INIB )
         gen_cell_cb_type_attribute( f, :INIB )
 …
           f.print "    #{@global_name}_INIB  *_inib;\n"
         end
+        gen_cell_cb_type_port( f, :CB_DYNAMIC )
         gen_cell_cb_type_attribute( f, :CB )
         gen_cell_cb_type_var f
 …
       f.print( "typedef struct tag_#{@global_name}_CB {\n" )
       gen_cell_cb_type_port f
+      gen_cell_cb_type_port( f, :CB )
       gen_cell_cb_type_attribute( f, :CB )
       gen_cell_cb_type_var f
 …
   end
   def gen_cell_cb_type_port f
     gen_cell_cb_type_call_port f
     gen_cell_cb_type_entry_port f
   end
   def gen_cell_cb_type_call_port f
+  def gen_cell_cb_type_port( f, inib_cb )
+    gen_cell_cb_type_call_port( f, inib_cb )
+    gen_cell_cb_type_entry_port( f, inib_cb )
+  end
+  def gen_cell_cb_type_call_port( f, inib_cb )
     # 呼び口
     if @n_call_port >0 then
       f.print "    /* call port #_TCP_# */ \n"
+      f.print "    /* call port #_TCP_# */\n"
     end
 …
       next if p.get_port_type != :CALL
       next if p.is_omit?
+      ptr = ''
+      ptr = '*' if p.get_array_size
+      next if inib_cb == :INIB && p.is_dynamic? && p.get_array_size == nil && ! $ram_initializer
+      next if inib_cb == :CB_DYNAMIC && ( ! p.is_dynamic? || p.get_array_size != nil )
+      # bprint "cb_type #{inib_cb} #{p.get_name} dynamic=#{p.is_dynamic?}\n"
+      ptr = p.get_array_size ? '*' : ''
       if ! p.is_cell_unique? then
+        const = p.is_dynamic?  ? '' : 'const'
+        if inib_cb == :INIB && p.is_dynamic? && p.get_array_size == nil && $ram_initializer then
+          init = '_init_'
+          const2 = 'const'
+        else
+          init = ''
+          const2 = 'const'
+        end
         if ! p.is_skelton_useless? then
           # 標準形
+          f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}const*#{p.get_name;};\n" )
+          if inib_cb == :INIB && p.is_dynamic? && p.get_array_size != nil && $ram_initializer then
+            f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}#{const2}*#{p.get_name;}_init_;\n" )
+          end
+          f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}#{const}*#{p.get_name;}#{init};\n" )
+#          f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}*#{p.get_name;};\n" )
           if p.get_array_size == "[]" then
             f.print( "    int_t n_#{p.get_name};\n" )
 …
   #=== Celltype#受け口配列添数を記憶する変数の定義
   def gen_cell_cb_type_entry_port f
+  def gen_cell_cb_type_entry_port( f, inib_cb )
     # 呼び口
     if @n_entry_port >0 then
 …
         f.print "extern  #{@global_name}_INIB  #{@global_name}_SINGLE_CELL_INIB;\n"
       end
-#     @ordered_cell_list.each{ |c|
-#        f.print "extern  #{@global_name}_CB  #{@global_name}_#{c.get_name}_CB;\n"
-#      }
       f.print "\n"
+    elsif @idx_is_id_act then
+      f.print "extern #{@global_name}_CB  *#{@global_name}_CB_tab[];\n"
+    elsif @b_need_ptab then
+      f.printf( TECSMsg.get( :SCP_comment ),  "#_MCPP_#" )
+      if has_CB? then
+        f.print "extern #{@global_name}_CB  *const #{@global_name}_CB_ptab[];\n"
+        @ordered_cell_list.each{ |c|
+          if c.is_generate? then                           # 生成対象か？
+            name_array = get_name_array c
+            f.print "extern #{@global_name}_CB  #{name_array[4]};\n"
+          end
+        }
+      elsif has_INIB?
+        f.print "extern #{@global_name}_INIB  *const #{@global_name}_INIB_ptab[];\n"
+        @ordered_cell_list.each{ |c|
+          if c.is_generate? then                           # 生成対象か？
+            name_array = get_name_array c
+            f.print "extern #{@global_name}_INIB  #{name_array[11]};\n"
+          end
+        }
+      end
     else
+      f.print "extern #{@global_name}_CB  #{@global_name}_CB_tab[];\n"
+      f.printf( TECSMsg.get( :SCP_comment ),  "#_MCPB_#" )
+      if has_CB? then
+        f.print "extern #{@global_name}_CB  #{@global_name}_CB_tab[];\n"
+      elsif has_INIB?
+        f.print "extern #{@global_name}_INIB  #{@global_name}_INIB_tab[];\n"
+      end
     end
   end
   def gen_ph_INIB_as_CB f
+    # ここは、手抜きである。本来なら INIB を出力すべき
     if ! has_CB? && has_INIB? then
       f.printf( TECSMsg.get( :DCI_comment ),  "#_DCI_#" )
+      f.print "#define #{@global_name}_CB_tab           #{@global_name}_INIB_tab\n"
+      f.print "#define #{@global_name}_SINGLE_CELL_CB   #{@global_name}_SINGLE_CELL_INIB\n"
+      if @singleton then
+        f.print "#define #{@global_name}_SINGLE_CELL_CB   #{@global_name}_SINGLE_CELL_INIB\n"
+      elsif @b_need_ptab then
+        f.print "#define #{@global_name}_CB_ptab           #{@global_name}_INIB_ptab\n"
+      else
+        f.print "#define #{@global_name}_CB_tab           #{@global_name}_INIB_tab\n"
+      end
       f.print "#define #{@global_name}_CB               #{@global_name}_INIB\n"
       f.print "#define tag_#{@global_name}_CB           tag_#{@global_name}_INIB\n"
 …
       f.printf( TECSMsg.get( :FEC_comment ), "#_FEC_#" )
       if @idx_is_id_act then
+      if @b_need_ptab then
         amp = ''
+        tab = 'ptab'
       else
         amp = '&'
+        tab = 'tab'
       end
       f.print <<EOT
 #define FOREACH_CELL(i,p_cb)   \\
     for( (i) = 0; (i) < #{@global_name}_N_CELL; (i)++ ){ \\
        #{necessity}(p_cb) = #{amp}#{@global_name}_CB_tab[i];
+       #{necessity}(p_cb) = #{amp}#{@global_name}_CB_#{tab}[i];
 #define END_FOREACH_CELL   }
 …
     if @n_cell_gen > 0 && need_CB_initializer? then
+      b_var_init = false
       f.print "#define INITIALIZE_CB#{arg}"
       @var.each { |v|
 …
         next if init == nil
+        b_var_init = true
         type = v.get_type.get_original_type
         f.print "\\\n"
 …
 #            post = ""
           end
+          f.print "\tmemcpy((void*)#{pre}#{@global_name}_VAR_#{v.get_name}#{p_that}#{post}, (void*)#{pre}#{@global_name}_#{v.get_name}_VAR_INIT#{post}, sizeof(#{@global_name}_#{v.get_name}_VAR_INIT));"
+          f.print "\tmemcpy((void*)#{pre}#{@global_name}_VAR_#{v.get_name}#{p_that}#{post}, "
+          f.print "(void*)#{pre}#{@global_name}_#{v.get_name}_VAR_INIT#{post}, sizeof(#{@global_name}_#{v.get_name}_VAR_INIT));"
         elsif init.instance_of? C_EXP then
           f.print "\t#{that}#{v.get_name} = #{init.get_c_exp_string};"
 …
         end
+      }
+      # dynamic call port の初期化コード
+      b_dyn_port = false
+      @port.each{ |p|
+        next if p.get_port_type != :CALL
+        if p.is_dynamic? && $ram_initializer then
+          if p.get_array_size == nil then
+            f.print "\\\n\t#{that}#{p.get_name} = #{that}_inib->#{p.get_name}_init_;"
+          else
+            if @singleton || p.get_array_size != "[]" then
+              p_that = ""
+            else
+              p_that = "(p_that)"
+            end
+            if @singleton then
+              that = "#{@global_name}_SINGLE_CELL_INIB."
+            else
+              that = "(p_that)->"
+            end
+            if has_CB? then
+              init = '_init->'
+            else
+              init = ''
+            end
+            f.printf( "\\\n%-80s\\\n", '     {' )
+            f.printf( "%-80s\\\n", '        int_t   j;' )
+            f.printf( "%-80s\\\n", "        for( j = 0; j < N_CP_#{p.get_name}#{p_that}; j++ ){" )
+            f.printf( "%-80s\\\n", "            #{that}#{p.get_name}[j] = #{that}#{init}#{p.get_name}_init_[j];" )
+            f.printf( "%-80s\\\n", '        }' )
+            f.printf( "%-80s", '       }' )
+          end
+          b_dyn_port = true
+        end
+      }
+      if b_dyn_port then
+        f.print( "\n" )
+      end
+      if b_var_init == false && b_dyn_port == false && ! @singleton then
+        f.print "\t(void)(p_that);"
+      end
       f.print "\n"
 …
         if @singleton then
           f.print "\t#{that}_inib = &#{@global_name}_SINGLE_CELL_INIB;\n\n"
         elsif @idx_is_id_act
           f.print "\t#{that}_inib = #{@global_name}_INIB_tab[(i)];\n\n"
+        elsif @b_need_ptab then
+          f.print "\t#{that}_inib = #{@global_name}_INIB_ptab[(i)];\n\n"
         else
           f.print "\t#{that}_inib = &#{@global_name}_INIB_tab[(i)];\n\n"
 …
               j = am[i]
               if j then
                 if am[i].get_cell.get_celltype == self then
+                if am[i].get_rhs_cell.get_celltype == self then
                   # 同じセルタイプへ結合している場合(VDES では type conflict になる)
                   p = am[i].get_rhs_port
 …
             end
           else
+            if j.get_cell.get_celltype == self then
+            dbgPrint "me=#{@name} callee=#{j.get_rhs_cell.get_celltype.get_name} #{j.get_cell.get_celltype.get_name} \n"
+            if j.get_rhs_cell.get_celltype == self then
               # 同じセルタイプへ結合している場合(VDES では type conflict になる)
               p = j.get_rhs_port
 …
         jl = c.get_join_list
+        jl.get_items.each{ |j|
+          definition = j.get_definition
+          next unless definition.instance_of? Port
+        # ループを回す変数を jl から @port に変更
+        # dynamic, optional
+#        jl.get_items.each{ |j|
+        @port.each { |port|
+          next if port.get_port_type != :CALL
+          dbgPrint( "gen_cell_ep_vdes_array: #{c.get_name}.#{port.get_name}\n" )
+#          definition = j.get_definition
+#          next unless definition.instance_of? Port
+          j = jl.get_item( port.get_name )
           # port = definition    # definition は composite の Port が得られることがある
           port = find j.get_name # celltype の Port (こちらに最適化情報がある)
+          # port = find j.get_name # celltype の Port (こちらに最適化情報がある)
           next if port.is_cell_unique?
           next if port.is_omit?
+          am = j.get_array_member2
+          if am  then
+          b_array = false
+          am = nil
+          if j then
+            am = j.get_array_member2
+            if am then
+              b_array = true
+            end
+          else
+            if port.get_array_size == "[]" then
+              # this case is dynamic optional and nothing joined
+              next
+            elsif port.get_array_size then
+              b_array = true
+            end
+          end
+          if b_array  then
+#          if am then
             # 左辺は配列
+            const = ( port.is_dynamic? && ! $ram_initializer ) ? '' : 'const '
+            init = ( port.is_dynamic? && $ram_initializer ) ? '_init_' : ''
             if ! port.is_skelton_useless? then
               f.printf( "struct %s * const %s_%s[] = {\n",
+              f.printf( "struct %s * #{const}%s_%s[] = {\n",
                         "tag_#{port.get_signature.get_global_name}_VDES",
                         "#{c.get_global_name}",
                         "#{j.get_name}" )
+                        "#{port.get_name}" + init )
             else
 #              スケルトン関数不要最適化の場合、この配列は参照されない
               # mikan このケースがテストされていない
               f.printf( "const %s_IDX  %s_%s[] = {\n",
+              f.printf( "#{const}%s_IDX  %s_%s[] = {\n",
 #                        "#{j.get_celltype.get_global_name}",   # 右辺 composite に対応できない
                         "#{j.get_rhs_cell.get_celltype.get_global_name}",
 …
             i = 0
             while i < length
+              if am == nil then
+                f.print( "    0,\n" )
+                i += 1
+                next
+              end
               j = am[i]
               i += 1
 …
             # mikan   cell の namespace 未対応、Join で Cell オブジェクトを引当ておく必要あり
             f.print "};\n"
+            # dynamic の呼び口配列
+            if port.is_dynamic? && $ram_initializer then
+              f.printf( "struct %s * %s_%s[ #{length} ];\n",
+                        "tag_#{port.get_signature.get_global_name}_VDES",
+                        "#{c.get_global_name}",
+                        "#{port.get_name}" )
+            end
           end
+        }
 …
         init = v.get_initializer
         if init && init.instance_of?( Array ) then
+          type = v.get_type.get_original_type
+          if( type.kind_of? PtrType )then
+          type = v.get_type
+          org_type = v.get_type.get_original_type
+          if( org_type.kind_of? PtrType )then
             # PtrType は ArrayType にすり替える
 …
             t2.set_type( type.get_type )
             type = t2
+            org_type = t2
           end
 …
           # f.print "const #{type0.get_type_str}\t#{@global_name}_#{v.get_name}_VAR_INIT#{type0.get_type_str_post} = "
           f.print "const #{type.get_type_str}\t#{@global_name}_#{v.get_name}_VAR_INIT#{type.get_type_str_post} = "
           if type.kind_of? StructType then
+          if org_type.kind_of? StructType then
             # celltype の default の初期値あり
             str = gen_cell_cb_init( f, c, name_array, type, init, v.get_identifier, 1, true )
           elsif( type.kind_of?( PtrType ) || type.kind_of?( ArrayType ) ) then
+          elsif( org_type.kind_of?( PtrType ) || org_type.kind_of?( ArrayType ) ) then
             str = "{ "
             type = type.get_type
+            type = org_type.get_type
             # mikan ポインタではなく、配列型としないと、ポインタ変数の領域の分、損する
             init.each { |i|
 …
         fs.each{ |r, f| f.print "#{@global_name}_INIB #{@global_name}_SINGLE_CELL_INIB = \n" }
         indent = 0
       elsif ! @idx_is_id_act then
+      elsif ! @b_need_ptab then
         fs.each{ |r, f| f.print "#{@global_name}_INIB #{@global_name}_INIB_tab[] = {\n" }
         indent = 1
 …
         print_indent( f, indent )
         if @idx_is_id_act then
+        if @b_need_ptab then
           f.print "const #{@global_name}_INIB #{name_array[5]} = "
         end
         f.print "{\n"
         gen_cell_cb_port( c, indent, f, name_array )
+        gen_cell_cb_port( c, indent, f, name_array, :INIB )
         gen_cell_cb_attribute( c, indent, f, name_array, :INIB )
         unless @singleton then
           # 1 つの cell INIB の終わり
           if @idx_is_id_act then
+          if @b_need_ptab then
             f.print( "};\n\n" )
           else
 …
         end
+      }
       if ! @idx_is_id_act then
+      if ! @b_need_ptab then
         fs.each{ |r, f| f.print( "};\n\n" ) }
       end
 …
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_SINGLE_CELL_CB = \n" }
           indent = 0
         elsif ! @idx_is_id_act then
+        elsif ! @b_need_ptab then
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_CB_tab[] = {\n" }
           indent = 1
+        else
+          indent = 0
         end
 …
           print_indent( f, indent )
           if @idx_is_id_act then
+          if @b_need_ptab then
             f.print "#{@global_name}_CB #{name_array[2]} = "
           end
 …
           end
+          if ! has_INIB? then
+            gen_cell_cb_port( c, indent, f, name_array )
+          #if ! has_INIB? then
+          if $rom == false then
+            gen_cell_cb_port( c, indent, f, name_array, :CB_ALL )
+          else
+            gen_cell_cb_port( c, indent, f, name_array, :CB_DYNAMIC )
           end
 …
           unless @singleton then
             # 1 つの cell CB の終わり
             if @idx_is_id_act then
+            if @b_need_ptab then
               f.print( "};\n\n" )
             else
 …
           end
+        }
         if ! @idx_is_id_act then
+        if ! @b_need_ptab then
           fs.each{ |r, f| f.print( "};\n\n" ) }
         end
 …
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_SINGLE_CELL_CB;\n" }
           indent = 0
         elsif @idx_is_id_act then
+        elsif @b_need_ptab then
           @ordered_cell_list.each{ |c|
             next if ! c.is_generate?
 …
   def gen_cell_cb_tab f
     indent = 0
     if @idx_is_id_act then
+    if @b_need_ptab then
       if has_INIB? && ( $ram_initializer || ! has_CB? ) then
         f.print "/* ID to INIB table #_INTAB_# */\n"
 …
+        }
         f.print "#{@global_name}_INIB *#{@global_name}_INIB_tab[] ={\n"
+        f.print "#{@global_name}_INIB *const #{@global_name}_INIB_ptab[] ={\n"
         @ordered_cell_list.each{ |c|
           if c.is_generate? then                           # 生成対象か？
 …
+        }
         f.print "#{@global_name}_CB *#{@global_name}_CB_tab[] ={\n"
+        f.print "#{@global_name}_CB *const #{@global_name}_CB_ptab[] ={\n"
         @ordered_cell_list.each{ |c|
           if c.is_generate? then                           # 生成対象か？
 …
   #   name_array[9] = @global_name    # celltype global name
   #   name_array[10] = cell.get_global_name # cell global name
+  #   name_array[11] = cell_INIB_proto #INIB name for proto type
   def get_name_array( cell )
 …
       cell_CB_proto = "#{@global_name}_SINGLE_CELL_CB"
       cell_INIB_name = "#{@global_name}_SINGLE_CELL_INIB"
+      cell_INIB_proto = cell_INIB_name
       cell_ID = 0
     else
       if ! @idx_is_id_act then
+      if ! @b_need_ptab then
         index = cell.get_id - cell.get_celltype.get_id_base
         cell_CB_name = "#{@global_name}_CB_tab[#{index}]"
 …
         cell_CB_proto = "#{@global_name}_CB_tab[]"
         cell_INIB_name = "#{@global_name}_INIB_tab[#{index}]"
+        cell_INIB_proto = "#{@global_name}_INIB_tab[]"
       else
         cell_CB_name = "#{cell.get_global_name}_CB"
 …
         cell_CB_proto = cell_CB_name
         cell_INIB_name = "#{cell.get_global_name}_INIB"
+        cell_INIB_proto = cell_INIB_name
       end
       cell_ID = cell.get_id
     end
+    if has_CB? then
+      cell_CBP = "&#{cell_CB_name}"
+    elsif has_INIB? then
+      cell_CBP = "&#{cell_INIB_name}"
+    else
+      cell_CBP = "NULL"    # CB も INIB もなければ NULL に置換
+    end
     if @idx_is_id_act then
       cell_IDX = cell_ID
     else
+      cell_IDX = "&#{cell_CB_name}"
+    end
+    if ! has_CB? && ! has_INIB? then
+      cell_CBP = "NULL"    # CB も INIB もなければ NULL に置換
+    else
+      cell_CBP = "&#{cell_CB_name}"
+      cell_IDX = cell_CBP
     end
 …
     name_array[9] = @global_name    # celltype global name
     name_array[10] = cell.get_global_name # cell global name
+    name_array[11] = cell_INIB_proto # INIB name for prototype
     return name_array
 …
   end
+  def gen_cell_cb_port( cell, indent, f, name_array )
+    gen_cell_cb_call_port( cell, indent, f, name_array )
+  #inib_cb::Symbol: :INIB, :CB_ALL, :CB_DYNAMIC
+  def gen_cell_cb_port( cell, indent, f, name_array, inib_cb = :INIB )
+    gen_cell_cb_call_port( cell, indent, f, name_array, inib_cb )
     gen_cell_cb_entry_port( cell, indent, f, name_array )
   end
   #=== 呼び口の初期化コードの生成
   def gen_cell_cb_call_port( cell, indent, f, name_array )
+  def gen_cell_cb_call_port( cell, indent, f, name_array, inib_cb )
     jl = cell.get_join_list
     port = get_port_list
+    if @n_call_port != 0 then
+    if inib_cb == :INIB && ( @n_call_port - @n_call_port_omitted_in_CB -
+                             ( $ram_initializer ? 0 : (@n_call_port_dynamic-@n_call_port_array_dynamic) )  > 0 ) ||
+       inib_cb == :CB_ALL && @n_call_port > 0 ||
+       inib_cb == :CB_DYNAMIC && (@n_call_port_dynamic - @n_call_port_array_dynamic) > 0 then
       print_indent( f, indent + 1 )
       f.print "/* call port #_CP_# */ \n"
+      f.print "/* call port (#{inib_cb}) #_CP_# */ \n"
       port.each{ |p|
         next if p.get_port_type != :CALL
         next if p.is_omit?
         next if p.is_cell_unique?        # 最適化（単一セルで呼び口マクロに埋め込まれる）
+        next if inib_cb == :INIB && p.is_dynamic? && p.get_array_size == nil && ! $ram_initializer
+        next if inib_cb == :CB_DYNAMIC && ( ! p.is_dynamic? || p.get_array_size != nil )
         j = jl.get_item( p.get_name )
 …
         # debug
         if j == nil then
+          dbgPrint "cell_cb_call_port: #{p.get_name} array size=#{p.get_array_size}\n"
           # optional 呼び口
           # cdl_error( "H1003 internal error: cell \'$1\' port \'$2\': initializer not found\n" , cell.get_name, p.get_name )
           # exit( 1 )
+          f.printf( "%-40s /* #_CCP5_# */\n",  "0," )
+          if p.get_array_size == "[]" then
+            # 添数省略の呼び口配列
+            print_indent( f, indent + 1 )
+            f.printf( "%-40s /* %s #_CCP6_# */\n", "0,", "length of #{p.get_name} (n_#{p.get_name})" )
+          if p.get_array_size then
+            if p.is_dynamic? then
+              if inib_cb == :INIB then
+                if  $ram_initializer then
+                  f.printf( "%-40s /* #_CCP7_# _init_ */\n",  "#{cell.get_global_name}_#{p.get_name}_init_," )
+                  print_indent( f, indent + 1 )
+                end
+                f.printf( "%-40s /* #_CCP7B_# */\n",  "#{cell.get_global_name}_#{p.get_name}," )
+              elsif $rom == false then
+                f.printf( "%-40s /* #_CCP8_# */\n",  "#{cell.get_global_name}_#{p.get_name}," )
+              end
+            else
+              f.printf( "%-40s /* #_CCP9_# */\n",  "0," )
+            end
+            if p.get_array_size == "[]" then
+              # 添数省略の呼び口配列
+              print_indent( f, indent + 1 )
+              f.printf( "%-40s /* %s #_CCP6_# */\n", "0,", "length of #{p.get_name} (n_#{p.get_name})" )
+            end
+          else
+            f.printf( "%-40s /* #_CCP5_# */\n",  "0," )
           end
           next
 …
         if am then
           # 呼び口配列の場合
+          f.printf( "%-40s /* #_CCP3_# */\n",  "#{cell.get_global_name}_#{j.get_name}," )
+          if inib_cb == :INIB && p.is_dynamic? && p.get_array_size != nil && $ram_initializer then
+            f.printf( "%-40s /* #_CCP3_# _init_ */\n",  "#{cell.get_global_name}_#{j.get_name}_init_," )
+            print_indent( f, indent + 1 )
+          end
+          f.printf( "%-40s /* #_CCP3B_# */\n",  "#{cell.get_global_name}_#{j.get_name}," )
           if p.get_array_size == "[]" then
             # 添数省略の呼び口配列
 …
           end
+          init = ( p.is_dynamic? && inib_cb == :INIB ) ? "_init_" : ""
           if j.get_rhs_subscript then
             # 受け口配列の場合
 …
                       # "&#{j.get_cell_global_name}_#{j.get_port_name}_des#{subscript},",
                       "#{des_type_cast}&#{j.get_port_global_name}_des#{subscript},",
                       p.get_name )
+                      p.get_name.to_s + init )
           else
             # 呼び口配列でも、受け口配列でもない
 …
               f.printf( "%-40s /* %s #_CCP1_# */\n",
                         "#{des_type_cast}&#{j.get_port_global_name}_des,",
                         p.get_name )
+                        p.get_name.to_s + init )
             else
               # スケルトン不要最適化（CB (INIB) へのポインタを埋め込む）
               c = j.get_rhs_cell                    # 呼び先セル
               ct = c.get_celltype                   # 呼び先セルタイプ
+              name_array = ct.get_name_array( c )   # 呼び先セルタイプで name_array を得る
               if ct.has_INIB? || ct.has_CB? then
-                name_array = ct.get_name_array( c )   # 呼び先セルタイプで name_array を得る
                 f.printf( "%-40s /* %s #_CCP2_# */\n", "#{name_array[7]},", p.get_name )
               else
                 # 呼び先は CB も INIB も持たない（NULL に初期化）
                 f.printf( "%-40s /* %s #_CCP2_# */\n", "0,", p.get_name )
+                f.printf( "%-40s /* %s #_CCP2B_# */\n", "0,", p.get_name )
               end
             end
 …
       f = fs[ c.get_region.get_domain_root ]
       ct = c.get_celltype
+      ct = c.get_celltype     # ct = self でも同じ
       jl = c.get_join_list
+      name_array = get_name_array( c )
       port = ct.get_port_list
 …
               else
                 if has_CB? then
+                  if @singleton then
+                    f.print "    &#{@global_name}_SINGLE_CELL_CB,        /* CB */\n"
+                  else
+                    # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                    f.print "    &#{@global_name}_CB_tab[#{index}],      /* CB */\n"
+                  end
+                  # if @singleton then
+                  #   f.print "    &#{@global_name}_SINGLE_CELL_CB,        /* CB 1 */\n"
+                  # else
+                  #   # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                  #   f.print "    &#{@global_name}_CB_tab[#{index}],      /* CB 2 */\n"
+                  # end
+                  f.print "    #{name_array[8]},      /* CB 1 */\n"
                 elsif has_INIB? then
+                  if @singleton then
+                    f.print "    &#{@global_name}_SINGLE_CELL_INIB,      /* INIB */\n"
+                  else
+                    f.print "    &#{@global_name}_INIB_tab[#{index}],    /* INIB */\n"
+                  end
+                  # if @singleton then
+                  #   f.print "    &#{@global_name}_SINGLE_CELL_INIB,      /* INIB 1 */\n"
+                  # else
+                  #   f.print "    &#{@global_name}_INIB_tab[#{index}],    /* INIB 2 */\n"
+                  # end
+                  f.print "    &#{name_array[5]},      /* INIB 1 */\n"
                 else
                   f.print "    0,\n"
 …
             else
               if has_CB? then
+                if @singleton then
+                  f.print "    &#{@global_name}_SINGLE_CELL_CB,       /* CB */\n"
+                else
+                  f.print "    &#{@global_name}_CB_tab[#{index}],     /* CB */\n"
+                  # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                end
+                # if @singleton then
+                #   f.print "    &#{@global_name}_SINGLE_CELL_CB,       /* CB 3 */\n"
+                # else
+                #   f.print "    &#{@global_name}_CB_tab[#{index}],     /* CB 4 */\n"
+                #   # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                # end
+                f.print "    #{name_array[8]},      /* CB 3 */\n"
               elsif has_INIB? then
+                if @singleton then
+                  f.print "    &#{@global_name}_SINGLE_CELL_INIB,     /* INIB */\n"
+                else
+                  f.print "    &#{@global_name}_INIB_tab[#{index}],   /* INIB */\n"
+                end
+                # if @singleton then
+                #   f.print "    &#{@global_name}_SINGLE_CELL_INIB,     /* INIB 3 */\n"
+                # else
+                #   # f.print "    &#{@global_name}_INIB_tab[#{index}],   /* INIB 4 */\n"
+                # end
+                f.print "    &#{name_array[5]},      /* INIB 3 */\n"
               else
                 f.print "    0,\n"
 …
         ft.get_paramlist.get_items.each{ |param|
+          # p "type_str: #{param.get_type.get_type_str}"
           f.print( "#{delim} #{param.get_type.get_type_str}" )
           f.print( " #{param.get_name}#{param.get_type.get_type_str_post}" )
 …
       end
+      if p.is_ref_desc? then
+        subsc = p.get_array_size ? ' int_t subscript ' : ''
+        f.print " *   [ref_desc]\n"
+        f.printf( " *      %-14s %s;\n",
+                  "Descriptor( #{p.get_signature.get_global_name} )",
+                  "#{p.get_name}_refer_to_descriptor(#{subsc})" )
+        f.printf( " *      %-14s %s;\n",
+                  "Descriptor( #{p.get_signature.get_global_name} )",
+                  "#{p.get_name}_ref_desc(#{subsc})      (same as above; abbreviated version)" )
+      end
+      if p.is_dynamic? then
+        subsc = p.get_array_size ? 'int_t subscript, ' : ''
+        subsc2 = p.get_array_size ? ' int_t subscript' : ''
+        if p.is_optional? then
+          f.print " *   [dynamic, optional]\n"
+        else
+          f.print " *   [dynamic]\n"
+        end
+        f.printf( " *      %-14s %s;\n",
+                  "void",
+                  "#{p.get_name}_set_descriptor( #{subsc}Descriptor( #{p.get_signature.get_global_name} ) desc )" )
+        if p.is_optional? then
+          f.printf( " *      %-14s %s;\n",
+                    "void",
+                    "#{p.get_name}_unjoin( #{subsc2} )" )
+        end
+      end
+    }
 …
           delim = ", "
           f.print param.get_type.get_type_str
+          # p "type_str2: #{param.get_type.get_type_str}"
           f.print " "
           f.print param.get_name
 …
   def generate_inline_template_code
     return if @n_entry_port_inline == 0
+    return if @b_reuse && ! $generate_all_template
     if ! ( @plugin && @plugin.gen_ep_func? ) then
       return if @b_reuse && ! $generate_all_template
 …
   #  str に以下の置換を行う
   #-   $ct$ ⇒ セルタイプ名(ct)
   #-   $cell$ ⇒ セル名(cell)   cell が nil ならば3つの置換は行われない
+  #-   $cell$ ⇒ セル名(cell)   cell が nil ならば以下の置換は行われない
   #-   $cb$ ⇒ CB の C 言語名(cb)
   #-   $cbp$ ⇒ CB へのポインタ(cbp)
   #-   $cb_proto$ ⇒ CB の C 言語名プロトタイプ宣言用(cb_proto)
   #-   $id$ ⇒ ct_cell
+  #-   $id$ ⇒ $ct$_$cell_global$    # ct_cell  before or same V1.5.2
   #-   $idx$ ⇒ idx
   #-   $ID$ ⇒ id (整数の番号)
   #-   $ct_global$ ⇒ セルタイプ名(ct)
   #-   $cell_global$ ⇒ セル名(cell)   cell が nil ならば3つの置換は行われない
+  #-   $cell_global$ ⇒ セル名(cell)
   #-   $$   ⇒ $
   def subst_name( str, name_array )
 …
     str = str.gsub( /(^|[^\$])\$ct\$/, "\\1#{ct}" )
+    str = str.gsub( /(^|[^\$])\$ct_global\$/, "\\1#{ct_global}" )
     if cell then
       str = str.gsub( /(^|[^\$])\$cell\$/, "\\1#{cell}" )
       str = str.gsub( /(^|[^\$])\$cb\$/, "\\1#{cb}" )
+      str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell}" )
+      # str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell}" )
+      str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell_global}" )
       str = str.gsub( /(^|[^\$])\$cb_proto\$/, "\\1#{cb_proto}" )
       str = str.gsub( /(^|[^\$])\$ID\$/, "\\1#{id}" )
       str = str.gsub( /(^|[^\$])\$idx\$/, "\\1#{idx}" )
       str = str.gsub( /(^|[^\$])\$cbp\$/, "\\1#{cbp}" )
-      str = str.gsub( /(^|[^\$])\$ct_global\$/, "\\1#{ct_global}" )
       str = str.gsub( /(^|[^\$])\$cell_global\$/, "\\1#{cell_global}" )
     end
 …
   end
 end
+class DomainType < Node
+  def gen_factory
+    # p "DomainType: gen_factory"
+    @plugin.gen_factory
+  end
+end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/location.rb

r321	r429
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/messages.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
  end
+ #=== TECSMsg#ローカライズされた情報メッセージを得る
+ # Generator.info2 から呼び出される
+ def self.get_info_message( body )
+   body =~ /^[A-Z0-9]+/    # 情報番号を取り出す
+   num = $&
+   msg = @@info_message[ num.to_sym ]
+   if msg == nil then
+     m = body
+   else
+     m = num + " " + msg
+   end
+   return m
+ end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/optimize.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   def set_domain
+    domain_cells = {}
     @cell_list.each{ |c|
       if c.is_generate? then
 …
           @domain_roots[ dn ] = [ dr ]
         end
+        if domain_cells[ dr ]  then
+          domain_cells[ dr ] << c
+        else
+          domain_cells[ dr ] = [ c ]
+        end
       end
+    }
 …
     @domain_roots.each{ |dn, drs|
       drs.uniq!
+      if ! $debug then
+        dbgPrint "domains celltype:#{@name} domain=#{dn} "
+      if $verbose && dn then
+        print "[domain] celltype=#{@name} domainType=#{dn} domainRootRegions={"
+        delim = ""
         drs.each{ |r|
+          dbgPrint " region=#{r.get_name}"
+          print delim, r.get_name
+          delim = ", "
+        }
+        dbgPrint "\n"
+        print "}\n"
+        drs.each{ |r|
+          print "[domain] celltype=#{@name} domainRootRegion=#{r.get_name} domainType=#{dn} domainKind=#{r.get_domain_root.get_domain_type.get_kind} domainCells={"
+          delim = ""
+          domain_cells[r].each{ |c|
+            print delim, c.get_name
+            delim = ", "
+          }
+          print "}\n"
+        }
       end
+    }
 …
       # domain_type は一つのノードに一つしかないので、一つの要素を無条件で取り出す
       if regions.length > 1 then
+        cdl_info( "celltype:#{@name} has cells in multi domain.\n" )
+        if @idx_is_id == false then
+          cdl_info( "celltype:#{@name} forcely set idx_is_id\n" )
+        end
+        @idx_is_id_act = true
+        if $verbose then
+          cdl_info( "I9999 celltype '$1' has cells in multi-domain.\n", @name )
+        end
+        # if @idx_is_id == false then
+        #   cdl_info( "I9999 celltype '$1' forcely set idx_is_id\n", @name )
+        # end
+        @b_need_ptab = true
+        # @idx_is_id_act = true
       end
+    }
 …
     end
+    optimize_call
+    if $unopt_entry == false then
+      optimize_entry
+    end
+  end
+  #=== Celltype#呼び口最適化
+  def optimize_call
     @port.each{ |port|
       next if port.get_port_type != :CALL
 …
         if $verbose then
           print "optimized by omit: port: #{port.get_name} : o\n"
+        end
+        next
+      elsif port.is_dynamic? then
+        if $verbose then
+          print "unoptimized by dynamic: port: #{port.get_name}\n"
+        end
+        next
+      elsif port.is_ref_desc? then
+        if $verbose then
+          print "unoptimized by ref_desc: port: #{port.get_name}\n"
         end
         next
 …
       dbgPrint "#{port.get_name} : # of cells : #{port_cells.length}  # of ports : #{port_ports.length}\n"
+    }
+  end
+  #=== Celltype#受け口最適化
+  # optimize_entry は、呼び口最適化の結果を使用している
+  def optimize_entry
     # 受け口最適化の設定
     @port.each{ |port|

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/plugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #++
 #== class モジュール
+#== Plugin クラス
 # ThroughPlugin, SignaturePlugin, CelltypePlugin に include する
 class Plugin < Node
 …
   end
+### 意味解析段階で呼び出されるメソッド ###
+### 構文解釈 または 意味解析段階で呼び出されるメソッド ###
+# generate 指定子の場合、構文解釈次第(end_of_parseで)呼び出される
+# generate 文の場合、出現次第呼び出される
+  ### 意味解析段階で呼び出されるメソッド ### <<< コメント誤り (V1.4.2)
   #===  CDL ファイルの生成
   #      typedef, signature, celltype, cell のコードを生成
 …
       #  識別子取得
       if arg =~ /\A[a-zA-Z_]\w*/ then
         ident = $~
+        ident = $~.to_s    #
         arg = $'
       else
 …
 end
 #== 出力文字列を EUC から出力ファイルに convert する
 # tecsgen のソースコードは EUC で記述されている
+#== 出力文字列を utf-8 から出力ファイルに convert する
+# tecsgen のソースコードは utf-8 で記述されている
 # これを、出力ファイルの文字コードに変換して出力する
+#

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/pluginModule.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   #=== プラグインをロードする
+  #return:: true : 成功、 false : 失敗
+  # return:: PluginClass
+  # V1.4.1 まで return:: true : 成功、 false : 失敗
+  #
+  # #{plugin_name}.rb をロードし、plugin_name クラスのオブジェクトを生成する．
+  # plugin_name が MultiPlugin の場合、get_plugin により、superClass のプラグインオブジェクトをロードする．
+  #
   # すでにロードされているものは、重複してロードしない
 …
         end
         # "#{plugin_name}.rb" をロード（システム用ではないので、fatal エラーにしない）
         if require_tecsgen_lib( "#{plugin_name}.rb", false ) == false
+        if require_tecsgen_lib( "#{plugin_name}.rb", false ) == false then
           cdl_error( "P2001 $1.rb : fail to load plugin" , plugin_name )
           return false
+          return nil
         end
       end
+      plSuper = nil
+      # eval( "plSuper = #{plugin_name}.superclass" )
+      eval( "plSuper = #{plugin_name}" )
+      while plSuper != superClass && plSuper != nil
+        plSuper = plSuper.superclass
+      end
+      if plSuper == nil then
+      plClass = Object.const_get plugin_name
+      if ( plClass <= superClass ) then       # plClass inherits superClass
+        return plClass
+      elsif (plClass <= MultiPlugin) then     # plClass inherits MultiPlugin
+        dbgPrint "pluginClass=#{plClass}\n"
+        plugin_object = plClass.get_plugin superClass
+        dbgPrint "pluginClass=#{plugin_object}\n"
+        if plugin_object == nil then
+          cdl_error( "P9999 '$1': MultiPlugin not support '$2'", plugin_name, superClass.name )
+        end
+        @@loaded_plugin_list[ plugin_name.to_sym ] = :MultiPlugin
+        return plugin_object
+      else
         cdl_error( "P2002 $1: not kind of $2" ,  plugin_name, superClass.name )
         return false
+        return nil
       end
     rescue Exception => evar
 …
       end
       cdl_error( "P2003 $1: load failed" , plugin_name )
       return false
+      return nil
     end
+    return true
+    # ここへは来ない
+    return nil
   end
 …
     end
     plugin_name = plugin_object.class.name.to_sym
+    if @@loaded_plugin_list[ plugin_name ] == nil
+      raise "#{plugin_name} might have different name "
+      # プラグインのファイル名と、プラグインのクラス名が相違する場合
+    if @@loaded_plugin_list[ plugin_name ] == :MultiPlugin then
+      p "#{plugin_name}: MultiPlugin"
+      return
+    elsif @@loaded_plugin_list[ plugin_name ] == nil then
+      #raise "#{plugin_name} might have different name "
+      ## プラグインのファイル名と、プラグインのクラス名が相違する場合
+      #MultiPlugin の get_plugin で返されたケースでは nil になっている
+      @@loaded_plugin_list[ plugin_name ] = 0
     end
     count = @@loaded_plugin_list[ plugin_name ]
 …
     dbgPrint "PluginModule #{@@loaded_plugin_list}\n"
     @@loaded_plugin_list.each{ |plugin_name,count|
+      if count == :MultiPlugin then
+        next
+      end
       dbgPrint "PluginModule: #{plugin_name}\n"
       eval_str = "#{plugin_name}.gen_post_code( file )"

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/syntaxobj.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   #=== 情報を表示する
+  def cdl_info( message )
+    Console.puts "info: #{message}"
+  def cdl_info( message, *arg )
+    Generator.info2( @locale, message, *arg )
+  end
+  #=== 情報を表示する
+  def cdl_info2( locale, message, *arg )
+    Generator.info2( locale, message, *arg )
   end
 …
   end
+  #=== Decl# print_flowinfo
+  def print_flowinfo file
+    if @kind == :VAR then
+      file.write "#{@identifier} "
+    end
+  end
   def show_tree( indent )
     indent.times { print "  " }

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/tecsgen.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class TECSGEN
+  @@b_post_coded = false     # ポストコード生成開始後 true
   #=== import パス (-I) を末尾に追加
   # 既に登録済みであれば、追加しない
 …
   end
+  def self.get_argv
+    ARGV
+  end
   #------ TECSGEN CDL analyze and generate ------#
 …
   end # syntax_analisys
+  #=== TECSGEN#semantics_analisys_1
+  # semantics check. only cells here
+  # other objects (signature, celltype, typedef, etc ) are checked while syntax analisys
   def semantics_analisys_1
     ####  意味解析１ (post コードを除く) ####
     dbgPrint( "## Creating reverse join \n")
     Cell.create_reverse_join
+    DescriptorType.check_signature
+    Signature.set_descriptor_list
+    Celltype.check_dynamic_join
     #0 set_definition_join は2回呼び出される（1回目）
 …
     ####  post コードの生成と構文解析 ####
+    @@b_post_coded = true     # ポストコード生成開始後 true
     # 引数がなければ、プラグインのポストコードを出力しない
     if ARGV.length > 0 then
 …
     dbgPrint( "## Checking all join (for cells generated by Post Code\n")
     @root_namespace.set_definition_join
+    @root_namespace.set_max_entry_port_inner_cell
     dbgPrint( "## Set require join\n")
 …
     open( "#{$gen_base}/tecsgen.timestamp", "w" ){|io|}
   end # finalize
+  def dump_tecsgen_rbdmp
+    dbgPrint "dump_tecsgen_rbdmp 0:\n"
+    #### unjoin_plugin 後に行う必要があるため、コード生成後にダンプを行う
+    #### Region link root ごとにオプティマイズしてダンプ ####
+    Namespace.get_root.unjoin_plugin
+    Namespace.get_root.find_plugin 0, []
+    Region.get_link_roots.each { |region|
+      dbgPrint "dump_tecsgen_rbdmp 1: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      n_cells = region.get_n_cells
+      if $region_list.length > 0 then
+        if $region_list[ region.get_namespace_path.get_path_str ] == false then
+          $region_list[ region.get_namespace_path.get_path_str ] = true
+        else
+          next
+        end
+      end
+      dbgPrint "dump_tecsgen_rbdmp 2: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      # セルが一つもなければ生成しない
+      # セルの生成がない場合
+      if region.get_n_cells == 0 then
+        # if $region_list.length > 0 then
+        #   Generator.warning( "W9999 $1: specified to generate but has no cell", region.get_name )
+        # end
+        if region != @root_namespace then
+          next
+        end
+      end
+      dbgPrint "dump_tecsgen_rbdmp 3: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      $generating_region = region
+      if Region.get_link_roots.length > 1 then
+        if region.get_name == "::" then
+          $gen = $gen_base
+        else
+          $gen = $gen_base + "/" + region.get_global_name.to_s
+        end
+      else
+        $gen = $gen_base
+      end
+      dbgPrint "dump_tecsgen_rbdmp 4: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      dbgPrint( "## Unset optimize variables\n")
+      @root_namespace.reset_optimize   # 最適化をリセットする
+      #  if Generator.get_n_error == 0 then
+      #   # エラーが発生していたら、ここへは来ない
+         dbgPrint( "## Set cell id\n")
+        @root_namespace.set_cell_id_and_domain      # セルの ID とドメイン情報を設定（linkunit 毎に0からつける）
+        # エラーが発生していたら、最適化は実施しない
+        if ! $unopt then
+          dbgPrint( "## Optimizing: Link Region=#{@root_namespace.get_name}\n")
+          @root_namespace.optimize
+        end
+      # end
+      dbgPrint "dump_tecsgen_rbdmp final: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      File.write( "#{$gen}/tecsgen.rbdmp", Marshal.dump(Namespace.get_root) )
+    }
+  end
+  def self.post_coded?
+    @@b_post_coded
+  end
 end # class TECSGEN

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/types.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class FloatType < Type
 #  @bit_size::         32, 64, (80), -32, -64
+#  @bit_size::         32, 64, (80), -32, -64, -128
   def initialize( bit_size )
 …
     when -64
       str = "#{str}double"
+    when -128
+      str = "#{str}long double"
     end
     return str
 …
 #  @b_has_sized_pointer_member:: bool : メンバにポインタ型がある
 #  @b_has_unsized_string_member:: bool : メンバにポインタ型がある
+#  @b_hasTag:: bool : タグがある
 #  @member_types_symbol:: Symbol : tag が無い時のみ設定 (それ以外では nil)
 …
     super()
     @tag = tag
+    if tag then
+      @b_hasTag = true
+    else
+      @b_hasTag = false
+    end
     @@structtype_current_sp += 1
     @@structtype_current_stack[@@structtype_current_sp] = self
 …
     str = super
     if @tag then
+    if @b_hasTag then
       # typedef struct tag StructType; の形式の場合
       # struct の本体は、別に生成される
       return "#{str}struct #{@tag} "
+      return "#{str}struct #{@tag}"
     else
       # typedef struct { int a; } StructType; の形式の場合
       str += "struct {\n"
+      str += "struct {"
       @members_decl.get_items.each{ |i|
         str += sprintf( "    %-8s %s%s;\n", "#{i.get_type.get_type_str}", "#{i.get_name}", "#{i.get_type.get_type_str_post}" )
+        str += sprintf( "%s %s%s;", "#{i.get_type.get_type_str}", "#{i.get_name}", "#{i.get_type.get_type_str_post}" )
+      }
       str += "} "
 …
   def check_init( locale, ident, initializer, kind, attribute = nil )
     if ( initializer.instance_of?( Array ) ) then
+      # 要素数が指定されている場合、初期化要素数をチェック
+      if @subscript then
+        n_sub = @subscript.eval_const( nil )
+        if n_sub then
+          if initializer.length > n_sub then
+            cdl_error2( locale, "T9999 $1: too many initializer, $2 for $3" , ident, initializer.length, n_sub )
+          end
+        end
+      end
       index = 0
       initializer.each{ |i|
 …
 # 動的結合で渡すデスクリプタ型
 class DescriptorType < Type
+# @sinagure_nsp::NamespacePath
+  # @sinagure_nsp::NamespacePath
+  @@descriptors = {}
   def initialize( signature_nsp )
     @signature_nsp = signature_nsp
+    obj = Namespace.find signature_nsp
+    if ! obj.kind_of? Signature then
+      cdl_error( "T9999 '$1': not signature or not found", signature_nsp.to_s )
+    else
+      if obj.has_descriptor? then
+        cdl_error( "T9999 '$1': has Desicrptor in function parameter", signature_nsp.to_s )
+      end
+    end
+    # check_signature ##
+    @@descriptors[ self ] = false
   end
   def get_type_str
     "Descriptor( #{@signature_nsp.to_s} )"
+    "Descriptor( #{@signature_nsp.get_global_name} )"
   end
 …
   end
+  def self.check_signature
+    @@descriptors.each{ |desc, val|
+      if val != true then
+        desc.check_signature
+        @@descriptors[ desc ] = true
+      end
+    }
+  end
+  def check_signature
+    # p "Desc #{@signature_nsp.to_s}"
+    obj = Namespace.find @signature_nsp
+    if ! obj.kind_of? Signature then
+      cdl_error( "T9999 '$1': not signature or not found", @signature_nsp.to_s )
+    else
+      if obj.has_descriptor? then
+       # cdl_error( "T9999 '$1': has Descriptor in function parameter", @signature_nsp.to_s )
+      end
+      # @signature_nsp = obj.get_namespace_path
+    end
+  end
   #== DescriptorType#
-  # 意味解析段階では nil が返される可能性に注意
   def get_signature
     Namespace.find @signature_nsp

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_console_en_US.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 @@warning_message[ :"W6004" ] = "need 'void' for no parameter"
+###
+# info メッセージ
+@@info_message = {}
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_console_ja_JP.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 @@warning_message[ :"W6004" ] = "パラメータが存在しない場合 'void' が必要です"
+###
+# info メッセージ
+@@info_message = {}
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_file_en_US.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  * このファイルを編集して使用することが意図されていますが
 #  * tecsgen の再実行により上書きされてしまうため、通常
 #  *   gen/%s_template.c => src/%s.c
+#  *   gen/%s_templ.c => src/%s.c
 #  * のように名前, フォルダを変更してから修正します
 #  */
 …
  * This file was automatically generated by tecsgen.
  * Move and rename like below before editing,
  *   gen/%s_template.c => src/%s.c
+ *   gen/%s_templ.c => src/%s.c
  * to avoid to be overwritten by tecsgen.
  */
 …
 @@comment[ :EPM_comment ] = "\n/* entry port function macro (abbrev) %s */\n"
+# @@comment[ :CRD_comment ] = "\n/* ディスクリプタ参照関数 %s */\n"
+@@comment[ :CRD_comment ] = "/* refer to descriptor function %s */\n"
+# @@comment[ :CRDA_comment ] = "\n/* ディスクリプタ参照マクロ（短縮形） %s */\n"
+@@comment[ :CRDA_comment ] = "\n/* refer to descriptor macro (abbrev) %s */\n"
+# @@comment[ :SDF_comment ] = "/* ディスクリプタ設定関数 %s */\n"
+@@comment[ :SDF_comment ] = "/* set descriptor function %s */\n"
+# @@comment[ :SDMA_comment ] = "\n/* ディスクリプタ設定マクロ（短縮形） %s */\n"
+@@comment[ :SDMA_comment ] = "\n/* set descriptor macro (abbrev) %s */\n"
 # @@comment[ :CTIX_comment ] = "\n/* セルタイプのIDX型 %s */\n"
 @@comment[ :CTIX_comment ] = "\n/* celltype IDX type %s */\n"
 …
 @@comment[ :TEFB_comment ] = "\t/* Put statements here %s */\n"
+# @@comment[ :MCPP_comment ] = "/* セル CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPP_comment ] = "/* cell CB prototype declaration %s */\n"
+# @@comment[ :MCPB_comment ] = "/* セル CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPB_comment ] = "/* cell CB prototype declaration %s */\n"
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_file_ja_JP.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
  * このファイルを編集して使用することが意図されていますが
  * tecsgen の再実行により上書きされてしまうため、通常
  *   gen/%s_template.c => src/%s.c
+ *   gen/%s_templ.c => src/%s.c
  * のように名前, フォルダを変更してから修正します
  */
 …
 @@comment[ :CPMA_comment ] = "/* 呼び口関数マクロ（短縮形）%s */\n"
 @@comment[ :EPM_comment ] = "\n/* 受け口関数マクロ（短縮形） %s */\n"
+@@comment[ :CRD_comment ] = "/* ディスクリプタ参照関数 %s */\n"
+@@comment[ :CRDA_comment ] = "\n/* ディスクリプタ参照マクロ（短縮形） %s */\n"
+@@comment[ :SDF_comment ] = "/* ディスクリプタ設定関数 %s */\n"
+@@comment[ :SDMA_comment ] = "\n/* ディスクリプタ設定マクロ（短縮形） %s */\n"
 @@comment[ :CTIX_comment ] = "\n/* セルタイプのIDX型 %s */\n"
 @@comment[ :EPP_comment ] = "\n/* 受け口関数プロトタイプ宣言 %s */\n"
 …
 @@comment[ :TEPF_comment ] = "/* 受け口関数 %s */\n"
 @@comment[ :TEFB_comment ] = "\t/* ここに処理本体を記述します %s */\n"
+@@comment[ :MCPP_comment ] = "/* CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPB_comment ] = "/* CB プロトタイプ宣言 %s */\n"
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/DomainPlugin.rb

-              r321
+              r429
   #option::String : domain 指定子の第二引数
   def initialize( region, domain_type_name, option )
+    super()
   end
 …
     return false
   end
+  #== ドメイン種別を返す
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    :kernel
+  end
+  #== factory 生成
+  # DomainPlugin の factory は特定のファイルへの出力が想定されていない
+  def gen_factory
+  end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2AlarmHandlerPlugin.rb

-              r321
+              r429
 #   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
 #   の責任を負わない．
+#
+#   $Id: HRP2AlarmHandlerPlugin.rb 2640 2017-06-03 11:27:12Z okuma-top $
+#
 #++
 …
     def print_cfg_cre(file, cell, val, tab)
         val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
         cell_CB_name = "#{@celltype.get_global_name}_CB_tab[#{index}]"
+        # $cbp$  #983
+        name_array = @celltype.get_name_array cell
+        cell_CBP = name_array[8]    # CBP
         # CRE_XXXの生成
         if (cell.get_region.get_region_type != :DOMAIN) || (cell.get_region.get_param != :KERNEL_DOMAIN)
 …
         else
             file.print <<EOT
 #{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tAlarmHandler_start });
+#{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tAlarmHandler_start });
 EOT
         end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2CyclicHandlerPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
     def print_cfg_cre(file, cell, val, tab)
         val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
         cell_CB_name = "#{@celltype.get_global_name}_CB_tab[#{index}]"
+        # $cbp$  #983
+        name_array = @celltype.get_name_array cell
+        cell_CBP = name_array[8]    # CBP
         # CRE_XXXの生成
         if (cell.get_region.get_region_type != :DOMAIN) || (cell.get_region.get_param != :KERNEL_DOMAIN)
 …
         else
             file.print <<EOT
 #{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
+#{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
 EOT
         end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2DataqueuePlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2EventflagPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2FixedSizeMemoryPoolPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2HandlerPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 #require "HRP2KernelObjectPlugin"
 require_tecsgen_lib "HRP2KernelObjectPlugin.rb"
 #== celltype プラグインの共通の親クラス
 …
     # tab  :
     def print_cfg_cre(file, cell, val, tab)
+        val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        # $cbp$の代わり
+        index = cell.get_id - @celltype.get_id_base
+        cell_CB_name = "#{@celltype.get_global_name}_CB_tab[#{index}]"
+        if !val[:id].nil?
+            val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        end
+        # $cbp$  #983
+        name_array = @celltype.get_name_array cell
+        cell_CBP = name_array[8]    # CBP
         # CRE_XXXの生成
         domainOption = cell.get_region.get_domain_root.get_domain_type.get_option
 …
         elsif @plugin_arg_str == "ALARM"
             file.print <<EOT
 #{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tAlarmHandler_start });
+#{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tAlarmHandler_start });
 EOT
         elsif @plugin_arg_str == "CYCLIC"
             file.print <<EOT
+#{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
+#{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
+EOT
+        elsif @plugin_arg_str == "CONFIG_INT"
+            file.print <<EOT
+#{tab}CFG_INT( #{val[:interruptNumber]}, { #{val[:attribute]}, #{val[:interruptPriority]} });
+EOT
+        elsif @plugin_arg_str == "ISR"
+            file.print <<EOT
+#{tab}ATT_ISR({ #{val[:attribute]}, #{cell_CBP}, #{val[:interruptNumber]}, tISR_start, #{val[:priority]} });
+EOT
+        elsif @plugin_arg_str == "INIT_ROUTINE"
+            file.print <<EOT
+#{tab}ATT_INI({ #{val[:attribute]}, #{cell_CBP}, tInitializeRoutine_start });
+EOT
+        elsif @plugin_arg_str == "TERM_ROUTINE"
+            file.print <<EOT
+#{tab}ATT_TER({ #{val[:attribute]}, #{cell_CBP}, tTerminateRoutine_start });
 EOT
         else
 …
         elsif @plugin_arg_str == "CYCLIC"
             file.puts "SAC_CYC(#{val[:id]}, { #{acv[0]}, #{acv[1]}, #{acv[2]}, #{acv[3]} });"
+        elsif @plugin_arg_str == "CONFIG_INT"
+            # nothing to do
+        elsif @plugin_arg_str == "ISR"
+            # nothing to do
+        elsif @plugin_arg_str == "INIT_ROUTINE"
+            # nothing to do
+        elsif @plugin_arg_str == "TERM_ROUTINE"
+            # nothing to do
         else
             raise "#{@plugin_arg_str} is unknown option"

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2KernelObjectPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
                 val = {}
                 @celltype.get_attribute_list.each{ |a|
                     p a.get_name
+                    # p a.get_name
                     if a.get_type.kind_of?( ArrayType )
                         val[a.get_name] = []
 …
                 if val[:id].nil? != true
                     puts val[:id]
+                    val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+                    #val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+                    val[:id] = @celltype.subst_name( val[:id], @celltype.get_name_array( cell ) )
                 end
                 # $cbp$の代わり
 …
                         file2.puts "}\n"
                     else
                         print "~~~~~ #{cell.get_region.get_name.to_s} is included in"
                         p @@region_list
+                        dbgPrint "~~~~~ #{cell.get_region.get_name.to_s} is included in"
+                        # p @@region_list
                     end
                     file3 = AppFile.open( "#{$gen}/tecsgen_#{cell_domain_root.get_name.to_s}.cfg" )
 …
                 puts "===== end check my domain #{cell.get_name} ====="
                 # SAC_XXXの生成
+                puts "===== begin check regions #{cell.get_name} ====="
+                p val[:accessPattern]
+                p val[:accessPattern].class
+                #ep = [ :eTaskActivate, :eTaskControl, :eTaskManage, :eTaskRefer ]
+                #各カーネルオブジェクトの受け口名を取得
+                # ep = get_entry_ports_name_list()
+                i = 0
+                acv = []
+                # アクセス許可ベクタの生成
+                val[:accessPattern].each { |acptnx|
+                    # アクセス許可パターンの生成
+                    if acptnx != "OMIT"
+                        acv << acptnx
+                        p acv[i]
+                    elsif cell_domain_type.get_option.to_s == "trusted"
+                        acv << "TACP_KERNEL"
+                        p acv[i]
+                    elsif cell_domain_type.get_option.to_s != "OutOfDomain"
+                        acv << "TACP(#{cell_domain_root.get_name.to_s})"
+                if !val[:accessPattern].nil?
+                    puts "===== begin check regions #{cell.get_name} ====="
+                    # p val[:accessPattern]
+                    # p val[:accessPattern].class
+                    #ep = [ :eTaskActivate, :eTaskControl, :eTaskManage, :eTaskRefer ]
+                    #各カーネルオブジェクトの受け口名を取得
+                    # ep = get_entry_ports_name_list()
+                    i = 0
+                    acv = []
+                    # アクセス許可ベクタの生成
+                    val[:accessPattern].each { |acptnx|
+                        # アクセス許可パターンの生成
+                        if acptnx != "OMIT"
+                            acv << acptnx
+                            # p acv[i]
+                        elsif cell_domain_type.get_option.to_s == "trusted"
+                            acv << "TACP_KERNEL"
+                            # p acv[i]
+                        elsif cell_domain_type.get_option.to_s != "OutOfDomain"
+                            acv << "TACP(#{cell_domain_root.get_name.to_s})"
+                        else
+                            acv << "TACP_SHARED"
+                        end
+                        i += 1
+                    }
+                    dbgPrint "acv = "
+                    p acv
+                    #各種SACの生成
+                    domainOption = cell_domain_type.get_option
+                    # if cell.get_region.get_region_type == :DOMAIN
+                    if domainOption != "OutOfDomain"
+                        # 保護ドメインに属する場合
+                        file3 = AppFile.open( "#{$gen}/tecsgen_#{cell.get_region.get_name.to_s}.cfg" )
+                        print_cfg_sac(file3, val, acv)
+                        file3.close
                     else
+                        acv << "TACP_SHARED"
+                        # 無所属の場合
+                        print_cfg_sac(file2, val, acv)
                     end
+                    i += 1
+                }
+                print "acv = "
+                p acv
+                #各種SACの生成
+                domainOption = cell_domain_type.get_option
+                # if cell.get_region.get_region_type == :DOMAIN
+                if domainOption != "OutOfDomain"
+                    # 保護ドメインに属する場合
+                    file3 = AppFile.open( "#{$gen}/tecsgen_#{cell.get_region.get_name.to_s}.cfg" )
+                    print_cfg_sac(file3, val, acv)
+                    file3.close
+                else
+                    # 無所属の場合
+                    print_cfg_sac(file2, val, acv)
+                    puts "===== end check regions #{cell.get_name} ====="
                 end
-                puts "===== end check regions #{cell.get_name} ====="
             end
+        }
 …
     def self.check_referenced_cells()
         puts "===== begin check registered celltype ====="
+        dbgPrint "===== begin check registered celltype =====\n"
         self.get_celltype_list.each { |ct|
             p ct.get_name.to_s
+            dbgPrint( ct.get_name.to_s + "\n" )
+        }
         puts "===== end check registered celltype ====="
+        dbgPrint "===== end check registered celltype =====\n"
 =begin
 …
                 j = cell.get_join_list.get_item(p.get_name)
                 printf "===== check call port : "
                 p p.get_name.to_s
+                # p p.get_name.to_s
                 next if j.nil? # 未結合の場合
                 if @@celltype_list.include?(j.get_celltype)
 …
                     j.get_cell.set_referenced_cell(cell, j.get_port_name)
                     printf "===== check joined rhs cell : "
                     p j.get_cell.get_name.to_s
+                    # p j.get_cell.get_name.to_s
                     printf "===== check joined rhs port_name : "
                     p j.get_port_name
+                    # p j.get_port_name
                 end
+            }

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2ObjectPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2Plugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2014 by TOPPERS Project
+#   Copyright (C) 2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   def initialize( region, name, option )
+    print "MyDomainPlugin: initialize: region=#{region.get_name}, domainName=#{name}, option=#{option}\n"
+    super
+    print "HRP2Plugin: initialize: region=#{region.get_name}, domainName=#{name}, option=#{option}\n"
+    @region = region
+    @name   = name
+    case option
+    when "trusted", "nontrusted", "OutOfDomain"
+      # OK
+      @option = option
+    else
+      cdl_error( "HRPPlugin: '$1' is unacceptable domain kind, specify 'trusted' or 'nontrusted'", option )
+      @option = "trusted"   # とりあえず trusted を設定しておく
+    end
   end
 …
     # get_rhs_subscript:Integer or nil 受け口配列の添数 (Join::@rhs_subscript の説明参照)
     # return []
     print "MyDomainPlugin: add_through_plugin: #{current_region.get_name}=>#{next_region.get_name}, #{join.get_owner.get_name}.#{join.get_definition.get_name}=>#{join.get_cell.get_name}.#{join.get_port_name}, #{through_type}\n"
+    print "HRP2Plugin: add_through_plugin: #{current_region.get_name}=>#{next_region.get_name}, #{join.get_owner.get_name}.#{join.get_definition.get_name}=>#{join.get_cell.get_name}.#{join.get_port_name}, #{through_type}\n"
     puts "=====Join Check Start====="
 …
   end
+  #== ドメイン種別を返す
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    case @option
+    when "trusted"
+      return :kernel
+    when "nontrusted"
+      return :user
+    when "OutOfDomain"
+      return :OutOfDomain
+    end
+  end
   def joinable?(current_region, next_region, through_type )
     print "MyDomainPlugin: joinable? from #{current_region.get_name} to #{next_region.get_name} (#{through_type})\n"
+    print "HRP2Plugin: joinable? from #{current_region.get_name} to #{next_region.get_name} (#{through_type})\n"
     return true
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2PostHook.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2012 by TOPPERS Project
+#   Copyright (C) 2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2RPCPlugin.rb

-              r321
+              r429
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     if cell.get_allocator_list.length > 0 then
       dbgPrint "make allocator"
+      dbgPrint "make allocator\n"
       file.print "#{indent_str}[allocator("
 …
     nest = @end_region.gen_region_str_pre file
     indent_str = "  " * nest
+    nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name}Server #{@cell_name}Body {
 #{indent_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 //#{indent_str}    #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
 #{indent_str}  //cTDR         = #{@channelCellName}.eTDR;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2SVCPlugin.rb

-              r321
+              r429
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   @@generated_celltype_header = {}
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @ct_name_body = "#{@ct_name}SVCBody_#{@next_cell.get_name}_#{@next_cell_port_name}".to_sym
 …
     nest = @end_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # サーバー側チャンネルの生成
 …
 #{nest_str}  //  Server Side Channel
 #{nest_str}  cell #{@ct_name_body} #{@cell_name_body}{
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{nest_str}  };
 EOT
 …
     nest = @start_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # クライアント側チャンネルの生成
 …
 #{nest_str}  //  Client Side Channel
 #{nest_str}  cell #{@ct_name} #{@cell_name}{
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{nest_str}  };

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2TaskPlugin.rb

-              r321
+              r429
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
     # tab  :
     def print_cfg_cre(file, cell, val, tab)
+        val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        #val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_global_name.to_s}" )
+        #val[:id] = @celltype.subst_name( val[:id], @celltype.get_name_array( cell ) )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
 …
         cell_CB_name = "#{index}"
         # CRE_XXX/DEF_XXXの生成
         print "assign task plugin\n"
+        dbgPrint "assign task plugin\n"
         domainOption = cell.get_region.get_domain_root.get_domain_type.get_option
         # if cell.get_region.get_region_type == :DOMAIN
+# cell.show_tree 1
         if domainOption != "OutOfDomain"
             # 保護ドメインに属する場合
 …
                     raise "system task cannot have user stack."
                 end
+p "CRE_TSK 0 user=#{val[:userStackSize]} system=#{val[:systemStackSize]}"
                 file.print <<EOT
 #{tab}CRE_TSK(#{val[:id]}, { #{val[:taskAttribute]}, #{cell_CB_name}, tTask_start_task, #{val[:priority]}, #{val[:systemStackSize]}, NULL });
 …
                     raise "user task must have user stack."
                 end
+p "CRE_TSK 1"
                 if val[:systemStackSize] == "OMIT"
                     file.print <<EOT
 …
 EOT
                 else
+p "CRE_TSK 2"
                     file.print <<EOT
 #{tab}CRE_TSK(#{val[:id]}, { #{val[:taskAttribute]}, #{cell_CB_name}, tTask_start_task, #{val[:priority]}, #{val[:userStackSize]}, NULL, #{val[:systemStackSize]}, NULL });
 …
                 ct = cell.get_celltype
                 if ct.class == Celltype && check_celltype_list.include?( ct ) == false
+                    # チェック済みセルタイプに登録
+                    check_celltype_list << ct
                     # 未チェックのセルタイプだった場合
                     # puts "check for ATT_MOD : #{ct.classget_global_name}"
 …
                     regions = ct.get_domain_roots
                     regions_hrp2 = regions[ :HRP2 ]
                     print "HRP2 domain in #{ct.get_name}: "
+                    dbgPrint "HRP2 domain in #{ct.get_name}: "
                     regions_hrp2.each { |reg|
                         print reg.get_name
+                        dbgPrint reg.get_name
+                    }
                     puts ""
 …
                     file.print "ATT_MOD(\"#{ct.get_global_name}.o\");\n"
                     file.close
-                    check_celltype_list << ct
                 else
                     # 何もしない

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/MrubyBridgePlugin.rb

-              r321
+              r429
 #  mruby => TECS bridge
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
+#
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
+#
+# Todo:
+# 生成するもの
+#  gen_cdl_file
+#    ブリッジ初期化セルタイプ (シグニチャごと)
+#       @@init_celltypes に記録
+#    ブリッジセルタイプ (シグニチャごと)
+#       @@celltypes に記録
+#    構造体セルタイプ
+#       @@struct_list に記録
+#  new_cell
+#    TECS 初期化セル(プロトタイプ宣言)
+#       @@VM_init_cells に記録
+#       @@VM_struct_list に記録
+#       @@VM_ptr_list に記録
+#  gen_post_code
+#    構造体初期化セル
+#    ポインタ初期化セル
+#    TECS 初期化セル
+#
+#   ep_func の作成
+#     signature, ポインタ、構造体 … 初期化受け口＝mruby VM への登録
+#     ポインタ
+#   preamble の作成
+#     ポインタ、構造体 … アクセス用コードの生成
+#     signature … ブリッジ関数のプロトタイプ宣言
+#   postamble の作成
+#     signature … ブリッジ関数の定義
+class MrubyBridgePlugin < SignaturePlugin
+  # プラグイン引数名 => Proc
+  MrubyBridgePluginArgProc = {
+      "ignoreUnsigned" => Proc.new { |obj,rhs| obj.set_ignoreUnsigned rhs },
+      "include" => Proc.new { |obj,rhs| obj.set_include rhs },
+      "exclude" => Proc.new { |obj,rhs| obj.set_exclude rhs },
+  }
+  @@celltypes = { }             # {celltype_name => [ BridgePlugin のインスタンスの配列 }
+  @@init_celltypes = { }        # {celltype_name => [ BridgePlugin のインスタンスの配列 }
+  @@struct_list = { }           # {struct_name=>StructType}
+  @@ptr_list = { }              # {ptr_celltype_name=> @@TYPE_MAP の対応するもの}
+  @@VM_list = { }               # VM_name => true
+  @@VM_celltypes = {  }             # VM_name => { @celltype_name => セルの配列 }
+  @@VM_struct_list = { }           # {name=>StructType}
+  @@VM_ptr_list = { }              # { VM_name => {name=> @@TYPE_MAP の対応するもの} }
+  @@TYPE_MAP = {           # type_str   class             GET_SET
+    :char_t            => [:char_t,    "Char",     :Char,  :INT   ],
+    :uchar_t           => [:uchar_t,   "UChar",    :Char,  :INT   ],
+    :schar_t           => [:schar_t,   "SChar",    :Char,  :INT   ],
+    :bool_t            => [:bool_t,    "Bool",     :Bool,  :BOOL  ],
+    :int8_t            => [:int8_t,    "Int8",     :Int,   :INT   ],
+    :int16_t           => [:int16_t,   "Int16",    :Int,   :INT   ],
+    :int32_t           => [:int32_t,   "Int32",    :Int,   :INT   ],
+    :int64_t           => [:int64_t,   "Int64",    :Int,   :INT   ],
+    :uint8_t           => [:uint8_t,   "UInt8",    :Int,   :INT   ],
+    :uint16_t          => [:uint16_t,  "UInt16",   :Int,   :INT   ],
+    :uint32_t          => [:uint32_t,  "UInt32",   :Int,   :INT   ],
+    :uint64_t          => [:uint64_t,  "UInt64",   :Int,   :INT   ],
+    :int               => [:int,       "Int",      :Int,  :INT   ],
+    :char              => [:char,      "Char",     :Char, :INT   ],    # char は char_t として扱う
+    :short             => [:short,     "Short",    :Int,  :INT   ],
+    :long              => [:long,      "Long",     :Int,  :INT   ],
+    :"unsigned char"   => [:uchar_t,   "UChar",         :Char, :INT   ],
+    :"unsigned int"    => [:"unsigned int",   "UInt",   :Int,  :INT   ],
+    :"unsigned short"  => [:"unsigned short", "UShort", :Int,  :INT   ],
+    :"unsigned long"   => [:"unsigned long",  "ULong",  :Int,  :INT   ],
+    :"signed char"     => [:schar_t,   "SChar",    :Char,  :INT   ],
+    :"signed int"      => [:int,       "Int",      :Int,   :INT   ],
+    :"signed short"    => [:short,     "Short",    :Int,   :INT   ],
+    :"signed long"     => [:long,      "Long",     :Int,   :INT   ],
+    :float32_t         => [:float32_t, "Float32",  :Float, :FLOAT ],
+    :double64_t        => [:double64_t,"Double64", :Float, :FLOAT ],
+    :float             => [:float,     "Float32",  :Float, :FLOAT ],
+    :double            => [:double,    "Double64", :Float, :FLOAT ]
+  }
+  # included  or excluded functions
+  ### ロードされた時点で実行される ###
+  # -I に $(TECSPATH)/mruby を追加
+  # TECSGEN::Makefile.add_obj "$(MRUBY_MAIN_OBJ)"
+  TECSGEN::Makefile.add_ldflag "-lmruby -L$(MRUBYPATH)/lib -lm"
+  TECSGEN::Makefile.add_search_path "$(MRUBYPATH)/include"
+  TECSGEN::Makefile.add_var "MRUBYPATH",      "..",  "CHANGE this to suitable path"
+  # TECSGEN::Makefile.add_var "MRUBY_MAIN_OBJ", "$(_TECS_OBJ_DIR)tecs_mruby.o", "CHANGE this if your have your main"
+  #=== プラグインインスタンスの初期化
+  # 戻り値、引数の型が使用可能なものかチェックする
+  #
+  def initialize( signature, option )
+    super
+    if ! $no_banner
+      STDERR << "MrubyBridgePlugin: version 1.2.0 (Suitable for mruby ver 1.2.0. Has backward compatibility with ver 1.1.0)\n"
+    end
+    @b_ignoreUnsigned = false
+    @includes = []
+    @excludes = []
+    @struct_list = { }
+    @ptr_list = { }
+    @plugin_arg_check_proc_tab = MrubyBridgePluginArgProc
+    parse_plugin_arg
+    @celltype_name = :"t#{@signature.get_global_name}"
+    @init_celltype_name = :"#{@celltype_name}_Initializer"
+        # this variable is sometimes not used. rhs coded directry.
+    @class_name = :"T#{@signature.get_global_name}"
+    @func_head_array = []
+    if @includes.length > 0 && @excludes.length > 0 then
+      cdl_error( "MRB1011 both include && exclude are specified" )
+    end
+    if signature.get_function_head_array == nil then
+      return   # 以前に文法エラー発生
+    end
+    signature.get_function_head_array.each{ |func_head|
+      if @includes.length > 0 then
+        if @includes.index func_head.get_name then
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} INCLUDED\n"
+          @func_head_array << func_head
+        else
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} NOT included\n"
+        end
+      elsif @excludes.length > 0 then
+        if @excludes.index( func_head.get_name ) == nil then
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} NOT excluded\n"
+          @func_head_array << func_head
+        else
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} EXCLUDED\n"
+        end
+      else
+        @func_head_array << func_head
+      end
+    }
+    if @func_head_array.length == 0 then
+      cdl_error( "MRB1012 '$1' no function remained by exclude", @signature.get_name )
+    end
+    check_name_and_return_type @func_head_array
+    check_parameter_type @func_head_array
+  end
+  #=== check function name & return type
+  def check_name_and_return_type func_head_array
+    b_init = false; b_init_cell = false
+    func_head_array.each{ |func_head|
+      if( func_head.get_name == :initialize )then
+        cdl_warning( "MRW2001 initialize: internally defined. change to initialize_cell in ruby" )
+        b_init = true
+      elsif( func_head.get_name == :initialize_cell )then
+        b_init_cell = true
+      end
+      rtype = func_head.get_return_type.get_original_type
+      case rtype
+      when BoolType, IntType, FloatType, VoidType
+      else
+        cdl_error( "MRB1001 cannot return type $1", rtype.get_type_str )
+      end
+    }
+    if( b_init && b_init_cell )then
+      cdl_warning( "MRB1002 initialize: internally defined. change to initialize_cell in ruby" )
+#== MrubyBridgePlugin クラス
+class MrubyBridgePlugin < MultiPlugin
+  def self.get_plugin superClass
+    # case when (つまりは ===) では、期待したように一致しない模様
+    if superClass == SignaturePlugin then
+      dbgPrint "MrubyBridgePlugin: SignaturePlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeSignaturePlugin.rb'
+      return MrubyBridgeSignaturePlugin
+    elsif superClass == CelltypePlugin
+      dbgPrint "MrubyBridgePlugin: CelltypePlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeCelltypePlugin.rb'
+      return MrubyBridgeCelltypePlugin
+    elsif superClass == CompositePlugin
+      dbgPrint "MrubyBridgePlugin: CompositePlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeCompositePlugin.rb'
+      return MrubyBridgeCompositePlugin
+    elsif superClass == CellPlugin
+      dbgPrint "MrubyBridgePlugin: CellPlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeCellPlugin.rb'
+      return MrubyBridgeCellPlugin
+    #elsif superClass == ThroughPlugin
+    #  return ThroughPlugin
+    #elsif superClass == DomainPlugin
+    #  return DomainPlugin
+    else
+      dbgPrint "MrubyBridgePlugin: unsupported"
+      return nil
     end
   end
-  #=== check paramter type
-  def check_parameter_type func_head_array
-    # check type of parameters
-    func_head_array.each{ |fh|
-      fh.get_paramlist.get_items.each{ |param_decl|
-        case param_decl.get_direction
-        when :SEND, :RECEIVE
-          cdl_error( "MRB1003 $1: $2 parameter cannot be used in mruby Bridge",  param_decl.get_name, param_decl.get_direction.to_s.downcase )
-        end
-        type = param_decl.get_type
-        type_org = type.get_original_type
-        type_str = type.get_type_str + type.get_type_str_post
-        b_ng = false
-        case type_org
-        when IntType
-          case  type_org.get_bit_size
-          when 8, 16, 32, 64
-          when -1, -2, -3, -4, -11
-          else
-            b_ng = true
-          end
-        when BoolType
-        when FloatType
-        when PtrType
-          ttype_org = type_org.get_type       # ポインタの指している先の型
-          ttype = ttype_org.get_original_type # 上記の typedef されている場合、元の型
-          register_ptr_type ttype_org
-          if( type_org.get_string.to_s == "-1" ) then
-            case param_decl.get_direction
-            when :OUT, :INOUT
-              cdl_error( "MRB9999 string specifier without length cannot be used for out & inout parameter")
-            end
-          end
-          case ttype
-          when IntType
-            bit_size = ttype.get_bit_size
-            # if  bit_size < 0 && bit_size != -1 then
-            #   b_ng = true
-            # end
-          when FloatType
-          when BoolType
-          when StructType
-            if( type_org.get_size || type_org.get_string || type_org.get_count ) then
-              cdl_error( "MRB1004 $1: size_is, count_is, string cannot be specified for struct pointer", param_decl.get_name )
-            end
-            check_struct_member ttype_org
-          else
-            b_ng = true
-          end
-        when StructType
-          check_struct_member type_org
-        else  # ArrayType, FuncType, EnumType, VoidType
-          b_ng = true
-        end
-        if b_ng then
-          cdl_error( "MRB1005 $1: type $2 cannot be used in mruby Bridge", param_decl.get_name, type_str )
-        end
+      }
+    }
-  end
-  #=== 構造体のメンバーの型のチェック
-  def check_struct_member struct_type
-    #p "tag name:#{struct_type.get_name}"
-    # sttype = Namespace.find_tag( struct_type.get_name )
-    sttype = struct_type.get_original_type
-    if sttype.get_name == nil then
-      cdl_error( "MRB10007 tagless-struct cannot be handled")
-    end
-    sttype.get_members_decl.get_items.each { |d|
-      t = d.get_type.get_original_type
-      case t
-      when IntType, FloatType, BoolType
-      else
-        cdl_error( "MRB1006 $1: type $2 not allowed for struct member", d.get_name, d.get_type.get_type_str + d.get_type.get_type_str_post )
-      end
+    }
-    st_name = :"t{}"
-    if @struct_list[ sttype.get_name ] == nil then
-      # print_msg "  MrubyBridgePlugin: [struct]   #{struct_type.get_type_str} => class TECS::Struct#{sttype.get_name}\n"
-      print "  MrubyBridgePlugin: [struct]   #{struct_type.get_type_str} => class TECS::Struct#{sttype.get_name}\n"
-      @struct_list[ sttype.get_name ] = sttype
-    end
-  end
-  def register_ptr_type ttype
-    t_org = ttype.get_original_type
-    tment = get_type_map_ent t_org
-    if tment == nil then
-      return
-      cdl_error( "MRB1008 unknown pointer type '$1'", ttype.get_type_str )
-    end
-    ptr_celltype_name = :"t#{tment[1]}Pointer"
-    if @@ptr_list[ ptr_celltype_name ] == nil then
-      # print_msg "  MrubyBridgePlugin: [pointer]  #{ttype.get_type_str}* => class TECS::#{tment[1]}Pointer\n"
-      print "  MrubyBridgePlugin: [pointer]  #{ttype.get_type_str}* => class TECS::#{tment[1]}Pointer\n"
-      @@ptr_list[ ptr_celltype_name ] = tment
-    end
-    if @ptr_list[ ptr_celltype_name ] == nil then
-      @ptr_list[ ptr_celltype_name ] = tment
-    end
-  end
-  def get_type_map_ent ttype
-    # structure type is registerd in check_struct_member
-    if ttype.kind_of? StructType
-      return
-    end
-    tstr = ttype.get_type_str.sub( /const /, "" )    # const は無視
-    tstr = tstr.sub( /volatile /, "" )               # volatile も無視
-    if @b_ignoreUnsigned then
-      tstr = tstr.sub( /unsigned /, "" )             # volatile も無視
-      tstr = tstr.sub( /uint/, "int" )               # volatile も無視
-      tstr = tstr.sub( /[cs]char/, "char" )          # volatile も無視
-    end
-    return @@TYPE_MAP[ tstr.to_sym ]
-  end
-  #===  CDL ファイルの生成
-  #      typedef, signature, celltype, cell コードを生成
-  #file::        FILE       生成するファイル
-  def gen_cdl_file(file)
-    # ブリッジセルタイプの生成
-    if @@celltypes[ @celltype_name ] == nil then
-      @@celltypes[ @celltype_name ] = [ self ]
-      @@init_celltypes[ @init_celltype_name ] = true
-      print_msg <<EOT
-  MrubyBridgePlugin: [signature] #{@signature.get_namespace_path} => [celltype] nMruby::#{@celltype_name} => [class] TECS::#{@class_name}
-EOT
-      file.print <<EOT
-import( <mruby.cdl> );
-/****  Ruby => TECS Bridge Celltype (MBP500) ****/
-namespace nMruby{
-    // bridge celltype
-    [idx_is_id,active]   // not actually active, to avoid warning W1002, W1007
-    celltype #{@celltype_name} {
-        call #{@signature.get_namespace_path.to_s} cTECS;
-        attr {
-            [omit]
-            char_t *VMname = "VM";
-        };
-    };
-    // bridge initializer celltype
-    celltype #{@init_celltype_name} {
-        entry sInitializeTECSBridge eInitialize;
-    };
-};
-EOT
-      # 構造体セルタイプの生成
-      @struct_list.each{ |name, sttype|
-        if @@struct_list[ name ] == nil then
-          file.print <<EOT
-namespace nMruby{
-    [singleton]
-    celltype #{name} {
-        entry sInitializeTECSBridge eInitialize;
-    };
-};
-EOT
-          @@struct_list[ name ] = sttype
-        end
+      }
-    else
-      cdl_warning( "MRBW001 MrubyBridgePlugin: signature '$1' duplicate. ignored current one", @signature.get_namespace_path )
-      @@celltypes[ @celltype_name ] << self
-    end
-  end
-  #=== gen_cdl_file で定義したセルタイプに 新しいセルが定義された
-  # cell のセルタイプの名前は @celltype_name
-  def new_cell cell
-    if cell.get_celltype.get_name != @celltype_name then
-      return
-    end
-    join = cell.get_join_list.get_item :VMname
-    if join then
-      vm_name = CDLString.remove_dquote(join.get_rhs.to_s).to_sym
-    else
-      vm_name = :"VM"
-    end
-    if @@VM_list[ vm_name ] == nil then
-      @@VM_list[ vm_name ] = true
-      initializer_celltype_cdl = "#{$gen}/#{cell.get_name}Initializer.cdl"
-      file = CFile.open( initializer_celltype_cdl, "w" )
-      # TECS 初期化セル(プロトタイプ宣言)
-      print_msg "  MrubyBridgePlugin: join your VM's cInitialize to #{vm_name}_TECSInitializer.eInitialize\n"
-      file.print <<EOT
-  // prototype of TECSInitializer (MBP510)
-  cell nMruby::tTECSInitializer #{vm_name}_TECSInitializer;
-EOT
-      file.close
-      Generator.parse( initializer_celltype_cdl, self )
-    end
-    if @@VM_celltypes[ vm_name ] then
-      vma = @@VM_celltypes[ vm_name ]
-      if vma[ @celltype_name ] then
-        vma[ @celltype_name ] << cell
-      else
-        vma[ @celltype_name ] = [cell]
-        @@VM_celltypes[ vm_name ] = vma
-      end
-    else
-      vma = { }
-      vma[ @celltype_name ] = [cell]
-      @@VM_celltypes[ vm_name ] = vma
-    end
-    @struct_list.each{ |stname, sttype|
-      if @@VM_struct_list[ vm_name ] then
-        @@VM_struct_list[ vm_name ][ sttype.get_name ] = sttype
-      else
-        @@VM_struct_list[ vm_name ] = { sttype.get_name => sttype }
-      end
+    }
-    @ptr_list.each{ |ptr_celltype_name, tment|
-      if @@VM_ptr_list[ vm_name ] then
-        @@VM_ptr_list[ vm_name ][ ptr_celltype_name ] = tment
-      else
-        @@VM_ptr_list[ vm_name ] = { ptr_celltype_name => tment }
-      end
+    }
-  end
-  #=== プラグインが CDL の POST コードを生成
-  # tmp_plugin_post_code.cdl への出力
-  def self.gen_post_code file
-#     file.print <<EOT
-# namespace nMruby {
-# EOT
+#
-#     @@ptr_list.each{ |name,tment|
-#       file.print <<EOT
+#
-#     // MBP600
-#     [singleton]
-#     celltype #{name} {
-#         entry  sInitializeTECSBridge eInitialize;
-#     };
-# EOT
-#     }
+#
-#     file.print <<EOT
-# };
-# EOT
-# gen_post_code で生成した celltype は gen_ep_func が呼び出されない #847
-#    @@struct_list.each{ |name,sttype|
-#      file.print <<EOT
+#
-#    [singleton]
-#    celltype #{name} {
-#        entry  sInitializeTECSBridge eInitialize;
-#    };
-#EOT
-#    }
-    file.print "  // MBP601\n"
-    @@VM_celltypes.each{ |vm_name, instance_list|
-      instance_list.each { |celltype_name, array|
-        cell = array[0]
-        if cell.get_celltype then
-          ct_name = cell.get_celltype.get_name
-        file.print <<EOT
-  cell nMruby::#{ct_name}_Initializer #{vm_name}_#{ct_name}_Initializer{ };
-EOT
-        end
+      }
+    }
-    file.print "  // MBP602\n"
-    @@ptr_list.each{ |name,tment|
-      file.print <<EOT
-  cell nMruby::#{name} C#{name} { };
-EOT
+    }
-    file.print "  // MBP603\n"
-    @@struct_list.each{ |name,sttype|
-      file.print <<EOT
-  cell nMruby::#{name} C#{name} { };
-EOT
+    }
-    if @@VM_celltypes == nil
-      raise "are0"
-    end
-    @@VM_celltypes.each{ |vm_name, instance_list|
-      file.print "  /* === VM #{vm_name} === (MBP610) */\n"
-      init_cell_name = "#{vm_name}_TECSInitializer"
-      file.print "  cell nMruby::tTECSInitializer #{init_cell_name} {\n"
-      instance_list.each { |celltype_name, array|
-        array.each{ |cell|
-          ct_name = cell.get_celltype.get_name
-          file.print "    cInitialize[] = #{vm_name}_#{ct_name}_Initializer.eInitialize;\n"
+        }
+      }
-      if @@VM_ptr_list[vm_name] then
-        @@VM_ptr_list[vm_name].each{ |name, tment|
-          file.print "    cInitialize[] = C#{name}.eInitialize;\n"
+        }
-      end
-      if @@VM_struct_list[vm_name] then
-        @@VM_struct_list[vm_name].each{ |name, sttype|
-          file.print "    cInitialize[] = C#{name}.eInitialize;\n"
+        }
-      end
-      file.print "  };"
+    }
-  end
-  ####### 以下コード生成段階 ######
-  #===  受け口関数の本体コードを生成（頭部と末尾は別途出力）
-  #ct_name:: Symbol    (プラグインで生成された) セルタイプ名 ．Symbol として送られてくる
-  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 )
-    if @@celltypes[ ct_name ] then
-      gen_ep_func_body_bridge( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    elsif @@init_celltypes[ ct_name ] then
-      gen_ep_func_body_bridge_init( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    elsif @@ptr_list[ ct_name ] then
-      gen_ep_func_body_ptr( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    elsif @@struct_list[ ct_name ] then
-      gen_ep_func_body_struct( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    else
-      raise "Unknown #{ct_name}"
-    end
-  end
-  def gen_ep_func_body_bridge( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    raise "unexpected "
-  end
-  def gen_ep_func_body_bridge_init( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    file.print <<EOT
-    CELLCB *p_cellcb = GET_CELLCB( idx );  /* no error check */     /* MBP700 */
-    struct RClass       *rc;
-    rc = mrb_define_class_under( mrb, TECS, \"#{@class_name}\", mrb->object_class );
-    mrb_define_method( mrb, rc, "initialize", MrubyBridge_#{@celltype_name}_initialize, MRB_ARGS_REQ(1) );
-    MRB_SET_INSTANCE_TT(rc, MRB_TT_DATA);
-EOT
-    @func_head_array.each{ |f|
-      if ! f.is_function? then
-        next
-      end
-      if f.get_name != :initialize then
-        func_name = f.get_name
-      else
-        func_name = :initialize_cell
-      end
-      ret_type = f.get_return_type
-      n_param = 0
-      f.get_paramlist.get_items.each{ |param|
-        case param.get_direction
-        when :IN, :INOUT, :OUT
-          n_param += 1
-        when :SEND, :RECEIVE
-          raise "send, receive"
-        end
+      }
-      if n_param > 0 then
-        p_str = "MRB_ARGS_REQ( #{n_param} )"
-      else
-        p_str = "MRB_ARGS_NONE()"
-      end
-      file.print <<EOT
-        mrb_define_method( mrb, rc, "#{func_name}", MrubyBridge_#{@celltype_name}_#{func_name}, #{p_str} );
-EOT
+    }
-  end
-  def gen_ep_func_body_ptr( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    t = @@ptr_list[ct_name]
-    type = t[1]
-    file.print <<EOT
-        struct RClass *a;                                /* MBP710 */
-    a = mrb_define_class_under(mrb, TECS, "#{type}Pointer", mrb->object_class);
-    MRB_SET_INSTANCE_TT(a, MRB_TT_DATA);
-    mrb_define_method(mrb, a, "initialize",      #{type}Pointer_initialize,   MRB_ARGS_REQ(1));
-    mrb_define_method(mrb, a, "[]",              #{type}Pointer_aget,         MRB_ARGS_REQ(1));
-    mrb_define_method(mrb, a, "value",           #{type}Pointer_get_val,      MRB_ARGS_NONE());
-    mrb_define_method(mrb, a, "[]=",             #{type}Pointer_aset,         MRB_ARGS_REQ(2));
-    mrb_define_method(mrb, a, "value=",          #{type}Pointer_set_val,      MRB_ARGS_REQ(1));
-    mrb_define_method(mrb, a, "size",            #{type}Pointer_size,         MRB_ARGS_NONE());
-    mrb_define_method(mrb, a, "length",          #{type}Pointer_size,         MRB_ARGS_NONE());
-EOT
-    if t[2] == :Char then
-      file.print <<EOT
-        mrb_define_method(mrb, a, "to_s",            CharPointer_to_s, MRB_ARGS_NONE());
-        mrb_define_method(mrb, a, "from_s",          CharPointer_from_s, MRB_ARGS_REQ(1));
-EOT
-    end
-  end
-  def gen_ep_func_body_struct( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    tag = ct_name
-    structType = @@struct_list[ tag ]
-    file.print  <<EOT
-        struct RClass *a;                                /* MBP720 */
-        a = mrb_define_class_under(mrb, TECS, "Struct#{tag}", mrb->object_class);
-        MRB_SET_INSTANCE_TT(a, MRB_TT_DATA);
-        mrb_define_method(mrb, a, "initialize", Struct_#{tag}_initialize, MRB_ARGS_NONE());
-EOT
-      structType.get_members_decl.get_items.each{ |d|
-        file.print "  STRUCT_INIT_MEMBER( #{tag}, #{d.get_name} )\n"
+      }
-  end
-  #===  受け口関数の preamble (C言語)を生成する
-  #     必要なら preamble 部に出力する
-  #file::           FILE        出力先ファイル
-  #b_singleton::    bool        true if singleton
-  #ct_name::        Symbol
-  #global_ct_name:: string
-  def gen_preamble( file, b_singleton, ct_name, global_ct_name )
-    if @@celltypes[ ct_name ] then
-      gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_instance( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_instance_initialize( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_bridge_func( file, b_singleton, ct_name, global_ct_name )
-    elsif @@init_celltypes[ ct_name ] then
-      gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_instance_proto( file, b_singleton, ct_name, global_ct_name )
-    elsif @@ptr_list[ ct_name ] then
-      gen_preamble_ptr( file, b_singleton, ct_name, global_ct_name )
-    elsif @@struct_list[ ct_name ] then
-      gen_preamble_struct( file, b_singleton, ct_name, global_ct_name )
-    else
-      raise "Unknown #{ct_name}"
-    end
-  end
-  def gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-/* MBP: MrubyBridgePlugin: MBP000 */
-#include "mruby.h"
-#include "mruby/class.h"
-#include "mruby/data.h"
-#include "mruby/string.h"
-#include "TECSPointer.h"
-#include "TECSStruct.h"
-#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
-#define DLLEXPORT __declspec(dllexport)
-#else
-#define DLLEXPORT
-#endif
-#ifndef NULL
-#define NULL 0
-#endif
-EOT
-  end
-  def gen_preamble_instance( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-/* RData MBP001 */
-static void
-#{@celltype_name}_free( mrb_state *mrb, void *p )
+{
-        if( p )
-                (void)mrb_free( mrb, p );
+}
-/* RData MBP002 */
-struct mrb_data_type data_type_#{@celltype_name} =
+{
-        "#{@celltype_name}",
-        #{@celltype_name}_free
-};
-/* RData MBP003 */
-struct tecs_#{@celltype_name} {
-    CELLCB  *cbp;
-};
-/* name_to_cbp MBP010 */
-const struct name_to_cbp_#{@celltype_name} {
-    char   *name;    /* Cell Name */
-    CELLCB *cbp;
-} Name_to_cbp_#{@celltype_name}[] = {
-EOT
-    # mikan namespace
-    nsp = NamespacePath.new( :nMruby, true )
-    nsp.append! ct_name
-    ct = Namespace.find nsp
-    ct.get_cell_list.each{ |cell|
-      if cell.is_generate? then
-        name_array = ct.get_name_array( cell )
-        file.print "\t{ \"#{cell.get_name}\", #{name_array[8]} },\n"
-      end
+    }
-    file.print <<EOT
-\t{ 0, 0 },
-};
-EOT
-  end
-  def gen_preamble_ptr( file, b_singleton, ct_name, global_ct_name )
-    tment = @@ptr_list[ ct_name ]
-    file.print <<EOT
-GET_SET_#{tment[3]}( #{tment[1]}, #{tment[0]} )
-POINTER_CLASS( #{tment[1]}, #{tment[0]} )
-EOT
-  end
-  def gen_preamble_struct( file, b_singleton, ct_name, global_ct_name )
-    tag = ct_name
-    structType = @@struct_list[ tag ]
-    file.print <<EOT
-/* struct #{tag} */
-STRUCT_CLASS( #{tag} )
-EOT
-    structType.get_members_decl.get_items.each{ |d|
-      type = d.get_type.get_original_type
-      case type
-      when IntType, CIntType
-        bit_size = type.get_bit_size
-        case bit_size
-        when -11, -1
-          tType = "Char"
-          ttype = "char"
-        when -2
-          tType = "Short"
-          ttype = "short"
-        when -3
-          tType = "Int"
-          ttype = "int"
-        when -4
-          tType = "Long"
-          ttype = "long"
-        when -5
-          tType = "IntPtr"
-          ttype = "intptr"
-        when 8, 16, 32, 64
-          tType = "Int#{bit_size}"
-          ttype = "int#{bit_size}"
-        else
-            raise "cannot handle bit_size #{bit_size}"
-        end
-        file.print "MEMBER_GET_SET_INT( #{tag}, #{d.get_name}, #{tType}, #{ttype} )\n"
-      when FloatType, CFloatType
-        file.print "MEMBER_GET_SET_FLOAT( #{tag}, #{d.get_name} )\n"
-      else
-        raise "cannot handle type"
-      end
+    }
-  end
-  def gen_preamble_instance_proto( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-//  Prototype MBP400
-mrb_value  MrubyBridge_#{@celltype_name}_initialize( mrb_state *mrb, mrb_value self);
-EOT
-    @func_head_array.each{ |f|
-      if ! f.is_function? then
-        next
-      end
-      if f.get_name != :initialize then
-        func_name = f.get_name
-      else
-        func_name = :initialize_cell
-      end
-      ret_type  = f.get_return_type
-      ret_type0 = f.get_return_type.get_original_type
-      b_void    = ret_type0.is_void?
-      plist     = f.get_paramlist.get_items
-      file.print <<EOT
-mrb_value  MrubyBridge_#{@celltype_name}_#{func_name}( mrb_state *mrb, mrb_value self );
-EOT
+    }
-  end
-  def gen_preamble_instance_initialize( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-/* MBP100 */
-mrb_value
-MrubyBridge_#{@celltype_name}_initialize( mrb_state *mrb, mrb_value self)
+{
-        mrb_value       name;
-        struct tecs_#{@celltype_name} *tecs_cb;
-        const struct name_to_cbp_#{@celltype_name} *ntc;
-        /* set DATA_TYPE earlier to avoid SEGV */
-        DATA_TYPE( self ) = &data_type_#{@celltype_name};
-        mrb_get_args(mrb, "o", &name );
-        if( mrb_type( name ) != MRB_TT_STRING ){
-                mrb_raise(mrb, E_NAME_ERROR, "cell name not string");
+        }
-        for( ntc = &Name_to_cbp_#{@celltype_name}[0]; ntc->name != NULL; ntc++ ){
-                if( strcmp( ntc->name, RSTRING_PTR( name ) ) == 0 )
-                        break;
+        }
-        if( ntc->name == 0 ){
-                mrb_raise(mrb, E_ARGUMENT_ERROR, "cell not found");
+        }
-        tecs_cb = (struct tecs_#{@celltype_name} *)mrb_malloc(mrb, sizeof(struct tecs_#{@celltype_name}) );
-        tecs_cb->cbp = ntc->cbp;
-        DATA_PTR( self ) = (void *)tecs_cb;
-        return self;
+}
-EOT
-  end
-  def gen_preamble_bridge_func( file, b_singleton, ct_name, global_ct_name )
-    @func_head_array.each{ |f|
-      if ! f.is_function? then
-        next
-      end
-      if f.get_name != :initialize then
-        func_name = f.get_name
-      else
-        func_name = :initialize_cell
-      end
-      ret_type  = f.get_return_type
-      ret_type0 = f.get_return_type.get_original_type
-      b_void    = ret_type0.is_void?
-      plist     = f.get_paramlist.get_items
-      file.print <<EOT
-/* bridge function (MBP101) */
-mrb_value
-MrubyBridge_#{ct_name}_#{func_name}( mrb_state *mrb, mrb_value self )
+{
-        /* cellcbp (MBP105) */
-        CELLCB  *p_cellcb = ((struct tecs_#{@celltype_name} *)DATA_PTR(self))->cbp;
-EOT
-      file.print "      /* variables for return & parameter (MBP110) */\n"
-      if ! b_void then
-        file.print "    ", ret_type.get_type_str, "\tret_val", ret_type.get_type_str_post, ";\n"
-      end
-      arg_str = ""
-      n_param  = 0
-      n_scalar = 0
-      n_ptr    = 0
-      n_struct = 0
-      plist.each{ |param|
-        case param.get_direction
-        when :IN, :INOUT, :OUT
-          type = param.get_type.get_original_type
-          case type
-          when IntType
-            file.print "        mrb_int mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "i"
-            n_param += 1
-            n_scalar += 1
-          when FloatType
-            file.print "        mrb_float       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "f"
-            n_param += 1
-            n_scalar += 1
-          when BoolType
-            file.print "        mrb_value       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "o"
-            n_param += 1
-            n_scalar += 1
-          when PtrType
-            file.print "        mrb_value       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "o"
-            n_param += 1
-            n_ptr += 1
-          when StructType
-            file.print "        mrb_value       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  *#{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "o"
-            n_param += 1
-            n_struct += 1
-          else
-            raise "Unkown type"
-          end
-        end
+      }
-      if n_param > 0 then
-        file.print "    /* retrieve arguments (MBP111) */\n"
-        file.print "    mrb_get_args(mrb, \"#{arg_str}\""
-        plist.each{ |param|
-          case param.get_direction
-          when :IN, :INOUT, :OUT
-            type = param.get_type.get_original_type
-            case type
-            when IntType
-              file.print ", &mrb_", param.get_name
-            when FloatType
-              file.print ", &mrb_", param.get_name
-            when BoolType
-              file.print ", &mrb_", param.get_name
-            when PtrType
-              file.print ", &mrb_", param.get_name
-            when StructType
-              file.print ", &mrb_", param.get_name
-            else
-              raise "Unkown type"
-            end
-          end
+        }
-        file.print " );\n"
-        if n_scalar > 0 || n_struct > 0 then
-          file.print "  /* convert mrb to C (MBP112) */\n"
-        end
-        plist.each{ |param|
-          case param.get_direction
-          when :IN, :INOUT, :OUT
-            type = param.get_type.get_original_type
-            case type
-            when IntType
-              ttype = type.get_original_type
-              tment = get_type_map_ent ttype
-              file.print "      VALCHECK_#{tment[1]}( mrb, mrb_#{param.get_name} );\n"
-              file.print "      #{param.get_name} = (#{param.get_type.get_type_str})mrb_#{param.get_name};\n"
-            when FloatType
-              file.print "      #{param.get_name} = (#{param.get_type.get_type_str})mrb_#{param.get_name};\n"
-            when BoolType
-              file.print "      #{param.get_name} = mrb_test( mrb_#{param.get_name} );\n"
-            when PtrType
-              ttype = type.get_type.get_original_type
-              case ttype
-              when StructType
-                file.print "    CHECK_STRUCT( #{ttype.get_name}, mrb_#{param.get_name} );\n"
-                file.print "    #{param.get_name} = (struct #{ttype.get_name}*)DATA_PTR(mrb_#{param.get_name});\n"
-              when IntType
-              when FloatType
-              when BoolType
-              else
-                raise "cannot handle type"
-              end
-            when StructType
-              file.print "      CHECK_STRUCT( #{type.get_name}, mrb_#{param.get_name} );\n"
-              file.print "      #{param.get_name} = (struct #{type.get_name}*)DATA_PTR(mrb_#{param.get_name});\n"
-            else
-              raise( "canot treat class" )
-            end
-          end
+        }
-        if n_ptr > 0 then
-          file.print "  /* convert mrb to C for pointer types (MBP113) */\n"
-        end
-        plist.each{ |param|
-          case param.get_direction
-          when :IN, :INOUT, :OUT
-            type = param.get_type.get_original_type
-            case type
-            when IntType
-            when FloatType
-            when BoolType
-            when PtrType
-              case type.get_type.get_original_type
-              when StructType
-              when IntType
-                ptrMrb2C file, type, param
-              when FloatType
-                ptrMrb2C file, type, param
-              when BoolType
-                ptrMrb2C file, type, param
-              else
-                raise "cannot handle type"
-              end
-            when StructType
-            else
-              raise( "canot treat class" )
-            end
-          end
+        }
-      end
-      file.print "      /* calling target (MBP120) */\n"
-      if ! b_void then
-        file.print "    ret_val = "
-      else
-        file.print "    "
-      end
-      delim = ""
-      file.print "cTECS_", f.get_name, "( "
-      plist.each{ |param|
-        if param.get_type.get_original_type.kind_of? StructType then
-          aster = "*"
-        else
-          aster = ""
-        end
-        file.print delim, aster, param.get_name
-        delim = ", "
+      }
-      file.print " );\n"
-      file.print "      /* return (MBP130) */\n"
-      case ret_type0
-      when BoolType
-        file.print "    return ret_val ? mrb_true_value() : mrb_false_value();\n"
-      when IntType
-        file.print "    return mrb_fixnum_value( ret_val );\n"
-      when FloatType
-        file.print "    return mrb_float_value( mrb, ret_val );\n"
-      when VoidType
-        file.print "    return  mrb_nil_value();\n"
-      else
-        raise "unknown type"
-      end
-      file.print "}\n"
+    }
-  end
-  def ptrMrb2C file, type, param
-    ttype = type.get_type.get_original_type
-    tment = get_type_map_ent ttype
-    tstr = tment[1]
-=begin
-    case ttype
-    when IntType
-      bit_size = ttype.get_bit_size
-      case bit_size
-      when -1, -11
-        tstr = "Char"
-      when 8, 16, 32, 64
-        tstr = "Int#{bit_size}"
-      when -2
-        tstr = "Short"
-      when -3
-        tstr = "Int"
-      when -4
-        tstr = "Long"
-      when -5
-        tstr = "IntPtr"
-      else
-        raise "not handle type"
-      end
-    when FloatType
-      if ttype.get_bit_size == 32 then
-        tstr = "Float32"
-      else
-        tstr = "Double64"
-      end
-    when BoolType
-      tstr = "Bool"
-    when StructType
-      raise "not handle type 2 #{ttype}"
-    else
-      raise "not handle type 2 #{ttype}"
-    end
-=end
-    if( param.get_size ) then
-      sz_str = param.get_size.to_s
-    elsif param.get_string then      # mikan とりあえず size_is と string の同時指定 (二重ポインタ) はなし
-      sz_str = param.get_string.to_s
-    else
-      sz_str = "1"
-    end
-    # unsigned 型の場合には cast が必要
-    if ttype.get_original_type.get_type_str != param.get_type.get_type.get_type_str then
-      cast_str = "(#{param.get_type.get_type_str})"
-    else
-      cast_str = ""
-    end
-    modify = ""
-    case param.get_direction
-    when :OUT, :INOUT
-      case tstr
-      when "Char", "SChar", "UChar"
-        modify = "Mod"
-      end
-    end
-    if param.is_nullable? then
-      nullable = "Nullable"
-    else
-      nullable = ""
-    end
-    # file.print "      CHECK_POINTER( #{tstr}, mrb_#{param.get_name}, #{sz_str} );\n"
-    # file.print "      #{param.get_name} = #{cast_str}((struct #{tstr}PointerBody*)(DATA_PTR(mrb_#{param.get_name})))->buf;\n"
-    file.print "        #{param.get_name} = CheckAndGet#{tstr}Pointer#{modify}#{nullable}( mrb, mrb_#{param.get_name}, #{sz_str} );\n"
-  end
-  def get_celltype_name
-    @celltype_name
-  end
-  #=== プラグイン引数 ignoreUnsigned
-  def set_ignoreUnsigned rhs
-    if rhs == "true" || rhs == nil then
-      @b_ignoreUnsigned = true
-    end
-  end
-  #=== プラグイン引数 include
-  def set_include rhs
-    funcs = rhs.split ','
-    funcs.each{ |rhs_func|
-      found = false
-      rhs_func.gsub!( /\s/, "" )
-      @signature.get_function_head_array.each{ |a|
-        if rhs_func.to_sym == a.get_name then
-          found = true
-        end
+      }
-      if found == false then
-        cdl_error( "MRB1009 include function '$1' not found in signagture '$2'", rhs, @signature.get_name )
-      else
-        @includes << rhs_func.to_sym
-      end
+    }
-  end
-  #=== プラグイン引数 exclude
-  def set_exclude rhs
-    funcs = rhs.split ','
-    funcs.each{ |rhs_func|
-      found = false
-      rhs_func.gsub!( /\s/, "" )
-      @signature.get_function_head_array.each{ |a|
-        if rhs_func.to_sym == a.get_name then
-          found = true
-        end
+      }
-      if found == false then
-        cdl_error( "MRB1010 exclude function '$1' not found in signagture '$2", rhs, @signature.get_name )
-      else
-        @excludes << rhs_func.to_sym
-      end
+    }
-  end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/NotifierPlugin.rb

-              r321
+              r429
 # -*- coding: utf-8 -*-
+#
+#  TECS Generator
+#      Generator for TOPPERS Embedded Component System
+#
 #  Copyright (C) 2015 by Ushio Laboratory
 …
 #  Copyright (C) 2015-2016 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#  Copyright (C) 2015-2018 by TOPPERS Project
+#
+#--
+#   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#  $Id$
+#++
 NotifierPluginArgProc = {
 …
         #  - 受け口関数 - 一般化を行うと，実行時コストが大きく増大してしまうことが
         #    確認されている．このため，一般化は行わない．EntryPropertyにも含めない．
         #  - セルインデックス - CELLIDX型で，型の規定はないが，"ポインタ値であったり
         #    整数値であったりする。" (TECS 5.3.6) より，インデックスかポインタある
+        #  - セルインデックス - CELLIDX型で，型の規定はないが，"ホ゜インタ値て゛あったり
+        #    整数値て゛あったりする。" (TECS 5.3.6) より，インデックスかポインタある
         #    ことが分かる．インデックスだとすると，この値はセルCBのアドレッシングに
         #    使用されるので，intptr_tに収まる筈である．ポインタの場合，当然intptr_t
 …
         #  - アダプタ関数へののポインタ
         #  - アダプタ関数の引数
+        #
+        #   $Id$
         # @private
 …
                         # @param [Cell, Symbol] cell セル．セルについて一般化する場合は `:generic`
                         # @param [Integer, Symbol, nil] subscript 添字．添字について一般化する場合は `:generic`
+                        # @param [Celltype] 呼び先のセルタイプ、cell==:generic の場合のみ有効
                         # @private
                         def generate_inner(context, fn_name, cell, subscript)
+                        def generate_inner(context, fn_name, cell, subscript, callee_ct=nil)
                                 source_file = context.source_file
                                 header_file = context.header_file
 …
                                 unless ct.is_singleton?
                                         if cell == :generic
+                                                params << "(CELLIDX)extinf"
+                                                params << "(#{callee_ct.get_global_name}_IDX)extinf"
+                                                # params << "(CELLIDX)extinf"
                                         else
                                                 # セルのCELLIDXを得る
 …
                                                 generate_inner context, fn_name,
                                                         :generic, subscript
+                                                        :generic, subscript, ct
                                                 props.each { |prop|
 …
             # join:: Join : 結合 (declarationがPortであるもの)
                 def validate_join(handler, cell, join)
                 return !generate_attr_map(handler, cell).nil?
+        return !generate_attr_map(handler, cell).nil?
                 end
 …
         parse_plugin_arg
         unless @factory
                 cdl_error("ASP1003 celltype $1: option factory is not specified",
+                cdl_error("NTF1003 celltype $1: option factory is not specified",
                         celltype.get_name)
         end
         unless @output_file
                 cdl_error("ASP1003 celltype $1: option output_file is not specified",
+                cdl_error("NTF1003 celltype $1: option output_file is not specified",
                         celltype.get_name)
         end
 …
     def set_factory(template_string)
         unless @factory.nil?
                 cdl_error("ASP1003 celltype $1: option factory was specified more than once",
+                cdl_error("NTF1003 celltype $1: option factory was specified more than once",
                         celltype.get_name)
         end
 …
     def set_factory_output_file(output_file)
         unless @output_file.nil?
                 cdl_error("ASP1003 celltype $1: option output_file was specified more than once",
+                cdl_error("NTF1003 celltype $1: option output_file was specified more than once",
                         celltype.get_name)
         end
 …
     def gen_factory file
         puts "===== begin #{@celltype.get_name.to_s} plugin ====="
+        # puts "===== begin #{@celltype.get_name.to_s} plugin ====="
         kernelCfg = AppFile.open( "#{$gen}/#{@output_file}" )
 …
                         subst_attr = @celltype.find(name)
                         unless subst_attr
                         cdl_error( "ASP1007 celltype $1: additional_param: attribute $2 does not exist.",
+                        cdl_error( "NTF1007 celltype $1: additional_param: attribute $2 does not exist.",
                                 @celltype.get_name, name)
                         end
 …
         kernelCfg.close
         puts "===== end #{@celltype.get_name.to_s} plugin ====="
+        # puts "===== end #{@celltype.get_name.to_s} plugin ====="
     end
     def gen_factory_for_cell(kernelCfg, cell)
+      # print "########## gen_factory_for_cell cell=#{cell.get_name}\n"
         handler_flags = []
         handler_args = []
 …
                         when 'false' then ignoreErrors = false
                         else
                                 cdl_warning( "ASP1005 cell $1: unrecognized value '$2' specified for ignoreErrors",
+                                cdl_warning2( cell.get_locale, "NTF1005 cell $1: unrecognized value '$2' specified for ignoreErrors",
                                         cell.get_name, ignoreErrors )
                                 ignoreErrors = false
                 end
+    # ドメイン指定用文字列
+    pre_text  = ""
+    post_text = "\n"
+    indent    = ""
         [EVENT_HANDLER, ERROR_HANDLER].each { |handler|
                 # 呼び口の結合を取得
                 call_join = cell.get_join_list.get_item(handler.call_port_name.to_sym)
+        domain_root = cell.get_region.get_domain_root
+        if cell.get_region.get_domain_root.get_domain_type then
+          # print "cell=#{cell.get_name} domain_root=#{domain_root.get_name} domain_type=#{domain_root.get_domain_type.get_name} domain_option=#{domain_root.get_domain_type.get_option}\n"
+        else
+          # print "cell=#{cell.get_name} domain_root=#{cell.get_region.get_domain_root.get_name}\n"
+        end
+        if call_join
+          # print "validate_join: hanlder=#{handler.class.name} cell=#{cell.get_name} join=#{call_join.get_name} rhs_cell=#{call_join.get_cell}\n"
+        else
+          # print "validate_join: hanlder=#{handler.class.name} cell=#{cell.get_name}\n"
+        end
                 # ハンドラタイプを判別する
 …
                 if matches.length == 0
                         cdl_error( "ASP1001 cell $1: no matching handler type found for $2", cell.get_name, handler.call_port_name )
+                        cdl_error2( cell.get_locale, "NTF1001 cell $1: no matching handler type found for $2", cell.get_name, handler.call_port_name )
                         next
                 end
+        end
                         # 最初に見つかった有効なハンドラタイプを使用
                 ht = matches[0]
+      # ドメインプラグインが指定されている場合、所属ドメインのチェック
+      domain_root = cell.get_region.get_domain_root
+      if domain_root.get_domain_type then
+        if domain_root.get_domain_type.get_name == :HRP then
+          option = domain_root.get_domain_type.get_option
+          matches.each{ |match|
+            # p "match:#{match}"
+            case match
+            when ActivateTaskHandlerType,       WakeUpTaskHandlerType,
+                 SetVariableHandlerType,        SetVariableToErrorCodeHandlerType,
+                             IncrementVariableHandlerType,  SignalSemaphoreHandlerType,
+                             SetEventflagHandlerType,       SendToDataqueueHandlerType,
+                             SendErrorCodeToDataqueueHandlerType
+              if option == "OutOfDomain" then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 cannot be placed out of domain", cell.get_name )
+              elsif call_join.get_cell.get_region.get_domain_root == nil ||
+                    call_join.get_cell.get_region.get_domain_root != domain_root then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 and $2 must be placed in same domain", cell.get_name, call_join.get_cell.get_name )
+              end
+              dbgPrint "#{self.class.name}: match pattern 1.\n"
+            when UserHandlerType
+              if option != "kernel" then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 can be placed in kernel domain only, because notify target is handler", cell.get_name )
+              elsif call_join.get_cell.get_region.get_domain_root == nil ||
+                    call_join.get_cell.get_region.get_domain_root != domain_root then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 and $2 must be placed in same domain", cell.get_name, call_join.get_cell.get_name )
+              end
+              dbgPrint "#{self.class.name}: match pattern 2.\n"
+                        when NullHandlerType.new  # エラー通知を指定していない
+              dbgPrint "#{self.class.name}: match pattern 3.\n"
+            end
+          }
+          # if cell.get_region.get_param == :KERNEL_DOMAIN
+          if option == "kernel"
+            pre_text  = "KERNEL_DOMAIN{\n"
+            post_text = "}\n"
+            indent    =  "\t"
+          elsif option != "OutOfDomain" then
+            pre_text  = "DOMAIN(#{domain_root.get_name.to_s}){\n"
+            post_text = "}\n"
+            indent    =  "\t"
+          end
+        else
+          cdl_error( "NTF9999: NotifierPlugin: unknown domain type $1", domain_root.get_domain_type.get_name )
+        end
+      end
                         # 通知ハンドラで「エラーが発生するはずがない」のに「エラーハンドラが指定されている」
 …
                         #  なため、検出は行わない。)
                 if handler == ERROR_HANDLER && !ht.is_a?(NullHandlerType) && !event_handler_might_fail
                         cdl_error( "ASP1004 cell $1: handler type $2 which never raises an error was inferred for the normal notification handler, but an error notification handler was specified.",
+                        cdl_error2( cell.get_locale, "NTF1004 cell $1: handler type $2 which never raises an error was inferred for the normal notification handler, but an error notification handler was specified.",
                                 cell.get_name, handler_flag)
                 end
                 if handler == ERROR_HANDLER && ht.is_a?(NullHandlerType) && event_handler_might_fail && !ignoreErrors
                         cdl_warning( "ASP1006 cell $1: handler type $2 which might raise an error was inferred for the normal notificaton handler, but an error notification handler was not specified.",
+                        cdl_warning2( cell.get_locale, "NTF1006 cell $1: handler type $2 which might raise an error was inferred for the normal notificaton handler, but an error notification handler was not specified.",
                                 cell.get_name, handler_flag)
                 end
 …
                         # $id$等の置換
                         cell.get_celltype.subst_name(subst, name_array)
+        }
+        # 出力
+        kernelCfg.puts text
+    end
+    private :gen_factory_for_cell
+      }
+     # 出力 (CRE_xxx)
+     kernelCfg.print pre_text
+     kernelCfg.print indent, text, "\n"
+     gen_sac kernelCfg, cell, indent
+     kernelCfg.print post_text
+   end
+   def gen_sac file, cell, indent
+     domain_root = cell.get_region.get_domain_root
+     if domain_root.get_domain_type then
+       id = (cell.get_attr_initializer :id).to_s
+                 name_array = cell.get_celltype.get_name_array(cell)
+       case cell.get_celltype.get_name
+       when :tCyclicNotifier
+         obj_type = "CYC"
+       when :tAlarmNotifier
+         obj_type = "ALM"
+       else
+         raise "NotifierPlugin: unknown celltype #{cell.get_celltype.get_name}"
+       end
+       id = cell.get_celltype.subst_name(id, name_array)
+       # p obj_type
+       # p HRPPlugin.get_sac_str cell
+       file.print indent, "SAC_#{obj_type}( #{id}, #{HRPPlugin.get_sac_str cell} );\n"
+     end
+   end
+   private :gen_factory_for_cell
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/OpaqueRPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     nest = @end_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     if @serverErrorHandler then
 …
 #{nest_str}  cell #{@rpc_server_channel_celltype_name} #{@serverChannelCell}_Unmarshaler {
 #{nest_str}    cChannel = #{@serverChannelCell}.eC1;
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{serverErrorHandler_str}#{nest_str}  };
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/RPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     nest = @region.gen_region_str_pre file
     indent_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 …
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript};
 #{indent_str}  cTDR         = #{@channelCellName}.eTDR;
 #{indent_str}  cEventflag   = #{@channelCellName}.eEventflag;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/SharedOpaqueRPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     initialize_opaque_marshaler
 …
     nest = @start_region.gen_region_str_pre file
     indent_str = "  " * nest
+    nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # セルを探す
 …
 #{indent_str}cell #{@unmarshaler_celltype_name} #{@cell_name}_Server {
 #{indent_str}  cTDR         = #{@shared_channel_cell}_Server.eTDR;
 #{indent_str}  cServerCall  = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}  cServerCall  = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{ppallocator_join}#{indent_str}};
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/SharedRPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     # mikan プラグインオプション指定の不一致のチェック task_priority,
 …
     nest = @region.gen_region_str_pre file
     indent_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # セルを探す
 …
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript};
 #{indent_str}  cTDR         = #{@shared_channel_cell}.eTDR;
 #{indent_str}  cEventflag   = #{@shared_channel_cell}.eEventflag;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/ThroughPlugin.rb

-              r321
+              r429
 #@next_cell:: Cell                    呼び口を結合するセル
 #@next_cell_port_name:: Symbol       呼び口を結合する受口の名前
+#@next_cell_port_subscript::Nil|Integer   呼び口を結合する受口の配列添数．受け口配列でない場合 nil
 #@signature::      Signature          シグニチャ
 #@celltype::       Celltype           呼び先のセルのセルタイプ. through が連接する場合、最終的な呼び先のセルのセルタイプ
 …
   #next_cell::      Cell               呼び口を接続するセル
   #next_cell_port_name:: Symbol        呼び口を接続する受口の名前
+  #next_cell_port_subscript:: Nil|Integer  呼び口を接続する受口配列添数
   #signature::      Signature          シグニチャ
   #celltype::       Celltype           セルタイプ (呼び先のセルのセルタイプ)
   #caller_cell::    Cell               呼び元のセル．@caller_cell の項を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super()
     @cell_name = cell_name                      # 生成すべきセル名（受け口側のセル名）
 …
     @next_cell = next_cell                      # 呼び先のセル
     @next_cell_port_name = next_cell_port_name
+    @next_cell_port_subscript = next_cell_port_subscript
     @signature = signature
     @entry_port_name = :"eThroughEntry"
 …
   def get_through_entry_port_name
     @entry_port_name
+  end
+  #===  生成されたセルの受け口配列添数を得る
+  def get_through_entry_port_subscript
+    @entry_port_subscript
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/TracePlugin.rb

-              r321
+              r429
   #=== TracePlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     @maxArrayDisplay = 16
 …
       nest = @region.gen_region_str_pre file
       indent_str =  "  " * nest
+      if @next_cell_port_subscript then
+        subscript = '[' + @next_cell_port_subscript.to_s + ']'
+      else
+        subscript = ""
+      end
       if @probeName then
 …
       file.print <<EOT
 #{indent_str}cell #{@ct_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{probeName_str}#{caller_cell_str}#{indent_str}};
 EOT
 …
+    }
     file.print( " );\n" )
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 \tgetMicroTime( &utime );
 \tsyslog( LOG_INFO, \"Leave: %sTime=%d: #{@next_cell.get_name}.#{@next_cell_port_name}.#{func_name}\", ATTR_probeName_str, utime );
+\tsyslog( LOG_INFO, \"Leave: %sTime=%d: #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript}.#{func_name}\", ATTR_probeName_str, utime );
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenOpaqueMarshaler.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
         /* Channel Lock */
         SET_RPC_STATE( state_, RPCSTATE_CLIENT_GET_SEM );
+        if( is_cLockChannel_joined() )
+                cLockChannel_wait();
+        if( is_cLockChannel_joined() ){
+                if( (ercd_=cLockChannel_wait()) != E_OK )
+                        goto error_reset;
+        }
 EOT
 …
         /* Channel Unlock */
         SET_RPC_STATE( state_, RPCSTATE_CLIENT_RELEASE_SEM );
+        if( is_cLockChannel_joined() )
+                cLockChannel_signal();
+        if( is_cLockChannel_joined() ){
+                if( (ercd_=cLockChannel_signal()) != E_OK )
+                        goto error_reset;
+        }
+EOT
+    file.print <<EOT
+        /* state_ is not used in normal case */
+  /* below is to avoid 'set but not used' warnning */
+        (void)state_;
 EOT
 …
         file.print <<EOT
         }else{
                 return;
+                return E_ID;
+        }
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenTransparentMarshaler.rb

-              r321
+              r429
     };
 #{ppallocator_dealloc_str}
     return;
+    return E_OK;
 error_reset:
 …
         (void)cTDR_reset();
 #{ppallocator_dealloc_str}
+    return E_OK;
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/version.rb

r321	r429
1	1	$package = "tecsgen"
2		$version = "1.~~3.1.5~~"
	2	$version = "1.6.4"

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsmerge.rb

-              r321
+              r429
 #      Merger for TECS generated templates
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: tecsmerge.rb 2633 2017-04-02 06:02:05Z okuma-top $
 #++
 …
 #Authors::   大山 博司
 #Version::
 #Copyright:: Copyright (C) TOPPERS Project, 2008-2015. All rights reserved.
+#Copyright:: Copyright (C) TOPPERS Project, 2008-2017. All rights reserved.
 #License::   TOPPERS ライセンスに準拠
 …
         next if next_stat == :HEAD || ( next_stat == :EOF && line != nil )
+        # #1002 tecsmerge の非受け口関数 (POSTAMBLE部) の行頭に '{' があるとエラーになる
+        if (! $old_mode) && ( /^\{/ =~ line ) && ( stat == :PREAMBLE_BODY || stat == :POSTAMBLE_BODY )
+          p line + "  next_stat=" + next_stat.to_s + "stat=" + stat.to_s
+          next
+        end
         # p "R: #{stat_info[0]}"

Context Navigation

Legend:

Download in other formats: