X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Frank.q;h=71eaeccb1102a05ac6d0281e3054eb18a606baf6;hb=04fb909bd65eee66428d131ff34a6e1fde42e243;hp=92667f1cf0e10c9b4740b8709bd11bcf076a9dfe;hpb=573068f2bdcd3f8796e9646668fed910a90f890b;p=pspp diff --git a/src/language/stats/rank.q b/src/language/stats/rank.q index 92667f1cf0..71eaeccb11 100644 --- a/src/language/stats/rank.q +++ b/src/language/stats/rank.q @@ -19,13 +19,16 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #include + +#include "sort-criteria.h" + +#include +#include +#include #include +#include #include -#include #include -#include - -#include "sort-criteria.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -44,7 +47,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +n=custom; +savage=custom; +print=print:!yes/no; - +missing=miss:!exclude/include. + missing=miss:!exclude/include. */ /* (declarations) */ /* (functions) */ @@ -92,7 +95,7 @@ cmd_rank(void) size_t i; n_rank_specs = 0; - if ( !parse_rank(&cmd) ) + if ( !parse_rank(&cmd, NULL) ) return CMD_FAILURE; #if 1 @@ -136,7 +139,7 @@ cmd_rank(void) /* Parser for the variables sub command Returns 1 on success */ static int -rank_custom_variables(struct cmd_rank *cmd UNUSED) +rank_custom_variables(struct cmd_rank *cmd UNUSED, void *aux UNUSED) { static const int terminators[2] = {T_BY, 0}; @@ -241,12 +244,12 @@ parse_rank_function(struct cmd_rank *cmd UNUSED, enum RANK_FUNC f) ++var_count; if ( dict_lookup_var (default_dict, tokid) != NULL ) { - msg(ME, _("Variable %s already exists."), tokid); + msg(SE, _("Variable %s already exists."), tokid); return 0; } if ( var_count > sc->crit_cnt ) { - msg(ME, _("Too many variables in INTO clause.")); + msg(SE, _("Too many variables in INTO clause.")); return 0; } @@ -295,50 +298,50 @@ parse_rank_function(struct cmd_rank *cmd UNUSED, enum RANK_FUNC f) static int -rank_custom_rank(struct cmd_rank *cmd ) +rank_custom_rank(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, RANK); } static int -rank_custom_normal(struct cmd_rank *cmd ) +rank_custom_normal(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, NORMAL); } static int -rank_custom_percent(struct cmd_rank *cmd ) +rank_custom_percent(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, NORMAL); } static int -rank_custom_rfraction(struct cmd_rank *cmd ) +rank_custom_rfraction(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, RFRACTION); } static int -rank_custom_proportion(struct cmd_rank *cmd ) +rank_custom_proportion(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, PROPORTION); } static int -rank_custom_n(struct cmd_rank *cmd ) +rank_custom_n(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, N); } static int -rank_custom_savage(struct cmd_rank *cmd ) +rank_custom_savage(struct cmd_rank *cmd, void *aux UNUSED ) { return parse_rank_function(cmd, SAVAGE); } static int -rank_custom_ntiles(struct cmd_rank *cmd ) +rank_custom_ntiles(struct cmd_rank *cmd, void *aux UNUSED ) { if ( lex_force_match('(') ) {