X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Foneway.q;h=cda3c17b4bffcb96e7561f8ba96912c5a870bae2;hb=6492b3b49661963dc6d78201a1eb3927fdf54b68;hp=ab221e03fa0e16c85c0e1d5a32ce2de2b1286778;hpb=81fff61a96bece351e381ad3fef8ab1248a952ba;p=pspp-builds.git diff --git a/src/language/stats/oneway.q b/src/language/stats/oneway.q index ab221e03..cda3c17b 100644 --- a/src/language/stats/oneway.q +++ b/src/language/stats/oneway.q @@ -32,6 +32,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA #include #include #include +#include #include #include #include @@ -56,10 +57,10 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA /* (specification) "ONEWAY" (oneway_): *^variables=custom; - +missing=miss:!analysis/listwise, - incl:include/!exclude; - contrast= double list; - statistics[st_]=descriptives,homogeneity. + missing=miss:!analysis/listwise, + incl:include/!exclude; + +contrast= double list; + +statistics[st_]=descriptives,homogeneity. */ /* (declarations) */ /* (functions) */ @@ -94,7 +95,8 @@ static int ostensible_number_of_groups=-1; static is_missing_func *value_is_missing; -static bool run_oneway(const struct casefile *cf, void *_mode); +static bool run_oneway(const struct ccase *first, + const struct casefile *cf, void *_mode); /* Routines to show the output tables */ @@ -119,7 +121,7 @@ cmd_oneway(void) int i; bool ok; - if ( !parse_oneway(&cmd) ) + if ( !parse_oneway(&cmd, NULL) ) return CMD_FAILURE; /* If /MISSING=INCLUDE is set, then user missing values are ignored */ @@ -221,7 +223,7 @@ output_oneway(void) /* Parser for the variables sub command */ static int -oneway_custom_variables(struct cmd_oneway *cmd UNUSED) +oneway_custom_variables(struct cmd_oneway *cmd UNUSED, void *aux UNUSED) { lex_match('='); @@ -892,13 +894,15 @@ precalc ( struct cmd_oneway *cmd UNUSED ) static bool -run_oneway(const struct casefile *cf, void *cmd_) +run_oneway(const struct ccase *first, const struct casefile *cf, void *cmd_) { struct casereader *r; struct ccase c; struct cmd_oneway *cmd = (struct cmd_oneway *) cmd_; + output_split_file_values (first); + global_group_hash = hsh_create(4, (hsh_compare_func *) compare_values, (hsh_hash_func *) hash_value,