helper/string.c

   1 #include "string.h"
   2
   3 #include <gammu-unicode.h>
   4
   5 #include <ctype.h>
   6
   7 #ifndef HAVE_STRCASESTR
   8 /**
   9  * Find the first occurrence of find in s, ignore case.
  10  * Copyright (c) 1990, 1993 The Regents of the University of California.
  11  */
  12 char *strcasestr(const char *s, const char *find)
  13 {
  14         char c, sc;
  15         size_t len;
  16
  17         if ((c = *find++) != 0) {
  18                 c = tolower((unsigned char)c);
  19                 len = strlen(find);
  20                 do {
  21                         do {
  22                                 if ((sc = *s++) == 0)
  23                                         return (NULL);
  24                         } while ((char)tolower((unsigned char)sc) != c);
  25                 } while (strncasecmp(s, find, len) != 0);
  26                 s--;
  27         }
  28         return (char *)s;
  29 }
  30 #endif
  31
  32 #ifndef HAVE_STRCHRNUL
  33 char *strchrnul(char *s, int find)
  34 {
  35         char *ret;
  36         ret = strchr(s, find);
  37         if (ret == NULL) return s + strlen(s);
  38         return ret;
  39 }
  40 #endif
  41
  42
  43 #ifdef INTERNAL_STRNCASECMP
  44 #define TOLOWER(Ch) (isupper (Ch) ? tolower (Ch) : (Ch))
  45 /**
  46  * Case insensitive string comparator
  47  * Copyright (C) 1998, 1999, 2005 Free Software Foundation, Inc.
  48  */
  49 int strncasecmp (const char *s1, const char *s2, size_t n)
  50 {
  51         register const unsigned char *p1 = (const unsigned char *) s1;
  52         register const unsigned char *p2 = (const unsigned char *) s2;
  53         unsigned char c1, c2;
  54
  55         if (p1 == p2 || n == 0)
  56                 return 0;
  57
  58         do {
  59                 c1 = TOLOWER (*p1);
  60                 c2 = TOLOWER (*p2);
  61
  62                 if (--n == 0 || c1 == '\0')
  63                         break;
  64
  65                 ++p1;
  66                 ++p2;
  67         } while (c1 == c2);
  68
  69         return (c1 > c2 ? 1 : c1 < c2 ? -1 : 0);
  70 }
  71 #undef TOLOWER
  72 #endif
  73
  74 #ifdef INTERNAL_STRCASECMP
  75 #define TOLOWER(Ch) (isupper (Ch) ? tolower (Ch) : (Ch))
  76 /**
  77  * Case insensitive string comparator
  78  * Copyright (C) 1998, 1999, 2005 Free Software Foundation, Inc.
  79  */
  80 int strcasecmp (const char *s1, const char *s2)
  81 {
  82         register const unsigned char *p1 = (const unsigned char *) s1;
  83         register const unsigned char *p2 = (const unsigned char *) s2;
  84         unsigned char c1, c2;
  85
  86         if (p1 == p2)
  87                 return 0;
  88
  89         do {
  90                 c1 = TOLOWER (*p1);
  91                 c2 = TOLOWER (*p2);
  92
  93                 if (c1 == '\0')
  94                         break;
  95
  96                 ++p1;
  97                 ++p2;
  98         } while (c1 == c2);
  99
 100         return (c1 > c2 ? 1 : c1 < c2 ? -1 : 0);
 101 }
 102 #undef TOLOWER
 103 #endif
 104
 105 #ifndef HAVE_TOWLOWER
 106 /* FreeBSD boxes 4.7-STABLE does't have it, although it's ANSI standard */
 107 wchar_t towlower(wchar_t c)
 108 {
 109         unsigned char dest[10];
 110
 111         DecodeWithUnicodeAlphabet(c, dest);
 112         return tolower(dest[0]);
 113 }
 114 #endif
 115