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/test/Assembler/TokenizerSpec.hs
+++ b/test/Assembler/TokenizerSpec.hs
@@ -353,7 +353,7 @@ spec = do
    it "treats 'someId1234' as 'someId1234' identifier instead of 'someId' identifier and 1234 int" $
      tokenize "someId1234" `shouldBe` Right [Identifier "someId1234"]
    it "accepts 'main: NL" $
-      tokenize "main: \n" `shouldBe` Right [Identifier "main", Colon, NewLine]
+      tokenize ".main: \n" `shouldBe` Right [Dot, Identifier "main", Colon, NewLine]
    it "accepts 'call &sum NL" $
      tokenize "call &sum \n" `shouldBe` Right [Operator Call, Ampersand, Identifier "sum", NewLine]      
    it "rejects '4push'" $