1 /* IDirectMusicBand 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 "dmband_private.h"
22 WINE_DEFAULT_DEBUG_CHANNEL(dmband
);
23 WINE_DECLARE_DEBUG_CHANNEL(dmfile
);
25 const GUID IID_IDirectMusicBandPRIVATE
= {0xda54db81,0x837d,0x11d1,{0x86,0xbc,0x00,0xc0,0x4f,0xbf,0x8f,0xef}};
27 /*****************************************************************************
28 * IDirectMusicBandImpl implementation
30 /* IDirectMusicBandImpl IUnknown part: */
31 HRESULT WINAPI
IDirectMusicBandImpl_IUnknown_QueryInterface (LPUNKNOWN iface
, REFIID riid
, LPVOID
*ppobj
) {
32 ICOM_THIS_MULTI(IDirectMusicBandImpl
, UnknownVtbl
, iface
);
34 TRACE("(%p, %s, %p)\n", This
, debugstr_dmguid(riid
), ppobj
);
35 if (IsEqualIID (riid
, &IID_IUnknown
)) {
36 *ppobj
= (LPVOID
)&This
->UnknownVtbl
;
37 IDirectMusicBandImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
39 } else if (IsEqualIID (riid
, &IID_IDirectMusicBand
)) {
40 *ppobj
= (LPVOID
)&This
->BandVtbl
;
41 IDirectMusicBandImpl_IDirectMusicBand_AddRef ((LPDIRECTMUSICBAND
)&This
->BandVtbl
);
43 } else if (IsEqualIID (riid
, &IID_IDirectMusicObject
)) {
44 *ppobj
= (LPVOID
)&This
->ObjectVtbl
;
45 IDirectMusicBandImpl_IDirectMusicObject_AddRef ((LPDIRECTMUSICOBJECT
)&This
->ObjectVtbl
);
47 } else if (IsEqualIID (riid
, &IID_IPersistStream
)) {
48 *ppobj
= (LPVOID
)&This
->PersistStreamVtbl
;
49 IDirectMusicBandImpl_IPersistStream_AddRef ((LPPERSISTSTREAM
)&This
->PersistStreamVtbl
);
53 WARN("(%p, %s, %p): not found\n", This
, debugstr_dmguid(riid
), ppobj
);
57 ULONG WINAPI
IDirectMusicBandImpl_IUnknown_AddRef (LPUNKNOWN iface
) {
58 ICOM_THIS_MULTI(IDirectMusicBandImpl
, UnknownVtbl
, iface
);
59 TRACE("(%p) : AddRef from %ld\n", This
, This
->ref
);
63 ULONG WINAPI
IDirectMusicBandImpl_IUnknown_Release (LPUNKNOWN iface
) {
64 ICOM_THIS_MULTI(IDirectMusicBandImpl
, UnknownVtbl
, iface
);
65 ULONG ref
= --This
->ref
;
66 TRACE("(%p) : ReleaseRef to %ld\n", This
, This
->ref
);
68 HeapFree(GetProcessHeap(), 0, This
);
73 IUnknownVtbl DirectMusicBand_Unknown_Vtbl
= {
74 IDirectMusicBandImpl_IUnknown_QueryInterface
,
75 IDirectMusicBandImpl_IUnknown_AddRef
,
76 IDirectMusicBandImpl_IUnknown_Release
79 /* IDirectMusicBandImpl IDirectMusicBand part: */
80 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicBand_QueryInterface (LPDIRECTMUSICBAND iface
, REFIID riid
, LPVOID
*ppobj
) {
81 ICOM_THIS_MULTI(IDirectMusicBandImpl
, BandVtbl
, iface
);
82 return IDirectMusicBandImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
85 ULONG WINAPI
IDirectMusicBandImpl_IDirectMusicBand_AddRef (LPDIRECTMUSICBAND iface
) {
86 ICOM_THIS_MULTI(IDirectMusicBandImpl
, BandVtbl
, iface
);
87 return IDirectMusicBandImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
90 ULONG WINAPI
IDirectMusicBandImpl_IDirectMusicBand_Release (LPDIRECTMUSICBAND iface
) {
91 ICOM_THIS_MULTI(IDirectMusicBandImpl
, BandVtbl
, iface
);
92 return IDirectMusicBandImpl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
95 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicBand_CreateSegment (LPDIRECTMUSICBAND iface
, IDirectMusicSegment
** ppSegment
) {
96 ICOM_THIS_MULTI(IDirectMusicBandImpl
, BandVtbl
, iface
);
97 FIXME("(%p, %p): stub\n", This
, ppSegment
);
101 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicBand_Download (LPDIRECTMUSICBAND iface
, IDirectMusicPerformance
* pPerformance
) {
102 ICOM_THIS_MULTI(IDirectMusicBandImpl
, BandVtbl
, iface
);
103 FIXME("(%p, %p): stub\n", This
, pPerformance
);
107 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicBand_Unload (LPDIRECTMUSICBAND iface
, IDirectMusicPerformance
* pPerformance
) {
108 ICOM_THIS_MULTI(IDirectMusicBandImpl
, BandVtbl
, iface
);
109 FIXME("(%p, %p): stub\n", This
, pPerformance
);
113 IDirectMusicBandVtbl DirectMusicBand_Band_Vtbl
= {
114 IDirectMusicBandImpl_IDirectMusicBand_QueryInterface
,
115 IDirectMusicBandImpl_IDirectMusicBand_AddRef
,
116 IDirectMusicBandImpl_IDirectMusicBand_Release
,
117 IDirectMusicBandImpl_IDirectMusicBand_CreateSegment
,
118 IDirectMusicBandImpl_IDirectMusicBand_Download
,
119 IDirectMusicBandImpl_IDirectMusicBand_Unload
122 /* IDirectMusicBandImpl IDirectMusicObject part: */
123 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicObject_QueryInterface (LPDIRECTMUSICOBJECT iface
, REFIID riid
, LPVOID
*ppobj
) {
124 ICOM_THIS_MULTI(IDirectMusicBandImpl
, ObjectVtbl
, iface
);
125 return IDirectMusicBandImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
128 ULONG WINAPI
IDirectMusicBandImpl_IDirectMusicObject_AddRef (LPDIRECTMUSICOBJECT iface
) {
129 ICOM_THIS_MULTI(IDirectMusicBandImpl
, ObjectVtbl
, iface
);
130 return IDirectMusicBandImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
133 ULONG WINAPI
IDirectMusicBandImpl_IDirectMusicObject_Release (LPDIRECTMUSICOBJECT iface
) {
134 ICOM_THIS_MULTI(IDirectMusicBandImpl
, ObjectVtbl
, iface
);
135 return IDirectMusicBandImpl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
138 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicObject_GetDescriptor (LPDIRECTMUSICOBJECT iface
, LPDMUS_OBJECTDESC pDesc
) {
139 ICOM_THIS_MULTI(IDirectMusicBandImpl
, ObjectVtbl
, iface
);
140 TRACE("(%p, %p)\n", This
, pDesc
);
141 /* I think we shouldn't return pointer here since then values can be changed; it'd be a mess */
142 memcpy (pDesc
, This
->pDesc
, This
->pDesc
->dwSize
);
146 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicObject_SetDescriptor (LPDIRECTMUSICOBJECT iface
, LPDMUS_OBJECTDESC pDesc
) {
147 ICOM_THIS_MULTI(IDirectMusicBandImpl
, ObjectVtbl
, iface
);
148 TRACE("(%p, %p): setting descriptor:\n", This
, pDesc
); debug_DMUS_OBJECTDESC (pDesc
);
150 /* According to MSDN, we should copy only given values, not whole struct */
151 if (pDesc
->dwValidData
& DMUS_OBJ_OBJECT
)
152 memcpy (&This
->pDesc
->guidObject
, &pDesc
->guidObject
, sizeof (pDesc
->guidObject
));
153 if (pDesc
->dwValidData
& DMUS_OBJ_CLASS
)
154 memcpy (&This
->pDesc
->guidClass
, &pDesc
->guidClass
, sizeof (pDesc
->guidClass
));
155 if (pDesc
->dwValidData
& DMUS_OBJ_NAME
)
156 strncpyW (This
->pDesc
->wszName
, pDesc
->wszName
, DMUS_MAX_NAME
);
157 if (pDesc
->dwValidData
& DMUS_OBJ_CATEGORY
)
158 strncpyW (This
->pDesc
->wszCategory
, pDesc
->wszCategory
, DMUS_MAX_CATEGORY
);
159 if (pDesc
->dwValidData
& DMUS_OBJ_FILENAME
)
160 strncpyW (This
->pDesc
->wszFileName
, pDesc
->wszFileName
, DMUS_MAX_FILENAME
);
161 if (pDesc
->dwValidData
& DMUS_OBJ_VERSION
)
162 memcpy (&This
->pDesc
->vVersion
, &pDesc
->vVersion
, sizeof (pDesc
->vVersion
));
163 if (pDesc
->dwValidData
& DMUS_OBJ_DATE
)
164 memcpy (&This
->pDesc
->ftDate
, &pDesc
->ftDate
, sizeof (pDesc
->ftDate
));
165 if (pDesc
->dwValidData
& DMUS_OBJ_MEMORY
) {
166 memcpy (&This
->pDesc
->llMemLength
, &pDesc
->llMemLength
, sizeof (pDesc
->llMemLength
));
167 memcpy (This
->pDesc
->pbMemData
, pDesc
->pbMemData
, sizeof (pDesc
->pbMemData
));
169 if (pDesc
->dwValidData
& DMUS_OBJ_STREAM
) {
170 /* according to MSDN, we copy the stream */
171 IStream_Clone (pDesc
->pStream
, &This
->pDesc
->pStream
);
175 This
->pDesc
->dwValidData
|= pDesc
->dwValidData
;
180 HRESULT WINAPI
IDirectMusicBandImpl_IDirectMusicObject_ParseDescriptor (LPDIRECTMUSICOBJECT iface
, LPSTREAM pStream
, LPDMUS_OBJECTDESC pDesc
) {
181 DMUS_PRIVATE_CHUNK Chunk
;
182 DWORD StreamSize
, StreamCount
, ListSize
[1], ListCount
[1];
183 LARGE_INTEGER liMove
; /* used when skipping chunks */
185 TRACE("(%p, %p)\n", pStream
, pDesc
);
187 /* FIXME: should this be determined from stream? */
188 pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
189 memcpy (&pDesc
->guidClass
, &CLSID_DirectMusicBand
, sizeof(CLSID
));
191 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
192 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
193 switch (Chunk
.fccID
) {
195 IStream_Read (pStream
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
196 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
197 StreamSize
= Chunk
.dwSize
- sizeof(FOURCC
);
199 if (Chunk
.fccID
== DMUS_FOURCC_BAND_FORM
) {
200 TRACE_(dmfile
)(": band form\n");
202 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
203 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
204 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
205 switch (Chunk
.fccID
) {
206 case DMUS_FOURCC_GUID_CHUNK
: {
207 TRACE_(dmfile
)(": GUID chunk\n");
208 pDesc
->dwValidData
|= DMUS_OBJ_OBJECT
;
209 IStream_Read (pStream
, &pDesc
->guidObject
, Chunk
.dwSize
, NULL
);
212 case DMUS_FOURCC_VERSION_CHUNK
: {
213 TRACE_(dmfile
)(": version chunk\n");
214 pDesc
->dwValidData
|= DMUS_OBJ_VERSION
;
215 IStream_Read (pStream
, &pDesc
->vVersion
, Chunk
.dwSize
, NULL
);
218 case DMUS_FOURCC_CATEGORY_CHUNK
: {
219 TRACE_(dmfile
)(": category chunk\n");
220 pDesc
->dwValidData
|= DMUS_OBJ_CATEGORY
;
221 IStream_Read (pStream
, pDesc
->wszCategory
, Chunk
.dwSize
, NULL
);
225 IStream_Read (pStream
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
226 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
227 ListSize
[0] = Chunk
.dwSize
- sizeof(FOURCC
);
229 switch (Chunk
.fccID
) {
230 /* evil M$ UNFO list, which can (!?) contain INFO elements */
231 case DMUS_FOURCC_UNFO_LIST
: {
232 TRACE_(dmfile
)(": UNFO list\n");
234 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
235 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
236 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
237 switch (Chunk
.fccID
) {
238 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
239 (though strings seem to be valid unicode) */
240 case mmioFOURCC('I','N','A','M'):
241 case DMUS_FOURCC_UNAM_CHUNK
: {
242 TRACE_(dmfile
)(": name chunk\n");
243 pDesc
->dwValidData
|= DMUS_OBJ_NAME
;
244 IStream_Read (pStream
, pDesc
->wszName
, Chunk
.dwSize
, NULL
);
247 case mmioFOURCC('I','A','R','T'):
248 case DMUS_FOURCC_UART_CHUNK
: {
249 TRACE_(dmfile
)(": artist chunk (ignored)\n");
250 liMove
.QuadPart
= Chunk
.dwSize
;
251 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
254 case mmioFOURCC('I','C','O','P'):
255 case DMUS_FOURCC_UCOP_CHUNK
: {
256 TRACE_(dmfile
)(": copyright chunk (ignored)\n");
257 liMove
.QuadPart
= Chunk
.dwSize
;
258 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
261 case mmioFOURCC('I','S','B','J'):
262 case DMUS_FOURCC_USBJ_CHUNK
: {
263 TRACE_(dmfile
)(": subject chunk (ignored)\n");
264 liMove
.QuadPart
= Chunk
.dwSize
;
265 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
268 case mmioFOURCC('I','C','M','T'):
269 case DMUS_FOURCC_UCMT_CHUNK
: {
270 TRACE_(dmfile
)(": comment chunk (ignored)\n");
271 liMove
.QuadPart
= Chunk
.dwSize
;
272 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
276 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
277 liMove
.QuadPart
= Chunk
.dwSize
;
278 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
282 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
283 } while (ListCount
[0] < ListSize
[0]);
287 TRACE_(dmfile
)(": unknown (skipping)\n");
288 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
289 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
296 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
297 liMove
.QuadPart
= Chunk
.dwSize
;
298 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
302 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
303 } while (StreamCount
< StreamSize
);
305 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
306 liMove
.QuadPart
= StreamSize
;
307 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
311 TRACE_(dmfile
)(": reading finished\n");
315 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
316 liMove
.QuadPart
= Chunk
.dwSize
;
317 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
318 return DMUS_E_INVALIDFILE
;
322 TRACE(": returning descriptor:\n"); debug_DMUS_OBJECTDESC (pDesc
);
327 IDirectMusicObjectVtbl DirectMusicBand_Object_Vtbl
= {
328 IDirectMusicBandImpl_IDirectMusicObject_QueryInterface
,
329 IDirectMusicBandImpl_IDirectMusicObject_AddRef
,
330 IDirectMusicBandImpl_IDirectMusicObject_Release
,
331 IDirectMusicBandImpl_IDirectMusicObject_GetDescriptor
,
332 IDirectMusicBandImpl_IDirectMusicObject_SetDescriptor
,
333 IDirectMusicBandImpl_IDirectMusicObject_ParseDescriptor
336 /* IDirectMusicBandImpl IPersistStream part: */
337 HRESULT WINAPI
IDirectMusicBandImpl_IPersistStream_QueryInterface (LPPERSISTSTREAM iface
, REFIID riid
, LPVOID
*ppobj
) {
338 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
339 return IDirectMusicBandImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
342 ULONG WINAPI
IDirectMusicBandImpl_IPersistStream_AddRef (LPPERSISTSTREAM iface
) {
343 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
344 return IDirectMusicBandImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
347 ULONG WINAPI
IDirectMusicBandImpl_IPersistStream_Release (LPPERSISTSTREAM iface
) {
348 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
349 return IDirectMusicBandImpl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
352 HRESULT WINAPI
IDirectMusicBandImpl_IPersistStream_GetClassID (LPPERSISTSTREAM iface
, CLSID
* pClassID
) {
353 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
354 TRACE("(%p, %p)\n", This
, pClassID
);
355 memcpy(pClassID
, &CLSID_DirectMusicBand
, sizeof(CLSID
));
359 HRESULT WINAPI
IDirectMusicBandImpl_IPersistStream_IsDirty (LPPERSISTSTREAM iface
) {
360 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
361 FIXME("(%p): stub, always S_FALSE\n", This
);
365 static HRESULT
IDirectMusicBandImpl_IPersistStream_ParseInstrument (LPPERSISTSTREAM iface
, DMUS_PRIVATE_CHUNK
* pChunk
, IStream
* pStm
) {
366 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
367 DMUS_PRIVATE_CHUNK Chunk
;
368 DWORD ListSize
[3], ListCount
[3];
369 LARGE_INTEGER liMove
; /* used when skipping chunks */
372 DMUS_IO_INSTRUMENT inst
;
373 LPDMUS_PRIVATE_INSTRUMENT pNewInstrument
;
374 IDirectMusicObject
* pObject
= NULL
;
376 if (pChunk
->fccID
!= DMUS_FOURCC_INSTRUMENT_LIST
) {
377 ERR_(dmfile
)(": %s chunk should be a INSTRUMENT list\n", debugstr_fourcc (pChunk
->fccID
));
381 ListSize
[0] = pChunk
->dwSize
- sizeof(FOURCC
);
385 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
386 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
387 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
388 switch (Chunk
.fccID
) {
389 case DMUS_FOURCC_INSTRUMENT_CHUNK
: {
390 TRACE_(dmfile
)(": Instrument chunk\n");
391 if (Chunk
.dwSize
!= sizeof(DMUS_IO_INSTRUMENT
)) return E_FAIL
;
392 IStream_Read (pStm
, &inst
, sizeof(DMUS_IO_INSTRUMENT
), NULL
);
393 TRACE_(dmfile
)(" - dwPatch: %lu\n", inst
.dwPatch
);
394 TRACE_(dmfile
)(" - dwAssignPatch: %lu\n", inst
.dwAssignPatch
);
395 TRACE_(dmfile
)(" - dwNoteRanges[0]: %lu\n", inst
.dwNoteRanges
[0]);
396 TRACE_(dmfile
)(" - dwNoteRanges[1]: %lu\n", inst
.dwNoteRanges
[1]);
397 TRACE_(dmfile
)(" - dwNoteRanges[2]: %lu\n", inst
.dwNoteRanges
[2]);
398 TRACE_(dmfile
)(" - dwNoteRanges[3]: %lu\n", inst
.dwNoteRanges
[3]);
399 TRACE_(dmfile
)(" - dwPChannel: %lu\n", inst
.dwPChannel
);
400 TRACE_(dmfile
)(" - dwFlags: %lu\n", inst
.dwFlags
);
401 TRACE_(dmfile
)(" - bPan: %u\n", inst
.bPan
);
402 TRACE_(dmfile
)(" - bVolume: %u\n", inst
.bVolume
);
403 TRACE_(dmfile
)(" - nTranspose: %d\n", inst
.nTranspose
);
404 TRACE_(dmfile
)(" - dwChannelPriority: %lu\n", inst
.dwChannelPriority
);
405 TRACE_(dmfile
)(" - nPitchBendRange: %d\n", inst
.nPitchBendRange
);
409 IStream_Read (pStm
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
410 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
411 ListSize
[1] = Chunk
.dwSize
- sizeof(FOURCC
);
413 switch (Chunk
.fccID
) {
414 case DMUS_FOURCC_REF_LIST
: {
415 FIXME_(dmfile
)(": DMRF (DM References) list\n");
416 hr
= IDirectMusicUtils_IPersistStream_ParseReference (iface
, &Chunk
, pStm
, &pObject
);
418 ERR(": could not load Reference\n");
424 TRACE_(dmfile
)(": unknown (skipping)\n");
425 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
426 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
433 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
434 liMove
.QuadPart
= Chunk
.dwSize
;
435 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
439 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
440 } while (ListCount
[0] < ListSize
[0]);
443 * @TODO insert pNewInstrument into This
445 pNewInstrument
= HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY
, sizeof(DMUS_PRIVATE_INSTRUMENT
));
446 if (NULL
== pNewInstrument
) {
447 ERR(": no more memory\n");
448 return E_OUTOFMEMORY
;
450 memcpy(&pNewInstrument
->pInstrument
, &inst
, sizeof(DMUS_IO_INSTRUMENT
));
451 pNewInstrument
->ppReferenceCollection
= NULL
;
452 if (NULL
!= pObject
) {
453 IDirectMusicCollection
* pCol
= NULL
;
454 hr
= IDirectMusicObject_QueryInterface (pObject
, &IID_IDirectMusicCollection
, (void**) &pCol
);
456 ERR(": failed to get IDirectMusicCollection Interface from DMObject\n");
459 pNewInstrument
->ppReferenceCollection
= pCol
;
460 IDirectMusicObject_Release(pObject
);
462 list_add_tail (&This
->Instruments
, &pNewInstrument
->entry
);
467 static HRESULT
IDirectMusicBandImpl_IPersistStream_ParseInstrumentsList (LPPERSISTSTREAM iface
, DMUS_PRIVATE_CHUNK
* pChunk
, IStream
* pStm
) {
468 /*ICOM_THIS_MULTI(IDirectMusicBandImpl, PersistStreamVtbl, iface);*/
470 DMUS_PRIVATE_CHUNK Chunk
;
471 DWORD ListSize
[3], ListCount
[3];
472 LARGE_INTEGER liMove
; /* used when skipping chunks */
474 if (pChunk
->fccID
!= DMUS_FOURCC_INSTRUMENTS_LIST
) {
475 ERR_(dmfile
)(": %s chunk should be a INSTRUMENTS list\n", debugstr_fourcc (pChunk
->fccID
));
479 ListSize
[0] = pChunk
->dwSize
- sizeof(FOURCC
);
483 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
484 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
485 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
486 switch (Chunk
.fccID
) {
488 IStream_Read (pStm
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
489 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
490 ListSize
[1] = Chunk
.dwSize
- sizeof(FOURCC
);
492 switch (Chunk
.fccID
) {
493 case DMUS_FOURCC_INSTRUMENT_LIST
: {
494 TRACE_(dmfile
)(": Instrument list\n");
495 hr
= IDirectMusicBandImpl_IPersistStream_ParseInstrument (iface
, &Chunk
, pStm
);
496 if (FAILED(hr
)) return hr
;
500 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
501 liMove
.QuadPart
= ListSize
[1];
502 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
509 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
510 liMove
.QuadPart
= Chunk
.dwSize
;
511 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
515 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
516 } while (ListCount
[0] < ListSize
[0]);
521 static HRESULT
IDirectMusicBandImpl_IPersistStream_ParseBandForm (LPPERSISTSTREAM iface
, DMUS_PRIVATE_CHUNK
* pChunk
, IStream
* pStm
) {
523 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
525 DMUS_PRIVATE_CHUNK Chunk
;
526 DWORD StreamSize
, StreamCount
, ListSize
[3], ListCount
[3];
527 LARGE_INTEGER liMove
; /* used when skipping chunks */
531 if (pChunk
->fccID
!= DMUS_FOURCC_BAND_FORM
) {
532 ERR_(dmfile
)(": %s chunk should be a BAND form\n", debugstr_fourcc (pChunk
->fccID
));
536 StreamSize
= pChunk
->dwSize
- sizeof(FOURCC
);
540 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
541 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
542 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
544 hr
= IDirectMusicUtils_IPersistStream_ParseDescGeneric(&Chunk
, pStm
, This
->pDesc
);
545 if (FAILED(hr
)) return hr
;
548 switch (Chunk
.fccID
) {
549 case DMUS_FOURCC_GUID_CHUNK
: {
550 TRACE_(dmfile
)(": GUID\n");
551 IStream_Read (pStm
, &tmp_guid
, sizeof(GUID
), NULL
);
552 TRACE_(dmfile
)(" - guid: %s\n", debugstr_dmguid(&tmp_guid
));
556 IStream_Read (pStm
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
557 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
558 ListSize
[0] = Chunk
.dwSize
- sizeof(FOURCC
);
560 switch (Chunk
.fccID
) {
561 case DMUS_FOURCC_UNFO_LIST
: {
562 TRACE_(dmfile
)(": UNFO list\n");
564 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
565 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
566 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
568 hr
= IDirectMusicUtils_IPersistStream_ParseUNFOGeneric(&Chunk
, pStm
, This
->pDesc
);
569 if (FAILED(hr
)) return hr
;
572 switch (Chunk
.fccID
) {
574 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
575 liMove
.QuadPart
= Chunk
.dwSize
;
576 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
581 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
582 } while (ListCount
[0] < ListSize
[0]);
585 case DMUS_FOURCC_INSTRUMENTS_LIST
: {
586 TRACE_(dmfile
)(": INSTRUMENTS list\n");
587 hr
= IDirectMusicBandImpl_IPersistStream_ParseInstrumentsList (iface
, &Chunk
, pStm
);
588 if (FAILED(hr
)) return hr
;
592 TRACE_(dmfile
)(": unknown (skipping)\n");
593 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
594 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
601 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
602 liMove
.QuadPart
= Chunk
.dwSize
;
603 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
608 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
609 } while (StreamCount
< StreamSize
);
614 HRESULT WINAPI
IDirectMusicBandImpl_IPersistStream_Load (LPPERSISTSTREAM iface
, IStream
* pStm
) {
615 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
617 DMUS_PRIVATE_CHUNK Chunk
;
618 LARGE_INTEGER liMove
;
621 TRACE("(%p,%p): loading\n", This
, pStm
);
623 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
624 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
625 switch (Chunk
.fccID
) {
627 IStream_Read (pStm
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
628 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
629 switch (Chunk
.fccID
) {
630 case DMUS_FOURCC_BAND_FORM
: {
631 TRACE_(dmfile
)(": Band form\n");
632 hr
= IDirectMusicBandImpl_IPersistStream_ParseBandForm (iface
, &Chunk
, pStm
);
633 if (FAILED(hr
)) return hr
;
637 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
638 liMove
.QuadPart
= Chunk
.dwSize
;
639 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
643 TRACE_(dmfile
)(": reading finished\n");
647 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
648 liMove
.QuadPart
= Chunk
.dwSize
;
649 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
657 HRESULT WINAPI
IDirectMusicBandImpl_IPersistStream_Save (LPPERSISTSTREAM iface
, IStream
* pStm
, BOOL fClearDirty
) {
658 ICOM_THIS_MULTI(IDirectMusicBandImpl
, PersistStreamVtbl
, iface
);
659 FIXME("(%p): Saving not implemented yet\n", This
);
663 HRESULT WINAPI
IDirectMusicBandImpl_IPersistStream_GetSizeMax (LPPERSISTSTREAM iface
, ULARGE_INTEGER
* pcbSize
) {
667 IPersistStreamVtbl DirectMusicBand_PersistStream_Vtbl
= {
668 IDirectMusicBandImpl_IPersistStream_QueryInterface
,
669 IDirectMusicBandImpl_IPersistStream_AddRef
,
670 IDirectMusicBandImpl_IPersistStream_Release
,
671 IDirectMusicBandImpl_IPersistStream_GetClassID
,
672 IDirectMusicBandImpl_IPersistStream_IsDirty
,
673 IDirectMusicBandImpl_IPersistStream_Load
,
674 IDirectMusicBandImpl_IPersistStream_Save
,
675 IDirectMusicBandImpl_IPersistStream_GetSizeMax
678 /* for ClassFactory */
679 HRESULT WINAPI
DMUSIC_CreateDirectMusicBandImpl (LPCGUID lpcGUID
, LPVOID
* ppobj
, LPUNKNOWN pUnkOuter
) {
680 IDirectMusicBandImpl
* obj
;
682 obj
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDirectMusicBandImpl
));
685 return E_OUTOFMEMORY
;
687 obj
->UnknownVtbl
= &DirectMusicBand_Unknown_Vtbl
;
688 obj
->BandVtbl
= &DirectMusicBand_Band_Vtbl
;
689 obj
->ObjectVtbl
= &DirectMusicBand_Object_Vtbl
;
690 obj
->PersistStreamVtbl
= &DirectMusicBand_PersistStream_Vtbl
;
691 obj
->pDesc
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(DMUS_OBJECTDESC
));
692 DM_STRUCT_INIT(obj
->pDesc
);
693 obj
->pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
694 memcpy (&obj
->pDesc
->guidClass
, &CLSID_DirectMusicBand
, sizeof (CLSID
));
695 obj
->ref
= 0; /* will be inited by QueryInterface */
696 list_init (&obj
->Instruments
);
698 return IDirectMusicBandImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&obj
->UnknownVtbl
, lpcGUID
, ppobj
);