Changeset 20827 for branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c

Timestamp:

Nov 24, 2008, 5:09:38 PM (18 years ago)

Author:

eugene

Message:

working on double vectors, other additions

File:

• branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c (modified) (6 diffs)

branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c

@@ -18 +18 @@
 
   for (i = 0; i < Nvectors; i++) {
-    free (vectors[i][0].elements);
+    if (vectors[i][0].elements) {
+      free (vectors[i][0].elements);
+    }
+    if (vectors[i][0].elementsInt) {
+      free (vectors[i][0].elementsInt);
+    }
     free (vectors[i]);
   }
@@ -28 +33 @@
 
   ALLOCATE (vec, Vector, 1);
-  ALLOCATE (vec[0].elements, float, 1);
+
+  vec[0].elementsInt = NULL;
+  ALLOCATE (vec[0].elements, opihi_float, 1);
+  vec[0].type = OPIHI_FLOAT;                      /* is a float unless specified otherwise */
+
   bzero (vec[0].name, 1024);
   vec[0].Nelements = 0;
@@ -95 +104 @@
   if (i == Nvectors) return (FALSE);
 
-  free (vectors[i][0].elements);
+  if (vectors[i][0].elements)    free (vectors[i][0].elements);
+  if (vectors[i][0].elementsInt) free (vectors[i][0].elementsInt);
   free (vectors[i]);
 
@@ -115 +125 @@
   if (i == Nvectors) return (FALSE);
 
-  free (vectors[i][0].elements);
+  if (vectors[i][0].elements)    free (vectors[i][0].elements);
+  if (vectors[i][0].elementsInt) free (vectors[i][0].elementsInt);
   free (vectors[i]);
 
@@ -137 +148 @@
   free (out[0].elements);
   out[0].Nelements = in[0].Nelements;
-  ALLOCATE (out[0].elements, float, out[0].Nelements);
-  memcpy (out[0].elements, in[0].elements, out[0].Nelements*sizeof(float));
+  if (in[0].elements) {
+    assert (in[0].type == OPIHI_FLOAT);
+    ALLOCATE (out[0].elements, opihi_float, out[0].Nelements);
+    memcpy (out[0].elements, in[0].elements, out[0].Nelements*sizeof(opihi_float));
+    out[0].type = OPIHI_FLOAT;
+  } else {
+    assert (in[0].type == OPIHI_INT);
+    ALLOCATE (out[0].elementsInt, opihi_int, out[0].Nelements);
+    memcpy (out[0].elementsInt, in[0].elementsInt, out[0].Nelements*sizeof(opihi_int));
+    out[0].type = OPIHI_INT;
+  }
   return (TRUE);
 }
@@ -154 +174 @@
 
   free (out[0].elements);
-  out[0].Nelements = in[0].Nelements;
-  out[0].elements =  in[0].elements;
+  out[0].Nelements   = in[0].Nelements;
+  out[0].elements    = in[0].elements;
+  out[0].elementsInt = in[0].elementsInt;
+  out[0].type        = in[0].type;
 
   /* delete vector entry from vector list, if it exists */