source: mypx/utils/makerelease

#! /usr/bin/perl
#
#  TOPPERS Software
#      Toyohashi Open Platform for Embedded Real-Time Systems
# 
#  Copyright (C) 2006-2011 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$
# 

use Cwd;

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

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

if ($#ARGV >= 0) {
        $arg1 = $ARGV[0];
        $arg1 =~ s/\.\///;
}
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 != $1) {
                                        die "Inconsistent PACKAGE directive.";
                                }
                        }
                        else {
                                $package = $1;
                        }
                }
                elsif ($line =~ /^VERSION[ \t]+(.*)$/) {
                        if ($version) {
                                if (!$e_package && $version != $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 ($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";