socat V1.6.0.0 (initial GIT commit)

utils.c

@@ -0,0 +1,147 @@
+/* $Id: utils.c,v 1.17 2007/02/08 18:36:16 gerhard Exp $ */
+/* Copyright Gerhard Rieger 2001-2007 */
+/* 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;
+}