X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fvar-labs.c;h=7d78027ed78011bb54bb3de332ba512502ac2449;hb=3bd4593ef9a57f23062c61ec465389f749ba3089;hp=82d49d1e9741f889c6dd25b24ee7672a34d2aaf8;hpb=fcb9e49b2a2d57af7c001ae5d2eda9ac443ba36b;p=pspp-builds.git

diff --git a/src/var-labs.c b/src/var-labs.c
index 82d49d1e..7d78027e 100644
--- a/src/var-labs.c
+++ b/src/var-labs.c
@@ -29,10 +29,6 @@
 
 #include "debug-print.h"
 
-#if DEBUGGING
-static void debug_print (void);
-#endif
-
 int
 cmd_variable_labels (void)
 {
@@ -41,12 +37,10 @@ cmd_variable_labels (void)
 
   int i;
 
-  lex_match_id ("VARIABLE");
-  lex_match_id ("LABELS");
-  lex_match ('/');
   do
     {
-      parse_variables (NULL, &v, &nv, PV_NONE);
+      if (!parse_variables (default_dict, &v, &nv, PV_NONE))
+        return CMD_PART_SUCCESS_MAYBE;
 
       if (token != T_STRING)
 	{
@@ -54,16 +48,16 @@ cmd_variable_labels (void)
 	  free (v);
 	  return CMD_PART_SUCCESS_MAYBE;
 	}
-      if (ds_length (&tokstr) > 120)
+      if (ds_length (&tokstr) > 255)
 	{
-	  msg (SW, _("Truncating variable label to 120 characters."));
-	  ds_truncate (&tokstr, 120);
+	  msg (SW, _("Truncating variable label to 255 characters."));
+	  ds_truncate (&tokstr, 255);
 	}
       for (i = 0; i < nv; i++)
 	{
 	  if (v[i]->label)
 	    free (v[i]->label);
-	  v[i]->label = xstrdup (ds_value (&tokstr));
+	  v[i]->label = xstrdup (ds_c_str (&tokstr));
 	}
 
       lex_get ();
@@ -72,27 +66,16 @@ cmd_variable_labels (void)
       free (v);
     }
   while (token != '.');
-#if 0 && DEBUGGING
-  debug_print ();
-#endif
   return CMD_SUCCESS;
 }
 
-#if 0 && DEBUGGING
-static void
-debug_print (void)
+
+
+const char *
+var_to_string(const struct variable *var)
 {
-  int i;
+  if ( !var ) 
+    return 0;
 
-  printf (_("Variable labels:\n"));
-  for (i = 0; i < nvar; i++)
-    {
-      printf ("  %8s: ", var[i]->name);
-      if (var[i]->label)
-	printf ("`%s'", var[i]->label);
-      else
-	printf (_("(no variable label)"));
-      printf ("\n");
-    }
+  return ( var->label ? var->label : var->name);
 }
-#endif /* DEBUGGING */