X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Flanguage%2Fdata-io%2Fmatrix-reader.c;h=c0cee0474310b5b1ad3e9a47c792d6e316baad34;hb=35717813005e999b6b807fc3f4bd6bb2d770f301;hp=65e3cf4d08cd59219e65fec3211ec875c841c026;hpb=a893ad180353823f3e123cd268d98026e5a31ed7;p=pspp

diff --git a/src/language/data-io/matrix-reader.c b/src/language/data-io/matrix-reader.c
index 65e3cf4d08..c0cee04743 100644
--- a/src/language/data-io/matrix-reader.c
+++ b/src/language/data-io/matrix-reader.c
@@ -77,7 +77,6 @@ s_0 ROWTYPE_   VARNAME_   v_0         v_1         v_2
 
 struct matrix_reader
 {
-  const struct dictionary *dict;
   const struct variable *varname;
   const struct variable *rowtype;
   struct casegrouper *grouper;
@@ -85,9 +84,6 @@ struct matrix_reader
   gsl_matrix *n_vectors;
   gsl_matrix *mean_vectors;
   gsl_matrix *var_vectors;
-
-  gsl_matrix *correlation;
-  gsl_matrix *covariance;
 };
 
 struct matrix_reader *
@@ -96,7 +92,6 @@ create_matrix_reader_from_case_reader (const struct dictionary *dict, struct cas
 {
   struct matrix_reader *mr = xzalloc (sizeof *mr);
 
-  mr->dict = dict;
   mr->varname = dict_lookup_var (dict, "varname_");
   if (mr->varname == NULL)
     {
@@ -105,6 +100,14 @@ create_matrix_reader_from_case_reader (const struct dictionary *dict, struct cas
       return NULL;
     }
 
+  if (!var_is_alpha (mr->varname))
+    {
+      msg (ME, _("Matrix dataset variable %s should be of string type."),
+	   "VARNAME_");
+      free (mr);
+      return NULL;
+    }
+
   mr->rowtype = dict_lookup_var (dict, "rowtype_");
   if (mr->rowtype == NULL)
     {
@@ -113,6 +116,14 @@ create_matrix_reader_from_case_reader (const struct dictionary *dict, struct cas
       return NULL;
     }
 
+  if (!var_is_alpha (mr->rowtype))
+    {
+      msg (ME, _("Matrix dataset variable %s should be of string type."),
+	   "ROWTYPE_");
+      free (mr);
+      return NULL;
+    }
+
   size_t dvarcnt;
   const struct variable **dvars = NULL;
   dict_get_vars (dict, &dvars, &dvarcnt, DC_SCRATCH);
@@ -204,10 +215,10 @@ next_matrix_from_reader (struct matrix_material *mm,
   for (i = 0; i < n_vars; ++i)
     {
       const int w = var_get_width (mr->varname);
-      uint8_t s[w];
+      char s[w];
       memset (s, 0, w);
       const char *name = var_get_name (vars[i]);
-      strcpy (s, name);
+      strncpy (s, name, w);
       unsigned long h = hash_bytes (s, w, 0);
       table[i] = h;
     }
@@ -219,8 +230,7 @@ next_matrix_from_reader (struct matrix_material *mm,
       int col, row;
       for (col = 0; col < n_vars; ++col)
 	{
-	  const struct variable *cv
-	    = vars ? vars[col] : dict_get_var (mr->dict, var_get_dict_index (mr->varname) + 1 + col);
+	  const struct variable *cv = vars[col];
 	  double x = case_data (c, cv)->f;
 	  if (0 == strncasecmp ((char *)value_str (uv, 8), "N       ", 8))
 	    for (row = 0; row < n_vars; ++row)
@@ -251,22 +261,18 @@ next_matrix_from_reader (struct matrix_material *mm,
       if (mrow == -1)
 	continue;
 
-
       if (0 == strncasecmp ((char *) value_str (uv, 8), "CORR    ", 8))
 	{
-	  matrix_fill_row (&mr->correlation, c, mrow, vars, n_vars);
+	  matrix_fill_row (&mm->corr, c, mrow, vars, n_vars);
 	}
       else if (0 == strncasecmp ((char *) value_str (uv, 8), "COV     ", 8))
 	{
-	  matrix_fill_row (&mr->covariance, c, mrow, vars, n_vars);
+	  matrix_fill_row (&mm->cov, c, mrow, vars, n_vars);
 	}
     }
 
   casereader_destroy (group);
 
-  mm->cov = mr->covariance;
-  mm->corr = mr->correlation;
-
   free (table);
 
   return true;