X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fapply-dictionary.c;h=e3a77e5d4ab3fcb9bfaccfd13f6a9361bacd7569;hb=f70f1b22e925d55c246372376de1c6ffaacf8a4b;hp=217f0f8928a5a7dedaaa0896cade2edee68432ab;hpb=77e551d23575da6b89f866612ab39c2b0497c9be;p=pspp

diff --git a/src/language/dictionary/apply-dictionary.c b/src/language/dictionary/apply-dictionary.c
index 217f0f8928..e3a77e5d4a 100644
--- a/src/language/dictionary/apply-dictionary.c
+++ b/src/language/dictionary/apply-dictionary.c
@@ -18,18 +18,21 @@
    02110-1301, USA. */
 
 #include <config.h>
+
 #include <stdlib.h>
+
 #include <data/any-reader.h>
-#include <language/command.h>
 #include <data/dictionary.h>
-#include <libpspp/message.h>
-#include <language/data-io/file-handle.h>
 #include <data/file-handle-def.h>
-#include <libpspp/hash.h>
-#include <language/lexer/lexer.h>
-#include <libpspp/str.h>
+#include <data/procedure.h>
 #include <data/value-labels.h>
 #include <data/variable.h>
+#include <language/command.h>
+#include <language/data-io/file-handle.h>
+#include <language/lexer/lexer.h>
+#include <libpspp/hash.h>
+#include <libpspp/message.h>
+#include <libpspp/str.h>
 
 #include "gettext.h"
 #define _(msgid) gettext (msgid)
@@ -88,38 +91,7 @@ cmd_apply_dictionary (void)
 	     s->name);
       else if (val_labs_count (s->val_labs))
 	{
-          /* Whether to apply the value labels. */
-          int apply = 1;
-          
-	  if (t->width < s->width)
-	    {
-	      struct val_labs_iterator *i;
-	      struct val_lab *lab;
-
-              for (lab = val_labs_first (s->val_labs, &i); lab != NULL;
-                   lab = val_labs_next (s->val_labs, &i))
-		{
-		  int j;
-
-		  /* We will apply the value labels only if all
-                     the truncated characters are blanks. */
-		  for (j = t->width; j < s->width; j++)
-		    if (lab->value.s[j] != ' ') 
-                      {
-                        val_labs_done (&i);
-                        apply = 0;
-                        break; 
-                      }
-		}
-	    }
-	  else
-	    {
-	      /* Fortunately, we follow the convention that all value
-		 label values are right-padded with spaces, so it is
-		 unnecessary to bother padding values here. */
-	    }
-
-	  if (apply) 
+          if (val_labs_can_set_width (s->val_labs, t->width))
             {
               val_labs_destroy (t->val_labs);
               t->val_labs = s->val_labs;