oleaut32: Fix parsing of hex numbers with 'e' in the string by moving
[wine/wine64.git] / dlls / quartz / enummoniker.c
blob3afb51a7146cddc1d18b2a83b8d5214c70319252
1 /*
2 * IEnumMoniker implementation
4 * Copyright 2003 Robert Shearman
6 * This file contains the (internal) driver registration functions,
7 * driver enumeration APIs and DirectDraw creation functions.
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #define COBJMACROS
25 #define COM_NO_WINDOWS_H
27 #include "quartz_private.h"
29 #include "wine/debug.h"
31 WINE_DEFAULT_DEBUG_CHANNEL(quartz);
33 typedef struct EnumMonikerImpl
35 const IEnumMonikerVtbl *lpVtbl;
36 LONG ref;
37 IMoniker ** ppMoniker;
38 ULONG nMonikerCount;
39 ULONG index;
40 } EnumMonikerImpl;
42 static const IEnumMonikerVtbl EnumMonikerImpl_Vtbl;
44 static ULONG WINAPI EnumMonikerImpl_AddRef(LPENUMMONIKER iface);
46 HRESULT EnumMonikerImpl_Create(IMoniker ** ppMoniker, ULONG nMonikerCount, IEnumMoniker ** ppEnum)
48 /* NOTE: assumes that array of IMonikers has already been AddRef'd
49 * I.e. this function does not AddRef the array of incoming
50 * IMonikers */
51 EnumMonikerImpl * pemi = CoTaskMemAlloc(sizeof(EnumMonikerImpl));
53 TRACE("(%p, %ld, %p)\n", ppMoniker, nMonikerCount, ppEnum);
55 *ppEnum = NULL;
57 if (!pemi)
58 return E_OUTOFMEMORY;
60 pemi->lpVtbl = &EnumMonikerImpl_Vtbl;
61 pemi->ref = 1;
62 pemi->ppMoniker = CoTaskMemAlloc(nMonikerCount * sizeof(IMoniker*));
63 memcpy(pemi->ppMoniker, ppMoniker, nMonikerCount*sizeof(IMoniker*));
64 pemi->nMonikerCount = nMonikerCount;
65 pemi->index = 0;
67 *ppEnum = (IEnumMoniker *)pemi;
69 return S_OK;
72 /**********************************************************************
73 * IEnumMoniker_QueryInterface (also IUnknown)
75 static HRESULT WINAPI EnumMonikerImpl_QueryInterface(
76 LPENUMMONIKER iface,
77 REFIID riid,
78 LPVOID *ppvObj)
80 EnumMonikerImpl *This = (EnumMonikerImpl *)iface;
81 TRACE("\n\tIID:\t%s\n",debugstr_guid(riid));
83 if (This == NULL || ppvObj == NULL) return E_POINTER;
85 if (IsEqualGUID(riid, &IID_IUnknown) ||
86 IsEqualGUID(riid, &IID_IEnumMoniker))
88 *ppvObj = (LPVOID)iface;
89 EnumMonikerImpl_AddRef(iface);
90 return S_OK;
93 FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
94 return E_NOINTERFACE;
97 /**********************************************************************
98 * IEnumMoniker_AddRef (also IUnknown)
100 static ULONG WINAPI EnumMonikerImpl_AddRef(LPENUMMONIKER iface)
102 EnumMonikerImpl *This = (EnumMonikerImpl *)iface;
103 ULONG ref;
105 if (This == NULL) return E_POINTER;
107 ref = InterlockedIncrement(&This->ref);
109 TRACE("(%p)->() AddRef from %ld\n", iface, ref - 1);
111 return ref;
114 /**********************************************************************
115 * IEnumMoniker_Release (also IUnknown)
117 static ULONG WINAPI EnumMonikerImpl_Release(LPENUMMONIKER iface)
119 EnumMonikerImpl *This = (EnumMonikerImpl *)iface;
120 ULONG ref = InterlockedDecrement(&This->ref);
122 TRACE("(%p)->() Release from %ld\n", iface, ref + 1);
124 if (!ref)
126 CoTaskMemFree(This->ppMoniker);
127 This->ppMoniker = NULL;
128 CoTaskMemFree(This);
129 return 0;
131 return ref;
134 static HRESULT WINAPI EnumMonikerImpl_Next(LPENUMMONIKER iface, ULONG celt, IMoniker ** rgelt, ULONG * pceltFetched)
136 ULONG fetched;
137 EnumMonikerImpl *This = (EnumMonikerImpl *)iface;
139 TRACE("(%p)->(%ld, %p, %p)\n", iface, celt, rgelt, pceltFetched);
141 for (fetched = 0; (This->index + fetched < This->nMonikerCount) && (fetched < celt); fetched++)
143 rgelt[fetched] = This->ppMoniker[This->index + fetched];
144 IMoniker_AddRef(rgelt[fetched]);
147 This->index += fetched;
149 TRACE("-- fetched %ld\n", fetched);
151 if (pceltFetched)
152 *pceltFetched = fetched;
154 if (fetched != celt)
155 return S_FALSE;
156 else
157 return S_OK;
160 static HRESULT WINAPI EnumMonikerImpl_Skip(LPENUMMONIKER iface, ULONG celt)
162 EnumMonikerImpl *This = (EnumMonikerImpl *)iface;
164 TRACE("(%p)->(%ld)\n", iface, celt);
166 This->index += celt;
168 return S_OK;
171 static HRESULT WINAPI EnumMonikerImpl_Reset(LPENUMMONIKER iface)
173 EnumMonikerImpl *This = (EnumMonikerImpl *)iface;
175 TRACE("(%p)->()\n", iface);
177 This->index = 0;
179 return S_OK;
182 static HRESULT WINAPI EnumMonikerImpl_Clone(LPENUMMONIKER iface, IEnumMoniker ** ppenum)
184 FIXME("(%p)->(%p): stub\n", iface, ppenum);
186 return E_NOTIMPL;
189 /**********************************************************************
190 * IEnumMoniker_Vtbl
192 static const IEnumMonikerVtbl EnumMonikerImpl_Vtbl =
194 EnumMonikerImpl_QueryInterface,
195 EnumMonikerImpl_AddRef,
196 EnumMonikerImpl_Release,
197 EnumMonikerImpl_Next,
198 EnumMonikerImpl_Skip,
199 EnumMonikerImpl_Reset,
200 EnumMonikerImpl_Clone