[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Remove unused internal i18n functions
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Remove unused internal i18n functions |
Date: |
Wed, 22 Jun 2016 14:48:11 +0000 (UTC) |
wingo pushed a commit to branch stable-2.0
in repository guile.
commit 08df681976d6c6d97a659f4aebb6f7125e5aad2e
Author: Andy Wingo <address@hidden>
Date: Wed Jun 22 16:46:08 2016 +0200
Remove unused internal i18n functions
* libguile/i18n.c (str_upcase, str_downcase, str_upcase_l)
(str_downcase_l): Remove unused inline functions. Based on a patch by
Pedro Aguilar <address@hidden>. Fixes #19172.
---
libguile/i18n.c | 38 --------------------------------------
1 file changed, 38 deletions(-)
diff --git a/libguile/i18n.c b/libguile/i18n.c
index 17e9eca..84c6bfc 100644
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -834,44 +834,6 @@ compare_u32_strings_ci (SCM s1, SCM s2, SCM locale, const
char *func_name)
}
#undef FUNC_NAME
-/* Store into DST an upper-case version of SRC. */
-static inline void
-str_upcase (register char *dst, register const char *src)
-{
- for (; *src != '\0'; src++, dst++)
- *dst = toupper ((int) *src);
- *dst = '\0';
-}
-
-static inline void
-str_downcase (register char *dst, register const char *src)
-{
- for (; *src != '\0'; src++, dst++)
- *dst = tolower ((int) *src);
- *dst = '\0';
-}
-
-#ifdef USE_GNU_LOCALE_API
-static inline void
-str_upcase_l (register char *dst, register const char *src,
- scm_t_locale locale)
-{
- for (; *src != '\0'; src++, dst++)
- *dst = toupper_l (*src, locale);
- *dst = '\0';
-}
-
-static inline void
-str_downcase_l (register char *dst, register const char *src,
- scm_t_locale locale)
-{
- for (; *src != '\0'; src++, dst++)
- *dst = tolower_l (*src, locale);
- *dst = '\0';
-}
-#endif
-
-
SCM_DEFINE (scm_string_locale_lt, "string-locale<?", 2, 1, 0,
(SCM s1, SCM s2, SCM locale),
"Compare strings @var{s1} and @var{s2} in a locale-dependent way."