christoph/failnix
1
Fork 0
Code Releases Activity

add lazysql menu action

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-24 00:25:06 +02:00
parent 5da8fffed0
commit 348aac20ae
3 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
flake.nix
View File

@ -415,7 +415,8 @@ rec {
mariadb.client
# dbeaver-bin
# beekeeper-studio
tableplus
# tableplus
lazysql
iwasm
wamrc
fail-bin

3
scripts/Util.pm
View File

@ -255,8 +255,7 @@ sub select_experiment {
}
my @selected_experiments =
TUI::select_from_list( "Select Archived Experiment to Open",
$multi, @exp_with_notes );
TUI::select_from_list( "Select Experiment", $multi, @exp_with_notes );
die "No experiment selected" unless @selected_experiments;
map { s/(.*?)\s+\(Note:.+\)$/$1/ } @selected_experiments;

21
scripts/menu.pl
View File

@ -41,6 +41,10 @@ my $resultbrowser = 'resultbrowser.py';
my $remote_root = '/home/lab/smchurla/Documents/failnix';
my $remote_builds_dir = "$remote_root/builds";
my $db_host = "127.0.0.1";
my $db_port = "3306";
my $db_user = "smchurla";
my %handlers = (
'01. Build Experiments' => sub { do "$local_scripts_dir/build.pl"; },
@ -238,7 +242,18 @@ my %handlers = (
"--port=$resultbrowser_port" );
},
'14. Compare Experiment Results' => sub {
'14. Open Database in LazySQL' => sub {
my $experiment =
Util::select_experiment(0) =~ s/T(\d\d)-(\d\d)-(\d\d)/T$1:$2:$3/r;
my $ssh = Mars::ssh_connect();
my $db_password = Mars::read_db_password_file();
system( 'lazysql', '-read-only',
"mariadb://$db_user:$db_password\@$db_host:$db_port/${db_user}_$experiment"
);
},
'15. Compare Experiment Results' => sub {
my @selected_experiments = Util::select_experiment(1);
@ -304,7 +319,7 @@ my %handlers = (
0, @entries );
},
'15. Plot Results' => sub {
'16. Plot Results' => sub {
# Generate R ggplot2 charts
my @experiments = Util::find_subdirs($local_archive_dir);
@ -341,7 +356,7 @@ my %handlers = (
}
},
'16. Run Build in GDB' => sub {
'17. Run Build in GDB' => sub {
my @builds = grep { /linux/ } Util::find_subdirs($local_builds_dir);
my @selected_builds =
TUI::select_from_list( "Select Build to Run in GDB", 0, @builds );