dlls/dmstyle/chordtrack.c

   1 /* IDirectMusicChordTrack Implementation
   2  *
   3  * Copyright (C) 2003-2004 Rok Mandeljc
   4  * Copyright (C) 2003-2004 Raphael Junqueira
   5  *
   6  * This program is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "dmstyle_private.h"
  22 #include "dmobject.h"
  23
  24 WINE_DEFAULT_DEBUG_CHANNEL(dmstyle);
  25 WINE_DECLARE_DEBUG_CHANNEL(dmfile);
  26
  27 /*****************************************************************************
  28  * IDirectMusicChordTrack implementation
  29  */
  30 typedef struct IDirectMusicChordTrack {
  31     IDirectMusicTrack8 IDirectMusicTrack8_iface;
  32     struct dmobject dmobj;  /* IPersistStream only */
  33     LONG ref;
  34     DWORD dwScale;
  35 }  IDirectMusicChordTrack;
  36
  37 /* IDirectMusicChordTrack IDirectMusicTrack8 part: */
  38 static inline IDirectMusicChordTrack *impl_from_IDirectMusicTrack8(IDirectMusicTrack8 *iface)
  39 {
  40     return CONTAINING_RECORD(iface, IDirectMusicChordTrack, IDirectMusicTrack8_iface);
  41 }
  42
  43 static HRESULT WINAPI chord_track_QueryInterface(IDirectMusicTrack8 *iface, REFIID riid,
  44         void **ret_iface)
  45 {
  46     IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
  47
  48     TRACE("(%p, %s, %p)\n", This, debugstr_dmguid(riid), ret_iface);
  49
  50     *ret_iface = NULL;
  51
  52     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDirectMusicTrack) ||
  53             IsEqualIID(riid, &IID_IDirectMusicTrack8))
  54         *ret_iface = iface;
  55     else if (IsEqualIID(riid, &IID_IPersistStream))
  56         *ret_iface = &This->dmobj.IPersistStream_iface;
  57     else {
  58         WARN("(%p, %s, %p): not found\n", This, debugstr_dmguid(riid), ret_iface);
  59         return E_NOINTERFACE;
  60     }
  61
  62     IUnknown_AddRef((IUnknown*)*ret_iface);
  63     return S_OK;
  64 }
  65
  66 static ULONG WINAPI chord_track_AddRef(IDirectMusicTrack8 *iface)
  67 {
  68     IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
  69     LONG ref = InterlockedIncrement(&This->ref);
  70
  71     TRACE("(%p) ref=%d\n", This, ref);
  72
  73     return ref;
  74 }
  75
  76 static ULONG WINAPI chord_track_Release(IDirectMusicTrack8 *iface)
  77 {
  78     IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
  79     LONG ref = InterlockedDecrement(&This->ref);
  80
  81     TRACE("(%p) ref=%d\n", This, ref);
  82
  83     if (!ref) {
  84         HeapFree(GetProcessHeap(), 0, This);
  85         DMSTYLE_UnlockModule();
  86     }
  87
  88     return ref;
  89 }
  90
  91 static HRESULT WINAPI chord_track_Init(IDirectMusicTrack8 *iface, IDirectMusicSegment *pSegment)
  92 {
  93   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
  94   FIXME("(%p, %p): stub\n", This, pSegment);
  95   return S_OK;
  96 }
  97
  98 static HRESULT WINAPI chord_track_InitPlay(IDirectMusicTrack8 *iface,
  99         IDirectMusicSegmentState *pSegmentState, IDirectMusicPerformance *pPerformance,
 100         void **ppStateData, DWORD dwVirtualTrack8ID, DWORD dwFlags)
 101 {
 102   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 103   FIXME("(%p, %p, %p, %p, %d, %d): stub\n", This, pSegmentState, pPerformance, ppStateData, dwVirtualTrack8ID, dwFlags);
 104   return S_OK;
 105 }
 106
 107 static HRESULT WINAPI chord_track_EndPlay(IDirectMusicTrack8 *iface, void *pStateData)
 108 {
 109   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 110   FIXME("(%p, %p): stub\n", This, pStateData);
 111   return S_OK;
 112 }
 113
 114 static HRESULT WINAPI chord_track_Play(IDirectMusicTrack8 *iface, void *pStateData,
 115         MUSIC_TIME mtStart, MUSIC_TIME mtEnd, MUSIC_TIME mtOffset, DWORD dwFlags,
 116         IDirectMusicPerformance *pPerf, IDirectMusicSegmentState *pSegSt, DWORD dwVirtualID)
 117 {
 118   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 119   FIXME("(%p, %p, %d, %d, %d, %d, %p, %p, %d): stub\n", This, pStateData, mtStart, mtEnd, mtOffset, dwFlags, pPerf, pSegSt, dwVirtualID);
 120   return S_OK;
 121 }
 122
 123 static HRESULT WINAPI chord_track_GetParam(IDirectMusicTrack8 *iface, REFGUID rguidType,
 124         MUSIC_TIME mtTime, MUSIC_TIME *pmtNext, void *pParam)
 125 {
 126     IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 127     FIXME("(%p, %s, %d, %p, %p): stub\n", This, debugstr_dmguid(rguidType), mtTime, pmtNext, pParam);
 128
 129     if (!rguidType)
 130         return E_POINTER;
 131
 132     return S_OK;
 133 }
 134
 135 static HRESULT WINAPI chord_track_SetParam(IDirectMusicTrack8 *iface, REFGUID rguidType,
 136         MUSIC_TIME mtTime, void *pParam)
 137 {
 138   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 139   FIXME("(%p, %s, %d, %p): stub\n", This, debugstr_dmguid(rguidType), mtTime, pParam);
 140   return S_OK;
 141 }
 142
 143 static HRESULT WINAPI chord_track_IsParamSupported(IDirectMusicTrack8 *iface, REFGUID type)
 144 {
 145     IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 146
 147     TRACE("(%p, %s)\n", This, debugstr_dmguid(type));
 148
 149     if (!type)
 150         return E_POINTER;
 151
 152     if (IsEqualGUID(type, &GUID_ChordParam) || IsEqualGUID(type, &GUID_RhythmParam))
 153         return S_OK;
 154
 155     TRACE("param unsupported\n");
 156     return DMUS_E_TYPE_UNSUPPORTED;
 157 }
 158
 159 static HRESULT WINAPI chord_track_AddNotificationType(IDirectMusicTrack8 *iface,
 160         REFGUID rguidNotificationType)
 161 {
 162   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 163   FIXME("(%p, %s): stub\n", This, debugstr_dmguid(rguidNotificationType));
 164   return S_OK;
 165 }
 166
 167 static HRESULT WINAPI chord_track_RemoveNotificationType(IDirectMusicTrack8 *iface,
 168         REFGUID rguidNotificationType)
 169 {
 170   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 171   FIXME("(%p, %s): stub\n", This, debugstr_dmguid(rguidNotificationType));
 172   return S_OK;
 173 }
 174
 175 static HRESULT WINAPI chord_track_Clone(IDirectMusicTrack8 *iface, MUSIC_TIME mtStart,
 176         MUSIC_TIME mtEnd, IDirectMusicTrack **ppTrack)
 177 {
 178   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 179   FIXME("(%p, %d, %d, %p): stub\n", This, mtStart, mtEnd, ppTrack);
 180   return S_OK;
 181 }
 182
 183 static HRESULT WINAPI chord_track_PlayEx(IDirectMusicTrack8 *iface, void *pStateData,
 184         REFERENCE_TIME rtStart, REFERENCE_TIME rtEnd, REFERENCE_TIME rtOffset, DWORD dwFlags,
 185         IDirectMusicPerformance *pPerf, IDirectMusicSegmentState *pSegSt, DWORD dwVirtualID)
 186 {
 187   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 188   FIXME("(%p, %p, 0x%s, 0x%s, 0x%s, %d, %p, %p, %d): stub\n", This, pStateData, wine_dbgstr_longlong(rtStart),
 189       wine_dbgstr_longlong(rtEnd), wine_dbgstr_longlong(rtOffset), dwFlags, pPerf, pSegSt, dwVirtualID);
 190   return S_OK;
 191 }
 192
 193 static HRESULT WINAPI chord_track_GetParamEx(IDirectMusicTrack8 *iface, REFGUID rguidType,
 194         REFERENCE_TIME rtTime, REFERENCE_TIME *prtNext, void *pParam, void *pStateData,
 195         DWORD dwFlags)
 196 {
 197   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 198   FIXME("(%p, %s, 0x%s, %p, %p, %p, %d): stub\n", This, debugstr_dmguid(rguidType),
 199       wine_dbgstr_longlong(rtTime), prtNext, pParam, pStateData, dwFlags);
 200   return S_OK;
 201 }
 202
 203 static HRESULT WINAPI chord_track_SetParamEx(IDirectMusicTrack8 *iface, REFGUID rguidType,
 204         REFERENCE_TIME rtTime, void *pParam, void *pStateData, DWORD dwFlags)
 205 {
 206   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 207   FIXME("(%p, %s, 0x%s, %p, %p, %d): stub\n", This, debugstr_dmguid(rguidType),
 208       wine_dbgstr_longlong(rtTime), pParam, pStateData, dwFlags);
 209   return S_OK;
 210 }
 211
 212 static HRESULT WINAPI chord_track_Compose(IDirectMusicTrack8 *iface, IUnknown *context,
 213         DWORD trackgroup, IDirectMusicTrack **track)
 214 {
 215     IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 216
 217     TRACE("(%p, %p, %d, %p): method not implemented\n", This, context, trackgroup, track);
 218     return E_NOTIMPL;
 219 }
 220
 221 static HRESULT WINAPI chord_track_Join(IDirectMusicTrack8 *iface, IDirectMusicTrack *pNewTrack,
 222         MUSIC_TIME mtJoin, IUnknown *pContext, DWORD dwTrackGroup,
 223         IDirectMusicTrack **ppResultTrack)
 224 {
 225   IDirectMusicChordTrack *This = impl_from_IDirectMusicTrack8(iface);
 226   FIXME("(%p, %p, %d, %p, %d, %p): stub\n", This, pNewTrack, mtJoin, pContext, dwTrackGroup, ppResultTrack);
 227   return S_OK;
 228 }
 229
 230 static const IDirectMusicTrack8Vtbl dmtrack8_vtbl = {
 231     chord_track_QueryInterface,
 232     chord_track_AddRef,
 233     chord_track_Release,
 234     chord_track_Init,
 235     chord_track_InitPlay,
 236     chord_track_EndPlay,
 237     chord_track_Play,
 238     chord_track_GetParam,
 239     chord_track_SetParam,
 240     chord_track_IsParamSupported,
 241     chord_track_AddNotificationType,
 242     chord_track_RemoveNotificationType,
 243     chord_track_Clone,
 244     chord_track_PlayEx,
 245     chord_track_GetParamEx,
 246     chord_track_SetParamEx,
 247     chord_track_Compose,
 248     chord_track_Join
 249 };
 250
 251 static HRESULT parse_chordtrack_list(IDirectMusicChordTrack *This, DMUS_PRIVATE_CHUNK *pChunk,
 252         IStream *pStm)
 253 {
 254   DMUS_PRIVATE_CHUNK Chunk;
 255   DWORD ListSize[3], ListCount[3];
 256   LARGE_INTEGER liMove; /* used when skipping chunks */
 257
 258   if (pChunk->fccID != DMUS_FOURCC_CHORDTRACK_LIST) {
 259     ERR_(dmfile)(": %s chunk should be a CHORDTRACK list\n", debugstr_fourcc (pChunk->fccID));
 260     return E_FAIL;
 261   }
 262
 263   ListSize[0] = pChunk->dwSize - sizeof(FOURCC);
 264   ListCount[0] = 0;
 265
 266   do {
 267     IStream_Read (pStm, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
 268     ListCount[0] += sizeof(FOURCC) + sizeof(DWORD) + Chunk.dwSize;
 269     TRACE_(dmfile)(": %s chunk (size = %d)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
 270     switch (Chunk.fccID) {
 271     case DMUS_FOURCC_CHORDTRACKHEADER_CHUNK: {
 272       TRACE_(dmfile)(": Chord track header chunk\n");
 273       IStream_Read (pStm, &This->dwScale, sizeof(DWORD), NULL);
 274       TRACE_(dmfile)(" - dwScale: %d\n", This->dwScale);
 275       break;
 276     }
 277     case DMUS_FOURCC_CHORDTRACKBODY_CHUNK: {
 278       DWORD sz;
 279       DWORD it;
 280       DWORD num;
 281       DMUS_IO_CHORD body;
 282       DMUS_IO_SUBCHORD subchords;
 283
 284       TRACE_(dmfile)(": Chord track body chunk\n");
 285
 286       IStream_Read (pStm, &sz, sizeof(DWORD), NULL);
 287       TRACE_(dmfile)(" - sizeof(DMUS_IO_CHORD): %d\n", sz);
 288       if (sz != sizeof(DMUS_IO_CHORD)) return E_FAIL;
 289       IStream_Read (pStm, &body, sizeof(DMUS_IO_CHORD), NULL);
 290       TRACE_(dmfile)(" - wszName: %s\n", debugstr_w(body.wszName));
 291       TRACE_(dmfile)(" - mtTime: %u\n", body.mtTime);
 292       TRACE_(dmfile)(" - wMeasure: %u\n", body.wMeasure);
 293       TRACE_(dmfile)(" - bBeat:  %u\n", body.bBeat);
 294       TRACE_(dmfile)(" - bFlags: 0x%02x\n", body.bFlags);
 295
 296       IStream_Read (pStm, &num, sizeof(DWORD), NULL);
 297       TRACE_(dmfile)(" - # DMUS_IO_SUBCHORDS: %d\n", num);
 298       IStream_Read (pStm, &sz, sizeof(DWORD), NULL);
 299       TRACE_(dmfile)(" - sizeof(DMUS_IO_SUBCHORDS): %d\n", sz);
 300       if (sz != sizeof(DMUS_IO_SUBCHORD)) return E_FAIL;
 301
 302       for (it = 0; it < num; ++it) {
 303         IStream_Read (pStm, &subchords, sizeof(DMUS_IO_SUBCHORD), NULL);
 304         TRACE_(dmfile)("DMUS_IO_SUBCHORD #%d\n", it+1);
 305         TRACE_(dmfile)(" - dwChordPattern: %u\n", subchords.dwChordPattern);
 306         TRACE_(dmfile)(" - dwScalePattern: %u\n", subchords.dwScalePattern);
 307         TRACE_(dmfile)(" - dwInversionPoints: %u\n", subchords.dwInversionPoints);
 308         TRACE_(dmfile)(" - dwLevels: %u\n", subchords.dwLevels);
 309         TRACE_(dmfile)(" - bChordRoot:  %u\n", subchords.bChordRoot);
 310         TRACE_(dmfile)(" - bScaleRoot: %u\n", subchords.bScaleRoot);
 311       }
 312       break;
 313     }
 314     default: {
 315       TRACE_(dmfile)(": unknown chunk (irrelevant & skipping)\n");
 316       liMove.QuadPart = Chunk.dwSize;
 317       IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
 318       break;
 319     }
 320     }
 321     TRACE_(dmfile)(": ListCount[0] = %d < ListSize[0] = %d\n", ListCount[0], ListSize[0]);
 322   } while (ListCount[0] < ListSize[0]);
 323
 324   return S_OK;
 325 }
 326
 327 static inline IDirectMusicChordTrack *impl_from_IPersistStream(IPersistStream *iface)
 328 {
 329     return CONTAINING_RECORD(iface, IDirectMusicChordTrack, dmobj.IPersistStream_iface);
 330 }
 331
 332 static HRESULT WINAPI IPersistStreamImpl_Load(IPersistStream *iface, IStream *pStm)
 333 {
 334   IDirectMusicChordTrack *This = impl_from_IPersistStream(iface);
 335   DMUS_PRIVATE_CHUNK Chunk;
 336   LARGE_INTEGER liMove;
 337   HRESULT hr;
 338
 339   TRACE("(%p, %p): Loading\n", This, pStm);
 340
 341   IStream_Read (pStm, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
 342   TRACE_(dmfile)(": %s chunk (size = %d)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
 343   switch (Chunk.fccID) {
 344   case FOURCC_LIST: {
 345     IStream_Read (pStm, &Chunk.fccID, sizeof(FOURCC), NULL);
 346     TRACE_(dmfile)(": %s chunk (size = %d)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
 347     switch (Chunk.fccID) {
 348     case DMUS_FOURCC_CHORDTRACK_LIST: {
 349       TRACE_(dmfile)(": Chord track list\n");
 350       hr = parse_chordtrack_list(This, &Chunk, pStm);
 351       if (FAILED(hr)) return hr;
 352       break;
 353     }
 354     default: {
 355       TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
 356       liMove.QuadPart = Chunk.dwSize;
 357       IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
 358       return E_FAIL;
 359     }
 360     }
 361     TRACE_(dmfile)(": reading finished\n");
 362     break;
 363   }
 364   default: {
 365     TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
 366     liMove.QuadPart = Chunk.dwSize;
 367     IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
 368     return E_FAIL;
 369   }
 370   }
 371
 372   return S_OK;
 373 }
 374
 375 static HRESULT WINAPI IPersistStreamImpl_Save(IPersistStream *iface, IStream *stream,
 376         BOOL cleardirty)
 377 {
 378     IDirectMusicChordTrack *This = impl_from_IPersistStream(iface);
 379
 380     FIXME("(%p, %p, %d): stub\n", This, stream, cleardirty);
 381
 382     if (!stream)
 383         return E_POINTER;
 384
 385     return E_NOTIMPL;
 386 }
 387
 388 static const IPersistStreamVtbl persiststream_vtbl = {
 389     dmobj_IPersistStream_QueryInterface,
 390     dmobj_IPersistStream_AddRef,
 391     dmobj_IPersistStream_Release,
 392     dmobj_IPersistStream_GetClassID,
 393     unimpl_IPersistStream_IsDirty,
 394     IPersistStreamImpl_Load,
 395     IPersistStreamImpl_Save,
 396     unimpl_IPersistStream_GetSizeMax
 397 };
 398
 399 /* for ClassFactory */
 400 HRESULT WINAPI create_dmchordtrack(REFIID lpcGUID, void **ppobj)
 401 {
 402     IDirectMusicChordTrack *track;
 403     HRESULT hr;
 404
 405     track = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*track));
 406     if (!track) {
 407         *ppobj = NULL;
 408         return E_OUTOFMEMORY;
 409     }
 410     track->IDirectMusicTrack8_iface.lpVtbl = &dmtrack8_vtbl;
 411     track->ref = 1;
 412     dmobject_init(&track->dmobj, &CLSID_DirectMusicChordTrack,
 413                   (IUnknown *)&track->IDirectMusicTrack8_iface);
 414     track->dmobj.IPersistStream_iface.lpVtbl = &persiststream_vtbl;
 415
 416     DMSTYLE_LockModule();
 417     hr = IDirectMusicTrack8_QueryInterface(&track->IDirectMusicTrack8_iface, lpcGUID, ppobj);
 418     IDirectMusicTrack8_Release(&track->IDirectMusicTrack8_iface);
 419
 420     return hr;
 421 }