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

vbscript: Added Space() implementation.

This commit is contained in:
Jacek Caban 2012-09-25 14:25:22 +02:00 committed by Alexandre Julliard
parent ff34939400
commit 7308be6c0a
2 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
dlls/vbscript/global.c
View File

@ -672,8 +672,34 @@ static HRESULT Global_Trim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARI
static HRESULT Global_Space(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
{
FIXME("\n");
return E_NOTIMPL;
BSTR str;
int n, i;
HRESULT hres;
TRACE("%s\n", debugstr_variant(arg));
hres = to_int(arg, &n);
if(FAILED(hres))
return hres;
if(n < 0) {
FIXME("n = %d\n", n);
return E_NOTIMPL;
}
if(!res)
return S_OK;
str = SysAllocStringLen(NULL, n);
if(!str)
return E_OUTOFMEMORY;
for(i=0; i<n; i++)
str[i] = ' ';
V_VT(res) = VT_BSTR;
V_BSTR(res) = str;
return S_OK;
}
static HRESULT Global_String(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)

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

@ -179,4 +179,8 @@ Call ok(Len(1) = 1, "Len(1) = " & Len(1))
Call ok(isNull(Len(null)), "Len(null) = " & Len(null))
Call ok(Len(empty) = 0, "Len(empty) = " & Len(empty))
Call ok(Space(1) = " ", "Space(1) = " & Space(1) & """")
Call ok(Space(0) = "", "Space(0) = " & Space(0) & """")
Call ok(Space(5) = " ", "Space(5) = " & Space(5) & """")
Call reportSuccess()