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

17
scripts/menu.pl
View File

@ -74,8 +74,19 @@ my %handlers = (
'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
my @dirs = Util::find_subdirs($local_archive_dir);
my @dirs =
grep { !$is_old->($_) } Util::find_subdirs($local_archive_dir);
my @selected_dirs =
TUI::select_from_list( "Select Experiments to Import", 1, @dirs );
foreach (@selected_dirs) {
@ -128,7 +139,7 @@ my %handlers = (
},
'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 =
TUI::select_from_list( "Select Build to Run", 0, @builds );
die "No experiment selected" unless @selected_builds;
@ -161,8 +172,6 @@ my %handlers = (
'break fail_marker_detected',
'-ex',
'break fail_marker_negative',
'-ex',
'run',
);
},