module Main where
import Interface
import Parser ( parseExprs )
Copyright By PowCoder代写 加微信 powcoder
import AST
import System.Environment (getArgs)
run :: Datum -> Maybe String
run = undefined
main :: IO ()
main = do files <- getArgs
contents <- concat <$> mapM readFile files
case parseExprs True contents of
Left err -> putStrLn (“parse error: ” ++ show err)
Right ds -> mapM_ (\d -> case run d of
Nothing -> putStrLn “error”
Just ress -> putStrLn ress) ds
程序代写 CS代考 加微信: powcoder QQ: 1823890830 Email: powcoder@163.com