FreeCalypso > hg > fc-tourmaline
view 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 source
#!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 $_; }