X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fctables.c;fp=src%2Flanguage%2Fstats%2Fctables.c;h=624331ba5d108429fcd220aca672eef66de6be65;hb=a4f9af015786499fdbf591e94c1728ba162b5f28;hp=1b8ba198f83cca7c882e2b3140e729a698a7d270;hpb=7dfc80b221eb91a6708388e061aad624e3a5b6a1;p=pspp diff --git a/src/language/stats/ctables.c b/src/language/stats/ctables.c index 1b8ba198f8..624331ba5d 100644 --- a/src/language/stats/ctables.c +++ b/src/language/stats/ctables.c @@ -216,12 +216,7 @@ struct ctables_postcompute_expr /* CTPO_CAT_RANGE. XXX what about string ranges? */ - struct - { - double low; /* -DBL_MAX for LO. */ - double high; /* DBL_MAX for HIGH. */ - } - range; + double range[2]; /* CTPO_ADD, CTPO_SUB, CTPO_MUL, CTPO_DIV, CTPO_POW. */ struct ctables_postcompute_expr *subs[2]; @@ -1526,7 +1521,6 @@ cmd_ctables (struct lexer *lexer, struct dataset *ds) if (!lex_force_match (lexer, T_SLASH)) break; - /* XXX Validate axes. */ while (!lex_match_id (lexer, "TABLE") && lex_token (lexer) != T_ENDCMD) { if (lex_match_id (lexer, "SLABELS")) @@ -1857,6 +1851,13 @@ cmd_ctables (struct lexer *lexer, struct dataset *ds) goto error; } } + + if (t->row_labels != CTLP_NORMAL && t->col_labels != CTLP_NORMAL) + { + msg (SE, _("ROWLABELS and COLLABELS may not both be specified.")); + goto error; + } + } while (lex_token (lexer) != T_ENDCMD); ctables_destroy (ct);