2007-04-27 Jonathan Chambers <joncham@gmail.com>
[mono.git] / eglib / src / gstr.c
index ecb30611252cf25ffcef48ab4e87c61b5ececcef..3990eadc1da8d4e7de6fefc7ba71b0da1924c88e 100644 (file)
@@ -26,7 +26,7 @@
  * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  */
-#define _GNU_SOURCE
+#include <config.h>
 #include <stdio.h>
 #include <string.h>
 #include <ctype.h>
 gchar *
 g_strndup (const gchar *str, gsize n)
 {
+#ifdef HAVE_STRNDUP
        return strndup (str, n);
+#else
+       if (str) {
+               char *retval = malloc(n+1);
+               if (retval) {
+                       strncpy(retval, str, n)[n] = 0;
+               }
+               return retval;
+       }
+       return NULL;
+#endif
 }
 
 void
@@ -64,8 +75,8 @@ g_strv_length(gchar **str_array)
 gboolean
 g_str_has_suffix(const gchar *str, const gchar *suffix)
 {
-       gint str_length;
-       gint suffix_length;
+       size_t str_length;
+       size_t suffix_length;
        
        g_return_val_if_fail(str != NULL, FALSE);
        g_return_val_if_fail(suffix != NULL, FALSE);
@@ -81,8 +92,8 @@ g_str_has_suffix(const gchar *str, const gchar *suffix)
 gboolean
 g_str_has_prefix(const gchar *str, const gchar *prefix)
 {
-       gint str_length;
-       gint prefix_length;
+       size_t str_length;
+       size_t prefix_length;
        
        g_return_val_if_fail(str != NULL, FALSE);
        g_return_val_if_fail(prefix != NULL, FALSE);
@@ -133,10 +144,10 @@ g_strerror (gint errnum)
 gchar *
 g_strconcat (const gchar *first, ...)
 {
-       g_return_val_if_fail (first != NULL, NULL);
        va_list args;
-       int total = 0;
+       size_t total = 0;
        char *s, *ret;
+       g_return_val_if_fail (first != NULL, NULL);
 
        total += strlen (first);
        va_start (args, first);
@@ -167,7 +178,7 @@ g_strsplit (const gchar *string, const gchar *delimiter, gint max_tokens)
        gchar *strtok_save, **vector;
        gchar *token, *token_c;
        gint size = 1;
-       gint token_length;
+       size_t token_length;
 
        g_return_val_if_fail(string != NULL, NULL);
        g_return_val_if_fail(delimiter != NULL, NULL);
@@ -177,35 +188,45 @@ g_strsplit (const gchar *string, const gchar *delimiter, gint max_tokens)
        string_c = (gchar *)g_malloc(token_length + 1);
        memcpy(string_c, string, token_length);
        string_c[token_length] = 0;
-       
-       vector = NULL;
-       token = (gchar *)strtok_r(string_c, delimiter, &strtok_save);
-
-       while(token != NULL) {
-               token_length = strlen(token);
-               token_c = (gchar *)g_malloc(token_length + 1);
-               memcpy(token_c, token, token_length);
-               token_c[token_length] = 0;
 
-               vector = vector == NULL ? 
-                       (gchar **)g_malloc(2 * sizeof(vector)) :
-                       (gchar **)g_realloc(vector, (size + 1) * sizeof(vector));
-       
-               vector[size - 1] = token_c;     
+       if (strncmp (string_c, delimiter, strlen (delimiter)) == 0){
+               vector = (gchar **) g_malloc (2 * sizeof (vector));
+               vector [0]  = g_strdup ("");
                size++;
+       } else
+               vector = NULL;
+       token = (gchar *)strtok_r(string_c, delimiter, &strtok_save);
 
-               if(max_tokens > 0 && size >= max_tokens) {
-                       if(size > max_tokens) {
-                               break;
+       if (!(max_tokens > 0 && size >= max_tokens)){
+               while(token != NULL) {
+                       token_length = strlen(token);
+                       token_c = (gchar *)g_malloc(token_length + 1);
+                       memcpy(token_c, token, token_length);
+                       token_c[token_length] = 0;
+                       
+                       vector = vector == NULL ? 
+                               (gchar **)g_malloc(2 * sizeof(vector)) :
+                               (gchar **)g_realloc(vector, (size + 1) * sizeof(vector));
+                       
+                       vector[size - 1] = token_c;     
+                       size++;
+                       
+                       if(max_tokens > 0 && size >= max_tokens) {
+                               if(size > max_tokens) {
+                                       break;
+                               }
+                               
+                               token = *strtok_save ? strtok_save : NULL;
+                       } else {
+                               token = (gchar *)strtok_r(NULL, delimiter, &strtok_save);
                        }
-
-                       token = strtok_save;
-               } else {
-                       token = (gchar *)strtok_r(NULL, delimiter, &strtok_save);
                }
        }
-
-       if(vector != NULL && size > 0) {
+       
+       if (vector == NULL){
+               vector = (gchar **) g_malloc (2 * sizeof (vector));
+               vector [0] = NULL;
+       } else if (size > 0){
                vector[size - 1] = NULL;
        }
        
@@ -218,8 +239,8 @@ g_strsplit (const gchar *string, const gchar *delimiter, gint max_tokens)
 gchar *
 g_strreverse (gchar *str)
 {
-       guint len, half;
-       gint i;
+       size_t len, half;
+       size_t i;
        gchar c;
 
        if (str == NULL)
@@ -241,7 +262,7 @@ g_strjoin (const gchar *separator, ...)
 {
        va_list args;
        char *res, *s;
-       int len, slen;
+       size_t len, slen;
 
        if (separator != NULL)
                slen = strlen (separator);
@@ -275,10 +296,41 @@ g_strjoin (const gchar *separator, ...)
        return res;
 }
 
+gchar *
+g_strjoinv (const gchar *separator, gchar **str_array)
+{
+       char *res;
+       size_t slen, len, i;
+       
+       if (separator != NULL)
+               slen = strlen (separator);
+       else
+               slen = 0;
+       
+       len = 0;
+       for (i = 0; str_array [i] != NULL; i++){
+               len += strlen (str_array [i]);
+               len += slen;
+       }
+       if (len == 0)
+               return g_strdup ("");
+       if (slen > 0 && len > 0)
+               len -= slen;
+       len++;
+       res = g_malloc (len);
+       strcpy (res, str_array [0]);
+       for (i = 1; str_array [i] != NULL; i++){
+               if (separator != NULL)
+                       strcat (res, separator);
+               strcat (res, str_array [i]);
+       }
+       return res;
+}
+
 gchar *
 g_strchug (gchar *str)
 {
-       gint len;
+       size_t len;
        gchar *tmp;
 
        if (str == NULL)
@@ -359,7 +411,7 @@ g_snprintf(gchar *string, gulong n, gchar const *format, ...)
        return ret;
 }
 
-static const char const hx [] = { '0', '1', '2', '3', '4', '5', '6', '7',
+static const char hx [] = { '0', '1', '2', '3', '4', '5', '6', '7',
                                  '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' };
 
 static gboolean
@@ -379,14 +431,14 @@ char_needs_encoding (char c)
 gchar *
 g_filename_to_uri (const gchar *filename, const gchar *hostname, GError **error)
 {
-       int n;
+       size_t n;
        char *ret, *rp;
        const char *p;
        
        g_return_val_if_fail (filename != NULL, NULL);
 
        if (hostname != NULL)
-               g_warning ("eglib: g_filename_to_uri: hostname not handled");
+               g_warning ("%s", "eglib: g_filename_to_uri: hostname not handled");
 
        if (*filename != '/'){
                if (error != NULL)
@@ -439,7 +491,7 @@ g_filename_from_uri (const gchar *uri, gchar **hostname, GError **error)
        g_return_val_if_fail (uri != NULL, NULL);
 
        if (hostname != NULL)
-               g_warning ("eglib: g_filename_from_uri: hostname not handled");
+               g_warning ("%s", "eglib: g_filename_from_uri: hostname not handled");
 
        if (strncmp (uri, "file:///", 8) != 0){
                if (error != NULL)
@@ -467,7 +519,7 @@ g_filename_from_uri (const gchar *uri, gchar **hostname, GError **error)
 
        for (p = uri + 8, r = result + 1; *p; p++){
                if (*p == '%'){
-                       *r++ = (decode (p [1]) << 4) | decode (p [2]);
+                       *r++ = (char)((decode (p [1]) << 4) | decode (p [2]));
                        p += 2;
                } else
                        *r++ = *p;
@@ -475,3 +527,193 @@ g_filename_from_uri (const gchar *uri, gchar **hostname, GError **error)
        }
        return result;
 }
+
+void
+g_strdown (gchar *string)
+{
+       g_return_if_fail (string != NULL);
+
+       while (*string){
+               *string = (gchar)tolower (*string);
+               string++;
+       }
+}
+
+gchar *
+g_ascii_strdown (const gchar *str, gssize len)
+{
+       char *ret;
+       int i;
+       
+       g_return_val_if_fail  (str != NULL, NULL);
+
+       if (len == -1)
+               len = strlen (str);
+       
+       ret = g_malloc (len + 1);
+       for (i = 0; i < len; i++){
+               guchar c = (guchar) str [i];
+               if (c >= 'A' && c <= 'Z')
+                       c += 'a' - 'A';
+               ret [i] = c;
+       }
+       ret [i] = 0;
+       
+       return ret;
+}
+
+gint
+g_ascii_strncasecmp (const gchar *s1, const gchar *s2, gsize n)
+{
+       gsize i;
+       
+       g_return_val_if_fail (s1 != NULL, 0);
+       g_return_val_if_fail (s2 != NULL, 0);
+
+       for (i = 0; i < n; i++){
+               gchar c1 = *s1++;
+               gchar c2 = *s2++;
+               
+               if (c1 == c2)
+                       continue;
+               
+               if (c1 == 0)
+                       return -1;
+               if (c2 == 0)
+                       return 1;
+               return c1-c2;
+       }
+       return 0;
+}
+
+gchar *
+g_strdelimit (gchar *string, const gchar *delimiters, gchar new_delimiter)
+{
+       gchar *ptr;
+
+       g_return_val_if_fail (string != NULL, NULL);
+
+       if (delimiters == NULL)
+               delimiters = G_STR_DELIMITERS;
+
+       for (ptr = string; *ptr; ptr++) {
+               if (strchr (delimiters, *ptr))
+                       *ptr = new_delimiter;
+       }
+       
+       return string;
+}
+
+gsize 
+g_strlcpy (gchar *dest, const gchar *src, gsize dest_size)
+{
+#ifdef HAVE_STRLCPY
+       return strlcpy (dest, src, dest_size);
+#else
+       gchar *d;
+       const gchar *s;
+       gchar c;
+       gsize len;
+       
+       g_return_val_if_fail (src != NULL, 0);
+       g_return_val_if_fail (dest != NULL, 0);
+
+       len = dest_size;
+       if (len == 0)
+               return 0;
+
+       s = src;
+       d = dest;
+       while (--len) {
+               c = *s++;
+               *d++ = c;
+               if (c == '\0')
+                       return (dest_size - len - 1);
+       }
+
+       /* len is 0 i we get here */
+       *d = '\0';
+       /* we need to return the length of src here */
+       while (*s++) ; /* instead of a plain strlen, we use 's' */
+       return s - src - 1;
+#endif
+}
+
+static const gchar escaped_dflt [256] = {
+       1, 1, 1, 1, 1, 1, 1, 1, 'b', 't', 'n', 1, 'f', 'r', 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       0, 0, '"', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '\\', 0, 0, 0,
+       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+};
+
+gchar *
+g_strescape (const gchar *source, const gchar *exceptions)
+{
+       gchar escaped [256];
+       const gchar *ptr;
+       gchar c;
+       gchar op;
+       gchar *result;
+       gchar *res_ptr;
+
+       g_return_val_if_fail (source != NULL, NULL);
+
+       memcpy (escaped, escaped_dflt, 256);
+       if (exceptions != NULL) {
+               for (ptr = exceptions; *ptr; ptr++)
+                       escaped [(int) *ptr] = 0;
+       }
+       result = g_malloc (strlen (source) * 4 + 1); /* Worst case: everything octal. */
+       res_ptr = result;
+       for (ptr = source; *ptr; ptr++) {
+               c = *ptr;
+               op = escaped [(int) c];
+               if (op == 0) {
+                       *res_ptr++ = c;
+               } else {
+                       *res_ptr++ = '\\';
+                       if (op != 1) {
+                               *res_ptr++ = op;
+                       } else {
+                               *res_ptr++ = '0' + ((c >> 6) & 3);
+                               *res_ptr++ = '0' + ((c >> 3) & 7);
+                               *res_ptr++ = '0' + (c & 7);
+                       }
+               }
+       }
+       *res_ptr = '\0';
+       return result;
+}
+
+gchar *
+g_strdup (const gchar *str)
+{
+       if (str == NULL)
+               return NULL;
+
+       return strdup (str);
+}
+
+gint
+g_ascii_xdigit_value (gchar c)
+{
+       return ((isxdigit (c) == 0) ? -1 :
+               ((c >= '0' && c <= '9') ? (c - '0') :
+                ((c >= 'a' && c <= 'f') ? (c - 'a' + 10) :
+                 (c - 'A' + 10))));
+}
+
+
+