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

vbscript: Implement case insensitive comparison. 

Signed-off-by: Dmitry Kislyuk <dimaki@rocketmail.com>
Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Dmitry Kislyuk 2020-07-29 14:36:35 -05:00 committed by Alexandre Julliard
parent 5bb4e4b36c
commit 00b64430e8
2 changed files with 63 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
dlls/vbscript/global.c
View File

@ -1624,10 +1624,10 @@ static HRESULT Global_InStr(BuiltinDisp *This, VARIANT *args, unsigned args_cnt,
{
VARIANT *startv, *str1v, *str2v;
BSTR str1, str2;
int start, ret;
int ret, start = 0, mode = 0;
HRESULT hres;
TRACE("\n");
TRACE("args_cnt=%u\n", args_cnt);
assert(2 <= args_cnt && args_cnt <= 4);
@ -1643,8 +1643,21 @@ static HRESULT Global_InStr(BuiltinDisp *This, VARIANT *args, unsigned args_cnt,
str2v = args+2;
break;
case 4:
FIXME("unsupported compare argument %s\n", debugstr_variant(args));
return E_NOTIMPL;
startv = args;
str1v = args+1;
str2v = args+2;
if(V_VT(args+3) == VT_NULL)
return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
hres = to_int(args+3, &mode);
if(FAILED(hres))
return hres;
if (mode != 0 && mode != 1)
return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
break;
DEFAULT_UNREACHABLE;
}
@ -1652,12 +1665,8 @@ static HRESULT Global_InStr(BuiltinDisp *This, VARIANT *args, unsigned args_cnt,
hres = to_int(startv, &start);
if(FAILED(hres))
return hres;
if(--start < 0) {
FIXME("start %d\n", start);
return E_FAIL;
}
}else {
start = 0;
if(--start < 0)
return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
}
if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
@ -1675,16 +1684,13 @@ static HRESULT Global_InStr(BuiltinDisp *This, VARIANT *args, unsigned args_cnt,
}
str2 = V_BSTR(str2v);
if(start < SysStringLen(str1)) {
WCHAR *ptr;
if(start >= SysStringLen(str1))
return return_int(res, 0);
ptr = wcsstr(str1+start, str2);
ret = ptr ? ptr-str1+1 : 0;
}else {
ret = 0;
}
ret = FindStringOrdinal(FIND_FROMSTART, str1 + start, SysStringLen(str1)-start,
str2, SysStringLen(str2), mode);
return return_int(res, ret);
return return_int(res, ++ret ? ret+start : 0);
}
static HRESULT Global_InStrB(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)

39
dlls/vbscript/tests/api.vbs
View File

@ -390,6 +390,45 @@ Call ok(x = 2, "InStr returned " & x)
x = InStr(2.6, "abcd", "bc")
Call ok(x = 0, "InStr returned " & x)
x = InStr(3, "abcdefgh", "fg", 0)
Call ok(x = 6, "InStr returned " & x)
x = InStr(3, "abcdefgh", "FG", 0)
Call ok(x = 0, "InStr returned " & x)
x = InStr(3, "abcdefgh", "FG", 1)
Call ok(x = 6, "InStr returned " & x)
x = InStr(3, "abcdefgh", "FG", 1.4)
Call ok(x = 6, "InStr returned " & x)
x = InStr(3, "abcdefgh", "FG", -0.3)
Call ok(x = 0, "InStr returned " & x)
x = InStr(1, "abcABC", "aB", 0)
Call ok(x = 0, "InStr returned " & x)
x = InStr(1, "abcABC", "aB", 1)
Call ok(x = 1, "InStr returned " & x)
x = InStr(2, "abcABC", "aB", 1)
Call ok(x = 4, "InStr returned " & x)
x = InStr(5, "abcABC", "aB", 1)
Call ok(x = 0, "InStr returned " & x)
x = InStr(2, "abcABC", "ab", 1)
Call ok(x = 4, "InStr returned " & x)
x = InStr(6, "abcABC", "c", 1)
Call ok(x = 6, "InStr returned " & x)
x = InStr(2, "abc" & Chr(0) & "A" & Chr(0) & "BC", "C", 0)
Call ok(x = 8, "InStr returned " & x)
x = InStr(1, "abc" & Chr(0) & "ABC", Chr(0) & "a", 1)
Call ok(x = 4, "InStr returned " & x)
x = InStrRev("bcabcd", "bc")
Call ok(x = 4, "InStrRev returned " & x)