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
Show whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

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

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

No files found.
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -75,6 +75,7 @@ StatementNl

 Statement
    : 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)