1 /* IDirectMusicScriptTrack Implementation
3 * Copyright (C) 2003 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.
26 #include "wine/debug.h"
28 #include "dmscript_private.h"
30 WINE_DEFAULT_DEBUG_CHANNEL(dmscript);
31 WINE_DECLARE_DEBUG_CHANNEL(dmfile);
33 /*****************************************************************************
34 * IDirectMusicScriptTrack implementation
36 /* IDirectMusicScriptTrack IUnknown part: */
37 HRESULT WINAPI IDirectMusicScriptTrack_QueryInterface (LPDIRECTMUSICTRACK8 iface, REFIID riid, LPVOID *ppobj)
39 ICOM_THIS(IDirectMusicScriptTrack,iface);
41 if (IsEqualIID (riid, &IID_IUnknown) ||
42 IsEqualIID (riid, &IID_IDirectMusicTrack) ||
43 IsEqualIID (riid, &IID_IDirectMusicTrack8)) {
44 IDirectMusicScriptTrack_AddRef(iface);
47 } else if (IsEqualIID (riid, &IID_IPersistStream)) {
48 IDirectMusicScriptTrackStream_AddRef ((LPPERSISTSTREAM)This->pStream);
49 *ppobj = This->pStream;
53 WARN("(%p)->(%s,%p),not found\n", This, debugstr_guid(riid), ppobj);
57 ULONG WINAPI IDirectMusicScriptTrack_AddRef (LPDIRECTMUSICTRACK8 iface)
59 ICOM_THIS(IDirectMusicScriptTrack,iface);
60 TRACE("(%p) : AddRef from %ld\n", This, This->ref);
64 ULONG WINAPI IDirectMusicScriptTrack_Release (LPDIRECTMUSICTRACK8 iface)
66 ICOM_THIS(IDirectMusicScriptTrack,iface);
67 ULONG ref = --This->ref;
68 TRACE("(%p) : ReleaseRef to %ld\n", This, This->ref);
70 HeapFree(GetProcessHeap(), 0, This);
75 /* IDirectMusicScriptTrack IDirectMusicTrack part: */
76 HRESULT WINAPI IDirectMusicScriptTrack_Init (LPDIRECTMUSICTRACK8 iface, IDirectMusicSegment* pSegment)
78 ICOM_THIS(IDirectMusicScriptTrack,iface);
80 FIXME("(%p, %p): stub\n", This, pSegment);
85 HRESULT WINAPI IDirectMusicScriptTrack_InitPlay (LPDIRECTMUSICTRACK8 iface, IDirectMusicSegmentState* pSegmentState, IDirectMusicPerformance* pPerformance, void** ppStateData, DWORD dwVirtualTrack8ID, DWORD dwFlags)
87 ICOM_THIS(IDirectMusicScriptTrack,iface);
89 FIXME("(%p, %p, %p, %p, %ld, %ld): stub\n", This, pSegmentState, pPerformance, ppStateData, dwVirtualTrack8ID, dwFlags);
94 HRESULT WINAPI IDirectMusicScriptTrack_EndPlay (LPDIRECTMUSICTRACK8 iface, void* pStateData)
96 ICOM_THIS(IDirectMusicScriptTrack,iface);
98 FIXME("(%p, %p): stub\n", This, pStateData);
103 HRESULT WINAPI IDirectMusicScriptTrack_Play (LPDIRECTMUSICTRACK8 iface, void* pStateData, MUSIC_TIME mtStart, MUSIC_TIME mtEnd, MUSIC_TIME mtOffset, DWORD dwFlags, IDirectMusicPerformance* pPerf, IDirectMusicSegmentState* pSegSt, DWORD dwVirtualID)
105 ICOM_THIS(IDirectMusicScriptTrack,iface);
107 FIXME("(%p, %p, %ld, %ld, %ld, %ld, %p, %p, %ld): stub\n", This, pStateData, mtStart, mtEnd, mtOffset, dwFlags, pPerf, pSegSt, dwVirtualID);
112 HRESULT WINAPI IDirectMusicScriptTrack_GetParam (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, MUSIC_TIME mtTime, MUSIC_TIME* pmtNext, void* pParam)
114 ICOM_THIS(IDirectMusicScriptTrack,iface);
116 FIXME("(%p, %s, %ld, %p, %p): stub\n", This, debugstr_guid(rguidType), mtTime, pmtNext, pParam);
121 HRESULT WINAPI IDirectMusicScriptTrack_SetParam (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, MUSIC_TIME mtTime, void* pParam)
123 ICOM_THIS(IDirectMusicScriptTrack,iface);
125 FIXME("(%p, %s, %ld, %p): stub\n", This, debugstr_guid(rguidType), mtTime, pParam);
130 HRESULT WINAPI IDirectMusicScriptTrack_IsParamSupported (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType)
132 ICOM_THIS(IDirectMusicScriptTrack,iface);
134 TRACE("(%p, %s): ", This, debugstr_guid(rguidType));
135 /* didn't find any params */
137 TRACE("param unsupported\n");
138 return DMUS_E_TYPE_UNSUPPORTED;
141 HRESULT WINAPI IDirectMusicScriptTrack_AddNotificationType (LPDIRECTMUSICTRACK8 iface, REFGUID rguidNotificationType)
143 ICOM_THIS(IDirectMusicScriptTrack,iface);
145 FIXME("(%p, %s): stub\n", This, debugstr_guid(rguidNotificationType));
150 HRESULT WINAPI IDirectMusicScriptTrack_RemoveNotificationType (LPDIRECTMUSICTRACK8 iface, REFGUID rguidNotificationType)
152 ICOM_THIS(IDirectMusicScriptTrack,iface);
154 FIXME("(%p, %s): stub\n", This, debugstr_guid(rguidNotificationType));
159 HRESULT WINAPI IDirectMusicScriptTrack_Clone (LPDIRECTMUSICTRACK8 iface, MUSIC_TIME mtStart, MUSIC_TIME mtEnd, IDirectMusicTrack** ppTrack)
161 ICOM_THIS(IDirectMusicScriptTrack,iface);
163 FIXME("(%p, %ld, %ld, %p): stub\n", This, mtStart, mtEnd, ppTrack);
168 /* IDirectMusicScriptTrack IDirectMusicTrack8 part: */
169 HRESULT WINAPI IDirectMusicScriptTrack_PlayEx (LPDIRECTMUSICTRACK8 iface, void* pStateData, REFERENCE_TIME rtStart, REFERENCE_TIME rtEnd, REFERENCE_TIME rtOffset, DWORD dwFlags, IDirectMusicPerformance* pPerf, IDirectMusicSegmentState* pSegSt, DWORD dwVirtualID)
171 ICOM_THIS(IDirectMusicScriptTrack,iface);
173 FIXME("(%p, %p, %lli, %lli, %lli, %ld, %p, %p, %ld): stub\n", This, pStateData, rtStart, rtEnd, rtOffset, dwFlags, pPerf, pSegSt, dwVirtualID);
178 HRESULT WINAPI IDirectMusicScriptTrack_GetParamEx (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, REFERENCE_TIME rtTime, REFERENCE_TIME* prtNext, void* pParam, void* pStateData, DWORD dwFlags)
180 ICOM_THIS(IDirectMusicScriptTrack,iface);
182 FIXME("(%p, %s, %lli, %p, %p, %p, %ld): stub\n", This, debugstr_guid(rguidType), rtTime, prtNext, pParam, pStateData, dwFlags);
187 HRESULT WINAPI IDirectMusicScriptTrack_SetParamEx (LPDIRECTMUSICTRACK8 iface, REFGUID rguidType, REFERENCE_TIME rtTime, void* pParam, void* pStateData, DWORD dwFlags)
189 ICOM_THIS(IDirectMusicScriptTrack,iface);
191 FIXME("(%p, %s, %lli, %p, %p, %ld): stub\n", This, debugstr_guid(rguidType), rtTime, pParam, pStateData, dwFlags);
196 HRESULT WINAPI IDirectMusicScriptTrack_Compose (LPDIRECTMUSICTRACK8 iface, IUnknown* pContext, DWORD dwTrackGroup, IDirectMusicTrack** ppResultTrack)
198 ICOM_THIS(IDirectMusicScriptTrack,iface);
200 FIXME("(%p, %p, %ld, %p): stub\n", This, pContext, dwTrackGroup, ppResultTrack);
205 HRESULT WINAPI IDirectMusicScriptTrack_Join (LPDIRECTMUSICTRACK8 iface, IDirectMusicTrack* pNewTrack, MUSIC_TIME mtJoin, IUnknown* pContext, DWORD dwTrackGroup, IDirectMusicTrack** ppResultTrack)
207 ICOM_THIS(IDirectMusicScriptTrack,iface);
209 FIXME("(%p, %p, %ld, %p, %ld, %p): stub\n", This, pNewTrack, mtJoin, pContext, dwTrackGroup, ppResultTrack);
214 ICOM_VTABLE(IDirectMusicTrack8) DirectMusicScriptTrack_Vtbl =
216 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
217 IDirectMusicScriptTrack_QueryInterface,
218 IDirectMusicScriptTrack_AddRef,
219 IDirectMusicScriptTrack_Release,
220 IDirectMusicScriptTrack_Init,
221 IDirectMusicScriptTrack_InitPlay,
222 IDirectMusicScriptTrack_EndPlay,
223 IDirectMusicScriptTrack_Play,
224 IDirectMusicScriptTrack_GetParam,
225 IDirectMusicScriptTrack_SetParam,
226 IDirectMusicScriptTrack_IsParamSupported,
227 IDirectMusicScriptTrack_AddNotificationType,
228 IDirectMusicScriptTrack_RemoveNotificationType,
229 IDirectMusicScriptTrack_Clone,
230 IDirectMusicScriptTrack_PlayEx,
231 IDirectMusicScriptTrack_GetParamEx,
232 IDirectMusicScriptTrack_SetParamEx,
233 IDirectMusicScriptTrack_Compose,
234 IDirectMusicScriptTrack_Join
237 /* for ClassFactory */
238 HRESULT WINAPI DMUSIC_CreateDirectMusicScriptTrack (LPCGUID lpcGUID, LPDIRECTMUSICTRACK8 *ppTrack, LPUNKNOWN pUnkOuter)
240 IDirectMusicScriptTrack* track;
242 if (IsEqualIID (lpcGUID, &IID_IDirectMusicTrack)
243 || IsEqualIID (lpcGUID, &IID_IDirectMusicTrack8)) {
244 track = HeapAlloc (GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirectMusicScriptTrack));
246 *ppTrack = (LPDIRECTMUSICTRACK8) NULL;
247 return E_OUTOFMEMORY;
249 track->lpVtbl = &DirectMusicScriptTrack_Vtbl;
251 track->pStream = HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY, sizeof(IDirectMusicScriptTrackStream));
252 track->pStream->lpVtbl = &DirectMusicScriptTrackStream_Vtbl;
253 track->pStream->ref = 1;
254 track->pStream->pParentTrack = track;
255 *ppTrack = (LPDIRECTMUSICTRACK8) track;
259 WARN("No interface found\n");
260 return E_NOINTERFACE;
264 /*****************************************************************************
265 * IDirectMusicScriptTrackStream implementation
267 /* IDirectMusicScriptTrackStream IUnknown part follow: */
268 HRESULT WINAPI IDirectMusicScriptTrackStream_QueryInterface (LPPERSISTSTREAM iface, REFIID riid, LPVOID *ppobj)
270 ICOM_THIS(IDirectMusicScriptTrackStream,iface);
272 if (IsEqualIID (riid, &IID_IUnknown)
273 || IsEqualIID (riid, &IID_IPersistStream)) {
274 IDirectMusicScriptTrackStream_AddRef(iface);
279 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppobj);
280 return E_NOINTERFACE;
283 ULONG WINAPI IDirectMusicScriptTrackStream_AddRef (LPPERSISTSTREAM iface)
285 ICOM_THIS(IDirectMusicScriptTrackStream,iface);
286 TRACE("(%p) : AddRef from %ld\n", This, This->ref);
287 return ++(This->ref);
290 ULONG WINAPI IDirectMusicScriptTrackStream_Release (LPPERSISTSTREAM iface)
292 ICOM_THIS(IDirectMusicScriptTrackStream,iface);
293 ULONG ref = --This->ref;
294 TRACE("(%p) : ReleaseRef to %ld\n", This, This->ref);
296 HeapFree(GetProcessHeap(), 0, This);
301 /* IDirectMusicScriptTrackStream IPersist part: */
302 HRESULT WINAPI IDirectMusicScriptTrackStream_GetClassID (LPPERSISTSTREAM iface, CLSID* pClassID)
304 *pClassID = CLSID_DirectMusicScriptTrack;
308 /* IDirectMusicScriptTrackStream IPersistStream part: */
309 HRESULT WINAPI IDirectMusicScriptTrackStream_IsDirty (LPPERSISTSTREAM iface)
314 HRESULT WINAPI IDirectMusicScriptTrackStream_Load (LPPERSISTSTREAM iface, IStream* pStm)
316 FIXME(": Loading not implemented yet\n");
320 HRESULT WINAPI IDirectMusicScriptTrackStream_Save (LPPERSISTSTREAM iface, IStream* pStm, BOOL fClearDirty)
325 HRESULT WINAPI IDirectMusicScriptTrackStream_GetSizeMax (LPPERSISTSTREAM iface, ULARGE_INTEGER* pcbSize)
330 ICOM_VTABLE(IPersistStream) DirectMusicScriptTrackStream_Vtbl =
332 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
333 IDirectMusicScriptTrackStream_QueryInterface,
334 IDirectMusicScriptTrackStream_AddRef,
335 IDirectMusicScriptTrackStream_Release,
336 IDirectMusicScriptTrackStream_GetClassID,
337 IDirectMusicScriptTrackStream_IsDirty,
338 IDirectMusicScriptTrackStream_Load,
339 IDirectMusicScriptTrackStream_Save,
340 IDirectMusicScriptTrackStream_GetSizeMax