aboutsummaryrefslogtreecommitdiff
path: root/scripts/check-peak-detection
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2013-03-21 12:20:11 +0100
committerThomas White <taw@physics.org>2013-03-21 12:20:11 +0100
commit5586bde15ca4b023816f37b53c6d173c1ab50b7b (patch)
treec9ddf11dd97240250b7be527cdab98c2a6a5cf21 /scripts/check-peak-detection
parente170dd8566db74784b457114ba8090982939411a (diff)
scripts/check-{near-bragg,peak-detection}: Improve option processing
Diffstat (limited to 'scripts/check-peak-detection')
-rwxr-xr-xscripts/check-peak-detection6
1 files changed, 5 insertions, 1 deletions
diff --git a/scripts/check-peak-detection b/scripts/check-peak-detection
index e55bfdf8..7d9b6660 100755
--- a/scripts/check-peak-detection
+++ b/scripts/check-peak-detection
@@ -5,19 +5,23 @@ use File::Basename;
my $only;
my $file;
+my $start;
# Horrible option processing
if ( $ARGV[0] eq "--indexed" ) {
$only = "indexed";
$file = $ARGV[1];
+ $start = 2;
} elsif ( $ARGV[0] eq "--not-indexed" ) {
$only = "notindexed";
$file = $ARGV[1];
+ $start = 2;
} else {
$only = "";
$file = $ARGV[0];
+ $start = 1;
}
-my $args = join(" ", splice(@ARGV, 2, scalar(@ARGV)-1));
+my $args = join(" ", splice(@ARGV, $start, scalar(@ARGV)-1));
if ( !($args eq "") ) {
printf("Extra arguments for hdfsee: %s\n", $args);
} else {