Though kmtune -l yields all the needed info it's now fun to read. I've written a perl wrapper that reformats and calculated formula's:
(Unclobbered version attached, because the spaces *are* important in the output format)
#!/pro/bin/perl -w
use strict;
use integer;
my (%tune, %parm, $parm, %ref);
open my $list, "kmtune -l |";
while (<$list>) {
s/\s+$//;
my ($p, $v) = split m/:\s+/, $_, 2 or next;
$v =~ s/\b0X([\dA-Fa-f]+)\b/0x\L$1/g;
$p eq "Parameter" and $parm = $v, next;
$tune{$parm}{$p} = $v;
$p eq "Value" or next;
if ($v =~ m/^-?(0x[\da-f]+|\d+)$/) {
$parm{uc $parm} = 0 + $v =~ m/^-?0x/ ? hex $v : $v;
}
else {
#printf STDERR "%-20s: '%s'\n", $p, $v;
$ref{$parm} = $v;
}
}
close $list;
while (keys %ref) {
foreach my $p (keys %ref) {
my $up = uc $p;
my $v = $tune{$p}{Value};
#my @r = (m/\b([A-Za-z]\w*)\b/g);
my $x = 0;
eval q(
$v =~ s/\b([A-Za-z]\w*)\b/exists$parm{uc $1}?$parm{uc $1}:do{$x++,$1
}/ge;
);
$x and next;
eval "\$v = $v";
$parm{$up} = $v;
delete $ref{$p};
}
}
$= = 64;
foreach $parm (sort keys %tune) {
$tune{$parm}{Default} eq $tune{$parm}{Value} and $tune{$parm}{Default} = "";
write;
}
format STDOUT_TOP =
Parameter Value hex Value dec Function Defaul
t
-------------------- ------------ ----------- --------------------------- ------
--------------
.
format STDOUT =
@<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>> @>>>>>>>>>> ^<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<
<<<<<<<<<<<<<<
$parm,sprintf("0x%010x",$parm{uc $parm}),$parm{uc $parm},$tune{$parm}{Value},$tu
ne{$parm}{Default}
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<
<<<<<<<<<<<<<<
$tune{$parm}{Value}, $tune{
$parm}{Default}
.
Enjoy, Have FUN! H.Merijn
