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