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 const char* localeEncoding(void)
35 #if defined(HAVE_LIBCHARSET)
36 return locale_charset();
38 #elif defined(HAVE_LANGINFO_H)
39 return nl_langinfo(CODESET);
42 #warning Depending on the unportable behavior of GNU iconv due to absence of both libcharset and langinfo.h
43 /* GNU iconv accepts "" to mean the current locale's
44 * encoding. Warning: This isn't portable.
50 #endif /* __GLASGOW_HASKELL__ */