Changeset 34526 for branches/eam_branches/ipp-20120905/Ohana/src/opihi/cmd.data

Timestamp:

Oct 7, 2012, 3:16:45 PM (14 years ago)

Author:

eugene

Message:

fix spline function to build correctly

Location:

branches/eam_branches/ipp-20120905/Ohana/src/opihi/cmd.data

Files:

• spline.c (modified) (2 diffs)
• spline_commands.c (modified) (2 diffs)

branches/eam_branches/ipp-20120905/Ohana/src/opihi/cmd.data/spline.c

@@ -2 +2 @@
 
 int spline_list (int argc, char **argv);
-int spline_init (int argc, char **argv);
 int spline_create (int argc, char **argv);
+int spline_apply (int argc, char **argv);
 int spline_delete (int argc, char **argv);
 int spline_getspline (int argc, char **argv);
-int spline_listspline (int argc, char **argv);
-int spline_shuffle (int argc, char **argv);
-int spline_npages (int argc, char **argv);
-int spline_newpage (int argc, char **argv);
-int spline_getpage (int argc, char **argv);
-int spline_delpage (int argc, char **argv);
-int spline_listpage (int argc, char **argv);
-int spline_setword (int argc, char **argv);
-int spline_getword (int argc, char **argv);
 
 static Command spline_commands[] = {
   {1, "list",       spline_list,       "list splines"},
-  {1, "init",       spline_init,       "initialize a spline"},
   {1, "create",     spline_create,     "create a spline"},
+  {1, "apply",      spline_apply,      "apply a spline"},
   {1, "delete",     spline_delete,     "delete a spline"},
 };
@@ -30 +21 @@
     gprint (GP_ERR, "USAGE: spline (command)\n");
     gprint (GP_ERR, "    spline list                                    : list splines\n");
-    gprint (GP_ERR, "    spline init     (spline)                       : removes all pages from spline\n");
     gprint (GP_ERR, "    spline create   (spline)                       : create a spline\n");
     gprint (GP_ERR, "    spline delete   (spline)                       : delete a spline\n");

branches/eam_branches/ipp-20120905/Ohana/src/opihi/cmd.data/spline_commands.c

@@ -31 +31 @@
   Spline *myspline = CreateSpline (argv[1], xvec->Nelements);
 
-  for (i = 0; i < xvec->elements; i++) {
-    myspline->xk[i] = xvec->elements[i];
-    myspline->yk[i] = yvec->elements[i];
+  for (i = 0; i < xvec->Nelements; i++) {
+    myspline->xk[i] = xvec->elements.Flt[i];
+    myspline->yk[i] = yvec->elements.Flt[i];
   }    
 
@@ -61 +61 @@
   ResetVector (yvec, OPIHI_FLT, xvec->Nelements);
 
-  for (i = 0; i < xvec->elements; i++) {
-    opihi_flt value = spline_apply_dbl (myspline->xk, myspline->yk, myspline->y2, myspline->Nknots, xvec->elements[i]);
-    yvec->elements[i] = value;;
+  for (i = 0; i < xvec->Nelements; i++) {
+    opihi_flt value = spline_apply_dbl (myspline->xk, myspline->yk, myspline->y2, myspline->Nknots, xvec->elements.Flt[i]);
+    yvec->elements.Flt[i] = value;
   }