-/* Returns zero if dictionary D's cases are ordered in the
- natural manner, with the first variable followed by the
- second, and so on,
- nonzero otherwise. */
-static int
-does_dict_need_translation (const struct dictionary *d)
-{
- size_t case_idx;
- size_t i;
-
- case_idx = 0;
- for (i = 0; i < dict_get_var_cnt (d); i++)
- {
- struct variable *v = dict_get_var (d, i);
- if (v->fv != case_idx)
- return 1;
- case_idx += v->nv;
- }
- return 0;
-}
-