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
64fd6fa7
Commit
64fd6fa7
authored
Oct 17, 2011
by
Jacek Caban
Committed by
Alexandre Julliard
Oct 17, 2011
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript: Added lexer support for '_'.
parent
16eac43c
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
19 additions
and
0 deletions
+19
-0
lex.c
dlls/vbscript/lex.c
+10
-0
lang.vbs
dlls/vbscript/tests/lang.vbs
+7
-0
run.c
dlls/vbscript/tests/run.c
+2
-0
No files found.
dlls/vbscript/lex.c
View file @
64fd6fa7
...
...
@@ -354,6 +354,7 @@ static int parse_next_token(void *lval, parser_ctx_t *ctx)
case
'^'
:
case
'\\'
:
case
'.'
:
case
'_'
:
return
*
ctx
->
ptr
++
;
case
'('
:
/* NOTE:
...
...
@@ -402,6 +403,15 @@ int parser_lex(void *lval, parser_ctx_t *ctx)
while
(
1
)
{
ret
=
parse_next_token
(
lval
,
ctx
);
if
(
ret
==
'_'
)
{
skip_spaces
(
ctx
);
if
(
*
ctx
->
ptr
!=
'\n'
)
{
FIXME
(
"'_' not followed by newline
\n
"
);
return
0
;
}
ctx
->
ptr
++
;
continue
;
}
if
(
ret
!=
tNL
||
ctx
->
last_token
!=
tNL
)
break
;
...
...
dlls/vbscript/tests/lang.vbs
View file @
64fd6fa7
...
...
@@ -177,6 +177,13 @@ Call ok(2^3^2 = 64, "2^3^2 = " & (2^3^2))
Call
ok
(
-
3
^
2
=
9
,
"-3^2 = "
&
(
-
3
^
2
))
Call
ok
(
2
*
3
^
2
=
18
,
"2*3^2 = "
&
(
2
*
3
^
2
))
x
=
_
3
x
_
=
3
x
=
3
if
true
then
y
=
true
:
x
=
y
ok
x
,
"x is false"
...
...
dlls/vbscript/tests/run.c
View file @
64fd6fa7
...
...
@@ -1226,6 +1226,8 @@ static void run_tests(void)
parse_script_a
(
"x = 1
\n
Call ok(x = 1,
\"
x =
\"
& x)"
);
parse_script_a
(
"x = _
\n
3"
);
test_global_vars_ref
(
TRUE
);
test_global_vars_ref
(
FALSE
);
...
...
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