Add support for local labels

2021-11-15 14:05:18 +01:00
parent 5ad4114405
commit 18ddfa611d
8 changed files with 344 additions and 255 deletions
--- a/app/Assembler/Tokenizer.hs
+++ b/app/Assembler/Tokenizer.hs
@@ -14,6 +14,7 @@ data Token = Operator Op
           | Identifier String
           | Colon
           | Ampersand
+           | Dot
           | NewLine
           | WhiteSpace
           | Comment String
@@ -138,6 +139,7 @@ tokenize input = tokens >>= (\t -> Right $ filter tokenFilter t)
      , tokenizeIdentifier
      , keywordTokenizer False ":" Colon
      , keywordTokenizer False "&" Ampersand
+      , keywordTokenizer False "." Dot
      , tokenizeChar
      , tokenizeString
      ]