?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Make rsabase.dll self-register.
[wine.git] / dlls / dmstyle / style.c
blob2bae932ec8567b22800867af6756aae7f43328aa
1 /* IDirectMusicStyle8 Implementation
2 *
3 * Copyright (C) 2003-2004 Rok Mandeljc
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU Library General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18 */
19
20 #include "dmstyle_private.h"
21
22 WINE_DEFAULT_DEBUG_CHANNEL(dmstyle);
23 WINE_DECLARE_DEBUG_CHANNEL(dmfile);
24
25 /*****************************************************************************
26 * IDirectMusicStyleImpl implementation
27 */
28 /* IDirectMusicStyleImpl IUnknown part: */
29 HRESULT WINAPI IDirectMusicStyle8Impl_IUnknown_QueryInterface (LPUNKNOWN iface, REFIID riid, LPVOID *ppobj) {
30 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, UnknownVtbl, iface);
31 TRACE("(%p, %s, %p)\n", This, debugstr_dmguid(riid), ppobj);
32
33 if (IsEqualIID (riid, &IID_IUnknown)) {
34 *ppobj = (LPVOID)&This->UnknownVtbl;
35 IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN)&This->UnknownVtbl);
36 return S_OK;
37 } else if (IsEqualIID (riid, &IID_IDirectMusicStyle)) {
38 *ppobj = (LPVOID)&This->StyleVtbl;
39 IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef ((LPDIRECTMUSICSTYLE8)&This->StyleVtbl);
40 return S_OK;
41 } else if (IsEqualIID (riid, &IID_IDirectMusicObject)) {
42 *ppobj = (LPVOID)&This->ObjectVtbl;
43 IDirectMusicStyle8Impl_IDirectMusicObject_AddRef ((LPDIRECTMUSICOBJECT)&This->ObjectVtbl);
44 return S_OK;
45 } else if (IsEqualIID (riid, &IID_IPersistStream)) {
46 *ppobj = (LPVOID)&This->PersistStreamVtbl;
47 IDirectMusicStyle8Impl_IPersistStream_AddRef ((LPPERSISTSTREAM)&This->PersistStreamVtbl);
48 return S_OK;
49 }
50
51 WARN("(%p, %s, %p): not found\n", This, debugstr_dmguid(riid), ppobj);
52 return E_NOINTERFACE;
53 }
54
55 ULONG WINAPI IDirectMusicStyle8Impl_IUnknown_AddRef (LPUNKNOWN iface) {
56 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, UnknownVtbl, iface);
57 TRACE("(%p): AddRef from %ld\n", This, This->ref);
58 return ++(This->ref);
59 }
60
61 ULONG WINAPI IDirectMusicStyle8Impl_IUnknown_Release (LPUNKNOWN iface) {
62 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, UnknownVtbl, iface);
63 ULONG ref = --This->ref;
64 TRACE("(%p): ReleaseRef to %ld\n", This, This->ref);
65 if (ref == 0) {
66 HeapFree(GetProcessHeap(), 0, This);
67 }
68 return ref;
69 }
70
71 ICOM_VTABLE(IUnknown) DirectMusicStyle8_Unknown_Vtbl = {
72 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
73 IDirectMusicStyle8Impl_IUnknown_QueryInterface,
74 IDirectMusicStyle8Impl_IUnknown_AddRef,
75 IDirectMusicStyle8Impl_IUnknown_Release
76 };
77
78 /* IDirectMusicStyle8Impl IDirectMusicStyle8 part: */
79 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_QueryInterface (LPDIRECTMUSICSTYLE8 iface, REFIID riid, LPVOID *ppobj) {
80 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
81 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN)&This->UnknownVtbl, riid, ppobj);
82 }
83
84 ULONG WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef (LPDIRECTMUSICSTYLE8 iface) {
85 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
86 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN)&This->UnknownVtbl);
87 }
88
89 ULONG WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_Release (LPDIRECTMUSICSTYLE8 iface) {
90 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
91 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN)&This->UnknownVtbl);
92 }
93
94 /* IDirectMusicStyle8Impl IDirectMusicStyle(8) part: */
95 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetBand (LPDIRECTMUSICSTYLE8 iface, WCHAR* pwszName, IDirectMusicBand** ppBand) {
96 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
97 FIXME("(%p, %p, %p): stub\n", This, pwszName, ppBand);
98 return S_OK;
99 }
100
101 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumBand (LPDIRECTMUSICSTYLE8 iface, DWORD dwIndex, WCHAR* pwszName) {
102 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
103 FIXME("(%p, %ld, %p): stub\n", This, dwIndex, pwszName);
104 return S_OK;
105 }
106
107 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultBand (LPDIRECTMUSICSTYLE8 iface, IDirectMusicBand** ppBand) {
108 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
109 FIXME("(%p, %p): stub\n", This, ppBand);
110 return S_OK;
111 }
112
113 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumMotif (LPDIRECTMUSICSTYLE8 iface, DWORD dwIndex, WCHAR* pwszName) {
114 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
115 FIXME("(%p, %ld, %p): stub\n", This, dwIndex, pwszName);
116 return S_OK;
117 }
118
119 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetMotif (LPDIRECTMUSICSTYLE8 iface, WCHAR* pwszName, IDirectMusicSegment** ppSegment) {
120 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
121 FIXME("(%p, %p, %p): stub\n", This, pwszName, ppSegment);
122 return S_OK;
123 }
124
125 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultChordMap (LPDIRECTMUSICSTYLE8 iface, IDirectMusicChordMap** ppChordMap) {
126 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
127 FIXME("(%p, %p): stub\n", This, ppChordMap);
128 return S_OK;
129 }
130
131 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumChordMap (LPDIRECTMUSICSTYLE8 iface, DWORD dwIndex, WCHAR* pwszName) {
132 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
133 FIXME("(%p, %ld, %p): stub\n", This, dwIndex, pwszName);
134 return S_OK;
135 }
136
137 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetChordMap (LPDIRECTMUSICSTYLE8 iface, WCHAR* pwszName, IDirectMusicChordMap** ppChordMap) {
138 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
139 FIXME("(%p, %p, %p): stub\n", This, pwszName, ppChordMap);
140 return S_OK;
141 }
142
143 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTimeSignature (LPDIRECTMUSICSTYLE8 iface, DMUS_TIMESIGNATURE* pTimeSig) {
144 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
145 FIXME("(%p, %p): stub\n", This, pTimeSig);
146 return S_OK;
147 }
148
149 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetEmbellishmentLength (LPDIRECTMUSICSTYLE8 iface, DWORD dwType, DWORD dwLevel, DWORD* pdwMin, DWORD* pdwMax) {
150 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
151 FIXME("(%p, %ld, %ld, %p, %p): stub\n", This, dwType, dwLevel, pdwMin, pdwMax);
152 return S_OK;
153 }
154
155 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTempo (LPDIRECTMUSICSTYLE8 iface, double* pTempo) {
156 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
157 FIXME("(%p, %p): stub\n", This, pTempo);
158 return S_OK;
159 }
160
161 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumPattern (LPDIRECTMUSICSTYLE8 iface, DWORD dwIndex, DWORD dwPatternType, WCHAR* pwszName) {
162 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, StyleVtbl, iface);
163 FIXME("(%p, %ld, %ld, %p): stub\n", This, dwIndex, dwPatternType, pwszName);
164 return S_OK;
165 }
166
167 ICOM_VTABLE(IDirectMusicStyle8) DirectMusicStyle8_Style_Vtbl = {
168 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
169 IDirectMusicStyle8Impl_IDirectMusicStyle8_QueryInterface,
170 IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef,
171 IDirectMusicStyle8Impl_IDirectMusicStyle8_Release,
172 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetBand,
173 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumBand,
174 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultBand,
175 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumMotif,
176 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetMotif,
177 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultChordMap,
178 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumChordMap,
179 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetChordMap,
180 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTimeSignature,
181 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetEmbellishmentLength,
182 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTempo,
183 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumPattern
184 };
185
186 /* IDirectMusicStyle8Impl IDirectMusicObject part: */
187 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicObject_QueryInterface (LPDIRECTMUSICOBJECT iface, REFIID riid, LPVOID *ppobj) {
188 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, ObjectVtbl, iface);
189 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN)&This->UnknownVtbl, riid, ppobj);
190 }
191
192 ULONG WINAPI IDirectMusicStyle8Impl_IDirectMusicObject_AddRef (LPDIRECTMUSICOBJECT iface) {
193 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, ObjectVtbl, iface);
194 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN)&This->UnknownVtbl);
195 }
196
197 ULONG WINAPI IDirectMusicStyle8Impl_IDirectMusicObject_Release (LPDIRECTMUSICOBJECT iface) {
198 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, ObjectVtbl, iface);
199 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN)&This->UnknownVtbl);
200 }
201
202 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicObject_GetDescriptor (LPDIRECTMUSICOBJECT iface, LPDMUS_OBJECTDESC pDesc) {
203 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, ObjectVtbl, iface);
204 TRACE("(%p, %p)\n", This, pDesc);
205 /* I think we shouldn't return pointer here since then values can be changed; it'd be a mess */
206 memcpy (pDesc, This->pDesc, This->pDesc->dwSize);
207 return S_OK;
208 }
209
210 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicObject_SetDescriptor (LPDIRECTMUSICOBJECT iface, LPDMUS_OBJECTDESC pDesc) {
211 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, ObjectVtbl, iface);
212 TRACE("(%p, %p): setting descriptor:\n%s\n", This, pDesc, debugstr_DMUS_OBJECTDESC (pDesc));
213
214 /* According to MSDN, we should copy only given values, not whole struct */
215 if (pDesc->dwValidData & DMUS_OBJ_OBJECT)
216 memcpy (&This->pDesc->guidObject, &pDesc->guidObject, sizeof (pDesc->guidObject));
217 if (pDesc->dwValidData & DMUS_OBJ_CLASS)
218 memcpy (&This->pDesc->guidClass, &pDesc->guidClass, sizeof (pDesc->guidClass));
219 if (pDesc->dwValidData & DMUS_OBJ_NAME)
220 strncpyW (This->pDesc->wszName, pDesc->wszName, DMUS_MAX_NAME);
221 if (pDesc->dwValidData & DMUS_OBJ_CATEGORY)
222 strncpyW (This->pDesc->wszCategory, pDesc->wszCategory, DMUS_MAX_CATEGORY);
223 if (pDesc->dwValidData & DMUS_OBJ_FILENAME)
224 strncpyW (This->pDesc->wszFileName, pDesc->wszFileName, DMUS_MAX_FILENAME);
225 if (pDesc->dwValidData & DMUS_OBJ_VERSION)
226 memcpy (&This->pDesc->vVersion, &pDesc->vVersion, sizeof (pDesc->vVersion));
227 if (pDesc->dwValidData & DMUS_OBJ_DATE)
228 memcpy (&This->pDesc->ftDate, &pDesc->ftDate, sizeof (pDesc->ftDate));
229 if (pDesc->dwValidData & DMUS_OBJ_MEMORY) {
230 memcpy (&This->pDesc->llMemLength, &pDesc->llMemLength, sizeof (pDesc->llMemLength));
231 memcpy (This->pDesc->pbMemData, pDesc->pbMemData, sizeof (pDesc->pbMemData));
232 }
233 if (pDesc->dwValidData & DMUS_OBJ_STREAM) {
234 /* according to MSDN, we copy the stream */
235 IStream_Clone (pDesc->pStream, &This->pDesc->pStream);
236 }
237
238 /* add new flags */
239 This->pDesc->dwValidData |= pDesc->dwValidData;
240
241 return S_OK;
242 }
243
244 HRESULT WINAPI IDirectMusicStyle8Impl_IDirectMusicObject_ParseDescriptor (LPDIRECTMUSICOBJECT iface, LPSTREAM pStream, LPDMUS_OBJECTDESC pDesc) {
245 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, ObjectVtbl, iface);
246 DMUS_PRIVATE_CHUNK Chunk;
247 DWORD StreamSize, StreamCount, ListSize[1], ListCount[1];
248 LARGE_INTEGER liMove; /* used when skipping chunks */
249
250 TRACE("(%p, %p, %p)\n", This, pStream, pDesc);
251
252 /* FIXME: should this be determined from stream? */
253 pDesc->dwValidData |= DMUS_OBJ_CLASS;
254 memcpy (&pDesc->guidClass, &CLSID_DirectMusicStyle, sizeof(CLSID));
255
256 IStream_Read (pStream, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
257 TRACE_(dmfile)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
258 switch (Chunk.fccID) {
259 case FOURCC_RIFF: {
260 IStream_Read (pStream, &Chunk.fccID, sizeof(FOURCC), NULL);
261 TRACE_(dmfile)(": RIFF chunk of type %s", debugstr_fourcc(Chunk.fccID));
262 StreamSize = Chunk.dwSize - sizeof(FOURCC);
263 StreamCount = 0;
264 if (Chunk.fccID == DMUS_FOURCC_STYLE_FORM) {
265 TRACE_(dmfile)(": style form\n");
266 do {
267 IStream_Read (pStream, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
268 StreamCount += sizeof(FOURCC) + sizeof(DWORD) + Chunk.dwSize;
269 TRACE_(dmfile)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
270 switch (Chunk.fccID) {
271 case DMUS_FOURCC_GUID_CHUNK: {
272 TRACE_(dmfile)(": GUID chunk\n");
273 pDesc->dwValidData |= DMUS_OBJ_OBJECT;
274 IStream_Read (pStream, &pDesc->guidObject, Chunk.dwSize, NULL);
275 break;
276 }
277 case DMUS_FOURCC_VERSION_CHUNK: {
278 TRACE_(dmfile)(": version chunk\n");
279 pDesc->dwValidData |= DMUS_OBJ_VERSION;
280 IStream_Read (pStream, &pDesc->vVersion, Chunk.dwSize, NULL);
281 break;
282 }
283 case DMUS_FOURCC_CATEGORY_CHUNK: {
284 TRACE_(dmfile)(": category chunk\n");
285 pDesc->dwValidData |= DMUS_OBJ_CATEGORY;
286 IStream_Read (pStream, pDesc->wszCategory, Chunk.dwSize, NULL);
287 break;
288 }
289 case FOURCC_LIST: {
290 IStream_Read (pStream, &Chunk.fccID, sizeof(FOURCC), NULL);
291 TRACE_(dmfile)(": LIST chunk of type %s", debugstr_fourcc(Chunk.fccID));
292 ListSize[0] = Chunk.dwSize - sizeof(FOURCC);
293 ListCount[0] = 0;
294 switch (Chunk.fccID) {
295 /* evil M$ UNFO list, which can (!?) contain INFO elements */
296 case DMUS_FOURCC_UNFO_LIST: {
297 TRACE_(dmfile)(": UNFO list\n");
298 do {
299 IStream_Read (pStream, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
300 ListCount[0] += sizeof(FOURCC) + sizeof(DWORD) + Chunk.dwSize;
301 TRACE_(dmfile)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
302 switch (Chunk.fccID) {
303 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
304 (though strings seem to be valid unicode) */
305 case mmioFOURCC('I','N','A','M'):
306 case DMUS_FOURCC_UNAM_CHUNK: {
307 TRACE_(dmfile)(": name chunk\n");
308 pDesc->dwValidData |= DMUS_OBJ_NAME;
309 IStream_Read (pStream, pDesc->wszName, Chunk.dwSize, NULL);
310 break;
311 }
312 case mmioFOURCC('I','A','R','T'):
313 case DMUS_FOURCC_UART_CHUNK: {
314 TRACE_(dmfile)(": artist chunk (ignored)\n");
315 liMove.QuadPart = Chunk.dwSize;
316 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
317 break;
318 }
319 case mmioFOURCC('I','C','O','P'):
320 case DMUS_FOURCC_UCOP_CHUNK: {
321 TRACE_(dmfile)(": copyright chunk (ignored)\n");
322 liMove.QuadPart = Chunk.dwSize;
323 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
324 break;
325 }
326 case mmioFOURCC('I','S','B','J'):
327 case DMUS_FOURCC_USBJ_CHUNK: {
328 TRACE_(dmfile)(": subject chunk (ignored)\n");
329 liMove.QuadPart = Chunk.dwSize;
330 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
331 break;
332 }
333 case mmioFOURCC('I','C','M','T'):
334 case DMUS_FOURCC_UCMT_CHUNK: {
335 TRACE_(dmfile)(": comment chunk (ignored)\n");
336 liMove.QuadPart = Chunk.dwSize;
337 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
338 break;
339 }
340 default: {
341 TRACE_(dmfile)(": unknown chunk (irrevelant & skipping)\n");
342 liMove.QuadPart = Chunk.dwSize;
343 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
344 break;
345 }
346 }
347 TRACE_(dmfile)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount[0], ListSize[0]);
348 } while (ListCount[0] < ListSize[0]);
349 break;
350 }
351 default: {
352 TRACE_(dmfile)(": unknown (skipping)\n");
353 liMove.QuadPart = Chunk.dwSize - sizeof(FOURCC);
354 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
355 break;
356 }
357 }
358 break;
359 }
360 default: {
361 TRACE_(dmfile)(": unknown chunk (irrevelant & skipping)\n");
362 liMove.QuadPart = Chunk.dwSize;
363 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL);
364 break;
365 }
366 }
367 TRACE_(dmfile)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount, StreamSize);
368 } while (StreamCount < StreamSize);
369 break;
370 } else {
371 TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
372 liMove.QuadPart = StreamSize;
373 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
374 return E_FAIL;
375 }
376
377 TRACE_(dmfile)(": reading finished\n");
378 break;
379 }
380 default: {
381 TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
382 liMove.QuadPart = Chunk.dwSize;
383 IStream_Seek (pStream, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
384 return DMUS_E_INVALIDFILE;
385 }
386 }
387
388 TRACE(": returning descriptor:\n%s\n", debugstr_DMUS_OBJECTDESC (pDesc));
389
390 return S_OK;
391 }
392
393 ICOM_VTABLE(IDirectMusicObject) DirectMusicStyle8_Object_Vtbl = {
394 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
395 IDirectMusicStyle8Impl_IDirectMusicObject_QueryInterface,
396 IDirectMusicStyle8Impl_IDirectMusicObject_AddRef,
397 IDirectMusicStyle8Impl_IDirectMusicObject_Release,
398 IDirectMusicStyle8Impl_IDirectMusicObject_GetDescriptor,
399 IDirectMusicStyle8Impl_IDirectMusicObject_SetDescriptor,
400 IDirectMusicStyle8Impl_IDirectMusicObject_ParseDescriptor
401 };
402
403 /* IDirectMusicStyle8Impl IPersistStream part: */
404 HRESULT WINAPI IDirectMusicStyle8Impl_IPersistStream_QueryInterface (LPPERSISTSTREAM iface, REFIID riid, LPVOID *ppobj) {
405 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, PersistStreamVtbl, iface);
406 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN)&This->UnknownVtbl, riid, ppobj);
407 }
408
409 ULONG WINAPI IDirectMusicStyle8Impl_IPersistStream_AddRef (LPPERSISTSTREAM iface) {
410 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, PersistStreamVtbl, iface);
411 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN)&This->UnknownVtbl);
412 }
413
414 ULONG WINAPI IDirectMusicStyle8Impl_IPersistStream_Release (LPPERSISTSTREAM iface) {
415 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, PersistStreamVtbl, iface);
416 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN)&This->UnknownVtbl);
417 }
418
419 HRESULT WINAPI IDirectMusicStyle8Impl_IPersistStream_GetClassID (LPPERSISTSTREAM iface, CLSID* pClassID) {
420 return E_NOTIMPL;
421 }
422
423 HRESULT WINAPI IDirectMusicStyle8Impl_IPersistStream_IsDirty (LPPERSISTSTREAM iface) {
424 return E_NOTIMPL;
425 }
426
427 HRESULT WINAPI IDirectMusicStyle8Impl_IPersistStream_Load (LPPERSISTSTREAM iface, IStream* pStm) {
428 ICOM_THIS_MULTI(IDirectMusicStyle8Impl, PersistStreamVtbl, iface);
429
430 FOURCC chunkID;
431 DWORD chunkSize, StreamSize, StreamCount, ListSize[3], ListCount[3];
432 LARGE_INTEGER liMove; /* used when skipping chunks */
433
434 FIXME("(%p, %p): Loading not implemented yet\n", This, pStm);
435 IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
436 IStream_Read (pStm, &chunkSize, sizeof(DWORD), NULL);
437 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID), chunkSize);
438 switch (chunkID) {
439 case FOURCC_RIFF: {
440 IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
441 TRACE_(dmfile)(": RIFF chunk of type %s", debugstr_fourcc(chunkID));
442 StreamSize = chunkSize - sizeof(FOURCC);
443 StreamCount = 0;
444 switch (chunkID) {
445 case DMUS_FOURCC_STYLE_FORM: {
446 TRACE_(dmfile)(": style form\n");
447 do {
448 IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
449 IStream_Read (pStm, &chunkSize, sizeof(FOURCC), NULL);
450 StreamCount += sizeof(FOURCC) + sizeof(DWORD) + chunkSize;
451 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID), chunkSize);
452 switch (chunkID) {
453 case DMUS_FOURCC_GUID_CHUNK: {
454 TRACE_(dmfile)(": GUID chunk\n");
455 This->pDesc->dwValidData |= DMUS_OBJ_OBJECT;
456 IStream_Read (pStm, &This->pDesc->guidObject, chunkSize, NULL);
457 break;
458 }
459 case DMUS_FOURCC_VERSION_CHUNK: {
460 TRACE_(dmfile)(": version chunk\n");
461 This->pDesc->dwValidData |= DMUS_OBJ_VERSION;
462 IStream_Read (pStm, &This->pDesc->vVersion, chunkSize, NULL);
463 break;
464 }
465 case DMUS_FOURCC_CATEGORY_CHUNK: {
466 TRACE_(dmfile)(": category chunk\n");
467 This->pDesc->dwValidData |= DMUS_OBJ_CATEGORY;
468 IStream_Read (pStm, This->pDesc->wszCategory, chunkSize, NULL);
469 break;
470 }
471 case FOURCC_LIST: {
472 IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
473 TRACE_(dmfile)(": LIST chunk of type %s", debugstr_fourcc(chunkID));
474 ListSize[0] = chunkSize - sizeof(FOURCC);
475 ListCount[0] = 0;
476 switch (chunkID) {
477 case DMUS_FOURCC_UNFO_LIST: {
478 TRACE_(dmfile)(": UNFO list\n");
479 do {
480 IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
481 IStream_Read (pStm, &chunkSize, sizeof(FOURCC), NULL);
482 ListCount[0] += sizeof(FOURCC) + sizeof(DWORD) + chunkSize;
483 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID), chunkSize);
484 switch (chunkID) {
485 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
486 (though strings seem to be valid unicode) */
487 case mmioFOURCC('I','N','A','M'):
488 case DMUS_FOURCC_UNAM_CHUNK: {
489 TRACE_(dmfile)(": name chunk\n");
490 This->pDesc->dwValidData |= DMUS_OBJ_NAME;
491 IStream_Read (pStm, This->pDesc->wszName, chunkSize, NULL);
492 break;
493 }
494 case mmioFOURCC('I','A','R','T'):
495 case DMUS_FOURCC_UART_CHUNK: {
496 TRACE_(dmfile)(": artist chunk (ignored)\n");
497 liMove.QuadPart = chunkSize;
498 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
499 break;
500 }
501 case mmioFOURCC('I','C','O','P'):
502 case DMUS_FOURCC_UCOP_CHUNK: {
503 TRACE_(dmfile)(": copyright chunk (ignored)\n");
504 liMove.QuadPart = chunkSize;
505 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
506 break;
507 }
508 case mmioFOURCC('I','S','B','J'):
509 case DMUS_FOURCC_USBJ_CHUNK: {
510 TRACE_(dmfile)(": subject chunk (ignored)\n");
511 liMove.QuadPart = chunkSize;
512 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
513 break;
514 }
515 case mmioFOURCC('I','C','M','T'):
516 case DMUS_FOURCC_UCMT_CHUNK: {
517 TRACE_(dmfile)(": comment chunk (ignored)\n");
518 liMove.QuadPart = chunkSize;
519 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
520 break;
521 }
522 default: {
523 TRACE_(dmfile)(": unknown chunk (irrevelant & skipping)\n");
524 liMove.QuadPart = chunkSize;
525 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
526 break;
527 }
528 }
529 TRACE_(dmfile)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount[0], ListSize[0]);
530 } while (ListCount[0] < ListSize[0]);
531 break;
532 }
533 default: {
534 TRACE_(dmfile)(": unknown (skipping)\n");
535 liMove.QuadPart = chunkSize - sizeof(FOURCC);
536 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
537 break;
538 }
539 }
540 break;
541 }
542 default: {
543 TRACE_(dmfile)(": unknown chunk (irrevelant & skipping)\n");
544 liMove.QuadPart = chunkSize;
545 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
546 break;
547 }
548 }
549 TRACE_(dmfile)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount, StreamSize);
550 } while (StreamCount < StreamSize);
551 break;
552 }
553 default: {
554 TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
555 liMove.QuadPart = StreamSize;
556 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
557 return E_FAIL;
558 }
559 }
560 TRACE_(dmfile)(": reading finished\n");
561 break;
562 }
563 default: {
564 TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
565 liMove.QuadPart = chunkSize;
566 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
567 return E_FAIL;
568 }
569 }
570
571 return S_OK;
572 }
573
574 HRESULT WINAPI IDirectMusicStyle8Impl_IPersistStream_Save (LPPERSISTSTREAM iface, IStream* pStm, BOOL fClearDirty) {
575 return E_NOTIMPL;
576 }
577
578 HRESULT WINAPI IDirectMusicStyle8Impl_IPersistStream_GetSizeMax (LPPERSISTSTREAM iface, ULARGE_INTEGER* pcbSize) {
579 return E_NOTIMPL;
580 }
581
582 ICOM_VTABLE(IPersistStream) DirectMusicStyle8_PersistStream_Vtbl = {
583 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
584 IDirectMusicStyle8Impl_IPersistStream_QueryInterface,
585 IDirectMusicStyle8Impl_IPersistStream_AddRef,
586 IDirectMusicStyle8Impl_IPersistStream_Release,
587 IDirectMusicStyle8Impl_IPersistStream_GetClassID,
588 IDirectMusicStyle8Impl_IPersistStream_IsDirty,
589 IDirectMusicStyle8Impl_IPersistStream_Load,
590 IDirectMusicStyle8Impl_IPersistStream_Save,
591 IDirectMusicStyle8Impl_IPersistStream_GetSizeMax
592 };
593
594 /* for ClassFactory */
595 HRESULT WINAPI DMUSIC_CreateDirectMusicStyleImpl (LPCGUID lpcGUID, LPVOID* ppobj, LPUNKNOWN pUnkOuter) {
596 IDirectMusicStyle8Impl* obj;
597
598 obj = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirectMusicStyle8Impl));
599 if (NULL == obj) {
600 *ppobj = (LPVOID) NULL;
601 return E_OUTOFMEMORY;
602 }
603 obj->UnknownVtbl = &DirectMusicStyle8_Unknown_Vtbl;
604 obj->StyleVtbl = &DirectMusicStyle8_Style_Vtbl;
605 obj->ObjectVtbl = &DirectMusicStyle8_Object_Vtbl;
606 obj->PersistStreamVtbl = &DirectMusicStyle8_PersistStream_Vtbl;
607 obj->pDesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(DMUS_OBJECTDESC));
608 DM_STRUCT_INIT(obj->pDesc);
609 obj->pDesc->dwValidData |= DMUS_OBJ_CLASS;
610 memcpy (&obj->pDesc->guidClass, &CLSID_DirectMusicStyle, sizeof (CLSID));
611 obj->ref = 0; /* will be inited by QueryInterface */
612
613 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN)&obj->UnknownVtbl, lpcGUID, ppobj);
614 }
Windows API implementation