Main.hs

module Main where
import Language.C
import Language.C.System.GCC   -- preprocessor used
import Language.C.Syntax.AST

main = parseMyFile "header.h" >>= printMyAST

parseMyFile :: FilePath -> IO CTranslUnit
parseMyFile input_file =
  do parse_result <- parseCFile (newGCC "gcc") Nothing ["-U__BLOCKS__"] input_file
     case parse_result of
       Left parse_err -> error (show parse_err)
       Right ast      -> return ast

printMyAST :: CTranslUnit -> IO ()
printMyAST ctu = (print . pretty) ctu

package.cabal

build-depends: language=c