source: asp3_tinet_ecnl_arm/trunk/asp3_dcre/tecsgen/in_exerb.rb

# coding: utf-8
#
#  TECS Generator
#      Generator for TOPPERS Embedded Component System
#  
#   Copyright (C) 2008-2015 by TOPPERS Project
#--
#   上記著作権者
は，以下の(1)～(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
#   変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
#   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
#       スコード中に含まれていること．
#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
#       用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
#       者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
#       の無保証規定を掲載すること．
#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
#       用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
#       と．
#     (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
#         作権表示，この利用条件および下記の無保証規定を掲載すること．
#     (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
#         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
#       害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
#       由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
#       å…
è²¬ã™ã‚‹ã“と．
#  
#   本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
#   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
#  
#   $Id$
#++

# exerb 版で最初に読みこまれるファイル
# このファイルから generate.rb が読みこまれる

$IN_EXERB=true

# この変数は exerb 版のみ
$path = ENV[ 'PATH' ]

#=== cygwin のパスを Windows パスに変換
# cygpath コマンドを探して、見つかれば変換する
# å¤‰æ›ã§ããªã‹ã£ãŸã€ã¾ãŸã¯å¤‰æ›å¾Œã®ãƒ‘ã‚¹ãŒè¦‹ã¤ã‹ã‚‰ãªã„å ´åˆã€default を返す
def cygpath( path, default = nil )
  if ! $IN_EXERB then
    return default
  end
  if File.exist? path then
    return default
  end

  found = false
  $path.split( ";" ).each{ |path2|
    cygpath_path = "#{path2}\\cygpath.exe"
    if File.exist?( cygpath_path )  then
      path3 = nil
      dbgPrint "in_exerb: cygpath: found\n"
      IO.popen( "cygpath -m #{path}", "r"){ |io|
        path3 = io.gets.chomp!
      }
      dbgPrint "in_exerb: cygpath: '#{path}' => '#{path3}'\n"
      # File.stat( path3.to_s )

      if File.exist?( path3 )
        dbgPrint "in_exerb: cygpath: '#{path3}' found\n"
        return path3
      else
        break
      end
    end
  }
  dbgPrint "cygpath '#{path}' not found\n"
  return default
end

# gcc のパスを設定する
#  cygwin のあるバージョンでは gcc は gcc-3.exe または gcc-4.exe へのシンボリックリンクとなっている
#  exerb 版ではシンボリックリンクを辿れないため gcc の exe を探す
#  cygwin のリンクは、システム属性が付けられ、コマンドプロンプト上では dir /A:S を指定しないと表示されない
#  (cygwin のバージョンで実装
が異なるかもしれない)
#  ファイルのå…
ˆé ­2バイトを読出し PE フォーマットのマジックに一致するか調べる
$gcc = "gcc"
$path.split( ";" ).each{ |path|
  found = false
  [ "gcc.exe", "gcc-3.exe", "gcc-4.exe" ].each{ |gcc|
    gcc_path = "#{path}\\#{gcc}"
    if File.exist?( gcc_path )  then
      begin
        magic = File.read( gcc_path, 2 )
        if magic == "MZ"                  # マジックをチェック
          $gcc = gcc
          found = true
          break
        end
      rescue
        # magic の読出しに失敗。無視
      end
    end
  }
  break if found
}

# cpp コマンドを設定する
$cpp = "#{$gcc} -E -D TECSGEN"

# exerb 版 TECS ジェネレータの実行を開始
require "tecsgen.rb"