Generic optimized string functions
authordrepper <drepper>
Thu, 11 Sep 1997 03:06:26 +0000 (03:06 +0000)
committerdrepper <drepper>
Thu, 11 Sep 1997 03:06:26 +0000 (03:06 +0000)
string/bits/string2.h [new file with mode: 0644]

diff --git a/string/bits/string2.h b/string/bits/string2.h
new file mode 100644 (file)
index 0000000..b943fe9
--- /dev/null
@@ -0,0 +1,292 @@
+/* Machine-independant string function optimizations.
+   Copyright (C) 1997 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
+   Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with the GNU C Library; see the file COPYING.LIB.  If not,
+   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+#ifndef _BITS_STRING2_H
+#define _BITS_STRING2_H        1
+
+/* Unlike the definitions in the header <bits/string.h> the
+   definitions contained here are not optimizing down to assembler
+   level.  These optimizations are not always a good idea since this
+   means the code size increases a lot.  Instead the definitions here
+   optimize some functions in a way which does not dramatically
+   increase the code size and which does not use assembler.  The main
+   trick is to use GNU CC's `__builtin_constant_p' function.
+
+   Every function XXX which has a defined version in
+   <bits/string.h> must be accompanied by a have _HAVE_STRING_ARCH_XXX
+   to make sure we don't get redefinitions.
+
+   We must use here macros instead of inline functions since the
+   trick won't work with the later.  */
+
+#ifdef __cplusplus
+# define __STRING_INLINE inline
+#else
+# define __STRING_INLINE extern __inline
+#endif
+
+/* We need some more types.  */
+#include <bits/types.h>
+
+
+/* Copy SRC to DEST.  */
+#ifndef _HAVE_STRING_ARCH_strcpy
+# define strcpy(dest, src) \
+  (__extension__ (__builtin_constant_p (src)                                 \
+                 ? (strlen (src) + 1 <= 8                                    \
+                    ? __strcpy_small (dest, src, strlen (src) + 1)           \
+                    : (char *) memcpy (dest, src, strlen (src) + 1))         \
+                 : strcpy (dest, src)))
+
+__STRING_INLINE char *
+__strcpy_small (char *__dest, __const char *__src, size_t __srclen)
+{
+  register char *__tmp = __dest;
+  switch (__srclen)
+    {
+    case 7:
+      *((__uint16_t *) __tmp)++ = *((__uint16_t *) __src)++;
+    case 5:
+      *((__uint32_t *) __tmp)++ = *((__uint32_t *) __src)++;
+      *((unsigned char *) __tmp) = '\0';
+      break;
+
+    case 8:
+      *((__uint32_t *) __tmp)++ = *((__uint32_t *) __src)++;
+    case 4:
+      *((__uint32_t *) __tmp) = *((__uint32_t *) __src);
+      break;
+
+    case 6:
+      *((__uint32_t *) __tmp)++ = *((__uint32_t *) __src)++;
+    case 2:
+      *((__uint16_t *) __tmp) = *((__uint16_t *) __src);
+      break;
+
+    case 3:
+      *((__uint16_t *) __tmp)++ = *((__uint16_t *) __src)++;
+    case 1:
+      *((unsigned char *) __tmp) = '\0';
+      break;
+
+    default:
+      break;
+    }
+  return __dest;
+}
+#endif
+
+
+/* Copy SRC to DEST, returning pointer to final NUL byte.  */
+#ifdef __USE_GNU
+# ifndef _HAVE_STRING_ARCH_stpcpy
+#  define __stpcpy(dest, src) \
+  (__extension__ (__builtin_constant_p (src)                                 \
+                 ? (strlen (src) + 1 <= 8                                    \
+                    ? __stpcpy_small (dest, src, strlen (src) + 1)           \
+                    : ((char *) __mempcpy (dest, src, strlen (src) + 1) - 1))\
+                 : __stpcpy (dest, src)))
+/* In glibc we use this function frequently but for namespace reasons
+   we have to use the name `__stpcpy'.  */
+#  define stpcpy(dest, src) __stpcpy (dest, src)
+
+__STRING_INLINE char *
+__stpcpy_small (char *__dest, __const char *__src, size_t __srclen)
+{
+  register char *__tmp = __dest;
+  switch (__srclen)
+    {
+    case 7:
+      *((__uint16_t *) __tmp)++ = *((__uint16_t *) __src)++;
+    case 5:
+      *((__uint32_t *) __tmp)++ = *((__uint32_t *) __src)++;
+      *((unsigned char *) __tmp) = '\0';
+      return __tmp;
+
+    case 8:
+      *((__uint32_t *) __tmp)++ = *((__uint32_t *) __src)++;
+    case 4:
+      *((__uint32_t *) __tmp) = *((__uint32_t *) __src);
+      return __tmp + 3;
+
+    case 6:
+      *((__uint32_t *) __tmp)++ = *((__uint32_t *) __src)++;
+    case 2:
+      *((__uint16_t *) __tmp) = *((__uint16_t *) __src);
+      return __tmp + 1;
+
+    case 3:
+      *((__uint16_t *) __tmp)++ = *((__uint16_t *) __src)++;
+    case 1:
+      *((unsigned char *) __tmp) = '\0';
+      return __tmp;
+
+    default:
+      break;
+    }
+  /* This should never happen.  */
+  return NULL;
+}
+# endif
+#endif
+
+
+/* Copy no more than N characters of SRC to DEST.  */
+#ifndef _HAVE_STRING_ARCH_strncpy
+# if defined _HAVE_STRING_ARCH_memset && defined _HAVE_STRING_ARCH_mempcpy
+#  define strncpy(dest, src, n) \
+  (__extension__ (__builtin_constant_p (src) && __builtin_constant_p (n)      \
+                 ? (strlen (src) + 1 >= ((size_t) (n))                       \
+                    ? (char *) memcpy (dest, src, n)                         \
+                    : (memset (__mempcpy (dest, src, strlen (src)), '\0',    \
+                               n - strlen (src)),                            \
+                       dest))                                                \
+                 : strncpy (dest, src, n)))
+# else
+#  define strncpy(dest, src, n) \
+  (__extension__ (__builtin_constant_p (src) && __builtin_constant_p (n)      \
+                 ? (strlen (src) + 1 >= ((size_t) (n))                       \
+                    ? (char *) memcpy (dest, src, n)                         \
+                    : strncpy (dest, src, n))                                \
+                 : strncpy (dest, src, n)))
+# endif
+#endif
+
+
+/* Append no more than N characters from SRC onto DEST.  */
+#ifndef _HAVE_STRING_ARCH_strncat
+# ifdef _HAVE_STRING_ARCH_strchr
+#  define strncat(dest, src, n) \
+  (__extension__ (__builtin_constant_p (src) && __builtin_constant_p (n)      \
+                 ? (strlen (src) < ((size_t) (n))                            \
+                    ? strcat (dest, src)                                     \
+                    : (memcpy (strchr (dest, '\0'), src, n), dest))          \
+                 : strncat (dest, src, n)))
+# else
+#  define strncat(dest, src, n) \
+  (__extension__ (__builtin_constant_p (src) && __builtin_constant_p (n)      \
+                 ? (strlen (src) < ((size_t) (n))                            \
+                    ? strcat (dest, src)                                     \
+                    : strncat (dest, src, n))                                \
+                 : strncat (dest, src, n)))
+# endif
+#endif
+
+
+/* Compare N characters of S1 and S2.  */
+#ifndef _HAVE_STRING_ARCH_strncmp
+# define strncmp(s1, s2, n) \
+  (__extension__ (__builtin_constant_p (s1) && strlen (s1) < ((size_t) (n))   \
+                 ? strcmp (s1, s2)                                           \
+                 : (__builtin_constant_p (s2) && strlen (s2) < ((size_t) (n))\
+                    ? strcmp (s1, s2)                                        \
+                    : strncmp (s1, s2, n))))
+#endif
+
+
+/* Return the length of the initial segment of S which
+   consists entirely of characters not in REJECT.  */
+#ifndef _HAVE_STRING_ARCH_strcspn
+# define strcspn(s, reject) \
+  (__extension__ (__builtin_constant_p (reject)                                      \
+                 ? (((const char *) (reject))[0] == '\0'                     \
+                    ? strlen (s)                                             \
+                    : (((const char *) (reject))[1] == '\0'                  \
+                       ? __strcspn_c1 (s, ((((const char *) (reject))[0]     \
+                                            & 0xff) << 8))                   \
+                       : strcspn (s, reject)))       \
+                 : strcspn (s, reject)))
+
+__STRING_INLINE size_t
+__strcspn_c1 (__const char *__s, char __reject)
+{
+  register size_t __result = 0;
+  while (__s[__result] != '\0' && __s[__result] != __reject)
+    ++__result;
+  return __result;
+}
+#endif
+
+
+/* Return the length of the initial segment of S which
+   consists entirely of characters in ACCEPT.  */
+#ifndef _HAVE_STRING_ARCH_strspn
+# define strspn(s, accept) \
+  (__extension__ (__builtin_constant_p (accept)                                      \
+                 ? (((const char *) (accept))[0] == '\0'                     \
+                    ? 0                                                      \
+                    : (((const char *) (accept))[1] == '\0'                  \
+                       ? __strspn_c1 (s, ((const char *) (accept))[0])       \
+                       : strspn (s, accept)))                                \
+                 : strspn (s, accept)))
+
+__STRING_INLINE size_t
+__strspn_c1 (__const char *__s, char __accept)
+{
+  register size_t __result = 0;
+  /* Please note that __accept never can be '\0'.  */
+  while (__s[__result] == __accept)
+    ++__result;
+  return __result;
+}
+#endif
+
+
+/* Find the first occurrence in S of any character in ACCEPT.  */
+#ifndef _HAVE_STRING_ARCH_strpbrk
+# define strpbrk(s, accept) \
+  (__extension__ (__builtin_constant_p (accept)                                      \
+                 ? (((const char *) (accept))[0] == '\0'                     \
+                    ? NULL                                                   \
+                    : (((const char *) (accept))[1] == '\0'                  \
+                       ? strchr (s, ((const char *) (accept))[0])            \
+                       : strpbrk (s, accept)))                               \
+                 : strpbrk (s, accept)))
+#endif
+
+
+/* Find the first occurrence of NEEDLE in HAYSTACK.  */
+#ifndef _HAVE_STRING_ARCH_strstr
+# define strstr(haystack, needle) \
+  (__extension__ (__builtin_constant_p (needle)                                      \
+                 ? (((const char *) (needle))[0] == '\0'                     \
+                    ? haystack                                               \
+                    : (((const char *) (needle))[1] == '\0'                  \
+                       ? strchr (haystack, ((const char *) (needle))[0])     \
+                       : strstr (haystack, needle)))                         \
+                 : strstr (haystack, needle)))
+#endif
+
+
+#ifdef __USE_GNU
+# ifndef _HAVE_STRING_ARCH_strnlen
+extern __inline size_t
+strnlen (__const char *__string, size_t __maxlen)
+{
+  __const char *__end = (__const char *) memchr (__string, '\0', __maxlen);
+  return __end ? __end - __string : __maxlen;
+}
+# endif
+#endif
+
+
+#undef __STRING_INLINE
+
+#endif /* bits/string2.h */