X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fdelete-variables.c;h=1063b1652e6abe0b549162f5ad40f31b1f28d5e4;hb=4fea709b5f138c4087954b57664d5f171e02a399;hp=ded5c48ad3c99829db7a8735a432a0a8cffd47f4;hpb=37f29caf8a75a4eb9d2059814786dad10edb13fc;p=pspp diff --git a/src/language/dictionary/delete-variables.c b/src/language/dictionary/delete-variables.c index ded5c48ad3..1063b1652e 100644 --- a/src/language/dictionary/delete-variables.c +++ b/src/language/dictionary/delete-variables.c @@ -22,6 +22,7 @@ #include "data/dataset.h" #include "data/dictionary.h" #include "language/command.h" +#include "language/lexer/lexer.h" #include "language/lexer/variable-parser.h" #include "libpspp/message.h" @@ -33,17 +34,18 @@ int cmd_delete_variables (struct lexer *lexer, struct dataset *ds) { struct variable **vars; - size_t var_cnt; + size_t n_vars; bool ok; if (proc_make_temporary_transformations_permanent (ds)) - msg (SE, _("%s may not be used after %s. " - "Temporary transformations will be made permanent."), - "DELETE VARIABLES", "TEMPORARY"); + lex_ofs_error (lexer, 0, lex_ofs (lexer) - 1, + _("%s may not be used after %s. " + "Temporary transformations will be made permanent."), + "DELETE VARIABLES", "TEMPORARY"); - if (!parse_variables (lexer, dataset_dict (ds), &vars, &var_cnt, PV_NONE)) + if (!parse_variables (lexer, dataset_dict (ds), &vars, &n_vars, PV_NONE)) goto error; - if (var_cnt == dict_get_var_cnt (dataset_dict (ds))) + if (n_vars == dict_get_n_vars (dataset_dict (ds))) { msg (SE, _("%s may not be used to delete all variables " "from the active dataset dictionary. " @@ -56,7 +58,7 @@ cmd_delete_variables (struct lexer *lexer, struct dataset *ds) if (!ok) goto error; - dict_delete_vars (dataset_dict (ds), vars, var_cnt); + dict_delete_vars (dataset_dict (ds), vars, n_vars); /* XXX A bunch of bugs conspire to make executing transformations again here necessary, even though it shouldn't be.