antlr-haskell-0.1.0.1: test/swift/swift.hs

module Main where
import Language.ANTLR4
import Parser
import qualified Text.ANTLR.Set as S

getAST (ResultAccept ast) = ast
getAST _ = error "non-AST in ResultSet"

main =
  case glrParse isWS "var i = 0;" of
    (ResultAccept ast) -> print $ ast2topLevel ast
    (ResultSet xs)     -> mapM_ (print . ast2topLevel . getAST) (S.toList xs)