Subversion Repositories core_arm

#!/usr/bin/perl

if ($#ARGV != 0) {

    die("Call: scanconfig.pl <configfile>\n");

}

%cfg = ();

$fn = $ARGV[0];

if (open(FILEH, "$fn")) {

    while (<FILEH>) {

        s/[\r\n]$//gi;

        @a = split("=",$_);

        if ($#a == 1) {

            #print STDERR ($a[0]."=".$a[1]."\n");

            $k = $a[0];

            $v = $a[1];

            $k =~ s/[^[:print:]]//gi;

            $v =~ s/[^[:print:]]//gi;

            $cfg{$k} = $v;

        }

    }

    close(FILEH);

} else {

    print "opening \"$fn\": $!\n";

}

require ("vhdl/sparc/config.pl");

$sparc_cfg = createconfig(\%sparc_cfg,\%sparc_map,\%cfg);

%sparc_cfg = %{$sparc_cfg};

sparc_config_file (\%sparc_cfg);

require ("vhdl/peripherals/mem/config.pl");

$peri_mem_cfg = createconfig(\%peri_mem_cfg,\%peri_mem_map,\%cfg);

%peri_mem_cfg = %{$peri_mem_cfg};

peri_mem_config_file (\%peri_mem_cfg);

require ("vhdl/core/config.pl");

$core_cfg = createconfig(\%core_cfg,\%core_map,\%cfg);

%core_cfg = %{$core_cfg};

core_config_file (\%core_cfg);

require ("vhdl/mem/cache/config.pl");

$cache_cfg = createconfig(\%cache_cfg,\%cache_map,\%cfg);

%cache_cfg = %{$cache_cfg};

cache_config_file (\%cache_cfg);

require ("vhdl/core/ctrl/config.pl");

$ctrl_cfg = createconfig(\%ctrl_cfg,\%ctrl_map,\%cfg);

%ctrl_cfg = %{$ctrl_cfg};

ctrl_config_file (\%ctrl_cfg);

sub createconfig {

    my ($defcfg,$map,$cfg) = @_;

    my $rkey,my $rval,my $rfound;

    my $k,my $v,my $rv;

    my %defcfg = %{$defcfg};

    my %map = %{$map};

    my %cfg = %{$cfg};

    foreach $k (keys %cfg) {

        $v = $cfg{$k};

        ($rkey,$rval,$rfound) = resolve(\%map,$k,$v);

        if ($rfound == 1 && exists($defcfg{$rkey})) {

            #print STDERR ("set $rkey:$rval\n");

            $defcfg{$rkey} = $rval;

        } else {

            #print STDERR ("!!!! Warning: Could not set cfiguration $k resolved to $rkey:$rval:$rfound\n");

        }

    }

    #printout_cfg(\%defcfg);

    return \%defcfg;

}

sub printout_cfg {

    my ($defcfg) = @_;

    my %defcfg = %{$defcfg};

    my $k;

    foreach $k (keys %defcfg) {

        print ("$k:".$defcfg{$k}."\n");

    }

}

sub resolve

{

    my ($map,$entry,$value) = @_;

    my %tmp = (),my $e,my $k,my $v;

    my $key, my $val;

    my %map = %{$map};

    my $found = 0;

Found:

    foreach $k (keys %map) {

        $key = $k;

        %tmp = @{$map{$k}};

        foreach $e (keys %tmp) {

            $val = $tmp{$e};

            if (lc($entry) eq lc($e)) {

                $v = $tmp{$e};

                $found = 1;

                last Found;

            }

        }

    }

    if (ref($val)) {

        $val = &$val($value);

    }

    return ($key,$val,$found);

}

sub cfg_replace {

    my ($k,$v,$l) = @_;

    my $type;

    if ($l =~ /%$k%\[(.)\]/) {

        $type = $1;

        if ($type eq "b") {

            if ($v == 0) {

                $v = "false";

            } else {

                $v = "true";

            }

            $l =~ s/%($k)%\[(.)\]/$v/gi;

        } else {

            print STDERR ("Warning cound not resolve [$1] typedef\n");

        }

    }

    else {

        $l =~ s/%$k%/$v/gi;

    }

    return $l;

}