add curses entry point for scripts (archival, ghidra import, plots, queries, cleanup)

scripts/Queries/ResultsData.pm

@@ -0,0 +1,28 @@
+package Queries::ResultsData;
+
+use strict;
+use warnings;
+use diagnostics;
+
+sub query {
+    my ($experiment) = @_;
+
+    return "SELECT
+benchmark, resulttype, sum(t.time2 - t.time1 + 1) AS faults
+FROM variant v
+JOIN trace t ON v.id = t.variant_id
+JOIN fspgroup g ON g.variant_id = t.variant_id AND g.instr2 = t.instr2 AND g.data_address = t.data_address
+JOIN result_GenericExperimentMessage r ON r.pilot_id = g.pilot_id
+JOIN fsppilot p ON r.pilot_id = p.id
+WHERE v.variant = '$experiment'
+GROUP BY v.id, resulttype
+ORDER BY variant, benchmark, resulttype;";
+}
+
+sub args { return "--batch --raw"; }
+
+sub filename { return "resultsdata.csv"; }
+
+sub postprocess { $_[0] =~ s/\t/,/g; }
+
+1;