dlls/dmime/seqtrack.c

   1 /*
   2  * Copyright (C) 2003-2004 Rok Mandeljc
   3  *
   4  * This program is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "dmime_private.h"
  20
  21 WINE_DEFAULT_DEBUG_CHANNEL(dmime);
  22
  23 struct sequence_track
  24 {
  25     IDirectMusicTrack8 IDirectMusicTrack8_iface;
  26     struct dmobject dmobj;  /* IPersistStream only */
  27     LONG ref;
  28
  29     DMUS_IO_SEQ_ITEM *items;
  30     unsigned int count;
  31
  32     DMUS_IO_CURVE_ITEM *curve_items;
  33     unsigned int curve_count;
  34 };
  35
  36 static inline struct sequence_track *impl_from_IDirectMusicTrack8(IDirectMusicTrack8 *iface)
  37 {
  38     return CONTAINING_RECORD(iface, struct sequence_track, IDirectMusicTrack8_iface);
  39 }
  40
  41 static HRESULT WINAPI sequence_track_QueryInterface(IDirectMusicTrack8 *iface, REFIID riid,
  42         void **ret_iface)
  43 {
  44     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
  45
  46     TRACE("(%p, %s, %p)\n", This, debugstr_dmguid(riid), ret_iface);
  47
  48     *ret_iface = NULL;
  49
  50     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDirectMusicTrack) ||
  51             IsEqualIID(riid, &IID_IDirectMusicTrack8))
  52         *ret_iface = iface;
  53     else if (IsEqualIID(riid, &IID_IPersistStream))
  54         *ret_iface = &This->dmobj.IPersistStream_iface;
  55     else {
  56         WARN("(%p, %s, %p): not found\n", This, debugstr_dmguid(riid), ret_iface);
  57         return E_NOINTERFACE;
  58     }
  59
  60     IUnknown_AddRef((IUnknown*)*ret_iface);
  61     return S_OK;
  62 }
  63
  64 static ULONG WINAPI sequence_track_AddRef(IDirectMusicTrack8 *iface)
  65 {
  66     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
  67     LONG ref = InterlockedIncrement(&This->ref);
  68
  69     TRACE("(%p) ref=%ld\n", This, ref);
  70
  71     return ref;
  72 }
  73
  74 static ULONG WINAPI sequence_track_Release(IDirectMusicTrack8 *iface)
  75 {
  76     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
  77     LONG ref = InterlockedDecrement(&This->ref);
  78
  79     TRACE("(%p) ref=%ld\n", This, ref);
  80
  81     if (!ref) {
  82         free(This);
  83     }
  84
  85     return ref;
  86 }
  87
  88 static HRESULT WINAPI sequence_track_Init(IDirectMusicTrack8 *iface, IDirectMusicSegment *pSegment)
  89 {
  90         struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
  91         FIXME("(%p, %p): stub\n", This, pSegment);
  92         return S_OK;
  93 }
  94
  95 static HRESULT WINAPI sequence_track_InitPlay(IDirectMusicTrack8 *iface,
  96         IDirectMusicSegmentState *pSegmentState, IDirectMusicPerformance *pPerformance,
  97         void **ppStateData, DWORD dwVirtualTrack8ID, DWORD dwFlags)
  98 {
  99         struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 100         FIXME("(%p, %p, %p, %p, %ld, %ld): stub\n", This, pSegmentState, pPerformance, ppStateData, dwVirtualTrack8ID, dwFlags);
 101         return S_OK;
 102 }
 103
 104 static HRESULT WINAPI sequence_track_EndPlay(IDirectMusicTrack8 *iface, void *pStateData)
 105 {
 106         struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 107         FIXME("(%p, %p): stub\n", This, pStateData);
 108         return S_OK;
 109 }
 110
 111 static HRESULT WINAPI sequence_track_Play(IDirectMusicTrack8 *iface, void *state_data,
 112         MUSIC_TIME start_time, MUSIC_TIME end_time, MUSIC_TIME time_offset, DWORD segment_flags,
 113         IDirectMusicPerformance *performance, IDirectMusicSegmentState *segment_state, DWORD track_id)
 114 {
 115     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 116     IDirectMusicGraph *graph;
 117     HRESULT hr;
 118     UINT i;
 119
 120     TRACE("(%p, %p, %ld, %ld, %ld, %#lx, %p, %p, %ld)\n", This, state_data, start_time, end_time,
 121             time_offset, segment_flags, performance, segment_state, track_id);
 122
 123     if (segment_flags) FIXME("segment_flags %#lx not implemented\n", segment_flags);
 124     if (segment_state) FIXME("segment_state %p not implemented\n", segment_state);
 125
 126     if (FAILED(hr = IDirectMusicPerformance_QueryInterface(performance,
 127             &IID_IDirectMusicGraph, (void **)&graph)))
 128         return hr;
 129
 130     for (i = 0; SUCCEEDED(hr) &&i < This->count; i++)
 131     {
 132         DMUS_IO_SEQ_ITEM *item = This->items + i;
 133         DMUS_NOTE_PMSG *msg;
 134
 135         if (item->mtTime < start_time) continue;
 136         if (item->mtTime >= end_time) continue;
 137
 138         if (FAILED(hr = IDirectMusicPerformance_AllocPMsg(performance, sizeof(*msg),
 139                 (DMUS_PMSG **)&msg)))
 140             break;
 141
 142         msg->mtTime = item->mtTime + time_offset;
 143         msg->dwFlags = DMUS_PMSGF_MUSICTIME;
 144         msg->dwPChannel = item->dwPChannel;
 145         msg->dwVirtualTrackID = track_id;
 146         msg->dwType = DMUS_PMSGT_NOTE;
 147         msg->dwGroupID = 1;
 148         msg->mtDuration = item->mtDuration;
 149         msg->wMusicValue = item->bByte1;
 150         msg->nOffset = item->nOffset;
 151         msg->bVelocity = item->bByte2;
 152         msg->bFlags = 1;
 153         msg->bMidiValue = item->bByte1;
 154
 155         if (FAILED(hr = IDirectMusicGraph_StampPMsg(graph, (DMUS_PMSG *)msg))
 156                 || FAILED(hr = IDirectMusicPerformance_SendPMsg(performance, (DMUS_PMSG *)msg)))
 157         {
 158             IDirectMusicPerformance_FreePMsg(performance, (DMUS_PMSG *)msg);
 159             break;
 160         }
 161     }
 162
 163     for (i = 0; SUCCEEDED(hr) &&i < This->curve_count; i++)
 164     {
 165         DMUS_IO_CURVE_ITEM *item = This->curve_items + i;
 166         DMUS_CURVE_PMSG *msg;
 167
 168         if (item->mtStart < start_time) continue;
 169         if (item->mtStart >= end_time) continue;
 170
 171         if (FAILED(hr = IDirectMusicPerformance_AllocPMsg(performance, sizeof(*msg),
 172                 (DMUS_PMSG **)&msg)))
 173             break;
 174
 175         msg->mtTime = item->mtStart + time_offset;
 176         msg->dwFlags = DMUS_PMSGF_MUSICTIME;
 177         msg->dwPChannel = item->dwPChannel;
 178         msg->dwVirtualTrackID = track_id;
 179         msg->dwType = DMUS_PMSGT_CURVE;
 180         msg->mtDuration = item->mtDuration;
 181         msg->mtOriginalStart = item->mtStart;
 182         msg->mtResetDuration = item->mtResetDuration;
 183         msg->nStartValue = item->nStartValue;
 184         msg->nEndValue = item->nEndValue;
 185         msg->nResetValue = item->nResetValue;
 186         msg->nOffset = item->nOffset;
 187         msg->bType = item->bType;
 188         msg->bCurveShape = item->bCurveShape;
 189         msg->bCCData = item->bCCData;
 190         msg->bFlags = item->bFlags;
 191         msg->wParamType = item->wParamType;
 192         msg->wMergeIndex = item->wMergeIndex;
 193
 194         if (FAILED(hr = IDirectMusicGraph_StampPMsg(graph, (DMUS_PMSG *)msg))
 195                 || FAILED(hr = IDirectMusicPerformance_SendPMsg(performance, (DMUS_PMSG *)msg)))
 196         {
 197             IDirectMusicPerformance_FreePMsg(performance, (DMUS_PMSG *)msg);
 198             break;
 199         }
 200     }
 201
 202     IDirectMusicGraph_Release(graph);
 203     return hr;
 204 }
 205
 206 static HRESULT WINAPI sequence_track_GetParam(IDirectMusicTrack8 *iface, REFGUID type,
 207         MUSIC_TIME time, MUSIC_TIME *next, void *param)
 208 {
 209     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 210
 211     TRACE("(%p, %s, %ld, %p, %p): method not implemented\n", This, debugstr_dmguid(type), time,
 212             next, param);
 213     return E_NOTIMPL;
 214 }
 215
 216 static HRESULT WINAPI sequence_track_SetParam(IDirectMusicTrack8 *iface, REFGUID type,
 217         MUSIC_TIME time, void *param)
 218 {
 219     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 220
 221     TRACE("(%p, %s, %ld, %p): method not implemented\n", This, debugstr_dmguid(type), time, param);
 222     return E_NOTIMPL;
 223 }
 224
 225 static HRESULT WINAPI sequence_track_IsParamSupported(IDirectMusicTrack8 *iface, REFGUID type)
 226 {
 227     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 228
 229     TRACE("(%p, %s): method not implemented\n", This, debugstr_dmguid(type));
 230     return E_NOTIMPL;
 231 }
 232
 233 static HRESULT WINAPI sequence_track_AddNotificationType(IDirectMusicTrack8 *iface,
 234         REFGUID notiftype)
 235 {
 236     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 237
 238     TRACE("(%p, %s): method not implemented\n", This, debugstr_dmguid(notiftype));
 239     return E_NOTIMPL;
 240 }
 241
 242 static HRESULT WINAPI sequence_track_RemoveNotificationType(IDirectMusicTrack8 *iface,
 243         REFGUID notiftype)
 244 {
 245     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 246
 247     TRACE("(%p, %s): method not implemented\n", This, debugstr_dmguid(notiftype));
 248     return E_NOTIMPL;
 249 }
 250
 251 static HRESULT WINAPI sequence_track_Clone(IDirectMusicTrack8 *iface, MUSIC_TIME mtStart,
 252         MUSIC_TIME mtEnd, IDirectMusicTrack **ppTrack)
 253 {
 254         struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 255         FIXME("(%p, %ld, %ld, %p): stub\n", This, mtStart, mtEnd, ppTrack);
 256         return S_OK;
 257 }
 258
 259 static HRESULT WINAPI sequence_track_PlayEx(IDirectMusicTrack8 *iface, void *pStateData,
 260         REFERENCE_TIME rtStart, REFERENCE_TIME rtEnd, REFERENCE_TIME rtOffset, DWORD dwFlags,
 261         IDirectMusicPerformance *pPerf, IDirectMusicSegmentState *pSegSt, DWORD dwVirtualID)
 262 {
 263         struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 264         FIXME("(%p, %p, 0x%s, 0x%s, 0x%s, %ld, %p, %p, %ld): stub\n", This, pStateData, wine_dbgstr_longlong(rtStart),
 265             wine_dbgstr_longlong(rtEnd), wine_dbgstr_longlong(rtOffset), dwFlags, pPerf, pSegSt, dwVirtualID);
 266         return S_OK;
 267 }
 268
 269 static HRESULT WINAPI sequence_track_GetParamEx(IDirectMusicTrack8 *iface, REFGUID type,
 270         REFERENCE_TIME time, REFERENCE_TIME *next, void *param, void *state, DWORD flags)
 271 {
 272     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 273
 274     TRACE("(%p, %s, %s, %p, %p, %p, %lx): method not implemented\n", This, debugstr_dmguid(type),
 275             wine_dbgstr_longlong(time), next, param, state, flags);
 276     return E_NOTIMPL;
 277 }
 278
 279 static HRESULT WINAPI sequence_track_SetParamEx(IDirectMusicTrack8 *iface, REFGUID type,
 280         REFERENCE_TIME time, void *param, void *state, DWORD flags)
 281 {
 282     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 283
 284     TRACE("(%p, %s, %s, %p, %p, %lx): method not implemented\n", This, debugstr_dmguid(type),
 285             wine_dbgstr_longlong(time), param, state, flags);
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI sequence_track_Compose(IDirectMusicTrack8 *iface, IUnknown *context,
 290         DWORD trackgroup, IDirectMusicTrack **track)
 291 {
 292     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 293
 294     TRACE("(%p, %p, %ld, %p): method not implemented\n", This, context, trackgroup, track);
 295     return E_NOTIMPL;
 296 }
 297
 298 static HRESULT WINAPI sequence_track_Join(IDirectMusicTrack8 *iface, IDirectMusicTrack *newtrack,
 299         MUSIC_TIME join, IUnknown *context, DWORD trackgroup, IDirectMusicTrack **resulttrack)
 300 {
 301     struct sequence_track *This = impl_from_IDirectMusicTrack8(iface);
 302     TRACE("(%p, %p, %ld, %p, %ld, %p): method not implemented\n", This, newtrack, join, context,
 303             trackgroup, resulttrack);
 304     return E_NOTIMPL;
 305 }
 306
 307 static const IDirectMusicTrack8Vtbl dmtrack8_vtbl = {
 308     sequence_track_QueryInterface,
 309     sequence_track_AddRef,
 310     sequence_track_Release,
 311     sequence_track_Init,
 312     sequence_track_InitPlay,
 313     sequence_track_EndPlay,
 314     sequence_track_Play,
 315     sequence_track_GetParam,
 316     sequence_track_SetParam,
 317     sequence_track_IsParamSupported,
 318     sequence_track_AddNotificationType,
 319     sequence_track_RemoveNotificationType,
 320     sequence_track_Clone,
 321     sequence_track_PlayEx,
 322     sequence_track_GetParamEx,
 323     sequence_track_SetParamEx,
 324     sequence_track_Compose,
 325     sequence_track_Join
 326 };
 327
 328 static HRESULT parse_curl_list(struct sequence_track *This, IStream *stream, struct chunk_entry *chunk)
 329 {
 330     HRESULT hr;
 331     UINT i;
 332
 333     if (FAILED(hr = stream_chunk_get_array(stream, chunk, (void **)&This->curve_items,
 334             &This->curve_count, sizeof(*This->curve_items))))
 335     {
 336         /* try again with the older DMUS_IO_CURVE_ITEM size */
 337         UINT size = offsetof(DMUS_IO_CURVE_ITEM, wParamType);
 338         BYTE *buffer;
 339
 340         if (FAILED(hr = stream_reset_chunk_data(stream, chunk))) return hr;
 341         if (FAILED(hr = stream_chunk_get_array(stream, chunk, (void **)&buffer,
 342                 &This->curve_count, size)))
 343             return hr;
 344
 345         if (!(This->curve_items = calloc(This->curve_count, sizeof(*This->curve_items)))) return E_OUTOFMEMORY;
 346         for (i = 0; i < This->curve_count; i++) memcpy(This->curve_items + i, buffer + size * i, size);
 347         free(buffer);
 348     }
 349
 350     return S_OK;
 351 }
 352
 353 static HRESULT parse_seqt_chunk(struct sequence_track *This, IStream *stream, struct chunk_entry *parent)
 354 {
 355     struct chunk_entry chunk = {.parent = parent};
 356     HRESULT hr;
 357
 358     while ((hr = stream_next_chunk(stream, &chunk)) == S_OK)
 359     {
 360         switch (MAKE_IDTYPE(chunk.id, chunk.type))
 361         {
 362         case DMUS_FOURCC_SEQ_LIST:
 363             hr = stream_chunk_get_array(stream, &chunk, (void **)&This->items,
 364                     &This->count, sizeof(*This->items));
 365             break;
 366
 367         case DMUS_FOURCC_CURVE_LIST:
 368             hr = parse_curl_list(This, stream, &chunk);
 369             break;
 370
 371         default:
 372             FIXME("Ignoring chunk %s %s\n", debugstr_fourcc(chunk.id), debugstr_fourcc(chunk.type));
 373             break;
 374         }
 375
 376         if (FAILED(hr)) break;
 377     }
 378
 379     return hr;
 380 }
 381
 382 static inline struct sequence_track *impl_from_IPersistStream(IPersistStream *iface)
 383 {
 384     return CONTAINING_RECORD(iface, struct sequence_track, dmobj.IPersistStream_iface);
 385 }
 386
 387 static HRESULT WINAPI track_IPersistStream_Load(IPersistStream *iface, IStream *stream)
 388 {
 389     struct sequence_track *This = impl_from_IPersistStream(iface);
 390     struct chunk_entry chunk = {0};
 391     HRESULT hr;
 392
 393     TRACE("(%p, %p)\n", This, stream);
 394
 395     if ((hr = stream_get_chunk(stream, &chunk)) == S_OK)
 396     {
 397         switch (MAKE_IDTYPE(chunk.id, chunk.type))
 398         {
 399         case DMUS_FOURCC_SEQ_TRACK:
 400             hr = parse_seqt_chunk(This, stream, &chunk);
 401             break;
 402
 403         default:
 404             WARN("Invalid seq track chunk %s %s\n", debugstr_fourcc(chunk.id), debugstr_fourcc(chunk.type));
 405             hr = DMUS_E_UNSUPPORTED_STREAM;
 406             break;
 407         }
 408     }
 409
 410     stream_skip_chunk(stream, &chunk);
 411     if (FAILED(hr)) return hr;
 412
 413     if (TRACE_ON(dmime))
 414     {
 415         UINT i;
 416
 417         TRACE("Loaded DirectMusicSeqTrack %p\n", This);
 418
 419         TRACE("- %u items:\n", This->count);
 420         for (i = 0; i < This->count; i++)
 421         {
 422             TRACE("    - DMUS_IO_SEQ_ITEM[%u]\n", i);
 423             TRACE("      - mtTime: %ld\n", This->items[i].mtTime);
 424             TRACE("      - mtDuration: %ld\n", This->items[i].mtDuration);
 425             TRACE("      - dwPChannel: %ld\n", This->items[i].dwPChannel);
 426             TRACE("      - nOffset: %d\n", This->items[i].nOffset);
 427             TRACE("      - bStatus: %d\n", This->items[i].bStatus);
 428             TRACE("      - bByte1: %#x\n", This->items[i].bByte1);
 429             TRACE("      - bByte2: %#x\n", This->items[i].bByte2);
 430         }
 431
 432         TRACE("- %u curves:\n", This->curve_count);
 433         for (i = 0; i < This->curve_count; i++)
 434         {
 435             TRACE("    - DMUS_IO_CURVE_ITEM[%u]\n", i);
 436             TRACE("      - mtStart: %ld\n", This->curve_items[i].mtStart);
 437             TRACE("      - mtDuration: %ld\n", This->curve_items[i].mtDuration);
 438             TRACE("      - mtResetDuration: %ld\n", This->curve_items[i].mtResetDuration);
 439             TRACE("      - dwPChannel: %ld\n", This->curve_items[i].dwPChannel);
 440             TRACE("      - nOffset: %d\n", This->curve_items[i].nOffset);
 441             TRACE("      - nStartValue: %d\n", This->curve_items[i].nStartValue);
 442             TRACE("      - nEndValue: %d\n", This->curve_items[i].nEndValue);
 443             TRACE("      - nResetValue: %d\n", This->curve_items[i].nResetValue);
 444             TRACE("      - bType: %d\n", This->curve_items[i].bType);
 445             TRACE("      - bCurveShape: %d\n", This->curve_items[i].bCurveShape);
 446             TRACE("      - bCCData: %d\n", This->curve_items[i].bCCData);
 447             TRACE("      - bFlags: %d\n", This->curve_items[i].bFlags);
 448             TRACE("      - wParamType: %d\n", This->curve_items[i].wParamType);
 449             TRACE("      - wMergeIndex: %d\n", This->curve_items[i].wMergeIndex);
 450         }
 451     }
 452
 453     return S_OK;
 454 }
 455
 456 static const IPersistStreamVtbl persiststream_vtbl = {
 457     dmobj_IPersistStream_QueryInterface,
 458     dmobj_IPersistStream_AddRef,
 459     dmobj_IPersistStream_Release,
 460     dmobj_IPersistStream_GetClassID,
 461     unimpl_IPersistStream_IsDirty,
 462     track_IPersistStream_Load,
 463     unimpl_IPersistStream_Save,
 464     unimpl_IPersistStream_GetSizeMax
 465 };
 466
 467 /* for ClassFactory */
 468 HRESULT create_dmseqtrack(REFIID lpcGUID, void **ppobj)
 469 {
 470     struct sequence_track *track;
 471     HRESULT hr;
 472
 473     *ppobj = NULL;
 474     if (!(track = calloc(1, sizeof(*track)))) return E_OUTOFMEMORY;
 475     track->IDirectMusicTrack8_iface.lpVtbl = &dmtrack8_vtbl;
 476     track->ref = 1;
 477     dmobject_init(&track->dmobj, &CLSID_DirectMusicSeqTrack,
 478                   (IUnknown *)&track->IDirectMusicTrack8_iface);
 479     track->dmobj.IPersistStream_iface.lpVtbl = &persiststream_vtbl;
 480
 481     hr = IDirectMusicTrack8_QueryInterface(&track->IDirectMusicTrack8_iface, lpcGUID, ppobj);
 482     IDirectMusicTrack8_Release(&track->IDirectMusicTrack8_iface);
 483
 484     return hr;
 485 }