comparison tools/btoa.c @ 0:5242703e91d3 tip

Initial checkin for AIM92 aimR8.2 (last updated May 1997).

+/*
+ btoa (binary-to-ascii) conversion.
+
+ Read numbers of given type from the input stream until eof.
+ Print each number in ascii on the stdout to the given precision.
+
+ Bugs:
+  1. When converting binary floats to ascii, and then back to binary, there
+     will be some difference between the binary files because the ascii
+     floats are printed with limited precision.
+*/
+
+
+#include <stdio.h>
+#include <math.h>
+#include "options.h"
+
+
+char applic[]     = "binary to ascii conversion." ;
+
+static char *helpstr, *debugstr, *shortstr, *intstr, *floatstr, *precstr, *typestr ;
+
+static Options option[] = {
+    {   "help"      ,   "off"       ,  &helpstr     ,   "help"          ,  DEBUG },
+    {   "debug"     ,   "off"       ,  &debugstr    ,   "debugging"     ,  DEBUG },
+    {   "type"      ,   "short"     ,  &typestr     ,   "input data type"  ,  VAL   },
+    {   "precision" ,   "3"         ,  &precstr     ,   "decimal places",  VAL   },
+    {   "short"     ,   "off"       ,  &shortstr    ,   "data type"     ,  STOG  },
+    {   "int"       ,   "off"       ,  &intstr      ,   "data type"     ,  STOG  },
+    {   "float"     ,   "off"       ,  &floatstr    ,   "data type"     ,  STOG  },
+   ( char * ) 0 } ;
+
+
+int     itype       ;   /* input datatype index  */
+int     otype       ;   /* output datatype index */
+
+main(argc, argv)
+int   argc ;
+char *argv[] ;
+{
+    FILE *fp ;
+    float y  ;
+
+    fp = openopts( option,argc,argv ) ;
+    if ( !isoff( helpstr ) )
+	helpopts( helpstr, argv[0], applic, option ) ;
+
+    PRECISION = atoi( precstr ) ;
+
+    otype = typeindex( "ascii" ) ;
+
+    if ( ( itype = typeindex( typestr ) ) < 0 ) {
+	fprintf( stderr, "atob: bad type [%s]\n", typestr ) ;
+	exit( 1 ) ;
+    }
+
+    if (      ison( shortstr ) )  itype = 1 ;   /* compatibility */
+    else if ( ison( intstr   ) )  itype = 2 ;
+    else if ( ison( floatstr ) )  itype = 3 ;
+
+    while ( readitem( &y, itype, 1, fp ) )
+	writeitem( &y, otype, 1, stdout ) ;
+
+    fclose(fp);
+}
+
+