Mate/Debug.hs

   1 {-# LANGUAGE CPP #-}
   2 {-# LANGUAGE OverloadedStrings #-}
   3 #include "debug.h"
   4
   5 module Mate.Debug where
   6
   7 {- we cannot use `PrintfType' from Text.Printf, as it isn't exported.
   8  - so we implement a `VarArgsFake' here.
   9  - http://www.haskell.org/haskellwiki/Varargs -}
  10 class VarArgsFake t where
  11   varFake :: [String] -> t
  12
  13 instance VarArgsFake (IO a) where
  14   varFake _ = return undefined
  15
  16 instance (Show a, VarArgsFake r) => VarArgsFake (a -> r) where
  17   varFake _ = \_ -> varFake []
  18
  19 printf_fake :: String -> (VarArgsFake t) => t
  20 printf_fake _ = varFake []
  21
  22
  23 -- see counterpart at `debug.h'
  24 #ifndef DBG_JIT
  25 printf_jit :: String -> (VarArgsFake t) => t
  26 printf_jit = printf_fake
  27 #endif
  28
  29 #ifndef DBG_BB
  30 printf_bb :: String -> (VarArgsFake t) => t
  31 printf_bb = printf_fake
  32 #endif
  33
  34 #ifndef DBG_MP
  35 printf_mp :: String -> (VarArgsFake t) => t
  36 printf_mp = printf_fake
  37 #endif
  38
  39 #ifndef DBG_CP
  40 printf_cp :: String -> (VarArgsFake t) => t
  41 printf_cp = printf_fake
  42 #endif
  43
  44 #ifndef DBG_STR
  45 printf_str :: String -> (VarArgsFake t) => t
  46 printf_str = printf_fake
  47 #endif