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
);
32 if (IsEqualIID (riid
, &IID_IUnknown
)) {
33 *ppobj
= (LPVOID
)&This
->UnknownVtbl
;
34 IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
36 } else if (IsEqualIID (riid
, &IID_IDirectMusicStyle
)) {
37 *ppobj
= (LPVOID
)&This
->StyleVtbl
;
38 IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef ((LPDIRECTMUSICSTYLE8
)&This
->StyleVtbl
);
40 } else if (IsEqualIID (riid
, &IID_IDirectMusicObject
)) {
41 *ppobj
= (LPVOID
)&This
->ObjectVtbl
;
42 IDirectMusicStyle8Impl_IDirectMusicObject_AddRef ((LPDIRECTMUSICOBJECT
)&This
->ObjectVtbl
);
44 } else if (IsEqualIID (riid
, &IID_IPersistStream
)) {
45 *ppobj
= (LPVOID
)&This
->PersistStreamVtbl
;
46 IDirectMusicStyle8Impl_IPersistStream_AddRef ((LPPERSISTSTREAM
)&This
->PersistStreamVtbl
);
50 WARN("(%p)->(%s,%p),not found\n", This
, debugstr_guid(riid
), ppobj
);
54 ULONG WINAPI
IDirectMusicStyle8Impl_IUnknown_AddRef (LPUNKNOWN iface
) {
55 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, UnknownVtbl
, iface
);
56 TRACE("(%p) : AddRef from %ld\n", This
, This
->ref
);
60 ULONG WINAPI
IDirectMusicStyle8Impl_IUnknown_Release (LPUNKNOWN iface
) {
61 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, UnknownVtbl
, iface
);
62 ULONG ref
= --This
->ref
;
63 TRACE("(%p) : ReleaseRef to %ld\n", This
, This
->ref
);
65 HeapFree(GetProcessHeap(), 0, This
);
70 ICOM_VTABLE(IUnknown
) DirectMusicStyle8_Unknown_Vtbl
= {
71 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
72 IDirectMusicStyle8Impl_IUnknown_QueryInterface
,
73 IDirectMusicStyle8Impl_IUnknown_AddRef
,
74 IDirectMusicStyle8Impl_IUnknown_Release
77 /* IDirectMusicStyle8Impl IDirectMusicStyle8 part: */
78 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_QueryInterface (LPDIRECTMUSICSTYLE8 iface
, REFIID riid
, LPVOID
*ppobj
) {
79 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
80 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
83 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef (LPDIRECTMUSICSTYLE8 iface
) {
84 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
85 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
88 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_Release (LPDIRECTMUSICSTYLE8 iface
) {
89 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
90 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
93 /* IDirectMusicStyle8Impl IDirectMusicStyle(8) part: */
94 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetBand (LPDIRECTMUSICSTYLE8 iface
, WCHAR
* pwszName
, IDirectMusicBand
** ppBand
) {
95 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
96 FIXME("(%p, %p, %p): stub\n", This
, pwszName
, ppBand
);
100 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumBand (LPDIRECTMUSICSTYLE8 iface
, DWORD dwIndex
, WCHAR
* pwszName
) {
101 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
102 FIXME("(%p, %ld, %p): stub\n", This
, dwIndex
, pwszName
);
106 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultBand (LPDIRECTMUSICSTYLE8 iface
, IDirectMusicBand
** ppBand
) {
107 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
108 FIXME("(%p, %p): stub\n", This
, ppBand
);
112 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumMotif (LPDIRECTMUSICSTYLE8 iface
, DWORD dwIndex
, WCHAR
* pwszName
) {
113 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
114 FIXME("(%p, %ld, %p): stub\n", This
, dwIndex
, pwszName
);
118 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetMotif (LPDIRECTMUSICSTYLE8 iface
, WCHAR
* pwszName
, IDirectMusicSegment
** ppSegment
) {
119 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
120 FIXME("(%p, %p, %p): stub\n", This
, pwszName
, ppSegment
);
124 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultChordMap (LPDIRECTMUSICSTYLE8 iface
, IDirectMusicChordMap
** ppChordMap
) {
125 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
126 FIXME("(%p, %p): stub\n", This
, ppChordMap
);
130 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumChordMap (LPDIRECTMUSICSTYLE8 iface
, DWORD dwIndex
, WCHAR
* pwszName
) {
131 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
132 FIXME("(%p, %ld, %p): stub\n", This
, dwIndex
, pwszName
);
136 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetChordMap (LPDIRECTMUSICSTYLE8 iface
, WCHAR
* pwszName
, IDirectMusicChordMap
** ppChordMap
) {
137 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
138 FIXME("(%p, %p, %p): stub\n", This
, pwszName
, ppChordMap
);
142 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTimeSignature (LPDIRECTMUSICSTYLE8 iface
, DMUS_TIMESIGNATURE
* pTimeSig
) {
143 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
144 FIXME("(%p, %p): stub\n", This
, pTimeSig
);
148 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetEmbellishmentLength (LPDIRECTMUSICSTYLE8 iface
, DWORD dwType
, DWORD dwLevel
, DWORD
* pdwMin
, DWORD
* pdwMax
) {
149 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
150 FIXME("(%p, %ld, %ld, %p, %p): stub\n", This
, dwType
, dwLevel
, pdwMin
, pdwMax
);
154 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTempo (LPDIRECTMUSICSTYLE8 iface
, double* pTempo
) {
155 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
156 FIXME("(%p, %p): stub\n", This
, pTempo
);
160 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumPattern (LPDIRECTMUSICSTYLE8 iface
, DWORD dwIndex
, DWORD dwPatternType
, WCHAR
* pwszName
) {
161 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, StyleVtbl
, iface
);
162 FIXME("(%p, %ld, %ld, %p): stub\n", This
, dwIndex
, dwPatternType
, pwszName
);
166 ICOM_VTABLE(IDirectMusicStyle8
) DirectMusicStyle8_Style_Vtbl
= {
167 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
168 IDirectMusicStyle8Impl_IDirectMusicStyle8_QueryInterface
,
169 IDirectMusicStyle8Impl_IDirectMusicStyle8_AddRef
,
170 IDirectMusicStyle8Impl_IDirectMusicStyle8_Release
,
171 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetBand
,
172 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumBand
,
173 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultBand
,
174 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumMotif
,
175 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetMotif
,
176 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetDefaultChordMap
,
177 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumChordMap
,
178 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetChordMap
,
179 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTimeSignature
,
180 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetEmbellishmentLength
,
181 IDirectMusicStyle8Impl_IDirectMusicStyle8_GetTempo
,
182 IDirectMusicStyle8Impl_IDirectMusicStyle8_EnumPattern
185 /* IDirectMusicStyle8Impl IDirectMusicObject part: */
186 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_QueryInterface (LPDIRECTMUSICOBJECT iface
, REFIID riid
, LPVOID
*ppobj
) {
187 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
188 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
191 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_AddRef (LPDIRECTMUSICOBJECT iface
) {
192 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
193 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
196 ULONG WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_Release (LPDIRECTMUSICOBJECT iface
) {
197 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
198 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
201 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_GetDescriptor (LPDIRECTMUSICOBJECT iface
, LPDMUS_OBJECTDESC pDesc
) {
202 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
203 TRACE("(%p, %p)\n", This
, pDesc
);
204 /* I think we shouldn't return pointer here since then values can be changed; it'd be a mess */
205 memcpy (pDesc
, This
->pDesc
, This
->pDesc
->dwSize
);
209 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_SetDescriptor (LPDIRECTMUSICOBJECT iface
, LPDMUS_OBJECTDESC pDesc
) {
210 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
211 TRACE("(%p, %p): setting descriptor:\n", This
, pDesc
);
212 if (TRACE_ON(dmstyle
)) {
213 DMUSIC_dump_DMUS_OBJECTDESC (pDesc
);
216 /* According to MSDN, we should copy only given values, not whole struct */
217 if (pDesc
->dwValidData
& DMUS_OBJ_OBJECT
)
218 memcpy (&This
->pDesc
->guidObject
, &pDesc
->guidObject
, sizeof (pDesc
->guidObject
));
219 if (pDesc
->dwValidData
& DMUS_OBJ_CLASS
)
220 memcpy (&This
->pDesc
->guidClass
, &pDesc
->guidClass
, sizeof (pDesc
->guidClass
));
221 if (pDesc
->dwValidData
& DMUS_OBJ_NAME
)
222 strncpyW (This
->pDesc
->wszName
, pDesc
->wszName
, DMUS_MAX_NAME
);
223 if (pDesc
->dwValidData
& DMUS_OBJ_CATEGORY
)
224 strncpyW (This
->pDesc
->wszCategory
, pDesc
->wszCategory
, DMUS_MAX_CATEGORY
);
225 if (pDesc
->dwValidData
& DMUS_OBJ_FILENAME
)
226 strncpyW (This
->pDesc
->wszFileName
, pDesc
->wszFileName
, DMUS_MAX_FILENAME
);
227 if (pDesc
->dwValidData
& DMUS_OBJ_VERSION
)
228 memcpy (&This
->pDesc
->vVersion
, &pDesc
->vVersion
, sizeof (pDesc
->vVersion
));
229 if (pDesc
->dwValidData
& DMUS_OBJ_DATE
)
230 memcpy (&This
->pDesc
->ftDate
, &pDesc
->ftDate
, sizeof (pDesc
->ftDate
));
231 if (pDesc
->dwValidData
& DMUS_OBJ_MEMORY
) {
232 memcpy (&This
->pDesc
->llMemLength
, &pDesc
->llMemLength
, sizeof (pDesc
->llMemLength
));
233 memcpy (This
->pDesc
->pbMemData
, pDesc
->pbMemData
, sizeof (pDesc
->pbMemData
));
235 if (pDesc
->dwValidData
& DMUS_OBJ_STREAM
) {
236 /* according to MSDN, we copy the stream */
237 IStream_Clone (pDesc
->pStream
, &This
->pDesc
->pStream
);
241 This
->pDesc
->dwValidData
|= pDesc
->dwValidData
;
246 HRESULT WINAPI
IDirectMusicStyle8Impl_IDirectMusicObject_ParseDescriptor (LPDIRECTMUSICOBJECT iface
, LPSTREAM pStream
, LPDMUS_OBJECTDESC pDesc
) {
247 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, ObjectVtbl
, iface
);
248 DMUS_PRIVATE_CHUNK Chunk
;
249 DWORD StreamSize
, StreamCount
, ListSize
[1], ListCount
[1];
250 LARGE_INTEGER liMove
; /* used when skipping chunks */
252 TRACE("(%p, %p, %p)\n", This
, pStream
, pDesc
);
254 /* FIXME: should this be determined from stream? */
255 pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
256 memcpy (&pDesc
->guidClass
, &CLSID_DirectMusicBand
, sizeof(CLSID
));
258 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
259 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
260 switch (Chunk
.fccID
) {
262 IStream_Read (pStream
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
263 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
264 StreamSize
= Chunk
.dwSize
- sizeof(FOURCC
);
266 if (Chunk
.fccID
== DMUS_FOURCC_BAND_FORM
) {
267 TRACE_(dmfile
)(": band form\n");
269 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
270 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
271 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
272 switch (Chunk
.fccID
) {
273 case DMUS_FOURCC_GUID_CHUNK
: {
274 TRACE_(dmfile
)(": GUID chunk\n");
275 pDesc
->dwValidData
|= DMUS_OBJ_OBJECT
;
276 IStream_Read (pStream
, &pDesc
->guidObject
, Chunk
.dwSize
, NULL
);
279 case DMUS_FOURCC_VERSION_CHUNK
: {
280 TRACE_(dmfile
)(": version chunk\n");
281 pDesc
->dwValidData
|= DMUS_OBJ_VERSION
;
282 IStream_Read (pStream
, &pDesc
->vVersion
, Chunk
.dwSize
, NULL
);
285 case DMUS_FOURCC_CATEGORY_CHUNK
: {
286 TRACE_(dmfile
)(": category chunk\n");
287 pDesc
->dwValidData
|= DMUS_OBJ_CATEGORY
;
288 IStream_Read (pStream
, pDesc
->wszCategory
, Chunk
.dwSize
, NULL
);
292 IStream_Read (pStream
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
293 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
294 ListSize
[0] = Chunk
.dwSize
- sizeof(FOURCC
);
296 switch (Chunk
.fccID
) {
297 /* evil M$ UNFO list, which can (!?) contain INFO elements */
298 case DMUS_FOURCC_UNFO_LIST
: {
299 TRACE_(dmfile
)(": UNFO list\n");
301 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
302 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
303 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
304 switch (Chunk
.fccID
) {
305 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
306 (though strings seem to be valid unicode) */
307 case mmioFOURCC('I','N','A','M'):
308 case DMUS_FOURCC_UNAM_CHUNK
: {
309 TRACE_(dmfile
)(": name chunk\n");
310 pDesc
->dwValidData
|= DMUS_OBJ_NAME
;
311 IStream_Read (pStream
, pDesc
->wszName
, Chunk
.dwSize
, NULL
);
314 case mmioFOURCC('I','A','R','T'):
315 case DMUS_FOURCC_UART_CHUNK
: {
316 TRACE_(dmfile
)(": artist chunk (ignored)\n");
317 liMove
.QuadPart
= Chunk
.dwSize
;
318 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
321 case mmioFOURCC('I','C','O','P'):
322 case DMUS_FOURCC_UCOP_CHUNK
: {
323 TRACE_(dmfile
)(": copyright chunk (ignored)\n");
324 liMove
.QuadPart
= Chunk
.dwSize
;
325 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
328 case mmioFOURCC('I','S','B','J'):
329 case DMUS_FOURCC_USBJ_CHUNK
: {
330 TRACE_(dmfile
)(": subject chunk (ignored)\n");
331 liMove
.QuadPart
= Chunk
.dwSize
;
332 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
335 case mmioFOURCC('I','C','M','T'):
336 case DMUS_FOURCC_UCMT_CHUNK
: {
337 TRACE_(dmfile
)(": comment chunk (ignored)\n");
338 liMove
.QuadPart
= Chunk
.dwSize
;
339 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
343 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
344 liMove
.QuadPart
= Chunk
.dwSize
;
345 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
349 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
350 } while (ListCount
[0] < ListSize
[0]);
354 TRACE_(dmfile
)(": unknown (skipping)\n");
355 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
356 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
363 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
364 liMove
.QuadPart
= Chunk
.dwSize
;
365 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
369 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
370 } while (StreamCount
< StreamSize
);
373 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
374 liMove
.QuadPart
= StreamSize
;
375 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
379 TRACE_(dmfile
)(": reading finished\n");
383 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
384 liMove
.QuadPart
= Chunk
.dwSize
;
385 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
386 return DMUS_E_INVALIDFILE
;
390 TRACE(": returning descriptor:\n");
391 if (TRACE_ON(dmstyle
)) {
392 DMUSIC_dump_DMUS_OBJECTDESC (pDesc
);
398 ICOM_VTABLE(IDirectMusicObject
) DirectMusicStyle8_Object_Vtbl
= {
399 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
400 IDirectMusicStyle8Impl_IDirectMusicObject_QueryInterface
,
401 IDirectMusicStyle8Impl_IDirectMusicObject_AddRef
,
402 IDirectMusicStyle8Impl_IDirectMusicObject_Release
,
403 IDirectMusicStyle8Impl_IDirectMusicObject_GetDescriptor
,
404 IDirectMusicStyle8Impl_IDirectMusicObject_SetDescriptor
,
405 IDirectMusicStyle8Impl_IDirectMusicObject_ParseDescriptor
408 /* IDirectMusicStyle8Impl IPersistStream part: */
409 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_QueryInterface (LPPERSISTSTREAM iface
, REFIID riid
, LPVOID
*ppobj
) {
410 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
411 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
414 ULONG WINAPI
IDirectMusicStyle8Impl_IPersistStream_AddRef (LPPERSISTSTREAM iface
) {
415 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
416 return IDirectMusicStyle8Impl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
419 ULONG WINAPI
IDirectMusicStyle8Impl_IPersistStream_Release (LPPERSISTSTREAM iface
) {
420 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
421 return IDirectMusicStyle8Impl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
424 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_GetClassID (LPPERSISTSTREAM iface
, CLSID
* pClassID
) {
428 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_IsDirty (LPPERSISTSTREAM iface
) {
432 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_Load (LPPERSISTSTREAM iface
, IStream
* pStm
) {
433 ICOM_THIS_MULTI(IDirectMusicStyle8Impl
, PersistStreamVtbl
, iface
);
436 DWORD chunkSize
, StreamSize
, StreamCount
, ListSize
[3], ListCount
[3];
437 LARGE_INTEGER liMove
; /* used when skipping chunks */
439 FIXME("(%p, %p): Loading not implemented yet\n", This
, pStm
);
440 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
441 IStream_Read (pStm
, &chunkSize
, sizeof(DWORD
), NULL
);
442 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID
), chunkSize
);
445 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
446 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(chunkID
));
447 StreamSize
= chunkSize
- sizeof(FOURCC
);
450 case DMUS_FOURCC_STYLE_FORM
: {
451 TRACE_(dmfile
)(": style form\n");
453 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
454 IStream_Read (pStm
, &chunkSize
, sizeof(FOURCC
), NULL
);
455 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + chunkSize
;
456 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID
), chunkSize
);
458 case DMUS_FOURCC_GUID_CHUNK
: {
459 TRACE_(dmfile
)(": GUID chunk\n");
460 This
->pDesc
->dwValidData
|= DMUS_OBJ_OBJECT
;
461 IStream_Read (pStm
, &This
->pDesc
->guidObject
, chunkSize
, NULL
);
464 case DMUS_FOURCC_VERSION_CHUNK
: {
465 TRACE_(dmfile
)(": version chunk\n");
466 This
->pDesc
->dwValidData
|= DMUS_OBJ_VERSION
;
467 IStream_Read (pStm
, &This
->pDesc
->vVersion
, chunkSize
, NULL
);
470 case DMUS_FOURCC_CATEGORY_CHUNK
: {
471 TRACE_(dmfile
)(": category chunk\n");
472 This
->pDesc
->dwValidData
|= DMUS_OBJ_CATEGORY
;
473 IStream_Read (pStm
, This
->pDesc
->wszCategory
, chunkSize
, NULL
);
477 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
478 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(chunkID
));
479 ListSize
[0] = chunkSize
- sizeof(FOURCC
);
482 case DMUS_FOURCC_UNFO_LIST
: {
483 TRACE_(dmfile
)(": UNFO list\n");
485 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
486 IStream_Read (pStm
, &chunkSize
, sizeof(FOURCC
), NULL
);
487 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + chunkSize
;
488 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID
), chunkSize
);
490 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
491 (though strings seem to be valid unicode) */
492 case mmioFOURCC('I','N','A','M'):
493 case DMUS_FOURCC_UNAM_CHUNK
: {
494 TRACE_(dmfile
)(": name chunk\n");
495 This
->pDesc
->dwValidData
|= DMUS_OBJ_NAME
;
496 IStream_Read (pStm
, This
->pDesc
->wszName
, chunkSize
, NULL
);
499 case mmioFOURCC('I','A','R','T'):
500 case DMUS_FOURCC_UART_CHUNK
: {
501 TRACE_(dmfile
)(": artist chunk (ignored)\n");
502 liMove
.QuadPart
= chunkSize
;
503 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
506 case mmioFOURCC('I','C','O','P'):
507 case DMUS_FOURCC_UCOP_CHUNK
: {
508 TRACE_(dmfile
)(": copyright chunk (ignored)\n");
509 liMove
.QuadPart
= chunkSize
;
510 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
513 case mmioFOURCC('I','S','B','J'):
514 case DMUS_FOURCC_USBJ_CHUNK
: {
515 TRACE_(dmfile
)(": subject chunk (ignored)\n");
516 liMove
.QuadPart
= chunkSize
;
517 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
520 case mmioFOURCC('I','C','M','T'):
521 case DMUS_FOURCC_UCMT_CHUNK
: {
522 TRACE_(dmfile
)(": comment chunk (ignored)\n");
523 liMove
.QuadPart
= chunkSize
;
524 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
528 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
529 liMove
.QuadPart
= chunkSize
;
530 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
534 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
535 } while (ListCount
[0] < ListSize
[0]);
539 TRACE_(dmfile
)(": unknown (skipping)\n");
540 liMove
.QuadPart
= chunkSize
- sizeof(FOURCC
);
541 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
548 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
549 liMove
.QuadPart
= chunkSize
;
550 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
554 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
555 } while (StreamCount
< StreamSize
);
559 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
560 liMove
.QuadPart
= StreamSize
;
561 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
565 TRACE_(dmfile
)(": reading finished\n");
569 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
570 liMove
.QuadPart
= chunkSize
;
571 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
579 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_Save (LPPERSISTSTREAM iface
, IStream
* pStm
, BOOL fClearDirty
) {
583 HRESULT WINAPI
IDirectMusicStyle8Impl_IPersistStream_GetSizeMax (LPPERSISTSTREAM iface
, ULARGE_INTEGER
* pcbSize
) {
587 ICOM_VTABLE(IPersistStream
) DirectMusicStyle8_PersistStream_Vtbl
= {
588 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
589 IDirectMusicStyle8Impl_IPersistStream_QueryInterface
,
590 IDirectMusicStyle8Impl_IPersistStream_AddRef
,
591 IDirectMusicStyle8Impl_IPersistStream_Release
,
592 IDirectMusicStyle8Impl_IPersistStream_GetClassID
,
593 IDirectMusicStyle8Impl_IPersistStream_IsDirty
,
594 IDirectMusicStyle8Impl_IPersistStream_Load
,
595 IDirectMusicStyle8Impl_IPersistStream_Save
,
596 IDirectMusicStyle8Impl_IPersistStream_GetSizeMax
599 /* for ClassFactory */
600 HRESULT WINAPI
DMUSIC_CreateDirectMusicStyleImpl (LPCGUID lpcGUID
, LPVOID
* ppobj
, LPUNKNOWN pUnkOuter
) {
601 IDirectMusicStyle8Impl
* obj
;
603 obj
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDirectMusicStyle8Impl
));
605 *ppobj
= (LPVOID
) NULL
;
606 return E_OUTOFMEMORY
;
608 obj
->UnknownVtbl
= &DirectMusicStyle8_Unknown_Vtbl
;
609 obj
->StyleVtbl
= &DirectMusicStyle8_Style_Vtbl
;
610 obj
->ObjectVtbl
= &DirectMusicStyle8_Object_Vtbl
;
611 obj
->PersistStreamVtbl
= &DirectMusicStyle8_PersistStream_Vtbl
;
612 obj
->pDesc
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(DMUS_OBJECTDESC
));
613 DM_STRUCT_INIT(obj
->pDesc
);
614 obj
->pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
615 memcpy (&obj
->pDesc
->guidClass
, &CLSID_DirectMusicStyle
, sizeof (CLSID
));
616 obj
->ref
= 0; /* will be inited by QueryInterface */
618 return IDirectMusicStyle8Impl_IUnknown_QueryInterface ((LPUNKNOWN
)&obj
->UnknownVtbl
, lpcGUID
, ppobj
);