1 /* IDirectMusicChordMap 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 "dmcompos_private.h"
22 WINE_DEFAULT_DEBUG_CHANNEL(dmcompos
);
23 WINE_DECLARE_DEBUG_CHANNEL(dmfile
);
25 /*****************************************************************************
26 * IDirectMusicChordMapImpl implementation
28 /* IDirectMusicChordMapImpl IUnknown part: */
29 HRESULT WINAPI
IDirectMusicChordMapImpl_IUnknown_QueryInterface (LPUNKNOWN iface
, REFIID riid
, LPVOID
*ppobj
) {
30 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, 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 IDirectMusicChordMapImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
37 } else if (IsEqualIID (riid
, &IID_IDirectMusicChordMap
)) {
38 *ppobj
= (LPVOID
)&This
->ChordMapVtbl
;
39 IDirectMusicChordMapImpl_IDirectMusicChordMap_AddRef ((LPDIRECTMUSICCHORDMAP
)&This
->ChordMapVtbl
);
41 } else if (IsEqualIID (riid
, &IID_IDirectMusicObject
)) {
42 *ppobj
= (LPVOID
)&This
->ObjectVtbl
;
43 IDirectMusicChordMapImpl_IDirectMusicObject_AddRef ((LPDIRECTMUSICOBJECT
)&This
->ObjectVtbl
);
45 } else if (IsEqualIID (riid
, &IID_IPersistStream
)) {
46 *ppobj
= (LPVOID
)&This
->PersistStreamVtbl
;
47 IDirectMusicChordMapImpl_IPersistStream_AddRef ((LPPERSISTSTREAM
)&This
->PersistStreamVtbl
);
51 WARN("(%p, %s, %p): not found\n", This
, debugstr_dmguid(riid
), ppobj
);
55 ULONG WINAPI
IDirectMusicChordMapImpl_IUnknown_AddRef (LPUNKNOWN iface
) {
56 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, UnknownVtbl
, iface
);
57 TRACE("(%p): AddRef from %ld\n", This
, This
->ref
);
61 ULONG WINAPI
IDirectMusicChordMapImpl_IUnknown_Release (LPUNKNOWN iface
) {
62 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, UnknownVtbl
, iface
);
63 ULONG ref
= --This
->ref
;
64 TRACE("(%p): ReleaseRef to %ld\n", This
, This
->ref
);
66 HeapFree(GetProcessHeap(), 0, This
);
71 IUnknownVtbl DirectMusicChordMap_Unknown_Vtbl
= {
72 IDirectMusicChordMapImpl_IUnknown_QueryInterface
,
73 IDirectMusicChordMapImpl_IUnknown_AddRef
,
74 IDirectMusicChordMapImpl_IUnknown_Release
77 /* IDirectMusicChordMapImpl IDirectMusicChordMap part: */
78 HRESULT WINAPI
IDirectMusicChordMapImpl_IDirectMusicChordMap_QueryInterface (LPDIRECTMUSICCHORDMAP iface
, REFIID riid
, LPVOID
*ppobj
) {
79 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ChordMapVtbl
, iface
);
80 return IDirectMusicChordMapImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
83 ULONG WINAPI
IDirectMusicChordMapImpl_IDirectMusicChordMap_AddRef (LPDIRECTMUSICCHORDMAP iface
) {
84 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ChordMapVtbl
, iface
);
85 return IDirectMusicChordMapImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
88 ULONG WINAPI
IDirectMusicChordMapImpl_IDirectMusicChordMap_Release (LPDIRECTMUSICCHORDMAP iface
) {
89 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ChordMapVtbl
, iface
);
90 return IDirectMusicChordMapImpl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
93 HRESULT WINAPI
IDirectMusicChordMapImpl_IDirectMusicChordMap_GetScale (LPDIRECTMUSICCHORDMAP iface
, DWORD
* pdwScale
) {
94 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ChordMapVtbl
, iface
);
95 FIXME("(%p, %p): stub\n", This
, pdwScale
);
99 IDirectMusicChordMapVtbl DirectMusicChordMap_ChordMap_Vtbl
= {
100 IDirectMusicChordMapImpl_IDirectMusicChordMap_QueryInterface
,
101 IDirectMusicChordMapImpl_IDirectMusicChordMap_AddRef
,
102 IDirectMusicChordMapImpl_IDirectMusicChordMap_Release
,
103 IDirectMusicChordMapImpl_IDirectMusicChordMap_GetScale
106 /* IDirectMusicChordMapImpl IDirectMusicObject part: */
107 HRESULT WINAPI
IDirectMusicChordMapImpl_IDirectMusicObject_QueryInterface (LPDIRECTMUSICOBJECT iface
, REFIID riid
, LPVOID
*ppobj
) {
108 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ObjectVtbl
, iface
);
109 return IDirectMusicChordMapImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
112 ULONG WINAPI
IDirectMusicChordMapImpl_IDirectMusicObject_AddRef (LPDIRECTMUSICOBJECT iface
) {
113 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ObjectVtbl
, iface
);
114 return IDirectMusicChordMapImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
117 ULONG WINAPI
IDirectMusicChordMapImpl_IDirectMusicObject_Release (LPDIRECTMUSICOBJECT iface
) {
118 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ObjectVtbl
, iface
);
119 return IDirectMusicChordMapImpl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
122 HRESULT WINAPI
IDirectMusicChordMapImpl_IDirectMusicObject_GetDescriptor (LPDIRECTMUSICOBJECT iface
, LPDMUS_OBJECTDESC pDesc
) {
123 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ObjectVtbl
, iface
);
124 TRACE("(%p, %p)\n", This
, pDesc
);
125 /* I think we shouldn't return pointer here since then values can be changed; it'd be a mess */
126 memcpy (pDesc
, This
->pDesc
, This
->pDesc
->dwSize
);
130 HRESULT WINAPI
IDirectMusicChordMapImpl_IDirectMusicObject_SetDescriptor (LPDIRECTMUSICOBJECT iface
, LPDMUS_OBJECTDESC pDesc
) {
131 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, ObjectVtbl
, iface
);
132 TRACE("(%p, %p): setting descriptor:\n%s\n", This
, pDesc
, debugstr_DMUS_OBJECTDESC (pDesc
));
134 /* According to MSDN, we should copy only given values, not whole struct */
135 if (pDesc
->dwValidData
& DMUS_OBJ_OBJECT
)
136 memcpy (&This
->pDesc
->guidObject
, &pDesc
->guidObject
, sizeof (pDesc
->guidObject
));
137 if (pDesc
->dwValidData
& DMUS_OBJ_CLASS
)
138 memcpy (&This
->pDesc
->guidClass
, &pDesc
->guidClass
, sizeof (pDesc
->guidClass
));
139 if (pDesc
->dwValidData
& DMUS_OBJ_NAME
)
140 strncpyW (This
->pDesc
->wszName
, pDesc
->wszName
, DMUS_MAX_NAME
);
141 if (pDesc
->dwValidData
& DMUS_OBJ_CATEGORY
)
142 strncpyW (This
->pDesc
->wszCategory
, pDesc
->wszCategory
, DMUS_MAX_CATEGORY
);
143 if (pDesc
->dwValidData
& DMUS_OBJ_FILENAME
)
144 strncpyW (This
->pDesc
->wszFileName
, pDesc
->wszFileName
, DMUS_MAX_FILENAME
);
145 if (pDesc
->dwValidData
& DMUS_OBJ_VERSION
)
146 memcpy (&This
->pDesc
->vVersion
, &pDesc
->vVersion
, sizeof (pDesc
->vVersion
));
147 if (pDesc
->dwValidData
& DMUS_OBJ_DATE
)
148 memcpy (&This
->pDesc
->ftDate
, &pDesc
->ftDate
, sizeof (pDesc
->ftDate
));
149 if (pDesc
->dwValidData
& DMUS_OBJ_MEMORY
) {
150 memcpy (&This
->pDesc
->llMemLength
, &pDesc
->llMemLength
, sizeof (pDesc
->llMemLength
));
151 memcpy (This
->pDesc
->pbMemData
, pDesc
->pbMemData
, sizeof (pDesc
->pbMemData
));
153 if (pDesc
->dwValidData
& DMUS_OBJ_STREAM
) {
154 /* according to MSDN, we copy the stream */
155 IStream_Clone (pDesc
->pStream
, &This
->pDesc
->pStream
);
159 This
->pDesc
->dwValidData
|= pDesc
->dwValidData
;
164 HRESULT WINAPI
IDirectMusicChordMapImpl_IDirectMusicObject_ParseDescriptor (LPDIRECTMUSICOBJECT iface
, LPSTREAM pStream
, LPDMUS_OBJECTDESC pDesc
) {
165 DMUS_PRIVATE_CHUNK Chunk
;
166 DWORD StreamSize
, StreamCount
, ListSize
[1], ListCount
[1];
167 LARGE_INTEGER liMove
; /* used when skipping chunks */
169 TRACE("(%p, %p)\n", pStream
, pDesc
);
171 /* FIXME: should this be determined from stream? */
172 pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
173 memcpy (&pDesc
->guidClass
, &CLSID_DirectMusicChordMap
, sizeof(CLSID
));
175 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
176 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
177 switch (Chunk
.fccID
) {
179 IStream_Read (pStream
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
180 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
181 StreamSize
= Chunk
.dwSize
- sizeof(FOURCC
);
183 if (Chunk
.fccID
== DMUS_FOURCC_CHORDMAP_FORM
) {
184 TRACE_(dmfile
)(": chord map form\n");
186 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
187 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
188 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
189 switch (Chunk
.fccID
) {
190 case DMUS_FOURCC_GUID_CHUNK
: {
191 TRACE_(dmfile
)(": GUID chunk\n");
192 pDesc
->dwValidData
|= DMUS_OBJ_OBJECT
;
193 IStream_Read (pStream
, &pDesc
->guidObject
, Chunk
.dwSize
, NULL
);
196 case DMUS_FOURCC_VERSION_CHUNK
: {
197 TRACE_(dmfile
)(": version chunk\n");
198 pDesc
->dwValidData
|= DMUS_OBJ_VERSION
;
199 IStream_Read (pStream
, &pDesc
->vVersion
, Chunk
.dwSize
, NULL
);
202 case DMUS_FOURCC_CATEGORY_CHUNK
: {
203 TRACE_(dmfile
)(": category chunk\n");
204 pDesc
->dwValidData
|= DMUS_OBJ_CATEGORY
;
205 IStream_Read (pStream
, pDesc
->wszCategory
, Chunk
.dwSize
, NULL
);
209 IStream_Read (pStream
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
210 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
211 ListSize
[0] = Chunk
.dwSize
- sizeof(FOURCC
);
213 switch (Chunk
.fccID
) {
214 /* evil M$ UNFO list, which can (!?) contain INFO elements */
215 case DMUS_FOURCC_UNFO_LIST
: {
216 TRACE_(dmfile
)(": UNFO list\n");
218 IStream_Read (pStream
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
219 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
220 TRACE_(dmfile
)(": %s chunk (size = 0x%04lx)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
221 switch (Chunk
.fccID
) {
222 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
223 (though strings seem to be valid unicode) */
224 case mmioFOURCC('I','N','A','M'):
225 case DMUS_FOURCC_UNAM_CHUNK
: {
226 TRACE_(dmfile
)(": name chunk\n");
227 pDesc
->dwValidData
|= DMUS_OBJ_NAME
;
228 IStream_Read (pStream
, pDesc
->wszName
, Chunk
.dwSize
, NULL
);
231 case mmioFOURCC('I','A','R','T'):
232 case DMUS_FOURCC_UART_CHUNK
: {
233 TRACE_(dmfile
)(": artist chunk (ignored)\n");
234 liMove
.QuadPart
= Chunk
.dwSize
;
235 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
238 case mmioFOURCC('I','C','O','P'):
239 case DMUS_FOURCC_UCOP_CHUNK
: {
240 TRACE_(dmfile
)(": copyright chunk (ignored)\n");
241 liMove
.QuadPart
= Chunk
.dwSize
;
242 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
245 case mmioFOURCC('I','S','B','J'):
246 case DMUS_FOURCC_USBJ_CHUNK
: {
247 TRACE_(dmfile
)(": subject chunk (ignored)\n");
248 liMove
.QuadPart
= Chunk
.dwSize
;
249 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
252 case mmioFOURCC('I','C','M','T'):
253 case DMUS_FOURCC_UCMT_CHUNK
: {
254 TRACE_(dmfile
)(": comment chunk (ignored)\n");
255 liMove
.QuadPart
= Chunk
.dwSize
;
256 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
260 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
261 liMove
.QuadPart
= Chunk
.dwSize
;
262 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
266 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
267 } while (ListCount
[0] < ListSize
[0]);
271 TRACE_(dmfile
)(": unknown (skipping)\n");
272 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
273 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
280 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
281 liMove
.QuadPart
= Chunk
.dwSize
;
282 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
286 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
287 } while (StreamCount
< StreamSize
);
290 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
291 liMove
.QuadPart
= StreamSize
;
292 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
296 TRACE_(dmfile
)(": reading finished\n");
300 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
301 liMove
.QuadPart
= Chunk
.dwSize
;
302 IStream_Seek (pStream
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
303 return DMUS_E_INVALIDFILE
;
307 TRACE(": returning descriptor:\n%s\n", debugstr_DMUS_OBJECTDESC (pDesc
));
312 IDirectMusicObjectVtbl DirectMusicChordMap_Object_Vtbl
= {
313 IDirectMusicChordMapImpl_IDirectMusicObject_QueryInterface
,
314 IDirectMusicChordMapImpl_IDirectMusicObject_AddRef
,
315 IDirectMusicChordMapImpl_IDirectMusicObject_Release
,
316 IDirectMusicChordMapImpl_IDirectMusicObject_GetDescriptor
,
317 IDirectMusicChordMapImpl_IDirectMusicObject_SetDescriptor
,
318 IDirectMusicChordMapImpl_IDirectMusicObject_ParseDescriptor
322 /* IDirectMusicChordMapImpl IPersistStream part: */
323 HRESULT WINAPI
IDirectMusicChordMapImpl_IPersistStream_QueryInterface (LPPERSISTSTREAM iface
, REFIID riid
, LPVOID
*ppobj
) {
324 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, PersistStreamVtbl
, iface
);
325 return IDirectMusicChordMapImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&This
->UnknownVtbl
, riid
, ppobj
);
328 ULONG WINAPI
IDirectMusicChordMapImpl_IPersistStream_AddRef (LPPERSISTSTREAM iface
) {
329 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, PersistStreamVtbl
, iface
);
330 return IDirectMusicChordMapImpl_IUnknown_AddRef ((LPUNKNOWN
)&This
->UnknownVtbl
);
333 ULONG WINAPI
IDirectMusicChordMapImpl_IPersistStream_Release (LPPERSISTSTREAM iface
) {
334 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, PersistStreamVtbl
, iface
);
335 return IDirectMusicChordMapImpl_IUnknown_Release ((LPUNKNOWN
)&This
->UnknownVtbl
);
338 HRESULT WINAPI
IDirectMusicChordMapImpl_IPersistStream_GetClassID (LPPERSISTSTREAM iface
, CLSID
* pClassID
) {
342 HRESULT WINAPI
IDirectMusicChordMapImpl_IPersistStream_IsDirty (LPPERSISTSTREAM iface
) {
346 HRESULT WINAPI
IDirectMusicChordMapImpl_IPersistStream_Load (LPPERSISTSTREAM iface
, IStream
* pStm
) {
347 ICOM_THIS_MULTI(IDirectMusicChordMapImpl
, PersistStreamVtbl
, iface
);
350 DWORD chunkSize
, StreamSize
, StreamCount
, ListSize
[3], ListCount
[3];
351 LARGE_INTEGER liMove
; /* used when skipping chunks */
353 FIXME("(%p, %p): Loading not implemented yet\n", This
, pStm
);
354 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
355 IStream_Read (pStm
, &chunkSize
, sizeof(DWORD
), NULL
);
356 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID
), chunkSize
);
359 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
360 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(chunkID
));
361 StreamSize
= chunkSize
- sizeof(FOURCC
);
364 case DMUS_FOURCC_CHORDMAP_FORM
: {
365 TRACE_(dmfile
)(": chordmap form\n");
367 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
368 IStream_Read (pStm
, &chunkSize
, sizeof(FOURCC
), NULL
);
369 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + chunkSize
;
370 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID
), chunkSize
);
372 case DMUS_FOURCC_GUID_CHUNK
: {
373 TRACE_(dmfile
)(": GUID chunk\n");
374 This
->pDesc
->dwValidData
|= DMUS_OBJ_OBJECT
;
375 IStream_Read (pStm
, &This
->pDesc
->guidObject
, chunkSize
, NULL
);
378 case DMUS_FOURCC_VERSION_CHUNK
: {
379 TRACE_(dmfile
)(": version chunk\n");
380 This
->pDesc
->dwValidData
|= DMUS_OBJ_VERSION
;
381 IStream_Read (pStm
, &This
->pDesc
->vVersion
, chunkSize
, NULL
);
384 case DMUS_FOURCC_CATEGORY_CHUNK
: {
385 TRACE_(dmfile
)(": category chunk\n");
386 This
->pDesc
->dwValidData
|= DMUS_OBJ_CATEGORY
;
387 IStream_Read (pStm
, This
->pDesc
->wszCategory
, chunkSize
, NULL
);
391 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
392 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(chunkID
));
393 ListSize
[0] = chunkSize
- sizeof(FOURCC
);
396 case DMUS_FOURCC_UNFO_LIST
: {
397 TRACE_(dmfile
)(": UNFO list\n");
399 IStream_Read (pStm
, &chunkID
, sizeof(FOURCC
), NULL
);
400 IStream_Read (pStm
, &chunkSize
, sizeof(FOURCC
), NULL
);
401 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + chunkSize
;
402 TRACE_(dmfile
)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID
), chunkSize
);
404 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
405 (though strings seem to be valid unicode) */
406 case mmioFOURCC('I','N','A','M'):
407 case DMUS_FOURCC_UNAM_CHUNK
: {
408 TRACE_(dmfile
)(": name chunk\n");
409 This
->pDesc
->dwValidData
|= DMUS_OBJ_NAME
;
410 IStream_Read (pStm
, This
->pDesc
->wszName
, chunkSize
, NULL
);
413 case mmioFOURCC('I','A','R','T'):
414 case DMUS_FOURCC_UART_CHUNK
: {
415 TRACE_(dmfile
)(": artist chunk (ignored)\n");
416 liMove
.QuadPart
= chunkSize
;
417 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
420 case mmioFOURCC('I','C','O','P'):
421 case DMUS_FOURCC_UCOP_CHUNK
: {
422 TRACE_(dmfile
)(": copyright chunk (ignored)\n");
423 liMove
.QuadPart
= chunkSize
;
424 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
427 case mmioFOURCC('I','S','B','J'):
428 case DMUS_FOURCC_USBJ_CHUNK
: {
429 TRACE_(dmfile
)(": subject chunk (ignored)\n");
430 liMove
.QuadPart
= chunkSize
;
431 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
434 case mmioFOURCC('I','C','M','T'):
435 case DMUS_FOURCC_UCMT_CHUNK
: {
436 TRACE_(dmfile
)(": comment chunk (ignored)\n");
437 liMove
.QuadPart
= chunkSize
;
438 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
442 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
443 liMove
.QuadPart
= chunkSize
;
444 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
448 TRACE_(dmfile
)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount
[0], ListSize
[0]);
449 } while (ListCount
[0] < ListSize
[0]);
453 TRACE_(dmfile
)(": unknown (skipping)\n");
454 liMove
.QuadPart
= chunkSize
- sizeof(FOURCC
);
455 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
462 TRACE_(dmfile
)(": unknown chunk (irrevelant & skipping)\n");
463 liMove
.QuadPart
= chunkSize
;
464 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
468 TRACE_(dmfile
)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount
, StreamSize
);
469 } while (StreamCount
< StreamSize
);
473 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
474 liMove
.QuadPart
= StreamSize
;
475 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
479 TRACE_(dmfile
)(": reading finished\n");
483 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
484 liMove
.QuadPart
= chunkSize
;
485 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
493 HRESULT WINAPI
IDirectMusicChordMapImpl_IPersistStream_Save (LPPERSISTSTREAM iface
, IStream
* pStm
, BOOL fClearDirty
) {
497 HRESULT WINAPI
IDirectMusicChordMapImpl_IPersistStream_GetSizeMax (LPPERSISTSTREAM iface
, ULARGE_INTEGER
* pcbSize
) {
501 IPersistStreamVtbl DirectMusicChordMap_PersistStream_Vtbl
= {
502 IDirectMusicChordMapImpl_IPersistStream_QueryInterface
,
503 IDirectMusicChordMapImpl_IPersistStream_AddRef
,
504 IDirectMusicChordMapImpl_IPersistStream_Release
,
505 IDirectMusicChordMapImpl_IPersistStream_GetClassID
,
506 IDirectMusicChordMapImpl_IPersistStream_IsDirty
,
507 IDirectMusicChordMapImpl_IPersistStream_Load
,
508 IDirectMusicChordMapImpl_IPersistStream_Save
,
509 IDirectMusicChordMapImpl_IPersistStream_GetSizeMax
512 /* for ClassFactory */
513 HRESULT WINAPI
DMUSIC_CreateDirectMusicChordMapImpl (LPCGUID lpcGUID
, LPVOID
* ppobj
, LPUNKNOWN pUnkOuter
) {
514 IDirectMusicChordMapImpl
* obj
;
516 obj
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDirectMusicChordMapImpl
));
518 *ppobj
= (LPVOID
) NULL
;
519 return E_OUTOFMEMORY
;
521 obj
->UnknownVtbl
= &DirectMusicChordMap_Unknown_Vtbl
;
522 obj
->ChordMapVtbl
= &DirectMusicChordMap_ChordMap_Vtbl
;
523 obj
->ObjectVtbl
= &DirectMusicChordMap_Object_Vtbl
;
524 obj
->PersistStreamVtbl
= &DirectMusicChordMap_PersistStream_Vtbl
;
525 obj
->pDesc
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(DMUS_OBJECTDESC
));
526 DM_STRUCT_INIT(obj
->pDesc
);
527 obj
->pDesc
->dwValidData
|= DMUS_OBJ_CLASS
;
528 memcpy (&obj
->pDesc
->guidClass
, &CLSID_DirectMusicChordMap
, sizeof (CLSID
));
529 obj
->ref
= 0; /* will be inited by QueryInterface */
531 return IDirectMusicChordMapImpl_IUnknown_QueryInterface ((LPUNKNOWN
)&obj
->UnknownVtbl
, lpcGUID
, ppobj
);