module Test2
where

import Parser2
import ParserTables
import Data.Dynamic
import SableAst

parseFile :: FilePath -> IO ParseUnit
parseFile bFile = do
  putStrLn "reading Source"
  src <- readFile bFile
  putStrLn "running Lexer and parser"
  let
    lexerTokens = runLexer src
    parserTokens = trimTokens lexerTokens
    cst = runParser parserTokens
    ast:: ParseUnit
    ast = fromDNode $ cst2ast cst
  return ast