X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fvalue-labels.c;h=a1310227f4b655328e5ba79d427be2e507330fb7;hb=c708736bdd0fea4b79f3ee4a10e00c3abb95d9e3;hp=976d54790965ff26ab6598216ea9de72ecb9ca00;hpb=a19b858e0ac3c69e4a28c0ca6d8674427268a863;p=pspp diff --git a/src/language/dictionary/value-labels.c b/src/language/dictionary/value-labels.c index 976d547909..a1310227f4 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 + +#include +#include +#include #include -#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);