Process calcrom options first
This commit is contained in:
8
.github/calcrom/calcrom.pl
vendored
8
.github/calcrom/calcrom.pl
vendored
@@ -5,14 +5,14 @@ use Getopt::Long;
|
|||||||
|
|
||||||
my $usage = "Usage: calcrom.pl file.map [--data]\n";
|
my $usage = "Usage: calcrom.pl file.map [--data]\n";
|
||||||
|
|
||||||
(@ARGV >= 1)
|
my $showData;
|
||||||
|
GetOptions("data" => \$showData) or die $usage;
|
||||||
|
|
||||||
|
(@ARGV == 1)
|
||||||
or die $usage;
|
or die $usage;
|
||||||
open(my $file, $ARGV[0])
|
open(my $file, $ARGV[0])
|
||||||
or die "ERROR: could not open file '$ARGV[0]'.\n";
|
or die "ERROR: could not open file '$ARGV[0]'.\n";
|
||||||
|
|
||||||
my $showData;
|
|
||||||
GetOptions("data" => \$showData) or die $usage;
|
|
||||||
|
|
||||||
my $src = 0;
|
my $src = 0;
|
||||||
my $asm = 0;
|
my $asm = 0;
|
||||||
my $srcdata = 0;
|
my $srcdata = 0;
|
||||||
|
|||||||
Reference in New Issue
Block a user