mhl/string.h

   1 #ifndef __MHL_STRING_H
   2 #define __MHL_STRING_H
   3
   4 #include <ctype.h>
   5 #include <stdarg.h>
   6 #include <assert.h>
   7 #include <mhl/memory.h>
   8
   9 #define mhl_str_dup(str)        ((str ? strdup(str) : strdup("")))
  10 #define mhl_str_ndup(str,len)   ((str ? strndup(str,len) : strdup("")))
  11 #define mhl_str_len(str)        ((str ? strlen(str) : 0))
  12
  13 static inline char * mhl_str_dup_range(const char * s_start, const char * s_bound)
  14 {
  15     return mhl_str_ndup(s_start, s_bound - s_start);
  16 }
  17
  18 static inline char* mhl_str_trim(char* str)
  19 {
  20     if (!str) return NULL;      /* NULL string ?! bail out. */
  21
  22     /* find the first non-space */
  23     char* start; for (start=str; ((*str) && (!isspace(*str))); str++);
  24
  25     /* only spaces ? */
  26     if (!(*str)) { *str = 0; return str; }
  27
  28     /* get the size (cannot be empty - catched above) */
  29     size_t _sz = strlen(str);
  30
  31     /* find the proper end */
  32     char* end;
  33     for (end=(str+_sz-1); ((end>str) && (isspace(*end))); end--);
  34     end[1] = 0;         /* terminate, just to be sure */
  35
  36     /* if we have no leading spaces, just trucate */
  37     if (start==str) { end++; *end = 0; return str; }
  38
  39     /* if it' only one char, dont need memmove for that */
  40     if (start==end) { str[0]=*start; str[1]=0; return str; }
  41
  42     /* by here we have a (non-empty) region between start end end */
  43     memmove(str,start,(end-start+1));
  44     return str;
  45 }
  46
  47 static inline void mhl_str_toupper(char* str)
  48 {
  49     if (str)
  50         for (;*str;str++)
  51             *str = toupper(*str);
  52 }
  53
  54 #define __STR_CONCAT_MAX        32
  55 /* _NEVER_ call this function directly ! */
  56 static inline char* __mhl_str_concat_hlp(const char* base, ...)
  57 {
  58     static const char* arg_ptr[__STR_CONCAT_MAX];
  59     static size_t      arg_sz[__STR_CONCAT_MAX];
  60     int         count = 0;
  61     size_t      totalsize = 0;
  62
  63     if (base)
  64     {
  65         arg_ptr[0] = base;
  66         arg_sz[0]  = totalsize = strlen(base);
  67         count = 1;
  68     }
  69
  70     va_list args;
  71     va_start(args,base);
  72     char* a;
  73     /* note: we use ((char*)(1)) as terminator - NULL is a valid argument ! */
  74     while ((a = va_arg(args, char*))!=(char*)1)
  75     {
  76         if (a)
  77         {
  78             arg_ptr[count] = a;
  79             arg_sz[count]  = strlen(a);
  80             totalsize += arg_sz[count];
  81             count++;
  82         }
  83     }
  84
  85     if (!count)
  86         return mhl_str_dup("");
  87
  88     /* now as we know how much to copy, allocate the buffer */
  89     char* buffer = (char*)mhl_mem_alloc_u(totalsize+2);
  90     char* current = buffer;
  91     int x=0;
  92     for (x=0; x<count; x++)
  93     {
  94         memcpy(current, arg_ptr[x], arg_sz[x]);
  95         current += arg_sz[x];
  96     }
  97
  98     *current = 0;
  99     return buffer;
 100 }
 101
 102 #define mhl_str_concat(...)     (__mhl_str_concat_hlp(__VA_ARGS__, (char*)(1)))
 103
 104 static inline char* mhl_str_reverse(char* ptr)
 105 {
 106     if (!ptr)                   return NULL;    /* missing string */
 107     if (!(ptr[0] && ptr[1]))    return ptr;     /* empty or 1-ch string */
 108
 109     size_t _sz = strlen(ptr);
 110     char* start = ptr;
 111     char* end   = ptr+_sz-1;
 112
 113     while (start<end)
 114     {
 115         char c = *start;
 116         *start = *end;
 117         *end = c;
 118         start++;
 119         end--;
 120     }
 121
 122     return ptr;
 123 }
 124
 125 /*
 126  * strcpy is unsafe on overlapping memory areas, so define memmove-alike
 127  * string function. Has sense only when dest <= src.
 128  */
 129 static inline char * mhl_strmove(char * dest, const char * src)
 130 {
 131     size_t n = strlen (src) + 1; /* + '\0' */
 132
 133     assert (dest<=src);
 134
 135     return memmove(dest, src, n);
 136 }
 137
 138 static inline char* mhl_str_dir_plus_file(const char* dirname, const char* filename)
 139 {
 140     /* make sure we have valid strings */
 141     if (!dirname)
 142         dirname="";
 143
 144     if (!filename)
 145         filename="";
 146
 147     /* skip leading slashes on filename */
 148     while (*filename == '/')
 149         filename++;
 150
 151     /* skip trailing slashes on dirname */
 152     int dnlen = strlen(dirname);
 153     while (dnlen && (dirname[dnlen-1]=='/'))
 154         dnlen--;
 155
 156     int fnlen = strlen(filename);
 157     char* buffer = mhl_mem_alloc_z(dnlen+fnlen+2);      /* enough space for dirname, /, filename, zero */
 158     char* ptr = buffer;
 159
 160     memcpy(ptr, dirname, dnlen);
 161     ptr+=dnlen;
 162     *ptr = '/';
 163     ptr++;
 164     memcpy(ptr, filename, fnlen);
 165     ptr+=fnlen;
 166     *ptr = 0;
 167
 168     return buffer;
 169 }
 170
 171 #endif /* __MHL_STRING_H */