Rewritten the t-test (no calculations yet).

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

diff --git a/src/lexer.c b/src/lexer.c
index edcc5a2ae381498d901ae1589c4daf6292715d2f..94793bfb9557d4d0191b411c93405bc09fcd98e2 100644 (file)
--- a/src/lexer.c
+++ b/src/lexer.c
@@ -34,7 +34,9 @@
 #include "settings.h"
 #include "str.h"
 
-/*#define DUMP_TOKENS 1*/
+/*
+#define DUMP_TOKENS 1
+*/
 
 \f
 /* Global variables. */
@@ -159,6 +161,7 @@ lex_get (void)
            }
        }
 
+
       /* Actually parse the token. */
       cp = prog;
       ds_clear (&tokstr);
@@ -409,6 +412,23 @@ lex_integer (void)
   assert (lex_integer_p ());
   return tokval;
 }
+/* Returns nonzero if the current token is an floating point. */
+int
+lex_double_p (void)
+{
+  return ( token == T_NUM
+          && tokval != NOT_DOUBLE );
+}
+
+/* Returns the value of the current token, which must be a
+   floating point number. */
+long
+lex_double (void)
+{
+  assert (lex_double_p ());
+  return tokval;
+}
+
 \f  
 /* Token matching functions. */