cinelerra-5.1/guicast/cstrdup.h

   1 #ifndef __CSTRDUP_H__
   2 #define __CSTRDUP_H__
   3
   4 #include <stdarg.h>
   5 #include <stdint.h>
   6 #include <string.h>
   7 #include <wctype.h>
   8
   9 static inline char *cstrcat(int n, ...) {
  10   int len = 0;  va_list va;  va_start(va,n);
  11   for(int i=0; i<n; ++i) len += strlen(va_arg(va,char*));
  12   va_end(va);  char *cp = new char[len+1], *bp = cp;  va_start(va,n);
  13   for(int i=0; i<n; ++i) for(char*ap=va_arg(va,char*); *ap; *bp++=*ap++);
  14   va_end(va);  *bp = 0;
  15   return cp;
  16 }
  17 static inline char *cstrdup(const char *cp) {
  18   return strcpy(new char[strlen(cp)+1],cp);
  19 }
  20
  21 #ifndef lengthof
  22 #define lengthof(ary) ((int)(sizeof(ary)/sizeof(ary[0])))
  23 #endif
  24
  25 static inline int butf8(const char *&cp)
  26 {
  27         const unsigned char *bp = (const unsigned char *)cp;
  28         int ret = *bp++;
  29         if( ret >= 0x80 ) {
  30                 int v = ret - 0xc0;
  31                 static const int64_t sz = 0x5433222211111111;
  32                 int n = v < 0 ? 0 : (sz >> (v&0x3c)) & 0x0f;
  33                 for( int i=n; --i>=0; ret+=*bp++ ) ret <<= 6;
  34                 static const uint32_t ofs[6] = {
  35                         0x00000000U, 0x00003080U, 0x000E2080U,
  36                         0x03C82080U, 0xFA082080U, 0x82082080U
  37                 };
  38                 ret -= ofs[n];
  39         }
  40         cp = (const char *)bp;
  41         return ret;
  42 }
  43 static inline int butf8(unsigned int v, char *&cp)
  44 {
  45         unsigned char *bp = (unsigned char *)cp;
  46         if( v >= 0x00000080 ) {
  47                 int i = v < 0x00000800 ? 2 : v < 0x00010000 ? 3 :
  48                         v < 0x00200000 ? 4 : v < 0x04000000 ? 5 : 6;
  49                 int m = 0xff00 >> i;
  50                 *bp++ = (v>>(6*--i)) | m;
  51                 while( --i >= 0 ) *bp++ = ((v>>(6*i)) & 0x3f) | 0x80;
  52         }
  53         else
  54                 *bp++ = v;
  55         int ret = bp - (unsigned char *)cp;
  56         cp = (char *)bp;
  57         return ret;
  58 }
  59
  60 static inline int bstrcasecmp(const char *ap, const char *bp)
  61 {
  62         int a, b, ret;
  63         do {
  64                 a = towlower(butf8(ap));  b = towlower(butf8(bp));
  65         } while( !(ret=a-b) && a && b );
  66         return ret;
  67 }
  68
  69 static inline const char *bstrcasestr(const char *src, const char *tgt)
  70 {
  71         int ssz = strlen(src), tsz = strlen(tgt), ret = 0;
  72         const char *cp = tgt;
  73         wchar_t wtgt[tsz + 1], *tp = wtgt;
  74         while( *cp ) *tp++ = towlower(butf8(cp));
  75         for( tsz=tp-wtgt; ssz>=tsz; ++src,--ssz ) {
  76                 cp = src;   tp = wtgt;
  77                 for( int i=tsz; --i>=0 && !(ret=towlower(butf8(cp))-*tp); ++tp );
  78                 if( !ret ) return src;
  79         }
  80         return 0;
  81 }
  82
  83 #endif