Add routines for integer byte order conversions, floating point format

[pspp-builds.git] / src / language / lexer / lexer.c

diff --git a/src/language/lexer/lexer.c b/src/language/lexer/lexer.c
index 452eb7e7beee0ca91471022b42ecf3cd8c05d9ea..9f9e433815ef5bbb6a2219e619c549e31d307929 100644 (file)
--- a/src/language/lexer/lexer.c
+++ b/src/language/lexer/lexer.c
@@ -1067,6 +1067,9 @@ convert_numeric_string_to_char_string (enum string_type type)
 static int 
 parse_string (enum string_type type)
 {
+  if (type != CHARACTER_STRING)
+    prog++;
+
   /* Accumulate the entire string, joining sections indicated by +
      signs. */
   for (;;)
@@ -1160,24 +1163,6 @@ finish:
       ds_truncate (&tokstr, 255);
     }
       
-  {
-    /* FIXME. */
-    size_t i;
-    int warned = 0;
-
-    for (i = 0; i < ds_length (&tokstr); i++)
-      if (ds_cstr (&tokstr)[i] == 0)
-       {
-         if (!warned)
-           {
-             msg (SE, _("Sorry, literal strings may not contain null "
-                        "characters.  Replacing with spaces."));
-             warned = 1;
-           }
-         ds_cstr (&tokstr)[i] = ' ';
-       }
-  }
-
   return T_STRING;
 }
 \f