added --verbose run option for blast_seq

git-svn-id: http://biopieces.googlecode.com/svn/trunk@221 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_c/Maasha/src/lib/ucsc.c b/code_c/Maasha/src/lib/ucsc.c
index b349c944a900ed52a3822d7eb88417bad274dd91..92ec4d9fc6d033ceb19da1a6a3eb8181ca3d4cb2 100644 (file)
--- a/code_c/Maasha/src/lib/ucsc.c
+++ b/code_c/Maasha/src/lib/ucsc.c
@@ -89,7 +89,7 @@ void bed_split( char *string, struct bed_entry12 *bed, int cols )
         } else if ( i == 3 ) {
             bed->q_id = mem_clone( ( char * ) field, field_len );
         } else if ( i == 4 ) {
-            bed->score = strtof( field, &pt );
+//            bed->score = strtof( field, &pt );
         } else if ( i == 5 ) {
             bed->strand = field[ 0 ];
         } else if ( i == 6 ) {

diff --git a/code_c/Maasha/src/repeat-O-matic.c b/code_c/Maasha/src/repeat-O-matic.c
index 765b4ef155d35ab4dcc2d82ea0db9bc7a1afe19e..98211298e0780d2686a3285d946000dba0b425c0 100644 (file)
--- a/code_c/Maasha/src/repeat-O-matic.c
+++ b/code_c/Maasha/src/repeat-O-matic.c
@@ -18,8 +18,8 @@
 #include "fasta.h"
 
 
-// #define OLIGO_SIZE 15
-#define OLIGO_SIZE 5
+#define OLIGO_SIZE 15
+//#define OLIGO_SIZE 5
 #define SIZE ( 1 << ( OLIGO_SIZE * 2 ) )
 
 #define T 3   /* 11 on the rightmost two bits of bin. */

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index ce308a3ebcba15cd00ea1c9ef68bfb098e88e0e3..072846c1783f29aafe88befbec10dcdbe357e888 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -3473,7 +3473,41 @@ sub script_blast_seq
         }
     }
 
-    Maasha::Common::run( "blastall", "-p $options->{ 'program' } -e $options->{ 'e_val' } -a $options->{ 'cpus' } -m 8 -i $tmp_in -d $options->{ 'database' } -F $options->{ 'filter' } -o $tmp_out > /dev/null 2>&1", 1 );
+    if ( $options->{ 'verbose' } )
+    {
+        Maasha::Common::run(
+            "blastall",
+            join( " ",
+                "-p $options->{ 'program' }",
+                "-e $options->{ 'e_val' }",
+                "-a $options->{ 'cpus' }",
+                "-m 8",
+                "-i $tmp_in",
+                "-d $options->{ 'database' }",
+                "-F $options->{ 'filter' }",
+                "-o $tmp_out",
+            ),
+            1
+        );
+    }
+    else
+    {
+        Maasha::Common::run(
+            "blastall",
+            join( " ",
+                "-p $options->{ 'program' }",
+                "-e $options->{ 'e_val' }",
+                "-a $options->{ 'cpus' }",
+                "-m 8",
+                "-i $tmp_in",
+                "-d $options->{ 'database' }",
+                "-F $options->{ 'filter' }",
+                "-o $tmp_out",
+                "> /dev/null 2>&1"
+            ),
+            1
+        );
+    }
 
     unlink $tmp_in;