X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fval-labs.c;h=69709820ed5f20782cfc70647a10e75b3a299e8b;hb=18febf84744dc7ab4248542c2f88d91c01ef3fa1;hp=c36ff28b414dc074e1095aed78859b58280fd1b8;hpb=cb4033020c8a24d573814e6ac9192046bffdccac;p=pspp-builds.git

diff --git a/src/val-labs.c b/src/val-labs.c
index c36ff28b..69709820 100644
--- a/src/val-labs.c
+++ b/src/val-labs.c
@@ -21,17 +21,16 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include "alloc.h"
-#include "avl.h"
 #include "command.h"
 #include "error.h"
+#include "hash.h"
 #include "lexer.h"
 #include "str.h"
+#include "value-labels.h"
 #include "var.h"
 
 /* Declarations. */
 
-#undef DEBUGGING
-/*#define DEBUGGING 1 */
 #include "debug-print.h"
 
 /* Variable list. */
@@ -95,7 +94,7 @@ do_value_labels (int erase)
   
   while (token != '.')
     {
-      parse_variables (NULL, &v, &nv, PV_SAME_TYPE);
+      parse_variables (default_dict, &v, &nv, PV_SAME_TYPE);
       if (!verify_val_labs (erase))
 	return CMD_PART_SUCCESS_MAYBE;
       while (token != '/' && token != '.')
@@ -116,7 +115,7 @@ do_value_labels (int erase)
       return CMD_TRAILING_GARBAGE;
     }
 
-#if DEBUGGING
+#if 0 && DEBUGGING
   debug_print ();
 #endif
   return CMD_SUCCESS;
@@ -141,11 +140,8 @@ verify_val_labs (int erase)
 	  return 0;
 	}
 
-      if (erase && v[i]->val_lab)
-	{
-	  avl_destroy (vp->val_lab, free_val_lab);
-	  vp->val_lab = NULL;
-	}
+      if (erase)
+        val_labs_clear (vp->val_labs);
     }
   return 1;
 }
@@ -169,13 +165,10 @@ get_label (void)
   /* Parse all the labels and add them to the variables. */
   do
     {
-      struct value_label *label;
+      union value value;
+      char *label;
 
-      /* Allocate label. */
-      label = xmalloc (sizeof *label);
-      label->ref_count = nv;
-
-      /* Set label->v. */
+      /* Set value. */
       if (v[0]->type == ALPHA)
 	{
 	  if (token != T_STRING)
@@ -183,7 +176,7 @@ get_label (void)
 	      msg (SE, _("String expected for value."));
 	      return 0;
 	    }
-	  st_bare_pad_copy (label->v.s, ds_value (&tokstr), MAX_SHORT_STRING);
+	  st_bare_pad_copy (value.s, ds_value (&tokstr), MAX_SHORT_STRING);
 	}
       else
 	{
@@ -194,10 +187,10 @@ get_label (void)
 	    }
 	  if (!lex_integer_p ())
 	    msg (SW, _("Value label `%g' is not integer."), tokval);
-	  label->v.f = tokval;
+	  value.f = tokval;
 	}
 
-      /* Set label->s. */
+      /* Set label. */
       lex_get ();
       if (!lex_force_string ())
 	return 0;
@@ -206,22 +199,10 @@ get_label (void)
 	  msg (SW, _("Truncating value label to 60 characters."));
 	  ds_truncate (&tokstr, 60);
 	}
-      label->s = xstrdup (ds_value (&tokstr));
+      label = ds_value (&tokstr);
 
       for (i = 0; i < nv; i++)
-	{
-	  if (!v[i]->val_lab)
-	    v[i]->val_lab = avl_create (NULL, val_lab_cmp,
-					(void *) (v[i]->width));
-	  
-	  {
-	    struct value_label *old;
-	    
-	    old = avl_replace (v[i]->val_lab, label);
-	    if (old)
-	      free_value_label (old);
-	  }
-	}
+        val_labs_replace (v[i]->val_labs, value, label);
 
       lex_get ();
     }
@@ -230,7 +211,7 @@ get_label (void)
   return 1;
 }
 
-#if DEBUGGING
+#if 0 && DEBUGGING
 static void
 debug_print ()
 {
@@ -239,65 +220,21 @@ debug_print ()
   puts (_("Value labels:"));
   for (i = 0; i < nvar; i++)
     {
-      AVLtraverser *t = NULL;
+      struct hsh_iterator i;
       struct value_label *val;
 
       printf ("  %s\n", var[i]->name);
-      if (var[i]->val_lab)
-	if (var[i]->type == NUMERIC)
-	  for (val = avltrav (var[i]->val_lab, &t);
-	       val; val = avltrav (var[i]->val_lab, &t))
-	    printf ("    %g:  `%s'\n", val->v.f, val->s);
-	else
-	  for (val = avltrav (var[i]->val_lab, &t);
-	       val; val = avltrav (var[i]->val_lab, &t))
-	    printf ("    `%.8s':  `%s'\n", val->v.s, val->s);
+      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 */
-
-/* Compares two value labels and returns a strcmp()-type result. */
-int
-val_lab_cmp (const void *a, const void *b, void *param)
-{
-  if ((int) param)
-    return strncmp (((struct value_label *) a)->v.s,
-		    ((struct value_label *) b)->v.s,
-		    (int) param);
-  else
-    {
-      int temp = (((struct value_label *) a)->v.f
-		  - ((struct value_label *) b)->v.f);
-      if (temp > 0)
-	return 1;
-      else if (temp < 0)
-	return -1;
-      else
-	return 0;
-    }
-}
-
-/* Callback function to increment the reference count for a value
-   label. */
-void *
-inc_ref_count (void *pv, void *param unused)
-{
-  ((struct value_label *) pv)->ref_count++;
-  return pv;
-}
-
-/* Copy the avl tree of value labels and return a pointer to the
-   copy. */
-avl_tree *
-copy_value_labels (avl_tree *src)
-{
-  avl_tree *dest;
-
-  if (src == NULL)
-    return NULL;
-  dest = avl_copy (NULL, src, inc_ref_count);
-
-  return dest;
-}