Jacek Caban : vbscript: Added Call statement implementation.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 23fc7678deea6a753ebed46acd3bd4e65910cca5
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=23fc7678deea6a753ebed46acd...

Author: Jacek Caban 
Date:   Thu Sep  8 14:56:05 2011 +0200

vbscript: Added Call statement implementation.

---

dlls/vbscript/parser.y    |    3 ++-
 dlls/vbscript/tests/run.c |    6 ++++++
 2 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y
index 447aa12..caf6f49 100644
--- 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; }
diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index 9b1abd4..6f1a967 100644
--- 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)