X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fxforms%2Fselect-if.c;h=66c8f9e4aa6abce705de3a444e54d24b7517ebc6;hb=799e56c0e3a9911a860607e1c07caf2acf8cc9ef;hp=ddeb4a05f4e9187afc058217d044fd9f8becd3e2;hpb=aacb81b15f6b8b34def3ef7b76c7d069a64bc5d8;p=pspp diff --git a/src/language/xforms/select-if.c b/src/language/xforms/select-if.c index ddeb4a05f4..66c8f9e4aa 100644 --- a/src/language/xforms/select-if.c +++ b/src/language/xforms/select-if.c @@ -28,6 +28,7 @@ #include #include #include +#include #include #include #include @@ -46,12 +47,12 @@ static trns_free_func select_if_free; /* Parses the SELECT IF transformation. */ int -cmd_select_if (void) +cmd_select_if (struct dataset *ds) { struct expression *e; struct select_if_trns *t; - e = expr_parse (default_dict, EXPR_BOOLEAN); + e = expr_parse (ds, EXPR_BOOLEAN); if (!e) return CMD_CASCADING_FAILURE; @@ -64,7 +65,7 @@ cmd_select_if (void) t = xmalloc (sizeof *t); t->e = e; - add_transformation (select_if_proc, select_if_free, t); + add_transformation (ds, select_if_proc, select_if_free, t); return CMD_SUCCESS; } @@ -72,7 +73,7 @@ cmd_select_if (void) /* Performs the SELECT IF transformation T on case C. */ static int select_if_proc (void *t_, struct ccase *c, - int case_num) + casenumber case_num) { struct select_if_trns *t = t_; return (expr_evaluate_num (t->e, c, case_num) == 1.0 @@ -91,22 +92,23 @@ select_if_free (void *t_) /* Parses the FILTER command. */ int -cmd_filter (void) +cmd_filter (struct dataset *ds) { + struct dictionary *dict = dataset_dict (ds); if (lex_match_id ("OFF")) - dict_set_filter (default_dict, NULL); + dict_set_filter (dataset_dict (ds), NULL); else if (token == '.') { msg (SW, _("Syntax error expecting OFF or BY. " "Turning off case filtering.")); - dict_set_filter (default_dict, NULL); + dict_set_filter (dataset_dict (ds), NULL); } else { struct variable *v; lex_match (T_BY); - v = parse_variable (); + v = parse_variable (dict); if (!v) return CMD_FAILURE; @@ -122,7 +124,7 @@ cmd_filter (void) return CMD_FAILURE; } - dict_set_filter (default_dict, v); + dict_set_filter (dict, v); } return lex_end_of_command ();