Changeset 154 for trunk/src/matlab/rpLibPutDouble.cc

Timestamp:

Jan 11, 2006 3:55:15 PM (16 years ago)

Author:

dkearney

Message:

modified matlab bindings and tests.
includes all popular functions available in RpLibrary? and RpUnits
compile and run, but not all tests work as they should
some of these functions will be removed soon because the id field is
no longer a valid argument. path ids should be incorporated in paths from now on.

File:

• trunk/src/matlab/rpLibPutDouble.cc (modified) (6 diffs)

trunk/src/matlab/rpLibPutDouble.cc

@@ -3 +3 @@
  *  INTERFACE: Matlab Rappture Library Source
  *
- *    rpLibPutDouble(libHandle,path,value,append)
+ *    [err] = rpLibPutDouble(libHandle,path,value,append)
  *
  * ======================================================================
@@ -16 +16 @@
 #include "RpMatlabInterface.h"
 
+/**********************************************************************/
+// METHOD: [err] = rpLibPutDouble (libHandle,path,value,append)
+/// Set the value of a node.
+/**
+ * Clients use this to set the value of a node.  If the path
+ * is not specified, it sets the value for the root node.
+ * Otherwise, it sets the value for the element specified
+ * by the path.  The value is treated as the text within the`
+ * tag at the tail of the path.
+ *
+ * If the append flag is set to 1, then the`
+ * value is appended to the current value.  Otherwise, the`
+ * value specified in the function call replaces the current value.
+ *
+ */
+
+
 void mexFunction(int nlhs, mxArray *plhs[],
                  int nrhs, const mxArray *prhs[])
@@ -21 +38 @@
     int         libIndex = 0;
     int         append = 0;
+    int         err = 1;
     RpLibrary*  lib = NULL;
     RpLibrary*  retLib = NULL;
@@ -29 +47 @@
     if (nrhs != 4)
         mexErrMsgTxt("Two input required.");
-    else if (nlhs > 0)
+    else if (nlhs > 1)
         mexErrMsgTxt("Too many output arguments.");
 
@@ -35 +53 @@
     path = getStringInput(prhs[1]);
     value = getDoubleInput(prhs[2]);
-    append = getIntInput(prhs[4]);
+    append = getIntInput(prhs[3]);
 
     /* Call the C subroutine. */
@@ -42 +60 @@
         if (lib) {
             rpPutDouble(lib,path,value,append);
+            err = 0;
         }
     }
 
+    plhs[0] = mxCreateDoubleScalar(err);
+
     return;
 }