dolphin/Source/DSPSpy/util/createtest.pl
Shawn Hoffman 6e61c32495 dspspy: fix a bug with ConsoleHelper
dspspy: remove some alignment for some vars. (should not have caused issues anyways)
dspCodeUtil: pad ucodes converted to headers to 32byte multiples with nops (this is only mimicing what is seen in nintendo ucodes, probably because their's are originating on disc)
Common.h: fix typo for gcc version of GC_ALIGNED32 (wtf? how did this work before?!)
createtest.pl: add "jmp end_of_test" to the end of generated ucodes.


git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@3994 8ced0084-cf51-0410-be5f-012b33b47a6e
2009-08-16 00:37:01 +00:00

129 lines
2.5 KiB
Perl
Executable File

#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Getopt::Long;
use POSIX qw(ceil floor);
use Data::Dumper;
my $merge = 0;
sub usage() {
die("createtest -i <test template> -c <command> \n");
}
sub parseString {
my $string = shift;
my $cmd = shift;
$string =~ s/\@CMD\@/$cmd/gi;
return $string;
}
sub generateSRFull {
my $res = shift;
my $body = shift;
my $start = shift;
my $end = shift;
$end = 0xFFFF if ($end > 0xFFFF);
$res .= join "\n", map {my $b = sprintf "\#0x%04X", $_; (my $a = $body) =~ s/\@SR\@/$b/g; $a} $start..$end;
return $res;
}
sub calculateLines {
my $file = shift;
my @lines = `dsptool -s $file`;
$lines[0] =~ /:\s*(.*)/;
my $lnum = $1;
return $lnum;
}
my ($cmds,$input,$output);
if (!GetOptions('cmds|c=s' => \$cmds,
'input|i=s' => \$input,
'merge|m' => \$merge,
# 'output|o=s' => \$output,
)) {
usage();
exit 1;
}
usage() if (! defined $input);
my $xtest = XMLin($input);
my $type = $xtest->{'type'};
my @cmdList = split(/,/, $cmds);
for(my $i = 0;$i < scalar(@cmdList);$i++) {
my $cmd = $cmdList[$i];
my $name = parseString($xtest->{'name'}, $cmd);
$name =~ s/ /_/g;
my $desc = parseString($xtest->{'description'}, $cmd);
my $header = parseString($xtest->{'header'}, $cmd);
open(OUTPUT, ">$name.tmp");
print OUTPUT $header;
close(OUTPUT);
my $hsize = calculateLines("$name.tmp");
my $body = parseString($xtest->{'body'}, $cmd);
open(OUTPUT, ">$name.tmp");
print OUTPUT generateSRFull($header, $body, 0, 0);
close(OUTPUT);
my $bsize = calculateLines("$name.tmp") - $hsize;
unlink("$name.tmp");
# how many tests we can fit in a ucode.
my $ucodes = POSIX::floor((0x1000 - $hsize) / $bsize);
if ($merge) {
open(NAMES, ">>all.lst");
} else {
open(NAMES, ">$name.lst");
}
my $numLines = POSIX::ceil(0xFFFF / $ucodes);
for(my $j = 0; $j < $numLines; $j++) {
open(OUTPUT, ">$name$j.tst");
print OUTPUT generateSRFull($header, $body, $j*$ucodes,
($j+1)*$ucodes-1);
print OUTPUT "jmp end_of_test";
close(OUTPUT);
print NAMES "$name$j.tst";
# Don't end with a newline
if ($j < $numLines - 1 || ($merge && $i != scalar(@cmdList)-1)) {
print NAMES "\n";
}
}
close(NAMES);
if (! $merge) {
print `dsptool -m $name.lst -h $name`;
open(NAMES, "$name.lst");
my @names = <NAMES>;
chomp @names;
unlink @names;
close(NAMES);
unlink("$name.lst");
}
}
if ($merge) {
print `dsptool -m all.lst -h unite_test`;
open(NAMES, "all.lst");
my @names = <NAMES>;
chomp @names;
unlink @names;
close(NAMES);
unlink "all.lst";
}