X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fweight.c;h=56229a285d1e6b9f8fb90ef9212553f852b31820;hb=8a7f5c28b68af3cd03a524329c1d6e7eba355158;hp=b6d63c972c33348861635fc27ceedeb2a3f257f7;hpb=dcf9b154cbcaa35c3d8459a201b77eec8bcb30bd;p=pspp diff --git a/src/language/dictionary/weight.c b/src/language/dictionary/weight.c index b6d63c972c..56229a285d 100644 --- a/src/language/dictionary/weight.c +++ b/src/language/dictionary/weight.c @@ -18,44 +18,48 @@ 02110-1301, USA. */ #include -#include "message.h" + #include -#include "command.h" -#include "dictionary.h" -#include "message.h" -#include "lexer.h" -#include "str.h" -#include "variable.h" + +#include +#include +#include +#include +#include +#include +#include +#include #include "gettext.h" #define _(msgid) gettext (msgid) int -cmd_weight (void) +cmd_weight (struct lexer *lexer, struct dataset *ds) { - if (lex_match_id ("OFF")) - dict_set_weight (default_dict, NULL); + struct dictionary *dict = dataset_dict (ds); + if (lex_match_id (lexer, "OFF")) + dict_set_weight (dataset_dict (ds), NULL); else { struct variable *v; - lex_match (T_BY); - v = parse_variable (); + lex_match (lexer, T_BY); + v = parse_variable (lexer, dict); if (!v) return CMD_CASCADING_FAILURE; - if (v->type == ALPHA) + if (var_is_alpha (v)) { msg (SE, _("The weighting variable must be numeric.")); return CMD_CASCADING_FAILURE; } - if (dict_class_from_id (v->name) == DC_SCRATCH) + if (dict_class_from_id (var_get_name (v)) == DC_SCRATCH) { msg (SE, _("The weighting variable may not be scratch.")); return CMD_CASCADING_FAILURE; } - dict_set_weight (default_dict, v); + dict_set_weight (dict, v); } - return lex_end_of_command (); + return lex_end_of_command (lexer); }