cleanup

git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@1138 9d0c8265-081b-0410-96cb-a4ca84ce46f8

1 files changed, 111 insertions, 82 deletions

diff --git a/converter/pgm/pgmtolispm.c b/converter/pgm/pgmtolispm.c
index 4da9ae88..230ceb6a 100644
--- a/converter/pgm/pgmtolispm.c
+++ b/converter/pgm/pgmtolispm.c
@@ -21,6 +21,8 @@
 */
 
 #include <stdio.h>
+
+#include "pm.h"
 #include "pgm.h"
 
 #define LISPM_MAGIC  "This is a BitMap file"
@@ -30,122 +32,149 @@
 static unsigned int item;
 static unsigned int bitsperitem, maxbitsperitem, bitshift;
 
-static int
-depth_to_word_size (int const depth) {
-/* Lispm architecture specific - if a bitmap is written    */
-/* out with a depth of 5, it really has a depth of 8, and  */
-/* is stored that way in the file.                         */
-
-    if (depth==0 || depth==1)   return ( 1);
-    else if (depth ==  2)       return ( 2);
-    else if (depth <=  4)       return ( 4);
-    else if (depth <=  8)       return ( 8);
-    else if (depth <= 16)       return (16);
-    else if (depth <= 32)       return (32);
-    else {
-      pm_error( "depth was %d, which is not in the range 1-32", depth );
-      return(-1);  /* Should never reach here */
-  }
+static unsigned int
+depth_to_word_size(unsigned int const depth) {
+
+    /* Lispm architecture specific - if a bitmap is written    */
+    /* out with a depth of 5, it really has a depth of 8, and  */
+    /* is stored that way in the file.                         */
+
+    unsigned int const wordSize = 
+        depth ==  1 ?  1 :
+        depth ==  2 ?  2 :
+        depth <=  4 ?  4 :
+        depth <=  8 ?  8 :
+        depth <= 16 ? 16 :
+        depth <= 32 ? 32 :
+        0;
+
+    if (wordSize == 0)
+        pm_error("depth was %u, which is not in the range 1-32", depth);
+
+    return wordSize;
 }
 
 
+
 static void
-putinit( int const cols, int const rows, int const depth )
-    {
-    int i;
-    int const cols32 = ( ( cols + 31 ) / 32 ) * 32;
-  /* Lispms are able to write bit files that are not mod32 wide, but we   */
-  /* don't.  This should be ok, since bit arrays which are not mod32 wide */
-  /* are pretty useless on a lispm (can't hand them to bitblt).           */
+putinit(unsigned int const cols,
+        unsigned int const rows,
+        unsigned int const depth) {
+
+    unsigned int const cols32 = ((cols + 31 ) / 32) * 32;
+
+    unsigned int i;
 
-    if( rows>INT16MAX || cols>INT16MAX || cols32>INT16MAX )
-      pm_error ("Input image is too large.");
+    /* Lispms are able to write bit files that are not mod32 wide, but we   */
+    /* don't.  This should be ok, since bit arrays which are not mod32 wide */
+    /* are pretty useless on a lispm (can't hand them to bitblt).           */
+
+    if (rows > INT16MAX || cols > INT16MAX || cols32 > INT16MAX)
+        pm_error("Input image is too large.");
 
     printf(LISPM_MAGIC);
 
-    pm_writelittleshort( stdout, cols );
-    pm_writelittleshort( stdout, rows );
-    pm_writelittleshort( stdout, cols32 );
+    pm_writelittleshort(stdout, cols);
+    pm_writelittleshort(stdout, rows);
+    pm_writelittleshort(stdout, cols32);
     putchar(depth & 0xFF);
 
-    for ( i = 0; i < 9; ++i )
-        putchar( 0 );   /* pad bytes */
+    for (i = 0; i < 9; ++i)
+        putchar(0);   /* pad bytes */
+
+    item           = 0;
+    bitsperitem    = 0;
+    maxbitsperitem = depth_to_word_size(depth);
+    bitshift       = 0;
+}
+
 
-    item = 0;
-    bitsperitem = 0;
-    maxbitsperitem = depth_to_word_size( depth );
-    bitshift = 0;
-    }
 
 static void
-putitem( )
-    {
-    pm_writelittlelong( stdout, ~item );
-    item = 0;
+putitem(void) {
+
+    pm_writelittlelong(stdout, ~item);
+
+    item        = 0;
     bitsperitem = 0;
-    bitshift = 0;
-    }
+    bitshift    = 0;
+}
+
 
 
 static void
-putval( gray const b )
-    {
-    if ( bitsperitem == 32 )
-        putitem( );
-    item = item | ( b << bitshift );
+putval(gray const b) {
+
+    if (bitsperitem == 32)
+        putitem();
+
+    item        = item | (b << bitshift);
     bitsperitem = bitsperitem + maxbitsperitem;
-    bitshift = bitshift + maxbitsperitem;
-    }
+    bitshift    = bitshift + maxbitsperitem;
+}
 
 
 
 static void
-putrest( )
-    {
-    if ( bitsperitem > 0 )
-        putitem( );
-    }
+putrest(void) {
+
+    if (bitsperitem > 0)
+        putitem();
+}
+
 
 
 int
-main( int argc, char * argv[] )
-    {
-    FILE* ifp;
-    gray *grayrow;
-    register gray* gP;
-    int rows, cols, depth, format, padright, row, col;
+main(int argc, const char * argv[]) {
+
+    FILE * ifP;
+    gray * grayrow;
+    int rows;
+    int cols;
+    unsigned int depth;
+    int format;
+    unsigned int padright;
+    unsigned int row;
     gray maxval;
+    const char * inputFile;
 
+    pm_proginit(&argc, argv);
 
-    pgm_init( &argc, argv );
+    if (argc-1 < 1)
+        inputFile = "-";
+    else {
+        inputFile = argv[1];
 
-    if ( argc > 2 )
-        pm_usage( "[pgmfile]" );
-    if ( argc == 2 )
-        ifp = pm_openr( argv[1] );
-    else
-        ifp = stdin;
+        if (argc-1 > 2)
+            pm_error("Too many arguments.  The only argument is the optional "
+                     "input file name");
+    }
 
-    pgm_readpgminit( ifp, &cols, &rows, &maxval, &format );
-    grayrow = pgm_allocrow( cols );
-    depth = pm_maxvaltobits( maxval );
+    pgm_readpgminit(ifP, &cols, &rows, &maxval, &format);
+
+    grayrow = pgm_allocrow(cols);
+    depth = pm_maxvaltobits(maxval);
 
     /* Compute padding to round cols up to the nearest multiple of 32. */
-    padright = ( ( cols + 31 ) / 32 ) * 32 - cols;
+    padright = ((cols + 31) / 32) * 32 - cols;
+
+    putinit(cols, rows, depth);
 
-    putinit( cols, rows, depth );
-    for ( row = 0; row < rows; ++row )
-        {
-        pgm_readpgmrow( ifp, grayrow, cols, maxval, format );
-        for ( col = 0, gP = grayrow; col < cols; ++col, ++gP )
-            putval( *gP );
-        for ( col = 0; col < padright; ++col )
-            putval( 0 );
-        }
+    for (row = 0; row < rows; ++row) {
+        unsigned int col;
 
-    pm_close( ifp );
+        pgm_readpgmrow(ifP, grayrow, cols, maxval, format);
 
-    putrest( );
+        for (col = 0; col < cols; ++col)
+            putval(grayrow[col]);
 
-    exit( 0 );
+        for (col = 0; col < padright; ++col)
+            putval(0);
     }
+
+    pm_close(ifP);
+
+    putrest();
+
+    return 0;
+}