X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fvalue-labels.c;h=a1310227f4b655328e5ba79d427be2e507330fb7;hb=9956f167d1db0f91ed35f9fb28b711586a416d42;hp=96b80ba735294adad2dd73852c464eed45c3f933;hpb=dcf9b154cbcaa35c3d8459a201b77eec8bcb30bd;p=pspp-builds.git diff --git a/src/language/dictionary/value-labels.c b/src/language/dictionary/value-labels.c index 96b80ba7..a1310227 100644 --- a/src/language/dictionary/value-labels.c +++ b/src/language/dictionary/value-labels.c @@ -18,16 +18,20 @@ 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 #include "gettext.h" #define _(msgid) gettext (msgid) @@ -92,17 +96,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 @@ -157,7 +158,7 @@ get_label (struct variable **vars, size_t var_cnt) lex_error (_("expecting string")); return 0; } - buf_copy_str_rpad (value.s, MAX_SHORT_STRING, ds_c_str (&tokstr)); + buf_copy_str_rpad (value.s, MAX_SHORT_STRING, ds_cstr (&tokstr)); } else { @@ -180,7 +181,7 @@ get_label (struct variable **vars, size_t var_cnt) msg (SW, _("Truncating value label to 60 characters.")); ds_truncate (&tokstr, 60); } - label = ds_c_str (&tokstr); + label = ds_cstr (&tokstr); for (i = 0; i < var_cnt; i++) val_labs_replace (vars[i]->val_labs, value, label);