summaryrefslogtreecommitdiff
path: root/util/amdtools/parse-bkdg.pl
diff options
context:
space:
mode:
authorWard Vandewege <ward@gnu.org>2009-10-28 19:41:52 +0000
committerWard Vandewege <ward@gnu.org>2009-10-28 19:41:52 +0000
commit3d83cff04baaa5ba98e7ab373524dbf57f5312da (patch)
treecf412d737f4c2904bba49062a32af8d9f0b17276 /util/amdtools/parse-bkdg.pl
parent88214a48cc97b0d8f037d920d4f19c3470307428 (diff)
downloadcoreboot-3d83cff04baaa5ba98e7ab373524dbf57f5312da.tar.xz
Add an initial version of some tools to compare (extended) K8 memory settings.
This generates (dirty) html with interpreted differences between PCI dumps, based on the K8 socket F bkdg. Signed-off-by: Ward Vandewege <ward@gnu.org> Acked-by: Stepan Reinauer <stepan@coresystems.de> git-svn-id: svn://svn.coreboot.org/coreboot/trunk@4886 2b7e53f0-3cfb-0310-b3e9-8179ed1497e1
Diffstat (limited to 'util/amdtools/parse-bkdg.pl')
-rwxr-xr-xutil/amdtools/parse-bkdg.pl286
1 files changed, 286 insertions, 0 deletions
diff --git a/util/amdtools/parse-bkdg.pl b/util/amdtools/parse-bkdg.pl
new file mode 100755
index 0000000000..d359e4abe7
--- /dev/null
+++ b/util/amdtools/parse-bkdg.pl
@@ -0,0 +1,286 @@
+#!/usr/bin/perl -w
+
+my $NAME = $0;
+my $VERSION = '0.01';
+my $DATE = '2009-09-04';
+my $AUTHOR = "Ward Vandewege <ward\@jhvc.com>";
+my $COPYRIGHT = "2009";
+my $LICENSE = "GPL v3 - http://www.fsf.org/licenses/gpl.txt";
+my $URL = "http://coreboot.org";
+
+my $DEBUG = 0;
+
+use strict;
+
+# Run the bkdg for k8 through pdftotext first (from the poppler package)
+
+my @registers = ();
+my $raw_register = '';
+
+my $name = '';
+my $description = '';
+my $step = 0;
+my $oldstep = 0;
+
+my $previous_res = 0;
+my $previous_start = 0;
+my $previous_stop = 0;
+my $strip_empties = 0;
+
+my $previous_bits = '';
+
+our %info;
+
+my %typos;
+
+$typos{'CkeDreStrength'} = 'CkeDrvStrength';
+
+while (<>) {
+ my $line = $_;
+ chomp($line);
+
+ foreach my $k (keys %typos) {
+ $line =~ s/$k/$typos{$k}/;
+ }
+
+ # Make sure we do not include headers in our output
+ if (($line =~ /^Chapter 4/) || ($line =~ /Chapter 4$/)) {
+ $oldstep = $step;
+ $step = 99;
+ next;
+ }
+ if ($step == 99) { # header
+ if ($line =~ /Processors$/) {
+ $step = $oldstep;
+ $strip_empties = 1;
+ }
+ next;
+ }
+
+ if ($strip_empties) {
+ # Headers are followed by two blank lines. Strip them.
+ if ($line =~ /^\s*$/) {
+ next;
+ } else {
+ $strip_empties = 0;
+ }
+ }
+
+
+ if (($step % 6 == 0) && ($line =~ /^\d+\.\d+\.\d+\s+(.*)$/)) {
+ $step = 1;
+ next;
+ }
+ if ($step == 1) {
+ $description = "$line\n";
+ $step = 2;
+ next;
+ }
+ #print STDERR "STEP: $step\n";
+ #print STDERR "$line\n";
+
+ if ((($step == 0) || ($step == 6) || ($step == 2)) && ($line =~ /^(.*)\s+Function\s+\d+:\s+Offset\s+..h$/)) {
+ $name = $1;
+ $name =~ s/ +$//;
+ $step = 3;
+ $description =~ s/\n+$//ms;
+
+ if ($previous_bits ne '') {
+ &finish_record($previous_bits);
+ $previous_bits = ''; # reset previous_bits (used in step 6)
+ }
+
+
+ next;
+ } elsif ($step == 2) {
+ $description .= "$line\n";
+ next;
+ }
+
+ if (($step == 3) && ($line =~ /^\s+Index (.+h)$/)) {
+ $raw_register= $1;
+ @registers = split(/,/,$raw_register);
+ for (my $i=0;$i<=$#registers;$i++) {
+ $registers[$i] =~ s/ //g;
+ $registers[$i] =~ s/h$//;
+ }
+ # OK, we have our register(s), so now we can print out the name and description lines.
+ print "\$info{'$registers[0]'}{'name'} = \"$name\";\n";
+ print "\$info{'$registers[0]'}{'description'} = \"$description\";\n";
+ $step = 4;
+ next;
+ }
+
+ if (($step == 4) && ($line =~ /^Bits\s+Mnemonic\s+Function\s+R\/W\s+Reset$/)) {
+ $step = 5;
+ next;
+ }
+
+ if (($step == 5) && (!($line =~ /^Field Descriptions$/))) {
+ $line =~ s/^ +//; # Strip leading spaces
+ my @f = split(/ +/,$line);
+
+ # skip blank lines
+ next if (!exists($f[0]));
+
+ # skip headers (they could be repeated if the table crosses a page boundary
+ next if ($f[0] eq 'Bits');
+
+ # Clean up funky field separator
+ if ($f[0] =~ /\d+.+\d+/) {
+ $f[0] =~ s/[^\d]+/-/g;
+ }
+
+ my ($start, $stop, $width) = (0,0,0);
+ if ($f[0] =~ /-/) {
+ $f[0] =~ s/^(\d+)[^\d]+(\d+)$/$1-$2/;
+ ($stop,$start) = ($1,$2);
+ $width = $stop-$start+1;
+ } else {
+ if ($f[0] =~ /^\d+$/) {
+ $start = $stop = $f[0];
+ $width = 1;
+ } else {
+ # continuation from previous line
+ $start = $stop = $width = 0;
+ }
+ }
+
+ # Some lines have only bit entries
+ if (($#f < 1) && ($f[0] =~ /^\d+(|\-\d+)/)) {
+ $f[4] = '';
+ $f[3] = '';
+ $f[2] = '';
+ $f[1] = '';
+ } elsif ($#f < 1) {
+ # Some lines are a continuation of the function field a line above
+ $f[4] = '';
+ $f[3] = '';
+ $f[2] = $f[0];
+ $f[1] = '';
+ $f[0] = '';
+ my $tmp = "\$info{'$registers[0]'}{'ranges'}{" . $previous_res . "}{'function'} .= \"" . $f[2] . "\";\n";
+ print &multiply($tmp,$previous_res,$previous_start,$previous_stop);
+ next;
+ }
+
+ # Some lines have only bit and reset entries
+ if ($#f < 2) {
+ $f[4] = $f[1];
+ $f[3] = '';
+ $f[2] = '';
+ $f[1] = '';
+ }
+
+ # Some lines have no mnemonic and no function
+ if ($#f < 3) {
+ $f[4] = $f[2];
+ $f[3] = $f[1];
+ $f[2] = '';
+ $f[1] = '';
+ }
+
+ # functions with 'reserved' mnemonic have no function
+ if ($f[1] =~ /^reserved$/i) {
+ $f[4] = $f[3];
+ $f[3] = $f[2];
+ $f[2] = '';
+ }
+
+ $previous_res = $f[0];
+ $previous_start = $start;
+ $previous_stop = $stop;
+
+ # the 'range' field is not useful in this instance, but used in the 'fields' version of this block to easily go
+ # from a bit position to the corresponding range.
+ my $str = "
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'function'} = \"" . $f[2] . "\";
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'mnemonic'} = \"" . $f[1] . "\";
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'description'} = \"" . "\";
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'begin'} = $start;
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'end'} = $stop;
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'width'} = $width;
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'rw'} = \"" . $f[3] . "\";
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'reset'} = \"" . $f[4] . "\";
+\$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'range'} = \"" . $f[0] . "\";
+";
+ my $output;
+
+ $output = &multiply($str,$f[0],$start,$stop);
+
+ # Load the data structure here, too
+ eval($output);
+
+ print $output . "\n\n";
+ } elsif (($step == 5) && ($line =~ /^Field Descriptions$/)) {
+ $step = 6;
+ next;
+ }
+
+ if ($step == 6) {
+ if ($line =~ /^(.*?)\((.*?)\).+Bit(s|) +(.*?)\. (.*)$/) {
+ my $bits = $4;
+ my $desc = $5;
+ $bits =~ s/[^\d]+/-/;
+
+ if ($previous_bits ne '') {
+ # We're done with a field description block
+ print "\$info{'$registers[0]'}{'ranges'}{'$previous_bits'}{'description'} = \"" . $info{$registers[0]}{'ranges'}{$previous_bits}{'description'} . "\";\n";
+ foreach my $k (keys %{$info{$registers[0]}{'ranges'}{$previous_bits}{'values'}}) {
+ print "\$info{'$registers[0]'}{'ranges'}{'$previous_bits'}{'values'}{'$k'} = \"" . $info{$registers[0]}{'ranges'}{$previous_bits}{'values'}{$k} . "\";\n";
+ }
+ }
+
+ if (exists($info{$registers[0]}{'ranges'}{$bits})) {
+ print STDERR "match ($bits) on $line\n";
+ $info{$registers[0]}{'ranges'}{$bits}{'description'} = $desc . "\n";
+ $previous_bits = $bits;
+ }
+ } elsif ($previous_bits ne '') {
+ $info{$registers[0]}{'ranges'}{$previous_bits}{'description'} .= $line . "\n";
+ if ($line =~ /([0-9a-f]+b|[0-9a-f]+h) = (.*)$/i) {
+ $info{$registers[0]}{'ranges'}{$previous_bits}{'values'}{$1} = $2;
+ }
+ }
+ }
+
+}
+&finish_record($previous_bits);
+
+
+print "1;\n";
+
+sub multiply {
+ my $str = shift;
+ my $range = shift;
+ my $start = shift;
+ my $stop = shift;
+ my $output = '';
+ for (my $i=$start;$i<=$stop;$i++) {
+ my $tmp = $str;
+ $tmp =~ s/\{'$range'\}/{'$i'}/g;
+ $tmp =~ s/\{'ranges'\}/{'fields'}/g;
+ $tmp .=
+ $output .= $tmp;
+ }
+
+ #$output .= $str if (($stop - $start + 1) > 1);
+ $output .= $str;
+
+ return $output;
+}
+
+sub finish_record {
+ my $previous_bits = shift;
+ # We're done with a field description block
+ print "\$info{'$registers[0]'}{'ranges'}{'$previous_bits'}{'description'} = \"" . $info{$registers[0]}{'ranges'}{$previous_bits}{'description'} . "\";\n";
+ foreach my $k (keys %{$info{$registers[0]}{'ranges'}{$previous_bits}{'values'}}) {
+ print "\$info{'$registers[0]'}{'ranges'}{'$previous_bits'}{'values'}{'$k'} = \"" . $info{$registers[0]}{'ranges'}{$previous_bits}{'values'}{$k} . "\";\n";
+ }
+
+ # End of table. If this data applies to more than one register, print duplication lines.
+ for (my $i=1;$i<=$#registers;$i++) {
+ print "\$info{'$registers[$i]'} = \$info{'$registers[0]'};\n";
+ }
+
+}