source: EcnlProtoTool/trunk/asp3_dcre/utils/makerelease.rb@ 270

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

require "shell"

#
#  ".."を含むパスの整形
#
#  例）"yyy/../zzz" → "zzz"
#  例）"xxx/yyy/../zzz" → "xxx/zzz"
#
def canonicalPath(path)
  while path.sub!(/([^\/]+\/\.\.\/)/, "") do end
  return(path)
end

#
#  ファイルの読み込み
#
def readFile(inFileName)
  baseDirectory = File.dirname(inFileName)
  if (baseDirectory == ".")
    baseDirectory = ""
  else
    baseDirectory += "/"
  end

  begin
    inFile = File.open(inFileName)
  rescue Errno::ENOENT, Errno::EACCES => ex
    abort(ex.message)
  end

  inFile.each do |line|
    line.chomp!
    line.sub!(/\s*\#.*$/, "")
    next if /^\s*$/ =~ line

    if /^E_PACKAGE[ \t]+(.*)$/ =~ line
      if $package != ""
        abort("Duplicated E_PACKAGE directive.")
      else
        $package = $1
        $e_package = 1
      end
    elsif /^PACKAGE[ \t]+(.*)$/ =~ line
      if $package != ""
        if !$e_package && $package != $1
          abort("Inconsistent PACKAGE directive.")
        end
      else
        $package = $1
      end
    elsif /^VERSION[ \t]+(.*)$/ =~ line
      if $version != ""
        if !$e_package && $version != $1
          abort("Inconsistent VERSION directive.")
        end
      else
        $version = $1
        if /%date/ =~ $version
          currentTime = Time.now.localtime
          vdate = sprintf("%04d%02d%02d", currentTime.year,
                                                                        currentTime.month, currentTime.day)
          $version.sub!(/%date/, vdate)
        end
      end
    elsif /^INCLUDE[ \t]+(.*)$/ =~ line
      readFile(canonicalPath(baseDirectory + $1))
    else
      fileName = $prefix + "/" + canonicalPath(baseDirectory + line)
      if !File.file?("../" + fileName)
        abort("#{fileName} is not a file.")
      elsif $fileList.index(fileName)
        abort("#{fileName} is duplicated.")
      else 
        $fileList.push(fileName)
      end
    end
  end
end

#
#  初期化
#
$package = ""
$e_package = 0
$version = ""
$fileList = []

#
#  プリフィックス（./カレントディレクトリ名）の取り出し
#
cwd = Shell.new.cwd
$prefix = "./" + File.basename(cwd)

#
#  パラメータの取り出し
#
if ARGV.length >= 1
  arg = ARGV.shift.dup
  arg.sub!(/\/$/, "/MANIFEST")
  arg.sub!(/^\.\//, "")
else
  arg = "MANIFEST"
end

#
#  ファイルの読み込み
#
readFile(arg)
if $package == ""
  abort("PACKAGE/E_PACKAGE directive not found.")
end
if $version == ""
  abort("VERSION directive not found.")
end

#
#  RELEASEディレクトリの作成
#
if !File.directory?("RELEASE")
  Dir.mkdir("RELEASE")
end

#
#  アーカイブ（.tar.gz）の作成
#
archiveName = $package + "-" + $version + ".tar.gz"
fileListStr = $fileList.join(" ")
command = "tar cvfz RELEASE/#{archiveName} -C .. #{fileListStr}\n";
system(command)
puts("== RELEASE/#{archiveName} is generated. ==\n")