Changeset 20859 for branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/cumulative.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/cmd.data/cumulative.c (modified) (2 diffs)

branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/cumulative.c

@@ -4 +4 @@
   
   int i;
-  opihi_flt *Vi, *Vo;
+  opihi_flt *Vo;
   Vector *ivec, *ovec;
 
@@ -14 +14 @@
   if ((ivec = SelectVector (argv[1], OLDVECTOR, TRUE)) == NULL) return (FALSE);
   if ((ovec = SelectVector (argv[2], ANYVECTOR, TRUE)) == NULL) return (FALSE);
-  ovec[0].Nelements = ivec[0].Nelements;
-    
-  REALLOCATE (ovec[0].elements.Flt, opihi_flt, ovec[0].Nelements);
+
+  ResetVector (ovec, OPIHI_FLT, ivec[0].Nelements);
   bzero (ovec[0].elements.Flt, sizeof(opihi_flt)*ovec[0].Nelements);
 
-  Vi = ivec[0].elements.Flt;
   Vo = ovec[0].elements.Flt;
-  *Vo = *Vi;
-  for (i = 1; i < ivec[0].Nelements; i++, Vi++, Vo++) {
-    *Vo = Vo[-1] + *Vi;
-  }      
+
+  if (ivec[0].type == OPIHI_FLT) {
+    opihi_flt *Vi = ivec[0].elements.Flt;
+    *Vo = *Vi;
+    for (i = 1; i < ivec[0].Nelements; i++, Vi++, Vo++) {
+      *Vo = Vo[-1] + *Vi;
+    }      
+  } else {
+    opihi_int *Vi = ivec[0].elements.Int;
+    *Vo = *Vi;
+    for (i = 1; i < ivec[0].Nelements; i++, Vi++, Vo++) {
+      *Vo = Vo[-1] + *Vi;
+    }      
+  }
   return (TRUE);
 }