vbscript: Allow 'with' as an identifier.

Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Jacek Caban 2019-11-01 17:50:45 +01:00 committed by Alexandre Julliard
parent aad0340c8f
commit 37e2729607
3 changed files with 4 additions and 1 deletions

View File

@ -536,6 +536,7 @@ DotIdentifier
| tON { $$ = $1; }
| tRESUME { $$ = $1; }
| tGOTO { $$ = $1; }
| tWITH { $$ = $1; }
/* Most statements accept both new line and ':' as separators */
StSep

View File

@ -1522,6 +1522,7 @@ sub test_dotIdentifiers
Call ok(testObj.on = 10, "testObj.on = " & testObj.on & " expected 10")
Call ok(testObj.resume = 10, "testObj.resume = " & testObj.resume & " expected 10")
Call ok(testObj.goto = 10, "testObj.goto = " & testObj.goto & " expected 10")
Call ok(testObj.with = 10, "testObj.with = " & testObj.with & " expected 10")
end sub
call test_dotIdentifiers

View File

@ -855,7 +855,8 @@ static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD
{ L"next", DISPID_TESTOBJ_KEYWORD },
{ L"on", DISPID_TESTOBJ_KEYWORD },
{ L"resume", DISPID_TESTOBJ_KEYWORD },
{ L"goto", DISPID_TESTOBJ_KEYWORD }
{ L"goto", DISPID_TESTOBJ_KEYWORD },
{ L"with", DISPID_TESTOBJ_KEYWORD }
};
test_grfdex(grfdex, fdexNameCaseInsensitive);