Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-winehq
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-winehq
Commits
eef966fa
Commit
eef966fa
authored
Sep 19, 2011
by
Jacek Caban
Committed by
Alexandre Julliard
Sep 19, 2011
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript: Added ME expression parser implementation.
parent
95d040e9
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
11 additions
and
0 deletions
+11
-0
compile.c
dlls/vbscript/compile.c
+2
-0
interp.c
dlls/vbscript/interp.c
+6
-0
parse.h
dlls/vbscript/parse.h
+1
-0
parser.y
dlls/vbscript/parser.y
+1
-0
vbscript.h
dlls/vbscript/vbscript.h
+1
-0
No files found.
dlls/vbscript/compile.c
View file @
eef966fa
...
@@ -405,6 +405,8 @@ static HRESULT compile_expression(compile_ctx_t *ctx, expression_t *expr)
...
@@ -405,6 +405,8 @@ static HRESULT compile_expression(compile_ctx_t *ctx, expression_t *expr)
return
compile_binary_expression
(
ctx
,
(
binary_expression_t
*
)
expr
,
OP_lt
);
return
compile_binary_expression
(
ctx
,
(
binary_expression_t
*
)
expr
,
OP_lt
);
case
EXPR_LTEQ
:
case
EXPR_LTEQ
:
return
compile_binary_expression
(
ctx
,
(
binary_expression_t
*
)
expr
,
OP_lteq
);
return
compile_binary_expression
(
ctx
,
(
binary_expression_t
*
)
expr
,
OP_lteq
);
case
EXPR_ME
:
return
push_instr
(
ctx
,
OP_me
)
!=
-
1
?
S_OK
:
E_OUTOFMEMORY
;
case
EXPR_MEMBER
:
case
EXPR_MEMBER
:
return
compile_member_expression
(
ctx
,
(
member_expression_t
*
)
expr
,
TRUE
);
return
compile_member_expression
(
ctx
,
(
member_expression_t
*
)
expr
,
TRUE
);
case
EXPR_MOD
:
case
EXPR_MOD
:
...
...
dlls/vbscript/interp.c
View file @
eef966fa
...
@@ -708,6 +708,12 @@ static HRESULT interp_stop(exec_ctx_t *ctx)
...
@@ -708,6 +708,12 @@ static HRESULT interp_stop(exec_ctx_t *ctx)
return
S_OK
;
return
S_OK
;
}
}
static
HRESULT
interp_me
(
exec_ctx_t
*
ctx
)
{
FIXME
(
"
\n
"
);
return
E_NOTIMPL
;
}
static
HRESULT
interp_bool
(
exec_ctx_t
*
ctx
)
static
HRESULT
interp_bool
(
exec_ctx_t
*
ctx
)
{
{
const
VARIANT_BOOL
arg
=
ctx
->
instr
->
arg1
.
lng
;
const
VARIANT_BOOL
arg
=
ctx
->
instr
->
arg1
.
lng
;
...
...
dlls/vbscript/parse.h
View file @
eef966fa
...
@@ -34,6 +34,7 @@ typedef enum {
...
@@ -34,6 +34,7 @@ typedef enum {
EXPR_IS
,
EXPR_IS
,
EXPR_LT
,
EXPR_LT
,
EXPR_LTEQ
,
EXPR_LTEQ
,
EXPR_ME
,
EXPR_MEMBER
,
EXPR_MEMBER
,
EXPR_MOD
,
EXPR_MOD
,
EXPR_MUL
,
EXPR_MUL
,
...
...
dlls/vbscript/parser.y
View file @
eef966fa
...
@@ -307,6 +307,7 @@ LiteralExpression
...
@@ -307,6 +307,7 @@ LiteralExpression
PrimaryExpression
PrimaryExpression
: '(' Expression ')' { $$ = $2; }
: '(' Expression ')' { $$ = $2; }
| tME { $$ = new_expression(ctx, EXPR_ME, 0); CHECK_ERROR; }
ClassDeclaration
ClassDeclaration
: tCLASS tIdentifier tNL ClassBody tEND tCLASS tNL { $4->name = $2; $$ = $4; }
: tCLASS tIdentifier tNL ClassBody tEND tCLASS tNL { $4->name = $2; $$ = $4; }
...
...
dlls/vbscript/vbscript.h
View file @
eef966fa
...
@@ -203,6 +203,7 @@ typedef enum {
...
@@ -203,6 +203,7 @@ typedef enum {
X(lteq, 1, 0, 0) \
X(lteq, 1, 0, 0) \
X(mcall, 1, ARG_BSTR, ARG_UINT) \
X(mcall, 1, ARG_BSTR, ARG_UINT) \
X(mcallv, 1, ARG_BSTR, ARG_UINT) \
X(mcallv, 1, ARG_BSTR, ARG_UINT) \
X(me, 1, 0, 0) \
X(mod, 1, 0, 0) \
X(mod, 1, 0, 0) \
X(mul, 1, 0, 0) \
X(mul, 1, 0, 0) \
X(neg, 1, 0, 0) \
X(neg, 1, 0, 0) \
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment