Sat Dec 27 16:16:49 2003 Ben Pfaff <blp@gnu.org>

[pspp-builds.git] / src / data-in.c

diff --git a/src/data-in.c b/src/data-in.c
index 04c035d4f66fe2eb57f80d0e7ad7e56abb9d8243..eca83d0b44a96764d18b69171a15644284ad4bee 100644 (file)
--- a/src/data-in.c
+++ b/src/data-in.c
@@ -18,6 +18,7 @@
    02111-1307, USA. */
 
 #include <config.h>
+#include "data-in.h"
 #include <assert.h>
 #include <math.h>
 #include <ctype.h>
@@ -25,7 +26,6 @@
 #include <stddef.h>
 #include <stdio.h>
 #include <stdlib.h>
-#include "data-in.h"
 #include "error.h"
 #include "getline.h"
 #include "julcal/julcal.h"
@@ -36,8 +36,6 @@
 #include "str.h"
 #include "var.h"
 \f
-#undef DEBUGGING
-/*#define DEBUGGING 1 */
 #include "debug-print.h"
 
 \f
@@ -288,6 +286,7 @@ parse_N (struct data_in *i)
 {
   const unsigned char *cp;
 
+  i->v->f = 0;
   for (cp = i->s; cp < i->e; cp++)
     {
       if (!isdigit (*cp))
@@ -451,14 +450,13 @@ parse_IB (struct data_in *i)
 
   /* We want the data to be in big-endian format.  If this is a
      little-endian machine, reverse the byte order. */
-  if (endian == LITTLE)
-    {
-      memcpy (buf, i->s, i->e - i->s);
-      mm_reverse (buf, i->e - i->s);
-      p = buf;
-    }
-  else
-    p = i->s;
+#ifdef WORDS_BIGENDIAN
+  p = i->s;
+#else
+  memcpy (buf, i->s, i->e - i->s);
+  mm_reverse (buf, i->e - i->s);
+  p = buf;
+#endif
 
   /* If the value is negative, we need to logical-NOT each value
      before adding it. */
@@ -492,12 +490,13 @@ parse_PIB (struct data_in *i)
   int j;
 
   i->v->f = 0.0;
-  if (endian == BIG)
-    for (j = 0; j < i->e - i->s; j++)
-      i->v->f = i->v->f * 256.0 + i->s[j];
-  else
-    for (j = i->e - i->s - 1; j >= 0; j--)
-      i->v->f = i->v->f * 256.0 + i->s[j];
+#if WORDS_BIGENDIAN
+  for (j = 0; j < i->e - i->s; j++)
+    i->v->f = i->v->f * 256.0 + i->s[j];
+#else
+  for (j = i->e - i->s - 1; j >= 0; j--)
+    i->v->f = i->v->f * 256.0 + i->s[j];
+#endif
 
   if (i->format.d)
     i->v->f /= pow (10.0, i->format.d);
@@ -574,11 +573,6 @@ parse_A (struct data_in *i)
       memset (i->v->s + len, ' ', i->format.w - len);
     }
 
-#if __CHECKER__
-  memset (i->v->s + i->format.w, '%',
-         REM_RND_UP (i->format.w, MAX_SHORT_STRING));
-#endif
-  
   return 1;
 }
 
@@ -613,11 +607,6 @@ parse_AHEX (struct data_in *i)
     memset (i->v->s + (i->e - i->s) / 2, ' ', (i->format.w - (i->e - i->s)) / 2);
   }
   
-#if __CHECKER__
-  memset (i->v->s + i->format.w / 2, '%',
-         REM_RND_UP (i->format.w / 2, MAX_SHORT_STRING));
-#endif
-
   return 1;
 }
 \f
@@ -1497,13 +1486,7 @@ default_result (struct data_in *i)
 
   /* Default to SYSMIS or blanks. */
   if (fmt->cat & FCAT_STRING)
-    {
-#if __CHECKER__
-      memset (i->v->s, ' ', ROUND_UP (i->format.w, MAX_SHORT_STRING));
-#else
-      memset (i->v->s, ' ', i->format.w);
-#endif
-    }
+    memset (i->v->s, ' ', i->format.w);
   else
     i->v->f = set_blanks;
 }