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

Parse instructions with labels

Browse source
This commit is contained in:
Joscha 2019-11-09 23:37:47 +00:00
parent 21e72420dd
commit dc990a2e7a
4 changed files with 157 additions and 101 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Mima/Assembler/Parser/Basic.hs
View file

@ -20,6 +20,7 @@ module Mima.Assembler.Parser.Basic
, largeValue
, largeValue'
, smallValue
, smallValue'
-- * Stateful parsing
, StatefulParser
, runStatefulParser
@ -105,14 +106,18 @@ mimaWord :: Parser MimaWord
mimaWord = lexeme $ label "24-bit number" $ fromHex 24 <|> fromDec 24
largeValue :: Parser LargeValue
largeValue = lexeme $ largeValue'
largeValue = lexeme largeValue'
-- | Non-lexeme version of 'largeValue'
largeValue' :: Parser LargeValue
largeValue' = label "20-bit number" $ fromHex 20 <|> fromDec 20
smallValue :: Parser SmallValue
smallValue = lexeme $ label "16-bit number" $ fromHex 16 <|> fromDec 16
smallValue = lexeme smallValue'
-- | Non-lexeme version of 'smallValue'
smallValue' :: Parser SmallValue
smallValue' = label "16-bit number" $ fromHex 16 <|> fromDec 16
{- Stateful parsing -}