2024-12-18 18:55:51 -06:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
import Eval
|
|
|
|
import Lexer
|
2024-12-27 16:30:32 -06:00
|
|
|
import Library
|
2024-12-18 18:55:51 -06:00
|
|
|
import Parser
|
2024-12-20 11:38:09 -06:00
|
|
|
import REPL (repl)
|
2024-12-18 18:55:51 -06:00
|
|
|
import Research
|
|
|
|
|
2024-12-27 08:17:06 -06:00
|
|
|
import qualified Data.Map as Map
|
2024-12-18 18:55:51 -06:00
|
|
|
import Text.Megaparsec (runParser)
|
|
|
|
|
|
|
|
main :: IO ()
|
2024-12-27 14:10:13 -06:00
|
|
|
main = repl library
|
2024-12-27 12:27:00 -06:00
|
|
|
|
|
|
|
runSapling :: String -> String
|
|
|
|
runSapling s = show $ result (evalSapling Map.empty $ parseSapling s)
|
2024-12-27 14:10:13 -06:00
|
|
|
runSaplingEnv env s = show $ result (evalSapling env $ parseSapling s)
|