1 /* IDirectMusicStyle8 Implementation
3 * Copyright (C) 2003-2004 Rok Mandeljc
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.
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.
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.
20 #include "dmstyle_private.h"
22 WINE_DEFAULT_DEBUG_CHANNEL(dmstyle
);
23 WINE_DECLARE_DEBUG_CHANNEL(dmfile
);
25 /*****************************************************************************
26 * IDirectMusicStyleImpl implementation
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
);
33 if (IsEqualIID (riid
, &IID_IUnknown
)) {
34 *ppobj
= (LPVOID
)&This
->UnknownVtbl
;
35 IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
37 } else if (IsEqualIID (riid
, &IID_IDirectMusicStyle
)) {
38 *ppobj
= (LPVOID
)&This
->StyleVtbl
;
39 IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef ((LPDIRECTMUSICSTYLE8
)&This
->StyleVtbl
);
41 } else if (IsEqualIID (riid
, &IID_IDirectMusicObject
)) {
42 *ppobj
= (LPVOID
)&This
->ObjectVtbl
;
43 IDirectMusicStyle8Impl_IDirectMusicObject_AddRef ((LPDIRECTMUSICOBJECT
)&This
->ObjectVtbl
);
45 } else if (IsEqualIID (riid
, &IID_IPersistStream
)) {
46 *ppobj
= (LPVOID
)&This
->PersistStreamVtbl
;
47 IDirectMusicStyle8Impl_IPersistStream_AddRef ((LPPERSISTSTREAM
)&This
->PersistStreamVtbl
);
51 WARN("(%p, %s, %p): not found\n", This
, debugstr_dmguid(riid
), ppobj
);
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
);
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
);
66 HeapFree(GetProcessHeap(), 0, This
);
71 ICOM_VTABLE(IUnknown
) DirectMusicStyle8_Unknown_Vtbl
= {
72 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
73 IDirectMusicStyle8Impl_IUnknown_QueryInterface
,
74 IDirectMusicStyle8Impl_IUnknown_AddRef
,
75 IDirectMusicStyle8Impl_IUnknown_Release
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
);
84 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef (LPDIRECTMUSICSTYLE8 iface
) {
85 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
86 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
89 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_Release (LPDIRECTMUSICSTYLE8 iface
) {
90 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
91 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
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
);
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
);
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
);
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
);
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
);
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
);
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
);
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
);
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
);
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
);
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
);
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
);
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
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
);
192 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_AddRef (LPDIRECTMUSICOBJECT iface
) {
193 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
194 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
197 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_Release (LPDIRECTMUSICOBJECT iface
) {
198 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
199 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
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
);
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
));
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
));
233 if (pDesc
->dwValidData
& DMUS_OBJ_STREAM
) {
234 /* according to MSDN, we copy the stream */
235 IStream_Clone (pDesc
->pStream
, &This
->pDesc
->pStream
);
239 This
->pDesc
->dwValidData
|= pDesc
->dwValidData
;
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 */
250 TRACE("(%p, %p, %p)\n", This
, pStream
, pDesc
);
252 /* FIXME: should this be determined from stream? */
253 pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
254 memcpy (&pDesc
->guidClass
, &CLSID_DirectMusicStyle
, sizeof(CLSID
));
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
) {
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
);
264 if (Chunk
.fccID
== DMUS_FOURCC_STYLE_FORM
) {
265 TRACE_(dmfile
)(": style form\n");
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
);
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
);
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
);
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
);
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");
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
);
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
);
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
);
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
);
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
);
341 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
342 liMove
.QuadPart
= Chunk
.dwSize
;
343 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
347 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
348 } while (ListCount
[0] < ListSize
[0]);
352 TRACE_(dmfile
)(": unknown (skipping)\n");
353 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
354 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
361 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
362 liMove
.QuadPart
= Chunk
.dwSize
;
363 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
367 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
368 } while (StreamCount
< StreamSize
);
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 */
377 TRACE_(dmfile
)(": reading finished\n");
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
;
388 TRACE(": returning descriptor:\n%s\n", debugstr_DMUS_OBJECTDESC (pDesc
));
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
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
);
409 ULONG WINAPI
IDirectMusicStyle8Impl_IPersistStream_AddRef (LPPERSISTSTREAM iface
) {
410 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
411 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
414 ULONG WINAPI
IDirectMusicStyle8Impl_IPersistStream_Release (LPPERSISTSTREAM iface
) {
415 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
416 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
419 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_GetClassID (LPPERSISTSTREAM iface
, CLSID
* pClassID
) {
423 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_IsDirty (LPPERSISTSTREAM iface
) {
427 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_Load (LPPERSISTSTREAM iface
, IStream
* pStm
) {
428 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
431 DWORD chunkSize
, StreamSize
, StreamCount
, ListSize
[3], ListCount
[3];
432 LARGE_INTEGER liMove
; /* used when skipping chunks */
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
);
440 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
441 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(chunkID
));
442 StreamSize
= chunkSize
- sizeof(FOURCC
);
445 case DMUS_FOURCC_STYLE_FORM
: {
446 TRACE_(dmfile
)(": style form\n");
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
);
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
);
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
);
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
);
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
);
477 case DMUS_FOURCC_UNFO_LIST
: {
478 TRACE_(dmfile
)(": UNFO list\n");
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
);
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
);
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
);
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
);
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
);
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
);
523 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
524 liMove
.QuadPart
= chunkSize
;
525 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
529 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
530 } while (ListCount
[0] < ListSize
[0]);
534 TRACE_(dmfile
)(": unknown (skipping)\n");
535 liMove
.QuadPart
= chunkSize
- sizeof(FOURCC
);
536 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
543 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
544 liMove
.QuadPart
= chunkSize
;
545 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
549 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
550 } while (StreamCount
< StreamSize
);
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 */
560 TRACE_(dmfile
)(": reading finished\n");
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 */
574 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_Save (LPPERSISTSTREAM iface
, IStream
* pStm
, BOOL fClearDirty
) {
578 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_GetSizeMax (LPPERSISTSTREAM iface
, ULARGE_INTEGER
* pcbSize
) {
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
594 /* for ClassFactory */
595 HRESULT WINAPI
DMUSIC_CreateDirectMusicStyleImpl (LPCGUID lpcGUID
, LPVOID
* ppobj
, LPUNKNOWN pUnkOuter
) {
596 IDirectMusicStyle8Impl
* obj
;
598 obj
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDirectMusicStyle8Impl
));
600 *ppobj
= (LPVOID
) NULL
;
601 return E_OUTOFMEMORY
;
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 */
613 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN
)&obj
->UnknownVtbl
, lpcGUID
, ppobj
);