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:
parent
aad0340c8f
commit
37e2729607
|
@ -536,6 +536,7 @@ DotIdentifier
|
||||||
| tON { $$ = $1; }
|
| tON { $$ = $1; }
|
||||||
| tRESUME { $$ = $1; }
|
| tRESUME { $$ = $1; }
|
||||||
| tGOTO { $$ = $1; }
|
| tGOTO { $$ = $1; }
|
||||||
|
| tWITH { $$ = $1; }
|
||||||
|
|
||||||
/* Most statements accept both new line and ':' as separators */
|
/* Most statements accept both new line and ':' as separators */
|
||||||
StSep
|
StSep
|
||||||
|
|
|
@ -1522,6 +1522,7 @@ sub test_dotIdentifiers
|
||||||
Call ok(testObj.on = 10, "testObj.on = " & testObj.on & " expected 10")
|
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.resume = 10, "testObj.resume = " & testObj.resume & " expected 10")
|
||||||
Call ok(testObj.goto = 10, "testObj.goto = " & testObj.goto & " 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
|
end sub
|
||||||
call test_dotIdentifiers
|
call test_dotIdentifiers
|
||||||
|
|
||||||
|
|
|
@ -855,7 +855,8 @@ static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD
|
||||||
{ L"next", DISPID_TESTOBJ_KEYWORD },
|
{ L"next", DISPID_TESTOBJ_KEYWORD },
|
||||||
{ L"on", DISPID_TESTOBJ_KEYWORD },
|
{ L"on", DISPID_TESTOBJ_KEYWORD },
|
||||||
{ L"resume", 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);
|
test_grfdex(grfdex, fdexNameCaseInsensitive);
|
||||||
|
|
Loading…
Reference in New Issue