gnulib-tool --import environ; rely on gnulib for environ definitions
[bpt/guile.git] / lib / wchar.in.h
CommitLineData
e65fc94b
LC
1/* A substitute for ISO C99 <wchar.h>, for platforms that have issues.
2
f240aacb 3 Copyright (C) 2007-2009 Free Software Foundation, Inc.
e65fc94b
LC
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU Lesser General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
8 any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public License
16 along with this program; if not, write to the Free Software Foundation,
17 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
18
19/* Written by Eric Blake. */
20
21/*
22 * ISO C 99 <wchar.h> for platforms that have issues.
23 * <http://www.opengroup.org/susv3xbd/wchar.h.html>
24 *
25 * For now, this just ensures proper prerequisite inclusion order and
26 * the declaration of wcwidth().
27 */
28
aa7a939c 29#if __GNUC__ >= 3
e65fc94b 30@PRAGMA_SYSTEM_HEADER@
aa7a939c 31#endif
e65fc94b 32
f240aacb
LC
33#if defined __need_mbstate_t || (defined __hpux && ((defined _INTTYPES_INCLUDED && !defined strtoimax) || defined _GL_JUST_INCLUDE_SYSTEM_WCHAR_H)) || defined _GL_ALREADY_INCLUDING_WCHAR_H
34/* Special invocation convention:
35 - Inside uClibc header files.
36 - On HP-UX 11.00 we have a sequence of nested includes
37 <wchar.h> -> <stdlib.h> -> <stdint.h>, and the latter includes <wchar.h>,
38 once indirectly <stdint.h> -> <sys/types.h> -> <inttypes.h> -> <wchar.h>
39 and once directly. In both situations 'wint_t' is not yet defined,
40 therefore we cannot provide the function overrides; instead include only
41 the system's <wchar.h>.
42 - On IRIX 6.5, similarly, we have an include <wchar.h> -> <wctype.h>, and
43 the latter includes <wchar.h>. But here, we have no way to detect whether
44 <wctype.h> is completely included or is still being included. */
e65fc94b
LC
45
46#@INCLUDE_NEXT@ @NEXT_WCHAR_H@
47
48#else
49/* Normal invocation convention. */
50
51#ifndef _GL_WCHAR_H
52
f240aacb
LC
53#define _GL_ALREADY_INCLUDING_WCHAR_H
54
e65fc94b
LC
55/* Tru64 with Desktop Toolkit C has a bug: <stdio.h> must be included before
56 <wchar.h>.
57 BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
58 included before <wchar.h>. */
59#include <stddef.h>
60#include <stdio.h>
61#include <time.h>
62
63/* Include the original <wchar.h> if it exists.
64 Some builds of uClibc lack it. */
65/* The include_next requires a split double-inclusion guard. */
66#if @HAVE_WCHAR_H@
67# @INCLUDE_NEXT@ @NEXT_WCHAR_H@
68#endif
69
f240aacb
LC
70#undef _GL_ALREADY_INCLUDING_WCHAR_H
71
e65fc94b
LC
72#ifndef _GL_WCHAR_H
73#define _GL_WCHAR_H
74
75/* The definition of GL_LINK_WARNING is copied here. */
76
77#ifdef __cplusplus
78extern "C" {
79#endif
80
81
aa7a939c
LC
82/* Define wint_t. (Also done in wctype.in.h.) */
83#if !@HAVE_WINT_T@ && !defined wint_t
84# define wint_t int
4a462e35
NJ
85# ifndef WEOF
86# define WEOF -1
87# endif
88#endif
89
90
91/* Override mbstate_t if it is too small.
92 On IRIX 6.5, sizeof (mbstate_t) == 1, which is not sufficient for
93 implementing mbrtowc for encodings like UTF-8. */
94#if !(@HAVE_MBSINIT@ && @HAVE_MBRTOWC@) || @REPLACE_MBSTATE_T@
95typedef int rpl_mbstate_t;
96# undef mbstate_t
97# define mbstate_t rpl_mbstate_t
98# define GNULIB_defined_mbstate_t 1
99#endif
100
101
102/* Convert a single-byte character to a wide character. */
103#if @GNULIB_BTOWC@
104# if @REPLACE_BTOWC@
105# undef btowc
106# define btowc rpl_btowc
107# endif
108# if !@HAVE_BTOWC@ || @REPLACE_BTOWC@
109extern wint_t btowc (int c);
110# endif
111#elif defined GNULIB_POSIXCHECK
112# undef btowc
113# define btowc(c) \
114 (GL_LINK_WARNING ("btowc is unportable - " \
115 "use gnulib module btowc for portability"), \
116 btowc (c))
117#endif
118
119
120/* Convert a wide character to a single-byte character. */
121#if @GNULIB_WCTOB@
122# if @REPLACE_WCTOB@
123# undef wctob
124# define wctob rpl_wctob
125# endif
126# if (!defined wctob && !@HAVE_DECL_WCTOB@) || @REPLACE_WCTOB@
127/* wctob is provided by gnulib, or wctob exists but is not declared. */
128extern int wctob (wint_t wc);
129# endif
130#elif defined GNULIB_POSIXCHECK
131# undef wctob
132# define wctob(w) \
133 (GL_LINK_WARNING ("wctob is unportable - " \
134 "use gnulib module wctob for portability"), \
135 wctob (w))
136#endif
137
138
139/* Test whether *PS is in the initial state. */
140#if @GNULIB_MBSINIT@
141# if @REPLACE_MBSINIT@
142# undef mbsinit
143# define mbsinit rpl_mbsinit
144# endif
145# if !@HAVE_MBSINIT@ || @REPLACE_MBSINIT@
146extern int mbsinit (const mbstate_t *ps);
147# endif
148#elif defined GNULIB_POSIXCHECK
149# undef mbsinit
150# define mbsinit(p) \
151 (GL_LINK_WARNING ("mbsinit is unportable - " \
152 "use gnulib module mbsinit for portability"), \
153 mbsinit (p))
154#endif
155
156
157/* Convert a multibyte character to a wide character. */
158#if @GNULIB_MBRTOWC@
159# if @REPLACE_MBRTOWC@
160# undef mbrtowc
161# define mbrtowc rpl_mbrtowc
162# endif
163# if !@HAVE_MBRTOWC@ || @REPLACE_MBRTOWC@
164extern size_t mbrtowc (wchar_t *pwc, const char *s, size_t n, mbstate_t *ps);
165# endif
166#elif defined GNULIB_POSIXCHECK
167# undef mbrtowc
168# define mbrtowc(w,s,n,p) \
169 (GL_LINK_WARNING ("mbrtowc is unportable - " \
170 "use gnulib module mbrtowc for portability"), \
171 mbrtowc (w, s, n, p))
172#endif
173
174
175/* Recognize a multibyte character. */
176#if @GNULIB_MBRLEN@
177# if @REPLACE_MBRLEN@
178# undef mbrlen
179# define mbrlen rpl_mbrlen
180# endif
181# if !@HAVE_MBRLEN@ || @REPLACE_MBRLEN@
182extern size_t mbrlen (const char *s, size_t n, mbstate_t *ps);
183# endif
184#elif defined GNULIB_POSIXCHECK
185# undef mbrlen
186# define mbrlen(s,n,p) \
187 (GL_LINK_WARNING ("mbrlen is unportable - " \
188 "use gnulib module mbrlen for portability"), \
189 mbrlen (s, n, p))
190#endif
191
192
193/* Convert a string to a wide string. */
194#if @GNULIB_MBSRTOWCS@
195# if @REPLACE_MBSRTOWCS@
196# undef mbsrtowcs
197# define mbsrtowcs rpl_mbsrtowcs
198# endif
199# if !@HAVE_MBSRTOWCS@ || @REPLACE_MBSRTOWCS@
200extern size_t mbsrtowcs (wchar_t *dest, const char **srcp, size_t len, mbstate_t *ps);
201# endif
202#elif defined GNULIB_POSIXCHECK
203# undef mbsrtowcs
204# define mbsrtowcs(d,s,l,p) \
205 (GL_LINK_WARNING ("mbsrtowcs is unportable - " \
206 "use gnulib module mbsrtowcs for portability"), \
207 mbsrtowcs (d, s, l, p))
208#endif
209
210
211/* Convert a string to a wide string. */
212#if @GNULIB_MBSNRTOWCS@
213# if @REPLACE_MBSNRTOWCS@
214# undef mbsnrtowcs
215# define mbsnrtowcs rpl_mbsnrtowcs
216# endif
217# if !@HAVE_MBSNRTOWCS@ || @REPLACE_MBSNRTOWCS@
218extern size_t mbsnrtowcs (wchar_t *dest, const char **srcp, size_t srclen, size_t len, mbstate_t *ps);
219# endif
220#elif defined GNULIB_POSIXCHECK
221# undef mbsnrtowcs
222# define mbsnrtowcs(d,s,n,l,p) \
223 (GL_LINK_WARNING ("mbsnrtowcs is unportable - " \
224 "use gnulib module mbsnrtowcs for portability"), \
225 mbsnrtowcs (d, s, n, l, p))
226#endif
227
228
229/* Convert a wide character to a multibyte character. */
230#if @GNULIB_WCRTOMB@
231# if @REPLACE_WCRTOMB@
232# undef wcrtomb
233# define wcrtomb rpl_wcrtomb
234# endif
235# if !@HAVE_WCRTOMB@ || @REPLACE_WCRTOMB@
236extern size_t wcrtomb (char *s, wchar_t wc, mbstate_t *ps);
237# endif
238#elif defined GNULIB_POSIXCHECK
239# undef wcrtomb
240# define wcrtomb(s,w,p) \
241 (GL_LINK_WARNING ("wcrtomb is unportable - " \
242 "use gnulib module wcrtomb for portability"), \
243 wcrtomb (s, w, p))
244#endif
245
246
247/* Convert a wide string to a string. */
248#if @GNULIB_WCSRTOMBS@
249# if @REPLACE_WCSRTOMBS@
250# undef wcsrtombs
251# define wcsrtombs rpl_wcsrtombs
252# endif
253# if !@HAVE_WCSRTOMBS@ || @REPLACE_WCSRTOMBS@
254extern size_t wcsrtombs (char *dest, const wchar_t **srcp, size_t len, mbstate_t *ps);
255# endif
256#elif defined GNULIB_POSIXCHECK
257# undef wcsrtombs
258# define wcsrtombs(d,s,l,p) \
259 (GL_LINK_WARNING ("wcsrtombs is unportable - " \
260 "use gnulib module wcsrtombs for portability"), \
261 wcsrtombs (d, s, l, p))
262#endif
263
264
265/* Convert a wide string to a string. */
266#if @GNULIB_WCSNRTOMBS@
f240aacb
LC
267# if @REPLACE_WCSNRTOMBS@
268# undef wcsnrtombs
269# define wcsnrtombs rpl_wcsnrtombs
270# endif
271# if !@HAVE_WCSNRTOMBS@ || @REPLACE_WCSNRTOMBS@
4a462e35
NJ
272extern size_t wcsnrtombs (char *dest, const wchar_t **srcp, size_t srclen, size_t len, mbstate_t *ps);
273# endif
274#elif defined GNULIB_POSIXCHECK
275# undef wcsnrtombs
276# define wcsnrtombs(d,s,n,l,p) \
277 (GL_LINK_WARNING ("wcsnrtombs is unportable - " \
278 "use gnulib module wcsnrtombs for portability"), \
279 wcsnrtombs (d, s, n, l, p))
aa7a939c
LC
280#endif
281
282
e65fc94b
LC
283/* Return the number of screen columns needed for WC. */
284#if @GNULIB_WCWIDTH@
285# if @REPLACE_WCWIDTH@
286# undef wcwidth
287# define wcwidth rpl_wcwidth
288extern int wcwidth (wchar_t);
289# else
290# if !defined wcwidth && !@HAVE_DECL_WCWIDTH@
291/* wcwidth exists but is not declared. */
292extern int wcwidth (int /* actually wchar_t */);
293# endif
294# endif
295#elif defined GNULIB_POSIXCHECK
296# undef wcwidth
297# define wcwidth(w) \
298 (GL_LINK_WARNING ("wcwidth is unportable - " \
299 "use gnulib module wcwidth for portability"), \
300 wcwidth (w))
301#endif
302
303
304#ifdef __cplusplus
305}
306#endif
307
308#endif /* _GL_WCHAR_H */
309#endif /* _GL_WCHAR_H */
310#endif