- /* Sort the vector, then check for duplicates. */
- qsort (names, default_dict.nvar, 8, compare_name);
- for (i = 1; i < default_dict.nvar; i++)
- if (memcmp (names[i], names[i - 1], 8) == 0)
- {
- char name[9];
- strncpy (name, names[i], 8);
- name[8] = 0;
- msg (SE, _("Duplicate variable name `%s' after renaming."), name);
- goto lossage;
- }
- free (names);
-
- /* Finally, do the renaming. */
- for (iter = head; iter; iter = iter->p.mfv.next)
- hsh_force_delete (default_dict.name_tab, iter);
- for (iter = head; iter; iter = iter->p.mfv.next)