mirror of
https://github.com/radareorg/radare2.git
synced 2024-11-26 22:50:48 +00:00
020686b86f
- Use it from p/debug - Now is possible to debug programs with arguments - Added test program in util/t/argv * Fix pd/pD * Clean and fix the native debugger plugin * More random code syntax cleanup * Rename io plugin names without the deprecated 'io_' prefix * Fix mk/stat-make.pl (missing ;)
28 lines
525 B
Perl
28 lines
525 B
Perl
#!/usr/bin/perl #
|
|
# ------------- #
|
|
my $level = 0;
|
|
my $path = "";
|
|
my $ofile = "";
|
|
while(<STDIN>) {
|
|
if (/Entering directory `(.*)'/) {
|
|
$path = $1;
|
|
if ($level>0) {
|
|
print " |"x$level;
|
|
@str=split('/', $1);
|
|
print "- ".$str[$#str]."\n";
|
|
}
|
|
$level++;
|
|
}
|
|
--$level if (/Leaving directory `(.*)'/);
|
|
s/warning:/\x1b[32mwarning\x1b[0m:/;
|
|
s/error:/\x1b[31merror\x1b[0m:/;
|
|
if (/\..:/) {
|
|
s/:/\n\t/;
|
|
/(.*):/;
|
|
$file = $1;
|
|
print "$path/$_" if ($file ne $ofile);
|
|
$ofile = $file;
|
|
}
|
|
#{ print "$path/".$line; }
|
|
}
|