Changeset 496 for trunk/src

Timestamp:

Jul 23, 2006, 12:09:07 PM (18 years ago)

Author:

dkearney

Message:

added getInt and getBool functions to fortran bindings and test programs.

Location:

trunk/src/fortran

Files:

• RpLibraryFInterface.cc (modified) (1 diff)
• RpLibraryFStubs.c (modified) (1 diff)

trunk/src/fortran/RpLibraryFInterface.cc

@@ -529 +529 @@
         if (lib) {
             retVal = lib->getDouble(inPath);
+        }
+    }
+
+    return retVal;
+}
+
+
+/**********************************************************************/
+// FUNCTION: rp_lib_get_integer()
+/// Get data located at 'path' and return it as an integer value.
+/**
+ */
+int rp_lib_get_integer( int* handle,   /* integer handle of library */
+                        char* path,    /* null terminated path */
+                        int path_len
+                      )
+{
+    int retVal = 0;
+
+    RpLibrary* lib = NULL;
+
+    std::string inPath = "";
+
+    inPath = null_terminate_str(path,path_len);
+
+    if ((handle) && (*handle != 0)) {
+        lib = getObject_Lib(*handle);
+
+        if (lib) {
+            retVal = lib->getInt(inPath);
+        }
+    }
+
+    return retVal;
+}
+
+
+/**********************************************************************/
+// FUNCTION: rp_lib_get_boolean()
+/// Get data located at 'path' and return it as an integer value.
+/**
+ */
+int rp_lib_get_boolean( int* handle,   /* integer handle of library */
+                        char* path,    /* null terminated path */
+                        int path_len
+                      )
+{
+    bool value = false;
+    int retVal = 0;
+
+    RpLibrary* lib = NULL;
+
+    std::string inPath = "";
+
+    inPath = null_terminate_str(path,path_len);
+
+    if ((handle) && (*handle != 0)) {
+        lib = getObject_Lib(*handle);
+
+        if (lib) {
+            value = lib->getBool(inPath);
+            if (value == true) {
+                retVal = 1;
+            }
+            else {
+                retVal = 0;
+            }
         }
     }

trunk/src/fortran/RpLibraryFStubs.c

@@ -292 +292 @@
 }
 
+int
+rp_lib_get_integer_ (   int* handle,
+                        char* path,
+                        int path_len) {
+
+    return rp_lib_get_integer(handle,path,path_len);
+}
+
+int
+rp_lib_get_integer__ (  int* handle,
+                        char* path,
+                        int path_len) {
+
+    return rp_lib_get_integer(handle,path,path_len);
+}
+
+int
+RP_LIB_GET_INTEGER (    int* handle,
+                        char* path,
+                        int path_len) {
+
+    return rp_lib_get_integer(handle,path,path_len);
+}
+
+int
+rp_lib_get_boolean_ (   int* handle,
+                        char* path,
+                        int path_len) {
+
+    return rp_lib_get_boolean(handle,path,path_len);
+}
+
+int
+rp_lib_get_boolean__ (  int* handle,
+                        char* path,
+                        int path_len) {
+
+    return rp_lib_get_boolean(handle,path,path_len);
+}
+
+int
+RP_LIB_GET_BOOLEAN (    int* handle,
+                        char* path,
+                        int path_len) {
+
+    return rp_lib_get_boolean(handle,path,path_len);
+}
+
 void
 rp_lib_put_str_ (       int* handle,