Changeset 2408 for trunk/src/core/RpLibraryFStubs.c

Timestamp:

Aug 24, 2011 7:01:44 PM (11 years ago)

Author:

dkearney

Message:

adding a getFile function for rappture library and fortran bindings so fortran users no longer need to know the length of a string a user provides them as input, before compile time. they can now just dump the string into a file, and read the file as they are probably already used to doing. also fixed a bug in teh Rappture::Buffer dump function where it would correctly open a file pointer, but failed the check to see if the file pointer was opened.

File:

• trunk/src/core/RpLibraryFStubs.c (modified) (2 diffs)

trunk/src/core/RpLibraryFStubs.c

@@ -340 +340 @@
 }
 
+int rp_lib_get_file_ (  int* handle,
+                        char* path,
+                        char* fileName,
+                        int path_len,
+                        int fileName_len) {
+
+    return rp_lib_get_file(handle,path,fileName,path_len,fileName_len);
+}
+
+int rp_lib_get_file__ ( int* handle,
+                        char* path,
+                        char* fileName,
+                        int path_len,
+                        int fileName_len) {
+
+    return rp_lib_get_file(handle,path,fileName,path_len,fileName_len);
+}
+
+int RP_LIB_GET_FILE (   int* handle,
+                        char* path,
+                        char* fileName,
+                        int path_len,
+                        int fileName_len) {
+
+    return rp_lib_get_file(handle,path,fileName,path_len,fileName_len);
+}
+
 void
 rp_lib_put_str_ (       int* handle,
@@ -353 +380 @@
 
 void
-rp_lib_put_str__ (       int* handle,
+rp_lib_put_str__ (      int* handle,
                         char* path,
                         char* value,