Piotr Caban : jscript: Make String_slice generic.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 2f28956f065b7df1f3fbb4ea737f30f220b98d6a
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=2f28956f065b7df1f3fbb4ea73...

Author: Piotr Caban 
Date:   Sun Jul 12 19:51:36 2009 +0200

jscript: Make String_slice generic.

---

dlls/jscript/string.c |   39 +++++++++++++++++++++++++++++----------
 1 files changed, 29 insertions(+), 10 deletions(-)

diff --git a/dlls/jscript/string.c b/dlls/jscript/string.c
index 5644559..d0345aa 100644
--- a/dlls/jscript/string.c
+++ b/dlls/jscript/string.c
@@ -982,6 +982,7 @@ static HRESULT String_slice(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAM
         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 {
     const WCHAR *str;
+    BSTR val_str = NULL;
     DWORD length;
     INT start=0, end;
     VARIANT v;
@@ -989,20 +990,32 @@ static HRESULT String_slice(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAM

TRACE("\n");

-    if(is_class(dispex, JSCLASS_STRING)) {
-        StringInstance *string = (StringInstance*)dispex;
+    if(!is_class(dispex, JSCLASS_STRING)) {
+        VARIANT this;

-        str = string->str;
-        length = string->length;
-    }else {
-        FIXME("this is not a string class\n");
-        return E_NOTIMPL;
+        V_VT(&this) = VT_DISPATCH;
+        V_DISPATCH(&this) = (IDispatch*)_IDispatchEx_(dispex);
+
+        hres = to_string(dispex->ctx, &this, ei, &val_str);
+        if(FAILED(hres))
+            return hres;
+
+        str = val_str;
+        length = SysStringLen(val_str);
+    }
+    else {
+        StringInstance *this = (StringInstance*)dispex;
+
+        str = this->str;
+        length = this->length;
     }

if(arg_cnt(dp)) {
         hres = to_integer(dispex->ctx, dp->rgvarg + dp->cArgs-1, ei, &v);
-        if(FAILED(hres))
+        if(FAILED(hres)) {
+            SysFreeString(val_str);
             return hres;
+        }

if(V_VT(&v) == VT_I4) {
             start = V_I4(&v);
@@ -1022,8 +1035,10 @@ static HRESULT String_slice(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAM

if(arg_cnt(dp) >= 2) {
         hres = to_integer(dispex->ctx, dp->rgvarg + dp->cArgs-2, ei, &v);
-        if(FAILED(hres))
+        if(FAILED(hres)) {
+            SysFreeString(val_str);
             return hres;
+        }

if(V_VT(&v) == VT_I4) {
             end = V_I4(&v);
@@ -1046,12 +1061,16 @@ static HRESULT String_slice(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAM

if(retv) {
         BSTR retstr = SysAllocStringLen(str+start, end-start);
-        if(!str)
+        if(!retstr) {
+            SysFreeString(val_str);
             return E_OUTOFMEMORY;
+        }

V_VT(retv) = VT_BSTR;
         V_BSTR(retv) = retstr;
     }
+
+    SysFreeString(val_str);
     return S_OK;
 }