christoph/failnix
1
Fork 0
Code Releases Activity

only deploy "fail" targets, only gdb "linux" targets, only import new results into ghidra

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-21 01:06:57 +02:00
parent 0dbcaf68cd
commit 51fb2ef4d4
2 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/deploy.pl
View File

@ -22,7 +22,7 @@ my $remote_runner = "$remote_root/scripts/runner.pl";
my $remote_log = "$remote_root/runner.log"; my $remote_log = "$remote_root/runner.log";
# Upload new experiments # Upload new experiments
my @experiments = Util::find_subdirs($local_builds_dir); my @experiments = grep { /fail/ } Util::find_subdirs($local_builds_dir);
my @selected_experiments = my @selected_experiments =
TUI::select_from_list( "Select Experiments to Run", 1, @experiments ); TUI::select_from_list( "Select Experiments to Run", 1, @experiments );
die "No experiment selected" unless @selected_experiments; die "No experiment selected" unless @selected_experiments;

17
scripts/menu.pl
View File

@ -74,8 +74,19 @@ my %handlers = (
'05. Import Experiments Into Ghidra' => sub { '05. Import Experiments Into Ghidra' => sub {
my @existing = Util::find_files($local_ghidra_projects);
my $is_old = sub {
my ($name) = @_;
$name =~ s/:/-/g;
return grep { /^$name.gpr$/ } @existing;
};
# Import archived experiments into ghidra # Import archived experiments into ghidra
my @dirs = Util::find_subdirs($local_archive_dir); my @dirs =
grep { !$is_old->($_) } Util::find_subdirs($local_archive_dir);
my @selected_dirs = my @selected_dirs =
TUI::select_from_list( "Select Experiments to Import", 1, @dirs ); TUI::select_from_list( "Select Experiments to Import", 1, @dirs );
foreach (@selected_dirs) { foreach (@selected_dirs) {
@ -128,7 +139,7 @@ my %handlers = (
}, },
'13. Run Build in GDB' => sub { '13. Run Build in GDB' => sub {
my @builds = Util::find_subdirs($local_builds_dir); my @builds = grep { /linux/ } Util::find_subdirs($local_builds_dir);
my @selected_builds = my @selected_builds =
TUI::select_from_list( "Select Build to Run", 0, @builds ); TUI::select_from_list( "Select Build to Run", 0, @builds );
die "No experiment selected" unless @selected_builds; die "No experiment selected" unless @selected_builds;
@ -161,8 +172,6 @@ my %handlers = (
'break fail_marker_detected', 'break fail_marker_detected',
'-ex', '-ex',
'break fail_marker_negative', 'break fail_marker_negative',
'-ex',
'run',
); );
}, },