Add ComponentClause and RecordrepClause configs

AdaCore · Apr 17, 2024 · f4c738c · f4c738c
1 parent e4c63fe
commit f4c738c
Show file tree

Hide file tree

Showing 9 changed files with 2,130 additions and 0 deletions.
diff --git a/extensions/default_unparsing_config.json b/extensions/default_unparsing_config.json
@@ -824,6 +824,33 @@
         }
       }
     },
+    "ComponentClause": {
+      "node": {
+        "kind": "group",
+        "document": [
+          {
+            "kind": "recurse_field",
+            "field": "f_id"
+          },
+          {
+            "kind": "text",
+            "text": "at"
+          },
+          {
+            "kind": "recurse_field",
+            "field": "f_position"
+          },
+          {
+            "kind": "recurse_field",
+            "field": "f_range"
+          },
+          {
+            "kind": "text",
+            "text": ";"
+          }
+        ]
+      }
+    },
     "ComponentDecl": {
       "node": {
         "kind": "group",
@@ -4370,6 +4397,79 @@
         ]
       }
     },
+    "RecordRepClause": {
+      "node": {
+        "kind": "group",
+        "document": [
+          {
+            "kind": "group",
+            "document": [
+              {
+                "kind": "text",
+                "text": "for"
+              },
+              {
+                "kind": "recurse_field",
+                "field": "f_name"
+              },
+              "whitespace",
+              {
+                "kind": "text",
+                "text": "use"
+              }
+            ]
+          },
+          {
+            "kind": "align",
+            "width": 2,
+            "contents": [
+              "hardline",
+              {
+                "kind": "text",
+                "text": "record"
+              },
+              {
+                "kind": "recurse_field",
+                "field": "f_at_expr"
+              },
+              {
+                "kind": "recurse_field",
+                "field": "f_components"
+              },
+              "hardline",
+              {
+                "kind": "group",
+                "document": [
+                  {
+                    "kind": "text",
+                    "text": "end"
+                  },
+                  "whitespace",
+                  {
+                    "kind": "text",
+                    "text": "record"
+                  },
+                  {
+                    "kind": "text",
+                    "text": ";"
+                  }
+                ]
+              }
+            ]
+          }
+        ]
+      },
+      "fields": {
+        "f_components": {
+          "kind": "align",
+          "width": 2,
+          "contents": [
+            "hardline",
+            "recurse"
+          ]
+        }
+      }
+    },
     "ReturnStmt": {
       "node": {
         "kind": "align",