NLM_EXTERN Nlm_CharPtr LIBCALL Nlm_StrSave (const char FAR *from)
{
size_t len;
Nlm_CharPtr to;
len = Nlm_StringLen(from);
if ((to = (Nlm_CharPtr) Nlm_MemGet(len +1, FALSE)) != NULL) {
Nlm_MemCpy (to, from, len +1);
}
return to;
}
NLM_EXTERN Nlm_CharPtr LIBCALL Nlm_StringPrintable(const Nlm_Char PNTR str,
Nlm_Boolean rn_eol)
{
size_t str_len = 0;
const Nlm_Char PNTR s;
Nlm_CharPtr new_str, new_s;
if ( !str )
return NULL;
if ( rn_eol )
{
for (s = str; *s; s++)
if (*s == '\n')
str_len += 2;
else if (*s == '\t' || IS_PRINT(*s))
str_len++;
}
else
{
for (s = str; *s; s++)
if (*s == '\n' || *s == '\t' || IS_PRINT(*s))
str_len++;
}
new_str = (Nlm_CharPtr)Nlm_MemGet(str_len+1, MGET_ERRPOST);
if ( !new_str )
return NULL;
if ( rn_eol )
{
for (s = str, new_s = new_str; *s; s++)
if (*s == '\n')
{
*new_s++ = '\r';
*new_s++ = '\n';
}
else if (*s == '\t' || IS_PRINT(*s))
*new_s++ = *s;
}
else
{
for (s = str, new_s = new_str; *s; s++)
if (*s == '\n' || *s == '\t' || IS_PRINT(*s))
*new_s++ = *s;
}
*new_s = '\0';
return new_str;
}
/*****************************************************************************
*
* FilePathFind()
*
*****************************************************************************/
NLM_EXTERN Nlm_CharPtr LIBCALL Nlm_FilePathFind(const Nlm_Char* fullname)
{
Nlm_CharPtr str;
size_t len = Nlm_StringLen(fullname);
if ( !len )
return 0;
while (len && fullname[len] != DIRDELIMCHR)
len--;
str = (Nlm_Char*)Nlm_MemGet(len + 1, MGET_ERRPOST);
Nlm_MemCpy(str, fullname, len);
str[len] = '\0';
return str;
}
NLM_EXTERN Nlm_CharPtr LIBCALL StrDupPtr(char FAR *Start,char FAR *Stop)
/* copies the string from Start (inclusive) to Stop (exclusive) to
a new string and returns its pointer.
Start and Stop MUST point to the same string!
*/
{
Nlm_CharPtr Dest, DestPtr;
DestPtr = Dest = (Nlm_CharPtr)Nlm_MemGet((Stop - Start + 1),MGET_ERRPOST);
while ( *Start && ( Start < Stop ) )
*DestPtr++ = *Start++;
*DestPtr = NULLB;
return(Dest);
}
NLM_EXTERN Nlm_Boolean LIBCALL StringSubString(char FAR *theString, char FAR *Find, char FAR *Replace, Nlm_Int4 MaxLength)
/* replaces all non-overlapping instances of the string Find in the
string theString with the string Replace. The strings do not have to be the
same size. The new string is truncated at MaxLength characters
Including the final NULL). If MaxLength is zero, the string's current
length is presumed to be the maximum.
It returns TRUE if any strings were replaced, else FALSE.
*/
{
Nlm_CharPtr FindPtr,ComparePtr,StringPtr,NewString, NewStringPtr;
Nlm_Int4 SpaceNeeded,Len;
Nlm_Boolean Replaced = FALSE;
if (*Find == NULLB)
return(FALSE);
Len = Nlm_StringLen(theString);
SpaceNeeded = MAX( (Nlm_Int4)((Len * Nlm_StringLen(Replace)
* sizeof(Nlm_Char) )
/ Nlm_StringLen(Find) + 1),Len) + 1;
NewStringPtr = NewString = (Nlm_CharPtr)
Nlm_MemGet((size_t)SpaceNeeded, MGET_ERRPOST);
StringPtr = theString;
while (*StringPtr != NULLB)
{
FindPtr = Find;
ComparePtr = StringPtr;
while ( (*FindPtr != NULLB) && (*FindPtr == *ComparePtr) )
{
FindPtr++;
ComparePtr++;
}
/* if we found the entire string, replace it. */
if (*FindPtr == NULLB)
{
NewStringPtr = StringMove(NewStringPtr,Replace);
StringPtr = ComparePtr;
Replaced = TRUE;
}
else
/* otherwise, move on to the next character. */
*NewStringPtr++ = *StringPtr++;
}
*NewStringPtr = NULLB;
if (MaxLength <= 0)
MaxLength = strlen(theString) + 1;
/* Truncate the string, if necessary.*/
if ((Nlm_Int4)strlen(NewString) >= MaxLength - 1)
{
NewString[MaxLength-1] = NULLB;
}
Nlm_StringCpy(theString,NewString);
Nlm_MemFree(NewString);
return(Replaced);
}
