Mate/Debug.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Mate.Debug
   4   ( printfJit
   5   , printfBb
   6   , printfMp
   7   , printfCp
   8   , printfStr
   9   , printfInfo
  10   , mateDEBUG
  11   , printf -- TODO: delete me
  12   ) where
  13
  14 import Text.Printf
  15 import System.IO
  16 import System.IO.Unsafe
  17 import Control.Monad
  18
  19
  20 {-# NOINLINE logHandle #-}
  21 -- TODO(bernhard): use MVar if threaded
  22 logHandle :: Handle
  23 logHandle = unsafePerformIO $ openFile "mate.log" WriteMode
  24
  25 {-# INLINE mateDEBUG #-}
  26 mateDEBUG :: Bool
  27 mateDEBUG = False
  28
  29 {-# INLINE printString #-}
  30 printString :: String -> String -> IO ()
  31 printString prefix str = when mateDEBUG $ hPutStr logHandle . (++) prefix $ str
  32
  33
  34 printfJit, printfBb, printfMp, printfCp, printfStr, printfInfo  :: String -> IO ()
  35 {-
  36 -- TODO(bernhard):
  37 -- http://stackoverflow.com/questions/12123082/function-composition-with-text-printf-printf
  38 -}
  39 printfJit  = printString "Jit: "
  40 printfBb   = printString "Bb: "
  41 printfMp   = printString "Mp: "
  42 printfCp   = printString "Cp: "
  43 printfStr  = printString "Str: "
  44 printfInfo = printString "Info: "