X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fdescriptives.c;h=90f8b8f297d31e8388c13faca8d8c3185f2cbbca;hb=eca977e618f2d4c6d55d9851b9714fd60e55559b;hp=62c0ede0d9a12cd0111bebbeae0cd6fcabf75ff3;hpb=83141cdd4ab281da80d5dfeda05073f0cb354eab;p=pspp-builds.git diff --git a/src/language/stats/descriptives.c b/src/language/stats/descriptives.c index 62c0ede0..90f8b8f2 100644 --- a/src/language/stats/descriptives.c +++ b/src/language/stats/descriptives.c @@ -20,25 +20,28 @@ /* FIXME: Many possible optimizations. */ #include -#include + #include #include #include -#include -#include + #include #include -#include -#include #include +#include +#include +#include +#include +#include #include -#include +#include +#include +#include #include +#include #include #include #include -#include -#include #include "gettext.h" #define _(msgid) gettext (msgid) @@ -175,7 +178,8 @@ static void dump_z_table (struct dsc_proc *); static void setup_z_trns (struct dsc_proc *); /* Procedure execution functions. */ -static bool calc_descriptives (const struct casefile *, void *dsc_); +static bool calc_descriptives (const struct ccase *first, + const struct casefile *, void *dsc_); static void display (struct dsc_proc *dsc); /* Parser and outline. */ @@ -693,13 +697,16 @@ static int listwise_missing (struct dsc_proc *dsc, const struct ccase *c); /* Calculates and displays descriptive statistics for the cases in CF. */ static bool -calc_descriptives (const struct casefile *cf, void *dsc_) +calc_descriptives (const struct ccase *first, + const struct casefile *cf, void *dsc_) { struct dsc_proc *dsc = dsc_; struct casereader *reader; struct ccase c; size_t i; + output_split_file_values (first); + for (i = 0; i < dsc->var_cnt; i++) { struct dsc_var *dv = &dsc->vars[i];