cbits/PrelIOUtils.c

   1 /*
   2  * (c) The University of Glasgow 2002
   3  *
   4  * static versions of the inline functions in HsCore.h
   5  */
   6
   7 #define INLINE
   8
   9 #ifdef __GLASGOW_HASKELL__
  10 # include "Rts.h"
  11 #endif
  12
  13 #include "HsBase.h"
  14
  15 #ifdef __GLASGOW_HASKELL__
  16 # include "RtsMessages.h"
  17
  18 void errorBelch2(const char*s, char *t)
  19 {
  20     errorBelch(s,t);
  21 }
  22
  23 void debugBelch2(const char*s, char *t)
  24 {
  25     debugBelch(s,t);
  26 }
  27
  28 // Use a C wrapper for this because we avoid hsc2hs in base
  29 #if HAVE_LANGINFO_H
  30 #include <langinfo.h>
  31 char *localeEncoding (void)
  32 {
  33     return nl_langinfo(CODESET);
  34 }
  35 #endif
  36
  37 #endif /* __GLASGOW_HASKELL__ */