source: asp3_wo_tecs/trunk/utils/makerelease@ 302

#! /usr/bin/perl
#
#  TOPPERS Software
#      Toyohashi Open Platform for Embedded Real-Time Systems
# 
#  Copyright (C) 2006-2015 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 415 2015-08-04 06:18:16Z ertl-hiro $
# 

use Cwd;

$cwd = getcwd();
$cwd =~ s/^.*[\/\\]([^\/\\]+)$/$1/;
$prefix = "./".$cwd;

@file_list = ();
%file_list = ();

if ($#ARGV >= 0) {
        $arg1 = $ARGV[0];
        $arg1 =~ s/^\.\///;
        $arg1 =~ s/\/$/\/MANIFEST/;
}
else {
        $arg1 = "MANIFEST";
}

sub gen_path {
        local($base, $path) = @_;

        while ($path =~ /^..\/(.*)$/) {
                $path = $1;
                $base =~ s/(\/?)[^\/]*\/$/$1/;
        }
        return($base.$path);
}

sub read_file {
        local($filename) = @_;
        local($fh, $dirname);

        if ($filename =~ /^(.*\/)[^\/]*$/) {
                $dirname = $1;
        }
        else {
                $dirname = "";
        }

        open($fh, $filename) || die "Cannot open $filename";
        while ($line = <$fh>) {
                chomp $line;
                $line =~ s/\r$//;
                $line =~ s/[ \t]*\#.*$//;
                next if ($line =~ /^[ \t]*$/);

                if ($line =~ /^E_PACKAGE[ \t]+(.*)$/) {
                        if ($package) {
                                die "Duplicated E_PACKAGE directive.";
                        }
                        else {
                                $package = $1;
                                $e_package = 1;
                        }
                }
                elsif ($line =~ /^PACKAGE[ \t]+(.*)$/) {
                        if ($package) {
                                if (!$e_package && $package ne $1) {
                                        die "Inconsistent PACKAGE directive.";
                                }
                        }
                        else {
                                $package = $1;
                        }
                }
                elsif ($line =~ /^VERSION[ \t]+(.*)$/) {
                        if ($version) {
                                if (!$e_package && $version ne $1) {
                                        die "Inconsistent VERSION directive.";
                                }
                        }
                        else {
                                $version = $1;
                                if ($version =~ /%date/) {
                                        @current_time = localtime();
                                        $vdate = sprintf("%04d%02d%02d", $current_time[5]+1900,
                                                                                $current_time[4]+1, $current_time[3]);
                                        $version =~ s/%date/$vdate/;
                                }
                        }
                }
                elsif ($line =~ /^INCLUDE[ \t]+(.*)$/) {
                        read_file(gen_path($dirname, $1));
                }
                else {
                        $filename = $prefix."/".$dirname.$line;
                        while ($filename =~ s|/[^/]+/\.\./|/|) {}
                        if (!(-f "../".$filename)) {
                                die "$filename is not a file.";
                        }
                        elsif ($file_list{$filename}) {
                                die "$filename is duplicated.";
                        }
                        else {
                                push(@file_list, $filename);
                                $file_list{$filename} = $filename;
                        }
                }
        }
        close($fh);
}

read_file($arg1);
unless ($package) {
        die "PACKAGE/E_PACKAGE directive not found.";
}
unless ($version) {
        die "VERSION directive not found.";
}

if (! -d "RELEASE") {
        mkdir("RELEASE");
}

$archive_name = $package."-".$version.".tar.gz";
$file_list = join(" ", @file_list);
$command = "tar cvfz RELEASE/$archive_name -C .. $file_list\n";
die if (system($command));
print STDERR "== RELEASE/$archive_name is generated. ==\n";