Changeset 39002 for trunk/tools/bills/comparep2detections

Timestamp:

Oct 29, 2015, 11:03:02 AM (11 years ago)

Author:

bills

Message:

various cleanup primarily removing hard coded refereces to bill's environment and test locations

File:

• trunk/tools/bills/comparep2detections (modified) (4 diffs)

trunk/tools/bills/comparep2detections

@@ -12 +12 @@
 my $in;
 my $out;
-my $ofmt;
-my $stiltsJar = '/home/panstarrs/bills/jars/stilts.jar';
-my $stilts = "java -jar $stiltsJar";
 
-my $test = 1;
+my $testdata;
 
 my ($verbose, $save_temps);
 
 GetOptions(
-    "test"              =>  \$test,
-    "ofmt=s"            =>  \$ofmt,
+    "testdata=s"        =>  \$testdata,
     "join=s"            =>  \$joinType,
     "verbose|v"         =>  \$verbose,
@@ -28 +24 @@
 ) or pod2usage( 2 );
 
-die "usage: $0 [--ofmt <ofmt>] <p2 batch file> [<out>]\n" unless (scalar @ARGV == 1) or (scalar @ARGV == 2);
+die "usage: $0 <p2 batch file> [<out>]\n" unless (scalar @ARGV == 2);
 
 $in = shift;
 $out = shift;
 
+my $jardir = $ENV{JARDIR};
+unless ($jardir) {
+    $jardir = '/home/panstarrs/bills/jars' unless $jardir;
+    print STDERR "JARDIR envrionment variable not found. Using $jardir\n" if $verbose;
+    # add it to the enviorment so that the other programs can use it
+    $ENV{JARDIR} = $jardir;
+}
+my $stiltsJar = "$jardir/stilts.jar";
+my $stilts = "java -jar $stiltsJar";
+
+# file name for concatenated detection extensions
 my $detcat = "cat." . basename($in);
 
 runcommand( "concatp2batch $in $detcat");
 
-# find exp_id. XXX: we could use batch name for this or require user to find this
+# find exp_id. XXX: I think that we could use file batch name for this or require user to supply it as an argument
 my $command = "$stilts tcat in=$detcat icmd='head 1;keepcols imageID;' ofmt=ascii | grep -v '#'";
 my $imageID = `$command`;
@@ -46 +53 @@
 
 my $smf;
-if ($test) {
-    # XXX: make an option
-    my $testdata = "/data/ippc19.0/home/bills/ipp/ippToPsps/test/testdata";
+if ($testdata) {
+#    my $testdata = "/data/ippc19.0/home/bills/ipp/ippToPsps/test/testdata";
     $smf = sprintf "%s/test.%02d.smf", $testdata, $exp_id;
 } else {
@@ -58 +64 @@
 
 $command = "concatsmf $smf $ippcat";
-$command .= " --test" if $test;
+$command .= " --test" if $testdata;
 
 runcommand($command);