alpha
/
Kaleidoscope
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

astyle

Browse Source
f/automatic-build-nightly
Jesse Vincent 4 years ago
parent 15ac6fe9e2
commit b05a8e8c5f
No known key found for this signature in database
GPG Key ID: 122F5DF7108E4046
1 changed files with 85 additions and 67 deletions
Show Stats Download Patch File Download Diff File

152
testing/bin/ktest-to-cxx
Unescape View File

@ -13,16 +13,15 @@ my $depth = 0;
my $reports_expected = 0; my $reports_expected = 0;
my @script_lines; my @script_lines;
my $named_switches = {}; my $named_switches = {};
my $inside_test = 0; my $inside_test = 0;
my $test_class = 'GeneratedKTest'; my $test_class = 'GeneratedKTest';
GetOptions( GetOptions(
"cxx=s" => \$cxx_filename, # string "cxx=s" => \$cxx_filename, # string
"ktest=s" => \$text_filename, "ktest=s" => \$text_filename,
"verbose" => \$verbose "verbose" => \$verbose
) # flag ) # flag
or die("Error in command line arguments\n"); or die("Error in command line arguments\n");
my $test; my $test;
@ -36,15 +35,12 @@ else {
generate_test_file(); generate_test_file();
open(my $outfile, ">", $cxx_filename) || die "Can't open output file $!"; open( my $outfile, ">", $cxx_filename ) || die "Can't open output file $!";
print $outfile $cxx_output; print $outfile $cxx_output;
close ($outfile); close($outfile);
exit(0); exit(0);
sub load_from_text { sub load_from_text {
my @content = (); my @content = ();
open( my $text_fh, "<", $text_filename ) or die "Can't open file $!"; open( my $text_fh, "<", $text_filename ) or die "Can't open file $!";
@ -74,18 +70,18 @@ sub load_from_text {
} }
my $dispatcher = { my $dispatcher = {
version => sub { version => sub {
my $version = shift; my $version = shift;
if ($version != 1) { if ( $version != 1 ) {
die "This parser only supports v1"; die "This parser only supports v1";
} }
return undef; return undef;
}, },
name => sub { name => sub {
my $name = shift; my $name = shift;
$name =~ s/\s(\w)/uc($1)/eg; $name =~ s/\s(\w)/uc($1)/eg;
return { test_name => $name }; return { test_name => $name };
}, },
keyswitch => sub { keyswitch => sub {
my $content = shift; my $content = shift;
if ( $content =~ /^(.*?)\s+(\d+)\s+(\d+)$/ ) { if ( $content =~ /^(.*?)\s+(\d+)\s+(\d+)$/ ) {
@ -104,7 +100,8 @@ sub load_from_text {
press => sub { press => sub {
my $content = shift; my $content = shift;
unless ( defined $named_switches->{$content} ) { unless ( defined $named_switches->{$content} ) {
die "Attempt to press undefined switch $content on line $line_num"; die
"Attempt to press undefined switch $content on line $line_num";
} }
return { switch => $content }; return { switch => $content };
}, },
@ -118,11 +115,12 @@ sub load_from_text {
}, },
expect => sub { expect => sub {
my $content = shift; my $content = shift;
if ( $content =~ /^no keyboard-report/) { if ( $content =~ /^no keyboard-report/ ) {
return { return {
report_type => 'keyboard', report_type => 'keyboard',
count => 0 }; count => 0
} };
}
if ( $content =~ /^keyboard-report\s+(.*)$/ ) { if ( $content =~ /^keyboard-report\s+(.*)$/ ) {
my $report_data = $1; my $report_data = $1;
my @keys = split( /,?\s+/, $report_data ); my @keys = split( /,?\s+/, $report_data );
@ -130,7 +128,7 @@ sub load_from_text {
@keys = (); @keys = ();
} }
return { return {
count => 1, # We expect one report here count => 1, # We expect one report here
report_type => 'keyboard', report_type => 'keyboard',
keys => [@keys] keys => [@keys]
}; };
@ -150,9 +148,15 @@ sub load_from_text {
elsif ( $unit =~ /milli|ms/ ) { elsif ( $unit =~ /milli|ms/ ) {
return { millis => $count }; return { millis => $count };
} }
else { die "Line $line_num: failed to parse a 'run' clause: $content"; } else {
die
"Line $line_num: failed to parse a 'run' clause: $content";
}
}
else {
die
"Line $line_num: failed to parse a 'run' clause: $content";
} }
else { die "Line $line_num: failed to parse a 'run' clause: $content"; }
}, },
@ -161,15 +165,16 @@ sub load_from_text {
my $data; my $data;
if ( $type && exists $dispatcher->{$type} ) { if ( $type && exists $dispatcher->{$type} ) {
$data = $dispatcher->{$type}->($content); $data = $dispatcher->{$type}->($content);
# an empty return means "don't put it in the script
if (!$data) { # an empty return means "don't put it in the script
next; if ( !$data ) {
} next;
}
} }
push @content, push @content,
{ {
action => $type, action => $type,
content => $content, content => $content,
comment => $comment, comment => $comment,
data => $data, data => $data,
@ -178,18 +183,16 @@ sub load_from_text {
} }
close ($text_fh); close($text_fh);
@script_lines = @content; @script_lines = @content;
} }
sub generate_test_file { sub generate_test_file {
generate_preface(); generate_preface();
generate_key_addrs(); generate_key_addrs();
generate_script( ); generate_script();
generate_postscript(); generate_postscript();
@ -200,7 +203,7 @@ generate_preface();
sub generate_key_addrs { sub generate_key_addrs {
cxx_section('Key Addresses'); cxx_section('Key Addresses');
for my $key ( keys %$named_switches ) { for my $key ( keys %$named_switches ) {
cxx( "constexpr KeyAddr key_addr_$key {" cxx( "constexpr KeyAddr key_addr_$key {"
. $named_switches->{$key}->[0] . ", " . $named_switches->{$key}->[0] . ", "
@ -210,8 +213,9 @@ sub generate_key_addrs {
} }
} }
sub generate_start_new_test { sub generate_start_new_test {
my $name = shift; my $name = shift;
if ($inside_test) { if ($inside_test) {
generate_end_test(); generate_end_test();
} }
@ -220,6 +224,7 @@ sub generate_start_new_test {
indent(); indent();
cxx("ClearState(); // Clear any state from previous tests"); cxx("ClearState(); // Clear any state from previous tests");
} }
sub generate_end_test { sub generate_end_test {
generate_check_expected_reports(); generate_check_expected_reports();
outdent(); outdent();
@ -232,7 +237,7 @@ sub generate_end_test {
sub generate_script { sub generate_script {
cxx_section("Test script"); cxx_section("Test script");
# Super evil hack from https://stackoverflow.com/a/48924764 # Super evil hack from https://stackoverflow.com/a/48924764
# We should do this better, inside the core. But until we do # We should do this better, inside the core. But until we do
# I'd rather stick the macro in the code generator so nobody # I'd rather stick the macro in the code generator so nobody
@ -240,7 +245,9 @@ sub generate_script {
cxx('#define GTEST_COUT std::cerr << "[ INFO ] "'); cxx('#define GTEST_COUT std::cerr << "[ INFO ] "');
generate_start_new_test('KtestSourceFilename'); generate_start_new_test('KtestSourceFilename');
cxx("GTEST_COUT << \"test: @{[File::Spec->rel2abs( $text_filename ) ]}\" << std::endl;"); cxx(
"GTEST_COUT << \"test: @{[File::Spec->rel2abs( $text_filename ) ]}\" << std::endl;"
);
generate_end_test(''); generate_end_test('');
$reports_expected = 0; $reports_expected = 0;
@ -251,9 +258,13 @@ sub generate_script {
} }
elsif ( my $action = $entry->{action} ) { elsif ( my $action = $entry->{action} ) {
if ( $action eq 'name' ) { generate_start_new_test($entry->{data}->{test_name}) } if ( $action eq 'name' ) {
generate_start_new_test( $entry->{data}->{test_name} );
}
elsif ( !$inside_test && defined $action ) { elsif ( !$inside_test && defined $action ) {
die "Attempting to run an action '$action' when not inside a test section on line " . $entry->{line_num} . "\n"; die
"Attempting to run an action '$action' when not inside a test section on line "
. $entry->{line_num} . "\n";
} }
elsif ( $action eq 'press' ) { generate_press($entry) } elsif ( $action eq 'press' ) { generate_press($entry) }
elsif ( $action eq 'release' ) { generate_release($entry); } elsif ( $action eq 'release' ) { generate_release($entry); }
@ -266,7 +277,7 @@ sub generate_script {
} }
if ($inside_test) { if ($inside_test) {
generate_end_test(); generate_end_test();
} }
} }
@ -288,28 +299,34 @@ sub generate_press {
my $e = shift; my $e = shift;
# TODO handle multuple presses # TODO handle multuple presses
cxx( "PressKey(key_addr_" . $e->{data}->{switch} . ");" , $e->{comment}); cxx( "PressKey(key_addr_" . $e->{data}->{switch} . ");", $e->{comment} );
} }
sub generate_release { sub generate_release {
my $e = shift; my $e = shift;
# TODO handle multiple releases # TODO handle multiple releases
cxx( "ReleaseKey(key_addr_" . $e->{data}->{switch} . ");" , $e->{comment}); cxx( "ReleaseKey(key_addr_" . $e->{data}->{switch} . ");", $e->{comment} );
} }
sub generate_expect_report { sub generate_expect_report {
my $report = shift; my $report = shift;
if (! $report->{data}->{report_type} || $report->{data}->{report_type} ne 'keyboard') { if ( !$report->{data}->{report_type}
die "Don't know how to work with expectaions of reports other than 'keyboard' reports at line #".$report->{line_num}."\n"; || $report->{data}->{report_type} ne 'keyboard' )
{
die
"Don't know how to work with expectaions of reports other than 'keyboard' reports at line #"
. $report->{line_num} . "\n";
} }
$reports_expected++; $reports_expected++;
if ($report->{data}->{count} == 0) { if ( $report->{data}->{count} == 0 ) {
cxx_comment($report->{comment}); cxx_comment( $report->{comment} );
cxx_comment("We don't expect any report here, and have told the tests to check that"); cxx_comment(
return; "We don't expect any report here, and have told the tests to check that"
);
return;
} }
my $codes = join( my $codes = join(
@ -332,7 +349,7 @@ sub generate_check_expected_reports {
sub generate_preface { sub generate_preface {
my $preface = <<EOF; my $preface = <<EOF;
#include "testing/setup-googletest.h" #include "testing/setup-googletest.h"
#include "Kaleidoscope.h" #include "Kaleidoscope.h"
@ -354,22 +371,23 @@ namespace {
class @{[$test_class]} : public VirtualDeviceTest {}; class @{[$test_class]} : public VirtualDeviceTest {};
EOF EOF
for my $line (split/\n/,$preface) { for my $line ( split /\n/, $preface ) {
cxx($line); cxx($line);
} }
} }
sub generate_postscript { sub generate_postscript {
my $postscript = <<EOF; my $postscript = <<EOF;
} // namespace } // namespace
} // namespace testing } // namespace testing
} // namespace kaleidoscope } // namespace kaleidoscope
EOF EOF
for my $line (split/\n/,$postscript) { for my $line ( split /\n/, $postscript ) {
cxx($line); cxx($line);
} }
} }
sub indent { sub indent {
@ -399,12 +417,12 @@ sub cxx_comment {
} }
sub cxx { sub cxx {
my $line = shift; my $line = shift;
my $comment = shift || ''; my $comment = shift || '';
$cxx_output .= " " x $depth; $cxx_output .= " " x $depth;
$cxx_output .= $line; $cxx_output .= $line;
$cxx_output .= $comment if ($comment); $cxx_output .= $comment if ($comment);
$cxx_output .= "\n"; $cxx_output .= "\n";
if ($verbose) { if ($verbose) {
debug("$line"); debug("$line");
} }

Write Preview
Loading…
Cancel
Save