diff --git a/flake.nix b/flake.nix index b4e13b1..1542370 100644 --- a/flake.nix +++ b/flake.nix @@ -415,7 +415,8 @@ rec { mariadb.client # dbeaver-bin # beekeeper-studio - tableplus + # tableplus + lazysql iwasm wamrc fail-bin diff --git a/scripts/Util.pm b/scripts/Util.pm index a599860..e84f395 100644 --- a/scripts/Util.pm +++ b/scripts/Util.pm @@ -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; diff --git a/scripts/menu.pl b/scripts/menu.pl index e647b5e..ca7ef42 100644 --- a/scripts/menu.pl +++ b/scripts/menu.pl @@ -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 );