X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fvalue-labels.c;h=89e0160a82d21ce7a85716e39f250fe749c79ae5;hb=5e89e0049bd55f22412f547d8d7bfefc69443e98;hp=96b80ba735294adad2dd73852c464eed45c3f933;hpb=dcf9b154cbcaa35c3d8459a201b77eec8bcb30bd;p=pspp diff --git a/src/language/dictionary/value-labels.c b/src/language/dictionary/value-labels.c index 96b80ba735..89e0160a82 100644 --- a/src/language/dictionary/value-labels.c +++ b/src/language/dictionary/value-labels.c @@ -18,16 +18,19 @@ 02110-1301, USA. */ #include + #include #include -#include "alloc.h" -#include "command.h" -#include "message.h" -#include "hash.h" -#include "lexer.h" -#include "str.h" -#include "value-labels.h" -#include "variable.h" + +#include +#include +#include +#include +#include +#include +#include +#include +#include #include "gettext.h" #define _(msgid) gettext (msgid) @@ -92,17 +95,14 @@ do_value_labels (int erase) 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