-
-#if DEBUGGING
-static void
-debug_print (void)
-{
- printf ("CROSSTABS\n");
-
- if (var_dict)
- {
- int i;
-
- printf ("\t/VARIABLES=");
- for (i = 0; i < var_dict->nvar; i++)
- {
- struct variable *v = var_dict->var[i];
- struct variable *iv = default_dict.var[v->foo];
-
- printf ("%s ", v->name);
- if (i < var_dict->nvar - 1)
- {
- struct variable *nv = var_dict->var[i + 1];
- struct variable *niv = default_dict.var[nv->foo];
-
- if (iv->p.crs.min == niv->p.crs.min
- && iv->p.crs.max == niv->p.crs.max)
- continue;
- }
- printf ("(%d,%d) ", iv->p.crs.min, iv->p.crs.max - 1);
- }
- printf ("\n");
- }
-
- {
- int i;
-
- printf ("\t/TABLES=");
- for (i = 0; i < nxtab; i++)
- {
- struct crosstab *x = xtab[i];
- int j;
-
- if (i)
- printf("\t\t");
- for (j = 0; j < x->nvar; j++)
- {
- if (j)
- printf (" BY ");
- printf ("%s", x->v[j]->name);
- }
- printf ("\n");
- }
- }
-}
-#endif /* DEBUGGING */