Changeset 77 for trunk/src/fortran
- Timestamp:
- Sep 29, 2005, 10:21:05 PM (19 years ago)
- Location:
- trunk/src/fortran
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/fortran/RpFortranCommon.c
r76 r77 37 37 } 38 38 39 std::string null_terminate_str(const char* inStr, int len) 40 { 41 int retVal = 0; 42 std::string newStr = ""; 43 const char* current = NULL; 44 45 if (inStr) { 46 47 current = inStr+len-1; 48 49 while ((len > 0) && (isspace(*(current)))) { 50 // dont strip off newlines 51 52 if ( (*(current) == '\f') 53 || (*(current) == '\n') 54 || (*(current) == '\r') 55 || (*(current) == '\t') 56 || (*(current) == '\v') ) 57 { 58 break; 59 } 60 61 if (--len) { 62 current--; 63 } 64 } 65 66 newStr = std::string(inStr,len); 67 68 retVal++; 69 } 70 71 // return retVal; 72 73 return newStr; 74 } 75 76 39 77 void fortranify(const char* inBuff, char* retText, int retTextLen) { 40 78 … … 42 80 int i = 0; 43 81 44 inBuffLen = strlen(inBuff); 82 if (inBuff && retText && (retTextLen > 0)) { 83 inBuffLen = strlen(inBuff); 45 84 46 strncpy(retText, inBuff, retTextLen);85 strncpy(retText, inBuff, retTextLen); 47 86 48 // fortran-ify the string 49 if (inBuffLen < retTextLen) { 50 for (i = inBuffLen; i < retTextLen; i++) { 51 retText[i] = ' '; 87 // fortran-ify the string 88 if (inBuffLen < retTextLen) { 89 for (i = inBuffLen; i < retTextLen; i++) { 90 retText[i] = ' '; 91 } 52 92 } 53 93 }
Note: See TracChangeset
for help on using the changeset viewer.