Add AbstractSubpDecl configuration

AdaCore · Jul 15, 2024 · a0b7d4b · a0b7d4b
1 parent b4e3091
commit a0b7d4b
Show file tree

Hide file tree

Showing 4 changed files with 47 additions and 0 deletions.
diff --git a/extensions/default_unparsing_config.json b/extensions/default_unparsing_config.json
@@ -29,6 +29,44 @@
         }
       }
     },
+    "AbstractSubpDecl": {
+      "node": {
+        "kind": "group",
+        "document": [
+          {
+            "kind": "recurse_field",
+            "field": "f_overriding"
+          },
+          {
+            "kind": "recurse_field",
+            "field": "f_subp_spec"
+          },
+          "line",
+          {
+            "kind": "text",
+            "text": "is"
+          },
+          {
+            "kind": "text",
+            "text": "abstract"
+          },
+          {
+            "kind": "recurse_field",
+            "field": "f_aspects"
+          },
+          {
+            "kind": "text",
+            "text": ";"
+          }
+        ]
+      },
+      "fields": {
+        "f_aspects": [
+          "hardlineWithoutBreakParent",
+          "recurse"
+        ]
+      }
+    },
     "AcceptStmt": {
       "node": {
         "kind": "group",

diff --git a/testsuite/tests/unparsing/subp_decl/abstract/input.ada b/testsuite/tests/unparsing/subp_decl/abstract/input.ada
@@ -0,0 +1,3 @@
+    procedure Take(Element : out Element_Type;
+                   From : in out Set) is abstract;
+
diff --git a/testsuite/tests/unparsing/subp_decl/abstract/test.out b/testsuite/tests/unparsing/subp_decl/abstract/test.out
@@ -0,0 +1 @@
+procedure Take (Element : out Element_Type; From : in out Set) is abstract;
diff --git a/testsuite/tests/unparsing/subp_decl/abstract/test.yaml b/testsuite/tests/unparsing/subp_decl/abstract/test.yaml
@@ -0,0 +1,5 @@
+driver: unparser
+rule: subp_decl
+description: |
+  Test that no line break is added after the `f_overriding` fields when the
+  declaration fits in one line.
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		procedure Take(Element : out Element_Type;
		From : in out Set) is abstract;
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		procedure Take (Element : out Element_Type; From : in out Set) is abstract;