parser: add prompt_for_statement

usagi-coffee · Apr 19, 2024 · 6f8c82b · 6f8c82b
1 parent cd3dd67
commit 6f8c82b
Show file tree

Hide file tree

Showing 4 changed files with 119,243 additions and 117,231 deletions.
diff --git a/grammar.js b/grammar.js
@@ -1148,6 +1148,16 @@ module.exports = grammar({
         )
       ),
 
+    prompt_for_statement: ($) =>
+      seq(
+        kw("PROMPT-FOR"),
+        choice($.identifier, $.qualified_name),
+        optional(kw("EDITING")),
+        ":",
+        optional($.body),
+        $._block_terminator
+      ),
+
     // Supertypes
     _expression: ($) =>
       choice(
@@ -1206,6 +1216,7 @@ module.exports = grammar({
         $.class_statement,
         $.interface_statement,
         $.on_statement,
+        $.prompt_for_statement,
         $.abl_statement,
         prec.left(PREC.EXTRA, $.label)
       ),

diff --git a/src/grammar.json b/src/grammar.json
@@ -11368,6 +11368,84 @@
         }
       ]
     },
+    "prompt_for_statement": {
+      "type": "SEQ",
+      "members": [
+        {
+          "type": "ALIAS",
+          "content": {
+            "type": "TOKEN",
+            "content": {
+              "type": "PREC",
+              "value": 1,
+              "content": {
+                "type": "PATTERN",
+                "value": "[pP][rR][oO][mM][pP][tT][--][fF][oO][rR]"
+              }
+            }
+          },
+          "named": false,
+          "value": "PROMPT-FOR"
+        },
+        {
+          "type": "CHOICE",
+          "members": [
+            {
+              "type": "SYMBOL",
+              "name": "identifier"
+            },
+            {
+              "type": "SYMBOL",
+              "name": "qualified_name"
+            }
+          ]
+        },
+        {
+          "type": "CHOICE",
+          "members": [
+            {
+              "type": "ALIAS",
+              "content": {
+                "type": "TOKEN",
+                "content": {
+                  "type": "PREC",
+                  "value": 1,
+                  "content": {
+                    "type": "PATTERN",
+                    "value": "[eE][dD][iI][tT][iI][nN][gG]"
+                  }
+                }
+              },
+              "named": false,
+              "value": "EDITING"
+            },
+            {
+              "type": "BLANK"
+            }
+          ]
+        },
+        {
+          "type": "STRING",
+          "value": ":"
+        },
+        {
+          "type": "CHOICE",
+          "members": [
+            {
+              "type": "SYMBOL",
+              "name": "body"
+            },
+            {
+              "type": "BLANK"
+            }
+          ]
+        },
+        {
+          "type": "SYMBOL",
+          "name": "_block_terminator"
+        }
+      ]
+    },
     "_expression": {
       "type": "CHOICE",
       "members": [
@@ -11580,6 +11658,10 @@
           "type": "SYMBOL",
           "name": "on_statement"
         },
+        {
+          "type": "SYMBOL",
+          "name": "prompt_for_statement"
+        },
         {
           "type": "SYMBOL",
           "name": "abl_statement"

diff --git a/src/node-types.json b/src/node-types.json
@@ -205,6 +205,10 @@
         "type": "procedure_statement",
         "named": true
       },
+      {
+        "type": "prompt_for_statement",
+        "named": true
+      },
       {
         "type": "query_definition",
         "named": true
@@ -2398,6 +2402,25 @@
       ]
     }
   },
+  {
+    "type": "prompt_for_statement",
+    "named": true,
+    "fields": {},
+    "children": {
+      "multiple": true,
+      "required": true,
+      "types": [
+        {
+          "type": "body",
+          "named": true
+        },
+        {
+          "type": "identifier",
+          "named": true
+        }
+      ]
+    }
+  },
   {
     "type": "property_definition",
     "named": true,
@@ -3455,6 +3478,10 @@
     "type": "ECHO",
     "named": false
   },
+  {
+    "type": "EDITING",
+    "named": false
+  },
   {
     "type": "ELSE",
     "named": false
@@ -3795,6 +3822,10 @@
     "type": "PROCEDURE",
     "named": false
   },
+  {
+    "type": "PROMPT-FOR",
+    "named": false
+  },
   {
     "type": "PROPATH",
     "named": false