mirror of
https://github.com/dolphin-emu/dolphin.git
synced 2024-10-01 00:31:43 +02:00
f8d2411dc3
now we need to split the test git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@3444 8ced0084-cf51-0410-be5f-012b33b47a6e
100 lines
1.9 KiB
Perl
Executable file
100 lines
1.9 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use XML::Simple;
|
|
use Getopt::Long;
|
|
|
|
use Data::Dumper;
|
|
|
|
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;
|
|
|
|
$res .= join "\n", map {my $b = sprintf "\#0x%04X", $_; (my $a = $body) =~ s/\@SR\@/$b/g; $a} 1..65535;
|
|
|
|
return $res;
|
|
}
|
|
|
|
sub generateTest {
|
|
my $type = shift;
|
|
my $header = shift;
|
|
my $body = shift;
|
|
|
|
if ($type eq "srfull") {
|
|
return generateSRFull($header, $body);
|
|
}
|
|
}
|
|
|
|
sub calculateLines {
|
|
my $text = shift;
|
|
my $lines = 0;
|
|
my $incdir = "./";
|
|
|
|
foreach my $line (split /\n/, $text) {
|
|
next if ($line =~ /^\S*$/);
|
|
next if ($line =~ /^\S*;/);
|
|
next if ($line =~ /:/);
|
|
|
|
if ($line =~ /incdir\s*\"(.*)\"/) {
|
|
$incdir = $1;
|
|
} elsif ($line =~ /include\s*\"(.*)\"/) {
|
|
my $incname = "$incdir/$1";
|
|
open(INCLUDE, "<$incname") ||
|
|
die("Can't open include file $incname: $!\n");
|
|
|
|
my $include = join "", <INCLUDE>;
|
|
$lines += calculateLines($include);
|
|
} else {
|
|
$lines++;
|
|
}
|
|
}
|
|
|
|
return $lines;
|
|
}
|
|
|
|
my ($cmds,$input,$output);
|
|
if (!GetOptions('cmds|c=s' => \$cmds,
|
|
'input|i=s' => \$input,
|
|
# 'output|o=s' => \$output,
|
|
)) {
|
|
usage();
|
|
exit 1;
|
|
}
|
|
|
|
usage() if (! defined $input);
|
|
|
|
my $xtest = XMLin($input);
|
|
my $type = $xtest->{'type'};
|
|
|
|
foreach my $cmd (split(/,/, $cmds)) {
|
|
my $name = parseString($xtest->{'name'}, $cmd);
|
|
$name =~ s/ /_/g;
|
|
my $desc = parseString($xtest->{'description'}, $cmd);
|
|
|
|
my $header = parseString($xtest->{'header'}, $cmd);
|
|
my $hsize = calculateLines($header);
|
|
|
|
my $body = parseString($xtest->{'body'}, $cmd);
|
|
my $bsize = calculateLines($body);
|
|
|
|
open(OUTPUT, ">$name.ds") ||
|
|
die("Can't open file $name for writing: $!\n");
|
|
|
|
print OUTPUT "; $name\n";
|
|
print OUTPUT "; $desc\n";
|
|
my $test = generateTest($type, $header, $body);
|
|
print OUTPUT $test . "\n";
|
|
|
|
}
|
|
|