mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Remove unused internal i18n functions

Browse source 
* libguile/i18n.c (str_upcase, str_downcase, str_upcase_l)
  (str_downcase_l): Remove unused inline functions.  Based on a patch by
  Pedro Aguilar <paguilar@paguilar.org>.  Fixes #19172.
This commit is contained in:
Andy Wingo 2016-06-22 16:46:08 +02:00
parent 0ef4b76221
commit d84f25c271
1 changed files with 0 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

38
libguile/i18n.c
View file

@ -834,44 +834,6 @@ compare_u32_strings_ci (SCM s1, SCM s2, SCM locale, const char *func_name)
} }
#undef 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_DEFINE (scm_string_locale_lt, "string-locale<?", 2, 1, 0,
(SCM s1, SCM s2, SCM locale), (SCM s1, SCM s2, SCM locale),
"Compare strings @var{s1} and @var{s2} in a locale-dependent way." "Compare strings @var{s1} and @var{s2} in a locale-dependent way."