tecscde 0.6.0

data/lib/tecsflow/classes.rb

@@ -0,0 +1,421 @@
+# -*- coding: utf-8 -*-
+#
+#  TCFlow
+#     Clanguage flow analyzer
+#  
+#   Copyright (C) 2008-2019 by TOPPERS Project
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#  
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#  
+#   $Id: classes.rb 3041 2019-01-06 11:14:54Z okuma-top $
+#++
+
+module TCFlow
+class Function
+  #@name:: Symbol
+  #@param_var::{ Symbol=>true }
+  #@local_var::{ Symbol=>true }
+  #@global_var::{ Symbol=>[n_access, n_write] }
+  #@call_func::{ Symbol=>Function }
+  #@b_ref:: Bool : true if referenced
+  #@b_printed:: Bool : true if printed already
+  #@locale::[file_name, lineno, col]
+
+  @@Function_list = {}    # String(name) => Function | Integer(0)
+  @@param_list = nil
+
+  def initialize locale
+    @param_var = {}
+    @local_var = {}
+    @global_var = {}
+    @call_func = {}
+    @b_ref = false
+    @b_printed = false
+    @locale = locale
+
+    @pre_name = [0, "", 0, ""]
+    @pre_printed = false
+    @pfunc = ""
+#    @pp = ""
+
+    # param_list は先に解釈されている
+    if @@param_list
+      @@param_list.each { |param|
+        new_param param
+      }
+    end
+  end
+
+  def set_name name    # 関数をパースする最後で名前が確定
+#    print "^^^ function: #{name}\n"
+    @name = name.to_sym
+    if @@Function_list[@name] == 0
+      @b_ref = true
+    end
+    @@Function_list[@name] = self
+    @@param_list = nil
+#p @name ###150216
+#    print "test:", @name, "\n"
+  end
+
+  # 関数が new される前に param_list が解釈されるため
+  def self.param_list param_list
+    @@param_list = param_list
+  end
+
+  def new_param param
+    # print "new_param: #{param}\n"
+    @param_var[ param ] = param
+  end
+
+  def new_local local
+    # print "new_local: #{local}\n"
+    @local_var[ local ] = local
+  end
+
+  def ref_var var, b_write = false
+#p var
+#p @local_var
+#p @global_var
+    if @local_var[ var ]
+      # print "ref local: #{var}\n"
+    elsif @param_var[ var ]
+      # print "ref param: #{var}\n"
+    else
+      # print "ref global: #{var}\n"
+
+      #変数のread/write回数をカウント ################
+      count_array = @global_var[ var ]
+      if count_array == nil
+      	count_array = [ 0, 0 ]
+	      @global_var[ var ] = count_array
+      end
+      if b_write
+	      count_array[1] += 1
+      else
+	      count_array[0] += 1
+      end
+    end
+  end
+
+  def ref_func func_name
+    func_name = func_name.to_sym
+#p func_name ###150216 この時点では表記順
+    if @@Function_list[func_name].instance_of? Function
+      function = @@Function_list[func_name]
+      function.referenced self
+      @call_func[ func_name ] = function
+      # print "call func: #{func_name} : defined\n" 
+    else
+      @@Function_list[func_name] = 0
+      @call_func[ func_name ] = 0
+      # print "call func: #{func_name} : not defined\n"
+    end
+  end
+
+  def referenced ref_func
+    @b_ref = true
+    @ref_func = ref_func
+  end
+
+  #=== ツリー表示
+  def self.print_all_functions
+
+    @@Function_list.each{ |name, func|
+      if func.instance_of? Function
+    	  func.print_all_functions(0, "")
+      end
+    }
+
+    if ! self.all_printed?
+      # print "===== recursive functions\n"
+      funcs.each {|name|
+      	func = @@Function_list[name]
+	if func.instance_of? Function
+	  func.print_all_functions(-1, "")
+	end
+      }
+    end
+  end
+
+  #=== ツリー表示する
+  #level:: Integer:  0: top_level のものを表示する, -1: 未表示のものを表示する
+  # level = 0, -1 の場合、レベルに一致した関数だけが表示される
+  # それ以外の場合、再帰的にツリー表示が行われる
+  def print_all_functions (level)
+
+    # TOP レベルは参照されていないものだけとする
+    return if level == 0 && @b_ref == true
+
+    # @b_ref だが未印刷のもの（循環参照されている）
+    if level == -1
+      return if @b_printed
+      level = 0
+    end
+
+    indent = "    " * level
+
+    if @b_printed
+      # 印刷済みは再帰的に印刷しない
+      print indent
+      print @name
+      print " : printed\n"
+      return
+    end
+    @b_printed = true
+
+    #変数一覧印字 ##########
+    if @global_var.length > 0 
+      #print indent
+      #print "  Global Vars: \n"
+      @global_var.each { |name, count_array|
+	#print indent
+	#print "    "
+	#print name
+	#printf( "   [R:%dW:%d]\n", count_array[0]-count_array[1], count_array[1] )
+      }
+    end
+
+    #関数一覧印字 #############
+    if @call_func.length > 0 
+      print indent
+      print "  Calling Function: \n"
+      cfuncs = @call_func.keys.sort{ |a,b| a.to_s <=> b.to_s } #名前順ソート
+      # cfuncs = @call_func.keys #関数呼び出し順  hash の順序は保障されていない【Matz版は保障されるらしい）
+      cfuncs.each{ |name|
+	      func = @call_func[ name ]
+	      if func.instance_of? Function
+          print indent, "    ", name, "\n"
+	        func.print_all_functions(level+1) #順番変更するとrecursive functionになる?
+      	else
+	        print indent
+	        print "    " ##
+	        print name
+	        print "() : not defined\n"
+      	end
+      }
+    end
+  end
+
+  #Funciton#get_call_funcs
+  # ハッシュを返す (呼出し関数名=>Function)
+  def get_call_funcs
+    @call_func
+  end
+
+  def self.all_printed? 
+    # 参照されているが未印刷のものを探す
+    b_all_printed = true
+    @@Function_list.each{ |name,func|
+      if func.instance_of? Function
+      	if func.is_printed? == false
+	        b_all_printed = false
+      	  break
+      	# else
+	      # print "#{name} : printed\n"
+      	end
+      end
+    }
+    return b_all_printed
+  end
+
+  #=== @call_func を update する
+  # @call_func の右辺は、構文解釈中に設定されるが、不完全である
+  # 完全になるように更新する
+  # サマリー表示の場合には必要だが、ツリー表示の場合、処理の途中で更新するので不要
+  # summarize の中でやると分かりにくくなるので、独立させた
+  def self.update
+  #  print "updating: "
+    @@Function_list.each{ |name,func|
+      # print name, ", "
+      if func.instance_of? Function
+      	func.update
+      end
+    }
+  #  print "\n"
+  end
+
+  def update
+    @call_func.each { |name, func|
+      if func.instance_of? Function   # 関数名重複の場合、前のものを忘れない方が、よりよい（恐らく）
+      	next
+      end
+      func = @@Function_list[name]
+      if func.instance_of? Function
+      	@call_func[name]=func
+	      func.referenced self
+      end
+    }
+  end
+
+  #=== サマリー表示
+  def self.print_summarize
+    self.update
+    # print "==== summary mode (all functions called from top level function)\n"
+    self.print_summarize0 false
+    if ! self.all_printed?
+      # print "===== recursive functions\n"
+      self.print_summarize0 true
+    end
+  end
+
+  def self.print_summarize0 b_unprinted
+    funcs = @@Function_list.keys.sort{ |a,b| a.to_s <=> b.to_s }
+    funcs.each {|name|
+      func = @@Function_list[name]
+      if func.instance_of? Function
+	if ! b_unprinted
+	  next if ! func.is_top?
+	else
+	  next if func.is_printed?
+	end
+
+	@@ref_function_list = {}
+	@@ref_global_var_list = {}
+	func.summarize
+	#print name
+	locale = func.get_locale
+	#printf( "()   <%s:%d>\n", locale[0], locale[1] )
+	if @@ref_function_list.length > 0 
+	  #print "  Calling Function Summary:\n"
+	  ref_funcs = @@ref_function_list.keys.sort{ |a,b| a.to_s <=> b.to_s }
+	  ref_funcs.each { |name|
+	    function = @@ref_function_list[name]
+	    #print "    "
+	    #print name
+	    if function.instance_of? Function
+	      locale = function.get_locale
+	      #printf( "()   <%s:%d>\n", locale[0], locale[1] )
+	    else
+	      #print "()    not defined\n"
+	    end
+	  }
+	end
+	if @@ref_global_var_list.length > 0
+	  #print "  Global Vars Summary:\n"
+	  vars = @@ref_global_var_list.keys.sort{ |a,b| a.to_s <=> b.to_s }
+	  vars.each{ |name|
+	    count_array = @@ref_global_var_list[name]
+	    #print "    "
+	    #print name
+	    #printf( "   [R:%dW:%d]\n", count_array[0]-count_array[1], count_array[1] )
+	  }
+	end
+      end
+    }
+  end
+
+  def summarize
+    @global_var.each { |name, count_array|
+      count_array2 = @@ref_global_var_list[name]
+      if count_array2
+	      count_array2[0] += count_array[0]
+	      count_array2[1] += count_array[1]
+      else
+      	@@ref_global_var_list[name] = count_array.clone
+      end
+    }
+    @call_func.each { |name, function|
+      next if @@ref_function_list[name]     # カウント済み
+      @@ref_function_list[name] = function
+      if function.instance_of? Function
+	      function.summarize
+      end
+    }
+
+    @b_printed = true
+  end
+
+##############
+  def is_local_var? var
+ #    p "#{var}, #{@local_var[ var ]}, #{@param_var[ var ]}"
+##ここで@local_var[var]が真にならない
+    if @local_var[ var ] || @param_var[ var ]
+      return true #local or param
+    else
+      return false #global
+    end
+  end
+
+  def is_top?
+    @b_ref == false
+  end
+
+  def is_printed?
+    @b_printed
+  end
+
+  def get_locale
+    @locale
+  end
+
+  def self.dump_funclist dump_file_name
+    p "Dump Funclist"
+    mar = Marshal.dump @@Function_list
+    File.write( dump_file_name, mar )
+  end
+
+  def self.load_funclist dump_file_name
+    mar_in = File.read( dump_file_name )
+    @@Function_list = Marshal.load( mar_in )
+    return @@Function_list
+  end
+
+  def self.list_all_functions
+    #print "==== function list\n"
+    funcs = @@Function_list.keys.sort{ |a,b| a.to_s <=> b.to_s }
+    funcs.each { |name|
+      if @@Function_list[name].instance_of? Function
+        func = @@Function_list[name]
+        func.print_func
+      else
+        #printf( "%-20s: %-s\n", name, "not defined" )
+      end
+    }
+  end
+
+  def set_printed
+    @b_printed = true
+  end
+  
+  def print_func
+    #if @ref_func
+    #  ref_func = @ref_func.get_name
+    #else
+      ref_func = ""
+    #end
+    #printf( "%-20s: %-30s line: %d   %s\n", @name, @locale[0], @locale[1], ref_func )
+  end
+
+  def get_name
+    @name
+  end
+end # class
+end # module

data/lib/tecsgen.rb

@@ -0,0 +1,581 @@
+#!/usr/bin/env ruby
+#
+#  TECS Generator
+#      Generator for TOPPERS Embedded Component System
+#
+#   Copyright (C) 2008-2018 by TOPPERS Project
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#   $Id: tecsgen.rb 2780 2018-02-11 11:22:33Z okuma-top $
+#++
+
+#= tecsgen  : TECS のジェネレータ
+#
+# Authors::    石川　拓也(HRP2Plugin)
+# Authors::    原　　拓(動的結合仕様)
+# Authors::    河田　智明(NotifierPlugin)
+# Authors::    高田　広章(ASP3 への TECS 組込み)
+# Authors::    高木　信尚(ランタイムヘッダ)
+# Authors::    成瀬　有美(TECS flow 実装)
+# Authors::    鵜飼　敬幸(ATK1Plugin)
+# Authors::    大山　博司(ジェネレータ実装, RPCPlugin, TracePlugin, MrubyBridgePlugin)
+# Authors::    山本　将也(ジェネレータ初期プロトタイプ実装)
+# Authors::    小南　靖雄(テストコードの一部)
+# Authors::    安積　卓也(ASP+TECS, EV3RT+TECS, mruby on TECS等実装)
+#  Authors list is in i-ro-ha order.
+# Version::   see version.rb
+
+# This doesn't work as expected in exerb version (Ruby 1.8.7?)
+$tecsgen_base_path = File.dirname(File.expand_path __FILE__)
+
+require "tecsgen/version"
+
+###
+#= Array  initializer の '{', '}' で囲まれた場合
+# mikan AggregateInitializer など、クラスを変更すべきである
+class Array
+  #=== CDL の文字列を生成する
+  def to_CDL_str
+    str = "{ "
+    delim = ""
+    self.each{|v|
+      str += delim + v.to_CDL_str
+      delim = ", "
+    }
+    str += " }"
+    return str
+  end
+
+  def show_tree(indent)
+    indent.times{ print "  " }
+    print("Array\n")
+    self.each{|m|
+      m.show_tree(indent + 1)
+    }
+  end
+end
+
+#=== RUBY ライブラリをロードする
+#
+# -L, $RUBYLIB, システム(/usr/lib/rub..など) の順にサーチが行われる
+# exerb 対応のため、上記パスにファイルが見つからない場合 require を実行してみる
+#
+# プラグインの場合は b_fatal = false を指定。ファイルがなくてもエラー出力後、処理続行
+# b_fatal = false の場合 tecslib/core がサーチパスに追加される
+# RETURN::Bool   : true=成功、 false=失敗   失敗した場合、Generator.error は呼び元で出力する
+def require_tecsgen_lib(fname, b_fatal = true)
+  dbgPrint("require_lib: #{fname}\n")
+  begin
+    b_require = false
+    b_exception = false
+
+    # -L 、 $RUBYLIB で指定されたパスおよびシステムのパスからサーチ
+    #   exerb では $LOAD_PATH は ["."] のみ入っているようだ
+    ($library_path + $LOAD_PATH).each{|path|
+      ["", "tecslib/plugin/"].each {|lp|
+        lib = File.expand_path(path) + "/" + lp + fname
+
+        if File.exist? lib # ファイル存否と他のエラーを区別するため存在確認をする
+          begin
+            require(lib)
+            b_require = true
+          rescue Exception => evar
+            b_exception = true
+            print_exception(evar)
+          end
+          break
+        end
+      }
+      if b_require
+        break
+      end
+    }
+
+    if b_require == false && b_exception == false
+      # exerb 対応 "." をサーチパスの最初に加える
+      #   "tecslib/" は RPCPlugin.rb, TracePlugin.rb のために用意してある
+      #   RPCPlugin.rb, TracePlugin.rb が tecslib 下でなければ不要になるが、このようにしておく
+      ["", "tecslib/plugin/"].each{|lp|
+        path = lp + fname
+        begin
+          require path
+          return true
+        rescue LoadError => e
+          # p "LoadError to load #{fname}"
+          # 2015.12.18 exerb 版でプラグインのロードでエラーが出るので、無視する. おそらく昔からエラーは出ていた
+          # print_exception( e )
+        rescue Exception => e
+          b_exception = true
+          # 文法エラーなどが発生
+          print_exception(e)
+          break
+        end
+      }
+    end
+
+    if b_require == false
+      # 見つからなかった
+      if b_exception == false
+        STDERR << "tecsgen: Fail to load #{fname}. Check $RUBYLIB environment variable or -L option\n"
+      end
+      # tecsgen を構成するファイルの場合は中止する
+      if b_fatal
+        STDERR << "tecsgen: Exit because of unrecoverble error\n"
+        exit 1
+      end
+      return false
+    end
+    return true
+  end
+end
+
+#=== 例外の表示
+# evar:: Exception
+def print_exception(evar)
+# もしスタックトレースが出るまでい時間がかかるようならば、次をコメントアウトしてみるべし
+  print "*** Begin Ruby exception message ***\n"
+  puts(evar.to_s)
+
+  if $debug
+    puts "#### stack trace ####"
+    pp evar.backtrace
+  end
+  print "*** End Ruby exception message ***\n"
+end
+
+def dbgPrint(str)
+  if $debug
+    print str
+  end
+end
+
+def dbgPrintf(*param)
+  if $debug
+    printf(*param)
+  end
+end
+
+#=== エラーおよび警告のレポート
+def print_report
+  msg = nil
+
+  if Generator.get_n_error != 0
+    msg = "#{Generator.get_n_error} error"
+    msg = "#{msg}s" if Generator.get_n_error >= 2
+  end
+
+  if Generator.get_n_warning != 0
+    msg = "#{msg}  " if msg
+    msg = "#{msg}#{Generator.get_n_warning} warning"
+    msg = "#{msg}s" if Generator.get_n_warning >= 2
+  end
+
+  puts msg if msg
+end
+
+#----- class TECSGEN -------#
+class TECSGEN
+  @@current_tecsgen = nil
+
+  def self.init(addtional_option_parser = nil)
+    initialize_global_var
+    analyze_option addtional_option_parser
+    load_modules
+    setup unless $TECSFLOW
+
+    dbgPrint  "tecspath: #{$tecsgen_base_path}, __FILE__=#{__FILE__}\n"
+    dbgPrint  "ARGV(remained): #{ARGV}, argments=#{$arguments}\n"
+  end
+
+  #----- initialize -------#
+  def initialize
+    @cell_list = nil
+    @cell_list2 = nil
+    @celltype_list = nil
+    @root_namespace = nil
+
+    #--- obsolete ---#   replaced to TOOL_INFO
+    @cell_location_list = []
+    @join_location_list = []
+  end
+
+  def run1
+    @@current_tecsgen = self
+
+    syntax_analisys ARGV
+    semantics_analisys_1
+    semantics_analisys_2
+
+    @celltype_list = Celltype.get_celltype_list
+    @cell_list = Cell.get_cell_list
+    @cell_list2 = Cell.get_cell_list2
+
+    @@current_tecsgen = nil
+  end
+
+  def run2
+    @@current_tecsgen = self
+
+    optimize_and_generate
+    finalize
+
+    @@current_tecsgen = nil
+  end
+
+  #-----  initialize_global_var -----#
+  def self.initialize_global_var
+    require "optparse"
+    require "pp"
+
+    ### グローバル変数定義 ###
+
+    # コマンドライン引数　 (Makefile.templ へ出力)
+    $arguments = ""
+    ARGV.each {|a| $arguments += " " + a }
+
+    $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
+    $generate_all_template = false   # bool:   generarete template files for all celltypes (if non cell exist or system celltypes)
+    $generate_no_template = false    # bool:   generarete no template file (neither celltype code nor Makefile)
+    $idx_is_id = false     # bool:   all components are idx_is_id
+    $unique_id = false     # bool:   assign unique id to each cell (otherwise begin from 1 for each celltype)
+    $debug     = false     # bool:   tecsgen debug message
+    $dryrun    = false     # bool:   dryrun mode: syntax is checked, but not generate any files
+    $show_tree = false     # bool:   show parsing tree
+    $verbose   = false     # bool:   verbose mode: show some messages
+    $yydebug   = false     # bool:   yydebug: parser debug mode (need bnf-deb.tab.rb)
+    $run_dir   = Dir.pwd   # string: tecsgen/tecscde start up directory
+    $base_dir  = { } # string=>bool: base dir for import_path (key:base_dir, val:actually used or specified directly)
+    $import_path = ["."] # string array : import/import_C path
+    $import_path_opt = []  # [String]
+    $library_path = [$tecsgen_base_path] # string array : path to dir where tecsgen.rb placed
+    $define = [] # string array : define
+    $ram_initializer = false # bool: generate ram initializer
+    $region_list = {} # string array : region path which is generated
+    $generating_region = nil # Region:  Region to optimisze & generate code   # コマンドラインオプションではない
+                             #          Cell#is_generate? にて参照される
+    $unit_test = false     # bool:   unit test verification
+    $kcode     = nil       # nil | String: Kanji code type "euc"|"sjis"|"none"|"utf8"
+    $force_overwrite = false # bool:  force overwrite all files if file contents not differ
+    $no_banner = false     # bool:   not print banner
+    $print_version = false # bool:   print version
+    $target = "tecs" # String: target name, ARGV[0] から再設定する（"tecs" は仮のターゲット)
+    $no_default_import_path = false # bool: no default import path
+    $c_suffix  = "c"       # suffix for C progorams (for C++ source)
+    $h_suffix  = "h"       # suffix for C progoram headers (for C++ source)
+
+    if ENV["TECSGEN_DEFAULT_RAM"]
+      rom_ram_defalult = "ram"
+    else
+      rom_ram_defalult = "rom"
+    end
+    if rom_ram_defalult == "rom"
+      $rom       = true      # bool:   ROM support : generate CB separately
+    else
+      $rom       = false     # bool:   ROM support : generate CB separately
+    end
+    $b_cpp_specified = false
+    if $cpp.nil?
+      $cpp       = "gcc -E -DTECSGEN"
+    end
+    if ENV["TECS_CPP"]
+      $cpp = ENV["TECS_CPP"]
+      $b_cpp_specified = true
+    end
+    if ENV["TECSPATH"]
+      $tecspath = ENV["TECSPATH"]
+    else
+      $tecspath = "#{$tecsgen_base_path}/tecs"
+    end
+
+    # 文字コードの設定
+    $ENCODING_CDL = Encoding::EUC_JP    # const: NONE には ASCII を対応させる
+    $ENCODING_TECSGEN = Encoding::UTF_8 # const:
+  end # initialize_global_var
+
+  def self.analyze_option(additional_option_parser)
+    ###  tecsgen コマンドオプション解析  ###
+    ARGV.options {|parser|
+      parser.banner = "Usage: tecsgen [options] files"
+      parser.on("-D", "--define=def", "define cpp symbol for import_C") {|define|
+        $define << define
+      }
+      parser.on("-G", "--generate-region=path", "generate region") {|path|
+        if path =~ /^::/
+          gen_path = path
+        else
+          gen_path = "::" + path
+        end
+        $region_list[gen_path] = true
+      }
+      parser.on("-I", "--import-path=path", "imoprt/import_C path") {|path|
+        $import_path << path
+        $import_path_opt << path
+      }
+      parser.on("-L", "--library-path=path", "path to dir where tecsgen.rb (obsolete, unnecessary to specify -L, those passes are gotten from tecsgen.rb") {|path|
+        $library_path << path
+      }
+      parser.on("-R", "--RAM-initializer", "generate RAM initializer. INITIALIZE_TECS() must be called before running any TECS code."){
+        $ram_initializer = true
+      }
+      parser.on("-U", "--unoptimize", "unoptimize") {
+        $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|
+        $cpp = arg
+        $b_cpp_specified = true
+      }
+      parser.on("-d", "--dryrun", "dryrun"){
+        $dryrun = true
+      }
+      parser.on("-f", "--force-overwrite", "force overwrite all files") {
+        $force_overwrite = true
+      }
+      parser.on("-g", "--gen=dir", "generate dir") {|dir|
+        $gen = $gen_base = dir
+      }
+      parser.on("-i", "--idx_is_id", "set idx_is_id to all celltypes") {
+        $idx_is_id = true
+      }
+      #  parser.on('-k', '--kcode=code',  'set kanji code: euc|sjis|none|utf8, none is default') { |code|
+      parser.on("-k", "--kcode=code", "set kanji code: euc|sjis|none|utf8") {|code|
+        $kcode = code
+      }
+      #  old_mode は V1.0.C.22 で廃止
+      #  parser.on('-o', '--old-mode',    'old mode' ){
+      #    $old_mode = true
+      #  }
+      parser.on("-r", "--ram", "RAM only"){
+        $rom = false
+      }
+      parser.on("-s", "--show-tree", "show parsing tree"){
+        $show_tree = true
+      }
+      parser.on("-t", "--generator-debug", "generator debug"){
+        $debug = true
+        $verbose = true
+      }
+      parser.on("-u", "--unique-id", "assign unique id for each cell"){
+        $unique_id = true
+      }
+      parser.on("-v", "--verbose", "verbose mode"){
+        $verbose = true
+      }
+      parser.on("-y", "--yydebug", "yydebug"){
+        $yydebug = true
+      }
+      parser.on("--no-banner", "not display banner") {
+        $no_banner = true
+      }
+      parser.on("--version", "print version") {
+        $print_version = true
+      }
+      parser.on("--unit-test", "unit verification (test tecsgen itself)") {
+        $unit_test = true
+      }
+      parser.on("--generate-all-template", "generate all celltypes' templates") {
+        $generate_all_template = true
+      }
+      parser.on("--generate-no-template", "generate no template") {
+        $generate_no_template = true
+      }
+      parser.on("--no-default-import-path", "no default import path"){
+        $no_default_import_path = true
+      }
+      parser.on("--c-suffix=c", "C program suffix (default: c)"){| suffix |
+        $c_suffix = suffix
+      }
+      parser.on("--h-suffix=h", "C program header suffix (default: h)"){| suffix |
+        $h_suffix = suffix
+      }
+      #  parser.on(  '--include_path_opt_format',  'cpp include path option format, default: "-I %s"' ){
+      #  }
+      parser.version = # {TECSGEN::VERSION}
+      parser.release = nil
+      if additional_option_parser
+        additional_option_parser.call(parser)
+      end
+      parser.parse!
+    }
+
+    if ARGV.empty? && !$print_version && !$unit_test && !$TECSFLOW
+      ARGV.options{|parser|
+        puts parser.help
+        exit 1
+      }
+    end
+  end # analyze_option
+
+  def self.load_modules
+    ### tecsgen モジュールのロード ####
+    # -L でパス指定可能としたため、ここからロードを開始する
+
+    #  tecsgen バージョンファイルのロード
+    # これを実行するまで tecsgen のバージョンを表示できない
+    # このファイルを誤って読み込むと、異なるバージョン名を表示してしまう
+    require "tecsgen/version"
+    if $tecscde_version
+      STDERR << "tecscde version #{$tecscde_version} (tecsgen version #{TECSGEN::VERSION})  #{TECSGEN::COPYRIGHT}\n"
+    elsif !$no_banner || $print_version
+      STDERR << "tecsgen  version #{TECSGEN::VERSION}  #{TECSGEN::COPYRIGHT}\n"
+    end
+    if $verbose
+      STDERR << "ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE} patchlevel #{RUBY_PATCHLEVEL}) [#{RUBY_PLATFORM}]\n"
+    end
+    if $print_version && ARGV.empty? && !$TECSFLOW
+      exit
+    end
+
+    # 文字コード決定のため最初に読みこむ
+    require "tecsgen/core/tecs_lang"
+
+    unless $yydebug
+      require "tecsgen/core/bnf.tab"
+    else
+      require "tecsgen/core/bnf-deb.tab"
+    end
+
+    # syntaxobj.rb には Node が定義されているので、早い段階で require
+    require "tecsgen/core/syntaxobj"
+    require "tecsgen/core/pluginModule"
+    require "tecsgen/core/plugin"
+    require "tecsgen/core/messages"
+    require "tecsgen/core/types"
+    require "tecsgen/core/value"
+    require "tecsgen/core/componentobj"
+    require "tecsgen/core/expression"
+    require "tecsgen/core/optimize"
+    require "tecsgen/core/tecsgen"
+    require "tecsgen/core/generate"
+    require "tecsgen/core/gen_xml"
+    require "tecsgen/core/location"
+    require "tecsgen/core/tool_info"
+    require "tecsgen/core/tecsinfo"
+    require "tecsgen/core/unjoin_plugin"
+    require "tecsgen/plugin/CelltypePlugin"
+    require "tecsgen/plugin/CompositePlugin"
+    require "tecsgen/plugin/CellPlugin"
+    require "tecsgen/plugin/SignaturePlugin"
+    require "tecsgen/plugin/ThroughPlugin"
+    require "tecsgen/plugin/DomainPlugin"
+    require "tecsgen/plugin/MultiPlugin"
+
+    # C 言語パーサ
+    require "tecsgen/core/C_parser.tab"
+    require "tecsgen/core/ctypes"
+
+    if $unit_test
+      exit 1
+    end
+  end # load_modules
+
+  def self.setup
+    # $import_path に環境変数 $TECSGEN およびその直下を追加
+    if $no_default_import_path == false
+      # $TECSGEN および、その直下のディレクトリをパスに追加
+      if $tecspath != "."
+        TECSGEN.add_import_path $tecspath
+        dir = nil
+        begin
+          Dir.foreach($tecspath){|f|
+            if f != "." && f != ".." && File.directory?($tecspath + "/" + f)
+              TECSGEN.add_import_path($tecspath + "/" + f)
+            end
+          }
+        rescue
+          # 無視
+        end
+      end
+    end
+
+    # デフォルト設定
+    TECSGEN.set_default_config
+
+    # $target の設定
+    $target = ARGV[0]
+    pos = $target.rindex(/[:\\\/]/)
+    if pos
+      $target = $target[pos + 1..-1]  # ディレクトリ区切りを除いた文字列
+    end
+    pos = $target.rindex(/\./)
+    if pos
+      $target = $target[0..pos - 1]   # 拡張子を取り除いた文字列
+    end
+
+    # gen ディレクトリの作成
+    begin
+      if !File.directory?($gen_base)
+        Dir.mkdir($gen_base)
+      end
+    rescue
+      print("Cannot mkdir #{$gen_base}. If the path has hierarchy, please create directory by manual.\n")
+      exit 1
+    end
+  end # setup
+
+  #=== TECSGEN#get_celltype_list
+  def get_celltype_list
+    @celltype_list
+  end
+
+  #=== TECSGEN#get_cell_list
+  def get_cell_list
+    @cell_list
+  end
+
+  def get_root_namespace
+    @root_namespace
+  end
+end # TECSGEN
+
+# 複数のジェネレータインスタンスを生成することは、可能だが、以下の問題がある
+#  クラス変数のリセットを確実に行う必要がある
+
+if $TECSCDE != true && $TECSFLOW != true
+  begin
+    TECSGEN.init
+    tecsgen = TECSGEN.new
+    tecsgen.run1
+    tecsgen.run2
+    tecsgen.dump_tecsgen_rbdmp
+  rescue => evar
+    print_exception(evar)
+    STDERR << "tecsgen: exit because of unrecoverble error.\n"
+    STDERR << "   please retry after resolve early error.\n"
+    STDERR << "   if no error has occured, please report to TOPPERS TECS WG (users@toppers.jp or com-wg@toppers.jp).\n"
+    exit 1
+  end
+end