piwalker/dolphin
1
0
Fork 0
mirror of https://github.com/dolphin-emu/dolphin.git synced 2024-11-14 21:37:52 -07:00
Code Issues Actions Packages Projects Releases Wiki Activity

Dsp: create test now works for full SR tests, and now creates a final .h file from the template while erasing the tmp

Browse Source 
test files. 


git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@3457 8ced0084-cf51-0410-be5f-012b33b47a6e
This commit is contained in:
nakeee 2009-06-15 20:59:46 +00:00
parent 05a8c0115b
commit dcae21f692
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Source/DSPSpy/util/createtest.pl
View File

@ -3,8 +3,9 @@
use strict;
use XML::Simple;
use Getopt::Long;
use POSIX qw(ceil floor);
use Data::Dumper;
#use Data::Dumper;
sub usage() {
die("createtest -i <test template> -c <command> \n");
@ -22,6 +23,7 @@ sub generateSRFull {
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;
@ -66,30 +68,32 @@ foreach my $cmd (split(/,/, $cmds)) {
my $body = parseString($xtest->{'body'}, $cmd);
open(OUTPUT, ">$name.tmp");
print OUTPUT generateSRFull($header, $body, 1, 1);
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 = int((0x1000 - $hsize) / $bsize);
my $ucodes = POSIX::floor((0x1000 - $hsize) / $bsize);
open(NAMES, ">$name.lst");
# print NAMES "; $name\n";
# print NAMES "; $desc\n";
for(my $j = 1; $j < int((0xFFFF / $ucodes)+1); $j++) {
for(my $j = 0; $j < POSIX::ceil(0xFFFF / $ucodes); $j++) {
open(OUTPUT, ">$name$j.tst");
print OUTPUT generateSRFull($header, $body, $j*$ucodes, $j*($ucodes+1));
print OUTPUT generateSRFull($header, $body, $j*$ucodes,
($j+1)*$ucodes-1);
close(OUTPUT);
print NAMES "$name$j.tst\n";
}
close(NAMES);
# my $test = generateTest($type, $header, $body);
# print OUTPUT $test . "\n";
system("dsptool -m $name.lst -h $name");
unlink <$name*.tst>;
unlink "$name.lst";
}