[PATCH v3 0/1] MR10494: vbscript: Return error 1005 for missing opening parenthesis in Sub/Function.

[Francis De Brabandere (＠francisdb)]

When a Sub or Function declaration has a closing parenthesis without a
matching opening one (e.g. "Sub x)"), Windows returns error 1005
("expected '('"). Add error productions in FunctionDecl that detect
this and set the correct VBSE_EXPECTED_LPAREN error code.

--
  v3: vbscript: Return error 1005 for missing opening parenthesis in Sub/Function.
 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10494

[PATCH v3 1/1] vbscript: Return error 1005 for missing opening parenthesis in Sub/Function.

[Francis De Brabandere]

From: Francis De Brabandere <[e-mail]>

When a Sub or Function declaration has a closing parenthesis without a
matching opening one (e.g. "Sub x)"), Windows returns error 1005
("expected '('"). Add error productions in FunctionDecl that detect
this and set the correct VBSE_EXPECTED_LPAREN error code.
---
 dlls/vbscript/parser.y    | 4 ++++
 dlls/vbscript/tests/run.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y
index c166ba68790..931d52cd461 100644
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -533,6 +533,10 @@ FunctionDecl
                                     { ctx->hres = MAKE_VBSERROR(VBSE_EXPECTED_FUNCTION); YYABORT; }
     | Storage_opt tFUNCTION Identifier ArgumentsDecl Nl_opt BodyStatements tEND error
                                     { ctx->hres = MAKE_VBSERROR(VBSE_EXPECTED_FUNCTION); YYABORT; }
+    | Storage_opt tSUB Identifier error
+                                    { ctx->hres = MAKE_VBSERROR(VBSE_EXPECTED_LPAREN); YYABORT; }
+    | Storage_opt tFUNCTION Identifier error
+                                    { ctx->hres = MAKE_VBSERROR(VBSE_EXPECTED_LPAREN); YYABORT; }
 
 Storage_opt
     : /* empty*/                    { $$ = 0; }
diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index df8602523e3..a702f720fd3 100644
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -2947,7 +2947,7 @@ static void test_parse_errors(void)
             /* Expected '(' - error 1005 */
             L"Sub x)\nEnd Sub\n",
             0, 5,
-            NULL, S_OK, -1005
+            NULL, S_OK, 1005
         },
         {
             /* Expected '=' - error 1011 */
-- 
GitLab

https://gitlab.winehq.org/wine/wine/-/merge_requests/10494

[PATCH v3 0/1] MR10494: vbscript: Return error 1005 for missing opening parenthesis in Sub/Function. - approved

[Jacek Caban (＠jacek)]

This merge request was approved by Jacek Caban.
-- 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10494