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