replace build.just with compile.pl
This commit is contained in:
@ -14,19 +14,14 @@ use Text::CSV_XS;
|
||||
|
||||
use feature 'say';
|
||||
|
||||
# TODO: Less navigation if the object is selected first, then the action
|
||||
# - Differentiate between local/remote object
|
||||
# - List all types in the same list?
|
||||
# - Select actions afterwards and apply fitting ones all in one go
|
||||
# - Hide unfeasible actions
|
||||
# TODO: Much can be extracted into utility functions
|
||||
|
||||
my $local_obsidian = '/home/christoph/Notes/Obsidian/Chriphost';
|
||||
my $local_obsidian_attach = "$local_obsidian/attach";
|
||||
|
||||
my $local_wamr = '/home/christoph/Notes/TU/MastersThesis/05 WAMR';
|
||||
my $local_newlib = '/home/christoph/Notes/TU/MastersThesis/07 NewLib';
|
||||
my $local_root = '/home/christoph/Notes/TU/MastersThesis/FailNix';
|
||||
my $local_wamr = "$local_root/wamr";
|
||||
my $local_scripts_dir = "$local_root/scripts";
|
||||
my $local_builds_dir = "$local_root/builds";
|
||||
my $local_archive_dir = "$local_root/injections";
|
||||
@ -405,8 +400,7 @@ my %handlers = (
|
||||
my $selected_build = $selected_builds[0];
|
||||
|
||||
my $build_dir = "$local_builds_dir/$selected_build";
|
||||
my $build_name = $selected_build =~ s/.*-.*-.*:.*:.*?_(.*)-.*-.*/$1/r;
|
||||
my $module_source = "$local_root/build-$build_name";
|
||||
my $build_name = $selected_build =~ s/.*?_.*?_(.*?)_.*$/$1/r;
|
||||
|
||||
say "$build_name";
|
||||
|
||||
@ -418,7 +412,7 @@ my %handlers = (
|
||||
'-ex',
|
||||
'set disassembly-flavor intel',
|
||||
'-ex',
|
||||
"set substitute-path '$module_source' '$build_dir'",
|
||||
"set substitute-path 'build-$build_name' '$build_dir'",
|
||||
'-ex',
|
||||
"set substitute-path '/build/source/core' '$local_wamr/core'",
|
||||
'-ex',
|
||||
@ -433,6 +427,16 @@ my %handlers = (
|
||||
'break fail_marker_detected',
|
||||
'-ex',
|
||||
'break fail_marker_negative',
|
||||
'-ex',
|
||||
'break fail_marker_group1',
|
||||
'-ex',
|
||||
'break os_mmap',
|
||||
'-ex',
|
||||
'break wamr_malloc',
|
||||
'-ex',
|
||||
'break wamr_realloc',
|
||||
'-ex',
|
||||
'break wamr_free',
|
||||
);
|
||||
},
|
||||
|
||||
|
||||
Reference in New Issue
Block a user