extensions/source/ole/jscriptclasses.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: jscriptclasses.cxx,v $
  10  * $Revision: 1.7 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_extensions.hxx"
  33 #include "jscriptclasses.hxx"
  34
  35 //========================================================================
  36 // JScriptValue
  37 //========================================================================
  38 JScriptValue::JScriptValue(): m_bOutParam(0), m_bInOutParam(0)
  39 {
  40 }
  41
  42 JScriptValue::~JScriptValue()
  43 {
  44 }
  45
  46
  47 // JScriptValue, IDispatch --------------------------------------------
  48 STDMETHODIMP JScriptValue::GetTypeInfoCount(UINT* /*pctinfo*/)
  49 {
  50     return E_NOTIMPL;
  51 }
  52
  53 // JScriptValue, IDispatch --------------------------------------------
  54 STDMETHODIMP JScriptValue::GetTypeInfo( UINT /*iTInfo*/,
  55                                            LCID /*lcid*/,
  56                                            ITypeInfo** /*ppTInfo*/)
  57 {
  58     return E_NOTIMPL;
  59 }
  60
  61 // JScriptValue, IDispatch --------------------------------------------
  62 STDMETHODIMP JScriptValue::GetIDsOfNames( REFIID /*riid*/,
  63                                              LPOLESTR *rgszNames,
  64                                              UINT /*cNames*/,
  65                                              LCID /*lcid*/,
  66                                              DISPID *rgDispId)
  67 {
  68     if( !rgDispId)
  69         return E_POINTER;
  70
  71
  72     HRESULT ret= S_OK;
  73     CComBSTR name(*rgszNames);
  74     name.ToLower();
  75
  76     if( name == CComBSTR( L"set") )
  77         *rgDispId= 1;
  78     else if( name == CComBSTR( L"get") )
  79         *rgDispId= 2;
  80     else if( name == CComBSTR( L"initoutparam") )
  81         *rgDispId= 3;
  82     else if( name == CComBSTR( L"initinoutparam") )
  83         *rgDispId= 4;
  84     else
  85         ret= DISP_E_UNKNOWNNAME;
  86
  87     return ret;
  88 }
  89
  90 // JScriptValue, IDispatch --------------------------------------------
  91 STDMETHODIMP JScriptValue::Invoke( DISPID dispIdMember,
  92                          REFIID /*riid*/,
  93                          LCID /*lcid*/,
  94                          WORD wFlags,
  95                          DISPPARAMS *pDispParams,
  96                          VARIANT *pVarResult,
  97                          EXCEPINFO* /*pExcepInfo*/,
  98                          UINT* /*puArgErr*/)
  99 {
 100     if( pDispParams->cNamedArgs)
 101         return DISP_E_NONAMEDARGS;
 102
 103
 104     HRESULT ret= S_OK;
 105     switch( dispIdMember)
 106     {
 107     case 0: // DISPID_VALUE
 108         if( wFlags & DISPATCH_PROPERTYGET && pVarResult)
 109         {
 110             if( FAILED( VariantCopy( pVarResult, &m_varValue)))
 111                 ret= E_FAIL;
 112         }
 113         else
 114             ret= E_POINTER;
 115         break;
 116     case 1:
 117         if( wFlags & DISPATCH_METHOD)
 118             ret= Set( pDispParams->rgvarg[1], pDispParams->rgvarg[0]);
 119         if( FAILED( ret))
 120             ret= DISP_E_EXCEPTION;
 121         break;
 122     case 2:
 123         if( wFlags & DISPATCH_METHOD)
 124             ret= Get( pVarResult);
 125         if( FAILED( ret))
 126             ret= DISP_E_EXCEPTION;
 127         break;
 128     case 3:
 129         if( wFlags & DISPATCH_METHOD)
 130             ret= InitOutParam();
 131         if( FAILED( ret))
 132             ret= DISP_E_EXCEPTION;
 133         break;
 134     case 4:
 135         if( wFlags & DISPATCH_METHOD)
 136             ret= InitInOutParam( pDispParams->rgvarg[1], pDispParams->rgvarg[0]);
 137         if( FAILED( ret))
 138             ret= DISP_E_EXCEPTION;
 139         break;
 140     default:
 141         ret= DISP_E_MEMBERNOTFOUND;
 142         break;
 143     }
 144
 145     return ret;
 146 }
 147
 148 // JScriptValue, IScriptOutParam-----------------------
 149 STDMETHODIMP JScriptValue::Set( VARIANT type, VARIANT value)
 150 {
 151     Lock();
 152     HRESULT hr= S_OK;
 153     m_varValue.Clear();
 154     hr= VariantCopyInd( &m_varValue, &value);
 155     VARIANT var;
 156     VariantInit( &var);
 157     if( SUCCEEDED( hr= VariantChangeType( &var, &type, 0, VT_BSTR)))
 158         m_bstrType= var.bstrVal;
 159     Unlock();
 160     return hr;
 161 }
 162 // JScriptValue, IScriptOutParam-----------------------
 163 STDMETHODIMP JScriptValue::Get( VARIANT *val)
 164 {
 165     Lock();
 166     if( !val)
 167         return E_POINTER;
 168     HRESULT hr= VariantCopy( val, &m_varValue);
 169     Unlock();
 170     return hr;
 171 }
 172
 173 STDMETHODIMP JScriptValue::InitOutParam()
 174 {
 175     Lock();
 176     m_varValue.Clear();
 177     m_bOutParam= true;
 178     m_bInOutParam= false;
 179     Unlock();
 180     return S_OK;
 181 }
 182
 183 STDMETHODIMP JScriptValue::InitInOutParam( VARIANT type, VARIANT value)
 184 {
 185     Lock();
 186     m_bInOutParam= true;
 187     m_bOutParam= false;
 188     Unlock();
 189     return Set( type, value);
 190 }
 191
 192 STDMETHODIMP JScriptValue::IsOutParam( VARIANT_BOOL * flag)
 193 {
 194     Lock();
 195     if( !flag)
 196         return E_POINTER;
 197     *flag= m_bOutParam ? VARIANT_TRUE : VARIANT_FALSE;
 198     Unlock();
 199     return S_OK;
 200 }
 201
 202 STDMETHODIMP JScriptValue::IsInOutParam( VARIANT_BOOL * flag)
 203 {
 204     Lock();
 205     if( !flag)
 206         return E_POINTER;
 207     *flag= m_bInOutParam ? VARIANT_TRUE : VARIANT_FALSE;
 208     Unlock();
 209     return S_OK;
 210 }
 211
 212 STDMETHODIMP JScriptValue::GetValue( BSTR* type, VARIANT *value)
 213 {
 214     Lock();
 215     if( !type || !value)
 216         return E_POINTER;
 217     HRESULT hr;
 218     if( SUCCEEDED(      hr= m_bstrType.CopyTo( type)))
 219         hr= VariantCopy( value, &m_varValue);
 220     Unlock();
 221     return hr;
 222 }
 223
 224 //##########################################################################################
 225 // JScriptOutValue
 226 //##########################################################################################
 227
 228 JScriptOutParam::JScriptOutParam()
 229 {
 230 }
 231
 232 JScriptOutParam::~JScriptOutParam()
 233 {
 234 }
 235
 236
 237 // JScriptOutParam, IDispatch --------------------------------------------
 238 STDMETHODIMP JScriptOutParam::GetTypeInfoCount(UINT* /*pctinfo*/)
 239 {
 240     return E_NOTIMPL;
 241 }
 242
 243 // JScriptOutParam, IDispatch --------------------------------------------
 244 STDMETHODIMP JScriptOutParam::GetTypeInfo( UINT /*iTInfo*/,
 245                                            LCID /*lcid*/,
 246                                            ITypeInfo** /*ppTInfo*/)
 247 {
 248     return E_NOTIMPL;
 249 }
 250
 251 // JScriptOutParam, IDispatch --------------------------------------------
 252 STDMETHODIMP JScriptOutParam::GetIDsOfNames( REFIID /*riid*/,
 253                                              LPOLESTR *rgszNames,
 254                                              UINT /*cNames*/,
 255                                              LCID /*lcid*/,
 256                                              DISPID *rgDispId)
 257 {
 258     if( !rgDispId)
 259         return E_POINTER;
 260
 261
 262     HRESULT ret= S_OK;
 263     CComBSTR name(*rgszNames);
 264     name.ToLower();
 265
 266     if( name == CComBSTR( L"0") )
 267         *rgDispId= 1;
 268     else
 269         ret= DISP_E_UNKNOWNNAME;
 270
 271     return ret;
 272 }
 273
 274 // JScriptOutParam, IDispatch --------------------------------------------
 275 STDMETHODIMP JScriptOutParam::Invoke( DISPID dispIdMember,
 276                          REFIID /*riid*/,
 277                          LCID /*lcid*/,
 278                          WORD wFlags,
 279                          DISPPARAMS *pDispParams,
 280                          VARIANT *pVarResult,
 281                          EXCEPINFO* /*pExcepInfo*/,
 282                          UINT* /*puArgErr*/)
 283 {
 284     HRESULT ret= S_OK;
 285     switch( dispIdMember)
 286     {
 287     case 0: // DISPID_VALUE
 288         if( wFlags & DISPATCH_PROPERTYGET && pVarResult)
 289         {
 290             if( FAILED( VariantCopy( pVarResult, &m_varValue)))
 291                 ret= E_FAIL;
 292         }
 293         else if( wFlags & DISPATCH_PROPERTYPUT || wFlags & DISPATCH_PROPERTYPUTREF)
 294         {
 295             m_varValue.Clear();
 296             if( FAILED( VariantCopyInd( &m_varValue, &pDispParams->rgvarg[0])))
 297                 ret= E_FAIL;
 298         }
 299         else
 300             ret= E_POINTER;
 301         break;
 302     case 1: //
 303         if( wFlags & DISPATCH_PROPERTYGET && pVarResult)
 304         {
 305             if( FAILED( VariantCopy( pVarResult, &m_varValue)))
 306                 ret= E_FAIL;
 307         }
 308         else if( wFlags & DISPATCH_PROPERTYPUT || wFlags & DISPATCH_PROPERTYPUTREF)
 309         {
 310             m_varValue.Clear();
 311             if( FAILED( VariantCopyInd( &m_varValue, &pDispParams->rgvarg[0])))
 312                 ret= E_FAIL;
 313         }
 314         else
 315             ret= E_POINTER;
 316         break;
 317
 318     default:
 319         ret= DISP_E_MEMBERNOTFOUND;
 320         break;
 321     }
 322
 323     return ret;
 324 }