sdl-ios-xcode: src/cdrom/os2/SDL

annotate src/cdrom/os2/SDL_syscdrom.c @ 2960:91708bc14aab

It's probably not worth pushing palettized textures. The memory optimization isn't worth the effort on modern hardware with the sorts of games that would be using the SDL 1.3 texture API.

author	Sam Lantinga <slouken@libsdl.org>
date	Fri, 02 Jan 2009 09:27:36 +0000
parents	99210400e8b9
children

rev	line source
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1 /*
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
2859 99210400e8b9 Updated copyright date Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	3 Copyright (C) 1997-2009 Sam Lantinga
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	4
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	6 modify it under the terms of the GNU Lesser General Public
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	8 version 2.1 of the License, or (at your option) any later version.
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	9
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	13 Lesser General Public License for more details.
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	14
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	15 You should have received a copy of the GNU Lesser General Public
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	16 License along with this library; if not, write to the Free Software
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	18
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	19 Sam Lantinga
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	20 slouken@libsdl.org
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	21 */
1402 d910939febfa Use consistent identifiers for the various platforms we support. Sam Lantinga <slouken@libsdl.org> parents: 1379 diff changeset	22 #include "SDL_config.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	23
1635 92947e3a18db Make sure code is only compiled if the appropriate subsystem is enabled Sam Lantinga <slouken@libsdl.org> parents: 1442 diff changeset	24 #ifdef SDL_CDROM_OS2
92947e3a18db Make sure code is only compiled if the appropriate subsystem is enabled Sam Lantinga <slouken@libsdl.org> parents: 1442 diff changeset	25
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	26 /* Functions for system-level CD-ROM audio control */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	27
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	28 #define INCL_MCIOS2
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	29 #include <os2.h>
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	30 #include <os2me.h>
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	31
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	32 #include "SDL_cdrom.h"
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	33 #include "../SDL_syscdrom.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	34
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	35 /* Size of MCI result buffer (in bytes) */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	36 #define MCI_CMDRETBUFSIZE 128
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	37
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	38 /* The maximum number of CD-ROM drives we'll detect */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	39 #define MAX_DRIVES 16
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	40
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	41 /* A list of available CD-ROM drives */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	42 static char *SDL_cdlist[MAX_DRIVES];
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	43 //static dev_t SDL_cdmode[MAX_DRIVES];
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	44
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	45 /* The system-dependent CD control functions */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	46 static const char *SDL_SYS_CDName(int drive);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	47 static int SDL_SYS_CDOpen(int drive);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	48 static int SDL_SYS_CDGetTOC(SDL_CD * cdrom);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	49 static CDstatus SDL_SYS_CDStatus(SDL_CD * cdrom, int *position);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	50 static int SDL_SYS_CDPlay(SDL_CD * cdrom, int start, int length);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	51 static int SDL_SYS_CDPause(SDL_CD * cdrom);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	52 static int SDL_SYS_CDResume(SDL_CD * cdrom);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	53 static int SDL_SYS_CDStop(SDL_CD * cdrom);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	54 static int SDL_SYS_CDEject(SDL_CD * cdrom);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	55 static void SDL_SYS_CDClose(SDL_CD * cdrom);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	56
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	57 /* MCI Timing Functions */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	58 #define MCI_MMTIMEPERSECOND 3000
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	59 #define FRAMESFROMMM(mmtime) (((mmtime)*CD_FPS)/MCI_MMTIMEPERSECOND)
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	60
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	61
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	62 /* Ready for MCI CDAudio Devices */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	63 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	64 SDL_SYS_CDInit(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	65 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	66 int i; /* generig counter */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	67 MCI_SYSINFO_PARMS msp; /* Structure to MCI SysInfo parameters */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	68 CHAR SysInfoRet[MCI_CMDRETBUFSIZE]; /* Buffer for MCI Command result */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	69
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	70 /* Fill in our driver capabilities */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	71 SDL_CDcaps.Name = SDL_SYS_CDName;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	72 SDL_CDcaps.Open = SDL_SYS_CDOpen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	73 SDL_CDcaps.GetTOC = SDL_SYS_CDGetTOC;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	74 SDL_CDcaps.Status = SDL_SYS_CDStatus;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	75 SDL_CDcaps.Play = SDL_SYS_CDPlay;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	76 SDL_CDcaps.Pause = SDL_SYS_CDPause;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	77 SDL_CDcaps.Resume = SDL_SYS_CDResume;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	78 SDL_CDcaps.Stop = SDL_SYS_CDStop;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	79 SDL_CDcaps.Eject = SDL_SYS_CDEject;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	80 SDL_CDcaps.Close = SDL_SYS_CDClose;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	81
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	82 /* Get the number of CD ROMs in the System */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	83 /* Clean SysInfo structure */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	84 SDL_memset(&msp, 0x00, sizeof(MCI_SYSINFO_PARMS));
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	85 /* Prepare structure to Ask Numer of Audio CDs */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	86 msp.usDeviceType = MCI_DEVTYPE_CD_AUDIO; /* CD Audio Type */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	87 msp.pszReturn = (PSZ) & SysInfoRet; /* Return Structure */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	88 msp.ulRetSize = MCI_CMDRETBUFSIZE; /* Size of ret struct */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	89 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	90 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	91 (0, MCI_SYSINFO, MCI_SYSINFO_QUANTITY \| MCI_WAIT, (PVOID) & msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	92 0)) != MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	93 return (CD_ERROR);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	94 SDL_numcds = atoi(SysInfoRet);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	95 if (SDL_numcds > MAX_DRIVES)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	96 SDL_numcds = MAX_DRIVES; /* Limit maximum CD number */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	97
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	98 /* Get and Add their system name to the SDL_cdlist */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	99 msp.pszReturn = (PSZ) & SysInfoRet; /* Return Structure */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	100 msp.ulRetSize = MCI_CMDRETBUFSIZE; /* Size of ret struct */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	101 msp.usDeviceType = MCI_DEVTYPE_CD_AUDIO; /* CD Audio Type */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	102 for (i = 0; i < SDL_numcds; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	103 msp.ulNumber = i + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	104 mciSendCommand(0, MCI_SYSINFO, MCI_SYSINFO_NAME \| MCI_WAIT, &msp, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	105 SDL_cdlist[i] = SDL_strdup(SysInfoRet);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	106 if (SDL_cdlist[i] == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	107 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	108 return (-1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	109 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	110 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	111 return (0);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	112 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	113
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	114 /* Return CDAudio System Dependent Device Name - Ready for MCI*/
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	115 static const char *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	116 SDL_SYS_CDName(int drive)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	117 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	118 return (SDL_cdlist[drive]);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	119 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	120
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	121 /* Open CDAudio Device - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	122 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	123 SDL_SYS_CDOpen(int drive)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	124 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	125 MCI_OPEN_PARMS mop;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	126 MCI_SET_PARMS msp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	127 MCI_GENERIC_PARMS mgp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	128
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	129 /* Open the device */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	130 mop.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	131 mop.usDeviceID = (USHORT) NULL; // Will be returned.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	132 mop.pszDeviceType = (PSZ) SDL_cdlist[drive]; // CDAudio Device
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	133 if (LOUSHORT(mciSendCommand(0, MCI_OPEN, MCI_WAIT, &mop, 0)) !=
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	134 MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	135 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	136 /* Set time format */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	137 msp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	138 msp.ulTimeFormat = MCI_FORMAT_MSF; // Minute : Second : Frame structure
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	139 msp.ulSpeedFormat = (ULONG) NULL; // No change
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	140 msp.ulAudio = (ULONG) NULL; // No Channel
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	141 msp.ulLevel = (ULONG) NULL; // No Volume
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	142 msp.ulOver = (ULONG) NULL; // No Delay
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	143 msp.ulItem = (ULONG) NULL; // No item
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	144 msp.ulValue = (ULONG) NULL; // No value for item flag
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	145 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	146 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	147 (mop.usDeviceID, MCI_SET, MCI_WAIT \| MCI_SET_TIME_FORMAT, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	148 0)) == MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	149 return (mop.usDeviceID);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	150 /* Error setting time format? - Close opened device */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	151 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	152 mciSendCommand(mop.usDeviceID, MCI_CLOSE, MCI_WAIT, &mgp, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	153 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	154 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	155
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	156 /* Get CD Table Of Contents - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	157 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	158 SDL_SYS_CDGetTOC(SDL_CD * cdrom)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	159 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	160 MCI_TOC_PARMS mtp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	161 MCI_STATUS_PARMS msp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	162 MCI_TOC_REC *mtr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	163 INT i;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	164
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	165 /* Correction because MCI cannot read TOC while CD is playing (it'll stop!) */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	166 if (cdrom->status == CD_PLAYING \|\| cdrom->status == CD_PAUSED)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	167 return 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	168
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	169 /* Get Number of Tracks */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	170 msp.hwndCallback = (HWND) NULL; /* None */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	171 msp.ulReturn = (ULONG) NULL; /* We want this information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	172 msp.ulItem = MCI_STATUS_NUMBER_OF_TRACKS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	173 msp.ulValue = (ULONG) NULL; /* No additional information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	174 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	175 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	176 (cdrom->id, MCI_STATUS, MCI_WAIT \| MCI_STATUS_ITEM, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	177 0)) != MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	178 return (CD_ERROR);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	179 cdrom->numtracks = msp.ulReturn;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	180 if (cdrom->numtracks > SDL_MAX_TRACKS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	181 cdrom->numtracks = SDL_MAX_TRACKS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	182 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	183 /* Alocate space for TOC data */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	184 mtr = (MCI_TOC_REC ) SDL_malloc(cdrom->numtracks sizeof(MCI_TOC_REC));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	185 if (mtr == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	186 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	187 return (-1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	188 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	189 /* Get TOC from CD */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	190 mtp.pBuf = mtr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	191 mtp.ulBufSize = cdrom->numtracks * sizeof(MCI_TOC_REC);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	192 if (LOUSHORT(mciSendCommand(cdrom->id, MCI_GETTOC, MCI_WAIT, &mtp, 0))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	193 != MCIERR_SUCCESS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	194 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	195 SDL_free(mtr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	196 return (CD_ERROR);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	197 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	198 /* Fill SDL Tracks Structure */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	199 for (i = 0; i < cdrom->numtracks; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	200 /* Set Track ID */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	201 cdrom->track[i].id = (mtr + i)->TrackNum;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	202 /* Set Track Type */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	203 msp.hwndCallback = (HWND) NULL; /* None */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	204 msp.ulReturn = (ULONG) NULL; /* We want this information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	205 msp.ulItem = MCI_CD_STATUS_TRACK_TYPE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	206 msp.ulValue = (ULONG) ((mtr + i)->TrackNum); /* Track Number? */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	207 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	208 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	209 (cdrom->id, MCI_STATUS, MCI_WAIT \| MCI_TRACK \| MCI_STATUS_ITEM,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	210 &msp, 0)) != MCIERR_SUCCESS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	211 SDL_free(mtr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	212 return (CD_ERROR);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	213 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	214 if (msp.ulReturn == MCI_CD_TRACK_AUDIO)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	215 cdrom->track[i].type = SDL_AUDIO_TRACK;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	216 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	217 cdrom->track[i].type = SDL_DATA_TRACK;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	218 /* Set Track Length - values from MCI are in MMTIMEs - 3000 MMTIME = 1 second */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	219 cdrom->track[i].length =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	220 FRAMESFROMMM((mtr + i)->ulEndAddr - (mtr + i)->ulStartAddr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	221 /* Set Track Offset */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	222 cdrom->track[i].offset = FRAMESFROMMM((mtr + i)->ulStartAddr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	223 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	224 SDL_free(mtr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	225 return (0);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	226 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	227
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	228
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	229 /* Get CD-ROM status - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	230 static CDstatus
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	231 SDL_SYS_CDStatus(SDL_CD * cdrom, int *position)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	232 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	233 CDstatus status;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	234 MCI_STATUS_PARMS msp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	235
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	236 /* Get Status from MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	237 msp.hwndCallback = (HWND) NULL; /* None */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	238 msp.ulReturn = (ULONG) NULL; /* We want this information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	239 msp.ulItem = MCI_STATUS_MODE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	240 msp.ulValue = (ULONG) NULL; /* No additional information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	241 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	242 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	243 (cdrom->id, MCI_STATUS, MCI_WAIT \| MCI_STATUS_ITEM, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	244 0)) != MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	245 status = CD_ERROR;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	246 else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	247 switch (msp.ulReturn) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	248 case MCI_MODE_NOT_READY:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	249 status = CD_TRAYEMPTY;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	250 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	251 case MCI_MODE_PAUSE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	252 status = CD_PAUSED;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	253 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	254 case MCI_MODE_PLAY:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	255 status = CD_PLAYING;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	256 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	257 case MCI_MODE_STOP:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	258 status = CD_STOPPED;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	259 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	260 /* These cases should not occour */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	261 case MCI_MODE_RECORD:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	262 case MCI_MODE_SEEK:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	263 default:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	264 status = CD_ERROR;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	265 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	266 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	267 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	268
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	269 /* Determine position */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	270 if (position != NULL) { /* The SDL $&$&%# CDROM call sends NULL pointer here! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	271 if ((status == CD_PLAYING) \|\| (status == CD_PAUSED)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	272 /* Get Position */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	273 msp.hwndCallback = (HWND) NULL; /* None */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	274 msp.ulReturn = (ULONG) NULL; /* We want this information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	275 msp.ulItem = MCI_STATUS_POSITION;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	276 msp.ulValue = (ULONG) NULL; /* No additiona info */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	277 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	278 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	279 (cdrom->id, MCI_STATUS, MCI_WAIT \| MCI_STATUS_ITEM, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	280 0)) != MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	281 return (CD_ERROR);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	282 /* Convert from MSF (format selected in the Open process) to Frames (format that will be returned) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	283 *position =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	284 MSF_TO_FRAMES(MSF_MINUTE(msp.ulReturn),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	285 MSF_SECOND(msp.ulReturn),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	286 MSF_FRAME(msp.ulReturn));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	287 } else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	288 *position = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	289 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	290 return (status);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	291 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	292
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	293 /* Start play - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	294 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	295 SDL_SYS_CDPlay(SDL_CD * cdrom, int start, int length)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	296 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	297 MCI_GENERIC_PARMS mgp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	298 MCI_STATUS_PARMS msp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	299 MCI_PLAY_PARMS mpp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	300 ULONG min, sec, frm;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	301
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	302 /* Start MSF */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	303 FRAMES_TO_MSF(start, &min, &sec, &frm);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	304 MSF_MINUTE(mpp.ulFrom) = min;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	305 MSF_SECOND(mpp.ulFrom) = sec;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	306 MSF_FRAME(mpp.ulFrom) = frm;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	307 /* End MSF */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	308 FRAMES_TO_MSF(start + length, &min, &sec, &frm);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	309 MSF_MINUTE(mpp.ulTo) = min;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	310 MSF_SECOND(mpp.ulTo) = sec;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	311 MSF_FRAME(mpp.ulTo) = frm;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	312 #ifdef DEBUG_CDROM
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	313 fprintf(stderr, "Trying to play from %d:%d:%d to %d:%d:%d\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	314 playtime.cdmsf_min0, playtime.cdmsf_sec0, playtime.cdmsf_frame0,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	315 playtime.cdmsf_min1, playtime.cdmsf_sec1, playtime.cdmsf_frame1);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	316 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	317 /* Verifies if it is paused first... and if it is, unpause before stopping it. */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	318 msp.hwndCallback = (HWND) NULL; /* None */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	319 msp.ulReturn = (ULONG) NULL; /* We want this information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	320 msp.ulItem = MCI_STATUS_MODE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	321 msp.ulValue = (ULONG) NULL; /* No additional information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	322 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	323 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	324 (cdrom->id, MCI_STATUS, MCI_WAIT \| MCI_STATUS_ITEM, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	325 0)) == MCIERR_SUCCESS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	326 if (msp.ulReturn == MCI_MODE_PAUSE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	327 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	328 mciSendCommand(cdrom->id, MCI_RESUME, 0, &mgp, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	329 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	330 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	331 /* Now play it. */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	332 mpp.hwndCallback = (HWND) NULL; // We do not want the info. temp
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	333 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	334 (mciSendCommand(cdrom->id, MCI_PLAY, MCI_FROM \| MCI_TO, &mpp, 0)) ==
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	335 MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	336 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	337 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	338 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	339
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	340 /* Pause play - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	341 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	342 SDL_SYS_CDPause(SDL_CD * cdrom)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	343 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	344 MCI_GENERIC_PARMS mgp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	345
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	346 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	347 if (LOUSHORT(mciSendCommand(cdrom->id, MCI_PAUSE, MCI_WAIT, &mgp, 0)) ==
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	348 MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	349 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	350 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	351 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	352
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	353 /* Resume play - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	354 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	355 SDL_SYS_CDResume(SDL_CD * cdrom)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	356 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	357 MCI_GENERIC_PARMS mgp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	358
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	359 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	360 if (LOUSHORT(mciSendCommand(cdrom->id, MCI_RESUME, MCI_WAIT, &mgp, 0))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	361 == MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	362 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	363 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	364 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	365
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	366 /* Stop play - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	367 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	368 SDL_SYS_CDStop(SDL_CD * cdrom)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	369 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	370 MCI_GENERIC_PARMS mgp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	371 MCI_STATUS_PARMS msp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	372
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	373 /* Verifies if it is paused first... and if it is, unpause before stopping it. */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	374 msp.hwndCallback = (HWND) NULL; /* None */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	375 msp.ulReturn = (ULONG) NULL; /* We want this information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	376 msp.ulItem = MCI_STATUS_MODE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	377 msp.ulValue = (ULONG) NULL; /* No additional information */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	378 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	379 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	380 (cdrom->id, MCI_STATUS, MCI_WAIT \| MCI_STATUS_ITEM, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	381 0)) == MCIERR_SUCCESS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	382 if (msp.ulReturn == MCI_MODE_PAUSE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	383 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	384 mciSendCommand(cdrom->id, MCI_RESUME, 0, &mgp, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	385 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	386 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	387 /* Now stops the media */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	388 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	389 if (LOUSHORT(mciSendCommand(cdrom->id, MCI_STOP, MCI_WAIT, &mgp, 0)) ==
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	390 MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	391 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	392 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	393 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	394
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	395 /* Eject the CD-ROM - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	396 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	397 SDL_SYS_CDEject(SDL_CD * cdrom)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	398 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	399 MCI_SET_PARMS msp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	400
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	401 msp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	402 msp.ulTimeFormat = (ULONG) NULL; // No change
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	403 msp.ulSpeedFormat = (ULONG) NULL; // No change
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	404 msp.ulAudio = (ULONG) NULL; // No Channel
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	405 msp.ulLevel = (ULONG) NULL; // No Volume
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	406 msp.ulOver = (ULONG) NULL; // No Delay
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	407 msp.ulItem = (ULONG) NULL; // No item
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	408 msp.ulValue = (ULONG) NULL; // No value for item flag
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	409 if (LOUSHORT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	410 (mciSendCommand
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	411 (cdrom->id, MCI_SET, MCI_WAIT \| MCI_SET_DOOR_OPEN, &msp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	412 0)) == MCIERR_SUCCESS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	413 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	414 return (CD_ERROR);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	415 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	416
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	417 /* Close the CD-ROM handle - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	418 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	419 SDL_SYS_CDClose(SDL_CD * cdrom)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	420 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	421 MCI_GENERIC_PARMS mgp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	422
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	423 mgp.hwndCallback = (HWND) NULL; // None
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	424 mciSendCommand(cdrom->id, MCI_CLOSE, MCI_WAIT, &mgp, 0);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	425 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	426
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	427 /* Finalize CDROM Subsystem - Ready for MCI */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	428 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	429 SDL_SYS_CDQuit(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	430 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	431 int i;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	432
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	433 if (SDL_numcds > 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	434 for (i = 0; i < SDL_numcds; ++i) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	435 SDL_free(SDL_cdlist[i]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	436 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	437 SDL_numcds = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	438 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	439 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	440
1635 92947e3a18db Make sure code is only compiled if the appropriate subsystem is enabled Sam Lantinga <slouken@libsdl.org> parents: 1442 diff changeset	441 #endif /* SDL_CDROM_OS2 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1635 diff changeset	442 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/cdrom/os2/SDL_syscdrom.c @ 2960:91708bc14aab