2008-01-28 16:37:16 -05:00
|
|
|
/* source: utils.c */
|
2008-09-22 16:17:55 -04:00
|
|
|
/* Copyright Gerhard Rieger 2001-2008 */
|
2008-01-27 07:00:08 -05:00
|
|
|
/* Published under the GNU General Public License V.2, see file COPYING */
|
|
|
|
|
|
|
|
/* useful additions to C library */
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
|
|
|
|
#include "sysincludes.h"
|
|
|
|
|
|
|
|
#include "compat.h" /* socklen_t */
|
|
|
|
#include "mytypes.h"
|
|
|
|
#include "sycls.h"
|
|
|
|
#include "utils.h"
|
|
|
|
|
|
|
|
|
|
|
|
#if !HAVE_MEMRCHR
|
|
|
|
/* GNU extension, available since glibc 2.1.91 */
|
|
|
|
void *memrchr(const void *s, int c, size_t n) {
|
|
|
|
const unsigned char *t = ((unsigned char *)s)+n;
|
|
|
|
while (--t >= (unsigned char *)s) {
|
|
|
|
if (*t == c) break;
|
|
|
|
}
|
|
|
|
if (t < (unsigned char *)s)
|
|
|
|
return NULL;
|
|
|
|
return (void *)t;
|
|
|
|
}
|
|
|
|
#endif /* !HAVE_MEMRCHR */
|
|
|
|
|
|
|
|
void *memdup(const void *src, size_t n) {
|
|
|
|
void *dest;
|
|
|
|
|
|
|
|
if ((dest = Malloc(n)) == NULL) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
memcpy(dest, src, n);
|
|
|
|
return dest;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* search the keyword-table for a match of the leading part of name. */
|
|
|
|
/* returns the pointer to the matching field of the keyword or NULL if no
|
|
|
|
keyword was found. */
|
|
|
|
const struct wordent *keyw(const struct wordent *keywds, const char *name, unsigned int nkeys) {
|
|
|
|
unsigned int lower, upper, mid;
|
|
|
|
int r;
|
|
|
|
|
|
|
|
lower = 0;
|
|
|
|
upper = nkeys;
|
|
|
|
|
|
|
|
while (upper - lower > 1)
|
|
|
|
{
|
|
|
|
mid = (upper + lower) >> 1;
|
|
|
|
if (!(r = strcasecmp(keywds[mid].name, name)))
|
|
|
|
{
|
|
|
|
return &keywds[mid];
|
|
|
|
}
|
|
|
|
if (r < 0)
|
|
|
|
lower = mid;
|
|
|
|
else
|
|
|
|
upper = mid;
|
|
|
|
}
|
|
|
|
if (nkeys > 0 && !(strcasecmp(keywds[lower].name, name)))
|
|
|
|
{
|
|
|
|
return &keywds[lower];
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Linux: setenv(), AIX: putenv() */
|
|
|
|
#if !HAVE_SETENV
|
|
|
|
int setenv(const char *name, const char *value, int overwrite) {
|
|
|
|
int result;
|
|
|
|
char *env;
|
|
|
|
if (!overwrite) {
|
|
|
|
if (getenv(name)) return 0; /* already exists */
|
|
|
|
}
|
|
|
|
if ((env = Malloc(strlen(name)+strlen(value)+2)) != NULL) {
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
sprintf(env, "%s=%s", name, value);
|
|
|
|
if ((result = putenv(env)) != 0) { /* AIX docu says "... nonzero ..." */
|
|
|
|
free(env);
|
|
|
|
result = -1;
|
|
|
|
}
|
|
|
|
/* linux "man putenv" says: ...this string becomes part of the environment*/
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
#endif /* !HAVE_SETENV */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* sanitize an "untrusted" character. output buffer must provide at least 5
|
|
|
|
characters space.
|
|
|
|
Does not append null. returns length out output (currently: max 4) */
|
|
|
|
static size_t sanitize_char(char c, char *o, int style) {
|
|
|
|
int hn; /* high nibble */
|
|
|
|
int ln; /* low nibble */
|
|
|
|
int n; /* written chars */
|
|
|
|
if (isprint(c)) {
|
|
|
|
*o = c;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
*o++ = '\\';
|
|
|
|
n = 2;
|
|
|
|
switch (c) {
|
|
|
|
case '\0': *o++ = '0'; break;
|
|
|
|
case '\a': *o++ = 'a'; break;
|
|
|
|
case '\b': *o++ = 'b'; break;
|
|
|
|
case '\t': *o++ = 't'; break;
|
|
|
|
case '\n': *o++ = 'n'; break;
|
|
|
|
case '\v': *o++ = 'v'; break;
|
|
|
|
case '\f': *o++ = 'f'; break;
|
|
|
|
case '\r': *o++ = 'r'; break;
|
|
|
|
case '\'': *o++ = '\''; break;
|
|
|
|
case '\"': *o++ = '"'; break;
|
|
|
|
case '\\': *o++ = '\\'; break;
|
|
|
|
default:
|
|
|
|
*o++ = 'x';
|
|
|
|
hn = (c>>4)&0x0f;
|
|
|
|
ln = c&0x0f;
|
|
|
|
*o++ = (hn>=10 ? (('A'-1)+(hn-10)) : ('0'+hn));
|
|
|
|
*o++ = (ln>=10 ? (('A'-1)+(ln-10)) : ('0'+ln));
|
|
|
|
n = 4;
|
|
|
|
}
|
|
|
|
return n;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* sanitize "untrusted" text, replacing special control characters with the C
|
|
|
|
string version ("\x"), and replacing unprintable chars with ".".
|
|
|
|
text can grow to four times of input, so keep output buffer long enough!
|
|
|
|
returns a pointer to the first untouched byte of the output buffer.
|
|
|
|
*/
|
|
|
|
char *sanitize_string(const char *data, /* input data */
|
|
|
|
size_t bytes, /* length of input data, >=0 */
|
|
|
|
char *coded, /* output buffer, must be long enough */
|
|
|
|
int style
|
|
|
|
) {
|
|
|
|
int c;
|
|
|
|
|
|
|
|
while (bytes > 0) {
|
|
|
|
c = *(unsigned char *)data++;
|
|
|
|
coded += sanitize_char(c, coded, style);
|
|
|
|
--bytes;
|
|
|
|
}
|
|
|
|
return coded;
|
|
|
|
}
|
2008-09-22 16:17:55 -04:00
|
|
|
|
|
|
|
/* copies a substring out of a given buff
|
|
|
|
returns scratch, \0 terminated; scratch must provide len+1 bytes
|
|
|
|
*/
|
|
|
|
char *xiosubstr(char *scratch, const char *str, size_t from, size_t len) {
|
|
|
|
char *scratch0 = scratch;
|
|
|
|
str += from;
|
|
|
|
while (len--) {
|
|
|
|
*scratch++ = *str++;
|
|
|
|
}
|
|
|
|
*scratch = '\0';
|
|
|
|
return scratch0;
|
|
|
|
}
|
|
|
|
|