?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
mfplat/sample: Refactor sample_CopyToBuffer().
[wine.git] / dlls / dmscript / script.c
blob01d4bcd0290ac97834173d877d630c2946b11a01
1 /* IDirectMusicScript
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
22 #include <stdio.h>
23
24 #include "dmscript_private.h"
25 #include "dmobject.h"
26
27 WINE_DEFAULT_DEBUG_CHANNEL(dmscript);
28 WINE_DECLARE_DEBUG_CHANNEL(dmfile);
29
30
31 /*****************************************************************************
32 * IDirectMusicScriptImpl implementation
33 */
34 typedef struct IDirectMusicScriptImpl {
35 IDirectMusicScript IDirectMusicScript_iface;
36 struct dmobject dmobj;
37 LONG ref;
38 IDirectMusicPerformance *pPerformance;
39 DMUS_IO_SCRIPT_HEADER *pHeader;
40 DMUS_IO_VERSION *pVersion;
41 WCHAR *pwzLanguage;
42 WCHAR *pwzSource;
43 } IDirectMusicScriptImpl;
44
45 static inline IDirectMusicScriptImpl *impl_from_IDirectMusicScript(IDirectMusicScript *iface)
46 {
47 return CONTAINING_RECORD(iface, IDirectMusicScriptImpl, IDirectMusicScript_iface);
48 }
49
50 static HRESULT WINAPI IDirectMusicScriptImpl_QueryInterface(IDirectMusicScript *iface, REFIID riid,
51 void **ret_iface)
52 {
53 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
54
55 TRACE("(%p, %s, %p)\n", This, debugstr_dmguid(riid), ret_iface);
56
57 *ret_iface = NULL;
58
59 if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDirectMusicScript))
60 *ret_iface = iface;
61 else if (IsEqualIID(riid, &IID_IDirectMusicObject))
62 *ret_iface = &This->dmobj.IDirectMusicObject_iface;
63 else if (IsEqualIID(riid, &IID_IPersistStream))
64 *ret_iface = &This->dmobj.IPersistStream_iface;
65 else {
66 WARN("(%p, %s, %p): not found\n", This, debugstr_dmguid(riid), ret_iface);
67 return E_NOINTERFACE;
68 }
69
70 IUnknown_AddRef((IUnknown*)*ret_iface);
71 return S_OK;
72 }
73
74 static ULONG WINAPI IDirectMusicScriptImpl_AddRef(IDirectMusicScript *iface)
75 {
76 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
77 LONG ref = InterlockedIncrement(&This->ref);
78
79 TRACE("(%p) ref=%ld\n", This, ref);
80
81 return ref;
82 }
83
84 static ULONG WINAPI IDirectMusicScriptImpl_Release(IDirectMusicScript *iface)
85 {
86 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
87 LONG ref = InterlockedDecrement(&This->ref);
88
89 TRACE("(%p) ref=%ld\n", This, ref);
90
91 if (!ref) {
92 free(This->pHeader);
93 free(This->pVersion);
94 free(This->pwzLanguage);
95 free(This->pwzSource);
96 free(This);
97 }
98
99 return ref;
100 }
101
102 static HRESULT WINAPI IDirectMusicScriptImpl_Init(IDirectMusicScript *iface,
103 IDirectMusicPerformance *pPerformance, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
104 {
105 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
106 FIXME("(%p, %p, %p): stub\n", This, pPerformance, pErrorInfo);
107 This->pPerformance = pPerformance;
108 return S_OK;
109 }
110
111 static HRESULT WINAPI IDirectMusicScriptImpl_CallRoutine(IDirectMusicScript *iface,
112 WCHAR *pwszRoutineName, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
113 {
114 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
115 FIXME("(%p, %s, %p): stub\n", This, debugstr_w(pwszRoutineName), pErrorInfo);
116 /*return E_NOTIMPL;*/
117 return S_OK;
118 /*return E_FAIL;*/
119 }
120
121 static HRESULT WINAPI IDirectMusicScriptImpl_SetVariableVariant(IDirectMusicScript *iface,
122 WCHAR *pwszVariableName, VARIANT varValue, BOOL fSetRef, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
123 {
124 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
125 FIXME("(%p, %s, FIXME, %d, %p): stub\n", This, debugstr_w(pwszVariableName),/* varValue,*/ fSetRef, pErrorInfo);
126 return S_OK;
127 }
128
129 static HRESULT WINAPI IDirectMusicScriptImpl_GetVariableVariant(IDirectMusicScript *iface,
130 WCHAR *pwszVariableName, VARIANT *pvarValue, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
131 {
132 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
133 FIXME("(%p, %s, %p, %p): stub\n", This, debugstr_w(pwszVariableName), pvarValue, pErrorInfo);
134 return S_OK;
135 }
136
137 static HRESULT WINAPI IDirectMusicScriptImpl_SetVariableNumber(IDirectMusicScript *iface,
138 WCHAR *pwszVariableName, LONG lValue, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
139 {
140 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
141 FIXME("(%p, %s, %li, %p): stub\n", This, debugstr_w(pwszVariableName), lValue, pErrorInfo);
142 return S_OK;
143 }
144
145 static HRESULT WINAPI IDirectMusicScriptImpl_GetVariableNumber(IDirectMusicScript *iface,
146 WCHAR *pwszVariableName, LONG *plValue, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
147 {
148 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
149 FIXME("(%p, %s, %p, %p): stub\n", This, debugstr_w(pwszVariableName), plValue, pErrorInfo);
150 return S_OK;
151 }
152
153 static HRESULT WINAPI IDirectMusicScriptImpl_SetVariableObject(IDirectMusicScript *iface,
154 WCHAR *pwszVariableName, IUnknown *punkValue, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
155 {
156 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
157 FIXME("(%p, %s, %p, %p): stub\n", This, debugstr_w(pwszVariableName), punkValue, pErrorInfo);
158 return S_OK;
159 }
160
161 static HRESULT WINAPI IDirectMusicScriptImpl_GetVariableObject(IDirectMusicScript *iface,
162 WCHAR *pwszVariableName, REFIID riid, void **ppv, DMUS_SCRIPT_ERRORINFO *pErrorInfo)
163 {
164 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
165 FIXME("(%p, %s, %s, %p, %p): stub\n", This, debugstr_w(pwszVariableName), debugstr_dmguid(riid), ppv, pErrorInfo);
166 return S_OK;
167 }
168
169 static HRESULT WINAPI IDirectMusicScriptImpl_EnumRoutine(IDirectMusicScript *iface, DWORD dwIndex,
170 WCHAR *pwszName)
171 {
172 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
173 FIXME("(%p, %ld, %p): stub\n", This, dwIndex, pwszName);
174 return S_OK;
175 }
176
177 static HRESULT WINAPI IDirectMusicScriptImpl_EnumVariable(IDirectMusicScript *iface, DWORD dwIndex,
178 WCHAR *pwszName)
179 {
180 IDirectMusicScriptImpl *This = impl_from_IDirectMusicScript(iface);
181 FIXME("(%p, %ld, %p): stub\n", This, dwIndex, pwszName);
182 return S_OK;
183 }
184
185 static const IDirectMusicScriptVtbl dmscript_vtbl = {
186 IDirectMusicScriptImpl_QueryInterface,
187 IDirectMusicScriptImpl_AddRef,
188 IDirectMusicScriptImpl_Release,
189 IDirectMusicScriptImpl_Init,
190 IDirectMusicScriptImpl_CallRoutine,
191 IDirectMusicScriptImpl_SetVariableVariant,
192 IDirectMusicScriptImpl_GetVariableVariant,
193 IDirectMusicScriptImpl_SetVariableNumber,
194 IDirectMusicScriptImpl_GetVariableNumber,
195 IDirectMusicScriptImpl_SetVariableObject,
196 IDirectMusicScriptImpl_GetVariableObject,
197 IDirectMusicScriptImpl_EnumRoutine,
198 IDirectMusicScriptImpl_EnumVariable
199 };
200
201 static HRESULT WINAPI script_IDirectMusicObject_ParseDescriptor(IDirectMusicObject *iface,
202 IStream *stream, DMUS_OBJECTDESC *desc)
203 {
204 struct chunk_entry riff = {0};
205 HRESULT hr;
206
207 TRACE("(%p, %p, %p)\n", iface, stream, desc);
208
209 if (!stream || !desc)
210 return E_POINTER;
211
212 if ((hr = stream_get_chunk(stream, &riff)) != S_OK)
213 return hr;
214 if (riff.id != FOURCC_RIFF || riff.type != DMUS_FOURCC_SCRIPT_FORM) {
215 TRACE("loading failed: unexpected %s\n", debugstr_chunk(&riff));
216 stream_skip_chunk(stream, &riff);
217 return DMUS_E_SCRIPT_INVALID_FILE;
218 }
219
220 hr = dmobj_parsedescriptor(stream, &riff, desc,
221 DMUS_OBJ_OBJECT|DMUS_OBJ_NAME|DMUS_OBJ_NAME_INAM|DMUS_OBJ_CATEGORY|DMUS_OBJ_VERSION);
222 if (FAILED(hr))
223 return hr;
224
225 if (desc->dwValidData) {
226 desc->guidClass = CLSID_DirectMusicScript;
227 desc->dwValidData |= DMUS_OBJ_CLASS;
228 }
229
230 TRACE("returning descriptor:\n");
231 dump_DMUS_OBJECTDESC(desc);
232 return S_OK;
233 }
234
235 static const IDirectMusicObjectVtbl dmobject_vtbl = {
236 dmobj_IDirectMusicObject_QueryInterface,
237 dmobj_IDirectMusicObject_AddRef,
238 dmobj_IDirectMusicObject_Release,
239 dmobj_IDirectMusicObject_GetDescriptor,
240 dmobj_IDirectMusicObject_SetDescriptor,
241 script_IDirectMusicObject_ParseDescriptor
242 };
243
244 /* IDirectMusicScriptImpl IPersistStream part: */
245 static inline IDirectMusicScriptImpl *impl_from_IPersistStream(IPersistStream *iface)
246 {
247 return CONTAINING_RECORD(iface, IDirectMusicScriptImpl, dmobj.IPersistStream_iface);
248 }
249
250 static HRESULT WINAPI IPersistStreamImpl_Load(IPersistStream *iface, IStream *pStm)
251 {
252 IDirectMusicScriptImpl *This = impl_from_IPersistStream(iface);
253 DMUS_PRIVATE_CHUNK Chunk;
254 DWORD StreamSize, StreamCount, ListSize[3], ListCount[3];
255 LARGE_INTEGER liMove; /* used when skipping chunks */
256 LPDIRECTMUSICGETLOADER pGetLoader = NULL;
257 LPDIRECTMUSICLOADER pLoader = NULL;
258
259 FIXME("(%p, %p): Loading not implemented yet\n", This, pStm);
260 IStream_Read (pStm, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
261 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
262 switch (Chunk.fccID) {
263 case FOURCC_RIFF: {
264 IStream_Read (pStm, &Chunk.fccID, sizeof(FOURCC), NULL);
265 TRACE_(dmfile)(": RIFF chunk of type %s", debugstr_fourcc(Chunk.fccID));
266 StreamSize = Chunk.dwSize - sizeof(FOURCC);
267 StreamCount = 0;
268 switch (Chunk.fccID) {
269 case DMUS_FOURCC_SCRIPT_FORM: {
270 TRACE_(dmfile)(": script form\n");
271 do {
272 IStream_Read (pStm, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
273 StreamCount += sizeof(FOURCC) + sizeof(DWORD) + Chunk.dwSize;
274 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
275 switch (Chunk.fccID) {
276 case DMUS_FOURCC_SCRIPT_CHUNK: {
277 TRACE_(dmfile)(": script header chunk\n");
278 This->pHeader = calloc(1, Chunk.dwSize);
279 IStream_Read (pStm, This->pHeader, Chunk.dwSize, NULL);
280 break;
281 }
282 case DMUS_FOURCC_SCRIPTVERSION_CHUNK: {
283 TRACE_(dmfile)(": script version chunk\n");
284 This->pVersion = calloc(1, Chunk.dwSize);
285 IStream_Read (pStm, This->pVersion, Chunk.dwSize, NULL);
286 TRACE_(dmfile)("version: 0x%08lx.0x%08lx\n", This->pVersion->dwVersionMS, This->pVersion->dwVersionLS);
287 break;
288 }
289 case DMUS_FOURCC_SCRIPTLANGUAGE_CHUNK: {
290 TRACE_(dmfile)(": script language chunk\n");
291 This->pwzLanguage = calloc(1, Chunk.dwSize);
292 IStream_Read (pStm, This->pwzLanguage, Chunk.dwSize, NULL);
293 TRACE_(dmfile)("using language: %s\n", debugstr_w(This->pwzLanguage));
294 break;
295 }
296 case DMUS_FOURCC_SCRIPTSOURCE_CHUNK: {
297 TRACE_(dmfile)(": script source chunk\n");
298 This->pwzSource = calloc(1, Chunk.dwSize);
299 IStream_Read (pStm, This->pwzSource, Chunk.dwSize, NULL);
300 if (TRACE_ON(dmscript)) {
301 int count = WideCharToMultiByte(CP_ACP, 0, This->pwzSource, -1, NULL, 0, NULL, NULL);
302 LPSTR str = malloc(count);
303 WideCharToMultiByte(CP_ACP, 0, This->pwzSource, -1, str, count, NULL, NULL);
304 str[count-1] = '\n';
305 TRACE("source:\n");
306 fwrite( str, 1, count, stderr );
307 free(str);
308 }
309 break;
310 }
311 case DMUS_FOURCC_GUID_CHUNK: {
312 TRACE_(dmfile)(": GUID chunk\n");
313 This->dmobj.desc.dwValidData |= DMUS_OBJ_OBJECT;
314 IStream_Read (pStm, &This->dmobj.desc.guidObject, Chunk.dwSize, NULL);
315 break;
316 }
317 case DMUS_FOURCC_VERSION_CHUNK: {
318 TRACE_(dmfile)(": version chunk\n");
319 This->dmobj.desc.dwValidData |= DMUS_OBJ_VERSION;
320 IStream_Read (pStm, &This->dmobj.desc.vVersion, Chunk.dwSize, NULL);
321 break;
322 }
323 case DMUS_FOURCC_CATEGORY_CHUNK: {
324 TRACE_(dmfile)(": category chunk\n");
325 This->dmobj.desc.dwValidData |= DMUS_OBJ_CATEGORY;
326 IStream_Read (pStm, This->dmobj.desc.wszCategory, Chunk.dwSize, NULL);
327 break;
328 }
329 case FOURCC_RIFF: {
330 IDirectMusicObject* pObject = NULL;
331 DMUS_OBJECTDESC desc;
332
333 ZeroMemory (&desc, sizeof(DMUS_OBJECTDESC));
334 desc.dwSize = sizeof(DMUS_OBJECTDESC);
335 desc.dwValidData = DMUS_OBJ_STREAM | DMUS_OBJ_CLASS;
336 desc.guidClass = CLSID_DirectMusicContainer;
337 desc.pStream = NULL;
338 IStream_Clone (pStm, &desc.pStream);
339
340 liMove.QuadPart = 0;
341 liMove.QuadPart -= (sizeof(FOURCC) + sizeof(DWORD));
342 IStream_Seek (desc.pStream, liMove, STREAM_SEEK_CUR, NULL);
343
344 IStream_QueryInterface (pStm, &IID_IDirectMusicGetLoader, (LPVOID*)&pGetLoader);
345 IDirectMusicGetLoader_GetLoader (pGetLoader, &pLoader);
346 IDirectMusicGetLoader_Release (pGetLoader);
347
348 if (SUCCEEDED(IDirectMusicLoader_GetObject (pLoader, &desc, &IID_IDirectMusicObject, (LPVOID*) &pObject))) {
349 IDirectMusicObject_Release (pObject);
350 } else {
351 ERR_(dmfile)("Error on GetObject while trying to load Scrip SubContainer\n");
352 }
353
354 IDirectMusicLoader_Release (pLoader); pLoader = NULL; /* release loader */
355 IStream_Release(desc.pStream); desc.pStream = NULL; /* release cloned stream */
356
357 liMove.QuadPart = Chunk.dwSize;
358 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
359 /*
360 IStream_Read (pStm, &Chunk.fccID, sizeof(FOURCC), NULL);
361 TRACE_(dmfile)(": RIFF chunk of type %s", debugstr_fourcc(Chunk.fccID));
362 ListSize[0] = Chunk.dwSize - sizeof(FOURCC);
363 ListCount[0] = 0;
364
365 switch (Chunk.fccID) {
366 default: {
367 TRACE_(dmfile)(": unknown (skipping)\n");
368 liMove.QuadPart = Chunk.dwSize - sizeof(FOURCC);
369 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
370 break;
371 }
372 }
373 */
374 break;
375 }
376 case FOURCC_LIST: {
377 IStream_Read (pStm, &Chunk.fccID, sizeof(FOURCC), NULL);
378 TRACE_(dmfile)(": LIST chunk of type %s", debugstr_fourcc(Chunk.fccID));
379 ListSize[0] = Chunk.dwSize - sizeof(FOURCC);
380 ListCount[0] = 0;
381 switch (Chunk.fccID) {
382 case DMUS_FOURCC_UNFO_LIST: {
383 TRACE_(dmfile)(": UNFO list\n");
384 do {
385 IStream_Read (pStm, &Chunk, sizeof(FOURCC)+sizeof(DWORD), NULL);
386 ListCount[0] += sizeof(FOURCC) + sizeof(DWORD) + Chunk.dwSize;
387 TRACE_(dmfile)(": %s chunk (size = %ld)", debugstr_fourcc (Chunk.fccID), Chunk.dwSize);
388 switch (Chunk.fccID) {
389 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
390 (though strings seem to be valid unicode) */
391 case mmioFOURCC('I','N','A','M'):
392 case DMUS_FOURCC_UNAM_CHUNK: {
393 TRACE_(dmfile)(": name chunk\n");
394 This->dmobj.desc.dwValidData |= DMUS_OBJ_NAME;
395 IStream_Read (pStm, This->dmobj.desc.wszName, Chunk.dwSize, NULL);
396 break;
397 }
398 case mmioFOURCC('I','A','R','T'):
399 case DMUS_FOURCC_UART_CHUNK: {
400 TRACE_(dmfile)(": artist chunk (ignored)\n");
401 liMove.QuadPart = Chunk.dwSize;
402 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
403 break;
404 }
405 case mmioFOURCC('I','C','O','P'):
406 case DMUS_FOURCC_UCOP_CHUNK: {
407 TRACE_(dmfile)(": copyright chunk (ignored)\n");
408 liMove.QuadPart = Chunk.dwSize;
409 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
410 break;
411 }
412 case mmioFOURCC('I','S','B','J'):
413 case DMUS_FOURCC_USBJ_CHUNK: {
414 TRACE_(dmfile)(": subject chunk (ignored)\n");
415 liMove.QuadPart = Chunk.dwSize;
416 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
417 break;
418 }
419 case mmioFOURCC('I','C','M','T'):
420 case DMUS_FOURCC_UCMT_CHUNK: {
421 TRACE_(dmfile)(": comment chunk (ignored)\n");
422 liMove.QuadPart = Chunk.dwSize;
423 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
424 break;
425 }
426 default: {
427 TRACE_(dmfile)(": unknown sub-chunk (irrelevant & skipping)\n");
428 liMove.QuadPart = Chunk.dwSize;
429 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
430 break;
431 }
432 }
433 TRACE_(dmfile)(": ListCount[0] = %ld < ListSize[0] = %ld\n", ListCount[0], ListSize[0]);
434 } while (ListCount[0] < ListSize[0]);
435 break;
436 }
437 default: {
438 TRACE_(dmfile)(": unknown (skipping)\n");
439 liMove.QuadPart = Chunk.dwSize - sizeof(FOURCC);
440 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
441 break;
442 }
443 }
444 break;
445 }
446 default: {
447 TRACE_(dmfile)(": unknown chunk (irrelevant & skipping)\n");
448 liMove.QuadPart = Chunk.dwSize;
449 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
450 break;
451 }
452 }
453 TRACE_(dmfile)(": StreamCount[0] = %ld < StreamSize[0] = %ld\n", StreamCount, StreamSize);
454 } while (StreamCount < StreamSize);
455 break;
456 }
457 default: {
458 TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
459 liMove.QuadPart = StreamSize;
460 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
461 return E_FAIL;
462 }
463 }
464 TRACE_(dmfile)(": reading finished\n");
465 break;
466 }
467 default: {
468 TRACE_(dmfile)(": unexpected chunk; loading failed)\n");
469 liMove.QuadPart = Chunk.dwSize;
470 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL); /* skip the rest of the chunk */
471 return E_FAIL;
472 }
473 }
474
475 return S_OK;
476 }
477
478 static const IPersistStreamVtbl persiststream_vtbl = {
479 dmobj_IPersistStream_QueryInterface,
480 dmobj_IPersistStream_AddRef,
481 dmobj_IPersistStream_Release,
482 unimpl_IPersistStream_GetClassID,
483 unimpl_IPersistStream_IsDirty,
484 IPersistStreamImpl_Load,
485 unimpl_IPersistStream_Save,
486 unimpl_IPersistStream_GetSizeMax
487 };
488
489 /* for ClassFactory */
490 HRESULT DMUSIC_CreateDirectMusicScriptImpl(REFIID lpcGUID, void **ppobj, IUnknown *pUnkOuter)
491 {
492 IDirectMusicScriptImpl *obj;
493 HRESULT hr;
494
495 *ppobj = NULL;
496
497 if (pUnkOuter)
498 return CLASS_E_NOAGGREGATION;
499
500 if (!(obj = calloc(1, sizeof(*obj)))) return E_OUTOFMEMORY;
501 obj->IDirectMusicScript_iface.lpVtbl = &dmscript_vtbl;
502 obj->ref = 1;
503 dmobject_init(&obj->dmobj, &CLSID_DirectMusicScript, (IUnknown*)&obj->IDirectMusicScript_iface);
504 obj->dmobj.IDirectMusicObject_iface.lpVtbl = &dmobject_vtbl;
505 obj->dmobj.IPersistStream_iface.lpVtbl = &persiststream_vtbl;
506
507 hr = IDirectMusicScript_QueryInterface(&obj->IDirectMusicScript_iface, lpcGUID, ppobj);
508 IDirectMusicScript_Release(&obj->IDirectMusicScript_iface);
509
510 return hr;
511 }
Windows API implementation