dlls/dmstyle/chordtrack.c

   1 /* IDirectMusicChordTrack Implementation
   2  *
   3  * Copyright (C) 2003 Rok Mandeljc
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU Library General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18  */
  19
  20 #include <stdarg.h>
  21
  22 #include "windef.h"
  23 #include "winbase.h"
  24 #include "winuser.h"
  25 #include "wingdi.h"
  26 #include "wine/debug.h"
  27 #include "wine/unicode.h"
  28
  29 #include "dmstyle_private.h"
  30
  31 WINE_DEFAULT_DEBUG_CHANNEL(dmstyle);
  32 WINE_DECLARE_DEBUG_CHANNEL(dmfile);
  33
  34 /*****************************************************************************
  35  * IDirectMusicChordTrack implementation
  36  */
  37 /* IDirectMusicChordTrack IUnknown part: */
  38 HRESULT WINAPI IDirectMusicChordTrack_QueryInterface (LPDIRECTMUSICTRACK8 iface, REFIID riid, LPVOID *ppobj)
  39 {
  40         ICOM_THIS(IDirectMusicChordTrack,iface);
  41
  42         if (IsEqualIID (riid, &IID_IUnknown) ||
  43             IsEqualIID (riid, &IID_IDirectMusicTrack) ||
  44             IsEqualIID (riid, &IID_IDirectMusicTrack8)) {
  45                 IDirectMusicChordTrack_AddRef(iface);
  46                 *ppobj = This;
  47                 return S_OK;
  48         } else if (IsEqualIID (riid, &IID_IPersistStream)) {
  49                 IDirectMusicChordTrackStream_AddRef ((LPPERSISTSTREAM)This->pStream);
  50                 *ppobj = This->pStream;
  51                 return S_OK;
  52         }
  53
  54         WARN("(%p)->(%s,%p),not found\n", This, debugstr_guid(riid), ppobj);
  55         return E_NOINTERFACE;
  56 }
  57
  58 ULONG WINAPI IDirectMusicChordTrack_AddRef (LPDIRECTMUSICTRACK8 iface)
  59 {
  60         ICOM_THIS(IDirectMusicChordTrack,iface);
  61         TRACE("(%p) : AddRef from %ld\n", This, This->ref);
  62         return ++(This->ref);
  63 }
  64
  65 ULONG WINAPI IDirectMusicChordTrack_Release (LPDIRECTMUSICTRACK8 iface)
  66 {
  67         ICOM_THIS(IDirectMusicChordTrack,iface);
  68         ULONG ref = --This->ref;
  69         TRACE("(%p) : ReleaseRef to %ld\n", This, This->ref);
  70         if (ref == 0) {
  71                 HeapFree(GetProcessHeap(), 0, This);
  72         }
  73         return ref;
  74 }
  75
  76 /* IDirectMusicChordTrack IDirectMusicTrack part: */
  77 HRESULT WINAPI IDirectMusicChordTrack_Init (LPDIRECTMUSICTRACK8 iface, IDirectMusicSegment* pSegment)
  78 {
  79         ICOM_THIS(IDirectMusicChordTrack,iface);
  80
  81         FIXME("(%p, %p): stub\n", This, pSegment);
  82
  83         return S_OK;
  84 }
  85
  86 HRESULT WINAPI IDirectMusicChordTrack_InitPlay (LPDIRECTMUSICTRACK8 iface, IDirectMusicSegmentState* pSegmentState, IDirectMusicPerformance* pPerformance, void** ppStateData, DWORD dwVirtualTrack8ID, DWORD dwFlags)
  87 {
  88         ICOM_THIS(IDirectMusicChordTrack,iface);
  89
  90         FIXME("(%p, %p, %p, %p, %ld, %ld): stub\n", This, pSegmentState, pPerformance, ppStateData, dwVirtualTrack8ID, dwFlags);
  91
  92         return S_OK;
  93 }
  94
  95 HRESULT WINAPI IDirectMusicChordTrack_EndPlay (LPDIRECTMUSICTRACK8 iface, void* pStateData)
  96 {
  97         ICOM_THIS(IDirectMusicChordTrack,iface);
  98
  99         FIXME("(%p, %p): stub\n", This, pStateData);
 100
 101         return S_OK;
 102 }
 103
 104 HRESULT WINAPI IDirectMusicChordTrack_Play (LPDIRECTMUSICTRACK8 iface, void* pStateData, MUSIC_TIME mtStart, MUSIC_TIME mtEnd, MUSIC_TIME mtOffset, DWORD dwFlags, IDirectMusicPerformance* pPerf, IDirectMusicSegmentState* pSegSt, DWORD dwVirtualID)
 105 {
 106         ICOM_THIS(IDirectMusicChordTrack,iface);
 107
 108         FIXME("(%p, %p, %ld, %ld, %ld, %ld, %p, %p, %ld): stub\n", This, pStateData, mtStart, mtEnd, mtOffset, dwFlags, pPerf, pSegSt, dwVirtualID);
 109
 110         return S_OK;
 111 }
 112
 113 HRESULT WINAPI IDirectMusicChordTrack_GetParam (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, MUSIC_TIME mtTime, MUSIC_TIME* pmtNext, void* pParam)
 114 {
 115         ICOM_THIS(IDirectMusicChordTrack,iface);
 116
 117         FIXME("(%p, %s, %ld, %p, %p): stub\n", This, debugstr_guid(rguidType), mtTime, pmtNext, pParam);
 118
 119         return S_OK;
 120 }
 121
 122 HRESULT WINAPI IDirectMusicChordTrack_SetParam (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, MUSIC_TIME mtTime, void* pParam)
 123 {
 124         ICOM_THIS(IDirectMusicChordTrack,iface);
 125
 126         FIXME("(%p, %s, %ld, %p): stub\n", This, debugstr_guid(rguidType), mtTime, pParam);
 127
 128         return S_OK;
 129 }
 130
 131 HRESULT WINAPI IDirectMusicChordTrack_IsParamSupported (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType)
 132 {
 133         ICOM_THIS(IDirectMusicChordTrack,iface);
 134
 135         TRACE("(%p, %s): ", This, debugstr_guid(rguidType));
 136         if (IsEqualGUID (rguidType, &GUID_BandParam)
 137                 || IsEqualGUID (rguidType, &GUID_ChordParam)
 138                 || IsEqualGUID (rguidType, &GUID_RhythmParam)) {
 139                 TRACE("param supported\n");
 140                 return S_OK;
 141                 }
 142
 143         TRACE("param unsupported\n");
 144         return DMUS_E_TYPE_UNSUPPORTED;
 145 }
 146
 147 HRESULT WINAPI IDirectMusicChordTrack_AddNotificationType (LPDIRECTMUSICTRACK8 iface, REFGUID rguidNotificationType)
 148 {
 149         ICOM_THIS(IDirectMusicChordTrack,iface);
 150
 151         FIXME("(%p, %s): stub\n", This, debugstr_guid(rguidNotificationType));
 152
 153         return S_OK;
 154 }
 155
 156 HRESULT WINAPI IDirectMusicChordTrack_RemoveNotificationType (LPDIRECTMUSICTRACK8 iface, REFGUID rguidNotificationType)
 157 {
 158         ICOM_THIS(IDirectMusicChordTrack,iface);
 159
 160         FIXME("(%p, %s): stub\n", This, debugstr_guid(rguidNotificationType));
 161
 162         return S_OK;
 163 }
 164
 165 HRESULT WINAPI IDirectMusicChordTrack_Clone (LPDIRECTMUSICTRACK8 iface, MUSIC_TIME mtStart, MUSIC_TIME mtEnd, IDirectMusicTrack** ppTrack)
 166 {
 167         ICOM_THIS(IDirectMusicChordTrack,iface);
 168
 169         FIXME("(%p, %ld, %ld, %p): stub\n", This, mtStart, mtEnd, ppTrack);
 170
 171         return S_OK;
 172 }
 173
 174 /* IDirectMusicChordTrack IDirectMusicTrack8 part: */
 175 HRESULT WINAPI IDirectMusicChordTrack_PlayEx (LPDIRECTMUSICTRACK8 iface, void* pStateData, REFERENCE_TIME rtStart, REFERENCE_TIME rtEnd, REFERENCE_TIME rtOffset, DWORD dwFlags, IDirectMusicPerformance* pPerf, IDirectMusicSegmentState* pSegSt, DWORD dwVirtualID)
 176 {
 177         ICOM_THIS(IDirectMusicChordTrack,iface);
 178
 179         FIXME("(%p, %p, %lli, %lli, %lli, %ld, %p, %p, %ld): stub\n", This, pStateData, rtStart, rtEnd, rtOffset, dwFlags, pPerf, pSegSt, dwVirtualID);
 180
 181         return S_OK;
 182 }
 183
 184 HRESULT WINAPI IDirectMusicChordTrack_GetParamEx (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, REFERENCE_TIME rtTime, REFERENCE_TIME* prtNext, void* pParam, void* pStateData, DWORD dwFlags)
 185 {
 186         ICOM_THIS(IDirectMusicChordTrack,iface);
 187
 188         FIXME("(%p, %s, %lli, %p, %p, %p, %ld): stub\n", This, debugstr_guid(rguidType), rtTime, prtNext, pParam, pStateData, dwFlags);
 189
 190         return S_OK;
 191 }
 192
 193 HRESULT WINAPI IDirectMusicChordTrack_SetParamEx (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, REFERENCE_TIME rtTime, void* pParam, void* pStateData, DWORD dwFlags)
 194 {
 195         ICOM_THIS(IDirectMusicChordTrack,iface);
 196
 197         FIXME("(%p, %s, %lli, %p, %p, %ld): stub\n", This, debugstr_guid(rguidType), rtTime, pParam, pStateData, dwFlags);
 198
 199         return S_OK;
 200 }
 201
 202 HRESULT WINAPI IDirectMusicChordTrack_Compose (LPDIRECTMUSICTRACK8 iface, IUnknown* pContext, DWORD dwTrackGroup, IDirectMusicTrack** ppResultTrack)
 203 {
 204         ICOM_THIS(IDirectMusicChordTrack,iface);
 205
 206         FIXME("(%p, %p, %ld, %p): stub\n", This, pContext, dwTrackGroup, ppResultTrack);
 207
 208         return S_OK;
 209 }
 210
 211 HRESULT WINAPI IDirectMusicChordTrack_Join (LPDIRECTMUSICTRACK8 iface, IDirectMusicTrack* pNewTrack, MUSIC_TIME mtJoin, IUnknown* pContext, DWORD dwTrackGroup, IDirectMusicTrack** ppResultTrack)
 212 {
 213         ICOM_THIS(IDirectMusicChordTrack,iface);
 214
 215         FIXME("(%p, %p, %ld, %p, %ld, %p): stub\n", This, pNewTrack, mtJoin, pContext, dwTrackGroup, ppResultTrack);
 216
 217         return S_OK;
 218 }
 219
 220 ICOM_VTABLE(IDirectMusicTrack8) DirectMusicChordTrack_Vtbl =
 221 {
 222     ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
 223         IDirectMusicChordTrack_QueryInterface,
 224         IDirectMusicChordTrack_AddRef,
 225         IDirectMusicChordTrack_Release,
 226         IDirectMusicChordTrack_Init,
 227         IDirectMusicChordTrack_InitPlay,
 228         IDirectMusicChordTrack_EndPlay,
 229         IDirectMusicChordTrack_Play,
 230         IDirectMusicChordTrack_GetParam,
 231         IDirectMusicChordTrack_SetParam,
 232         IDirectMusicChordTrack_IsParamSupported,
 233         IDirectMusicChordTrack_AddNotificationType,
 234         IDirectMusicChordTrack_RemoveNotificationType,
 235         IDirectMusicChordTrack_Clone,
 236         IDirectMusicChordTrack_PlayEx,
 237         IDirectMusicChordTrack_GetParamEx,
 238         IDirectMusicChordTrack_SetParamEx,
 239         IDirectMusicChordTrack_Compose,
 240         IDirectMusicChordTrack_Join
 241 };
 242
 243 /* for ClassFactory */
 244 HRESULT WINAPI DMUSIC_CreateDirectMusicChordTrack (LPCGUID lpcGUID, LPDIRECTMUSICTRACK8 *ppTrack, LPUNKNOWN pUnkOuter)
 245 {
 246         IDirectMusicChordTrack* track;
 247
 248         if (IsEqualIID (lpcGUID, &IID_IDirectMusicTrack)
 249                 || IsEqualIID (lpcGUID, &IID_IDirectMusicTrack8)) {
 250                 track = HeapAlloc (GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirectMusicChordTrack));
 251                 if (NULL == track) {
 252                         *ppTrack = (LPDIRECTMUSICTRACK8) NULL;
 253                         return E_OUTOFMEMORY;
 254                 }
 255                 track->lpVtbl = &DirectMusicChordTrack_Vtbl;
 256                 track->ref = 1;
 257                 track->pStream = HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY, sizeof(IDirectMusicChordTrackStream));
 258                 track->pStream->lpVtbl = &DirectMusicChordTrackStream_Vtbl;
 259                 track->pStream->ref = 1;
 260                 track->pStream->pParentTrack = track;
 261                 *ppTrack = (LPDIRECTMUSICTRACK8) track;
 262                 return S_OK;
 263         }
 264
 265         WARN("No interface found\n");
 266         return E_NOINTERFACE;
 267 }
 268
 269
 270 /*****************************************************************************
 271  * IDirectMusicChordTrackStream implementation
 272  */
 273 /* IDirectMusicChordTrackStream IUnknown part follow: */
 274 HRESULT WINAPI IDirectMusicChordTrackStream_QueryInterface (LPPERSISTSTREAM iface, REFIID riid, LPVOID *ppobj)
 275 {
 276         ICOM_THIS(IDirectMusicChordTrackStream,iface);
 277
 278         if (IsEqualGUID(riid, &IID_IUnknown)
 279                 || IsEqualGUID(riid, &IID_IPersistStream)) {
 280                 IDirectMusicChordTrackStream_AddRef(iface);
 281                 *ppobj = This;
 282                 return S_OK;
 283         }
 284
 285         WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppobj);
 286         return E_NOINTERFACE;
 287 }
 288
 289 ULONG WINAPI IDirectMusicChordTrackStream_AddRef (LPPERSISTSTREAM iface)
 290 {
 291         ICOM_THIS(IDirectMusicChordTrackStream,iface);
 292         TRACE("(%p) : AddRef from %ld\n", This, This->ref);
 293         return ++(This->ref);
 294 }
 295
 296 ULONG WINAPI IDirectMusicChordTrackStream_Release (LPPERSISTSTREAM iface)
 297 {
 298         ICOM_THIS(IDirectMusicChordTrackStream,iface);
 299         ULONG ref = --This->ref;
 300         TRACE("(%p) : ReleaseRef to %ld\n", This, This->ref);
 301         if (ref == 0) {
 302                 HeapFree(GetProcessHeap(), 0, This);
 303         }
 304         return ref;
 305 }
 306
 307 /* IDirectMusicChordTrackStream IPersist part: */
 308 HRESULT WINAPI IDirectMusicChordTrackStream_GetClassID (LPPERSISTSTREAM iface, CLSID* pClassID)
 309 {
 310         return E_NOTIMPL;
 311 }
 312
 313 /* IDirectMusicChordTrackStream IPersistStream part: */
 314 HRESULT WINAPI IDirectMusicChordTrackStream_IsDirty (LPPERSISTSTREAM iface)
 315 {
 316         return E_NOTIMPL;
 317 }
 318
 319 HRESULT WINAPI IDirectMusicChordTrackStream_Load (LPPERSISTSTREAM iface, IStream* pStm)
 320 {
 321         ICOM_THIS(IDirectMusicChordTrackStream,iface);
 322         FOURCC chunkID;
 323         DWORD chunkSize, dwSizeOfStruct, ListSize[1], ListCount[1];
 324         LARGE_INTEGER liMove; /* used when skipping chunks */
 325         IDirectMusicChordTrack* pTrack = This->pParentTrack; /* that's where we load data to */
 326         DMUS_IO_CHORD tempChord; /* temporary, used for reading data */
 327         DWORD tempSubChords;
 328
 329         IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
 330         IStream_Read (pStm, &chunkSize, sizeof(DWORD), NULL);
 331         TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID), chunkSize);
 332         switch (chunkID) {
 333                 case FOURCC_LIST: {
 334                         IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
 335                         TRACE_(dmfile)(": LIST chunk of type %s", debugstr_fourcc(chunkID));
 336                         ListSize[0] = chunkSize - sizeof(FOURCC);
 337                         ListCount[0] = 0;
 338                         switch (chunkID) {
 339                                 case DMUS_FOURCC_CHORDTRACK_LIST: {
 340                                         TRACE_(dmfile)(": chord track list\n");
 341                                         do {
 342                                                 IStream_Read (pStm, &chunkID, sizeof(FOURCC), NULL);
 343                                                 IStream_Read (pStm, &chunkSize, sizeof(FOURCC), NULL);
 344                                                 ListCount[0] += sizeof(FOURCC) + sizeof(DWORD) + chunkSize;
 345                                                 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (chunkID), chunkSize);
 346                                                 switch (chunkID) {
 347                                                         case DMUS_FOURCC_CHORDTRACKHEADER_CHUNK: {
 348                                                                 TRACE_(dmfile)(": chord track header chunk\n");
 349                                                                 IStream_Read (pStm, &pTrack->dwHeader, chunkSize, NULL);
 350                                                                 TRACE_(dmfile)(": (READ): header: chord root = %i; chord scale = %i\n", (pTrack->dwHeader && 0xFF000000) >> 24, pTrack->dwHeader && 0x00FFFFFF);
 351                                                                 break;
 352                                                         }
 353                                                         case DMUS_FOURCC_CHORDTRACKBODY_CHUNK: {
 354                                                                 TRACE_(dmfile)(": chord track body chunk\n");
 355                                                                 /* make space for one more structure */
 356                                                                 /* pTrack->dwChordKeys++; */ /* moved at the end for correct counting */
 357                                                                 /* FIXME: scheme with HeapReAlloc doesn't work so.. */
 358                                                                 /* pTrack->pChordKeys = HeapReAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY, pTrack->pChordKeys, sizeof(DMUS_CHORD_KEY) * pTrack->dwChordKeys); */
 359                                                                 /* pTrack->pChordKeysTime = HeapReAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY, pTrack->pChordKeysTime, sizeof(MUSIC_TIME) *pTrack->dwChordKeys); */
 360                                                                 /* load size of DMUS_IO_CHORD */
 361                                                                 IStream_Read (pStm, &dwSizeOfStruct, sizeof(DWORD), NULL);
 362                                                                 if (dwSizeOfStruct != sizeof(DMUS_IO_CHORD)) {
 363                                                                         TRACE_(dmfile)(": declared size of struct (=%ld) != actual size (=%i); loading failed\n", dwSizeOfStruct, sizeof(DMUS_IO_CHORD));
 364                                                                         return E_FAIL;
 365                                                                 }
 366                                                                 /* reset temporary storage and fill it with data */
 367                                                                 ZeroMemory (&tempChord, sizeof(DMUS_IO_CHORD));
 368                                                                 IStream_Read (pStm, &tempChord, dwSizeOfStruct, NULL);
 369                                                                 /* copy data to final destination */
 370                                                                 strncpyW (pTrack->pChordKeys[pTrack->dwChordKeys].wszName, tempChord.wszName, 16);
 371                                                                 /*pTrack->pChordKeys[pTrack->dwChordKeys].wszName = tempChord.wszName; */
 372                                                                 pTrack->pChordKeys[pTrack->dwChordKeys].wMeasure = tempChord.wMeasure;
 373                                                                 pTrack->pChordKeys[pTrack->dwChordKeys].bBeat = tempChord.bBeat;
 374                                                                 pTrack->pChordKeys[pTrack->dwChordKeys].bFlags = tempChord.bFlags;
 375                                                                 /* this one is my invention */
 376                                                                 pTrack->pChordKeysTime[pTrack->dwChordKeys] = tempChord.mtTime;
 377                                                                 /* FIXME: are these two are derived from header? */
 378                                                                 pTrack->pChordKeys[pTrack->dwChordKeys].dwScale = pTrack->dwHeader && 0x00FFFFFF;
 379                                                                 pTrack->pChordKeys[pTrack->dwChordKeys].bKey = (pTrack->dwHeader && 0xFF000000) >> 24;
 380                                                                 /* now here comes number of subchords */
 381                                                                 IStream_Read (pStm, &tempSubChords, sizeof(DWORD), NULL);
 382                                                                 pTrack->pChordKeys[pTrack->dwChordKeys].bSubChordCount = tempSubChords;
 383                                                                 /* load size of DMUS_IO_SUBCHORD */
 384                                                                 IStream_Read (pStm, &dwSizeOfStruct, sizeof(DWORD), NULL);
 385                                                                 if (dwSizeOfStruct != sizeof(DMUS_IO_SUBCHORD)) {
 386                                                                         TRACE_(dmfile)(": declared size of struct (=%ld) != actual size (=%i); loading failed\n", dwSizeOfStruct, sizeof(DMUS_IO_SUBCHORD));
 387                                                                         return E_FAIL;
 388                                                                 }
 389                                                                 IStream_Read (pStm, pTrack->pChordKeys[pTrack->dwChordKeys].SubChordList, dwSizeOfStruct * tempSubChords, NULL);
 390                                                                 /* well, this should be it :) */
 391                                                                 pTrack->dwChordKeys++;
 392                                                                 break;
 393                                                         }
 394                                                         default: {
 395                                                                 TRACE_(dmfile)(": unknown chunk (skipping)\n");
 396                                                                 liMove.QuadPart = chunkSize;
 397                                                                 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip this chunk */
 398                                                                 break;
 399                                                         }
 400                                                 }
 401                                                 TRACE_(dmfile)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount[0], ListSize[0]);
 402                                         } while (ListCount[0] < ListSize[0]);
 403                                         break;
 404                                 }
 405                                 default: {
 406                                         TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
 407                                         liMove.QuadPart = ListSize[0];
 408                                         IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
 409                                         return E_FAIL;
 410                                 }
 411                         }
 412                         /* in the end, let's see what we got */
 413                         TRACE_(dmfile)(": reading finished\n");
 414                         if (TRACE_ON(dmfile)) {
 415                                 int i,j;
 416                                 TRACE_(dmfile)(": (READ): number of chord keys in track = %ld\n", pTrack->dwChordKeys);
 417                                 for (i = 0; i < pTrack->dwChordKeys; i++) {
 418                                         TRACE_(dmfile)(": (READ): chord key[%i]: associated mtTime = %li\n", i, pTrack->pChordKeysTime[i]);
 419                                         TRACE_(dmfile)(": (READ): chord key[%i]: wszName = %s; wMeasure = %d; bBeat = %i; dwScale = %ld; \
 420 bKey = %i; bFlags = %i; bSubChordCount = %i\n", i, debugstr_w (pTrack->pChordKeys[i].wszName), \
 421                                         pTrack->pChordKeys[i].wMeasure, pTrack->pChordKeys[i].bBeat, pTrack->pChordKeys[i].dwScale, \
 422                                         pTrack->pChordKeys[i].bKey, pTrack->pChordKeys[i].bFlags, pTrack->pChordKeys[i].bSubChordCount);
 423                                         for (j = 0; j < pTrack->pChordKeys[i].bSubChordCount; j++) {
 424                                                 TRACE_(dmfile)(": (READ): chord key[%i]: subchord[%i]:  dwChordPattern = %ld; \
 425 dwScalePattern = %ld; dwInversionPoints = %ld; dwLevels = %ld; bChordRoot = %i; \
 426 bScaleRoot = %i\n", i, j, pTrack->pChordKeys[i].SubChordList[j].dwChordPattern, \
 427                                                 pTrack->pChordKeys[i].SubChordList[j].dwScalePattern, pTrack->pChordKeys[i].SubChordList[j].dwInversionPoints, \
 428                                                 pTrack->pChordKeys[i].SubChordList[j].dwLevels, pTrack->pChordKeys[i].SubChordList[j].bChordRoot, \
 429                                                 pTrack->pChordKeys[i].SubChordList[j].bScaleRoot);
 430                                         }
 431                                 }
 432                         }
 433                         break;
 434                 }
 435                 default: {
 436                         TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
 437                         liMove.QuadPart = chunkSize;
 438                         IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
 439                         return E_FAIL;
 440                 }
 441         }
 442
 443         return S_OK;
 444 }
 445
 446 HRESULT WINAPI IDirectMusicChordTrackStream_Save (LPPERSISTSTREAM iface, IStream* pStm, BOOL fClearDirty)
 447 {
 448         return E_NOTIMPL;
 449 }
 450
 451 HRESULT WINAPI IDirectMusicChordTrackStream_GetSizeMax (LPPERSISTSTREAM iface, ULARGE_INTEGER* pcbSize)
 452 {
 453         return E_NOTIMPL;
 454 }
 455
 456 ICOM_VTABLE(IPersistStream) DirectMusicChordTrackStream_Vtbl =
 457 {
 458     ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
 459         IDirectMusicChordTrackStream_QueryInterface,
 460         IDirectMusicChordTrackStream_AddRef,
 461         IDirectMusicChordTrackStream_Release,
 462         IDirectMusicChordTrackStream_GetClassID,
 463         IDirectMusicChordTrackStream_IsDirty,
 464         IDirectMusicChordTrackStream_Load,
 465         IDirectMusicChordTrackStream_Save,
 466         IDirectMusicChordTrackStream_GetSizeMax
 467 };