This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-goldedplus/goldlib/gall/gstrutil.cpp

909 lines
20 KiB
C++
Raw Normal View History

2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
// The Goldware Library
// Copyright (C) 1990-1999 Odinn Sorensen
// Copyright (C) 1999-2000 Alexander S. Aganichev
// ------------------------------------------------------------------
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License as
// published by the Free Software Foundation; either version 2 of the
// License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
// ------------------------------------------------------------------
// $Id$
// ------------------------------------------------------------------
// Based on source from the CXL library by Mike Smedley.
// String manipulation.
// ------------------------------------------------------------------
#include <gctype.h>
#include <cstdio>
#include <stdarg.h>
// -------------------------------------------------------------------
// snprintf() and vsnprintf()
// ---- FIXME: All HAVE_* macro should be defined in makefile or created by autoconf
#ifdef __GNUC__
# define HAVE_SNPRINTF
# define HAVE_VSNPRINTF
# define HAVE_STDARG_H
#endif
#if defined(__WATCOMC__)
# define HAVE__SNPRINTF
# define HAVE__VSNPRINTF
#endif
#if defined(_MSC_VER)
2011-02-20 22:21:41 +00:00
/* It is need a workaround for implementation "speciality" in snprintf() and vsnprintf() from Microsoft. */
int snprintf( char *buffer, size_t sizeOfBuffer, const char *format, ... )
{
va_list argptr;
va_start(argptr, format);
int r = _vsnprintf( buffer, sizeOfBuffer, format, argptr );
if( r == -1 || r == sizeOfBuffer )
buffer[sizeOfBuffer-1] = '\0';
va_end(argptr);
return r;
}
# define HAVE_SNPRINTF 1
int vsnprintf( char *buffer, size_t sizeOfBuffer, const char *format, va_list argptr )
{
int r = _vsnprintf( buffer, sizeOfBuffer, format, argptr );
if( r == -1 || r == sizeOfBuffer )
buffer[sizeOfBuffer-1] = '\0';
return r;
}
# define HAVE_VSNPRINTF 1
#endif
#ifndef HAVE_SNPRINTF
# if defined(HAVE__SNPRINTF)
# define snprintf _snprintf
# define HAVE_SNPRINTF 1
# endif
#endif
#ifndef HAVE_VSNPRINTF
# if defined(HAVE__VSNPRINTF)
# define vsnprintf _vsnprintf
# define HAVE_VSNPRINTF 1
# endif
#endif
#if !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF)
# include snprintf.c
#endif
//--------------------------------------------------------------------
2000-02-25 10:15:17 +00:00
#include <gstrall.h>
2006-05-13 16:15:35 +00:00
#include <glog.h>
#include <gdbgerr.h>
extern glog LOG;
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
// Determines if a string is blank
bool strblank(const char* str) {
const char* p;
for(p = str; *p; p++)
if(not isspace(*p))
return false;
return true;
}
// ------------------------------------------------------------------
// Changes all occurrences of one character to another
size_t strchg(char *str, char oldch, char newch)
{
size_t count = 0;
2000-02-25 10:15:17 +00:00
for (char *p = str; *p; p++)
{
if (oldch == *p)
{
2000-02-25 10:15:17 +00:00
*p = newch;
count++;
}
}
return count;
}
// ------------------------------------------------------------------
// Changes all occurrences of one character to another
size_t strchg(std::string &str, char oldch, char newch)
{
size_t count = 0;
std::string::iterator it = str.begin();
std::string::iterator end = str.end();
for (; it != end; it++)
{
if (oldch == *it)
{
*it = newch;
count++;
}
}
return count;
}
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
// Deletes a substring from within a string
static char* strdel(const char* substr, char* str) {
char* dest = strstr(str, substr);
if(!dest)
return NULL;
char* src = dest + strlen(substr);
2011-02-19 02:08:41 +00:00
strcpy(dest, src); /* Source and destination overlap. This is rigth. */
2000-02-25 10:15:17 +00:00
return str;
}
// ------------------------------------------------------------------
// Deletes a substring from within a string, ignores case
static char* stridel(const char* substr, char* str) {
char* dest = (char*)striinc(substr, str);
if(!dest)
return NULL;
char* src = dest + strlen(substr);
strcpy(dest, src);
return str;
}
// ------------------------------------------------------------------
// Deletes all occurrences of one string inside another
char* stridela(const char* substr, char* str) {
int count = 0;
char* p = str;
while((p = (char*)striinc(substr, p)) != NULL) {
stridel(substr, p);
count++;
}
if(count)
return str;
return NULL;
}
// ------------------------------------------------------------------
// Compare two strings, allowing wildcards
int strnicmpw(const char* str1, const char* str2, int len) {
int cmp = 0;
for(int n=0; n<len; n++) {
// Single char match?
if(str1[n] == '?')
continue;
// Matches rest of string?
else if(str1[n] == '*')
return 0;
// Compare chars
else if((cmp = compare_two(g_toupper(str1[n]), g_toupper(str2[n]))) != 0)
2000-02-25 10:15:17 +00:00
return cmp;
}
return cmp;
}
// ------------------------------------------------------------------
// Determines if string1 is included in string2
const char* striinc(const char* str1, const char* str2) {
int max = strlen(str1);
for(const char* p=str2; *p; p++)
if(!strnicmp(str1,p,max))
return p;
return NULL; // string1 not found in string2
}
// ------------------------------------------------------------------
// Inserts one string into another
char* strins(const char* instr, char* str, int st_pos) {
int i, leninstr;
// get length of string to insert
leninstr = strlen(instr);
// shift affected portion of str text to the right
for(i=strlen(str); i>=st_pos; i--)
*(str+leninstr+i) = *(str+i);
// insert instr text
for(i=0; i<leninstr; i++)
*(str+st_pos+i) = *(instr+i);
// return address of modified string
return str;
}
// ------------------------------------------------------------------
// String search and replace, case insensitive
char* strisrep(char* str, const char* search, const char* replace) {
2000-02-25 10:15:17 +00:00
char* p;
if((p = (char*)striinc(search,str)) != NULL) {
stridel(search, str);
strins(replace, str, (int)(p-str));
p = str;
}
return p;
}
// ------------------------------------------------------------------
// Changes all occurrences of one string to another
char* strischg(char* str, const char* find, const char* replace) {
int count = 0;
char* p = str;
int len = strlen(replace);
while((p = (char*)striinc(find, p)) != NULL) {
strisrep(p, find, replace);
p += len;
count++;
}
if(count)
return str;
return NULL;
}
// ------------------------------------------------------------------
// Changes all occurrences of one string to another
void strischg(std::string &str, const char* find, const char* replace)
{
2006-02-24 08:53:21 +00:00
size_t lenf = strlen(find);
size_t lenr = strlen(replace);
size_t length = str.length();
2006-02-24 08:53:21 +00:00
for (size_t pos = 0; pos < length; )
{
2006-02-24 08:53:21 +00:00
if (strnieql(&(str.c_str()[pos]), find, lenf))
{
2006-02-24 08:53:21 +00:00
str.replace(pos, lenf, replace, lenr);
pos += lenr;
length = str.length();
}
2006-02-24 08:53:21 +00:00
else
pos++;
}
}
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
// Takes a long number and makes a string with the form x.xxx.xxx.xxx
char* longdotstr(long num) {
// 1234567890123
// 4.294.967.296
static char buf[15];
return longdotstr(buf, num);
}
// ------------------------------------------------------------------
// Takes a long number and makes a string with the form x.xxx.xxx.xxx
char* longdotstr(char* str, long num) {
char tmp[20], pos=0;
char* out = str;
char* ptr = tmp;
do {
if(pos == 3 or pos == 6 or pos == 9)
*ptr++ = '.';
pos++;
*ptr++ = (char)(num % 10 + '0');
} while((num = num/10) > 0);
while(ptr-- > tmp)
*str++ = *ptr;
*str = NUL;
return out;
}
// ------------------------------------------------------------------
char* strp2c(char* str) {
int len = *str;
memmove(str, str+1, len); // Copy data part
str[len] = NUL; // Set length
return str;
}
// ------------------------------------------------------------------
char* strnp2c(char* str, int n) {
int len = (n < *str) ? n : *str;
memmove(str, str+1, len); // Copy data part
str[len] = NUL; // Set length
return str;
}
// ------------------------------------------------------------------
char* strnp2cc(char* dest, const char* str, int n) {
int len = (n < *str) ? n : *str;
memcpy(dest, str+1, len); // Copy data part
dest[len] = NUL; // Set length
return dest;
}
// ------------------------------------------------------------------
char* strc2p(char* str) {
char len = (char)strlen(str);
memmove(str+1, str, len); // Copy data part
*str = len; // Set length
return str;
}
// ------------------------------------------------------------------
// Strip the quotes off a quoted string ("" or '')
char* StripQuotes(char* str) {
int len;
switch(*str) {
case '\'':
case '\"':
len = strlen(str);
switch(*(str+len-1)) {
case '\'':
case '\"':
memmove(str, str+1, len);
str[len-2] = NUL;
}
}
return str;
}
// ------------------------------------------------------------------
// Right justifies a string
char* strrjust(char* str) {
char* p;
char* q;
for(p=str; *p; p++)
; // find end of string
p--;
for(q=p; isspace(*q) and q>=str; q--)
; // find last non-space character
if(p != q) {
while(q >= str) {
*p-- = *q;
*q-- = ' ';
}
}
return str;
}
// ------------------------------------------------------------------
// Changes all occurrences of one string to another
char* strschg(char* str, const char* find, const char* replace) {
int count = 0;
char* p = str;
int len = strlen(replace);
while((p = strstr(p, find)) != NULL) {
strsrep(p, find, replace);
p += len;
count++;
}
if(count)
return str;
return NULL;
}
// ------------------------------------------------------------------
// Adjusts the size of a string
char* strsetsz(char* str, int newsize) {
int i;
int len = strlen(str);
if(newsize < len)
*(str+newsize) = NUL;
else {
for(i=len; i<newsize; i++)
*(str+i) = ' ';
*(str+i) = NUL;
}
return str;
}
// ------------------------------------------------------------------
// Shifts a string left
char* strshl(char* str, int count) {
int i, j;
if(*str) {
for(j=0; j<count; j++) {
for(i=0; *(str+i); i++)
*(str+i) = *(str+i+1);
*(str+i-1) = ' ';
}
}
return str;
}
// ------------------------------------------------------------------
// Shifts a string right
char* strshr(char* str, int count) {
int i, j, len;
if(*str) {
len = strlen(str)-1;
for(j=0; j<count; j++) {
for(i=len; i>0; i--)
*(str+i) = *(str+i-1);
*(str) = ' ';
}
}
return str;
}
// ------------------------------------------------------------------
// String search and replace, case sensitive
char* strsrep(char* str, const char* search, const char* replace) {
char* p;
if((p = strstr(str, search)) != NULL) {
strdel(search, str);
strins(replace, str, (int)(p-str));
p = str;
}
return p;
}
// ------------------------------------------------------------------
// Trims trailing spaces off of a string
char* strtrim(char* p) {
int i;
2002-06-16 10:07:36 +00:00
for(i = strlen(p) - 1; (i >= 0) and (isspace(p[i]) or iscntrl(p[i])); i--) {}
p[i + 1] = NUL;
2000-02-25 10:15:17 +00:00
return p;
}
std::string &strtrim(std::string &str)
{
if (!str.empty())
{
2007-01-11 22:26:06 +00:00
std::string::iterator begin = str.begin();
std::string::iterator trail = str.end();
2000-03-23 17:19:54 +00:00
2007-01-11 22:26:06 +00:00
while (trail != begin)
{
2002-06-16 10:07:36 +00:00
--trail;
if (not isspace(*trail) and not iscntrl(*trail))
{
2002-06-16 10:07:36 +00:00
++trail;
break;
}
}
str.erase(trail, str.end());
2000-03-23 17:19:54 +00:00
}
return str;
2000-03-23 17:19:54 +00:00
}
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
// Trims leading spaces off of a string
char* strltrim(char* str)
{
2000-02-25 10:15:17 +00:00
char* p;
char* q;
p = q = str;
2002-06-16 10:07:36 +00:00
while(*p and (isspace(*p) or iscntrl(*p)))
2000-02-25 10:15:17 +00:00
p++;
if(p != q) {
while(*p)
*q++ = *p++;
*q = NUL;
}
return str;
}
// ------------------------------------------------------------------
std::string &strltrim(std::string &str)
{
if (!str.empty())
{
std::string::iterator begin = str.begin();
std::string::iterator end = str.end();
std::string::iterator it = begin;
for (; (it != end) && isspace(*it); it++) { /**/ }
if (it != begin) str.erase(begin, it);
}
return str;
}
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
2001-01-27 11:52:13 +00:00
const char* strlword(const char* str, const char *separator) {
2000-02-25 10:15:17 +00:00
char buf[256];
static char left[40];
*left = NUL;
if(*str) {
strxcpy(buf, str, sizeof(buf));
2001-01-27 11:52:13 +00:00
if(strtok(buf, (separator == NULL) ? " \t\n\r" : separator) != NULL) {
strxcpy(left, buf, sizeof(left));
2000-02-25 10:15:17 +00:00
}
}
return left;
}
// ------------------------------------------------------------------
2001-01-27 11:52:13 +00:00
const char* strrword(const char* str, const char *separator) {
2000-02-25 10:15:17 +00:00
char* ptr;
char* ptr2;
char buf[256];
static char right[40];
*right = NUL;
if(*str) {
strxcpy(buf, str, sizeof(buf));
2001-01-27 11:52:13 +00:00
if(separator == NULL) {
separator = " \t\n\r";
}
ptr = strtok(buf, separator);
2000-02-25 10:15:17 +00:00
ptr2 = ptr;
while(ptr != NULL) {
ptr2 = ptr;
2001-01-27 11:52:13 +00:00
ptr = strtok(NULL, separator);
2000-02-25 10:15:17 +00:00
}
if(ptr2) {
strxcpy(right, ptr2, sizeof(right));
2000-02-25 10:15:17 +00:00
}
}
return right;
}
// ------------------------------------------------------------------
2010-03-28 17:21:39 +00:00
// copy not more n-1 bytes of "s" into "d", insert '\0' into end of string.
// return d
TCHAR *strxcpy(TCHAR *d, const TCHAR *s, size_t n)
{
#if defined(_tcsncpy_s)
_tcsncpy_s(d, n, s, _TRUNCATE);
#else
if (n)
{
2006-05-14 18:37:26 +00:00
strncpy(d, s, n-1);
2000-02-25 10:15:17 +00:00
d[n-1] = NUL;
}
else
*d = NUL;
#endif
2000-02-25 10:15:17 +00:00
return d;
}
// ------------------------------------------------------------------
char *strxcat(char *dest, const char *src, size_t max)
{
while (*dest and (max > 0)) {
--max;
dest++;
}
while (*src and (max > 0)) {
--max;
*dest++ = *src++;
}
*dest = NUL;
return dest;
}
// ------------------------------------------------------------------
char *strxmerge(char *dest, size_t max, ...)
{
va_list a;
va_start(a, max);
for(; max > 0;) {
const char *src = va_arg(a, const char *);
if (src == NULL)
break;
while (*src and (max > 0)) {
--max;
*dest++ = *src++;
}
}
va_end(a);
*dest = NUL;
return dest;
}
2006-05-13 16:15:35 +00:00
// ------------------------------------------------------------------
int gsprintf(TCHAR* buffer, size_t sizeOfBuffer, const TCHAR* __file, int __line, const TCHAR* format, ...)
{
int ret = -1;
2011-02-20 20:41:48 +00:00
if (!buffer || !format)
2006-05-13 16:15:35 +00:00
{
2011-02-20 20:41:48 +00:00
LOG.errpointer(__file, __line);
LOG.printf( "! Parameter is NULL pointer: gsprintf(%s,%i,%s,...).",
(buffer?"buffer":"NULL"), sizeOfBuffer, (format?"format":"NULL") );
PointerErrorExit();
return -1;
}
if (!sizeOfBuffer)
{
LOG.errpointer(__file, __line);
LOG.printf("! Buffer size is 0: gsprintf(buf,0,...).");
TestErrorExit();
return -1;
}
if (!*format)
{
LOG.errpointer(__file, __line);
LOG.printf("! Format is empty string: gsprintf(buffer,%i,"",...).", sizeOfBuffer);
return 0;
}
{
va_list argptr;
va_start(argptr, format);
/* _vsnprintf_s() may cause exception. Need to test before enabling.
# if __VISUAL_C_NOT_LESS(14,00) // defined HAVE__VSTPRINTF_S // _vsnprintf_s() recommended in MSDN
ret = _vsnprintf_s(buffer, _TRUNCATE, format, argptr);
2006-05-13 16:15:35 +00:00
if (ret < 0)
2011-02-20 20:41:48 +00:00
{
if (sizeOfBuffer>7) strcpy(buffer," ERROR ");
else buffer[sizeOfBuffer-1] = '\0';
LOG.errpointer(__FILE__,__LINE__-5);
LOG.printf("! gsprintf()(buffer,%i,%s,...): _vsnprintf_s() error: \"%s\".", sizeOfBuffer, format, strerror(errno));
return -1;
}
buffer[sizeOfBuffer-1] = '\0'; // Microsoft implementation don't write final '\0' if buffer full.
# elif __VISUAL_C_NOT_LESS(10,00) // defined HAVE__VSTPRINTF // _vsnprintf() exist in VS6 and deprecated in VS2005
*/
# if __VISUAL_C_NOT_LESS(10,00) // defined HAVE__VSTPRINTF // _vsnprintf() exist in VS6 and deprecated in VS2005
ret = _vsnprintf(buffer, sizeof(buffer), format, argptr);
if (ret == -1 || ret == sizeof(buffer)) // Microsoft implementation returns -1 when buffer overflow.
{
if (sizeOfBuffer>17) strcpy(buffer, " ERROR, see log! ");
else if (sizeOfBuffer>7) strcpy(buffer," ERROR ");
buffer[sizeOfBuffer-1] = '\0'; // Microsoft implementation don't write final '\0' when buffer full.
LOG.errpointer(__file, __line);
LOG.printf("! gsprintf(buffer,%i,%s,...): buffer overflow (need %i bytes).", sizeOfBuffer, format, ret);
}
else if (ret < 0)
{
LOG.errpointer(__file, __line);
LOG.printf("! gsprintf()(buffer,%i,%s,...): _vsnprintf() error: \"%s\".", sizeOfBuffer, format, strerror(errno));
TestErrorExit();
}
# elif defined HAVE_VSNPRINTF // C99 and above
ret = vsnprintf(buffer, sizeOfBuffer, format, argptr);
2011-02-20 20:41:48 +00:00
if (ret < 0) // Until glibc 2.0.6 vsnprintf() would return -1 when the output was truncated.
2006-05-13 16:15:35 +00:00
{
LOG.errpointer(__file, __line);
2011-02-20 20:41:48 +00:00
LOG.printf("! gsprintf(buffer,%i,%s,...): vsnprintf() error: \"%s\".", sizeOfBuffer, format, strerror(errno));
TestErrorExit();
2006-05-13 16:15:35 +00:00
}
2011-02-20 20:41:48 +00:00
else if (ret >= sizeOfBuffer)
{
if (sizeOfBuffer>17) strcpy(buffer, " ERROR, see log! ");
else if (sizeOfBuffer>7) strcpy(buffer," ERROR ");
else buffer[sizeOfBuffer-1] = '\0';
LOG.errpointer(__file, __line);
LOG.printf("! gsprintf(buffer,%i,%s,...): buffer overflow (need %i bytes).", sizeOfBuffer, format, ret);
}
# else
# error Please look C library of your compiler for function like vsnprintf, what do not write more than size bytes into string.
# endif
2006-05-13 16:15:35 +00:00
}
return ret;
}
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------
GTok::GTok(char* sep) {
separator = sep ? sep : ", \t";
}
// ------------------------------------------------------------------
2001-04-15 19:24:44 +00:00
#if defined(__GNUC__) && !defined(__EMX__)
2000-02-25 10:15:17 +00:00
char* strupr(char* s) {
char* p = s;
while(*p) {
*p = g_toupper(*p);
2000-02-25 10:15:17 +00:00
p++;
}
return s;
}
char* strlwr(char* s) {
char* p = s;
while(*p) {
*p = g_tolower(*p);
2000-02-25 10:15:17 +00:00
p++;
}
return s;
}
#endif
// ------------------------------------------------------------------
void tokenize(gstrarray &array, const TCHAR* str, const TCHAR *delim)
{
if (delim == NULL) delim = ", \t";
#if defined(_tcstok_s)
TCHAR *tmp = _strdup(str);
TCHAR *next_token;
TCHAR *token = _tcstok_s(tmp, delim, &next_token);
#else
TCHAR *tmp = strdup(str);
TCHAR *token = strtok(tmp, delim);
#endif
while (token)
{
array.push_back(token);
#if defined(_tcstok_s)
token = _tcstok_s(NULL, delim, &next_token);
#else
token = strtok(NULL, delim);
#endif
}
free(tmp);
}
// ------------------------------------------------------------------
std::string &FormatString(std::string &format, const char *token, const char *replace)
{
size_t tokenLen = strlen(token);
size_t pos = format.find(token);
for (; pos != std::string::npos; pos = format.find(token))
{
format.replace(pos, tokenLen, replace);
}
return format;
}
// ------------------------------------------------------------------
std::string &FormatString(std::string &format, const char *token, size_t replace)
{
char buff[128];
gsprintf(PRINTF_DECLARE_BUFFER(buff), "%u", replace);
return FormatString(format, token, buff);
}
2000-02-25 10:15:17 +00:00
// ------------------------------------------------------------------