Support for comments with curly braces.

src/HSPC/Tokenize.hs

@@ -23,6 +23,7 @@ data HSPCToken
 
 tokenize :: String -> [HSPCToken]
 tokenize [] = []
+tokenize ('{' : cs) = tokenize $ dropWhile (/= '}') cs
 tokenize (c : cs)
   | "//" `isPrefixOf` (c : cs) = tokenize $ dropWhile (/= '\n') cs
   -- End includes this annoying '.'

test/Main.hs

@@ -32,7 +32,9 @@ testSuite =
     TestSpec "Divide(div) literal ints" "operators_divide_two_ints" 2,
     TestSpec "Brackets with literal ints" "operators_brackets" 26,
     TestSpec "Unary minus with literal ints" "operators_unary_minus_int" 75,
-    TestSpec "Unary plus with literal ints" "operators_unary_plus_int" 25
+    TestSpec "Unary plus with literal ints" "operators_unary_plus_int" 25,
+    TestSpec "{} comments" "comments_curly_brace" 12,
+    TestSpec "// comments" "comments_single_line" 12
   ]
 
 main :: IO ()

test/sample_programs/comments_curly_brace.pas

@@ -0,0 +1,9 @@
+
+program CommentExample;
+
+begin
+{
+    halt(0);
+}
+    halt(12); 
+end.

test/sample_programs/comments_single_line.pas

@@ -0,0 +1,7 @@
+
+program CommentExample;
+
+begin
+    //halt(0);
+    halt(12); 
+end.