From e0624a10f7b8a361b0325e66140e553d50d7345a Mon Sep 17 00:00:00 2001
From: Christoph Urlacher <christoph.urlacher@protonmail.com>
Date: Thu, 7 May 2026 21:39:23 +0200
Subject: [PATCH] show experiment info when dropping databases in menu

---
 scripts/Util.pm                               |  3 ++-
 scripts/menu.pl                               | 20 +++++++++++++++++--
 ...repl_naive_late.cpp => sum1_repl_late.cpp} |  0
 ...pl_naive_early.cpp => sum3_repl_early.cpp} |  0
 4 files changed, 20 insertions(+), 3 deletions(-)
 rename targets/wasm-module/{sum1_repl_naive_late.cpp => sum1_repl_late.cpp} (100%)
 rename targets/wasm-module/{sum3_repl_naive_early.cpp => sum3_repl_early.cpp} (100%)

diff --git a/scripts/Util.pm b/scripts/Util.pm
index 90db16e..ace7009 100644
--- a/scripts/Util.pm
+++ b/scripts/Util.pm
@@ -260,7 +260,8 @@ sub select_experiment {
       TUI::select_from_list( "Select Experiment", $multi, @exp_with_notes );
     die "No experiment selected" unless @selected_experiments;
 
-    map { s/(.*?)\s+\(.+\)$/$1/ } @selected_experiments;
+    @selected_experiments =
+      map { s/(.*?)\s+\(.+\)$/$1/r } @selected_experiments;
 
     return $multi == 1 ? @selected_experiments : $selected_experiments[0];
 }
diff --git a/scripts/menu.pl b/scripts/menu.pl
index 0e5d775..faa01d7 100644
--- a/scripts/menu.pl
+++ b/scripts/menu.pl
@@ -109,6 +109,7 @@ my %handlers = (
 
         my @existing = Util::find_files($local_ghidra_projects);
 
+        # Determine if an experiment was already imported
         my $is_old = sub {
             my ($name) = @_;
             $name =~ s/:/-/g;
@@ -504,11 +505,26 @@ my %handlers = (
     '99. Drop Databases (Mars)' => sub {
 
         # Drop databases on mars
-        my @db_names = Mars::db_list();
+        my @dbs = Mars::db_list();
+        my @dbs_with_notes;
+        foreach my $db (@dbs) {
+            my $info =
+              Util::read_experiment_info( $db =~ s/smchurla_//r =~ s/:/-/gr );
+
+            push @dbs_with_notes,
+              ( defined $info && length($info) > 0 )
+              ? sprintf( "%-60s (%s)", $db, $info )
+              : $db;
+        }
+
         my @selected_dbs =
           TUI::select_from_list( "Select Databases to Drop from Mars",
-            1, @db_names );
+            1, @dbs_with_notes );
         die "No database selected" unless @selected_dbs;
+
+        @selected_dbs =
+          map { s/(.*?)\s+\(.+\)$/$1/r } @selected_dbs;
+
         Mars::db_drop($_) for @selected_dbs;
     },
 );
diff --git a/targets/wasm-module/sum1_repl_naive_late.cpp b/targets/wasm-module/sum1_repl_late.cpp
similarity index 100%
rename from targets/wasm-module/sum1_repl_naive_late.cpp
rename to targets/wasm-module/sum1_repl_late.cpp
diff --git a/targets/wasm-module/sum3_repl_naive_early.cpp b/targets/wasm-module/sum3_repl_early.cpp
similarity index 100%
rename from targets/wasm-module/sum3_repl_naive_early.cpp
rename to targets/wasm-module/sum3_repl_early.cpp