diff options
author | Mike Gran <spk121@yahoo.com> | 2022-09-15 21:25:29 -0700 |
---|---|---|
committer | Mike Gran <spk121@yahoo.com> | 2022-10-14 08:40:23 -0700 |
commit | 3827291425de2cd22ba8026ff8ad08ef64ef8269 (patch) | |
tree | 2a845e8f5c2fb2d463f33ce487bec171906ac630 /libguile | |
parent | 9b357bace3850a9c6c03e8fb6b3b82f4e57da507 (diff) | |
download | guile-3827291425de2cd22ba8026ff8ad08ef64ef8269.tar.gz |
Presume ISO C90 functions are always available
* configure.ac: don't check for rename, setlocale, system, memcpy,
and strcoll
* libguile/i18n.c [HAVE_SETLOCALE] (setlocale): remove static setlocale
Don't use HAVE_SETLOCALE
* libguile/posix.c: include <locale.h>, remove HAVE_SETLOCALE
(scm_setlocale): always include. remove HAVE_SETLOCALE
* libguile/simpos.c (scm_system): always include. remove HAVE_SYSTEM
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/i18n.c | 9 | ||||
-rw-r--r-- | libguile/posix.c | 5 | ||||
-rw-r--r-- | libguile/simpos.c | 2 |
3 files changed, 0 insertions, 16 deletions
diff --git a/libguile/i18n.c b/libguile/i18n.c index 52a808041..a56852248 100644 --- a/libguile/i18n.c +++ b/libguile/i18n.c @@ -75,15 +75,6 @@ /* Use Gnulib's header, which also provides `nl_item' & co. */ #include <langinfo.h> -#ifndef HAVE_SETLOCALE -static inline char * -setlocale (int category, const char *name) -{ - errno = ENOSYS; - return NULL; -} -#endif - /* The newlib C library has alternative names for locale constants. */ #if HAVE_DECL__NL_NUMERIC_GROUPING #define INT_CURR_SYMBOL _NL_MONETARY_INT_CURR_SYMBOL diff --git a/libguile/posix.c b/libguile/posix.c index 475312c2a..8471818ad 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -112,9 +112,7 @@ #include <sys/utsname.h> #endif -#ifdef HAVE_SETLOCALE #include <locale.h> -#endif #if (defined HAVE_NEWLOCALE) && (defined HAVE_STRCOLL_L) # define USE_GNU_LOCALE_API @@ -1833,8 +1831,6 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0, details. */ scm_i_pthread_mutex_t scm_i_locale_mutex = SCM_I_PTHREAD_MUTEX_INITIALIZER; -#ifdef HAVE_SETLOCALE - SCM_DEFINE (scm_setlocale, "setlocale", 1, 1, 0, (SCM category, SCM locale), "If @var{locale} is omitted, return the current value of the\n" @@ -1898,7 +1894,6 @@ SCM_DEFINE (scm_setlocale, "setlocale", 1, 1, 0, return scm_from_locale_string (rv); } #undef FUNC_NAME -#endif /* HAVE_SETLOCALE */ #ifdef HAVE_MKNOD SCM_DEFINE (scm_mknod, "mknod", 4, 0, 0, diff --git a/libguile/simpos.c b/libguile/simpos.c index 2a292eeff..537f194b9 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -36,7 +36,6 @@ -#ifdef HAVE_SYSTEM SCM_DEFINE (scm_system, "system", 0, 1, 0, (SCM cmd), "Execute @var{cmd} using the operating system's \"command\n" @@ -67,7 +66,6 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0, return scm_from_int (rv); } #undef FUNC_NAME -#endif /* HAVE_SYSTEM */ SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0, |