dolphin/Source/DSPSpy/util/createtest.pl

128 lines
2.5 KiB
Perl
Raw Normal View History

#!/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);
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) {
system("dsptool -m $name.lst -h $name");
open(NAMES, "$name.lst");
my @names = <NAMES>;
chomp @names;
unlink @names;
close(NAMES);
unlink("$name.lst");
}
}
if ($merge) {
system("dsptool -m all.lst -h unite_test");
open(NAMES, "all.lst");
my @names = <NAMES>;
chomp @names;
unlink @names;
close(NAMES);
unlink "all.lst";
}