msvcrt: Convert all the printf functions to use MS ABI varargs.
[wine] / dlls / dmscript / dmscript_main.c
1 /* DirectMusicScript Main
2  *
3  * Copyright (C) 2003-2004 Rok Mandeljc
4  *
5  * This program is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Lesser General Public
7  * License as published by the Free Software Foundation; either
8  * version 2.1 of the License, or (at your option) any later version.
9  *
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 GNU
13  * Lesser General Public License for more details.
14  *
15  * You should have received a copy of the GNU Lesser General Public
16  * License along with this program; if not, write to the Free Software
17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
18  */
19
20 #include "config.h"
21 #include "wine/port.h"
22
23 #include "dmscript_private.h"
24
25 WINE_DEFAULT_DEBUG_CHANNEL(dmscript);
26
27 LONG DMSCRIPT_refCount = 0;
28
29 typedef struct {
30     const IClassFactoryVtbl *lpVtbl;
31 } IClassFactoryImpl;
32
33 /******************************************************************
34  *              DirectMusicScriptAutoImplSegment ClassFactory
35  */
36 static HRESULT WINAPI ScriptAutoImplSegmentCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
37         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
38
39         if (ppobj == NULL) return E_POINTER;
40         
41         return E_NOINTERFACE;
42 }
43
44 static ULONG WINAPI ScriptAutoImplSegmentCF_AddRef(LPCLASSFACTORY iface) {
45         DMSCRIPT_LockModule();
46
47         return 2; /* non-heap based object */
48 }
49
50 static ULONG WINAPI ScriptAutoImplSegmentCF_Release(LPCLASSFACTORY iface) {
51         DMSCRIPT_UnlockModule();
52
53         return 1; /* non-heap based object */
54 }
55
56 static HRESULT WINAPI ScriptAutoImplSegmentCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
57         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
58
59         if (ppobj == NULL) return E_POINTER;
60         
61         return E_NOINTERFACE;
62 }
63
64 static HRESULT WINAPI ScriptAutoImplSegmentCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
65         TRACE("(%d)\n", dolock);
66
67         if (dolock)
68                 DMSCRIPT_LockModule();
69         else
70                 DMSCRIPT_UnlockModule();
71         
72         return S_OK;
73 }
74
75 static const IClassFactoryVtbl ScriptAutoImplSegmentCF_Vtbl = {
76         ScriptAutoImplSegmentCF_QueryInterface,
77         ScriptAutoImplSegmentCF_AddRef,
78         ScriptAutoImplSegmentCF_Release,
79         ScriptAutoImplSegmentCF_CreateInstance,
80         ScriptAutoImplSegmentCF_LockServer
81 };
82
83 static IClassFactoryImpl ScriptAutoImplSegment_CF = {&ScriptAutoImplSegmentCF_Vtbl};
84
85 /******************************************************************
86  *              DirectMusicScriptTrack ClassFactory
87  */
88 static HRESULT WINAPI ScriptTrackCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
89         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
90
91         if (ppobj == NULL) return E_POINTER;
92         
93         return E_NOINTERFACE;
94 }
95
96 static ULONG WINAPI ScriptTrackCF_AddRef(LPCLASSFACTORY iface) {
97         DMSCRIPT_LockModule();
98
99         return 2; /* non-heap based object */
100 }
101
102 static ULONG WINAPI ScriptTrackCF_Release(LPCLASSFACTORY iface) {
103         DMSCRIPT_UnlockModule();
104
105         return 1; /* non-heap based object */
106 }
107
108 static HRESULT WINAPI ScriptTrackCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
109         TRACE ("(%p, %s, %p)\n", pOuter, debugstr_dmguid(riid), ppobj);
110         return DMUSIC_CreateDirectMusicScriptTrack (riid, ppobj, pOuter);
111 }
112
113 static HRESULT WINAPI ScriptTrackCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
114         TRACE("(%d)\n", dolock);
115
116         if (dolock)
117                 DMSCRIPT_LockModule();
118         else
119                 DMSCRIPT_UnlockModule();
120         
121         return S_OK;
122 }
123
124 static const IClassFactoryVtbl ScriptTrackCF_Vtbl = {
125         ScriptTrackCF_QueryInterface,
126         ScriptTrackCF_AddRef,
127         ScriptTrackCF_Release,
128         ScriptTrackCF_CreateInstance,
129         ScriptTrackCF_LockServer
130 };
131
132 static IClassFactoryImpl ScriptTrack_CF = {&ScriptTrackCF_Vtbl};
133
134 /******************************************************************
135  *              DirectMusicAudioVBScript ClassFactory
136  */
137 static HRESULT WINAPI AudioVBScriptCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
138         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
139
140         if (ppobj == NULL) return E_POINTER;
141         
142         return E_NOINTERFACE;
143 }
144
145 static ULONG WINAPI AudioVBScriptCF_AddRef(LPCLASSFACTORY iface) {
146         DMSCRIPT_LockModule();
147
148         return 2; /* non-heap based object */
149 }
150
151 static ULONG WINAPI AudioVBScriptCF_Release(LPCLASSFACTORY iface) {
152         DMSCRIPT_UnlockModule();
153
154         return 1; /* non-heap based object */
155 }
156
157 static HRESULT WINAPI AudioVBScriptCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
158         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
159
160         if (ppobj == NULL) return E_POINTER;
161         
162         return E_NOINTERFACE;
163 }
164
165 static HRESULT WINAPI AudioVBScriptCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
166         TRACE("(%d)\n", dolock);
167
168         if (dolock)
169                 DMSCRIPT_LockModule();
170         else
171                 DMSCRIPT_UnlockModule();
172         
173         return S_OK;
174 }
175
176 static const IClassFactoryVtbl AudioVBScriptCF_Vtbl = {
177         AudioVBScriptCF_QueryInterface,
178         AudioVBScriptCF_AddRef,
179         AudioVBScriptCF_Release,
180         AudioVBScriptCF_CreateInstance,
181         AudioVBScriptCF_LockServer
182 };
183
184 static IClassFactoryImpl AudioVBScript_CF = {&AudioVBScriptCF_Vtbl};
185
186 /******************************************************************
187  *              DirectMusicScript ClassFactory
188  */
189 static HRESULT WINAPI ScriptCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
190         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
191
192         if (ppobj == NULL) return E_POINTER;
193         
194         return E_NOINTERFACE;
195 }
196
197 static ULONG WINAPI ScriptCF_AddRef(LPCLASSFACTORY iface) {
198         DMSCRIPT_LockModule();
199
200         return 2; /* non-heap based object */
201 }
202
203 static ULONG WINAPI ScriptCF_Release(LPCLASSFACTORY iface) {
204         DMSCRIPT_UnlockModule();
205
206         return 1; /* non-heap based object */
207 }
208
209 static HRESULT WINAPI ScriptCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
210         TRACE ("(%p, %s, %p)\n", pOuter, debugstr_dmguid(riid), ppobj);
211         
212         return DMUSIC_CreateDirectMusicScriptImpl (riid, ppobj, pOuter);
213 }
214
215 static HRESULT WINAPI ScriptCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
216         TRACE("(%d)\n", dolock);
217
218         if (dolock)
219                 DMSCRIPT_LockModule();
220         else
221                 DMSCRIPT_UnlockModule();
222         
223         return S_OK;
224 }
225
226 static const IClassFactoryVtbl ScriptCF_Vtbl = {
227         ScriptCF_QueryInterface,
228         ScriptCF_AddRef,
229         ScriptCF_Release,
230         ScriptCF_CreateInstance,
231         ScriptCF_LockServer
232 };
233
234 static IClassFactoryImpl Script_CF = {&ScriptCF_Vtbl};
235
236 /******************************************************************
237  *              DirectMusicScriptAutoImplPerformance ClassFactory
238  */
239 static HRESULT WINAPI ScriptAutoImplPerformanceCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
240         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
241
242         if (ppobj == NULL) return E_POINTER;
243         
244         return E_NOINTERFACE;
245 }
246
247 static ULONG WINAPI ScriptAutoImplPerformanceCF_AddRef(LPCLASSFACTORY iface) {
248         DMSCRIPT_LockModule();
249
250         return 2; /* non-heap based object */
251 }
252
253 static ULONG WINAPI ScriptAutoImplPerformanceCF_Release(LPCLASSFACTORY iface) {
254         DMSCRIPT_UnlockModule();
255
256         return 1; /* non-heap based object */
257 }
258
259 static HRESULT WINAPI ScriptAutoImplPerformanceCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
260         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
261
262         if (ppobj == NULL) return E_POINTER;
263         
264         return E_NOINTERFACE;
265 }
266
267 static HRESULT WINAPI ScriptAutoImplPerformanceCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
268         TRACE("(%d)\n", dolock);
269
270         if (dolock)
271                 DMSCRIPT_LockModule();
272         else
273                 DMSCRIPT_UnlockModule();
274         
275         return S_OK;
276 }
277
278 static const IClassFactoryVtbl ScriptAutoImplPerformanceCF_Vtbl = {
279         ScriptAutoImplPerformanceCF_QueryInterface,
280         ScriptAutoImplPerformanceCF_AddRef,
281         ScriptAutoImplPerformanceCF_Release,
282         ScriptAutoImplPerformanceCF_CreateInstance,
283         ScriptAutoImplPerformanceCF_LockServer
284 };
285
286 static IClassFactoryImpl ScriptAutoImplPerformance_CF = {&ScriptAutoImplPerformanceCF_Vtbl};
287
288 /******************************************************************
289  *              DirectMusicScriptSourceCodeLoader ClassFactory
290  */
291 static HRESULT WINAPI ScriptSourceCodeLoaderCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
292         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
293
294         if (ppobj == NULL) return E_POINTER;
295         
296         return E_NOINTERFACE;
297 }
298
299 static ULONG WINAPI ScriptSourceCodeLoaderCF_AddRef(LPCLASSFACTORY iface) {
300         DMSCRIPT_LockModule();
301
302         return 2; /* non-heap based object */
303 }
304
305 static ULONG WINAPI ScriptSourceCodeLoaderCF_Release(LPCLASSFACTORY iface) {
306         DMSCRIPT_UnlockModule();
307
308         return 1; /* non-heap based object */
309 }
310
311 static HRESULT WINAPI ScriptSourceCodeLoaderCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
312         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
313
314         if (ppobj == NULL) return E_POINTER;
315         
316         return E_NOINTERFACE;
317 }
318
319 static HRESULT WINAPI ScriptSourceCodeLoaderCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
320         TRACE("(%d)\n", dolock);
321
322         if (dolock)
323                 DMSCRIPT_LockModule();
324         else
325                 DMSCRIPT_UnlockModule();
326         
327         return S_OK;
328 }
329
330 static const IClassFactoryVtbl ScriptSourceCodeLoaderCF_Vtbl = {
331         ScriptSourceCodeLoaderCF_QueryInterface,
332         ScriptSourceCodeLoaderCF_AddRef,
333         ScriptSourceCodeLoaderCF_Release,
334         ScriptSourceCodeLoaderCF_CreateInstance,
335         ScriptSourceCodeLoaderCF_LockServer
336 };
337
338 static IClassFactoryImpl ScriptSourceCodeLoader_CF = {&ScriptSourceCodeLoaderCF_Vtbl};
339
340 /******************************************************************
341  *              DirectMusicScriptAutoImplSegmentState ClassFactory
342  */
343 static HRESULT WINAPI ScriptAutoImplSegmentStateCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
344         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
345
346         if (ppobj == NULL) return E_POINTER;
347         
348         return E_NOINTERFACE;
349 }
350
351 static ULONG WINAPI ScriptAutoImplSegmentStateCF_AddRef(LPCLASSFACTORY iface) {
352         DMSCRIPT_LockModule();
353
354         return 2; /* non-heap based object */
355 }
356
357 static ULONG WINAPI ScriptAutoImplSegmentStateCF_Release(LPCLASSFACTORY iface) {
358         DMSCRIPT_UnlockModule();
359
360         return 1; /* non-heap based object */
361 }
362
363 static HRESULT WINAPI ScriptAutoImplSegmentStateCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
364         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
365
366         if (ppobj == NULL) return E_POINTER;
367         
368         return E_NOINTERFACE;
369 }
370
371 static HRESULT WINAPI ScriptAutoImplSegmentStateCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
372         TRACE("(%d)\n", dolock);
373
374         if (dolock)
375                 DMSCRIPT_LockModule();
376         else
377                 DMSCRIPT_UnlockModule();
378         
379         return S_OK;
380 }
381
382 static const IClassFactoryVtbl ScriptAutoImplSegmentStateCF_Vtbl = {
383         ScriptAutoImplSegmentStateCF_QueryInterface,
384         ScriptAutoImplSegmentStateCF_AddRef,
385         ScriptAutoImplSegmentStateCF_Release,
386         ScriptAutoImplSegmentStateCF_CreateInstance,
387         ScriptAutoImplSegmentStateCF_LockServer
388 };
389
390 static IClassFactoryImpl ScriptAutoImplSegmentState_CF = {&ScriptAutoImplSegmentStateCF_Vtbl};
391
392 /******************************************************************
393  *              DirectMusicScriptAutoImplAudioPathConfig ClassFactory
394  */
395 static HRESULT WINAPI ScriptAutoImplAudioPathConfigCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
396         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
397
398         if (ppobj == NULL) return E_POINTER;
399         
400         return E_NOINTERFACE;
401 }
402
403 static ULONG WINAPI ScriptAutoImplAudioPathConfigCF_AddRef(LPCLASSFACTORY iface) {
404         DMSCRIPT_LockModule();
405
406         return 2; /* non-heap based object */
407 }
408
409 static ULONG WINAPI ScriptAutoImplAudioPathConfigCF_Release(LPCLASSFACTORY iface) {
410         DMSCRIPT_UnlockModule();
411
412         return 1; /* non-heap based object */
413 }
414
415 static HRESULT WINAPI ScriptAutoImplAudioPathConfigCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
416         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
417
418         if (ppobj == NULL) return E_POINTER;
419         
420         return E_NOINTERFACE;
421 }
422
423 static HRESULT WINAPI ScriptAutoImplAudioPathConfigCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
424         TRACE("(%d)\n", dolock);
425
426         if (dolock)
427                 DMSCRIPT_LockModule();
428         else
429                 DMSCRIPT_UnlockModule();
430         
431         return S_OK;
432 }
433
434 static const IClassFactoryVtbl ScriptAutoImplAudioPathConfigCF_Vtbl = {
435         ScriptAutoImplAudioPathConfigCF_QueryInterface,
436         ScriptAutoImplAudioPathConfigCF_AddRef,
437         ScriptAutoImplAudioPathConfigCF_Release,
438         ScriptAutoImplAudioPathConfigCF_CreateInstance,
439         ScriptAutoImplAudioPathConfigCF_LockServer
440 };
441
442 static IClassFactoryImpl ScriptAutoImplAudioPathConfig_CF = {&ScriptAutoImplAudioPathConfigCF_Vtbl};
443
444 /******************************************************************
445  *              DirectMusicScriptAutoImplAudioPath ClassFactory
446  */
447 static HRESULT WINAPI ScriptAutoImplAudioPathCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
448         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
449
450         if (ppobj == NULL) return E_POINTER;
451         
452         return E_NOINTERFACE;
453 }
454
455 static ULONG WINAPI ScriptAutoImplAudioPathCF_AddRef(LPCLASSFACTORY iface) {
456         DMSCRIPT_LockModule();
457
458         return 2; /* non-heap based object */
459 }
460
461 static ULONG WINAPI ScriptAutoImplAudioPathCF_Release(LPCLASSFACTORY iface) {
462         DMSCRIPT_UnlockModule();
463
464         return 1; /* non-heap based object */
465 }
466
467 static HRESULT WINAPI ScriptAutoImplAudioPathCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
468         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
469
470         if (ppobj == NULL) return E_POINTER;
471         
472         return E_NOINTERFACE;
473 }
474
475 static HRESULT WINAPI ScriptAutoImplAudioPathCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
476         TRACE("(%d)\n", dolock);
477
478         if (dolock)
479                 DMSCRIPT_LockModule();
480         else
481                 DMSCRIPT_UnlockModule();
482         
483         return S_OK;
484 }
485
486 static const IClassFactoryVtbl ScriptAutoImplAudioPathCF_Vtbl = {
487         ScriptAutoImplAudioPathCF_QueryInterface,
488         ScriptAutoImplAudioPathCF_AddRef,
489         ScriptAutoImplAudioPathCF_Release,
490         ScriptAutoImplAudioPathCF_CreateInstance,
491         ScriptAutoImplAudioPathCF_LockServer
492 };
493
494 static IClassFactoryImpl ScriptAutoImplAudioPath_CF = {&ScriptAutoImplAudioPathCF_Vtbl};
495
496 /******************************************************************
497  *              DirectMusicScriptAutoImplSong ClassFactory
498  */
499 static HRESULT WINAPI ScriptAutoImplSongCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
500         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
501
502         if (ppobj == NULL) return E_POINTER;
503         
504         return E_NOINTERFACE;
505 }
506
507 static ULONG WINAPI ScriptAutoImplSongCF_AddRef(LPCLASSFACTORY iface) {
508         DMSCRIPT_LockModule();
509
510         return 2; /* non-heap based */
511 }
512
513 static ULONG WINAPI ScriptAutoImplSongCF_Release(LPCLASSFACTORY iface) {
514         DMSCRIPT_UnlockModule();
515
516         return 1; /* non-heap based object */
517 }
518
519 static HRESULT WINAPI ScriptAutoImplSongCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj) {
520         FIXME("- no interface\n\tIID:\t%s\n", debugstr_guid(riid));
521
522         if (ppobj == NULL) return E_POINTER;
523         
524         return E_NOINTERFACE;
525 }
526
527 static HRESULT WINAPI ScriptAutoImplSongCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
528         TRACE("(%d)\n", dolock);
529
530         if (dolock)
531                 DMSCRIPT_LockModule();
532         else
533                 DMSCRIPT_UnlockModule();
534         
535         return S_OK;
536 }
537
538 static const IClassFactoryVtbl ScriptAutoImplSongCF_Vtbl = {
539         ScriptAutoImplSongCF_QueryInterface,
540         ScriptAutoImplSongCF_AddRef,
541         ScriptAutoImplSongCF_Release,
542         ScriptAutoImplSongCF_CreateInstance,
543         ScriptAutoImplSongCF_LockServer
544 };
545
546 static IClassFactoryImpl ScriptAutoImplSong_CF = {&ScriptAutoImplSongCF_Vtbl};
547
548 /******************************************************************
549  *              DllMain
550  *
551  *
552  */
553 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) {
554         if (fdwReason == DLL_PROCESS_ATTACH) {
555             DisableThreadLibraryCalls(hinstDLL);
556                 /* FIXME: Initialisation */
557         } else if (fdwReason == DLL_PROCESS_DETACH) {
558                 /* FIXME: Cleanup */
559         }
560
561         return TRUE;
562 }
563
564
565 /******************************************************************
566  *              DllCanUnloadNow (DMSCRIPT.@)
567  *
568  *
569  */
570 HRESULT WINAPI DllCanUnloadNow(void)
571 {
572         return DMSCRIPT_refCount != 0 ? S_FALSE : S_OK;
573 }
574
575
576 /******************************************************************
577  *              DllGetClassObject (DMSCRIPT.@)
578  *
579  *
580  */
581 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
582 {
583     TRACE("(%s, %s, %p)\n", debugstr_dmguid(rclsid), debugstr_dmguid(riid), ppv);
584     if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptAutoImpSegment) && IsEqualIID (riid, &IID_IClassFactory)) {
585       *ppv = (LPVOID) &ScriptAutoImplSegment_CF;
586       IClassFactory_AddRef((IClassFactory*)*ppv);
587       return S_OK;
588         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptTrack) && IsEqualIID (riid, &IID_IClassFactory)) {
589       *ppv = (LPVOID) &ScriptTrack_CF;
590       IClassFactory_AddRef((IClassFactory*)*ppv);
591       return S_OK;
592         } else if (IsEqualCLSID (rclsid, &CLSID_AudioVBScript) && IsEqualIID (riid, &IID_IClassFactory)) {
593       *ppv = (LPVOID) &AudioVBScript_CF;
594       IClassFactory_AddRef((IClassFactory*)*ppv);
595       return S_OK;
596         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScript) && IsEqualIID (riid, &IID_IClassFactory)) {
597       *ppv = (LPVOID) &Script_CF;
598       IClassFactory_AddRef((IClassFactory*)*ppv);
599       return S_OK;
600         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptAutoImpPerformance) && IsEqualIID (riid, &IID_IClassFactory)) {
601       *ppv = (LPVOID) &ScriptAutoImplPerformance_CF;
602       IClassFactory_AddRef((IClassFactory*)*ppv);
603       return S_OK;
604         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptSourceCodeLoader) && IsEqualIID (riid, &IID_IClassFactory)) {
605       *ppv = (LPVOID) &ScriptSourceCodeLoader_CF;
606       IClassFactory_AddRef((IClassFactory*)*ppv);
607       return S_OK;
608         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptAutoImpSegmentState) && IsEqualIID (riid, &IID_IClassFactory)) {
609       *ppv = (LPVOID) &ScriptAutoImplSegmentState_CF;
610       IClassFactory_AddRef((IClassFactory*)*ppv);
611       return S_OK;
612         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptAutoImpAudioPathConfig) && IsEqualIID (riid, &IID_IClassFactory)) {
613       *ppv = (LPVOID) &ScriptAutoImplAudioPathConfig_CF;
614       IClassFactory_AddRef((IClassFactory*)*ppv);
615       return S_OK;
616         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptAutoImpAudioPath) && IsEqualIID (riid, &IID_IClassFactory)) {
617       *ppv = (LPVOID) &ScriptAutoImplAudioPath_CF;
618       IClassFactory_AddRef((IClassFactory*)*ppv);
619       return S_OK;
620         } else if (IsEqualCLSID (rclsid, &CLSID_DirectMusicScriptAutoImpSong) && IsEqualIID (riid, &IID_IClassFactory)) {
621       *ppv = (LPVOID) &ScriptAutoImplSong_CF;
622       IClassFactory_AddRef((IClassFactory*)*ppv);
623       return S_OK;
624         }               
625
626     WARN("(%s, %s, %p): no interface found.\n", debugstr_dmguid(rclsid), debugstr_dmguid(riid), ppv);
627     return CLASS_E_CLASSNOTAVAILABLE;
628 }
629
630
631 /******************************************************************
632  *              Helper functions
633  *
634  *
635  */
636
637 /* FOURCC to string conversion for debug messages */
638 const char *debugstr_fourcc (DWORD fourcc) {
639     if (!fourcc) return "'null'";
640     return wine_dbg_sprintf ("\'%c%c%c%c\'",
641                 (char)(fourcc), (char)(fourcc >> 8),
642         (char)(fourcc >> 16), (char)(fourcc >> 24));
643 }
644
645 /* DMUS_VERSION struct to string conversion for debug messages */
646 static const char *debugstr_dmversion (const DMUS_VERSION *version) {
647         if (!version) return "'null'";
648         return wine_dbg_sprintf ("\'%i,%i,%i,%i\'",
649                 (int)((version->dwVersionMS & 0xFFFF0000) >> 8), (int)(version->dwVersionMS & 0x0000FFFF), 
650                 (int)((version->dwVersionLS & 0xFFFF0000) >> 8), (int)(version->dwVersionLS & 0x0000FFFF));
651 }
652
653 /* returns name of given GUID */
654 const char *debugstr_dmguid (const GUID *id) {
655         static const guid_info guids[] = {
656                 /* CLSIDs */
657                 GE(CLSID_AudioVBScript),
658                 GE(CLSID_DirectMusic),
659                 GE(CLSID_DirectMusicAudioPath),
660                 GE(CLSID_DirectMusicAudioPathConfig),
661                 GE(CLSID_DirectMusicAuditionTrack),
662                 GE(CLSID_DirectMusicBand),
663                 GE(CLSID_DirectMusicBandTrack),
664                 GE(CLSID_DirectMusicChordMapTrack),
665                 GE(CLSID_DirectMusicChordMap),
666                 GE(CLSID_DirectMusicChordTrack),
667                 GE(CLSID_DirectMusicCollection),
668                 GE(CLSID_DirectMusicCommandTrack),
669                 GE(CLSID_DirectMusicComposer),
670                 GE(CLSID_DirectMusicContainer),
671                 GE(CLSID_DirectMusicGraph),
672                 GE(CLSID_DirectMusicLoader),
673                 GE(CLSID_DirectMusicLyricsTrack),
674                 GE(CLSID_DirectMusicMarkerTrack),
675                 GE(CLSID_DirectMusicMelodyFormulationTrack),
676                 GE(CLSID_DirectMusicMotifTrack),
677                 GE(CLSID_DirectMusicMuteTrack),
678                 GE(CLSID_DirectMusicParamControlTrack),
679                 GE(CLSID_DirectMusicPatternTrack),
680                 GE(CLSID_DirectMusicPerformance),
681                 GE(CLSID_DirectMusicScript),
682                 GE(CLSID_DirectMusicScriptAutoImpSegment),
683                 GE(CLSID_DirectMusicScriptAutoImpPerformance),
684                 GE(CLSID_DirectMusicScriptAutoImpSegmentState),
685                 GE(CLSID_DirectMusicScriptAutoImpAudioPathConfig),
686                 GE(CLSID_DirectMusicScriptAutoImpAudioPath),
687                 GE(CLSID_DirectMusicScriptAutoImpSong),
688                 GE(CLSID_DirectMusicScriptSourceCodeLoader),
689                 GE(CLSID_DirectMusicScriptTrack),
690                 GE(CLSID_DirectMusicSection),
691                 GE(CLSID_DirectMusicSegment),
692                 GE(CLSID_DirectMusicSegmentState),
693                 GE(CLSID_DirectMusicSegmentTriggerTrack),
694                 GE(CLSID_DirectMusicSegTriggerTrack),
695                 GE(CLSID_DirectMusicSeqTrack),
696                 GE(CLSID_DirectMusicSignPostTrack),
697                 GE(CLSID_DirectMusicSong),
698                 GE(CLSID_DirectMusicStyle),
699                 GE(CLSID_DirectMusicStyleTrack),
700                 GE(CLSID_DirectMusicSynth),
701                 GE(CLSID_DirectMusicSynthSink),
702                 GE(CLSID_DirectMusicSysExTrack),
703                 GE(CLSID_DirectMusicTemplate),
704                 GE(CLSID_DirectMusicTempoTrack),
705                 GE(CLSID_DirectMusicTimeSigTrack),
706                 GE(CLSID_DirectMusicWaveTrack),
707                 GE(CLSID_DirectSoundWave),
708                 /* IIDs */
709                 GE(IID_IDirectMusic),
710                 GE(IID_IDirectMusic2),
711                 GE(IID_IDirectMusic8),
712                 GE(IID_IDirectMusicAudioPath),
713                 GE(IID_IDirectMusicBand),
714                 GE(IID_IDirectMusicBuffer),
715                 GE(IID_IDirectMusicChordMap),
716                 GE(IID_IDirectMusicCollection),
717                 GE(IID_IDirectMusicComposer),
718                 GE(IID_IDirectMusicContainer),
719                 GE(IID_IDirectMusicDownload),
720                 GE(IID_IDirectMusicDownloadedInstrument),
721                 GE(IID_IDirectMusicGetLoader),
722                 GE(IID_IDirectMusicGraph),
723                 GE(IID_IDirectMusicInstrument),
724                 GE(IID_IDirectMusicLoader),
725                 GE(IID_IDirectMusicLoader8),
726                 GE(IID_IDirectMusicObject),
727                 GE(IID_IDirectMusicPatternTrack),
728                 GE(IID_IDirectMusicPerformance),
729                 GE(IID_IDirectMusicPerformance2),
730                 GE(IID_IDirectMusicPerformance8),
731                 GE(IID_IDirectMusicPort),
732                 GE(IID_IDirectMusicPortDownload),
733                 GE(IID_IDirectMusicScript),
734                 GE(IID_IDirectMusicSegment),
735                 GE(IID_IDirectMusicSegment2),
736                 GE(IID_IDirectMusicSegment8),
737                 GE(IID_IDirectMusicSegmentState),
738                 GE(IID_IDirectMusicSegmentState8),
739                 GE(IID_IDirectMusicStyle),
740                 GE(IID_IDirectMusicStyle8),
741                 GE(IID_IDirectMusicSynth),
742                 GE(IID_IDirectMusicSynth8),
743                 GE(IID_IDirectMusicSynthSink),
744                 GE(IID_IDirectMusicThru),
745                 GE(IID_IDirectMusicTool),
746                 GE(IID_IDirectMusicTool8),
747                 GE(IID_IDirectMusicTrack),
748                 GE(IID_IDirectMusicTrack8),
749                 GE(IID_IUnknown),
750                 GE(IID_IPersistStream),
751                 GE(IID_IStream),
752                 GE(IID_IClassFactory),
753                 /* GUIDs */
754                 GE(GUID_DirectMusicAllTypes),
755                 GE(GUID_NOTIFICATION_CHORD),
756                 GE(GUID_NOTIFICATION_COMMAND),
757                 GE(GUID_NOTIFICATION_MEASUREANDBEAT),
758                 GE(GUID_NOTIFICATION_PERFORMANCE),
759                 GE(GUID_NOTIFICATION_RECOMPOSE),
760                 GE(GUID_NOTIFICATION_SEGMENT),
761                 GE(GUID_BandParam),
762                 GE(GUID_ChordParam),
763                 GE(GUID_CommandParam),
764                 GE(GUID_CommandParam2),
765                 GE(GUID_CommandParamNext),
766                 GE(GUID_IDirectMusicBand),
767                 GE(GUID_IDirectMusicChordMap),
768                 GE(GUID_IDirectMusicStyle),
769                 GE(GUID_MuteParam),
770                 GE(GUID_Play_Marker),
771                 GE(GUID_RhythmParam),
772                 GE(GUID_TempoParam),
773                 GE(GUID_TimeSignature),
774                 GE(GUID_Valid_Start_Time),
775                 GE(GUID_Clear_All_Bands),
776                 GE(GUID_ConnectToDLSCollection),
777                 GE(GUID_Disable_Auto_Download),
778                 GE(GUID_DisableTempo),
779                 GE(GUID_DisableTimeSig),
780                 GE(GUID_Download),
781                 GE(GUID_DownloadToAudioPath),
782                 GE(GUID_Enable_Auto_Download),
783                 GE(GUID_EnableTempo),
784                 GE(GUID_EnableTimeSig),
785                 GE(GUID_IgnoreBankSelectForGM),
786                 GE(GUID_SeedVariations),
787                 GE(GUID_StandardMIDIFile),
788                 GE(GUID_Unload),
789                 GE(GUID_UnloadFromAudioPath),
790                 GE(GUID_Variations),
791                 GE(GUID_PerfMasterTempo),
792                 GE(GUID_PerfMasterVolume),
793                 GE(GUID_PerfMasterGrooveLevel),
794                 GE(GUID_PerfAutoDownload),
795                 GE(GUID_DefaultGMCollection),
796                 GE(GUID_Synth_Default),
797                 GE(GUID_Buffer_Reverb),
798                 GE(GUID_Buffer_EnvReverb),
799                 GE(GUID_Buffer_Stereo),
800                 GE(GUID_Buffer_3D_Dry),
801                 GE(GUID_Buffer_Mono),
802                 GE(GUID_DMUS_PROP_GM_Hardware),
803                 GE(GUID_DMUS_PROP_GS_Capable),
804                 GE(GUID_DMUS_PROP_GS_Hardware),
805                 GE(GUID_DMUS_PROP_DLS1),
806                 GE(GUID_DMUS_PROP_DLS2),
807                 GE(GUID_DMUS_PROP_Effects),
808                 GE(GUID_DMUS_PROP_INSTRUMENT2),
809                 GE(GUID_DMUS_PROP_LegacyCaps),
810                 GE(GUID_DMUS_PROP_MemorySize),
811                 GE(GUID_DMUS_PROP_SampleMemorySize),
812                 GE(GUID_DMUS_PROP_SamplePlaybackRate),
813                 GE(GUID_DMUS_PROP_SetSynthSink),
814                 GE(GUID_DMUS_PROP_SinkUsesDSound),
815                 GE(GUID_DMUS_PROP_SynthSink_DSOUND),
816                 GE(GUID_DMUS_PROP_SynthSink_WAVE),
817                 GE(GUID_DMUS_PROP_Volume),
818                 GE(GUID_DMUS_PROP_WavesReverb),
819                 GE(GUID_DMUS_PROP_WriteLatency),
820                 GE(GUID_DMUS_PROP_WritePeriod),
821                 GE(GUID_DMUS_PROP_XG_Capable),
822                 GE(GUID_DMUS_PROP_XG_Hardware)
823         };
824
825         unsigned int i;
826
827         if (!id) return "(null)";
828
829         for (i = 0; i < sizeof(guids)/sizeof(guids[0]); i++) {
830                 if (IsEqualGUID(id, guids[i].guid))
831                         return guids[i].name;
832         }
833         /* if we didn't find it, act like standard debugstr_guid */     
834         return debugstr_guid(id);
835 }       
836
837 /* generic flag-dumping function */
838 static const char* debugstr_flags (DWORD flags, const flag_info* names, size_t num_names){
839         char buffer[128] = "", *ptr = &buffer[0];
840         unsigned int i;
841         int size = sizeof(buffer);
842         
843         for (i=0; i < num_names; i++)
844         {
845                 if ((flags & names[i].val) ||   /* standard flag*/
846                         ((!flags) && (!names[i].val))) { /* zero value only */
847                                 int cnt = snprintf(ptr, size, "%s ", names[i].name);
848                                 if (cnt < 0 || cnt >= size) break;
849                                 size -= cnt;
850                                 ptr += cnt;
851                 }
852         }
853         
854         return wine_dbg_sprintf("%s", buffer);
855 }
856
857 /* dump DMUS_OBJ flags */
858 static const char *debugstr_DMUS_OBJ_FLAGS (DWORD flagmask) {
859     static const flag_info flags[] = {
860             FE(DMUS_OBJ_OBJECT),
861             FE(DMUS_OBJ_CLASS),
862             FE(DMUS_OBJ_NAME),
863             FE(DMUS_OBJ_CATEGORY),
864             FE(DMUS_OBJ_FILENAME),
865             FE(DMUS_OBJ_FULLPATH),
866             FE(DMUS_OBJ_URL),
867             FE(DMUS_OBJ_VERSION),
868             FE(DMUS_OBJ_DATE),
869             FE(DMUS_OBJ_LOADED),
870             FE(DMUS_OBJ_MEMORY),
871             FE(DMUS_OBJ_STREAM)
872         };
873     return debugstr_flags (flagmask, flags, sizeof(flags)/sizeof(flags[0]));
874 }
875
876 /* dump whole DMUS_OBJECTDESC struct */
877 const char *debugstr_DMUS_OBJECTDESC (LPDMUS_OBJECTDESC pDesc) {
878         if (pDesc) {
879                 char buffer[1024] = "", *ptr = &buffer[0];
880                 
881                 ptr += sprintf(ptr, "DMUS_OBJECTDESC (%p):\n", pDesc);
882                 ptr += sprintf(ptr, " - dwSize = %d\n", pDesc->dwSize);
883                 ptr += sprintf(ptr, " - dwValidData = %s\n", debugstr_DMUS_OBJ_FLAGS (pDesc->dwValidData));
884                 if (pDesc->dwValidData & DMUS_OBJ_CLASS) ptr += sprintf(ptr, " - guidClass = %s\n", debugstr_dmguid(&pDesc->guidClass));
885                 if (pDesc->dwValidData & DMUS_OBJ_OBJECT) ptr += sprintf(ptr, " - guidObject = %s\n", debugstr_guid(&pDesc->guidObject));
886                 if (pDesc->dwValidData & DMUS_OBJ_DATE) ptr += sprintf(ptr, " - ftDate = FIXME\n");
887                 if (pDesc->dwValidData & DMUS_OBJ_VERSION) ptr += sprintf(ptr, " - vVersion = %s\n", debugstr_dmversion(&pDesc->vVersion));
888                 if (pDesc->dwValidData & DMUS_OBJ_NAME) ptr += sprintf(ptr, " - wszName = %s\n", debugstr_w(pDesc->wszName));
889                 if (pDesc->dwValidData & DMUS_OBJ_CATEGORY) ptr += sprintf(ptr, " - wszCategory = %s\n", debugstr_w(pDesc->wszCategory));
890                 if (pDesc->dwValidData & DMUS_OBJ_FILENAME) ptr += sprintf(ptr, " - wszFileName = %s\n", debugstr_w(pDesc->wszFileName));
891                 if (pDesc->dwValidData & DMUS_OBJ_MEMORY) ptr += sprintf(ptr, " - llMemLength = 0x%s\n  - pbMemData = %p\n", 
892                                                                      wine_dbgstr_longlong(pDesc->llMemLength), pDesc->pbMemData);
893                 if (pDesc->dwValidData & DMUS_OBJ_STREAM) ptr += sprintf(ptr, " - pStream = %p", pDesc->pStream);
894
895                 return wine_dbg_sprintf("%s", buffer);
896         } else {
897                 return wine_dbg_sprintf("(NULL)");
898         }
899 }