Skip to content
Snippets Groups Projects
Commit a8b7cda6 authored by Robert Martin-Legene's avatar Robert Martin-Legene
Browse files

option -v for walker.pl

parent 126dc086
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,8 @@ use warnings; ...@@ -5,7 +5,8 @@ use warnings;
use IO::File; use IO::File;
use Math::BigInt; use Math::BigInt;
use Carp; use Carp;
$Carp::Verbose = 1; $Carp::Verbose = 1;
my $verbose = 0;
die "\$BFAHOME not set. Did you source bfa/bin/env ?\n" die "\$BFAHOME not set. Did you source bfa/bin/env ?\n"
unless exists $ENV{BFAHOME}; unless exists $ENV{BFAHOME};
...@@ -332,6 +333,12 @@ my $nonce_xlate = { ...@@ -332,6 +333,12 @@ my $nonce_xlate = {
'0xffffffffffffffff' => 'SEALER_ADD', '0xffffffffffffffff' => 'SEALER_ADD',
}; };
while ( $ARGV[0] =~ m/^-/ )
{
my $arg = shift;
$verbose = 1 if $arg eq '-v';
}
$| = 1; $| = 1;
mkdir 'cache'; mkdir 'cache';
my $number = shift || tools::cat 'walker.block.last' || 'earliest'; my $number = shift || tools::cat 'walker.block.last' || 'earliest';
...@@ -374,4 +381,5 @@ while ( 1 ) ...@@ -374,4 +381,5 @@ while ( 1 )
printf "\r%s%c[J", $txt, 27 if $txt ne ''; printf "\r%s%c[J", $txt, 27 if $txt ne '';
#$block->signature; #$block->signature;
$number = $block->number + 1; $number = $block->number + 1;
print "\n" if $verbose;
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment