2 * (c) The University of Glasgow 2002
4 * static versions of the inline functions in HsCore.h
9 #ifdef __GLASGOW_HASKELL__
15 #ifdef __GLASGOW_HASKELL__
17 void errorBelch2(const char*s, char *t)
22 void debugBelch2(const char*s, char *t)
27 #if defined(HAVE_LIBCHARSET)
28 # include <libcharset.h>
29 #elif defined(HAVE_LANGINFO_H)
30 # include <langinfo.h>
33 #if !defined(mingw32_HOST_OS)
34 const char* localeEncoding(void)
36 #if defined(HAVE_LIBCHARSET)
37 return locale_charset();
39 #elif defined(HAVE_LANGINFO_H)
40 return nl_langinfo(CODESET);
43 #warning Depending on the unportable behavior of GNU iconv due to absence of both libcharset and langinfo.h
44 /* GNU iconv accepts "" to mean the current locale's
45 * encoding. Warning: This isn't portable.
52 #endif /* __GLASGOW_HASKELL__ */