02110-1301, USA. */
#include <config.h>
+
#include <stdio.h>
#include <stdlib.h>
-#include <libpspp/alloc.h>
+
+#include <procedure.h>
+#include <data/value-labels.h>
+#include <data/variable.h>
#include <language/command.h>
-#include <libpspp/message.h>
-#include <libpspp/hash.h>
#include <language/lexer/lexer.h>
+#include <libpspp/alloc.h>
+#include <libpspp/hash.h>
+#include <libpspp/message.h>
#include <libpspp/str.h>
-#include <data/value-labels.h>
-#include <data/variable.h>
#include "gettext.h"
#define _(msgid) gettext (msgid)
free (vars);
}
- if (token != '.')
- {
- lex_error (NULL);
- return CMD_TRAILING_GARBAGE;
- }
+ if (parse_err)
+ return CMD_FAILURE;
- return parse_err ? CMD_PART_SUCCESS_MAYBE : CMD_SUCCESS;
+ return lex_end_of_command ();
lossage:
free (vars);
- return CMD_PART_SUCCESS_MAYBE;
+ return CMD_FAILURE;
}
/* Verifies that none of the VAR_CNT variables in VARS are long