ExtAdwMessageDialog: Duplicate flag errors

blueprintcompiler/language/adw_message_dialog.py

@@ -25,31 +25,60 @@ from .gobject_object import ObjectContent, validate_parent_type
 from .values import StringValue
 
 
-class Response(AstNode):
+class ExtAdwMessageDialogFlag(AstNode):
+    grammar = AnyOf(
+        UseExact("flag", "destructive"),
+        UseExact("flag", "suggested"),
+        UseExact("flag", "disabled"),
+    )
+
+    @property
+    def flag(self) -> str:
+        return self.tokens["flag"]
+
+    @validate()
+    def unique(self):
+        self.validate_unique_in_parent(
+            f"Duplicate '{self.flag}' flag", check=lambda child: child.flag == self.flag
+        )
+
+    @validate()
+    def exclusive(self):
+        if self.flag in ["destructive", "suggested"]:
+            self.validate_unique_in_parent(
+                "'suggested' and 'destructive' are exclusive",
+                check=lambda child: child.flag in ["destructive", "suggested"],
+            )
+
+
+class ExtAdwMessageDialogResponse(AstNode):
     grammar = [
         UseIdent("id"),
         Match(":").expected(),
         to_parse_node(StringValue).expected("a string or translatable string"),
-        ZeroOrMore(
+        ZeroOrMore(ExtAdwMessageDialogFlag),
-            AnyOf(Keyword("destructive"), Keyword("suggested"), Keyword("disabled"))
-        ),
     ]
 
     @property
     def id(self) -> str:
         return self.tokens["id"]
 
+    @property
+    def flags(self) -> T.List[ExtAdwMessageDialogFlag]:
+        return self.children[ExtAdwMessageDialogFlag]
+
     @property
     def appearance(self) -> T.Optional[str]:
-        if "destructive" in self.tokens:
+        if any(flag.flag == "destructive" for flag in self.flags):
             return "destructive"
-        if "suggested" in self.tokens:
+        elif any(flag.flag == "suggested" for flag in self.flags):
             return "suggested"
-        return None
+        else:
+            return None
 
     @property
     def enabled(self) -> bool:
-        return "disabled" not in self.tokens
+        return not any(flag.flag == "disabled" for flag in self.flags)
 
     @property
     def value(self) -> StringValue:
@@ -71,12 +100,12 @@ class ExtAdwMessageDialog(AstNode):
     grammar = [
         Keyword("responses"),
         Match("[").expected(),
-        Delimited(Response, ","),
+        Delimited(ExtAdwMessageDialogResponse, ","),
         "]",
     ]
 
     @property
-    def responses(self) -> T.List[Response]:
+    def responses(self) -> T.List[ExtAdwMessageDialogResponse]:
         return self.children
 
     @validate("responses")

tests/sample_errors/adw_message_dialog_duplicate_flags.blp

@@ -0,0 +1,9 @@
+using Gtk 4.0;
+using Adw 1;
+
+Adw.MessageDialog {
+  responses [
+    cancel: _("Cancel") disabled disabled,
+    ok: _("Ok") destructive suggested,
+  ]
+}

tests/sample_errors/adw_message_dialog_duplicate_flags.err

@@ -0,0 +1,2 @@
+6,34,8,Duplicate 'disabled' flag
+7,29,9,'suggested' and 'destructive' are exclusive