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

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

+/*
+  stof.c        binary short-to-float conversion.
+ --------
+
+*/
+
+#include <stdio.h>
+#include <math.h>
+#include "options.h"
+
+char applic[]     = "short to float data-type conversion." ;
+
+static char *helpstr ;
+
+static Options option[] = {
+    {   "help"      ,   "off"       ,  &helpstr     ,   "help"          ,  DEBUG     },
+   ( char * ) 0 } ;
+
+
+main(argc, argv)
+int   argc ;
+char *argv[] ;
+{
+    FILE  *fp ;
+    short  X;
+    float  Y;
+
+    fp = openopts( option,argc,argv ) ;
+    if ( !isoff( helpstr ) )
+	helpopts( helpstr, argv[0], applic, option ) ;
+
+    while ( fread( &X, sizeof(short), 1, fp ) ) {
+	Y = (float)X ;
+	fwrite( &Y, sizeof(float), 1, stdout);
+    }
+
+    fclose(fp);
+    exit(0);
+}
+
+