feat (parser): support inline method invocation syntax

Signed-off-by: Saurabh Kumar <developer.saurabh@outlook.com>

Author: kmr-srbh

cobc/ChangeLog

@@ -2,9 +2,9 @@
 2026-06-30	Saurabh Kumar <developer.saurabh@outlook.com>
 
 	* parser.y, reserved.c, scanner.l: add support for parsing INTERFACE-ID, 
-	  METHOD-ID, FACTORY, OBJECT paragraphs and INVOKE statement. Support
-	  CLASS and INTERFACE specifiers in REPOSITORY paragraph. Also 
-	  support keywords SELF and ACTIVE-CLASS.
+	  METHOD-ID, FACTORY, OBJECT paragraphs, INVOKE statement and inline method
+	  invocation expression. Support CLASS and INTERFACE specifiers in REPOSITORY
+	  paragraph. Also support keywords SELF and ACTIVE-CLASS.
 	* tree.h, tree.c, typeck.c: add syntax validation logic to check OO inheritance
 	  list for duplicates, consistency with names specified in the REPOSITORY
 	  paragraph

cobc/parser.y

@@ -2709,7 +2709,7 @@ set_oo_class_attr(enum cb_oo_class_attribute attr, const char* attr_name)
 %token CLASS
 %token CLASS_ID		"CLASS-ID"
 %token CLASSIFICATION
-%token CLASS_NAME		"class-name"
+%token CLASS_NAME
 %token CLEAR_SELECTION		"CLEAR-SELECTION"
 %token CLINE
 %token CLINES			/* remark: not used here */
@@ -3012,6 +3012,7 @@ set_oo_class_attr(enum cb_oo_class_attribute attr, const char* attr_name)
 %token INITIALIZE
 %token INITIALIZED
 %token INITIATE
+%token INLINE_METHOD_INVOCATION_OP
 %token INPUT
 %token INPUT_OUTPUT		"INPUT-OUTPUT"
 %token INQUIRE
@@ -3192,6 +3193,7 @@ set_oo_class_attr(enum cb_oo_class_attribute attr, const char* attr_name)
 %token ONLY
 %token ON_ESCAPE		"ON ESCAPE"
 %token ON_EXCEPTION		"ON EXCEPTION"
+%token OO_CLASS_NAME	"class-name"
 %token OPEN
 %token OPTIONAL
 %token OPTIONS
@@ -4172,7 +4174,7 @@ interface_id_header:
 ;
 
 class_id_name:
-  CLASS_NAME	{ $$ = $1; }
+  OO_CLASS_NAME	{ $$ = $1; }
 | LITERAL
   {
 	cb_trim_program_id ($1);
@@ -8847,7 +8849,7 @@ _object_reference_type:
   /* empty */
 | WORD
 | _factory_of ACTIVE_CLASS
-| _factory_of CLASS_NAME _only
+| _factory_of OO_CLASS_NAME _only
 ;
 
 _factory_of:
@@ -12217,7 +12219,6 @@ statement:
 | if_statement
 | initialize_statement
 | initiate_statement
-// | inline_method_invocation_statement
 | inquire_statement
 | inspect_statement
 | invoke_statement
@@ -15509,11 +15510,9 @@ id_or_class_name:
 | class_id_name
 ;
 
-// inline_method_invocation_statement:
-//   id_or_class_name "::" literal
-// | id_or_class_name "::" literal
-//   TOK_OPEN_PAREN call_param_list TOK_CLOSE_PAREN
-// ;
+inline_method_invocation:
+  id_or_class_name INLINE_METHOD_INVOCATION_OP literal func_args
+;
 
 /* INQUIRE statement */
 
@@ -20637,6 +20636,7 @@ function:
   {
 	$$ = cb_build_intrinsic ($1, $2, $3, 1);
   }
+| inline_method_invocation
 ;
 
 func_no_parm:

cobc/scanner.l

@@ -1087,7 +1087,7 @@ H#[0-9A-Za-z]+ {
 	} else if ((second_last_token == CLASS_ID && last_token == TOK_DOT) 
 		    || last_token == END_CLASS) {
 		yylval = cb_build_reference (yytext);
-		RETURN_TOK (CLASS_NAME);
+		RETURN_TOK (OO_CLASS_NAME);
 	} else if ((second_last_token == METHOD_ID && last_token == TOK_DOT)
 		    || last_token == END_METHOD) {
 		if (strcasecmp (yytext, "GET") == 0) {
@@ -1283,6 +1283,11 @@ H#[0-9A-Za-z]+ {
 	RETURN_TOK (TOK_COLON);
 }
 
+"::" {
+	yylval = NULL;
+	RETURN_TOK (INLINE_METHOD_INVOCATION_OP);
+}
+
 "=" {
 	yylval = NULL;
 	RETURN_TOK (TOK_EQUAL);

tests/testsuite.src/syn_oo.at

@@ -51,7 +51,7 @@ AT_DATA([prog1.cob], [
 
 AT_CHECK([$COMPILE_ONLY prog1.cob], [1], [],
 [prog1.cob:3: error: object-oriented COBOL is not supported 
-prog1.cob:4: error: syntax error, unexpected ., expecting class-name or Literal
+prog1.cob:4: error: syntax error, unexpected ., expecting Literal or class-name
 ])
 
 AT_DATA([prog2.cob], [
@@ -636,4 +636,50 @@ prog.cob:99: error: 'account-balance' is not defined
 prog.cob:100: error: 'account-number' is not defined
 prog.cob:101: error: 'the-date' is not defined
 ])
-AT_CLEANUP
+AT_CLEANUP
+
+
+AT_SETUP([Inline Method Invocation Expression])
+AT_KEYWORDS([OOP])
+
+AT_DATA([prog.cob], [
+        IDENTIFICATION DIVISION.
+        CLASS-ID. MyBaseClass.
+        FACTORY.
+            PROCEDURE DIVISION.
+            METHOD-ID. MyMethod IS FINAL.
+                DATA DIVISION.
+                LINKAGE SECTION.
+                    01 VAR-IN  PIC 9(2).
+                    01 VAR-OUT  PIC 9(2).
+                PROCEDURE DIVISION USING VAR-IN 
+                        RETURNING VAR-OUT.
+                    MOVE VAR-IN TO VAR-OUT.
+                    DISPLAY "Hello, world!".
+            END METHOD MyMethod.
+        END FACTORY.
+        END CLASS MyBaseClass.
+
+        PROGRAM-ID. prog.
+        ENVIRONMENT DIVISION.
+        CONFIGURATION SECTION.
+        REPOSITORY.
+            CLASS MyBaseClass AS "MyClass".
+        DATA DIVISION.
+        WORKING-STORAGE SECTION.
+            01 an-object USAGE OBJECT REFERENCE MyBaseClass.
+            01 a-var PIC 9(2).
+
+        PROCEDURE DIVISION.
+            DISPLAY an-object :: "MyMethod" (10).
+            DISPLAY an-object :: "MyMethod" (10 + 2).
+            MOVE 98 TO a-var.
+            DISPLAY an-object :: "MyMethod" (a-var).
+        END PROGRAM prog.
+])
+
+AT_CHECK([$COMPILE_ONLY prog.cob], [1], [],
+[prog.cob:3: error: object-oriented COBOL is not supported
+prog.cob:26: warning: USAGE OBJECT REFERENCE is not implemented
+])
+AT_CLEANUP