mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
4a462e3544
Because of how Guile saves and restores continuations (by copying the stack), and how it uses alloca to create space for debug information on the stack, we must have an alloca() that really does use the stack, and not one that uses the heap. To do this, we use the Gnulib "alloca-opt" module instead of "alloca". This commit also updates the Gnulib sources from the current Gnulib Git repository.
292 lines
7.9 KiB
C
292 lines
7.9 KiB
C
/* A substitute for ISO C99 <wchar.h>, for platforms that have issues.
|
|
|
|
Copyright (C) 2007-2008 Free Software Foundation, Inc.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
This program 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 Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with this program; if not, write to the Free Software Foundation,
|
|
Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
|
|
|
|
/* Written by Eric Blake. */
|
|
|
|
/*
|
|
* ISO C 99 <wchar.h> for platforms that have issues.
|
|
* <http://www.opengroup.org/susv3xbd/wchar.h.html>
|
|
*
|
|
* For now, this just ensures proper prerequisite inclusion order and
|
|
* the declaration of wcwidth().
|
|
*/
|
|
|
|
#if __GNUC__ >= 3
|
|
@PRAGMA_SYSTEM_HEADER@
|
|
#endif
|
|
|
|
#ifdef __need_mbstate_t
|
|
/* Special invocation convention inside uClibc header files. */
|
|
|
|
#@INCLUDE_NEXT@ @NEXT_WCHAR_H@
|
|
|
|
#else
|
|
/* Normal invocation convention. */
|
|
|
|
#ifndef _GL_WCHAR_H
|
|
|
|
/* Tru64 with Desktop Toolkit C has a bug: <stdio.h> must be included before
|
|
<wchar.h>.
|
|
BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
|
|
included before <wchar.h>. */
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <time.h>
|
|
|
|
/* Include the original <wchar.h> if it exists.
|
|
Some builds of uClibc lack it. */
|
|
/* The include_next requires a split double-inclusion guard. */
|
|
#if @HAVE_WCHAR_H@
|
|
# @INCLUDE_NEXT@ @NEXT_WCHAR_H@
|
|
#endif
|
|
|
|
#ifndef _GL_WCHAR_H
|
|
#define _GL_WCHAR_H
|
|
|
|
/* The definition of GL_LINK_WARNING is copied here. */
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
|
|
/* Define wint_t. (Also done in wctype.in.h.) */
|
|
#if !@HAVE_WINT_T@ && !defined wint_t
|
|
# define wint_t int
|
|
# ifndef WEOF
|
|
# define WEOF -1
|
|
# endif
|
|
#endif
|
|
|
|
|
|
/* Override mbstate_t if it is too small.
|
|
On IRIX 6.5, sizeof (mbstate_t) == 1, which is not sufficient for
|
|
implementing mbrtowc for encodings like UTF-8. */
|
|
#if !(@HAVE_MBSINIT@ && @HAVE_MBRTOWC@) || @REPLACE_MBSTATE_T@
|
|
typedef int rpl_mbstate_t;
|
|
# undef mbstate_t
|
|
# define mbstate_t rpl_mbstate_t
|
|
# define GNULIB_defined_mbstate_t 1
|
|
#endif
|
|
|
|
|
|
/* Convert a single-byte character to a wide character. */
|
|
#if @GNULIB_BTOWC@
|
|
# if @REPLACE_BTOWC@
|
|
# undef btowc
|
|
# define btowc rpl_btowc
|
|
# endif
|
|
# if !@HAVE_BTOWC@ || @REPLACE_BTOWC@
|
|
extern wint_t btowc (int c);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef btowc
|
|
# define btowc(c) \
|
|
(GL_LINK_WARNING ("btowc is unportable - " \
|
|
"use gnulib module btowc for portability"), \
|
|
btowc (c))
|
|
#endif
|
|
|
|
|
|
/* Convert a wide character to a single-byte character. */
|
|
#if @GNULIB_WCTOB@
|
|
# if @REPLACE_WCTOB@
|
|
# undef wctob
|
|
# define wctob rpl_wctob
|
|
# endif
|
|
# if (!defined wctob && !@HAVE_DECL_WCTOB@) || @REPLACE_WCTOB@
|
|
/* wctob is provided by gnulib, or wctob exists but is not declared. */
|
|
extern int wctob (wint_t wc);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef wctob
|
|
# define wctob(w) \
|
|
(GL_LINK_WARNING ("wctob is unportable - " \
|
|
"use gnulib module wctob for portability"), \
|
|
wctob (w))
|
|
#endif
|
|
|
|
|
|
/* Test whether *PS is in the initial state. */
|
|
#if @GNULIB_MBSINIT@
|
|
# if @REPLACE_MBSINIT@
|
|
# undef mbsinit
|
|
# define mbsinit rpl_mbsinit
|
|
# endif
|
|
# if !@HAVE_MBSINIT@ || @REPLACE_MBSINIT@
|
|
extern int mbsinit (const mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef mbsinit
|
|
# define mbsinit(p) \
|
|
(GL_LINK_WARNING ("mbsinit is unportable - " \
|
|
"use gnulib module mbsinit for portability"), \
|
|
mbsinit (p))
|
|
#endif
|
|
|
|
|
|
/* Convert a multibyte character to a wide character. */
|
|
#if @GNULIB_MBRTOWC@
|
|
# if @REPLACE_MBRTOWC@
|
|
# undef mbrtowc
|
|
# define mbrtowc rpl_mbrtowc
|
|
# endif
|
|
# if !@HAVE_MBRTOWC@ || @REPLACE_MBRTOWC@
|
|
extern size_t mbrtowc (wchar_t *pwc, const char *s, size_t n, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef mbrtowc
|
|
# define mbrtowc(w,s,n,p) \
|
|
(GL_LINK_WARNING ("mbrtowc is unportable - " \
|
|
"use gnulib module mbrtowc for portability"), \
|
|
mbrtowc (w, s, n, p))
|
|
#endif
|
|
|
|
|
|
/* Recognize a multibyte character. */
|
|
#if @GNULIB_MBRLEN@
|
|
# if @REPLACE_MBRLEN@
|
|
# undef mbrlen
|
|
# define mbrlen rpl_mbrlen
|
|
# endif
|
|
# if !@HAVE_MBRLEN@ || @REPLACE_MBRLEN@
|
|
extern size_t mbrlen (const char *s, size_t n, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef mbrlen
|
|
# define mbrlen(s,n,p) \
|
|
(GL_LINK_WARNING ("mbrlen is unportable - " \
|
|
"use gnulib module mbrlen for portability"), \
|
|
mbrlen (s, n, p))
|
|
#endif
|
|
|
|
|
|
/* Convert a string to a wide string. */
|
|
#if @GNULIB_MBSRTOWCS@
|
|
# if @REPLACE_MBSRTOWCS@
|
|
# undef mbsrtowcs
|
|
# define mbsrtowcs rpl_mbsrtowcs
|
|
# endif
|
|
# if !@HAVE_MBSRTOWCS@ || @REPLACE_MBSRTOWCS@
|
|
extern size_t mbsrtowcs (wchar_t *dest, const char **srcp, size_t len, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef mbsrtowcs
|
|
# define mbsrtowcs(d,s,l,p) \
|
|
(GL_LINK_WARNING ("mbsrtowcs is unportable - " \
|
|
"use gnulib module mbsrtowcs for portability"), \
|
|
mbsrtowcs (d, s, l, p))
|
|
#endif
|
|
|
|
|
|
/* Convert a string to a wide string. */
|
|
#if @GNULIB_MBSNRTOWCS@
|
|
# if @REPLACE_MBSNRTOWCS@
|
|
# undef mbsnrtowcs
|
|
# define mbsnrtowcs rpl_mbsnrtowcs
|
|
# endif
|
|
# if !@HAVE_MBSNRTOWCS@ || @REPLACE_MBSNRTOWCS@
|
|
extern size_t mbsnrtowcs (wchar_t *dest, const char **srcp, size_t srclen, size_t len, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef mbsnrtowcs
|
|
# define mbsnrtowcs(d,s,n,l,p) \
|
|
(GL_LINK_WARNING ("mbsnrtowcs is unportable - " \
|
|
"use gnulib module mbsnrtowcs for portability"), \
|
|
mbsnrtowcs (d, s, n, l, p))
|
|
#endif
|
|
|
|
|
|
/* Convert a wide character to a multibyte character. */
|
|
#if @GNULIB_WCRTOMB@
|
|
# if @REPLACE_WCRTOMB@
|
|
# undef wcrtomb
|
|
# define wcrtomb rpl_wcrtomb
|
|
# endif
|
|
# if !@HAVE_WCRTOMB@ || @REPLACE_WCRTOMB@
|
|
extern size_t wcrtomb (char *s, wchar_t wc, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef wcrtomb
|
|
# define wcrtomb(s,w,p) \
|
|
(GL_LINK_WARNING ("wcrtomb is unportable - " \
|
|
"use gnulib module wcrtomb for portability"), \
|
|
wcrtomb (s, w, p))
|
|
#endif
|
|
|
|
|
|
/* Convert a wide string to a string. */
|
|
#if @GNULIB_WCSRTOMBS@
|
|
# if @REPLACE_WCSRTOMBS@
|
|
# undef wcsrtombs
|
|
# define wcsrtombs rpl_wcsrtombs
|
|
# endif
|
|
# if !@HAVE_WCSRTOMBS@ || @REPLACE_WCSRTOMBS@
|
|
extern size_t wcsrtombs (char *dest, const wchar_t **srcp, size_t len, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef wcsrtombs
|
|
# define wcsrtombs(d,s,l,p) \
|
|
(GL_LINK_WARNING ("wcsrtombs is unportable - " \
|
|
"use gnulib module wcsrtombs for portability"), \
|
|
wcsrtombs (d, s, l, p))
|
|
#endif
|
|
|
|
|
|
/* Convert a wide string to a string. */
|
|
#if @GNULIB_WCSNRTOMBS@
|
|
# if !@HAVE_WCSNRTOMBS@
|
|
extern size_t wcsnrtombs (char *dest, const wchar_t **srcp, size_t srclen, size_t len, mbstate_t *ps);
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef wcsnrtombs
|
|
# define wcsnrtombs(d,s,n,l,p) \
|
|
(GL_LINK_WARNING ("wcsnrtombs is unportable - " \
|
|
"use gnulib module wcsnrtombs for portability"), \
|
|
wcsnrtombs (d, s, n, l, p))
|
|
#endif
|
|
|
|
|
|
/* Return the number of screen columns needed for WC. */
|
|
#if @GNULIB_WCWIDTH@
|
|
# if @REPLACE_WCWIDTH@
|
|
# undef wcwidth
|
|
# define wcwidth rpl_wcwidth
|
|
extern int wcwidth (wchar_t);
|
|
# else
|
|
# if !defined wcwidth && !@HAVE_DECL_WCWIDTH@
|
|
/* wcwidth exists but is not declared. */
|
|
extern int wcwidth (int /* actually wchar_t */);
|
|
# endif
|
|
# endif
|
|
#elif defined GNULIB_POSIXCHECK
|
|
# undef wcwidth
|
|
# define wcwidth(w) \
|
|
(GL_LINK_WARNING ("wcwidth is unportable - " \
|
|
"use gnulib module wcwidth for portability"), \
|
|
wcwidth (w))
|
|
#endif
|
|
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* _GL_WCHAR_H */
|
|
#endif /* _GL_WCHAR_H */
|
|
#endif
|