Main.hs

module Main where

import           System.Environment
import           System.Exit
import           Text.Parsec

main :: IO ()
main = do
  args <- getArgs
  case args of
    [fileName] -> do
      contents <- readFile fileName
      case parse parseGrammar fileName contents of
        Left err -> do
          print err
          exitFailure
        Right gr -> do
          let gr' = augmentGrammar gr
          print gr' -- this requires Show instance for grammar
          let states = grammarToLRStates gr'
          mapM_ print states -- this assumes states in a list and there is a Show instance for state
    _ -> do
      putStrLn "Usage: ..."
      exitFailure