[PATCH 3/4] vbscript: Implemented Sgn(try 2)

[Jacek Caban]

On 06/17/14 07:59, Shuai Meng wrote:
> diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c
> index c2b2edd..d21784d 100644
> --- a/dlls/vbscript/global.c
> +++ b/dlls/vbscript/global.c
> @@ -1320,8 +1320,24 @@ static HRESULT Global_Int(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIA
>  
>  static HRESULT Global_Sgn(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
>  {
> -    FIXME("\n");
> -    return E_NOTIMPL;
> +    VARIANT v;
> +    HRESULT hres;
> +
> +    TRACE("(%s)\n", debugstr_variant(arg));
> +
> +    assert(args_cnt == 1);
> +
> +    V_VT(&v) = VT_EMPTY;
> +    hres = VariantChangeType(&v, arg, VARIANT_LOCALBOOL, VT_R8);
> +        if (FAILED(hres))
> +            return S_OK;

Please use to_double() instead. to_double may need some fixes (it may
require similar changes as you did for to_string first).

Jacek