-
-#if 0 && DEBUGGING
-static void
-debug_print ()
-{
- int i;
-
- puts (_("Value labels:"));
- for (i = 0; i < nvar; i++)
- {
- struct hsh_iterator i;
- struct value_label *val;
-
- printf (" %s\n", var[i]->name);
- if (var[i]->val_lab)
- {
- for (val = hsh_first (var[i]->val_lab, &i); val != NULL;
- val = hsh_next (var[i]->val_lab, &i))
- if (var[i]->type == NUMERIC)
- printf (" %g: `%s'\n", val->v.f, val->s);
- else
- printf (" `%.8s': `%s'\n", val->v.s, val->s);
- }
- else
- printf (_(" (no value labels)\n"));
- }
-}
-#endif /* DEBUGGING */