Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add simple phase1 parser

Browse source
This commit is contained in:
I-Al-Istannen 2020-03-31 15:22:36 +02:00
parent a540e1711a
commit 7ee414bbb3
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/Mima/Asm/Phase1.hs
View file

@ -353,7 +353,7 @@ asmToken
fmap (uncurry TokenComment) (withSpan comment)
parsePhase1 :: Parser Phase1
parsePhase1 = undefined
parsePhase1 = many (space *> asmToken)
-- | A small helper for visualizing the parse.
--
@ -364,3 +364,12 @@ doParse p input = case parse parsecParser "" (T.pack input) of
Left msg -> putStrLn $ errorBundlePretty msg
Right (res, tokenStream) -> putStrLn $ "Success:\n " ++ show res ++ "\n " ++ show (appEndo tokenStream [])
where parsecParser = runWriterT p
parseAssembly :: T.Text -> Either T.Text Phase1
parseAssembly input = case parse (runWriterT parsePhase1) "" input of
Left msg -> Left $ T.pack $ errorBundlePretty msg
Right (result, _) -> Right result
displayParseResult :: Either T.Text Phase1 -> IO ()
displayParseResult (Left msg) = putStrLn $ T.unpack msg
displayParseResult (Right val) = traverse_ print val