vbscript: Added lexer support for remaining equality expressions.

e5eaf4d2 · Jacek Caban · Alexandre Julliard · 84f549b6 · e5eaf4d2
Commit e5eaf4d2 authored Sep 12, 2011 by Jacek Caban Committed by Alexandre Julliard Sep 12, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 16 additions and 0 deletions

lex.c dlls/vbscript/lex.c +16 -0

No files found.
--- a/dlls/vbscript/lex.c
+++ b/dlls/vbscript/lex.c
@@ -299,6 +299,22 @@ static int parse_next_token(void *lval, parser_ctx_t *ctx)
        return '(';
    case '"':
        return parse_string_literal(ctx, lval);
+    case '<':
+        switch(*++ctx->ptr) {
+        case '>':
+            ctx->ptr++;
+            return tNEQ;
+        case '=':
+            ctx->ptr++;
+            return tLTEQ;
+        }
+        return '<';
+    case '>':
+        if(*++ctx->ptr == '=') {
+            ctx->ptr++;
+            return tGTEQ;
+        }
+        return '>';
    default:
        FIXME("Unhandled char %c in %s\n", *ctx->ptr, debugstr_w(ctx->ptr));
    }