Add operator_name node to generic operator

Author: ZedThree

grammar.js

@@ -404,7 +404,7 @@ module.exports = grammar({
     },
 
     assignment: $ => seq(caseInsensitive('assignment'), '(', '=', ')'),
-    operator: $ => seq(caseInsensitive('operator'), '(', /[^()]+/, ')'),
+    operator: $ => seq(caseInsensitive('operator'), '(', alias(/[^()]+/, $.operator_name), ')'),
     defined_io_procedure: $ => seq(
       choice(caseInsensitive('read'), caseInsensitive('write')),
       '(',

src/grammar.json

@@ -8073,8 +8073,13 @@
           "value": "("
         },
         {
-          "type": "PATTERN",
-          "value": "[^()]+"
+          "type": "ALIAS",
+          "content": {
+            "type": "PATTERN",
+            "value": "[^()]+"
+          },
+          "named": true,
+          "value": "operator_name"
         },
         {
           "type": "STRING",

src/node-types.json

@@ -8570,7 +8570,17 @@
   {
     "type": "operator",
     "named": true,
-    "fields": {}
+    "fields": {},
+    "children": {
+      "multiple": false,
+      "required": true,
+      "types": [
+        {
+          "type": "operator_name",
+          "named": true
+        }
+      ]
+    }
   },
   {
     "type": "output_item_list",
@@ -14735,6 +14745,10 @@
     "type": "operator",
     "named": false
   },
+  {
+    "type": "operator_name",
+    "named": true
+  },
   {
     "type": "optional",
     "named": false

src/parser.c

@@ -756,7 +756,7 @@ static const char * const ts_symbol_names[] = {
   [aux_sym_assignment_token1] = "assignment",
   [anon_sym_EQ] = "=",
   [aux_sym_operator_token1] = "operator",
-  [aux_sym_operator_token2] = "operator_token2",
+  [aux_sym_operator_token2] = "operator_name",
   [aux_sym_defined_io_procedure_token1] = "read",
   [aux_sym_defined_io_procedure_token2] = "write",
   [aux_sym_defined_io_procedure_token3] = "formatted",
@@ -2275,8 +2275,8 @@ static const TSSymbolMetadata ts_symbol_metadata[] = {
     .named = false,
   },
   [aux_sym_operator_token2] = {
-    .visible = false,
-    .named = false,
+    .visible = true,
+    .named = true,
   },
   [aux_sym_defined_io_procedure_token1] = {
     .visible = true,

test/corpus/constructs.txt

@@ -356,18 +356,21 @@ end interface operator (.not.)
 (translation_unit
   (interface
     (interface_statement
-      (operator))
+      (operator
+        (operator_name)))
     (procedure_statement
       (procedure_kind)
       (method_name))
     (procedure_statement
       (procedure_kind)
       (method_name))
     (end_interface_statement
-      (operator)))
+      (operator
+        (operator_name))))
   (interface
     (interface_statement
-      (operator))
+      (operator
+        (operator_name)))
     (procedure_statement
       (procedure_kind)
       (method_name))
@@ -385,7 +388,8 @@ end interface operator (.not.)
         (identifier))
       (end_function_statement))
     (end_interface_statement
-      (operator))))
+      (operator
+        (operator_name)))))
 
 ================================================================================
 Interface (assignment)
@@ -418,7 +422,8 @@ interface operator(+) ; module procedure test_plus ; end interface
 (translation_unit
   (interface
     (interface_statement
-      (operator))
+      (operator
+        (operator_name)))
     (procedure_statement
       (procedure_kind)
       (method_name))
@@ -443,12 +448,14 @@ end module
     (use_statement
       (module_name)
       (included_items
-        (operator)
+        (operator
+          (operator_name))
         (assignment)))
     (public_statement
       (assignment))
     (private_statement
-      (operator))
+      (operator
+        (operator_name)))
     (end_module_statement)))
 
 ================================================================================
@@ -913,7 +920,8 @@ end program
           (procedure_attribute)
           (binding
             (binding_name
-              (operator))
+              (operator
+                (operator_name)))
             (method_name)))
         (procedure_statement
           (procedure_kind)

test/corpus/statements.txt

@@ -224,8 +224,10 @@ END MODULE
     (private_statement
       (identifier)
       (identifier)
-      (operator)
-      (operator))
+      (operator
+        (operator_name))
+      (operator
+        (operator_name)))
     (end_module_statement)))
 
 ================================================================================
@@ -247,8 +249,10 @@ END MODULE
     (public_statement
       (identifier)
       (identifier)
-      (operator)
-      (operator))
+      (operator
+        (operator_name))
+      (operator
+        (operator_name)))
     (end_module_statement)))
 
 ================================================================================
@@ -2261,7 +2265,8 @@ end program
       (name))
     (interface
       (interface_statement
-        (operator))
+        (operator
+          (operator_name)))
       (function
         (function_statement
           (intrinsic_type)
@@ -2277,7 +2282,8 @@ end program
       (end_interface_statement))
     (interface
       (interface_statement
-        (operator))
+        (operator
+          (operator_name)))
       (function
         (function_statement
           (intrinsic_type)