lib/string.c

   1 /*
   2  *  linux/lib/string.c
   3  *
   4  *  Copyright (C) 1991, 1992  Linus Torvalds
   5  */
   6
   7 /*
   8  * stupid library routines.. The optimized versions should generally be found
   9  * as inline code in <asm-xx/string.h>
  10  *
  11  * These are buggy as well..
  12  *
  13  * * Fri Jun 25 1999, Ingo Oeser <ioe@informatik.tu-chemnitz.de>
  14  * -  Added strsep() which will replace strtok() soon (because strsep() is
  15  *    reentrant and should be faster). Use only strsep() in new code, please.
  16  */
  17
  18 #include <linux/types.h>
  19 #include <linux/string.h>
  20 #include <linux/ctype.h>
  21
  22 #ifndef __HAVE_ARCH_STRNICMP
  23 int strnicmp(const char *s1, const char *s2, size_t len)
  24 {
  25         /* Yes, Virginia, it had better be unsigned */
  26         unsigned char c1, c2;
  27
  28         c1 = 0; c2 = 0;
  29         if (len) {
  30                 do {
  31                         c1 = *s1; c2 = *s2;
  32                         s1++; s2++;
  33                         if (!c1)
  34                                 break;
  35                         if (!c2)
  36                                 break;
  37                         if (c1 == c2)
  38                                 continue;
  39                         c1 = tolower(c1);
  40                         c2 = tolower(c2);
  41                         if (c1 != c2)
  42                                 break;
  43                 } while (--len);
  44         }
  45         return (int)c1 - (int)c2;
  46 }
  47 #endif
  48
  49 char * ___strtok;
  50
  51 #ifndef __HAVE_ARCH_STRCPY
  52 char * strcpy(char * dest,const char *src)
  53 {
  54         char *tmp = dest;
  55
  56         while ((*dest++ = *src++) != '\0')
  57                 /* nothing */;
  58         return tmp;
  59 }
  60 #endif
  61
  62 #ifndef __HAVE_ARCH_STRNCPY
  63 char * strncpy(char * dest,const char *src,size_t count)
  64 {
  65         char *tmp = dest;
  66
  67         while (count-- && (*dest++ = *src++) != '\0')
  68                 /* nothing */;
  69
  70         return tmp;
  71 }
  72 #endif
  73
  74 #ifndef __HAVE_ARCH_STRCAT
  75 char * strcat(char * dest, const char * src)
  76 {
  77         char *tmp = dest;
  78
  79         while (*dest)
  80                 dest++;
  81         while ((*dest++ = *src++) != '\0')
  82                 ;
  83
  84         return tmp;
  85 }
  86 #endif
  87
  88 #ifndef __HAVE_ARCH_STRNCAT
  89 char * strncat(char *dest, const char *src, size_t count)
  90 {
  91         char *tmp = dest;
  92
  93         if (count) {
  94                 while (*dest)
  95                         dest++;
  96                 while ((*dest++ = *src++)) {
  97                         if (--count == 0) {
  98                                 *dest = '\0';
  99                                 break;
 100                         }
 101                 }
 102         }
 103
 104         return tmp;
 105 }
 106 #endif
 107
 108 #ifndef __HAVE_ARCH_STRCMP
 109 int strcmp(const char * cs,const char * ct)
 110 {
 111         register signed char __res;
 112
 113         while (1) {
 114                 if ((__res = *cs - *ct++) != 0 || !*cs++)
 115                         break;
 116         }
 117
 118         return __res;
 119 }
 120 #endif
 121
 122 #ifndef __HAVE_ARCH_STRNCMP
 123 int strncmp(const char * cs,const char * ct,size_t count)
 124 {
 125         register signed char __res = 0;
 126
 127         while (count) {
 128                 if ((__res = *cs - *ct++) != 0 || !*cs++)
 129                         break;
 130                 count--;
 131         }
 132
 133         return __res;
 134 }
 135 #endif
 136
 137 #ifndef __HAVE_ARCH_STRCHR
 138 char * strchr(const char * s, int c)
 139 {
 140         for(; *s != (char) c; ++s)
 141                 if (*s == '\0')
 142                         return NULL;
 143         return (char *) s;
 144 }
 145 #endif
 146
 147 #ifndef __HAVE_ARCH_STRRCHR
 148 char * strrchr(const char * s, int c)
 149 {
 150        const char *p = s + strlen(s);
 151        do {
 152            if (*p == (char)c)
 153                return (char *)p;
 154        } while (--p >= s);
 155        return NULL;
 156 }
 157 #endif
 158
 159 #ifndef __HAVE_ARCH_STRLEN
 160 size_t strlen(const char * s)
 161 {
 162         const char *sc;
 163
 164         for (sc = s; *sc != '\0'; ++sc)
 165                 /* nothing */;
 166         return sc - s;
 167 }
 168 #endif
 169
 170 #ifndef __HAVE_ARCH_STRNLEN
 171 size_t strnlen(const char * s, size_t count)
 172 {
 173         const char *sc;
 174
 175         for (sc = s; count-- && *sc != '\0'; ++sc)
 176                 /* nothing */;
 177         return sc - s;
 178 }
 179 #endif
 180
 181 #ifndef __HAVE_ARCH_STRSPN
 182 size_t strspn(const char *s, const char *accept)
 183 {
 184         const char *p;
 185         const char *a;
 186         size_t count = 0;
 187
 188         for (p = s; *p != '\0'; ++p) {
 189                 for (a = accept; *a != '\0'; ++a) {
 190                         if (*p == *a)
 191                                 break;
 192                 }
 193                 if (*a == '\0')
 194                         return count;
 195                 ++count;
 196         }
 197
 198         return count;
 199 }
 200 #endif
 201
 202 #ifndef __HAVE_ARCH_STRPBRK
 203 char * strpbrk(const char * cs,const char * ct)
 204 {
 205         const char *sc1,*sc2;
 206
 207         for( sc1 = cs; *sc1 != '\0'; ++sc1) {
 208                 for( sc2 = ct; *sc2 != '\0'; ++sc2) {
 209                         if (*sc1 == *sc2)
 210                                 return (char *) sc1;
 211                 }
 212         }
 213         return NULL;
 214 }
 215 #endif
 216
 217 #ifndef __HAVE_ARCH_STRTOK
 218 char * strtok(char * s,const char * ct)
 219 {
 220         char *sbegin, *send;
 221
 222         sbegin  = s ? s : ___strtok;
 223         if (!sbegin) {
 224                 return NULL;
 225         }
 226         sbegin += strspn(sbegin,ct);
 227         if (*sbegin == '\0') {
 228                 ___strtok = NULL;
 229                 return( NULL );
 230         }
 231         send = strpbrk( sbegin, ct);
 232         if (send && *send != '\0')
 233                 *send++ = '\0';
 234         ___strtok = send;
 235         return (sbegin);
 236 }
 237 #endif
 238
 239 #ifndef __HAVE_ARCH_STRSEP
 240
 241 char * strsep(char **s, const char * ct)
 242 {
 243         char *sbegin=*s;
 244         if (!sbegin)
 245                 return NULL;
 246
 247         sbegin += strspn(sbegin,ct);
 248         if (*sbegin == '\0')
 249                 return NULL;
 250
 251         *s = strpbrk( sbegin, ct);
 252         if (*s && **s != '\0')
 253                 *(*s)++ = '\0';
 254         return (sbegin);
 255 }
 256 #endif
 257
 258 #ifndef __HAVE_ARCH_MEMSET
 259 void * memset(void * s,int c,size_t count)
 260 {
 261         char *xs = (char *) s;
 262
 263         while (count--)
 264                 *xs++ = c;
 265
 266         return s;
 267 }
 268 #endif
 269
 270 #ifndef __HAVE_ARCH_BCOPY
 271 char * bcopy(const char * src, char * dest, int count)
 272 {
 273         char *tmp = dest;
 274
 275         while (count--)
 276                 *tmp++ = *src++;
 277
 278         return dest;
 279 }
 280 #endif
 281
 282 #ifndef __HAVE_ARCH_MEMCPY
 283 void * memcpy(void * dest,const void *src,size_t count)
 284 {
 285         char *tmp = (char *) dest, *s = (char *) src;
 286
 287         while (count--)
 288                 *tmp++ = *s++;
 289
 290         return dest;
 291 }
 292 #endif
 293
 294 #ifndef __HAVE_ARCH_MEMMOVE
 295 void * memmove(void * dest,const void *src,size_t count)
 296 {
 297         char *tmp, *s;
 298
 299         if (dest <= src) {
 300                 tmp = (char *) dest;
 301                 s = (char *) src;
 302                 while (count--)
 303                         *tmp++ = *s++;
 304                 }
 305         else {
 306                 tmp = (char *) dest + count;
 307                 s = (char *) src + count;
 308                 while (count--)
 309                         *--tmp = *--s;
 310                 }
 311
 312         return dest;
 313 }
 314 #endif
 315
 316 #ifndef __HAVE_ARCH_MEMCMP
 317 int memcmp(const void * cs,const void * ct,size_t count)
 318 {
 319         const unsigned char *su1, *su2;
 320         signed char res = 0;
 321
 322         for( su1 = cs, su2 = ct; 0 < count; ++su1, ++su2, count--)
 323                 if ((res = *su1 - *su2) != 0)
 324                         break;
 325         return res;
 326 }
 327 #endif
 328
 329 /*
 330  * find the first occurrence of byte 'c', or 1 past the area if none
 331  */
 332 #ifndef __HAVE_ARCH_MEMSCAN
 333 void * memscan(void * addr, int c, size_t size)
 334 {
 335         unsigned char * p = (unsigned char *) addr;
 336
 337         while (size) {
 338                 if (*p == c)
 339                         return (void *) p;
 340                 p++;
 341                 size--;
 342         }
 343         return (void *) p;
 344 }
 345 #endif
 346
 347 #ifndef __HAVE_ARCH_STRSTR
 348 char * strstr(const char * s1,const char * s2)
 349 {
 350         int l1, l2;
 351
 352         l2 = strlen(s2);
 353         if (!l2)
 354                 return (char *) s1;
 355         l1 = strlen(s1);
 356         while (l1 >= l2) {
 357                 l1--;
 358                 if (!memcmp(s1,s2,l2))
 359                         return (char *) s1;
 360                 s1++;
 361         }
 362         return NULL;
 363 }
 364 #endif
 365
 366 #ifndef __HAVE_ARCH_MEMCHR
 367 void *memchr(const void *s, int c, size_t n)
 368 {
 369         const unsigned char *p = s;
 370         while (n-- != 0) {
 371                 if ((unsigned char)c == *p++) {
 372                         return (void *)(p-1);
 373                 }
 374         }
 375         return NULL;
 376 }
 377
 378 #endif