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

Timestamp:

Nov 30, 2008, 11:13:15 AM (18 years ago)

Author:

eugene

Message:

allow functions to use FLT or INT vectors as appropriate; document valid types

File:

• branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c (modified) (1 diff)

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

@@ -187 +187 @@
 }
 
+// recast the vector to the specified type
+int CastVector (Vector *vec, char type) {
+
+  // the trivial case
+  if (vec[0].type == type) return TRUE;
+
+  if (type == OPIHI_FLT) {
+    opihi_flt *temp;
+    ALLOCATE (temp, opihi_flt, vec[0].Nelements);
+    opihi_flt *vo = temp;
+    opihi_int *vi = vec[0].elements.Int;
+    for (i = 0; i < vec[0].Nelements; i++, vo++, vi++) {
+      *vo = *vi;
+    }
+    free (vec[0].elements.Int);
+    vec[0].elements.Flt = vo;
+    vec[0].type = OPIHI_FLT;
+  } else {
+    opihi_int *temp;
+    ALLOCATE (temp, opihi_int, vec[0].Nelements);
+    opihi_int *vo = temp;
+    opihi_flt *vi = vec[0].elements.Flt;
+    for (i = 0; i < vec[0].Nelements; i++, vo++, vi++) {
+      *vo = *vi;
+    }
+    free (vec[0].elements.Flt);
+    vec[0].elements.Int = vo;
+    vec[0].type = OPIHI_INT;
+  }
+  return TRUE;
+}
+
 /* move data from in to out - use old memory space */
 int MoveNamedVector (char *out, char *in) {