Changeset 77 for trunk/src/fortran/RpFortranCommon.c

Timestamp:

Sep 29, 2005 10:21:05 PM (19 years ago)

Author:

dkearney

Message:

1. initial checkin of RpLibrary? code, includes c++/c/fortran bindings
2. minor modifications to makefiles to accommodate new code
3. updated README in src to tell how to compile code in src and test

File:

• trunk/src/fortran/RpFortranCommon.c (modified) (2 diffs)

trunk/src/fortran/RpFortranCommon.c

@@ -37 +37 @@
 }
 
+std::string null_terminate_str(const char* inStr, int len)
+{
+    int retVal = 0;
+    std::string newStr = "";
+    const char* current = NULL;
+
+    if (inStr) {
+
+        current = inStr+len-1;
+
+        while ((len > 0) && (isspace(*(current)))) {
+            // dont strip off newlines
+
+            if ( (*(current) == '\f')
+              || (*(current) == '\n')
+              || (*(current) == '\r')
+              || (*(current) == '\t')
+              || (*(current) == '\v') )
+            {
+                break;
+            }
+
+            if (--len) {
+                current--;
+            }
+        }
+
+        newStr = std::string(inStr,len);
+
+        retVal++;
+    }
+
+    // return retVal;
+
+    return newStr;
+}             
+
+
 void fortranify(const char* inBuff, char* retText, int retTextLen) {
 
@@ -42 +80 @@
     int i = 0;
 
-    inBuffLen = strlen(inBuff);
+    if (inBuff && retText && (retTextLen > 0)) {
+        inBuffLen = strlen(inBuff);
 
-    strncpy(retText, inBuff, retTextLen);
+        strncpy(retText, inBuff, retTextLen);
 
-    // fortran-ify the string
-    if (inBuffLen < retTextLen) {
-        for (i = inBuffLen; i < retTextLen; i++) {
-            retText[i] = ' ';
+        // fortran-ify the string
+        if (inBuffLen < retTextLen) {
+            for (i = inBuffLen; i < retTextLen; i++) {
+                retText[i] = ' ';
+            }
         }
     }