Updated the list of operators and keywords

2025-01-20 21:36:47 +01:00 · 2025-01-20 21:36:47 +01:00 · 4592a89ebf
commit 4592a89ebf
parent 52e04d28cf
1 changed files with 31 additions and 2 deletions
--- a/src/Ubc/Parse/Syntax/Language.hs
+++ b/src/Ubc/Parse/Syntax/Language.hs
@ -55,8 +55,37 @@ languageDef = LanguageDef {
        , identLetter = alphaNum <|> char '_'
        , opStart = oneOf "+-*/%"
        , opLetter = oneOf "+-*/%"
-        , reservedNames = [ "struct", "u32", "i32", "f32", "if", "then", "else" ]
-        , reservedOpNames = [ "+", "-", "*", "/", "%" ]
+        , reservedNames =       [ "struct"
+                                , "u32"
+                                , "i32"
+                                , "f32"
+                                , "if"
+                                , "unless"
+                                , "then"
+                                , "else" 
+                                , "while"
+                                , "until"
+                                ]
+        , reservedOpNames =     [ "+"
+                                , "-"
+                                , "*"
+                                , "/"
+                                , "%"
+                                , "<<"
+                                , ">>"
+                                , ">="
+                                , "<="
+                                , "<"
+                                , ">"
+                                , "=="
+                                , "!="
+                                , "&"
+                                , "^"
+                                , "|"
+                                , "&&"
+                                , "||"
+                                , "="
+                                ]
        , caseSensitive = True
        }