X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fvector.c;h=fc7a2dd317f6b4d04a1a4153351246228f76bb91;hb=07fac5fffc0550150552a7de7cacba1bf68fe09b;hp=b6149612643b92a2c1a0baee0f2597b4cdf164e4;hpb=4fdeb2145d081ff1b84e3f6c99f9d1c048c0d64a;p=pspp

diff --git a/src/vector.c b/src/vector.c
index b614961264..fc7a2dd317 100644
--- a/src/vector.c
+++ b/src/vector.c
@@ -29,6 +29,9 @@
 #include "str.h"
 #include "var.h"
 
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
+
 int
 cmd_vector (void)
 {
@@ -62,7 +65,7 @@ cmd_vector (void)
 	    }
 
 	  for (cp2 = cp; cp2 < cp; cp2 += strlen (cp))
-	    if (!strcmp (cp2, tokid))
+	    if (!strcasecmp (cp2, tokid))
 	      {
 		msg (SE, _("Vector name %s is given twice."), tokid);
 		goto fail;
@@ -86,14 +89,14 @@ cmd_vector (void)
 	{
 	  /* Long form. */
           struct variable **v;
-          int nv;
+          size_t nv;
 
 	  if (strchr (vecnames, '\0')[1])
 	    {
 	      /* There's more than one vector name. */
 	      msg (SE, _("A slash must be used to separate each vector "
-		   "specification when using the long form.  Commands "
-		   "such as VECTOR A,B=Q1 TO Q20 are not supported."));
+                         "specification when using the long form.  Commands "
+                         "such as VECTOR A,B=Q1 TO Q20 are not supported."));
 	      goto fail;
 	    }
 
@@ -131,13 +134,13 @@ cmd_vector (void)
 	  if (!lex_force_match (')'))
 	    goto fail;
 
-	  /* First check that all the generated variable names are SHORT_NAME_LEN
-	     characters or shorter. */
+	  /* First check that all the generated variable names
+	     are LONG_NAME_LEN characters or shorter. */
 	  ndig = intlog10 (nv);
 	  for (cp = vecnames; *cp;)
 	    {
 	      int len = strlen (cp);
-	      if (len + ndig > SHORT_NAME_LEN)
+	      if (len + ndig > LONG_NAME_LEN)
 		{
 		  msg (SE, _("%s%d is too long for a variable name."), cp, nv);
 		  goto fail;
@@ -153,7 +156,8 @@ cmd_vector (void)
 		  sprintf (name, "%s%d", cp, i + 1);
 		  if (dict_lookup_var (default_dict, name))
 		    {
-		      msg (SE, _("There is already a variable named %s."), name);
+		      msg (SE, _("There is already a variable named %s."),
+                           name);
 		      goto fail;
 		    }
 		}