mci.c 72.7 KB
Newer Older
1 2 3 4
/*
 * MCI internal functions
 *
 * Copyright 1998/1999 Eric Pouech
5 6 7 8 9 10 11 12 13 14 15 16 17
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
18
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 20
 */

21 22 23 24 25 26 27 28 29 30 31 32 33
/* TODO:
 * - implement WINMM (32bit) multitasking and use it in all MCI drivers
 *   instead of the home grown one 
 * - 16bit mmTaskXXX functions are currently broken because the 16
 *   loader does not support binary command lines => provide Wine's
 *   own mmtask.tsk not using binary command line.
 * - correctly handle the MCI_ALL_DEVICE_ID in functions.
 * - finish mapping 16 <=> 32 of MCI structures and commands
 * - implement auto-open feature (ie, when a string command is issued
 *   for a not yet opened device, MCI automatically opens it) 
 * - use a default registry setting to replace the [mci] section in
 *   configuration file (layout of info in registry should be compatible
 *   with all Windows' version - which use different layouts of course)
34 35 36 37 38 39 40 41 42
 * - implement automatic open
 *      + only works on string interface, on regular devices (don't work on all
 *        nor custom devices)
 * - command table handling isn't thread safe
 */

/* to be cross checked:
 * - heapalloc for *sizeof(WCHAR) when needed
 * - size of string in WCHAR or bytes? (#chars for MCI_INFO, #bytes for MCI_SYSINFO)
43 44
 */

Steven Edwards's avatar
Steven Edwards committed
45 46 47
#include "config.h"
#include "wine/port.h"

48
#include <stdlib.h>
49
#include <stdarg.h>
50
#include <stdio.h>
51 52
#include <string.h>

53
#include "windef.h"
54
#include "winbase.h"
55
#include "wingdi.h"
56
#include "mmsystem.h"
57
#include "winuser.h"
58
#include "winnls.h"
59
#include "winreg.h"
60
#include "wownt32.h"
61 62

#include "digitalv.h"
63
#include "winemm.h"
64

65
#include "wine/debug.h"
66
#include "wine/unicode.h"
67

68
WINE_DEFAULT_DEBUG_CHANNEL(mci);
69

70 71 72 73
WINMM_MapType  (*pFnMciMapMsg16To32W)  (WORD,WORD,DWORD,DWORD_PTR*) = NULL;
WINMM_MapType  (*pFnMciUnMapMsg16To32W)(WORD,WORD,DWORD,DWORD_PTR) = NULL;
WINMM_MapType  (*pFnMciMapMsg32WTo16)  (WORD,WORD,DWORD,DWORD_PTR*) = NULL;
WINMM_MapType  (*pFnMciUnMapMsg32WTo16)(WORD,WORD,DWORD,DWORD_PTR) = NULL;
74 75 76

/* First MCI valid device ID (0 means error) */
#define MCI_MAGIC 0x0001
77

78
/* MCI settings */
79 80 81 82 83 84
static const WCHAR wszHklmMci  [] = {'S','o','f','t','w','a','r','e','\\','M','i','c','r','o','s','o','f','t','\\','W','i','n','d','o','w','s',' ','N','T','\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\','M','C','I',0};
static const WCHAR wszNull     [] = {0};
static const WCHAR wszAll      [] = {'A','L','L',0};
static const WCHAR wszMci      [] = {'M','C','I',0};
static const WCHAR wszOpen     [] = {'o','p','e','n',0};
static const WCHAR wszSystemIni[] = {'s','y','s','t','e','m','.','i','n','i',0};
85

86 87
static WINE_MCIDRIVER *MciDrivers;

88
/* dup a string and uppercase it */
89
static inline LPWSTR str_dup_upper( LPCWSTR str )
90
{
91 92
    INT len = (strlenW(str) + 1) * sizeof(WCHAR);
    LPWSTR p = HeapAlloc( GetProcessHeap(), 0, len );
93 94 95
    if (p)
    {
        memcpy( p, str, len );
96
        CharUpperW( p );
97 98 99 100
    }
    return p;
}

101 102 103
/**************************************************************************
 * 				MCI_GetDriver			[internal]
 */
104
LPWINE_MCIDRIVER	MCI_GetDriver(UINT16 wDevID)
105 106 107
{
    LPWINE_MCIDRIVER	wmd = 0;

108 109
    EnterCriticalSection(&WINMM_cs);
    for (wmd = MciDrivers; wmd; wmd = wmd->lpNext) {
110 111
	if (wmd->wDeviceID == wDevID)
	    break;
112
    }
113
    LeaveCriticalSection(&WINMM_cs);
114 115 116 117 118 119
    return wmd;
}

/**************************************************************************
 * 				MCI_GetDriverFromString		[internal]
 */
120
UINT	MCI_GetDriverFromString(LPCWSTR lpstrName)
121 122 123 124 125 126
{
    LPWINE_MCIDRIVER	wmd;
    UINT		ret = 0;

    if (!lpstrName)
	return 0;
127

128
    if (!strcmpiW(lpstrName, wszAll))
129
	return MCI_ALL_DEVICE_ID;
130

131 132
    EnterCriticalSection(&WINMM_cs);
    for (wmd = MciDrivers; wmd; wmd = wmd->lpNext) {
133
	if (wmd->lpstrElementName && strcmpW(wmd->lpstrElementName, lpstrName) == 0) {
134 135 136
	    ret = wmd->wDeviceID;
	    break;
	}
137
	if (wmd->lpstrDeviceType && strcmpiW(wmd->lpstrDeviceType, lpstrName) == 0) {
138 139 140
	    ret = wmd->wDeviceID;
	    break;
	}
141
	if (wmd->lpstrAlias && strcmpiW(wmd->lpstrAlias, lpstrName) == 0) {
142 143
	    ret = wmd->wDeviceID;
	    break;
144 145
	}
    }
146
    LeaveCriticalSection(&WINMM_cs);
147

148 149 150 151 152 153
    return ret;
}

/**************************************************************************
 * 			MCI_MessageToString			[internal]
 */
154
const char* MCI_MessageToString(UINT wMsg)
155 156
{
    static char buffer[100];
157

158
#define CASE(s) case (s): return #s
159

160
    switch (wMsg) {
161 162 163 164 165 166 167 168 169 170 171 172 173
        CASE(DRV_LOAD);
        CASE(DRV_ENABLE);
        CASE(DRV_OPEN);
        CASE(DRV_CLOSE);
        CASE(DRV_DISABLE);
        CASE(DRV_FREE);
        CASE(DRV_CONFIGURE);
        CASE(DRV_QUERYCONFIGURE);
        CASE(DRV_INSTALL);
        CASE(DRV_REMOVE);
        CASE(DRV_EXITSESSION);
        CASE(DRV_EXITAPPLICATION);
        CASE(DRV_POWER);
174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225
	CASE(MCI_BREAK);
	CASE(MCI_CLOSE);
	CASE(MCI_CLOSE_DRIVER);
	CASE(MCI_COPY);
	CASE(MCI_CUE);
	CASE(MCI_CUT);
	CASE(MCI_DELETE);
	CASE(MCI_ESCAPE);
	CASE(MCI_FREEZE);
	CASE(MCI_PAUSE);
	CASE(MCI_PLAY);
	CASE(MCI_GETDEVCAPS);
	CASE(MCI_INFO);
	CASE(MCI_LOAD);
	CASE(MCI_OPEN);
	CASE(MCI_OPEN_DRIVER);
	CASE(MCI_PASTE);
	CASE(MCI_PUT);
	CASE(MCI_REALIZE);
	CASE(MCI_RECORD);
	CASE(MCI_RESUME);
	CASE(MCI_SAVE);
	CASE(MCI_SEEK);
	CASE(MCI_SET);
	CASE(MCI_SPIN);
	CASE(MCI_STATUS);
	CASE(MCI_STEP);
	CASE(MCI_STOP);
	CASE(MCI_SYSINFO);
	CASE(MCI_UNFREEZE);
	CASE(MCI_UPDATE);
	CASE(MCI_WHERE);
	CASE(MCI_WINDOW);
	/* constants for digital video */
	CASE(MCI_CAPTURE);
	CASE(MCI_MONITOR);
	CASE(MCI_RESERVE);
	CASE(MCI_SETAUDIO);
	CASE(MCI_SIGNAL);
	CASE(MCI_SETVIDEO);
	CASE(MCI_QUALITY);
	CASE(MCI_LIST);
	CASE(MCI_UNDO);
	CASE(MCI_CONFIGURE);
	CASE(MCI_RESTORE);
#undef CASE
    default:
	sprintf(buffer, "MCI_<<%04X>>", wMsg);
	return buffer;
    }
}

226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281
LPWSTR MCI_strdupAtoW( LPCSTR str )
{
    LPWSTR ret;
    INT len;

    if (!str) return NULL;
    len = MultiByteToWideChar( CP_ACP, 0, str, -1, NULL, 0 );
    ret = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
    if (ret) MultiByteToWideChar( CP_ACP, 0, str, -1, ret, len );
    return ret;
}

LPSTR MCI_strdupWtoA( LPCWSTR str )
{
    LPSTR ret;
    INT len;

    if (!str) return NULL;
    len = WideCharToMultiByte( CP_ACP, 0, str, -1, NULL, 0, NULL, NULL );
    ret = HeapAlloc( GetProcessHeap(), 0, len );
    if (ret) WideCharToMultiByte( CP_ACP, 0, str, -1, ret, len, NULL, NULL );
    return ret;
}

static int MCI_MapMsgAtoW(UINT msg, DWORD_PTR dwParam1, DWORD_PTR *dwParam2)
{
    if (msg < DRV_RESERVED) return 0;

    switch (msg)
    {
    case MCI_CLOSE:
    case MCI_CONFIGURE:
    case MCI_PLAY:
    case MCI_SEEK:
    case MCI_STOP:
    case MCI_PAUSE:
    case MCI_GETDEVCAPS:
    case MCI_SPIN:
    case MCI_SET:
    case MCI_STEP:
    case MCI_RECORD:
    case MCI_BREAK:
    case MCI_SOUND:
    case MCI_STATUS:
    case MCI_CUE:
    case MCI_REALIZE:
    case MCI_PUT:
    case MCI_WHERE:
    case MCI_FREEZE:
    case MCI_UNFREEZE:
    case MCI_CUT:
    case MCI_COPY:
    case MCI_PASTE:
    case MCI_UPDATE:
    case MCI_RESUME:
    case MCI_DELETE:
282 283 284 285 286
    case MCI_MONITOR:
    case MCI_SETAUDIO:
    case MCI_SIGNAL:
    case MCI_SETVIDEO:
    case MCI_LIST:
287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307
        return 0;

    case MCI_OPEN:
        {
            MCI_OPEN_PARMSA *mci_openA = (MCI_OPEN_PARMSA*)*dwParam2;
            MCI_OPEN_PARMSW *mci_openW;
            DWORD_PTR *ptr;

            ptr = HeapAlloc(GetProcessHeap(), 0, sizeof(DWORD_PTR) + sizeof(*mci_openW) + 2 * sizeof(DWORD));
            if (!ptr) return -1;

            *ptr++ = *dwParam2; /* save the previous pointer */
            *dwParam2 = (DWORD_PTR)ptr;
            mci_openW = (MCI_OPEN_PARMSW *)ptr;

            if (dwParam1 & MCI_NOTIFY)
                mci_openW->dwCallback = mci_openA->dwCallback;

            if (dwParam1 & MCI_OPEN_TYPE)
            {
                if (dwParam1 & MCI_OPEN_TYPE_ID)
308
                    mci_openW->lpstrDeviceType = (LPCWSTR)mci_openA->lpstrDeviceType;
309 310 311 312 313 314
                else
                    mci_openW->lpstrDeviceType = MCI_strdupAtoW(mci_openA->lpstrDeviceType);
            }
            if (dwParam1 & MCI_OPEN_ELEMENT)
            {
                if (dwParam1 & MCI_OPEN_ELEMENT_ID)
315
                    mci_openW->lpstrElementName = (LPCWSTR)mci_openA->lpstrElementName;
316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459
                else
                    mci_openW->lpstrElementName = MCI_strdupAtoW(mci_openA->lpstrElementName);
            }
            if (dwParam1 & MCI_OPEN_ALIAS)
                mci_openW->lpstrAlias = MCI_strdupAtoW(mci_openA->lpstrAlias);
            /* FIXME: this is only needed for specific types of MCI devices, and
             * may cause a segfault if the two DWORD:s don't exist at the end of 
             * mci_openA
             */
            memcpy(mci_openW + 1, mci_openA + 1, 2 * sizeof(DWORD));
        }
        return 1;

    case MCI_WINDOW:
        if (dwParam1 & MCI_ANIM_WINDOW_TEXT)
        {
            MCI_ANIM_WINDOW_PARMSA *mci_windowA = (MCI_ANIM_WINDOW_PARMSA *)*dwParam2;
            MCI_ANIM_WINDOW_PARMSW *mci_windowW;

            mci_windowW = HeapAlloc(GetProcessHeap(), 0, sizeof(*mci_windowW));
            if (!mci_windowW) return -1;

            *dwParam2 = (DWORD_PTR)mci_windowW;

            mci_windowW->lpstrText = MCI_strdupAtoW(mci_windowA->lpstrText);

            if (dwParam1 & MCI_NOTIFY)
                mci_windowW->dwCallback = mci_windowA->dwCallback;
            if (dwParam1 & MCI_ANIM_WINDOW_HWND)
                mci_windowW->hWnd = mci_windowA->hWnd;
            if (dwParam1 & MCI_ANIM_WINDOW_STATE)
                mci_windowW->nCmdShow = mci_windowA->nCmdShow;

            return 1;
        }
        return 0;

    case MCI_SYSINFO:
        {
            MCI_SYSINFO_PARMSA *mci_sysinfoA = (MCI_SYSINFO_PARMSA *)*dwParam2;
            MCI_SYSINFO_PARMSW *mci_sysinfoW;
            DWORD_PTR *ptr;

            ptr = HeapAlloc(GetProcessHeap(), 0, sizeof(*mci_sysinfoW) + sizeof(DWORD_PTR));
            if (!ptr) return -1;

            *ptr++ = *dwParam2; /* save the previous pointer */
            *dwParam2 = (DWORD_PTR)ptr;
            mci_sysinfoW = (MCI_SYSINFO_PARMSW *)ptr;

            if (dwParam1 & MCI_NOTIFY)
                mci_sysinfoW->dwCallback = mci_sysinfoA->dwCallback;

            mci_sysinfoW->dwRetSize = mci_sysinfoA->dwRetSize;
            mci_sysinfoW->lpstrReturn = HeapAlloc(GetProcessHeap(), 0, mci_sysinfoW->dwRetSize);
            mci_sysinfoW->dwNumber = mci_sysinfoA->dwNumber;
            mci_sysinfoW->wDeviceType = mci_sysinfoA->wDeviceType;
            return 1;
        }
    case MCI_INFO:
        {
            MCI_INFO_PARMSA *mci_infoA = (MCI_INFO_PARMSA *)*dwParam2;
            MCI_INFO_PARMSW *mci_infoW;
            DWORD_PTR *ptr;

            ptr = HeapAlloc(GetProcessHeap(), 0, sizeof(*mci_infoW) + sizeof(DWORD_PTR));
            if (!ptr) return -1;

            *ptr++ = *dwParam2; /* save the previous pointer */
            *dwParam2 = (DWORD_PTR)ptr;
            mci_infoW = (MCI_INFO_PARMSW *)ptr;

            if (dwParam1 & MCI_NOTIFY)
                mci_infoW->dwCallback = mci_infoA->dwCallback;

            mci_infoW->dwRetSize = mci_infoA->dwRetSize * sizeof(WCHAR); /* it's not the same as SYSINFO !!! */
            mci_infoW->lpstrReturn = HeapAlloc(GetProcessHeap(), 0, mci_infoW->dwRetSize);
            return 1;
        }
    case MCI_SAVE:
        {
            MCI_SAVE_PARMSA *mci_saveA = (MCI_SAVE_PARMSA *)*dwParam2;
            MCI_SAVE_PARMSW *mci_saveW;

            mci_saveW = HeapAlloc(GetProcessHeap(), 0, sizeof(*mci_saveW));
            if (!mci_saveW) return -1;

            *dwParam2 = (DWORD_PTR)mci_saveW;
            if (dwParam1 & MCI_NOTIFY)
                mci_saveW->dwCallback = mci_saveA->dwCallback;
            mci_saveW->lpfilename = MCI_strdupAtoW(mci_saveA->lpfilename);
            return 1;
        }
    case MCI_LOAD:
        {
            MCI_LOAD_PARMSA *mci_loadA = (MCI_LOAD_PARMSA *)*dwParam2;
            MCI_LOAD_PARMSW *mci_loadW;

            mci_loadW = HeapAlloc(GetProcessHeap(), 0, sizeof(*mci_loadW));
            if (!mci_loadW) return -1;

            *dwParam2 = (DWORD_PTR)mci_loadW;
            if (dwParam1 & MCI_NOTIFY)
                mci_loadW->dwCallback = mci_loadA->dwCallback;
            mci_loadW->lpfilename = MCI_strdupAtoW(mci_loadA->lpfilename);
            return 1;
        }

    case MCI_ESCAPE:
        {
            MCI_VD_ESCAPE_PARMSA *mci_vd_escapeA = (MCI_VD_ESCAPE_PARMSA *)*dwParam2;
            MCI_VD_ESCAPE_PARMSW *mci_vd_escapeW;

            mci_vd_escapeW = HeapAlloc(GetProcessHeap(), 0, sizeof(*mci_vd_escapeW));
            if (!mci_vd_escapeW) return -1;

            *dwParam2 = (DWORD_PTR)mci_vd_escapeW;
            if (dwParam1 & MCI_NOTIFY)
                mci_vd_escapeW->dwCallback = mci_vd_escapeA->dwCallback;
            mci_vd_escapeW->lpstrCommand = MCI_strdupAtoW(mci_vd_escapeA->lpstrCommand);
            return 1;
        }
    default:
        FIXME("Message %s needs translation\n", MCI_MessageToString(msg));
        return -1;
    }
}

static DWORD MCI_UnmapMsgAtoW(UINT msg, DWORD_PTR dwParam1, DWORD_PTR dwParam2,
                              DWORD result)
{
    switch (msg)
    {
    case MCI_OPEN:
        {
            DWORD_PTR *ptr = (DWORD_PTR *)dwParam2 - 1;
            MCI_OPEN_PARMSA *mci_openA = (MCI_OPEN_PARMSA *)*ptr;
            MCI_OPEN_PARMSW *mci_openW = (MCI_OPEN_PARMSW *)(ptr + 1);

            mci_openA->wDeviceID = mci_openW->wDeviceID;

            if (dwParam1 & MCI_OPEN_TYPE)
            {
                if (!(dwParam1 & MCI_OPEN_TYPE_ID))
460
                    HeapFree(GetProcessHeap(), 0, (LPWSTR)mci_openW->lpstrDeviceType);
461 462 463 464
            }
            if (dwParam1 & MCI_OPEN_ELEMENT)
            {
                if (!(dwParam1 & MCI_OPEN_ELEMENT_ID))
465
                    HeapFree(GetProcessHeap(), 0, (LPWSTR)mci_openW->lpstrElementName);
466 467
            }
            if (dwParam1 & MCI_OPEN_ALIAS)
468
                HeapFree(GetProcessHeap(), 0, (LPWSTR)mci_openW->lpstrAlias);
469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555
            HeapFree(GetProcessHeap(), 0, ptr);
        }
        break;
    case MCI_WINDOW:
        if (dwParam1 & MCI_ANIM_WINDOW_TEXT)
        {
            MCI_ANIM_WINDOW_PARMSW *mci_windowW = (MCI_ANIM_WINDOW_PARMSW *)dwParam2;

            HeapFree(GetProcessHeap(), 0, (void*)mci_windowW->lpstrText);
            HeapFree(GetProcessHeap(), 0, mci_windowW);
        }
        break;

    case MCI_SYSINFO:
        {
            DWORD_PTR *ptr = (DWORD_PTR *)dwParam2 - 1;
            MCI_SYSINFO_PARMSA *mci_sysinfoA = (MCI_SYSINFO_PARMSA *)*ptr;
            MCI_SYSINFO_PARMSW *mci_sysinfoW = (MCI_SYSINFO_PARMSW *)(ptr + 1);

            if (!result)
            {
                mci_sysinfoA->dwNumber = mci_sysinfoW->dwNumber;
                mci_sysinfoA->wDeviceType = mci_sysinfoW->wDeviceType;
                if (dwParam1 & MCI_SYSINFO_QUANTITY)
                    *(DWORD*)mci_sysinfoA->lpstrReturn = *(DWORD*)mci_sysinfoW->lpstrReturn;
                else
                    WideCharToMultiByte(CP_ACP, 0,
                                        mci_sysinfoW->lpstrReturn, mci_sysinfoW->dwRetSize,
                                        mci_sysinfoA->lpstrReturn, mci_sysinfoA->dwRetSize,
                                        NULL, NULL);
            }

            HeapFree(GetProcessHeap(), 0, mci_sysinfoW->lpstrReturn);
            HeapFree(GetProcessHeap(), 0, ptr);
        }
        break;
    case MCI_INFO:
        {
            DWORD_PTR *ptr = (DWORD_PTR *)dwParam2 - 1;
            MCI_INFO_PARMSA *mci_infoA = (MCI_INFO_PARMSA *)*ptr;
            MCI_INFO_PARMSW *mci_infoW = (MCI_INFO_PARMSW *)(ptr + 1);

            if (!result)
            {
                WideCharToMultiByte(CP_ACP, 0,
                                    mci_infoW->lpstrReturn, mci_infoW->dwRetSize / sizeof(WCHAR),
                                    mci_infoA->lpstrReturn, mci_infoA->dwRetSize,
                                    NULL, NULL);
            }

            HeapFree(GetProcessHeap(), 0, mci_infoW->lpstrReturn);
            HeapFree(GetProcessHeap(), 0, ptr);
        }
        break;
    case MCI_SAVE:
        {
            MCI_SAVE_PARMSW *mci_saveW = (MCI_SAVE_PARMSW *)dwParam2;

            HeapFree(GetProcessHeap(), 0, (void*)mci_saveW->lpfilename);
            HeapFree(GetProcessHeap(), 0, mci_saveW);
        }
        break;
    case MCI_LOAD:
        {
            MCI_LOAD_PARMSW *mci_loadW = (MCI_LOAD_PARMSW *)dwParam2;

            HeapFree(GetProcessHeap(), 0, (void*)mci_loadW->lpfilename);
            HeapFree(GetProcessHeap(), 0, mci_loadW);
        }
        break;
    case MCI_ESCAPE:
        {
            MCI_VD_ESCAPE_PARMSW *mci_vd_escapeW = (MCI_VD_ESCAPE_PARMSW *)dwParam2;

            HeapFree(GetProcessHeap(), 0, (void*)mci_vd_escapeW->lpstrCommand);
            HeapFree(GetProcessHeap(), 0, mci_vd_escapeW);
        }
        break;

    default:
        FIXME("Message %s needs unmapping\n", MCI_MessageToString(msg));
        break;
    }

    return result;
}

556 557 558
/**************************************************************************
 * 				MCI_GetDevTypeFromFileName	[internal]
 */
559
static	DWORD	MCI_GetDevTypeFromFileName(LPCWSTR fileName, LPWSTR buf, UINT len)
560
{
561
    LPCWSTR	tmp;
562
    HKEY	hKey;
563 564 565 566 567
    static const WCHAR keyW[] = {'S','O','F','T','W','A','R','E','\\','M','i','c','r','o','s','o','f','t','\\',
                                 'W','i','n','d','o','w','s',' ','N','T','\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
                                 'M','C','I',' ','E','x','t','e','n','s','i','o','n','s',0};
    if ((tmp = strrchrW(fileName, '.'))) {
	if (RegOpenKeyExW( HKEY_LOCAL_MACHINE, keyW,
568 569
			   0, KEY_QUERY_VALUE, &hKey ) == ERROR_SUCCESS) {
	    DWORD dwLen = len;
570
	    LONG lRet = RegQueryValueExW( hKey, tmp + 1, 0, 0, (void*)buf, &dwLen ); 
571 572 573
	    RegCloseKey( hKey );
	    if (lRet == ERROR_SUCCESS) return 0;
        }
574
	TRACE("No ...\\MCI Extensions entry for %s found.\n", debugstr_w(tmp));
575 576 577 578 579 580 581 582
    }
    return MCIERR_EXTENSION_NOT_FOUND;
}

#define	MAX_MCICMDTABLE			20
#define MCI_COMMAND_TABLE_NOT_LOADED	0xFFFE

typedef struct tagWINE_MCICMDTABLE {
583
    UINT		uDevType;
584
    const BYTE*		lpTable;
585
    UINT		nVerbs;		/* number of verbs in command table */
586
    LPCWSTR*		aVerbs;		/* array of verbs to speed up the verb look up process */
587
} WINE_MCICMDTABLE, *LPWINE_MCICMDTABLE;
588 589

static WINE_MCICMDTABLE S_MciCmdTable[MAX_MCICMDTABLE];
590 591 592 593 594 595

/**************************************************************************
 * 				MCI_IsCommandTableValid		[internal]
 */
static	BOOL		MCI_IsCommandTableValid(UINT uTbl)
{
596 597
    const BYTE* lmem;
    LPCWSTR     str;
598 599 600 601 602
    DWORD	flg;
    WORD	eid;
    int		idx = 0;
    BOOL	inCst = FALSE;

603 604
    TRACE("Dumping cmdTbl=%d [lpTable=%p devType=%d]\n",
	  uTbl, S_MciCmdTable[uTbl].lpTable, S_MciCmdTable[uTbl].uDevType);
605

606
    if (uTbl >= MAX_MCICMDTABLE || !S_MciCmdTable[uTbl].lpTable)
607 608 609 610
	return FALSE;

    lmem = S_MciCmdTable[uTbl].lpTable;
    do {
611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630
        str = (LPCWSTR)lmem;
        lmem += (strlenW(str) + 1) * sizeof(WCHAR);
        flg = *(const DWORD*)lmem;
        eid = *(const WORD*)(lmem + sizeof(DWORD));
        lmem += sizeof(DWORD) + sizeof(WORD);
        idx ++;
        /* TRACE("cmd=%s %08lx %04x\n", debugstr_w(str), flg, eid); */
        switch (eid) {
        case MCI_COMMAND_HEAD:          if (!*str || !flg) return FALSE; idx = 0;		break;	/* check unicity of str in table */
        case MCI_STRING:                if (inCst) return FALSE;				break;
        case MCI_INTEGER:               if (!*str) return FALSE;				break;
        case MCI_END_COMMAND:           if (*str || flg || idx == 0) return FALSE; idx = 0;	break;
        case MCI_RETURN:		if (*str || idx != 1) return FALSE;			break;
        case MCI_FLAG:		        if (!*str) return FALSE;				break;
        case MCI_END_COMMAND_LIST:	if (*str || flg) return FALSE;	idx = 0;		break;
        case MCI_RECT:		        if (!*str || inCst) return FALSE;			break;
        case MCI_CONSTANT:              if (inCst) return FALSE; inCst = TRUE;			break;
        case MCI_END_CONSTANT:	        if (*str || flg || !inCst) return FALSE; inCst = FALSE; break;
        default:			return FALSE;
        }
631 632 633 634 635 636 637 638 639
    } while (eid != MCI_END_COMMAND_LIST);
    return TRUE;
}

/**************************************************************************
 * 				MCI_DumpCommandTable		[internal]
 */
static	BOOL		MCI_DumpCommandTable(UINT uTbl)
{
640 641
    const BYTE*	lmem;
    LPCWSTR	str;
642 643
    DWORD	flg;
    WORD	eid;
644

645 646 647 648 649 650 651 652
    if (!MCI_IsCommandTableValid(uTbl)) {
	ERR("Ooops: %d is not valid\n", uTbl);
	return FALSE;
    }

    lmem = S_MciCmdTable[uTbl].lpTable;
    do {
	do {
653 654
	    str = (LPCWSTR)lmem;
	    lmem += (strlenW(str) + 1) * sizeof(WCHAR);
Eric Pouech's avatar
Eric Pouech committed
655 656
	    flg = *(const DWORD*)lmem;
	    eid = *(const WORD*)(lmem + sizeof(DWORD));
657
            /* TRACE("cmd=%s %08lx %04x\n", debugstr_w(str), flg, eid); */
658 659
	    lmem += sizeof(DWORD) + sizeof(WORD);
	} while (eid != MCI_END_COMMAND && eid != MCI_END_COMMAND_LIST);
660
        /* EPP TRACE(" => end of command%s\n", (eid == MCI_END_COMMAND_LIST) ? " list" : ""); */
661 662 663 664 665 666 667 668
    } while (eid != MCI_END_COMMAND_LIST);
    return TRUE;
}


/**************************************************************************
 * 				MCI_GetCommandTable		[internal]
 */
669
static	UINT		MCI_GetCommandTable(UINT uDevType)
670 671
{
    UINT	uTbl;
672 673
    WCHAR	buf[32];
    LPCWSTR	str = NULL;
674

675 676
    /* first look up existing for existing devType */
    for (uTbl = 0; uTbl < MAX_MCICMDTABLE; uTbl++) {
677
	if (S_MciCmdTable[uTbl].lpTable && S_MciCmdTable[uTbl].uDevType == uDevType)
678
	    return uTbl;
679 680 681 682
    }

    /* well try to load id */
    if (uDevType >= MCI_DEVTYPE_FIRST && uDevType <= MCI_DEVTYPE_LAST) {
683
	if (LoadStringW(hWinMM32Instance, uDevType, buf, sizeof(buf) / sizeof(WCHAR))) {
684 685 686
	    str = buf;
	}
    } else if (uDevType == 0) {
687 688
        static const WCHAR wszCore[] = {'C','O','R','E',0};
	str = wszCore;
689 690 691
    }
    uTbl = MCI_NO_COMMAND_TABLE;
    if (str) {
692
	HRSRC 	hRsrc = FindResourceW(hWinMM32Instance, str, (LPCWSTR)RT_RCDATA);
693 694
	HANDLE	hMem = 0;

695
	if (hRsrc) hMem = LoadResource(hWinMM32Instance, hRsrc);
696
	if (hMem) {
697
	    uTbl = MCI_SetCommandTable(LockResource(hMem), uDevType);
698
	} else {
699
	    WARN("No command table found in resource %p[%s]\n",
700
		 hWinMM32Instance, debugstr_w(str));
701 702 703 704 705 706 707 708 709
	}
    }
    TRACE("=> %d\n", uTbl);
    return uTbl;
}

/**************************************************************************
 * 				MCI_SetCommandTable		[internal]
 */
710
UINT MCI_SetCommandTable(void *table, UINT uDevType)
711
{
712 713 714 715 716 717 718 719 720 721
    int		        uTbl;
    static	BOOL	bInitDone = FALSE;

    /* <HACK>
     * The CORE command table must be loaded first, so that MCI_GetCommandTable()
     * can be called with 0 as a uDevType to retrieve it.
     * </HACK>
     */
    if (!bInitDone) {
	bInitDone = TRUE;
722
	MCI_GetCommandTable(0);
723
    }
724
    TRACE("(%p, %u)\n", table, uDevType);
725
    for (uTbl = 0; uTbl < MAX_MCICMDTABLE; uTbl++) {
726
	if (!S_MciCmdTable[uTbl].lpTable) {
727 728
	    const BYTE* lmem;
	    LPCWSTR 	str;
729 730 731
	    WORD	eid;
	    WORD	count;

732
	    S_MciCmdTable[uTbl].uDevType = uDevType;
733
	    S_MciCmdTable[uTbl].lpTable = table;
734 735 736 737

	    if (TRACE_ON(mci)) {
		MCI_DumpCommandTable(uTbl);
	    }
738 739 740 741 742 743

	    /* create the verbs table */
	    /* get # of entries */
	    lmem = S_MciCmdTable[uTbl].lpTable;
	    count = 0;
	    do {
744 745
		str = (LPCWSTR)lmem;
		lmem += (strlenW(str) + 1) * sizeof(WCHAR);
Eric Pouech's avatar
Eric Pouech committed
746
		eid = *(const WORD*)(lmem + sizeof(DWORD));
747 748 749 750 751
		lmem += sizeof(DWORD) + sizeof(WORD);
		if (eid == MCI_COMMAND_HEAD)
		    count++;
	    } while (eid != MCI_END_COMMAND_LIST);

752
	    S_MciCmdTable[uTbl].aVerbs = HeapAlloc(GetProcessHeap(), 0, count * sizeof(LPCWSTR));
753 754 755 756 757
	    S_MciCmdTable[uTbl].nVerbs = count;

	    lmem = S_MciCmdTable[uTbl].lpTable;
	    count = 0;
	    do {
758 759
		str = (LPCWSTR)lmem;
		lmem += (strlenW(str) + 1) * sizeof(WCHAR);
Eric Pouech's avatar
Eric Pouech committed
760
		eid = *(const WORD*)(lmem + sizeof(DWORD));
761 762 763 764 765
		lmem += sizeof(DWORD) + sizeof(WORD);
		if (eid == MCI_COMMAND_HEAD)
		    S_MciCmdTable[uTbl].aVerbs[count++] = str;
	    } while (eid != MCI_END_COMMAND_LIST);
	    /* assert(count == S_MciCmdTable[uTbl].nVerbs); */
766 767 768 769 770 771 772 773 774 775
	    return uTbl;
	}
    }

    return MCI_NO_COMMAND_TABLE;
}

/**************************************************************************
 * 				MCI_DeleteCommandTable		[internal]
 */
776
BOOL	MCI_DeleteCommandTable(UINT uTbl, BOOL delete)
777
{
778
    if (uTbl >= MAX_MCICMDTABLE || !S_MciCmdTable[uTbl].lpTable)
779 780
	return FALSE;

781
    if (delete) HeapFree(GetProcessHeap(), 0, (void*)S_MciCmdTable[uTbl].lpTable);
782
    S_MciCmdTable[uTbl].lpTable = NULL;
783 784
    HeapFree(GetProcessHeap(), 0, S_MciCmdTable[uTbl].aVerbs);
    S_MciCmdTable[uTbl].aVerbs = 0;
785 786 787 788 789 790
    return TRUE;
}

/**************************************************************************
 * 				MCI_UnLoadMciDriver		[internal]
 */
791
static	BOOL	MCI_UnLoadMciDriver(LPWINE_MCIDRIVER wmd)
792
{
793
    LPWINE_MCIDRIVER*		tmp;
794 795 796 797

    if (!wmd)
	return TRUE;

798
    CloseDriver(wmd->hDriver, 0, 0);
799 800 801 802

    if (wmd->dwPrivate != 0)
	WARN("Unloading mci driver with non nul dwPrivate field\n");

803 804
    EnterCriticalSection(&WINMM_cs);
    for (tmp = &MciDrivers; *tmp; tmp = &(*tmp)->lpNext) {
805 806 807 808 809
	if (*tmp == wmd) {
	    *tmp = wmd->lpNext;
	    break;
	}
    }
810
    LeaveCriticalSection(&WINMM_cs);
811 812 813 814 815 816 817 818

    HeapFree(GetProcessHeap(), 0, wmd->lpstrDeviceType);
    HeapFree(GetProcessHeap(), 0, wmd->lpstrAlias);
    HeapFree(GetProcessHeap(), 0, wmd->lpstrElementName);

    HeapFree(GetProcessHeap(), 0, wmd);
    return TRUE;
}
819

820 821 822
/**************************************************************************
 * 				MCI_OpenMciDriver		[internal]
 */
823
static	BOOL	MCI_OpenMciDriver(LPWINE_MCIDRIVER wmd, LPCWSTR drvTyp, DWORD_PTR lp)
824
{
825
    WCHAR	libName[128];
826

827
    if (!DRIVER_GetLibName(drvTyp, wszMci, libName, sizeof(libName)))
828 829 830 831 832 833
	return FALSE;

    wmd->bIs32 = 0xFFFF;
    /* First load driver */
    if ((wmd->hDriver = (HDRVR)DRIVER_TryOpenDriver32(libName, lp))) {
	wmd->bIs32 = TRUE;
834
    } else if (WINMM_CheckForMMSystem() && pFnMciMapMsg32WTo16) {
835
	WINMM_MapType 	res;
836

837
	switch (res = pFnMciMapMsg32WTo16(0, DRV_OPEN, 0, &lp)) {
838
	case WINMM_MAP_MSGERROR:
839
	    TRACE("Not handled yet (DRV_OPEN)\n");
840
	    break;
841
	case WINMM_MAP_NOMEM:
842
	    TRACE("Problem mapping msg=DRV_OPEN from 32W to 16\n");
843
	    break;
844 845
	case WINMM_MAP_OK:
	case WINMM_MAP_OKMEM:
846
	    if ((wmd->hDriver = OpenDriver(drvTyp, wszMci, lp)))
847
		wmd->bIs32 = FALSE;
848
	    if (res == WINMM_MAP_OKMEM)
849
		pFnMciUnMapMsg32WTo16(0, DRV_OPEN, 0, lp);
850 851 852 853 854 855
	    break;
	}
    }
    return (wmd->bIs32 == 0xFFFF) ? FALSE : TRUE;
}

856 857 858
/**************************************************************************
 * 				MCI_LoadMciDriver		[internal]
 */
859
static	DWORD	MCI_LoadMciDriver(LPCWSTR _strDevTyp, LPWINE_MCIDRIVER* lpwmd)
860
{
861
    LPWSTR			strDevTyp = str_dup_upper(_strDevTyp);
862
    LPWINE_MCIDRIVER		wmd = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*wmd));
863
    MCI_OPEN_DRIVER_PARMSW	modp;
864
    DWORD			dwRet = 0;
865

866 867 868 869
    if (!wmd || !strDevTyp) {
	dwRet = MCIERR_OUT_OF_MEMORY;
	goto errCleanUp;
    }
870

871 872
    wmd->lpfnYieldProc = MCI_DefYieldProc;
    wmd->dwYieldData = VK_CANCEL;
873
    wmd->CreatorThread = GetCurrentThreadId();
874

875
    EnterCriticalSection(&WINMM_cs);
Austin English's avatar
Austin English committed
876
    /* wmd must be inserted in list before sending opening the driver, because it
877 878
     * may want to lookup at wDevID
     */
879 880
    wmd->lpNext = MciDrivers;
    MciDrivers = wmd;
881

882 883
    for (modp.wDeviceID = MCI_MAGIC;
	 MCI_GetDriver(modp.wDeviceID) != 0;
884 885 886 887
	 modp.wDeviceID++);

    wmd->wDeviceID = modp.wDeviceID;

888
    LeaveCriticalSection(&WINMM_cs);
889

890
    TRACE("wDevID=%04X\n", modp.wDeviceID);
891 892

    modp.lpstrParams = NULL;
893

894
    if (!MCI_OpenMciDriver(wmd, strDevTyp, (DWORD_PTR)&modp)) {
895 896 897
	/* silence warning if all is used... some bogus program use commands like
	 * 'open all'...
	 */
898
	if (strcmpiW(strDevTyp, wszAll) == 0) {
899 900
	    dwRet = MCIERR_CANNOT_USE_ALL;
	} else {
901
	    FIXME("Couldn't load driver for type %s.\n",
902
		  debugstr_w(strDevTyp));
903 904
	    dwRet = MCIERR_DEVICE_NOT_INSTALLED;
	}
905
	goto errCleanUp;
906
    }
907

908 909 910 911 912 913 914 915
    /* FIXME: should also check that module's description is of the form
     * MODULENAME:[MCI] comment
     */

    /* some drivers will return 0x0000FFFF, some others 0xFFFFFFFF */
    wmd->uSpecificCmdTable = LOWORD(modp.wCustomCommandTable);
    wmd->uTypeCmdTable = MCI_COMMAND_TABLE_NOT_LOADED;

916
    TRACE("Loaded driver %p (%s), type is %d, cmdTable=%08x\n",
917
	  wmd->hDriver, debugstr_w(strDevTyp), modp.wType, modp.wCustomCommandTable);
918

919 920 921
    wmd->lpstrDeviceType = strDevTyp;
    wmd->wType = modp.wType;

922
    TRACE("mcidev=%d, uDevTyp=%04X wDeviceID=%04X !\n",
923 924 925 926
	  modp.wDeviceID, modp.wType, modp.wDeviceID);
    *lpwmd = wmd;
    return 0;
errCleanUp:
927
    MCI_UnLoadMciDriver(wmd);
928 929 930 931
    HeapFree(GetProcessHeap(), 0, strDevTyp);
    *lpwmd = 0;
    return dwRet;
}
932

933 934 935
/**************************************************************************
 * 			MCI_FinishOpen				[internal]
 */
936
static	DWORD	MCI_FinishOpen(LPWINE_MCIDRIVER wmd, LPMCI_OPEN_PARMSW lpParms,
937 938 939
			       DWORD dwParam)
{
    if (dwParam & MCI_OPEN_ELEMENT)
940
    {
941 942
        wmd->lpstrElementName = HeapAlloc(GetProcessHeap(),0,(strlenW(lpParms->lpstrElementName)+1) * sizeof(WCHAR));
        strcpyW( wmd->lpstrElementName, lpParms->lpstrElementName );
943
    }
944
    if (dwParam & MCI_OPEN_ALIAS)
945
    {
946 947
        wmd->lpstrAlias = HeapAlloc(GetProcessHeap(), 0, (strlenW(lpParms->lpstrAlias)+1) * sizeof(WCHAR));
        strcpyW( wmd->lpstrAlias, lpParms->lpstrAlias);
948
    }
949 950
    lpParms->wDeviceID = wmd->wDeviceID;

951
    return MCI_SendCommandFrom32(wmd->wDeviceID, MCI_OPEN_DRIVER, dwParam,
952 953 954 955 956 957
				 (DWORD)lpParms);
}

/**************************************************************************
 * 				MCI_FindCommand		[internal]
 */
958
static	LPCWSTR		MCI_FindCommand(UINT uTbl, LPCWSTR verb)
959
{
960
    UINT	idx;
961

962
    if (uTbl >= MAX_MCICMDTABLE || !S_MciCmdTable[uTbl].lpTable)
963 964
	return NULL;

965 966 967 968 969
    /* another improvement would be to have the aVerbs array sorted,
     * so that we could use a dichotomic search on it, rather than this dumb
     * array look up
     */
    for (idx = 0; idx < S_MciCmdTable[uTbl].nVerbs; idx++) {
970
	if (strcmpiW(S_MciCmdTable[uTbl].aVerbs[idx], verb) == 0)
971 972
	    return S_MciCmdTable[uTbl].aVerbs[idx];
    }
973 974 975 976 977 978 979

    return NULL;
}

/**************************************************************************
 * 				MCI_GetReturnType		[internal]
 */
980
static	DWORD		MCI_GetReturnType(LPCWSTR lpCmd)
981
{
982 983
    lpCmd = (LPCWSTR)((const BYTE*)(lpCmd + strlenW(lpCmd) + 1) + sizeof(DWORD) + sizeof(WORD));
    if (*lpCmd == '\0' && *(const WORD*)((const BYTE*)(lpCmd + 1) + sizeof(DWORD)) == MCI_RETURN) {
Eric Pouech's avatar
Eric Pouech committed
984
	return *(const DWORD*)(lpCmd + 1);
985 986 987 988 989 990 991
    }
    return 0L;
}

/**************************************************************************
 * 				MCI_GetMessage			[internal]
 */
992
static	WORD		MCI_GetMessage(LPCWSTR lpCmd)
993
{
994
    return (WORD)*(const DWORD*)(lpCmd + strlenW(lpCmd) + 1);
995 996 997 998 999
}

/**************************************************************************
 * 				MCI_GetDWord			[internal]
 */
1000
static	BOOL		MCI_GetDWord(LPDWORD data, LPWSTR* ptr)
1001 1002
{
    DWORD	val;
1003
    LPWSTR	ret;
1004

1005
    val = strtoulW(*ptr, &ret, 0);
1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020

    switch (*ret) {
    case '\0':	break;
    case ' ':	ret++; break;
    default:	return FALSE;
    }

    *data |= val;
    *ptr = ret;
    return TRUE;
}

/**************************************************************************
 * 				MCI_GetString		[internal]
 */
1021
static	DWORD	MCI_GetString(LPWSTR* str, LPWSTR* args)
1022
{
1023
    LPWSTR      ptr = *args;
1024 1025 1026

    /* see if we have a quoted string */
    if (*ptr == '"') {
1027
	ptr = strchrW(*str = ptr + 1, '"');
1028 1029 1030 1031 1032 1033
	if (!ptr) return MCIERR_NO_CLOSING_QUOTE;
	/* FIXME: shall we escape \" from string ?? */
	if (ptr[-1] == '\\') TRACE("Ooops: un-escaped \"\n");
	*ptr++ = '\0'; /* remove trailing " */
	if (*ptr != ' ' && *ptr != '\0') return MCIERR_EXTRA_CHARACTERS;
    } else {
1034
	ptr = strchrW(ptr, ' ');
1035 1036 1037 1038

	if (ptr) {
	    *ptr++ = '\0';
	} else {
1039
	    ptr = *args + strlenW(*args);
1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052
	}
	*str = *args;
    }

    *args = ptr;
    return 0;
}

#define	MCI_DATA_SIZE	16

/**************************************************************************
 * 				MCI_ParseOptArgs		[internal]
 */
1053 1054
static	DWORD	MCI_ParseOptArgs(LPDWORD data, int _offset, LPCWSTR lpCmd,
				 LPWSTR args, LPDWORD dwFlags)
1055 1056
{
    int		len, offset;
1057 1058
    const char* lmem;
    LPCWSTR     str;
1059 1060 1061 1062 1063 1064
    DWORD	dwRet, flg, cflg = 0;
    WORD	eid;
    BOOL	inCst, found;

    /* loop on arguments */
    while (*args) {
1065
	lmem = (const char*)lpCmd;
1066 1067
	found = inCst = FALSE;
	offset = _offset;
1068 1069 1070

	/* skip any leading white space(s) */
	while (*args == ' ') args++;
1071
	TRACE("args=%s offset=%d\n", debugstr_w(args), offset);
1072

1073
	do { /* loop on options for command table for the requested verb */
1074 1075
	    str = (LPCWSTR)lmem;
	    lmem += ((len = strlenW(str)) + 1) * sizeof(WCHAR);
Eric Pouech's avatar
Eric Pouech committed
1076 1077
	    flg = *(const DWORD*)lmem;
	    eid = *(const WORD*)(lmem + sizeof(DWORD));
1078
	    lmem += sizeof(DWORD) + sizeof(WORD);
1079
            /* TRACE("\tcmd=%s inCst=%c eid=%04x\n", debugstr_w(str), inCst ? 'Y' : 'N', eid); */
1080

1081
	    switch (eid) {
1082
	    case MCI_CONSTANT:
1083
		inCst = TRUE;	cflg = flg;	break;
1084
	    case MCI_END_CONSTANT:
1085 1086 1087 1088
		/* there may be additional integral values after flag in constant */
		if (inCst && MCI_GetDWord(&(data[offset]), &args)) {
		    *dwFlags |= cflg;
		}
1089
		inCst = FALSE;	cflg = 0;
1090 1091 1092
		break;
	    }

1093
	    if (strncmpiW(args, str, len) == 0 &&
1094
                ((eid == MCI_STRING && len == 0) || args[len] == 0 || args[len] == ' ')) {
1095 1096
		/* store good values into data[] */
		args += len;
1097
		while (*args == ' ') args++;
1098 1099 1100 1101 1102 1103 1104 1105 1106 1107
		found = TRUE;

		switch (eid) {
		case MCI_COMMAND_HEAD:
		case MCI_RETURN:
		case MCI_END_COMMAND:
		case MCI_END_COMMAND_LIST:
		case MCI_CONSTANT: 	/* done above */
		case MCI_END_CONSTANT:  /* done above */
		    break;
1108
		case MCI_FLAG:
1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122
		    *dwFlags |= flg;
		    break;
		case MCI_INTEGER:
		    if (inCst) {
			data[offset] |= flg;
			*dwFlags |= cflg;
			inCst = FALSE;
		    } else {
			*dwFlags |= flg;
			if (!MCI_GetDWord(&(data[offset]), &args)) {
			    return MCIERR_BAD_INTEGER;
			}
		    }
		    break;
1123
		case MCI_RECT:
1124
		    /* store rect in data (offset..offset+3) */
1125 1126 1127 1128 1129
		    *dwFlags |= flg;
		    if (!MCI_GetDWord(&(data[offset+0]), &args) ||
			!MCI_GetDWord(&(data[offset+1]), &args) ||
			!MCI_GetDWord(&(data[offset+2]), &args) ||
			!MCI_GetDWord(&(data[offset+3]), &args)) {
1130
			ERR("Bad rect %s\n", debugstr_w(args));
1131 1132 1133 1134 1135
			return MCIERR_BAD_INTEGER;
		    }
		    break;
		case MCI_STRING:
		    *dwFlags |= flg;
1136
		    if ((dwRet = MCI_GetString((LPWSTR*)&data[offset], &args)))
1137 1138
			return dwRet;
		    break;
1139
		default:	ERR("oops\n");
1140
		}
1141 1142
		/* exit inside while loop, except if just entered in constant area definition */
		if (!inCst || eid != MCI_CONSTANT) eid = MCI_END_COMMAND;
1143 1144 1145 1146 1147 1148 1149 1150 1151 1152
	    } else {
		/* have offset incremented if needed */
		switch (eid) {
		case MCI_COMMAND_HEAD:
		case MCI_RETURN:
		case MCI_END_COMMAND:
		case MCI_END_COMMAND_LIST:
		case MCI_CONSTANT:
		case MCI_FLAG:			break;
		case MCI_INTEGER:		if (!inCst) offset++;	break;
1153
		case MCI_END_CONSTANT:
1154 1155
		case MCI_STRING:		offset++; break;
		case MCI_RECT:			offset += 4; break;
1156
		default:			ERR("oops\n");
1157 1158 1159 1160
		}
	    }
	} while (eid != MCI_END_COMMAND);
	if (!found) {
1161
	    WARN("Optarg %s not found\n", debugstr_w(args));
1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174
	    return MCIERR_UNRECOGNIZED_COMMAND;
	}
	if (offset == MCI_DATA_SIZE) {
	    ERR("Internal data[] buffer overflow\n");
	    return MCIERR_PARSER_INTERNAL;
	}
    }
    return 0;
}

/**************************************************************************
 * 				MCI_HandleReturnValues	[internal]
 */
1175
static	DWORD	MCI_HandleReturnValues(DWORD dwRet, LPWINE_MCIDRIVER wmd, DWORD retType, 
1176
                                       LPDWORD data, LPWSTR lpstrRet, UINT uRetLen)
1177
{
1178 1179 1180 1181 1182
    static const WCHAR wszLd  [] = {'%','l','d',0};
    static const WCHAR wszLd4 [] = {'%','l','d',' ','%','l','d',' ','%','l','d',' ','%','l','d',0};
    static const WCHAR wszCol3[] = {'%','d',':','%','d',':','%','d',0};
    static const WCHAR wszCol4[] = {'%','d',':','%','d',':','%','d',':','%','d',0};

1183
    if (lpstrRet) {
1184
	switch (retType) {
1185 1186
	case 0: /* nothing to return */
	    break;
1187
	case MCI_INTEGER:
1188 1189 1190
	    switch (dwRet & 0xFFFF0000ul) {
	    case 0:
	    case MCI_INTEGER_RETURNED:
1191
		snprintfW(lpstrRet, uRetLen, wszLd, data[1]);
1192 1193
		break;
	    case MCI_RESOURCE_RETURNED:
1194
		/* return string which ID is HIWORD(data[1]),
1195
		 * string is loaded from mmsystem.dll */
1196
		LoadStringW(hWinMM32Instance, HIWORD(data[1]), lpstrRet, uRetLen);
1197 1198
		break;
	    case MCI_RESOURCE_RETURNED|MCI_RESOURCE_DRIVER:
1199
		/* return string which ID is HIWORD(data[1]),
1200
		 * string is loaded from driver */
1201
		/* FIXME: this is wrong for a 16 bit handle */
1202
		LoadStringW(GetDriverModuleHandle(wmd->hDriver),
1203
			    HIWORD(data[1]), lpstrRet, uRetLen);
1204 1205
		break;
	    case MCI_COLONIZED3_RETURN:
1206 1207 1208
		snprintfW(lpstrRet, uRetLen, wszCol3,
			  LOBYTE(LOWORD(data[1])), HIBYTE(LOWORD(data[1])),
			  LOBYTE(HIWORD(data[1])));
1209 1210
		break;
	    case MCI_COLONIZED4_RETURN:
1211 1212 1213
		snprintfW(lpstrRet, uRetLen, wszCol4,
			  LOBYTE(LOWORD(data[1])), HIBYTE(LOWORD(data[1])),
			  LOBYTE(HIWORD(data[1])), HIBYTE(HIWORD(data[1])));
1214 1215 1216 1217
		break;
	    default:	ERR("Ooops (%04X)\n", HIWORD(dwRet));
	    }
	    break;
1218
	case MCI_STRING:
1219 1220 1221 1222 1223 1224
	    switch (dwRet & 0xFFFF0000ul) {
	    case 0:
		/* nothing to do data[1] == lpstrRet */
		break;
	    case MCI_INTEGER_RETURNED:
		data[1] = *(LPDWORD)lpstrRet;
1225
		snprintfW(lpstrRet, uRetLen, wszLd, data[1]);
1226 1227 1228 1229 1230 1231
		break;
	    default:
		WARN("Oooch. MCI_STRING and HIWORD(dwRet)=%04x\n", HIWORD(dwRet));
		break;
	    }
	    break;
1232 1233
	case MCI_RECT:
	    if (dwRet & 0xFFFF0000ul)
1234
		WARN("Oooch. MCI_STRING and HIWORD(dwRet)=%04x\n", HIWORD(dwRet));
1235 1236
	    snprintfW(lpstrRet, uRetLen, wszLd4,
                      data[1], data[2], data[3], data[4]);
1237 1238 1239 1240 1241 1242 1243 1244
	    break;
	default:		ERR("oops\n");
	}
    }
    return LOWORD(dwRet);
}

/**************************************************************************
1245
 * 				mciSendStringW		[WINMM.@]
1246
 */
1247
DWORD WINAPI mciSendStringW(LPCWSTR lpstrCommand, LPWSTR lpstrRet,
1248 1249
			    UINT uRetLen, HWND hwndCallback)
{
1250
    LPWSTR		verb, dev, args;
1251 1252 1253 1254
    LPWINE_MCIDRIVER	wmd = 0;
    DWORD		dwFlags = 0, dwRet = 0;
    int			offset = 0;
    DWORD		data[MCI_DATA_SIZE];
1255
    DWORD		retType;
1256 1257 1258 1259
    LPCWSTR		lpCmd = 0;
    LPWSTR		devAlias = NULL;
    static const WCHAR  wszNew[] = {'n','e','w',0};
    static const WCHAR  wszSAliasS[] = {' ','a','l','i','a','s',' ',0};
1260
    static const WCHAR wszTypeS[] = {'t','y','p','e',' ',0};
1261

1262 1263
    TRACE("(%s, %p, %d, %p)\n", 
          debugstr_w(lpstrCommand), lpstrRet, uRetLen, hwndCallback);
1264 1265

    /* format is <command> <device> <optargs> */
1266
    if (!(verb = HeapAlloc(GetProcessHeap(), 0, (strlenW(lpstrCommand)+1) * sizeof(WCHAR))))
1267
	return MCIERR_OUT_OF_MEMORY;
1268 1269
    strcpyW( verb, lpstrCommand );
    CharLowerW(verb);
1270 1271 1272

    memset(data, 0, sizeof(data));

1273
    if (!(args = strchrW(verb, ' '))) {
1274 1275 1276 1277 1278 1279 1280 1281
	dwRet = MCIERR_MISSING_DEVICE_NAME;
	goto errCleanUp;
    }
    *args++ = '\0';
    if ((dwRet = MCI_GetString(&dev, &args))) {
	goto errCleanUp;
    }

1282
    /* Determine devType from open */
1283 1284
    if (!strcmpW(verb, wszOpen)) {
	LPWSTR	devType, tmp;
1285
        WCHAR	buf[128];
1286

1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302
	/* case dev == 'new' has to be handled */
	if (!strcmpW(dev, wszNew)) {
	    dev = 0;
	    if ((devType = strstrW(args, wszTypeS)) != NULL) {
		devType += 5;
		tmp = strchrW(devType, ' ');
		if (tmp) *tmp = '\0';
		devType = str_dup_upper(devType);
		if (tmp) *tmp = ' ';
		/* dwFlags and data[2] will be correctly set in ParseOpt loop */
	    } else {
		WARN("open new requires device type\n");
		dwRet = MCIERR_MISSING_DEVICE_NAME;
		goto errCleanUp;
	    }
	} else if ((devType = strchrW(dev, '!')) != NULL) {
1303
	    *devType++ = '\0';
1304 1305 1306 1307
	    tmp = devType; devType = dev; dev = tmp;

	    dwFlags |= MCI_OPEN_TYPE;
	    data[2] = (DWORD)devType;
1308
	    devType = str_dup_upper(devType);
1309 1310
	    dwFlags |= MCI_OPEN_ELEMENT;
	    data[3] = (DWORD)dev;
1311 1312 1313
	} else if (DRIVER_GetLibName(dev, wszMci, buf, sizeof(buf))) {
            /* this is the name of a mci driver's type */
	    tmp = strchrW(dev, ' ');
1314 1315
	    if (tmp) *tmp = '\0';
	    data[2] = (DWORD)dev;
1316
	    devType = str_dup_upper(dev);
1317 1318
	    if (tmp) *tmp = ' ';
	    dwFlags |= MCI_OPEN_TYPE;
1319
	} else {
1320
	    if ((devType = strstrW(args, wszTypeS)) != NULL) {
1321
		devType += 5;
1322
		tmp = strchrW(devType, ' ');
1323
		if (tmp) *tmp = '\0';
1324
		devType = str_dup_upper(devType);
1325 1326 1327 1328 1329 1330
		if (tmp) *tmp = ' ';
		/* dwFlags and data[2] will be correctly set in ParseOpt loop */
	    } else {
		if ((dwRet = MCI_GetDevTypeFromFileName(dev, buf, sizeof(buf))))
		    goto errCleanUp;

1331
		devType = str_dup_upper(buf);
1332 1333 1334 1335
	    }
	    dwFlags |= MCI_OPEN_ELEMENT;
	    data[3] = (DWORD)dev;
	}
1336 1337
	if ((devAlias = strstrW(args, wszSAliasS))) {
            WCHAR*      tmp2;
1338
	    devAlias += 7;
1339
	    if (!(tmp = strchrW(devAlias,' '))) tmp = devAlias + strlenW(devAlias);
1340
	    if (tmp) *tmp = '\0';
1341 1342
            tmp2 = HeapAlloc(GetProcessHeap(), 0, (tmp - devAlias + 1) * sizeof(WCHAR) );
            memcpy( tmp2, devAlias, (tmp - devAlias) * sizeof(WCHAR) );
1343 1344
            tmp2[tmp - devAlias] = 0;
            data[4] = (DWORD)tmp2;
1345 1346
	    /* should be done in regular options parsing */
	    /* dwFlags |= MCI_OPEN_ALIAS; */
1347 1348 1349 1350
	} else if (dev == 0) {
	    /* "open new" requires alias */
	    dwRet = MCIERR_NEW_REQUIRES_ALIAS;
	    goto errCleanUp;
1351 1352
	}

1353
	dwRet = MCI_LoadMciDriver(devType, &wmd);
1354 1355
	if (dwRet == MCIERR_DEVICE_NOT_INSTALLED)
	    dwRet = MCIERR_INVALID_DEVICE_NAME;
1356 1357
	HeapFree(GetProcessHeap(), 0, devType);
	if (dwRet) {
1358
	    MCI_UnLoadMciDriver(wmd);
1359 1360
	    goto errCleanUp;
	}
1361
    } else if (!(wmd = MCI_GetDriver(mciGetDeviceIDW(dev)))) {
1362
	/* auto open */
1363
        static const WCHAR wszOpenWait[] = {'o','p','e','n',' ','%','s',' ','w','a','i','t',0};
1364 1365
	WCHAR   buf[128];
	sprintfW(buf, wszOpenWait, dev);
1366

1367
	if ((dwRet = mciSendStringW(buf, NULL, 0, 0)) != 0)
1368
	    goto errCleanUp;
1369

1370
	wmd = MCI_GetDriver(mciGetDeviceIDW(dev));
1371
	if (!wmd) {
1372
	    /* FIXME: memory leak, MCI driver is not closed */
1373 1374 1375
	    dwRet = MCIERR_INVALID_DEVICE_ID;
	    goto errCleanUp;
	}
1376 1377 1378
    }

    /* get the verb in the different command tables */
1379 1380 1381 1382 1383 1384
    if (wmd) {
	/* try the device specific command table */
	lpCmd = MCI_FindCommand(wmd->uSpecificCmdTable, verb);
	if (!lpCmd) {
	    /* try the type specific command table */
	    if (wmd->uTypeCmdTable == MCI_COMMAND_TABLE_NOT_LOADED)
1385
		wmd->uTypeCmdTable = MCI_GetCommandTable(wmd->wType);
1386 1387 1388
	    if (wmd->uTypeCmdTable != MCI_NO_COMMAND_TABLE)
		lpCmd = MCI_FindCommand(wmd->uTypeCmdTable, verb);
	}
1389 1390
    }
    /* try core command table */
1391
    if (!lpCmd) lpCmd = MCI_FindCommand(MCI_GetCommandTable(0), verb);
1392 1393

    if (!lpCmd) {
1394
	TRACE("Command %s not found!\n", debugstr_w(verb));
1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405
	dwRet = MCIERR_UNRECOGNIZED_COMMAND;
	goto errCleanUp;
    }

    /* set up call back */
    if (hwndCallback != 0) {
	dwFlags |= MCI_NOTIFY;
	data[0] = (DWORD)hwndCallback;
    }

    /* set return information */
1406
    switch (retType = MCI_GetReturnType(lpCmd)) {
1407 1408 1409 1410 1411 1412 1413
    case 0:		offset = 1;	break;
    case MCI_INTEGER:	offset = 2;	break;
    case MCI_STRING:	data[1] = (DWORD)lpstrRet; data[2] = uRetLen; offset = 3; break;
    case MCI_RECT:	offset = 5;	break;
    default:	ERR("oops\n");
    }

1414 1415
    TRACE("verb=%s on dev=%s; offset=%d\n", 
          debugstr_w(verb), debugstr_w(dev), offset);
1416 1417 1418 1419

    if ((dwRet = MCI_ParseOptArgs(data, offset, lpCmd, args, &dwFlags)))
	goto errCleanUp;

1420 1421 1422
    /* FIXME: the command should get it's own notification window set up and
     * ask for device closing while processing the notification mechanism
     */
1423 1424
    if (lpstrRet && uRetLen) *lpstrRet = '\0';

1425
    TRACE("[%d, %s, %08x, %08x/%s %08x/%s %08x/%s %08x/%s %08x/%s %08x/%s]\n",
1426
	  wmd->wDeviceID, MCI_MessageToString(MCI_GetMessage(lpCmd)), dwFlags,
1427 1428 1429
	  data[0], debugstr_w((WCHAR *)data[0]), data[1], debugstr_w((WCHAR *)data[1]),
	  data[2], debugstr_w((WCHAR *)data[2]), data[3], debugstr_w((WCHAR *)data[3]),
	  data[4], debugstr_w((WCHAR *)data[4]), data[5], debugstr_w((WCHAR *)data[5]));
1430

1431 1432
    if (strcmpW(verb, wszOpen) == 0) {
	if ((dwRet = MCI_FinishOpen(wmd, (LPMCI_OPEN_PARMSW)data, dwFlags)))
1433
	    MCI_UnLoadMciDriver(wmd);
1434 1435 1436 1437
	/* FIXME: notification is not properly shared across two opens */
    } else {
	dwRet = MCI_SendCommand(wmd->wDeviceID, MCI_GetMessage(lpCmd), dwFlags, (DWORD)data, TRUE);
    }
1438
    TRACE("=> 1/ %x (%s)\n", dwRet, debugstr_w(lpstrRet));
1439
    dwRet = MCI_HandleReturnValues(dwRet, wmd, retType, data, lpstrRet, uRetLen);
1440
    TRACE("=> 2/ %x (%s)\n", dwRet, debugstr_w(lpstrRet));
1441 1442 1443 1444 1445 1446 1447

errCleanUp:
    HeapFree(GetProcessHeap(), 0, verb);
    return dwRet;
}

/**************************************************************************
1448
 * 				mciSendStringA			[WINMM.@]
1449
 */
1450
DWORD WINAPI mciSendStringA(LPCSTR lpstrCommand, LPSTR lpstrRet,
1451
			    UINT uRetLen, HWND hwndCallback)
1452
{
1453 1454
    LPWSTR 	lpwstrCommand;
    LPWSTR      lpwstrRet = NULL;
1455
    UINT	ret;
1456
    INT len;
1457

1458
    /* FIXME: is there something to do with lpstrReturnString ? */
1459 1460 1461 1462
    len = MultiByteToWideChar( CP_ACP, 0, lpstrCommand, -1, NULL, 0 );
    lpwstrCommand = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
    MultiByteToWideChar( CP_ACP, 0, lpstrCommand, -1, lpwstrCommand, len );
    if (lpstrRet)
1463
    {
1464
        lpwstrRet = HeapAlloc(GetProcessHeap(), 0, uRetLen * sizeof(WCHAR));
1465 1466 1467 1468 1469
        if (!lpwstrRet) {
            WARN("no memory\n");
            HeapFree( GetProcessHeap(), 0, lpwstrCommand );
            return MCIERR_OUT_OF_MEMORY;
        }
1470
    }
1471
    ret = mciSendStringW(lpwstrCommand, lpwstrRet, uRetLen, hwndCallback);
1472
    if (lpwstrRet)
1473 1474 1475
        WideCharToMultiByte( CP_ACP, 0, lpwstrRet, -1, lpstrRet, uRetLen, NULL, NULL );
    HeapFree(GetProcessHeap(), 0, lpwstrCommand);
    HeapFree(GetProcessHeap(), 0, lpwstrRet);
1476
    return ret;
1477 1478
}

1479
/**************************************************************************
1480
 * 				mciExecute			[WINMM.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
1481
 * 				mciExecute			[MMSYSTEM.712]
1482
 */
1483
BOOL WINAPI mciExecute(LPCSTR lpstrCommand)
1484 1485 1486
{
    char	strRet[256];
    DWORD	ret;
1487

1488 1489
    TRACE("(%s)!\n", lpstrCommand);

1490
    ret = mciSendStringA(lpstrCommand, strRet, sizeof(strRet), 0);
1491 1492
    if (ret != 0) {
	if (!mciGetErrorStringA(ret, strRet, sizeof(strRet))) {
1493
	    sprintf(strRet, "Unknown MCI error (%d)", ret);
1494
	}
1495
	MessageBoxA(0, strRet, "Error in mciExecute()", MB_OK);
1496 1497
    }
    /* FIXME: what shall I return ? */
1498
    return TRUE;
1499
}
1500

1501
/**************************************************************************
1502
 *                    	mciLoadCommandResource  		[WINMM.@]
1503
 *
1504
 * Strangely, this function only exists as a UNICODE one.
1505
 */
1506
UINT WINAPI mciLoadCommandResource(HINSTANCE hInst, LPCWSTR resNameW, UINT type)
1507
{
1508 1509 1510 1511
    HRSRC	        hRsrc = 0;
    HGLOBAL      	hMem;
    UINT16		ret = MCI_NO_COMMAND_TABLE;

1512
    TRACE("(%p, %s, %d)!\n", hInst, debugstr_w(resNameW), type);
1513

1514
    /* if a file named "resname.mci" exits, then load resource "resname" from it
1515 1516 1517 1518
     * otherwise directly from driver
     * We don't support it (who uses this feature ?), but we check anyway
     */
    if (!type) {
1519 1520
#if 0
        /* FIXME: we should put this back into order, but I never found a program
1521
         * actually using this feature, so we may not need it
1522
         */
1523 1524 1525 1526 1527 1528 1529 1530
	char		buf[128];
	OFSTRUCT       	ofs;

	strcat(strcpy(buf, resname), ".mci");
	if (OpenFile(buf, &ofs, OF_EXIST) != HFILE_ERROR) {
	    FIXME("NIY: command table to be loaded from '%s'\n", ofs.szPathName);
	}
#endif
1531
    }
1532
    if (!(hRsrc = FindResourceW(hInst, resNameW, (LPWSTR)RT_RCDATA))) {
1533 1534
	WARN("No command table found in resource\n");
    } else if ((hMem = LoadResource(hInst, hRsrc))) {
1535
	ret = MCI_SetCommandTable(LockResource(hMem), type);
1536 1537 1538 1539 1540 1541 1542
    } else {
	WARN("Couldn't load resource.\n");
    }
    TRACE("=> %04x\n", ret);
    return ret;
}

1543
/**************************************************************************
1544
 *                    	mciFreeCommandResource			[WINMM.@]
1545
 */
1546
BOOL WINAPI mciFreeCommandResource(UINT uTable)
1547
{
1548 1549
    TRACE("(%08x)!\n", uTable);

1550
    return MCI_DeleteCommandTable(uTable, FALSE);
1551 1552 1553
}

/**************************************************************************
1554
 * 			MCI_SendCommandFrom32			[internal]
1555
 */
1556
DWORD MCI_SendCommandFrom32(MCIDEVICEID wDevID, UINT16 wMsg, DWORD_PTR dwParam1, DWORD_PTR dwParam2)
1557
{
1558
    DWORD		dwRet = MCIERR_INVALID_DEVICE_ID;
1559 1560
    LPWINE_MCIDRIVER	wmd = MCI_GetDriver(wDevID);

1561 1562 1563
    if (wmd) {
	if (wmd->bIs32) {
	    dwRet = SendDriverMessage(wmd->hDriver, wMsg, dwParam1, dwParam2);
1564
	} else if (pFnMciMapMsg32WTo16) {
1565
	    WINMM_MapType	res;
1566

1567
	    switch (res = pFnMciMapMsg32WTo16(wmd->wType, wMsg, dwParam1, &dwParam2)) {
1568
	    case WINMM_MAP_MSGERROR:
1569 1570 1571
		TRACE("Not handled yet (%s)\n", MCI_MessageToString(wMsg));
		dwRet = MCIERR_DRIVER_INTERNAL;
		break;
1572
	    case WINMM_MAP_NOMEM:
1573 1574 1575
		TRACE("Problem mapping msg=%s from 32a to 16\n", MCI_MessageToString(wMsg));
		dwRet = MCIERR_OUT_OF_MEMORY;
		break;
1576 1577
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
1578
		dwRet = SendDriverMessage(wmd->hDriver, wMsg, dwParam1, dwParam2);
1579
		if (res == WINMM_MAP_OKMEM)
1580
		    pFnMciUnMapMsg32WTo16(wmd->wType, wMsg, dwParam1, dwParam2);
1581
		break;
1582 1583 1584 1585 1586 1587 1588 1589 1590
	    }
	}
    }
    return dwRet;
}

/**************************************************************************
 * 			MCI_SendCommandFrom16			[internal]
 */
1591
DWORD MCI_SendCommandFrom16(MCIDEVICEID wDevID, UINT16 wMsg, DWORD_PTR dwParam1, DWORD_PTR dwParam2)
1592
{
1593
    DWORD		dwRet = MCIERR_INVALID_DEVICE_ID;
1594 1595
    LPWINE_MCIDRIVER	wmd = MCI_GetDriver(wDevID);

1596
    if (wmd) {
1597
	dwRet = MCIERR_INVALID_DEVICE_ID;
1598

1599
	if (wmd->bIs32 && pFnMciMapMsg16To32W) {
1600
	    WINMM_MapType		res;
1601

1602
	    switch (res = pFnMciMapMsg16To32W(wmd->wType, wMsg, dwParam1, &dwParam2)) {
1603
	    case WINMM_MAP_MSGERROR:
1604
		TRACE("Not handled yet (%s)\n", MCI_MessageToString(wMsg));
1605
		dwRet = MCIERR_DRIVER_INTERNAL;
1606
		break;
1607
	    case WINMM_MAP_NOMEM:
1608
		TRACE("Problem mapping msg=%s from 16 to 32a\n", MCI_MessageToString(wMsg));
1609 1610
		dwRet = MCIERR_OUT_OF_MEMORY;
		break;
1611 1612
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
1613
		dwRet = SendDriverMessage(wmd->hDriver, wMsg, dwParam1, dwParam2);
1614
		if (res == WINMM_MAP_OKMEM)
1615
		    pFnMciUnMapMsg16To32W(wmd->wType, wMsg, dwParam1, dwParam2);
1616
		break;
1617
	    }
1618 1619
	} else {
	    dwRet = SendDriverMessage(wmd->hDriver, wMsg, dwParam1, dwParam2);
1620 1621 1622 1623 1624 1625 1626 1627
	}
    }
    return dwRet;
}

/**************************************************************************
 * 			MCI_Open				[internal]
 */
1628
static	DWORD MCI_Open(DWORD dwParam, LPMCI_OPEN_PARMSW lpParms)
1629
{
1630
    WCHAR			strDevTyp[128];
1631
    DWORD 			dwRet;
1632
    LPWINE_MCIDRIVER		wmd = NULL;
1633

1634
    TRACE("(%08X, %p)\n", dwParam, lpParms);
1635
    if (lpParms == NULL) return MCIERR_NULL_PARAMETER_BLOCK;
1636 1637

    /* only two low bytes are generic, the other ones are dev type specific */
1638
#define WINE_MCIDRIVER_SUPP	(0xFFFF0000|MCI_OPEN_SHAREABLE|MCI_OPEN_ELEMENT| \
1639 1640
                         MCI_OPEN_ALIAS|MCI_OPEN_TYPE|MCI_OPEN_TYPE_ID| \
                         MCI_NOTIFY|MCI_WAIT)
1641 1642
    if ((dwParam & ~WINE_MCIDRIVER_SUPP) != 0) {
	FIXME("Unsupported yet dwFlags=%08lX\n", dwParam & ~WINE_MCIDRIVER_SUPP);
1643
    }
1644
#undef WINE_MCIDRIVER_SUPP
1645 1646 1647

    strDevTyp[0] = 0;

1648 1649 1650 1651 1652 1653
    if (dwParam & MCI_OPEN_TYPE) {
	if (dwParam & MCI_OPEN_TYPE_ID) {
	    WORD uDevType = LOWORD((DWORD)lpParms->lpstrDeviceType);

	    if (uDevType < MCI_DEVTYPE_FIRST ||
		uDevType > MCI_DEVTYPE_LAST ||
1654
		!LoadStringW(hWinMM32Instance, uDevType,
1655
                             strDevTyp, sizeof(strDevTyp) / sizeof(WCHAR))) {
1656 1657 1658 1659
		dwRet = MCIERR_BAD_INTEGER;
		goto errCleanUp;
	    }
	} else {
1660
	    LPWSTR	ptr;
1661 1662 1663 1664
	    if (lpParms->lpstrDeviceType == NULL) {
		dwRet = MCIERR_NULL_PARAMETER_BLOCK;
		goto errCleanUp;
	    }
1665 1666
	    strcpyW(strDevTyp, lpParms->lpstrDeviceType);
	    ptr = strchrW(strDevTyp, '!');
1667 1668 1669 1670 1671 1672 1673
	    if (ptr) {
		/* this behavior is not documented in windows. However, since, in
		 * some occasions, MCI_OPEN handling is translated by WinMM into
		 * a call to mciSendString("open <type>"); this code shall be correct
		 */
		if (dwParam & MCI_OPEN_ELEMENT) {
		    ERR("Both MCI_OPEN_ELEMENT(%s) and %s are used\n",
1674 1675
			debugstr_w(lpParms->lpstrElementName), 
                        debugstr_w(strDevTyp));
1676 1677 1678 1679 1680 1681 1682 1683
		    dwRet = MCIERR_UNRECOGNIZED_KEYWORD;
		    goto errCleanUp;
		}
		dwParam |= MCI_OPEN_ELEMENT;
		*ptr++ = 0;
		/* FIXME: not a good idea to write in user supplied buffer */
		lpParms->lpstrElementName = ptr;
	    }
1684

1685
	}
1686
	TRACE("devType=%s !\n", debugstr_w(strDevTyp));
1687 1688
    }

1689
    if (dwParam & MCI_OPEN_ELEMENT) {
1690
	TRACE("lpstrElementName=%s\n", debugstr_w(lpParms->lpstrElementName));
1691 1692 1693 1694 1695 1696 1697

	if (dwParam & MCI_OPEN_ELEMENT_ID) {
	    FIXME("Unsupported yet flag MCI_OPEN_ELEMENT_ID\n");
	    dwRet = MCIERR_UNRECOGNIZED_KEYWORD;
	    goto errCleanUp;
	}

1698 1699 1700 1701 1702
	if (!lpParms->lpstrElementName) {
	    dwRet = MCIERR_NULL_PARAMETER_BLOCK;
	    goto errCleanUp;
	}

1703
	/* type, if given as a parameter, supersedes file extension */
1704 1705
	if (!strDevTyp[0] &&
	    MCI_GetDevTypeFromFileName(lpParms->lpstrElementName,
1706
				       strDevTyp, sizeof(strDevTyp))) {
1707 1708
            static const WCHAR wszCdAudio[] = {'C','D','A','U','D','I','O',0};
	    if (GetDriveTypeW(lpParms->lpstrElementName) != DRIVE_CDROM) {
1709 1710
		dwRet = MCIERR_EXTENSION_NOT_FOUND;
		goto errCleanUp;
1711
	    }
1712
	    /* FIXME: this will not work if several CDROM drives are installed on the machine */
1713
	    strcpyW(strDevTyp, wszCdAudio);
1714 1715
	}
    }
1716

1717
    if (strDevTyp[0] == 0) {
1718
	FIXME("Couldn't load driver\n");
1719
	dwRet = MCIERR_INVALID_DEVICE_NAME;
1720
	goto errCleanUp;
1721
    }
1722

1723
    if (dwParam & MCI_OPEN_ALIAS) {
1724
	TRACE("Alias=%s !\n", debugstr_w(lpParms->lpstrAlias));
1725 1726 1727 1728 1729
	if (!lpParms->lpstrAlias) {
	    dwRet = MCIERR_NULL_PARAMETER_BLOCK;
	    goto errCleanUp;
	}
    }
1730

1731
    if ((dwRet = MCI_LoadMciDriver(strDevTyp, &wmd))) {
1732
	goto errCleanUp;
1733
    }
1734

1735
    if ((dwRet = MCI_FinishOpen(wmd, lpParms, dwParam))) {
1736
	TRACE("Failed to open driver (MCI_OPEN_DRIVER) [%08x], closing\n", dwRet);
1737 1738
	/* FIXME: is dwRet the correct ret code ? */
	goto errCleanUp;
1739
    }
1740 1741

    /* only handled devices fall through */
1742
    TRACE("wDevID=%04X wDeviceID=%d dwRet=%d\n", wmd->wDeviceID, lpParms->wDeviceID, dwRet);
1743

1744
    if (dwParam & MCI_NOTIFY)
1745
	mciDriverNotify((HWND)lpParms->dwCallback, wmd->wDeviceID, MCI_NOTIFY_SUCCESSFUL);
1746

1747 1748
    return 0;
errCleanUp:
1749
    if (wmd) MCI_UnLoadMciDriver(wmd);
1750

1751
    if (dwParam & MCI_NOTIFY)
1752
	mciDriverNotify((HWND)lpParms->dwCallback, 0, MCI_NOTIFY_FAILURE);
1753 1754 1755 1756 1757 1758
    return dwRet;
}

/**************************************************************************
 * 			MCI_Close				[internal]
 */
1759
static	DWORD MCI_Close(UINT16 wDevID, DWORD dwParam, LPMCI_GENERIC_PARMS lpParms)
1760
{
1761 1762 1763
    DWORD		dwRet;
    LPWINE_MCIDRIVER	wmd;

1764
    TRACE("(%04x, %08X, %p)\n", wDevID, dwParam, lpParms);
1765 1766

    if (wDevID == MCI_ALL_DEVICE_ID) {
1767
	/* FIXME: shall I notify once after all is done, or for
1768 1769 1770
	 * each of the open drivers ? if the latest, which notif
	 * to return when only one fails ?
	 */
1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784
	while (MciDrivers) {
            /* Retrieve the device ID under lock, but send the message without,
             * the driver might be calling some winmm functions from another
             * thread before being fully stopped.
             */
            EnterCriticalSection(&WINMM_cs);
            if (!MciDrivers)
            {
                LeaveCriticalSection(&WINMM_cs);
                break;
            }
            wDevID = MciDrivers->wDeviceID;
            LeaveCriticalSection(&WINMM_cs);
            MCI_Close(wDevID, dwParam, lpParms);
1785
	}
1786 1787 1788 1789 1790
	return 0;
    }

    if (!(wmd = MCI_GetDriver(wDevID))) {
	return MCIERR_INVALID_DEVICE_ID;
1791 1792
    }

1793
    dwRet = MCI_SendCommandFrom32(wDevID, MCI_CLOSE_DRIVER, dwParam, (DWORD)lpParms);
1794

1795
    MCI_UnLoadMciDriver(wmd);
1796

1797
    if (dwParam & MCI_NOTIFY)
1798 1799 1800
        mciDriverNotify(lpParms ? (HWND)lpParms->dwCallback : 0,
                        wDevID,
                        dwRet ? MCI_NOTIFY_FAILURE : MCI_NOTIFY_SUCCESSFUL);
1801

1802 1803 1804 1805 1806 1807
    return dwRet;
}

/**************************************************************************
 * 			MCI_WriteString				[internal]
 */
1808
DWORD	MCI_WriteString(LPWSTR lpDstStr, DWORD dstSize, LPCWSTR lpSrcStr)
1809
{
1810
    DWORD	ret = 0;
1811

1812
    if (lpSrcStr) {
1813 1814 1815
        dstSize /= sizeof(WCHAR);
	if (dstSize <= strlenW(lpSrcStr)) {
	    lstrcpynW(lpDstStr, lpSrcStr, dstSize - 1);
1816 1817
	    ret = MCIERR_PARAM_OVERFLOW;
	} else {
1818
	    strcpyW(lpDstStr, lpSrcStr);
1819
	}
1820
    } else {
1821
	*lpDstStr = 0;
1822 1823 1824 1825 1826 1827 1828
    }
    return ret;
}

/**************************************************************************
 * 			MCI_Sysinfo				[internal]
 */
1829
static	DWORD MCI_SysInfo(UINT uDevID, DWORD dwFlags, LPMCI_SYSINFO_PARMSW lpParms)
1830
{
1831
    DWORD		ret = MCIERR_INVALID_DEVICE_ID, cnt = 0;
1832
    WCHAR		buf[2048], *s = buf, *p;
1833
    LPWINE_MCIDRIVER	wmd;
1834
    HKEY		hKey;
1835 1836 1837

    if (lpParms == NULL)			return MCIERR_NULL_PARAMETER_BLOCK;

1838
    TRACE("(%08x, %08X, %08X[num=%d, wDevTyp=%u])\n",
1839
	  uDevID, dwFlags, (DWORD)lpParms, lpParms->dwNumber, lpParms->wDeviceType);
1840

1841 1842
    switch (dwFlags & ~MCI_SYSINFO_OPEN) {
    case MCI_SYSINFO_QUANTITY:
1843 1844 1845
	if (lpParms->wDeviceType < MCI_DEVTYPE_FIRST || lpParms->wDeviceType > MCI_DEVTYPE_LAST) {
	    if (dwFlags & MCI_SYSINFO_OPEN) {
		TRACE("MCI_SYSINFO_QUANTITY: # of open MCI drivers\n");
1846 1847
		EnterCriticalSection(&WINMM_cs);
		for (wmd = MciDrivers; wmd; wmd = wmd->lpNext) {
1848
		    cnt++;
1849
		}
1850
		LeaveCriticalSection(&WINMM_cs);
1851
	    } else {
1852
		TRACE("MCI_SYSINFO_QUANTITY: # of installed MCI drivers\n");
1853
		if (RegOpenKeyExW( HKEY_LOCAL_MACHINE, wszHklmMci,
1854
			  	   0, KEY_QUERY_VALUE, &hKey ) == ERROR_SUCCESS) {
1855
		    RegQueryInfoKeyW( hKey, 0, 0, 0, &cnt, 0, 0, 0, 0, 0, 0, 0);
1856
		    RegCloseKey( hKey );
1857
		}
1858
		if (GetPrivateProfileStringW(wszMci, 0, wszNull, buf, sizeof(buf) / sizeof(buf[0]), wszSystemIni))
1859
		    for (s = buf; *s; s += strlenW(s) + 1) cnt++;
1860 1861 1862 1863
	    }
	} else {
	    if (dwFlags & MCI_SYSINFO_OPEN) {
		TRACE("MCI_SYSINFO_QUANTITY: # of open MCI drivers of type %u\n", lpParms->wDeviceType);
1864 1865
		EnterCriticalSection(&WINMM_cs);
		for (wmd = MciDrivers; wmd; wmd = wmd->lpNext) {
1866 1867
		    if (wmd->wType == lpParms->wDeviceType) cnt++;
		}
1868
		LeaveCriticalSection(&WINMM_cs);
1869 1870 1871 1872
	    } else {
		TRACE("MCI_SYSINFO_QUANTITY: # of installed MCI drivers of type %u\n", lpParms->wDeviceType);
		FIXME("Don't know how to get # of MCI devices of a given type\n");
		cnt = 1;
1873 1874
	    }
	}
1875
	*(DWORD*)lpParms->lpstrReturn = cnt;
1876
	TRACE("(%d) => '%d'\n", lpParms->dwNumber, *(DWORD*)lpParms->lpstrReturn);
1877
	ret = MCI_INTEGER_RETURNED;
1878 1879
	break;
    case MCI_SYSINFO_INSTALLNAME:
1880
	TRACE("MCI_SYSINFO_INSTALLNAME\n");
1881
	if ((wmd = MCI_GetDriver(uDevID))) {
1882
	    ret = MCI_WriteString(lpParms->lpstrReturn, lpParms->dwRetSize,
1883
				  wmd->lpstrDeviceType);
1884 1885 1886 1887
	} else {
	    *lpParms->lpstrReturn = 0;
	    ret = MCIERR_INVALID_DEVICE_ID;
	}
1888
	TRACE("(%d) => %s\n", lpParms->dwNumber, debugstr_w(lpParms->lpstrReturn));
1889 1890
	break;
    case MCI_SYSINFO_NAME:
1891
	TRACE("MCI_SYSINFO_NAME\n");
1892
	if (dwFlags & MCI_SYSINFO_OPEN) {
1893
	    FIXME("Don't handle MCI_SYSINFO_NAME|MCI_SYSINFO_OPEN (yet)\n");
1894 1895
	    ret = MCIERR_UNRECOGNIZED_COMMAND;
	} else {
1896 1897 1898 1899 1900 1901
	    s = NULL;
	    if (RegOpenKeyExW( HKEY_LOCAL_MACHINE, wszHklmMci, 0, 
                               KEY_QUERY_VALUE, &hKey ) == ERROR_SUCCESS) {
		if (RegQueryInfoKeyW( hKey, 0, 0, 0, &cnt, 
                                      0, 0, 0, 0, 0, 0, 0) == ERROR_SUCCESS && 
                    lpParms->dwNumber <= cnt) {
1902
		    DWORD bufLen = sizeof(buf)/sizeof(buf[0]);
1903 1904 1905
		    if (RegEnumKeyExW(hKey, lpParms->dwNumber - 1, 
                                      buf, &bufLen, 0, 0, 0, 0) == ERROR_SUCCESS)
                        s = buf;
1906 1907 1908 1909
		}
	        RegCloseKey( hKey );
	    }
	    if (!s) {
1910
		if (GetPrivateProfileStringW(wszMci, 0, wszNull, buf, sizeof(buf) / sizeof(buf[0]), wszSystemIni)) {
1911
		    for (p = buf; *p; p += strlenW(p) + 1, cnt++) {
1912
                        TRACE("%d: %s\n", cnt, debugstr_w(p));
1913 1914 1915 1916 1917 1918 1919
			if (cnt == lpParms->dwNumber - 1) {
			    s = p;
			    break;
			}
		    }
		}
	    }
1920
	    ret = s ? MCI_WriteString(lpParms->lpstrReturn, lpParms->dwRetSize / sizeof(WCHAR), s) : MCIERR_OUTOFRANGE;
1921
	}
1922
	TRACE("(%d) => %s\n", lpParms->dwNumber, debugstr_w(lpParms->lpstrReturn));
1923 1924
	break;
    default:
1925
	TRACE("Unsupported flag value=%08x\n", dwFlags);
1926 1927 1928 1929 1930
	ret = MCIERR_UNRECOGNIZED_COMMAND;
    }
    return ret;
}

1931 1932 1933
/**************************************************************************
 * 			MCI_Break				[internal]
 */
1934
static	DWORD MCI_Break(UINT wDevID, DWORD dwFlags, LPMCI_BREAK_PARMS lpParms)
1935 1936
{
    DWORD	dwRet = 0;
1937

1938 1939 1940
    if (lpParms == NULL)	return MCIERR_NULL_PARAMETER_BLOCK;

    if (dwFlags & MCI_NOTIFY)
1941
	mciDriverNotify((HWND)lpParms->dwCallback, wDevID,
1942
                        (dwRet == 0) ? MCI_NOTIFY_SUCCESSFUL : MCI_NOTIFY_FAILURE);
1943 1944 1945

    return dwRet;
}
1946

1947 1948 1949
/**************************************************************************
 * 			MCI_Sound				[internal]
 */
1950
static	DWORD MCI_Sound(UINT wDevID, DWORD dwFlags, LPMCI_SOUND_PARMSW lpParms)
1951 1952 1953 1954 1955 1956
{
    DWORD	dwRet = 0;

    if (lpParms == NULL)	return MCIERR_NULL_PARAMETER_BLOCK;

    if (dwFlags & MCI_SOUND_NAME)
1957
        dwRet = sndPlaySoundW(lpParms->lpstrSoundName, SND_SYNC) ? MMSYSERR_NOERROR : MMSYSERR_ERROR;
1958 1959 1960 1961 1962 1963 1964 1965 1966
    else
        dwRet = MMSYSERR_ERROR; /* what should be done ??? */
    if (dwFlags & MCI_NOTIFY)
	mciDriverNotify((HWND)lpParms->dwCallback, wDevID,
                        (dwRet == 0) ? MCI_NOTIFY_SUCCESSFUL : MCI_NOTIFY_FAILURE);

    return dwRet;
}

1967 1968 1969
/**************************************************************************
 * 			MCI_SendCommand				[internal]
 */
1970 1971
DWORD	MCI_SendCommand(UINT wDevID, UINT16 wMsg, DWORD_PTR dwParam1,
			DWORD_PTR dwParam2, BOOL bFrom32)
1972 1973 1974 1975 1976 1977
{
    DWORD		dwRet = MCIERR_UNRECOGNIZED_COMMAND;

    switch (wMsg) {
    case MCI_OPEN:
	if (bFrom32) {
1978 1979
	    dwRet = MCI_Open(dwParam1, (LPMCI_OPEN_PARMSW)dwParam2);
	} else if (pFnMciMapMsg16To32W) {
1980
	    switch (pFnMciMapMsg16To32W(0, wMsg, dwParam1, &dwParam2)) {
1981 1982
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
1983
		dwRet = MCI_Open(dwParam1, (LPMCI_OPEN_PARMSW)dwParam2);
1984
		pFnMciUnMapMsg16To32W(0, wMsg, dwParam1, dwParam2);
1985 1986 1987 1988 1989 1990 1991 1992
		break;
	    default: break; /* so that gcc does not bark */
	    }
	}
	break;
    case MCI_CLOSE:
	if (bFrom32) {
	    dwRet = MCI_Close(wDevID, dwParam1, (LPMCI_GENERIC_PARMS)dwParam2);
1993
	} else if (pFnMciMapMsg16To32W) {
1994
	    switch (pFnMciMapMsg16To32W(0, wMsg, dwParam1, &dwParam2)) {
1995 1996
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
1997
		dwRet = MCI_Close(wDevID, dwParam1, (LPMCI_GENERIC_PARMS)dwParam2);
1998
		pFnMciUnMapMsg16To32W(0, wMsg, dwParam1, dwParam2);
1999 2000 2001 2002 2003 2004 2005
		break;
	    default: break; /* so that gcc does not bark */
	    }
	}
	break;
    case MCI_SYSINFO:
	if (bFrom32) {
2006 2007
	    dwRet = MCI_SysInfo(wDevID, dwParam1, (LPMCI_SYSINFO_PARMSW)dwParam2);
	} else if (pFnMciMapMsg16To32W) {
2008
	    switch (pFnMciMapMsg16To32W(0, wMsg, dwParam1, &dwParam2)) {
2009 2010
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
2011
		dwRet = MCI_SysInfo(wDevID, dwParam1, (LPMCI_SYSINFO_PARMSW)dwParam2);
2012
		pFnMciUnMapMsg16To32W(0, wMsg, dwParam1, dwParam2);
2013
		break;
2014
	    default: break; /* so that gcc does not bark */
2015 2016 2017 2018 2019 2020
	    }
	}
	break;
    case MCI_BREAK:
	if (bFrom32) {
	    dwRet = MCI_Break(wDevID, dwParam1, (LPMCI_BREAK_PARMS)dwParam2);
2021
	} else if (pFnMciMapMsg16To32W) {
2022
	    switch (pFnMciMapMsg16To32W(0, wMsg, dwParam1, &dwParam2)) {
2023 2024
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
2025
		dwRet = MCI_Break(wDevID, dwParam1, (LPMCI_BREAK_PARMS)dwParam2);
2026
		pFnMciUnMapMsg16To32W(0, wMsg, dwParam1, dwParam2);
2027 2028 2029 2030 2031 2032
		break;
	    default: break; /* so that gcc does not bark */
	    }
	}
	break;
    case MCI_SOUND:
2033
	if (bFrom32) {
2034 2035
	    dwRet = MCI_Sound(wDevID, dwParam1, (LPMCI_SOUND_PARMSW)dwParam2);
	} else if (pFnMciMapMsg16To32W) {
2036
	    switch (pFnMciMapMsg16To32W(0, wMsg, dwParam1, &dwParam2)) {
2037 2038
	    case WINMM_MAP_OK:
	    case WINMM_MAP_OKMEM:
2039
		dwRet = MCI_Sound(wDevID, dwParam1, (LPMCI_SOUND_PARMSW)dwParam2);
2040
		pFnMciUnMapMsg16To32W(0, wMsg, dwParam1, dwParam2);
2041 2042 2043 2044
		break;
	    default: break; /* so that gcc does not bark */
	    }
	}
2045 2046 2047 2048 2049 2050 2051 2052 2053
	break;
    default:
	if (wDevID == MCI_ALL_DEVICE_ID) {
	    FIXME("unhandled MCI_ALL_DEVICE_ID\n");
	    dwRet = MCIERR_CANNOT_USE_ALL;
	} else {
	    dwRet = (bFrom32) ?
		MCI_SendCommandFrom32(wDevID, wMsg, dwParam1, dwParam2) :
		MCI_SendCommandFrom16(wDevID, wMsg, dwParam1, dwParam2);
2054
	}
2055 2056 2057 2058 2059
	break;
    }
    return dwRet;
}

2060 2061 2062
/**************************************************************************
 * 				MCI_CleanUp			[internal]
 *
2063
 * Some MCI commands need to be cleaned-up (when not called from
2064
 * mciSendString), because MCI drivers return extra information for string
2065
 * transformation. This function gets rid of them.
2066
 */
2067
LRESULT		MCI_CleanUp(LRESULT dwRet, UINT wMsg, DWORD dwParam2)
2068
{
2069
    if (LOWORD(dwRet))
2070 2071
	return LOWORD(dwRet);

2072 2073 2074 2075 2076 2077 2078
    switch (wMsg) {
    case MCI_GETDEVCAPS:
	switch (dwRet & 0xFFFF0000ul) {
	case 0:
	case MCI_COLONIZED3_RETURN:
	case MCI_COLONIZED4_RETURN:
	case MCI_INTEGER_RETURNED:
2079 2080 2081 2082
	    /* nothing to do */
	    break;
	case MCI_RESOURCE_RETURNED:
	case MCI_RESOURCE_RETURNED|MCI_RESOURCE_DRIVER:
2083
	    {
2084
		LPMCI_GETDEVCAPS_PARMS	lmgp;
2085

2086
		lmgp = (LPMCI_GETDEVCAPS_PARMS)(void*)dwParam2;
2087
		TRACE("Changing %08x to %08x\n", lmgp->dwReturn, LOWORD(lmgp->dwReturn));
2088
		lmgp->dwReturn = LOWORD(lmgp->dwReturn);
2089
	    }
2090 2091
	    break;
	default:
2092
	    FIXME("Unsupported value for hiword (%04x) returned by DriverProc(%s)\n",
2093
		  HIWORD(dwRet), MCI_MessageToString(wMsg));
2094 2095 2096 2097 2098 2099 2100 2101
	}
	break;
    case MCI_STATUS:
	switch (dwRet & 0xFFFF0000ul) {
	case 0:
	case MCI_COLONIZED3_RETURN:
	case MCI_COLONIZED4_RETURN:
	case MCI_INTEGER_RETURNED:
2102 2103 2104 2105
	    /* nothing to do */
	    break;
	case MCI_RESOURCE_RETURNED:
	case MCI_RESOURCE_RETURNED|MCI_RESOURCE_DRIVER:
2106
	    {
2107
		LPMCI_STATUS_PARMS	lsp;
2108

2109
		lsp = (LPMCI_STATUS_PARMS)(void*)dwParam2;
2110
		TRACE("Changing %08x to %08x\n", lsp->dwReturn, LOWORD(lsp->dwReturn));
2111 2112 2113 2114
		lsp->dwReturn = LOWORD(lsp->dwReturn);
	    }
	    break;
	default:
2115
	    FIXME("Unsupported value for hiword (%04x) returned by DriverProc(%s)\n",
2116 2117 2118 2119 2120 2121 2122
		  HIWORD(dwRet), MCI_MessageToString(wMsg));
	}
	break;
    case MCI_SYSINFO:
	switch (dwRet & 0xFFFF0000ul) {
	case 0:
	case MCI_INTEGER_RETURNED:
2123
	    /* nothing to do */
2124 2125
	    break;
	default:
2126
	    FIXME("Unsupported value for hiword (%04x)\n", HIWORD(dwRet));
2127 2128 2129
	}
	break;
    default:
2130
	if (HIWORD(dwRet)) {
2131
	    FIXME("Got non null hiword for dwRet=0x%08lx for command %s\n",
2132
		  dwRet, MCI_MessageToString(wMsg));
2133
	}
2134 2135
	break;
    }
2136
    return LOWORD(dwRet);
2137
}
2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148

/**************************************************************************
 * 				mciGetErrorStringW		[WINMM.@]
 */
BOOL WINAPI mciGetErrorStringW(MCIERROR wError, LPWSTR lpstrBuffer, UINT uLength)
{
    BOOL		ret = FALSE;

    if (lpstrBuffer != NULL && uLength > 0 &&
	wError >= MCIERR_BASE && wError <= MCIERR_CUSTOM_DRIVER_BASE) {

2149
	if (LoadStringW(hWinMM32Instance, wError, lpstrBuffer, uLength) > 0) {
2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165
	    ret = TRUE;
	}
    }
    return ret;
}

/**************************************************************************
 * 				mciGetErrorStringA		[WINMM.@]
 */
BOOL WINAPI mciGetErrorStringA(MCIERROR dwError, LPSTR lpstrBuffer, UINT uLength)
{
    BOOL		ret = FALSE;

    if (lpstrBuffer != NULL && uLength > 0 &&
	dwError >= MCIERR_BASE && dwError <= MCIERR_CUSTOM_DRIVER_BASE) {

2166
	if (LoadStringA(hWinMM32Instance, dwError, lpstrBuffer, uLength) > 0) {
2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208
	    ret = TRUE;
	}
    }
    return ret;
}

/**************************************************************************
 *			mciDriverNotify				[WINMM.@]
 */
BOOL WINAPI mciDriverNotify(HWND hWndCallBack, MCIDEVICEID wDevID, UINT wStatus)
{
    TRACE("(%p, %04x, %04X)\n", hWndCallBack, wDevID, wStatus);

    return PostMessageW(hWndCallBack, MM_MCINOTIFY, wStatus, wDevID);
}

/**************************************************************************
 * 			mciGetDriverData			[WINMM.@]
 */
DWORD WINAPI mciGetDriverData(MCIDEVICEID uDeviceID)
{
    LPWINE_MCIDRIVER	wmd;

    TRACE("(%04x)\n", uDeviceID);

    wmd = MCI_GetDriver(uDeviceID);

    if (!wmd) {
	WARN("Bad uDeviceID\n");
	return 0L;
    }

    return wmd->dwPrivate;
}

/**************************************************************************
 * 			mciSetDriverData			[WINMM.@]
 */
BOOL WINAPI mciSetDriverData(MCIDEVICEID uDeviceID, DWORD data)
{
    LPWINE_MCIDRIVER	wmd;

2209
    TRACE("(%04x, %08x)\n", uDeviceID, data);
2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234

    wmd = MCI_GetDriver(uDeviceID);

    if (!wmd) {
	WARN("Bad uDeviceID\n");
	return FALSE;
    }

    wmd->dwPrivate = data;
    return TRUE;
}

/**************************************************************************
 * 				mciSendCommandW			[WINMM.@]
 *
 */
DWORD WINAPI mciSendCommandW(MCIDEVICEID wDevID, UINT wMsg, DWORD_PTR dwParam1, DWORD_PTR dwParam2)
{
    DWORD	dwRet;

    TRACE("(%08x, %s, %08lx, %08lx)\n",
	  wDevID, MCI_MessageToString(wMsg), dwParam1, dwParam2);

    dwRet = MCI_SendCommand(wDevID, wMsg, dwParam1, dwParam2, TRUE);
    dwRet = MCI_CleanUp(dwRet, wMsg, dwParam2);
2235
    TRACE("=> %08x\n", dwRet);
2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307
    return dwRet;
}

/**************************************************************************
 * 				mciSendCommandA			[WINMM.@]
 */
DWORD WINAPI mciSendCommandA(MCIDEVICEID wDevID, UINT wMsg, DWORD_PTR dwParam1, DWORD_PTR dwParam2)
{
    DWORD ret;
    int mapped;

    TRACE("(%08x, %s, %08lx, %08lx)\n",
	  wDevID, MCI_MessageToString(wMsg), dwParam1, dwParam2);

    mapped = MCI_MapMsgAtoW(wMsg, dwParam1, &dwParam2);
    if (mapped == -1)
    {
        FIXME("message %04x mapping failed\n", wMsg);
        return MMSYSERR_NOMEM;
    }
    ret = mciSendCommandW(wDevID, wMsg, dwParam1, dwParam2);
    if (mapped)
        MCI_UnmapMsgAtoW(wMsg, dwParam1, dwParam2, ret);
    return ret;
}

/**************************************************************************
 * 				mciGetDeviceIDA    		[WINMM.@]
 */
UINT WINAPI mciGetDeviceIDA(LPCSTR lpstrName)
{
    LPWSTR w = MCI_strdupAtoW(lpstrName);
    UINT ret = MCIERR_OUT_OF_MEMORY;

    if (w)
    {
        ret = mciGetDeviceIDW(w);
        HeapFree(GetProcessHeap(), 0, w);
    }
    return ret;
}

/**************************************************************************
 * 				mciGetDeviceIDW		       	[WINMM.@]
 */
UINT WINAPI mciGetDeviceIDW(LPCWSTR lpwstrName)
{
    return MCI_GetDriverFromString(lpwstrName); 
}

/******************************************************************
 *		MyUserYield
 *
 * Internal wrapper to call USER.UserYield16 (in fact through a Wine only export from USER32).
 */
static void MyUserYield(void)
{
    HMODULE mod = GetModuleHandleA( "user32.dll" );
    if (mod)
    {
        FARPROC proc = GetProcAddress( mod, "UserYield16" );
        if (proc) proc();
    }
}

/**************************************************************************
 * 				MCI_DefYieldProc	       	[internal]
 */
UINT WINAPI MCI_DefYieldProc(MCIDEVICEID wDevID, DWORD data)
{
    INT16	ret;

2308
    TRACE("(0x%04x, 0x%08x)\n", wDevID, data);
2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330

    if ((HIWORD(data) != 0 && HWND_16(GetActiveWindow()) != HIWORD(data)) ||
	(GetAsyncKeyState(LOWORD(data)) & 1) == 0) {
	MyUserYield();
	ret = 0;
    } else {
	MSG		msg;

	msg.hwnd = HWND_32(HIWORD(data));
	while (!PeekMessageW(&msg, msg.hwnd, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE));
	ret = -1;
    }
    return ret;
}

/**************************************************************************
 * 				mciSetYieldProc			[WINMM.@]
 */
BOOL WINAPI mciSetYieldProc(MCIDEVICEID uDeviceID, YIELDPROC fpYieldProc, DWORD dwYieldData)
{
    LPWINE_MCIDRIVER	wmd;

2331
    TRACE("(%u, %p, %08x)\n", uDeviceID, fpYieldProc, dwYieldData);
2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368

    if (!(wmd = MCI_GetDriver(uDeviceID))) {
	WARN("Bad uDeviceID\n");
	return FALSE;
    }

    wmd->lpfnYieldProc = fpYieldProc;
    wmd->dwYieldData   = dwYieldData;
    wmd->bIs32         = TRUE;

    return TRUE;
}

/**************************************************************************
 * 				mciGetDeviceIDFromElementIDA	[WINMM.@]
 */
UINT WINAPI mciGetDeviceIDFromElementIDA(DWORD dwElementID, LPCSTR lpstrType)
{
    LPWSTR w = MCI_strdupAtoW(lpstrType);
    UINT ret = 0;

    if (w)
    {
        ret = mciGetDeviceIDFromElementIDW(dwElementID, w);
        HeapFree(GetProcessHeap(), 0, w);
    }
    return ret;
}

/**************************************************************************
 * 				mciGetDeviceIDFromElementIDW	[WINMM.@]
 */
UINT WINAPI mciGetDeviceIDFromElementIDW(DWORD dwElementID, LPCWSTR lpstrType)
{
    /* FIXME: that's rather strange, there is no
     * mciGetDeviceIDFromElementID32A in winmm.spec
     */
2369
    FIXME("(%u, %s) stub\n", dwElementID, debugstr_w(lpstrType));
2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428
    return 0;
}

/**************************************************************************
 * 				mciGetYieldProc			[WINMM.@]
 */
YIELDPROC WINAPI mciGetYieldProc(MCIDEVICEID uDeviceID, DWORD* lpdwYieldData)
{
    LPWINE_MCIDRIVER	wmd;

    TRACE("(%u, %p)\n", uDeviceID, lpdwYieldData);

    if (!(wmd = MCI_GetDriver(uDeviceID))) {
	WARN("Bad uDeviceID\n");
	return NULL;
    }
    if (!wmd->lpfnYieldProc) {
	WARN("No proc set\n");
	return NULL;
    }
    if (!wmd->bIs32) {
	WARN("Proc is 32 bit\n");
	return NULL;
    }
    return wmd->lpfnYieldProc;
}

/**************************************************************************
 * 				mciGetCreatorTask		[WINMM.@]
 */
HTASK WINAPI mciGetCreatorTask(MCIDEVICEID uDeviceID)
{
    LPWINE_MCIDRIVER	wmd;
    HTASK ret = 0;

    if ((wmd = MCI_GetDriver(uDeviceID))) ret = (HTASK)wmd->CreatorThread;

    TRACE("(%u) => %p\n", uDeviceID, ret);
    return ret;
}

/**************************************************************************
 * 			mciDriverYield				[WINMM.@]
 */
UINT WINAPI mciDriverYield(MCIDEVICEID uDeviceID)
{
    LPWINE_MCIDRIVER	wmd;
    UINT		ret = 0;

    TRACE("(%04x)\n", uDeviceID);

    if (!(wmd = MCI_GetDriver(uDeviceID)) || !wmd->lpfnYieldProc || !wmd->bIs32) {
	MyUserYield();
    } else {
	ret = wmd->lpfnYieldProc(uDeviceID, wmd->dwYieldData);
    }

    return ret;
}