vbscript: Added Call statement implementation.

23fc7678 · Jacek Caban · Alexandre Julliard · b6e9a83d · 23fc7678 · 23fc7678
Commit 23fc7678 authored Sep 08, 2011 by Jacek Caban Committed by Alexandre Julliard Sep 08, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletion

parser.y dlls/vbscript/parser.y +2 -1

run.c dlls/vbscript/tests/run.c +6 -0

No files found.
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -74,7 +74,8 @@ StatementNl
    : Statement tNL                 { $$ = $1; }

 Statement
-    : MemberExpression Arguments_opt    { $1->args = $2; $$ = new_call_statement(ctx, $1); CHECK_ERROR; }
+    : MemberExpression Arguments_opt        { $1->args = $2; $$ = new_call_statement(ctx, $1); CHECK_ERROR; }
+    | tCALL MemberExpression Arguments_opt  { $2->args = $3; $$ = new_call_statement(ctx, $2); CHECK_ERROR; }

 MemberExpression
    : tIdentifier                   { $$ = new_member_expression(ctx, NULL, $1); CHECK_ERROR; }

--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -475,6 +475,12 @@ static void run_tests(void)
    parse_script_a("reportSuccess()");
    CHECK_CALLED(global_success_d);
    CHECK_CALLED(global_success_i);
+
+    SET_EXPECT(global_success_d);
+    SET_EXPECT(global_success_i);
+    parse_script_a("Call reportSuccess");
+    CHECK_CALLED(global_success_d);
+    CHECK_CALLED(global_success_i);
 }

 static BOOL check_vbscript(void)