X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fctables.c;h=c3c797a52c0fb6d814e3aa4f27f071d31824af64;hb=037d8f6e7932459b5d0fb479a2c5030a8088f3d1;hp=aeae6223fc45db75643f608772fc39b3a4392db0;hpb=2ad9fc0f13133346ba6b153bf38a2fc06bf0be51;p=pspp diff --git a/src/language/stats/ctables.c b/src/language/stats/ctables.c index aeae6223fc..c3c797a52c 100644 --- a/src/language/stats/ctables.c +++ b/src/language/stats/ctables.c @@ -4665,32 +4665,6 @@ ctables_prepare_table (struct ctables_table *t) nest->areas[at] = xmalloc (nest->n * sizeof *nest->areas[at]); nest->n_areas[at] = 0; - bool add_vars = (at == CTAT_LAYER ? a == PIVOT_AXIS_LAYER - : at == CTAT_LAYERROW ? a != PIVOT_AXIS_COLUMN - : at == CTAT_LAYERCOL ? a != PIVOT_AXIS_ROW - : at == CTAT_TABLE ? false - : true); - if (add_vars) - for (size_t k = 0; k < nest->n; k++) - { - if (k == nest->scale_idx) - continue; - nest->areas[at][nest->n_areas[at]++] = k; - } - else if ((at == CTAT_LAYERCOL && a == PIVOT_AXIS_ROW && t->label_axis[a] != a) - || (at == CTAT_LAYERROW && a == PIVOT_AXIS_COLUMN && t->label_axis[a] != a) - || (at == CTAT_LAYER && t->label_axis[a] == PIVOT_AXIS_LAYER)) - { - for (size_t k = nest->n - 1; k < nest->n; k--) - { - if (k == nest->scale_idx) - continue; - nest->areas[at][nest->n_areas[at]++] = k; - break; - } - continue; - } - enum pivot_axis_type ata, atb; if (at == CTAT_ROW || at == CTAT_LAYERROW) { @@ -4703,8 +4677,32 @@ ctables_prepare_table (struct ctables_table *t) atb = PIVOT_AXIS_ROW; } - size_t n_drop = 0; - bool drop_inner = false; + if (at == CTAT_LAYER + ? a != PIVOT_AXIS_LAYER && t->label_axis[a] == PIVOT_AXIS_LAYER + : at == CTAT_LAYERCOL || at == CTAT_LAYERROW + ? a == atb && t->label_axis[a] != a + : false) + { + for (size_t k = nest->n - 1; k < nest->n; k--) + if (k != nest->scale_idx) + { + nest->areas[at][nest->n_areas[at]++] = k; + break; + } + continue; + } + + if (at == CTAT_LAYER ? a != PIVOT_AXIS_LAYER + : at == CTAT_LAYERROW || at == CTAT_LAYERCOL ? a == atb + : at == CTAT_TABLE ? true + : false) + continue; + + for (size_t k = 0; k < nest->n; k++) + if (k != nest->scale_idx) + nest->areas[at][nest->n_areas[at]++] = k; + + int n_drop = 0; switch (at) { case CTAT_SUBTABLE: @@ -4712,11 +4710,10 @@ ctables_prepare_table (struct ctables_table *t) n_drop = a != PIVOT_AXIS_LAYER; else if (t->clabels_to_axis != PIVOT_AXIS_LAYER) n_drop = a == t->clabels_from_axis ? 2 : 0; + else if (a == t->clabels_from_axis) + n_drop = -1; else - { - n_drop = a != PIVOT_AXIS_LAYER && a != t->clabels_from_axis; - drop_inner = a == t->clabels_from_axis; - } + n_drop = a != PIVOT_AXIS_LAYER; break; case CTAT_LAYERROW: @@ -4728,26 +4725,21 @@ ctables_prepare_table (struct ctables_table *t) case CTAT_COL: if (a == atb) { - if (t->label_axis[ata] == atb) - ; - else if (t->label_axis[atb] == ata) - drop_inner = true; - else if (t->label_axis[atb] == PIVOT_AXIS_LAYER) - drop_inner = true; - else + if (t->clabels_from_axis == atb) + n_drop = -1; + else if (t->clabels_to_axis != atb) n_drop = 1; } - if (a == ata && t->label_axis[ata] == atb) - n_drop++; + else if (a == ata) + n_drop = t->label_axis[ata] == atb; break; case CTAT_LAYER: case CTAT_TABLE: - n_drop = 0; break; } - if (drop_inner) + if (n_drop < 0) { size_t n = nest->n_areas[at]; if (n > 1) @@ -4756,9 +4748,12 @@ ctables_prepare_table (struct ctables_table *t) nest->n_areas[at]--; } } - for (size_t i = 0; i < n_drop; i++) - if (nest->n_areas[at] > 0) - nest->n_areas[at]--; + else + { + for (int i = 0; i < n_drop; i++) + if (nest->n_areas[at] > 0) + nest->n_areas[at]--; + } } } }