{-# OPTIONS #-}
module Language.C.Parser (
parseC,
P,execParser,execParser_,builtinTypeNames,
translUnitP, extDeclP, statementP, expressionP,
ParseError(..)
)
where
import Language.C.Parser.Parser (parseC,translUnitP, extDeclP, statementP, expressionP)
import Language.C.Parser.ParserMonad (execParser, ParseError(..),P)
import Language.C.Parser.Builtin (builtinTypeNames)
import Language.C.Data
execParser_ :: P a -> InputStream -> Position -> Either ParseError a
execParser_ parser input pos =
fmap fst $ execParser parser input pos builtinTypeNames newNameSupply