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 $_;
}