ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Added exp expression parser/compiler implementation.

This commit is contained in:
Jacek Caban 2011-09-13 11:41:15 +02:00 committed by Alexandre Julliard
parent 9db2d7c352
commit b5d8554f1e
5 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dlls/vbscript/compile.c
View File

@ -361,6 +361,8 @@ static HRESULT compile_expression(compile_ctx_t *ctx, expression_t *expr)
return push_instr(ctx, OP_empty) != -1 ? S_OK : E_OUTOFMEMORY;
case EXPR_EQUAL:
return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_equal);
case EXPR_EXP:
return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_exp);
case EXPR_IDIV:
return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_idiv);
case EXPR_MEMBER:

6
dlls/vbscript/interp.c
View File

@ -738,6 +738,12 @@ static HRESULT interp_mul(exec_ctx_t *ctx)
return stack_push(ctx, &v);
}
static HRESULT interp_exp(exec_ctx_t *ctx)
{
FIXME("\n");
return E_NOTIMPL;
}
static HRESULT interp_neg(exec_ctx_t *ctx)
{
variant_val_t val;

1
dlls/vbscript/parse.h
View File

@ -24,6 +24,7 @@ typedef enum {
EXPR_DOUBLE,
EXPR_EMPTY,
EXPR_EQUAL,
EXPR_EXP,
EXPR_IDIV,
EXPR_MEMBER,
EXPR_MOD,

3
dlls/vbscript/parser.y
View File

@ -210,7 +210,8 @@ MultiplicativeExpression
{ $$ = new_binary_expression(ctx, EXPR_DIV, $1, $3); CHECK_ERROR; }
ExpExpression
: UnaryExpression /* FIXME */ { $$ = $1; }
: UnaryExpression { $$ = $1; }
| ExpExpression '^' UnaryExpression { $$ = new_binary_expression(ctx, EXPR_EXP, $1, $3); CHECK_ERROR; }
UnaryExpression
: LiteralExpression { $$ = $1; }

1
dlls/vbscript/vbscript.h
View File

@ -107,6 +107,7 @@ typedef enum {
X(double, 1, ARG_DOUBLE, 0) \
X(empty, 1, 0, 0) \
X(equal, 1, 0, 0) \
X(exp, 1, 0, 0) \
X(icall, 1, ARG_BSTR, ARG_UINT) \
X(icallv, 1, ARG_BSTR, ARG_UINT) \
X(idiv, 1, 0, 0) \