[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pspp-cvs] Changes to pspp/src/q2c.c
From: |
Ben Pfaff |
Subject: |
[Pspp-cvs] Changes to pspp/src/q2c.c |
Date: |
Sun, 06 Mar 2005 22:04:54 -0500 |
Index: pspp/src/q2c.c
diff -u pspp/src/q2c.c:1.20 pspp/src/q2c.c:1.21
--- pspp/src/q2c.c:1.20 Mon Feb 7 02:12:02 2005
+++ pspp/src/q2c.c Mon Mar 7 03:04:50 2005
@@ -1461,7 +1461,7 @@
if (s->value == VAL_INT)
{
- dump (1, "if (!lex_integer_p ())");
+ dump (1, "if (!lex_is_integer ())");
dump (1, "{");
dump (0, "msg (SE, _(\"%s specifier of %s subcommand "
"requires an integer argument.\"));",
@@ -1473,7 +1473,7 @@
}
else
{
- dump (1, "if (token != T_NUM)");
+ dump (1, "if (!lex_is_number ())");
dump (1, "{");
dump (0, "msg (SE, _(\"Number expected after %s "
"specifier of %s subcommand.\"));",
@@ -1661,7 +1661,7 @@
{
dump (1, "if (!lex_force_num ())");
dump (0, "goto lossage;");
- dump (-1, "p->n_%s[p->sbc_%s - 1] = lex_double ();",
+ dump (-1, "p->n_%s[p->sbc_%s - 1] = lex_number ();",
st_lower (sbc->name), st_lower (sbc->name) );
dump (0, "lex_get();");
}
@@ -1713,7 +1713,7 @@
dump (0, "goto lossage;");
dump (-1,"}");
- dump (0, "subc_list_double_push(&p->dl_%s[p->sbc_%s-1],lex_double ());",
+ dump (0, "subc_list_double_push(&p->dl_%s[p->sbc_%s-1],lex_number ());",
st_lower (sbc->name),st_lower (sbc->name)
);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Pspp-cvs] Changes to pspp/src/q2c.c,
Ben Pfaff <=