[101] | 1 | #! /usr/bin/perl
|
---|
| 2 | #
|
---|
| 3 | # TOPPERS Software
|
---|
| 4 | # Toyohashi Open Platform for Embedded Real-Time Systems/
|
---|
| 5 | #
|
---|
| 6 | # Copyright (C) 2001-2003 by Embedded and Real-Time Systems Laboratory
|
---|
| 7 | # Toyohashi Univ. of Technology, JAPAN
|
---|
| 8 | # Copyright (C) 2006-2009 by Embedded and Real-Time Systems Laboratory
|
---|
| 9 | # Graduate School of Information Science, Nagoya Univ., JAPAN
|
---|
| 10 | #
|
---|
| 11 | # ãLì ÒÍCȺÌ(1)`(4)Ìðð½·êÉÀèC{\tgEF
|
---|
| 12 | # Ai{\tgEFAðüϵ½àÌðÜÞDȺ¯¶jðgpE¡»Eü
|
---|
| 13 | # ÏEÄzziȺCpÆÄÔj·é±Æð³Åø·éD
|
---|
| 14 | # (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
|
---|
| 15 | # \¦C±Ìpð¨æѺL̳ÛØKèªC»ÌÜÜÌ`Å\[
|
---|
| 16 | # XR[hÉÜÜêÄ¢é±ÆD
|
---|
| 17 | # (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
|
---|
| 18 | # pÅ«é`ÅÄzz·éêÉÍCÄzzɺ¤hL
|
---|
| 19 | gip
|
---|
| 20 | # Ò}j
|
---|
| 21 | AÈÇjÉCãLÌì \¦C±Ìpð¨æѺL
|
---|
| 22 | # ̳ÛØKèðfÚ·é±ÆD
|
---|
| 23 | # (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
|
---|
| 24 | # pÅ«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±
|
---|
| 25 | # ÆD
|
---|
| 26 | # (a) Äzzɺ¤hL
|
---|
| 27 | gipÒ}j
|
---|
| 28 | AÈÇjÉCãLÌ
|
---|
| 29 | # ì \¦C±Ìpð¨æѺL̳ÛØKèðfÚ·é±ÆD
|
---|
| 30 | # (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉ
|
---|
| 31 | # ñ·é±ÆD
|
---|
| 32 | # (4) {\tgEFAÌpÉæè¼ÚIܽÍÔÚIɶ¶é¢©Èé¹
|
---|
| 33 | # Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
|
---|
| 34 | # ܽC{\tgEFAÌ[UܽÍGh[U©çÌ¢©Èé
|
---|
| 35 | # RÉîÿ©çàCãLì Ò¨æÑTOPPERSvWFNgð
|
---|
| 36 | # ÆÓ·é±ÆD
|
---|
| 37 | #
|
---|
| 38 | # {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
|
---|
| 39 | # æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI
|
---|
| 40 | # ÉηéK«àÜßÄC¢©ÈéÛØàsíÈ¢DܽC{\tgEF
|
---|
| 41 | # AÌpÉæè¼ÚIܽÍÔÚIɶ¶½¢©Èé¹QÉÖµÄàC»
|
---|
| 42 | # ÌÓCðíÈ¢D
|
---|
| 43 | #
|
---|
| 44 | # @(#) $Id: configure 1733 2010-02-03 03:50:52Z ertl-hiro $
|
---|
| 45 | #
|
---|
| 46 |
|
---|
| 47 | use Getopt::Std;
|
---|
| 48 |
|
---|
| 49 | # IvVÌè`
|
---|
| 50 | #
|
---|
| 51 | # -T <target> ^[Qbg¼iK{j
|
---|
| 52 | # -A <applname> AvP[VvO¼iftHgÍsample1j
|
---|
| 53 | # -a <appldir> AvP[VÌfBNg¼
|
---|
| 54 | # -U <applobjs> ¼ÌAvP[VvOt@C
|
---|
| 55 | # i.ot@C¼ÅwèD¡wèÂj
|
---|
| 56 | # -L <kernel_lib> J[lCuilibkernel.ajÌfBNg¼
|
---|
| 57 | # iȪµ½êCJ[lCuàmake·éj
|
---|
| 58 | # -f J[lðÖPÊÅRpC·é©Ç¤©Ìwè
|
---|
| 59 | # -D <srcdir> J[lÌ\[XÌu©êÄ¢éfBNg
|
---|
| 60 | # -l <srclang> vO~O¾êi»_ÅÍcÆc++ÌÝT|[gj
|
---|
| 61 | # -t <templatedir> ev[gfBNgÌwèiftHgÍsamplej
|
---|
| 62 | # -m <makefile> ev[gMakefile¼ÌwèiftHgÍMakefilej
|
---|
| 63 | # -d <dbgenv> Às«̼Ì
|
---|
| 64 | # -r g[XOL^ÌTvR[hðgp·é©Ç¤©
|
---|
| 65 | # Ìwè
|
---|
| 66 | # -p <perl> perlÌpX¼i¾¦IÉwè·éêj
|
---|
| 67 | # -g <cfg> RtBM
|
---|
| 68 | [^icfgjÌpX¼
|
---|
| 69 |
|
---|
| 70 | # gpá(1)
|
---|
| 71 | #
|
---|
| 72 | # % ../configure -T dve68k_gcc -D GDB_STUB -A perf1 -a ../test -U histogram.o
|
---|
| 73 | #
|
---|
| 74 | # gpá(2)
|
---|
| 75 | #
|
---|
| 76 | # % ../configure -T macosx_gcc -L .
|
---|
| 77 | # AvP[VvOÍ sample1 ÉÈéD
|
---|
| 78 |
|
---|
| 79 | #
|
---|
| 80 | # IvVÌ
|
---|
| 81 | #
|
---|
| 82 | getopt("TAaULDltmdpg");
|
---|
| 83 |
|
---|
| 84 | #
|
---|
| 85 | # ÏÌú»
|
---|
| 86 | #
|
---|
| 87 |
|
---|
| 88 | $target = $opt_T;
|
---|
| 89 | $applname = $opt_A ? $opt_A : "sample1";
|
---|
| 90 | $appldir = $opt_a ? $opt_a : "";
|
---|
| 91 | $applobjs = $opt_U ? $opt_U : "";
|
---|
| 92 | $kernel_lib = $opt_L ? $opt_L : "";
|
---|
| 93 | $kernel_funcobjs = $opt_f ? "true" : "";
|
---|
| 94 | $srclang = $opt_l ? $opt_l : "c";
|
---|
| 95 | $makefile = $opt_m ? $opt_m : "Makefile";
|
---|
| 96 | $dbgenv = $opt_d ? "TOPPERS_".$opt_d : "";
|
---|
| 97 | $enable_trace = $opt_r ? "true" : "";
|
---|
| 98 |
|
---|
| 99 | #
|
---|
| 100 | # IuWFNgt@C¼Ìg£qðÔ·
|
---|
| 101 | #
|
---|
| 102 | sub get_objext {
|
---|
| 103 | local(@uname);
|
---|
| 104 |
|
---|
| 105 | use POSIX;
|
---|
| 106 | @uname = uname();
|
---|
| 107 | if ($uname[0] =~ /^cygwin/i) {
|
---|
| 108 | return("exe");
|
---|
| 109 | }
|
---|
| 110 | else {
|
---|
| 111 | return("");
|
---|
| 112 | }
|
---|
| 113 | }
|
---|
| 114 |
|
---|
| 115 | #
|
---|
| 116 | # vOÌêðõ·é
|
---|
| 117 | #
|
---|
| 118 | sub get_path {
|
---|
| 119 | local($progname, @pathlist) = @_;
|
---|
| 120 | local($path);
|
---|
| 121 |
|
---|
| 122 | foreach $path (@pathlist) {
|
---|
| 123 | if (-x $path."/".$progname) {
|
---|
| 124 | return($path."/".$progname);
|
---|
| 125 | }
|
---|
| 126 | }
|
---|
| 127 | return("");
|
---|
| 128 | }
|
---|
| 129 |
|
---|
| 130 | #
|
---|
| 131 | # t@CðÏ··é
|
---|
| 132 | #
|
---|
| 133 | sub convert {
|
---|
| 134 | local($infile, $outfile) = @_;
|
---|
| 135 | local($line, $varname, $varval);
|
---|
| 136 |
|
---|
| 137 | print STDERR "configure: Generating $outfile from $infile.\n";
|
---|
| 138 | if (-f $outfile) {
|
---|
| 139 | print STDERR "configure: $outfile exists.",
|
---|
| 140 | " Save as $outfile.bak.\n";
|
---|
| 141 | rename($outfile, $outfile.".bak");
|
---|
| 142 | }
|
---|
| 143 | unless (open(INFILE, $infile)) {
|
---|
| 144 | print STDERR "configure: can't open $infile\n";
|
---|
| 145 | exit(1);
|
---|
| 146 | }
|
---|
| 147 | unless (open(OUTFILE, "> ".$outfile)) {
|
---|
| 148 | print STDERR "configure: can't open $outfile\n";
|
---|
| 149 | exit(1);
|
---|
| 150 | }
|
---|
| 151 |
|
---|
| 152 | while ($line = <INFILE>) {
|
---|
| 153 | chop $line;
|
---|
| 154 | while ($line =~ /^(.*)\@\(([A-Za-z_]+)\)(.*)$/) {
|
---|
| 155 | $line = $1.$vartable{$2}.$3;
|
---|
| 156 | }
|
---|
| 157 | print OUTFILE $line,"\n";
|
---|
| 158 | }
|
---|
| 159 |
|
---|
| 160 | close(INFILE);
|
---|
| 161 | close(OUTFILE);
|
---|
| 162 | }
|
---|
| 163 |
|
---|
| 164 | #
|
---|
| 165 | # Tvð©Â¯Ät@C𶬷é
|
---|
| 166 | #
|
---|
| 167 | sub generate {
|
---|
| 168 | local($file, $mandatory) = @_;
|
---|
| 169 | local($path);
|
---|
| 170 |
|
---|
| 171 | if ($sys) {
|
---|
| 172 | $path = $templatedir."/".$file.".".$cpu."-".$sys;
|
---|
| 173 | if (-f $path) {
|
---|
| 174 | convert($path, $file);
|
---|
| 175 | return;
|
---|
| 176 | }
|
---|
| 177 |
|
---|
| 178 | $path = $templatedir."/".$file.".".$sys;
|
---|
| 179 | if (-f $path) {
|
---|
| 180 | convert($path, $file);
|
---|
| 181 | return;
|
---|
| 182 | }
|
---|
| 183 | }
|
---|
| 184 |
|
---|
| 185 | $path = $templatedir."/".$file.".".$cpu;
|
---|
| 186 | if (-f $path) {
|
---|
| 187 | convert($path, $file);
|
---|
| 188 | return;
|
---|
| 189 | }
|
---|
| 190 |
|
---|
| 191 | $path = $templatedir."/".$file;
|
---|
| 192 | if ($mandatory || -f $path) {
|
---|
| 193 | convert($path, $file);
|
---|
| 194 | }
|
---|
| 195 | }
|
---|
| 196 |
|
---|
| 197 | #
|
---|
| 198 | # \[XfBNg¼ðæèo·
|
---|
| 199 | #
|
---|
| 200 | $pwd = `pwd`; chop $pwd;
|
---|
| 201 | if ($opt_D) {
|
---|
| 202 | $srcabsdir = $srcdir = $opt_D;
|
---|
| 203 | }
|
---|
| 204 | elsif ($0 =~ /(.*)\/configure/) {
|
---|
| 205 | $srcdir = $1;
|
---|
| 206 | if ($srcdir =~ /^\//) {
|
---|
| 207 | $srcabsdir = $srcdir;
|
---|
| 208 | }
|
---|
| 209 | else {
|
---|
| 210 | $srcabsdir = $pwd."/".$srcdir;
|
---|
| 211 | }
|
---|
| 212 | }
|
---|
| 213 | else {
|
---|
| 214 | $srcabsdir = $srcdir = $pwd;
|
---|
| 215 | }
|
---|
| 216 |
|
---|
| 217 | $perl = $opt_p ? $opt_p : get_path("perl", ("/usr/local/bin", "/usr/bin"));
|
---|
| 218 | $cfg = $opt_g ? $opt_g : "\$(SRCDIR)/cfg/cfg/cfg";
|
---|
| 219 | $cfgfile = $opt_g ? $opt_g : $srcdir."/cfg/cfg/cfg";
|
---|
| 220 | $templatedir = $opt_t ? $opt_t : $srcdir."/sample";
|
---|
| 221 |
|
---|
| 222 | #
|
---|
| 223 | # -TIvVÌmF
|
---|
| 224 | #
|
---|
| 225 | unless ($opt_T) {
|
---|
| 226 | print STDERR "configure: -T option is mandatory\n";
|
---|
| 227 | print STDERR "Installed targets are:\n";
|
---|
| 228 | foreach $targetname (<$srcdir/target/[a-zA-Z1-9]*>) {
|
---|
| 229 | $targetname =~ s|$srcdir/target/||;
|
---|
| 230 | print STDERR "\t$targetname\n";
|
---|
| 231 | }
|
---|
| 232 | exit(1);
|
---|
| 233 | }
|
---|
| 234 |
|
---|
| 235 | #
|
---|
| 236 | # Ïe[uÌì¬
|
---|
| 237 | #
|
---|
| 238 | %vartable = ();
|
---|
| 239 | $vartable{"TARGET"} = $target;
|
---|
| 240 | $vartable{"APPLNAME"} = $applname;
|
---|
| 241 | $vartable{"APPLDIR"} = $appldir;
|
---|
| 242 | $vartable{"APPLOBJS"} = $applobjs;
|
---|
| 243 | $vartable{"KERNEL_LIB"} = $kernel_lib;
|
---|
| 244 | $vartable{"KERNEL_FUNCOBJS"} = $kernel_funcobjs;
|
---|
| 245 | $vartable{"SRCDIR"} = $srcdir;
|
---|
| 246 | $vartable{"SRCABSDIR"} = $srcabsdir;
|
---|
| 247 | $vartable{"SRCLANG"} = $srclang;
|
---|
| 248 | $vartable{"DBGENV"} = $dbgenv;
|
---|
| 249 | $vartable{"ENABLE_TRACE"} = $enable_trace;
|
---|
| 250 | $vartable{"PERL"} = $perl;
|
---|
| 251 | $vartable{"CFG"} = $cfg;
|
---|
| 252 | $objext = get_objext();
|
---|
| 253 | $vartable{"OBJEXT"} = $objext;
|
---|
| 254 |
|
---|
| 255 | #
|
---|
| 256 | # ^[QbgfBNgÌ`FbN
|
---|
| 257 | #
|
---|
| 258 |
|
---|
| 259 | if (! -d $srcdir."/target/".$target) {
|
---|
| 260 | print STDERR "configure: $srcdir/target/$target not exist\n";
|
---|
| 261 | exit(1);
|
---|
| 262 | }
|
---|
| 263 |
|
---|
| 264 | #
|
---|
| 265 | # Makefile ÆAvP[Vt@C̶¬
|
---|
| 266 | #
|
---|
| 267 |
|
---|
| 268 | generate($makefile, 1);
|
---|
| 269 | generate($applname.".c", 0);
|
---|
| 270 | generate($applname.".cpp", 0);
|
---|
| 271 | generate($applname.".h", 0);
|
---|
| 272 | generate($applname.".cfg", 0);
|
---|
| 273 |
|
---|
| 274 | #
|
---|
| 275 | # cfg ªÅ«Ä¢é©Ì`FbN
|
---|
| 276 | #
|
---|
| 277 |
|
---|
| 278 | if (!(-x ($objext == "" ? $cfgfile : $cfgfile.".".$objext))) {
|
---|
| 279 | print STDERR "Executable file of the configurator (cfg) is not found.\n";
|
---|
| 280 | }
|
---|