Jacek Caban : vbscript: Added support for rem statement-like comments.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 645d4596189768b076d3e9c40e9bcb56a3d0cf59
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=645d4596189768b076d3e9c40e...

Author: Jacek Caban 
Date:   Tue Sep 20 14:59:07 2011 +0200

vbscript: Added support for rem statement-like comments.

---

dlls/vbscript/lex.c          |    4 +++-
 dlls/vbscript/tests/lang.vbs |    2 ++
 2 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/dlls/vbscript/lex.c b/dlls/vbscript/lex.c
index 8bad383..e0a9418 100644
--- a/dlls/vbscript/lex.c
+++ b/dlls/vbscript/lex.c
@@ -319,7 +319,9 @@ static int parse_next_token(void *lval, parser_ctx_t *ctx)
         int ret = check_keywords(ctx);
         if(!ret)
             return parse_identifier(ctx, lval);
-        return ret;
+        if(ret != tREM)
+            return ret;
+        c = ''';
     }

switch(c) {
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 2966453..17c92e5 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -611,6 +611,8 @@ Call ok(funcCalled = "terminate", "funcCalled = " & funcCalled)
 x = "following ':' is correct syntax" :
 x = "following ':' is correct syntax" :: :
 :: x = "also correct syntax"
+rem another ugly way for comments
+x = "rem as simplestatement" : rem rem comment
 :

Set obj = new EmptyClass