source: anotherchoice/tags/jsp-1.4.4-full-UTF8/utils/m16c-renesas/configure.m16c@ 26

#! /usr/bin/perl
#
#  TOPPERS/JSP Kernel
#      Toyohashi Open Platform for Embedded Real-Time Systems/
#      Just Standard Profile Kernel
# 
#  Copyright (C) 2001-2003 by Embedded and Real-Time Systems Laboratory
#                              Toyohashi Univ. of Technology, JAPAN
#  Copyright (C) 2003-2004,2010 by Naoki Saito
#             Nagoya Municipal Industrial Research Institute, JAPAN
# 
#  上記著作権者
は，以下の (1)〜(4) の条件か，Free Software Foundation 
#  によってå…
¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
#  è¿°ã•ã‚Œã¦ã„ã‚‹æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ï¼ˆæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢
#  を改変したものを含む．以下同じ）を使用・複製・改変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
#  利用と呼ぶ）することを無償で許諾する．
#  (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
#      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
#      スコード中に含まれていること．
#  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
#      用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
#      者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
#      の無保証規定を掲載すること．
#  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
#      用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
#      と．
#    (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
#        作権表示，この利用条件および下記の無保証規定を掲載すること．
#    (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
#        å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
#  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
#      害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
# 
#  本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
#  よびTOPPERSプロジェクトは，本ソフトウェアに関して，その適用可能性も
#  含めて，いかなる保証も行わない．また，本ソフトウェアの利用により直
#  æŽ¥çš„ã¾ãŸã¯é–“æŽ¥çš„ã«ç”Ÿã˜ãŸã„ã‹ãªã‚‹æå®³ã«é–¢ã—ã¦ã‚‚ï¼Œãã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
# 
#  @(#) $Id: configure.m16c,v 1.5 2007/03/23 08:25:47 honda Exp $
# 

require "getopt.pl";

#  オプションの定義
#
#  -C <cpu>             プロセッサ名
#  -S <sys>             システム名
#  -T <tool>            開発環境名
#  -A <uname>           アプリケーションプログラム名
#  -U <utask>           他のアプリケーションプログラムファイル
#                       （.r30 ファイル名で指定．複数指定可）
#  -L <kernel_lib>      カーネルライブラリ（libkernel.lib）のディレクトリ名
#                       ï¼ˆçœç•¥ã—ãŸå ´åˆï¼Œã‚«ãƒ¼ãƒãƒ«ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚‚ make する）
#  -D <srcdir>          カーネル等のソースの置かれているディレクトリ
#  -P <prefix>          開発環境インストール時の PREFIX
#                       （現在は PREFIX を使っているファイルはない）
#  -p <perl>            perl ã®ãƒ‘ã‚¹åï¼ˆæ˜Žç¤ºçš„ã«æŒ‡å®šã™ã‚‹å ´åˆï¼‰
#  -l <lang>            プログラミング言語（現時点ではC++のみサポート）
#  -d <dir>             テンプレートディレクトリを指定（デフォルトはsample）

#  使用例(1)
#
#  % ..\utils\m16c-renesas\configure -C m16c -S oaks16 -T renesas -D .. -A test1 -U test_support.r30 -L .
#
#  使用例(2)
#
#  % ../configure -C linux
#       アプリケーションプログラムは sample1 になる．

#
#  オプションの処理
#
Getopt("CSTAULDPpld");

$cpu = $opt_C ? $opt_C : "m16c";
$sys = $opt_S ? $opt_S : "oaks16";
$tool = $opt_T ? $opt_T : "renesas";
$uname = $opt_A ? $opt_A : "sample1";
$utask = $opt_U ? $opt_U : "";
$kernel_lib = $opt_L ? $opt_L : "";
$prefix = $opt_P ? $opt_P : "\\mtool";
$perl = $opt_p ? $opt_p : get_path("perl.exe", ("\\perl\\bin"));
$lang = $opt_l ? $opt_l : "";
$templatedir = $opt_d ? $opt_d : "sample";

#
#  オブジェクトファイル名の拡張子を返す
#
sub get_objext {
        local(@uname);

        use POSIX;
        @uname = uname();
        if ($uname[0] =~ /^cygwin/i) {
                return("exe");
        }
        else {
                return("");
        }
}

#
#  ãƒ—ãƒ­ã‚°ãƒ©ãƒ ã®å ´æ‰€ã‚’æ¤œç´¢ã™ã‚‹
#
sub get_path {
        local($progname, @pathlist) = @_;
        local($path);

        foreach $path (@pathlist) {
                if (-x $path."\\".$progname) {
                        return($path."\\".$progname);
                }
        }
        return("");
}

#
#  ファイルを変換する
#
sub convert {
        local($infile, $outfile) = @_;
        local($line, $varname, $varval);

        print STDERR "configure: Generating $outfile from $infile.\n";
        if (-f $outfile) {
                print STDERR "configure: $outfile exists.",
                                "  Save as $outfile.bak.\n";
                rename($outfile, $outfile.".bak");
        }
        unless (open(INFILE, $infile)) {
                print STDERR "configure: can't open $infile\n";
                exit(1);
        }
        unless (open(OUTFILE, "> ".$outfile)) {
                print STDERR "configure: can't open $outfile\n";
                exit(1);
        }

        while ($line = <INFILE>) {
                chop $line;
                while ($line =~ /^(.*)\@\(([A-Za-z_]+)\)(.*)$/) {
                        $line = $1.$vartable{$2}.$3;
                }
                print OUTFILE $line,"\n";
        }

        close(INFILE);
        close(OUTFILE);
}

#
#  サンプルを見つけてファイルを生成する
#
sub generate {
        local($file, $mandatory) = @_;
        local($path);

        if ($sys) {
                $path = $sampledir.$file.".".$cpu."-".$sys;
                if (-f $path) {
                        convert($path, $file);
                        return;
                }

                $path = $sampledir.$file.".".$sys;
                if (-f $path) {
                        convert($path, $file);
                        return;
                }
        }       

        $path = $sampledir.$file.".".$cpu;
        if (-f $path) {
                convert($path, $file);
                return;
        }       

        $path = $sampledir.$file;
        if ($mandatory || -f $path) {
                convert($path, $file);
        }       
}

#
#  変数の初期化
#

#
#  ソースディレクトリ名を取り出す
#
$pwd = `chdir`; chop $pwd;
if ($opt_D) {
        $srcabsdir = $srcdir = $opt_D;
}
elsif ($0 =~ /(.*)\\utils\\$cpu-$tool\\configure\.m16c/) {
        $srcdir = $1;
        if ($srcdir =~ /^([a-zA-Z]:)*\\/) {
                $srcabsdir = $srcdir;
        }
        else {
                $srcabsdir = $pwd."\\".$srcdir;
        }
}
else {
        $srcabsdir = $srcdir = $pwd;
}
$sampledir = $srcdir."\\".$templatedir."\\";

#
#  変数テーブルの作成
#
%vartable = ();
$vartable{"CPU"} = $cpu;
$vartable{"SYS"} = $sys;
$vartable{"TOOL"} = $tool;
$vartable{"UNAME"} = $uname;
$vartable{"UTASK"} = $utask;
$vartable{"KERNEL_LIB"} = $kernel_lib;
$vartable{"SRCDIR"} = $srcdir;
$vartable{"SRCABSDIR"} = $srcabsdir;
$vartable{"PREFIX"} = $prefix;
$vartable{"OBJEXT"} = get_objext();
$vartable{"PERL"} = $perl;
$vartable{"LANG"} = $lang;

#
#  ディレクトリのチェック
#

if (! $tool && ! $sys && ! -d $srcdir."\\config\\".$cpu) {
        print STDERR "configure: $srcdir/config/$cpu not exist\n";
        exit(1);
}
if (! $tool && $sys && ! -d $srcdir."\\config\\".$cpu."\\".$sys) {
        print STDERR "configure: $srcdir/config/$cpu/$sys not exist\n";
        exit(1);
}
if ($tool && ! $sys && ! -d $srcdir."\\config\\".$cpu."-".$tool) {
        print STDERR "configure: $srcdir/config/$cpu-$tool not exist\n";
        exit(1);
}
if ($tool && $sys && ! -d $srcdir."\\config\\".$cpu."-".$tool."\\".$sys) {
        print STDERR "configure: $srcdir/config/$cpu-$tool/$sys not exist\n";
        exit(1);
}

#
#  Makefile とアプリケーションファイルの生成
#

generate("Makefile", 1);
generate($uname.".c", 0);
generate($uname.".cpp", 0);
generate($uname.".h", 0);
generate($uname.".cfg", 0);