Nikolay Sivov : vbscript: Accept "><" as inequality operator.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 9f77009aa54a998feb988c2427f5947360bfc940
URL:    https://gitlab.winehq.org/wine/wine/-/commit/9f77009aa54a998feb988c2427f5947...

Author: Nikolay Sivov 
Date:   Thu Nov 24 08:26:28 2022 +0300

vbscript: Accept "><" as inequality operator.

Signed-off-by: Nikolay Sivov

---

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

diff --git a/dlls/vbscript/lex.c b/dlls/vbscript/lex.c
index f425b816cb0..38ee4a5fd4b 100644
--- a/dlls/vbscript/lex.c
+++ b/dlls/vbscript/lex.c
@@ -500,9 +500,13 @@ static int parse_next_token(void *lval, unsigned *loc, parser_ctx_t *ctx)
         }
         return '<';
     case '>':
-        if(*++ctx->ptr == '=') {
+        switch(*++ctx->ptr) {
+        case '=':
             ctx->ptr++;
             return tGTEQ;
+        case '<':
+            ctx->ptr++;
+            return tNEQ;
         }
         return '>';
     default:
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index a2622f59bd9..0e8dae4049f 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -181,6 +181,10 @@ Call ok(1 <= 2, "! 1 <= 2")
 Call ok(2 <= 2, "! 2 <= 2")
 Call ok(1 =< 2, "! 1 =< 2")
 Call ok(2 =< 2, "! 2 =< 2")
+Call ok(not (2 >< 2), "2 >< 2")
+Call ok(2 >< 1, "! 2 >< 1")
+Call ok(not (2 <> 2), "2 <> 2")
+Call ok(2 <> 1, "! 2 <> 1")

Call ok(isNull(0 = null), "'(0 = null)' is not null")
 Call ok(isNull(null = 1), "'(null = 1)' is not null")