X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Frename-vars.c;h=862509093b8d43bb6d2d0ac80747a8f0d1245610;hb=92fb12eb06716d14c05b781f5d9dcde956d77c30;hp=fb214785b42245f88515c22aef21697409e2b720;hpb=4944c86a9318bc5b5578ab145a95c116ffd2c9fd;p=pspp

diff --git a/src/rename-vars.c b/src/rename-vars.c
index fb214785b4..862509093b 100644
--- a/src/rename-vars.c
+++ b/src/rename-vars.c
@@ -14,52 +14,54 @@
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-   02111-1307, USA. */
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+   02110-1301, USA. */
 
 #include <config.h>
 #include <stdlib.h>
-#include <assert.h>
+#include "error.h"
 #include "alloc.h"
-#include "avl.h"
 #include "command.h"
+#include "dictionary.h"
 #include "error.h"
+#include "hash.h"
 #include "lexer.h"
 #include "str.h"
 #include "var.h"
 
-/* FIXME: should change weighting variable, etc. */
-static int compare_name (const void *, const void *);
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
 
 /* The code for this function is very similar to the code for the
    RENAME subcommand of MODIFY VARS. */
 int
 cmd_rename_variables (void)
 {
-  char (*names)[8] = NULL;
-
-  struct variable **old_names = NULL;
-  char **new_names = NULL;
-  int n_rename = 0;
+  struct variable **rename_vars = NULL;
+  char **rename_new_names = NULL;
+  size_t rename_cnt = 0;
+  char *err_name;
 
-  struct variable *head, *tail, *iter;
+  int status = CMD_FAILURE;
 
-  int i;
-
-  lex_match_id ("RENAME");
-  lex_match_id ("VARIABLES");
+  if (temporary != 0)
+    {
+      msg (SE, _("RENAME VARS may not be used after TEMPORARY.  "
+                 "Temporary transformations will be made permanent."));
+      cancel_temporary (); 
+    }
 
   do
     {
-      int prev_nv_1 = n_rename;
-      int prev_nv_2 = n_rename;
+      size_t prev_nv_1 = rename_cnt;
+      size_t prev_nv_2 = rename_cnt;
 
       if (!lex_match ('('))
 	{
 	  msg (SE, _("`(' expected."));
 	  goto lossage;
 	}
-      if (!parse_variables (&default_dict, &old_names, &n_rename,
+      if (!parse_variables (default_dict, &rename_vars, &rename_cnt,
 			    PV_APPEND | PV_NO_DUPLICATE))
 	goto lossage;
       if (!lex_match ('='))
@@ -67,17 +69,20 @@ cmd_rename_variables (void)
 	  msg (SE, _("`=' expected between lists of new and old variable names."));
 	  goto lossage;
 	}
-      if (!parse_DATA_LIST_vars (&new_names, &prev_nv_1, PV_APPEND))
+      if (!parse_DATA_LIST_vars (&rename_new_names, &prev_nv_1, PV_APPEND))
 	goto lossage;
-      if (prev_nv_1 != n_rename)
+      if (prev_nv_1 != rename_cnt)
 	{
+          size_t i;
+
 	  msg (SE, _("Differing number of variables in old name list "
-	       "(%d) and in new name list (%d)."),
-	       n_rename - prev_nv_2, prev_nv_1 - prev_nv_2);
+                     "(%u) and in new name list (%u)."),
+	       (unsigned) rename_cnt - prev_nv_2,
+               (unsigned) prev_nv_1 - prev_nv_2);
 	  for (i = 0; i < prev_nv_1; i++)
-	    free (new_names[i]);
-	  free (new_names);
-	  new_names = NULL;
+	    free (rename_new_names[i]);
+	  free (rename_new_names);
+	  rename_new_names = NULL;
 	  goto lossage;
 	}
       if (!lex_match (')'))
@@ -88,67 +93,24 @@ cmd_rename_variables (void)
     }
   while (token != '.');
 
-  /* Form a linked list of the variables to be renamed; also, set
-     their p.mfv.new_name members. */
-  head = NULL;
-  for (i = 0; i < n_rename; i++)
+  if (!dict_rename_vars (default_dict,
+                         rename_vars, rename_new_names, rename_cnt,
+                         &err_name)) 
     {
-      strcpy (old_names[i]->p.mfv.new_name, new_names[i]);
-      free (new_names[i]);
-      if (head != NULL)
-	tail = tail->p.mfv.next = old_names[i];
-      else
-	head = tail = old_names[i];
+      msg (SE, _("Renaming would duplicate variable name %s."), err_name);
+      goto lossage;
     }
-  tail->p.mfv.next = NULL;
-  free (new_names);
-  free (old_names);
-  new_names = NULL;
-  old_names = NULL;
 
-  /* Construct a vector of all variables' new names. */
-  names = xmalloc (8 * default_dict.nvar);
-  for (i = 0; i < default_dict.nvar; i++)
-    strncpy (names[i], default_dict.var[i]->name, 8);
-  for (iter = head; iter; iter = iter->p.mfv.next)
-    strncpy (names[iter->index], iter->p.mfv.new_name, 8);
+  status = CMD_SUCCESS;
 
-  /* 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)
-    avl_force_delete (default_dict.var_by_name, iter);
-  for (iter = head; iter; iter = iter->p.mfv.next)
+ lossage:
+  free (rename_vars);
+  if (rename_new_names != NULL) 
     {
-      strcpy (iter->name, iter->p.mfv.new_name);
-      avl_force_insert (default_dict.var_by_name, iter);
+      size_t i;
+      for (i = 0; i < rename_cnt; i++)
+        free (rename_new_names[i]);
+      free (rename_new_names); 
     }
-
-  return CMD_SUCCESS;
-
-lossage:
-  if (new_names)
-    for (i = 0; i < n_rename; i++)
-      free (new_names[i]);
-  free (new_names);
-  free (old_names);
-  free (names);
-  return CMD_FAILURE;
-}
-
-static int
-compare_name (const void *a, const void *b)
-{
-  return memcmp (a, b, 8);
+  return status;
 }