Add pamtopam

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

2 files changed, 54 insertions, 1 deletions

diff --git a/converter/other/Makefile b/converter/other/Makefile
index 976c215a..3e2c2faa 100644
--- a/converter/other/Makefile
+++ b/converter/other/Makefile
@@ -81,7 +81,7 @@ PORTBINARIES =  bmptopnm fitstopnm \
 		gemtopnm giftopnm hdifftopam infotopam \
 		pamtodjvurle pamtofits pamtogif \
 		pamtohdiff pamtohtmltbl pamtooctaveimg \
-		pamtopfm pamtopnm pamtouil \
+		pamtopam pamtopfm pamtopnm pamtouil \
 		pamtoxvmini \
 		pbmtopgm pfmtopam \
 	        pgmtopbm pgmtoppm ppmtopgm pnmtoddif \
diff --git a/converter/other/pamtopam.c b/converter/other/pamtopam.c
new file mode 100644
index 00000000..d1a88fd6
--- /dev/null
+++ b/converter/other/pamtopam.c
@@ -0,0 +1,53 @@
+/*----------------------------------------------------------------------------
+                               pamtopam
+------------------------------------------------------------------------------
+  Part of the Netpbm package.
+
+  Copy PAM and PNM (i.e. PBM, PGM, or PPM) images from Standard Input
+  to Standard Output (while converting PNM images to PAM)
+-----------------------------------------------------------------------------*/
+
+#include "pm_c_util.h"
+#include "pam.h"
+
+int
+main(int argc, char *argv[]) {
+
+    bool       eof;     /* no more images in input stream */
+    struct pam inpam;   /* Input PAM image */
+    struct pam outpam;  /* Output PAM image */
+
+    pm_proginit(&argc, argv);
+
+    if (argc-1 != 0)
+        pm_error("Program takes no arguments.  Input is from Standard Input");
+
+    eof = FALSE;
+    while (!eof) {
+        pnm_readpaminit(stdin, &inpam, PAM_STRUCT_SIZE(tuple_type));
+
+        outpam = inpam;
+        outpam.file = stdout;
+        outpam.format = PAM_FORMAT;
+
+        pnm_writepaminit(&outpam);
+
+        {
+            tuple * tuplerow;
+
+            tuplerow = pnm_allocpamrow(&inpam);
+            {
+                unsigned int row;
+
+                for (row = 0; row < inpam.height; ++row) {
+                    pnm_readpamrow(&inpam, tuplerow);
+                    pnm_writepamrow(&outpam, tuplerow);
+                }
+            }
+            pnm_freepamrow(tuplerow);
+        }
+        pnm_nextimage(stdin, &eof);
+    }
+
+    return 0;
+}