2 * Copyright 2011 Michal Zietek
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 static HRESULT WINAPI
Arguments2_QueryInterface(IArguments2
*iface
, REFIID riid
, void **ppv
)
26 WINE_TRACE("(%s %p)\n", wine_dbgstr_guid(riid
), ppv
);
28 if(IsEqualGUID(&IID_IUnknown
, riid
)
29 || IsEqualGUID(&IID_IDispatch
, riid
)
30 || IsEqualGUID(&IID_IArguments2
, riid
)) {
39 static ULONG WINAPI
Arguments2_AddRef(IArguments2
*iface
)
44 static ULONG WINAPI
Arguments2_Release(IArguments2
*iface
)
49 static HRESULT WINAPI
Arguments2_GetTypeInfoCount(IArguments2
*iface
, UINT
*pctinfo
)
51 WINE_TRACE("(%p)\n", pctinfo
);
57 static HRESULT WINAPI
Arguments2_GetTypeInfo(IArguments2
*iface
, UINT iTInfo
, LCID lcid
,
60 WINE_TRACE("(%x %x %p\n", iTInfo
, lcid
, ppTInfo
);
62 ITypeInfo_AddRef(arguments_ti
);
63 *ppTInfo
= arguments_ti
;
67 static HRESULT WINAPI
Arguments2_GetIDsOfNames(IArguments2
*iface
, REFIID riid
, LPOLESTR
*rgszNames
,
68 UINT cNames
, LCID lcid
, DISPID
*rgDispId
)
70 WINE_TRACE("(%s %p %d %x %p)\n", wine_dbgstr_guid(riid
), rgszNames
,
71 cNames
, lcid
, rgDispId
);
73 return ITypeInfo_GetIDsOfNames(arguments_ti
, rgszNames
, cNames
, rgDispId
);
76 static HRESULT WINAPI
Arguments2_Invoke(IArguments2
*iface
, DISPID dispIdMember
, REFIID riid
,
77 LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
, VARIANT
*pVarResult
,
78 EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
80 WINE_TRACE("(%d %p %p)\n", dispIdMember
, pDispParams
, pVarResult
);
82 return ITypeInfo_Invoke(arguments_ti
, iface
, dispIdMember
, wFlags
, pDispParams
,
83 pVarResult
, pExcepInfo
, puArgErr
);
86 static HRESULT WINAPI
Arguments2_Item(IArguments2
*iface
, LONG index
, BSTR
*out_Value
)
88 WINE_TRACE("(%d %p)\n", index
, out_Value
);
90 if(index
<0 || index
>= numOfArgs
)
92 if(!(*out_Value
= SysAllocString(argums
[index
])))
98 static HRESULT WINAPI
Arguments2_Count(IArguments2
*iface
, LONG
*out_Count
)
100 WINE_TRACE("(%p)\n", out_Count
);
102 *out_Count
= numOfArgs
;
106 static HRESULT WINAPI
Arguments2_get_length(IArguments2
*iface
, LONG
*out_Count
)
108 WINE_TRACE("(%p)\n", out_Count
);
110 *out_Count
= numOfArgs
;
114 static const IArguments2Vtbl Arguments2Vtbl
= {
115 Arguments2_QueryInterface
,
118 Arguments2_GetTypeInfoCount
,
119 Arguments2_GetTypeInfo
,
120 Arguments2_GetIDsOfNames
,
124 Arguments2_get_length
127 IArguments2 arguments_obj
= { &Arguments2Vtbl
};