new mafft v 6.857 with extensions

[jabaws.git] / binaries / src / mafft / core / countlen.c

diff --git a/binaries/src/mafft/core/countlen.c b/binaries/src/mafft/core/countlen.c
new file mode 100644 (file)
index 0000000..3cb7030
--- /dev/null
+++ b/binaries/src/mafft/core/countlen.c
@@ -0,0 +1,61 @@
+#include "mltaln.h"
+
+#define DEBUG 0
+
+void arguments( int argc, char *argv[] )
+{
+    int c;
+
+    while( --argc > 0 && (*++argv)[0] == '-' )
+       {
+        while ( (c = *++argv[0]) )
+               {
+            switch( c )
+            {
+                               case 'i':
+                                       inputfile = *++argv;
+                                       fprintf( stderr, "inputfile = %s\n", inputfile );
+                                       --argc;
+                                       goto nextoption;
+                default:
+                    fprintf( stderr, "illegal option %c\n", c );
+                    argc = 0;
+                    break;
+            }
+               }
+               nextoption:
+                       ;
+       }
+    if( argc != 0 ) 
+    {
+        fprintf( stderr, "options: Check source file !\n" );
+        exit( 1 );
+    }
+}
+
+
+int main( int argc, char *argv[] )
+{
+       FILE *infp;
+       int nlenmin;
+
+       arguments( argc, argv );
+
+       if( inputfile )
+       {
+               infp = fopen( inputfile, "r" );
+               if( !infp )
+               {
+                       fprintf( stderr, "Cannot open %s\n", inputfile );
+                       exit( 1 );
+               }
+       }
+       else
+               infp = stdin;
+
+       dorp = NOTSPECIFIED;
+       getnumlen_nogap( infp, &nlenmin );
+
+       fprintf( stdout, "%d x %d - %d %c\n", njob, nlenmax, nlenmin, dorp );
+       return( 0 );
+}