Ticket #203: enums-comma-sep.patch

Source/CobraParser.cobra

@@ -1020 +1020 @@
                 enumValue = .expect('INTEGER_LIT').value to int?
             else
                 enumValue = nil
-            .endOfLine
+            if not .optional('COMMA')
+                .endOfLine
             if enumNameToken.text in nameSet
                 .recordError(enumNameToken, 'Already defined "[enumNameToken.text]" earlier.')
             else

Tests/100-basics/331-enums-comma.cobra

@@ +1 @@
+enum Colors
+    Red = 2, Green, Blue
+
+class Test
+
+    def main
+        is shared
+        c as Colors = Colors.Red
+        assert c == Colors.Red
+        assert c <> Colors.Green
+        assert c is Colors.Red  # .warning. value types
+        assert c is not Colors.Green  # .warning. value types

Tests/100-basics/330-enums-comma.cobra

@@ +1 @@
+# alternate syntax, comma sepearated
+enum Colors
+    Red, Green, Blue
+
+class Test
+
+    def main
+        is shared
+        c as Colors = Colors.Red
+        assert c == Colors.Red
+        assert c <> Colors.Green
+        assert c is Colors.Red  # .warning. value types
+        assert c is not Colors.Green  # .warning. value types

Tests/100-basics/332-enums-comma.cobra

@@ +1 @@
+# comma sep syntax
+enum Color
+    Red = 1, Green = 2,
+    Blue = 4
+
+class Test
+
+    def main is shared
+        c = Color(Red, Green)
+        print c
+        print c to int
+        .takeColor(Color(Red, Green))
+        # TODO: Should have a qualified example. System.SomeEnum(MemberA, MemberB) and System.Something.SomeEnum(MemberA, MemberB)
+        
+        # testing enum membership with bitwise-and
+        assert c & Color.Red == Color.Red
+        assert c & Color.Green == Color.Green
+        assert c & Color.Blue <> Color.Blue
+
+    def takeColor(c as Color) is shared
+        pass