FreeCalypso > hg > fc-tourmaline
diff src/cs/layer1/tools/make_cmd.pl @ 0:4e78acac3d88
src/{condat,cs,gpf,nucleus}: import from Selenite
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 16 Oct 2020 06:23:26 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/cs/layer1/tools/make_cmd.pl Fri Oct 16 06:23:26 2020 +0000 @@ -0,0 +1,81 @@ +#!perl + +# generate a dynamic Linker command file +# PARAMETER ARE: +# 1 : Name of the Linker command file +# 2 : Name of the file with the parameter +# + +my ($cmd_file_temp,$tmp_file)=@ARGV; + +open (TMP, "$tmp_file"); +my $const_boot_lib = <TMP>; +my $bss_boot_lib = <TMP>; +my $bss_libs = <TMP>; +my $const_libs = <TMP>; +my $toolchoice_type = <TMP>; +close TMP; + +# define the REPLACE STRINGS +my $const_boot_str="(CONST_BOOT_LIB)"; +my $bss_boot_str="(BSS_BOOT_LIB)"; +my $bss_str="(BSS_LIBS)"; +my $const_str="(CONST_LIBS)"; + +# define some local variables +my $temp; +my @CMD; +my $line; + +# determine the cmd file name +@CMD=split /.template/, $cmd_file_temp; +$cmd_file=$CMD[0].".cmd"; + +open (TMP1, ">$cmd_file"); +open (TMP,$cmd_file_temp); +while ($line=<TMP>) { + if ($line =~ m/$const_boot_str/g) { + $line=mak_libs ($const_boot_lib) + } + if ($line =~ m/$bss_boot_str/g) { + $line=mak_libs ($bss_boot_lib) + } + if ($line =~ m/$bss_str/g) { + # insert the Libs + $line=mak_libs ($bss_libs); + } + if ($line =~ m/$const_str/g) { + $line=mak_libs ($const_libs) + } + + # NEW COMPILER MANAGEMENT + # If use of VISUAL LINKER, needs to manage trampoline download. + # Case of: + # - TOOL_CHOICE == 0 => compiler v1.22e with vlinker v1.9902 + if ($toolchoice_type == 0) { + $line =~ s(COMMENT2START)(); + $line =~ s(COMMENT2END)(); + } + + if ($toolchoice_type == 3) { + $line =~ s(COMMENT2START)(/*); + $line =~ s(COMMENT2END)(*/); + } + + print TMP1 $line; +} +close TMP; +close TMP1; +unlink $tmp_file; + +sub mak_libs +{ + my ($bss_libs) =@_; + my @temp; + @temp = split /=/, $bss_libs; + $_="\t\t\t" . $temp[1]; + s/\) /)\n\t\t\t/g; + $_ =~ tr /\"//d; + return $_; +} +