Github_Repos/cvw
1
0
Fork 1
mirror of https://github.com/openhwgroup/cvw synced 2025-02-11 06:05:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

Progress on derivgen

Browse Source
This commit is contained in:
David Harris 2024-01-29 10:14:54 -08:00
parent 45e2317636
commit fb35a865ef
1 changed files with 93 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
bin/derivgen.pl Normal file → Executable file
View File

@ -35,24 +35,99 @@ use strict;
use warnings; use warnings;
import os; import os;
if ($#ARGV != 0) { my $curderiv = "";
die("Usage: $0 workpath [e.g. $0 \$WALLY/addins/riscv-arch-test/work") my @derivlist = ();
my %derivs;
my %basederiv;
if ($#ARGV != -1) {
die("Usage: $0")
} }
my $mypath = $ARGV[0]; my $derivlist = "$ENV{WALLY}/config/derivlist.txt";
my @dirs = glob($mypath.'/*/*'); open(my $fh, $derivlist) or die "Could not open file '$derivlist' $!";
foreach my $dir (@dirs) { foreach my $line (<$fh>) {
$dir =~ /.*\/(.*)\/(.*)/; chomp $line;
my $arch = $1; my @tokens = split('\s+', $line);
my $ext = $2; if ($#tokens < 0 || $tokens[0] =~ /^#/) { # skip blank lines and comments
my $contents = `grep --with-filename "<begin_signature>:" $dir/*.objdump`; next;
my @lines = split('\n', $contents); }
print "$arch/$ext"; if ($tokens[0] =~ /deriv/) { # start of a new derivative
foreach my $line (@lines) { &terminateDeriv();
$line =~ /.*\/(.*)\.elf.objdump:(\S*)/; $curderiv = $tokens[1];
my $fname = $1; $basederiv{$curderiv} = $tokens[2];
my $adr = $2; # print("Found deriv $curderiv based on $basederiv{$curderiv}\n");
my $partialaddress = substr($adr, -6); @derivlist = ();
print ",\n\t\t\"$arch/$ext/$fname\", \"$partialaddress\""; if ($#tokens > 2) {
# print(" with $tokens[3]\n");
my $inherits = $derivs{$tokens[3]};
# &printref($inherits);
@derivlist = @{$inherits};
# foreach my $entry (@derivlist) {
# print(" Entry: @$entry\n");
# }
# print (" dt3 = $inherits as array @derivlist\n");
# print(" derivlist = @derivlist\n"); */
}
} else { # add to the current derivative
my @entry = ($tokens[0], $tokens[1]);
# print(" Read Entry: @entry\n");
push(@derivlist, \@entry);
} }
print("\n\n");
} }
&terminateDeriv();
close($fh);
#system("mkdir $ENV{WALLY}/config/deriv");
foreach my $key (keys %derivs) {
my $dir = "$ENV{WALLY}/config/deriv/$key";
system("mkdir -p $dir");
my $configunmod = "$dir/config_unmod.vh";
my $config = "$dir/config.vh";
my $base = "$ENV{WALLY}/config/$basederiv{$key}/config.vh";
system("cp $base $configunmod");
open(my $unmod, $configunmod) or die "Could not open file '$configunmod' $!";
open(my $fh, '>>', $config) or die "Could not open file '$config' $!";
my $datestring = localtime();
print $fh "// Config $key automatically derived from $basederiv{$key} on $datestring usubg derivgen.pl\n";
foreach my $line (<$unmod>) {
foreach my $entry (@{$derivs{$key}}) {
my @ent = @{$entry};
my $param = @ent[0];
my $value = @ent[1];
print(" In $config replace $param with $value\n");
# $line =~ s/^\s*`define\s+$param\s+.*$/`define $param $value/;
$line =~ s/$param\s*=\s*.*;/$param = $value;/;
}
print $fh $line;
}
close($fh);
close($unmod);
}
#print("#######################\nKeys: ", join(' ', keys %derivs), "\n");
#foreach my $key (keys %derivs) {
# print(" $key: $basederiv{$key} = ");
# &printref($derivs{$key});
#}
sub terminateDeriv {
if ($curderiv ne "") { # close out the previous derivative
my @dl = @derivlist;
$derivs{$curderiv} = \@dl;
# print("Finished: $curderiv = $derivs{$curderiv} ");
# &printref($derivs{$curderiv});
}
};
sub printref {
my $ref = shift;
my @array = @{$ref};
# print(" ## Printing ref $ref\n ");
foreach my $entry (@array) {
print join('_', @{$entry}), ', ';
}
print("\n");
}