Cygwin support, using SDL.
[btb/d2x.git] / unused / win95 / rbaudio.c
1 /*
2 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
3 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
4 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
5 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
6 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
7 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
8 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
9 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
10 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.  
11 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
12 */
13
14
15 #pragma off (unreferenced)
16 static char rcsid[] = "$Id: rbaudio.c,v 1.1.1.1 2001-01-19 03:30:15 bradleyb Exp $";
17 #pragma on (unreferenced)
18
19 #define _WIN32
20 #define WIN32_LEAN_AND_MEAN
21
22 #include <windows.h>
23 #include <mmsystem.h>
24
25 #include <stdlib.h>
26 #include <string.h>
27
28 #include "winapp.h"
29 #include "mono.h"
30 #include "error.h"
31 #include "rbaudio.h"
32 #include "fix.h"
33 #include "winapp.h"
34
35
36 #define HSG_CD_PLAYBACK 0
37 #define MSF_CD_PLAYBACK 1
38
39
40 #pragma pack(1)
41
42 typedef struct CDTrack {
43         DWORD msf;
44         DWORD length;
45 } CDTrack;
46
47 int RBCDROM_State = 0;                                                  // CD is not used = 0
48                                                                                                                 // CD is used = 1
49                                                                                                                 // CD is already used = -1
50
51 static CDTrack  CDTrackInfo[255];
52 static UINT CDDiscID = 0;
53
54 static int              RedBookEnabled=0, RedBookInstalled = 0;
55 static UINT     CDDeviceID = 0;
56 static DWORD    CDNumTracks = 0;
57 static fix Playback_Start_Time = 0;
58 static fix Playback_Pause_Time = 0;
59 static fix Playback_Length = 0;
60 static int Playback_first_track,Playback_last_track;
61 static int AUXDevice = -1;
62 static char MCIErrorMsg[256];
63
64 //      Function Prototypes
65
66 unsigned long lsn_to_msf(unsigned long lsn);
67 unsigned long msf_to_lsn(unsigned long msf);
68 unsigned long msf_add(unsigned long msf1, unsigned long msf2);
69 unsigned long msf_sub(unsigned long msf1, unsigned long msf2);
70
71 UINT MakeCDDiscID(int tracks, unsigned long msflen, unsigned long msftrack1);
72 UINT GetCDDiscID();
73
74
75 //      Functions
76
77 void RBClose()
78 {
79         if (RedBookInstalled) {
80                 mciSendCommand(CDDeviceID, MCI_CLOSE, 0, NULL);
81                 RedBookEnabled = 0;
82                 RedBookInstalled = 0;
83         }
84 }
85
86
87 void RBAInit(void)
88 {
89         MCI_OPEN_PARMS  mciOpenParms;
90         MCI_SET_PARMS   mciSetParms;
91         DWORD                           retval = 0;
92         int                             num_devs, i;
93
94         atexit(RBClose);
95
96         num_devs = auxGetNumDevs();
97         
98 //      Find CD-AUDIO device if there is one.
99         for (i = 0; i < num_devs; i++)
100         {
101                 AUXCAPS caps;
102                 auxGetDevCaps(i, &caps, sizeof(caps));
103                 if (caps.wTechnology == AUXCAPS_CDAUDIO) {
104                         AUXDevice = i;
105                         mprintf((0, "CD operating on AUX %d.\n", AUXDevice));
106                         break;
107                 }
108         }
109                                         
110         if (AUXDevice == -1) {
111                 mprintf((1, "Unable to find CD-AUDIO device. No Redbook music.\n"));
112                 RedBookEnabled = 0;
113                 return;
114         }
115
116 //      We need to identify that a cd audio driver exists
117         mciOpenParms.lpstrDeviceType = "cdaudio";
118
119         retval = mciSendCommand(NULL, MCI_OPEN, MCI_OPEN_TYPE | MCI_OPEN_SHAREABLE, (DWORD)(LPVOID)&mciOpenParms);
120         if (retval) {
121                 if (retval == MCIERR_MUST_USE_SHAREABLE) RBCDROM_State = -1;
122                 else RBCDROM_State = 0;
123                 mciGetErrorString(retval, MCIErrorMsg, 256);
124                 mprintf((1,"RBA (%x) MCI:%s.\n", retval, MCIErrorMsg));
125                 RedBookEnabled = 0;
126         }
127         else {
128         // Now we need to set the time format to MSF for Redbook Compatablity.
129                 RedBookInstalled = 1;
130                 RBCDROM_State = 1;
131                 CDDeviceID = mciOpenParms.wDeviceID;
132
133                 logentry("Initializing Redbook device %d.\n", CDDeviceID);
134
135                 mciSetParms.dwTimeFormat = MCI_FORMAT_MSF;
136                 retval = mciSendCommand(CDDeviceID, MCI_SET, MCI_SET_TIME_FORMAT, (DWORD)(LPVOID)&mciSetParms);
137                 if (retval) {
138                         mciSendCommand(CDDeviceID, MCI_CLOSE, 0, NULL);
139                         mprintf((0, "Error %d.  Unable to set Redbook Format.\n", retval));
140                         RedBookEnabled = 0;
141                 }
142                 else RedBookEnabled = 1;
143         }
144 }
145
146
147 void RBARegisterCD(void)
148 {
149         DWORD                                   i, numtracks, retval = 0;
150         MCI_STATUS_PARMS        mciStatusParms;
151
152 //      Insure that CD is Redbook, then get track information
153         mciStatusParms.dwItem = MCI_STATUS_NUMBER_OF_TRACKS; 
154         retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM, 
155                                                 (DWORD)(LPVOID)&mciStatusParms);
156         if (retval) {
157                 mciGetErrorString(retval, MCIErrorMsg, 256);
158                 mprintf((1,"RBA MCI:%s.\n", MCIErrorMsg));
159                 CDNumTracks = 0;
160                 return;
161         }
162         
163         CDNumTracks = numtracks = mciStatusParms.dwReturn;
164
165         for (i = 0; i < numtracks; i++)
166         {
167                 mciStatusParms.dwTrack = i+1;
168                 mciStatusParms.dwItem = MCI_STATUS_POSITION;
169                 retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK, (DWORD)(LPVOID)&mciStatusParms);   
170                 if (retval) {
171                         mprintf((0, "Could not retrieve information on track %d.\n", i+1));
172                 }
173                 CDTrackInfo[i].msf = mciStatusParms.dwReturn;
174                 
175                 mciStatusParms.dwTrack = i+1;
176                 mciStatusParms.dwItem = MCI_STATUS_LENGTH;
177                 retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK, (DWORD)(LPVOID)&mciStatusParms);
178                 if (retval) { 
179                         mprintf((0, "Couldn't get length of track %d.\n", i+1));
180                 }
181                 CDTrackInfo[i].length = mciStatusParms.dwReturn;
182
183 //              logentry("[%d] (%d:%d):(%d:%d)\n", i+1, MCI_MSF_MINUTE(CDTrackInfo[i].msf), MCI_MSF_SECOND(CDTrackInfo[i].msf), MCI_MSF_MINUTE(CDTrackInfo[i].length), MCI_MSF_SECOND(CDTrackInfo[i].length));
184         }       
185
186         CDDiscID = GetCDDiscID();
187
188
189
190 long RBAGetDeviceStatus()
191 {
192         return 0;
193 }
194
195
196 int get_track_time(int first,int last)
197 {
198         unsigned long playlen;
199         int min, sec;
200
201         playlen = msf_sub(msf_add(CDTrackInfo[last-1].msf,CDTrackInfo[last-1].length), CDTrackInfo[first-1].msf);
202
203         min   = MCI_MSF_MINUTE(playlen);
204         sec   = MCI_MSF_SECOND(playlen);
205
206         return (min*60+sec);
207 }
208
209
210 int RBAPlayTrack(int track)
211 {
212         MCI_PLAY_PARMS  mciPlayParms;
213         int min=0; 
214         int retval;
215
216 //      Register CD if media has changed
217         if (!RedBookEnabled) return 0;
218         if (RBACheckMediaChange()) {
219                 mprintf((0, "Unable to play track due to CD change.\n"));
220                 return 0;
221         }
222
223 //      Play the track
224         min = min + MCI_MSF_MINUTE(CDTrackInfo[track-1].msf) + MCI_MSF_MINUTE(CDTrackInfo[track-1].length);
225         mciPlayParms.dwFrom = CDTrackInfo[track-1].msf; // MCI_MAKE_TMSF(track, 0, 0, 0);
226         mciPlayParms.dwTo = msf_add(CDTrackInfo[track-1].msf, CDTrackInfo[track-1].length);
227         retval = mciSendCommand(CDDeviceID, MCI_PLAY, MCI_FROM | MCI_TO, (DWORD)(LPVOID)&mciPlayParms);
228
229         if (retval) {
230                 mciGetErrorString(retval, MCIErrorMsg, 256);
231                 mprintf((1,"RBA MCI:%s.\n", MCIErrorMsg));
232                 mprintf((0, "Unable to play CD track %d.\n", track));
233                 return 0;
234         }
235         else {
236                 Playback_Length = i2f(get_track_time(track,track));
237                 Playback_Start_Time = timer_get_fixed_seconds();
238
239                 Playback_first_track = Playback_last_track = track;
240
241                 mprintf( (0,"Playing Track %d (len: %d secs)\n", track, f2i(Playback_Length)) );
242         }
243
244         return 1;
245 }
246
247
248 int RBAPlayTracks(int start, int end)
249 {
250         MCI_PLAY_PARMS  mciPlayParms;
251         int retval;
252
253         Playback_Start_Time = 0;
254         Playback_Length = 0;
255
256 //      Register CD if media has changed
257         if (!RedBookEnabled) return 0;
258         if (RBACheckMediaChange()) {
259                 mprintf((0, "Unable to play track due to CD change.\n"));
260                 return 0;
261         }
262
263 //      Play the track
264         mciPlayParms.dwFrom = CDTrackInfo[start-1].msf; // MCI_MAKE_TMSF(track, 0, 0, 0);
265         mciPlayParms.dwTo = msf_add(CDTrackInfo[end-1].msf, CDTrackInfo[end-1].length);
266         retval = mciSendCommand(CDDeviceID, MCI_PLAY, MCI_FROM | MCI_TO, (DWORD)(LPVOID)&mciPlayParms);
267
268         if (retval) {
269                 mciGetErrorString(retval, MCIErrorMsg, 256);
270                 mprintf((1,"RBA MCI:%s.\n", MCIErrorMsg));
271                 mprintf((0, "Unable to play CD tracks %d-%d.\n", start,end));
272                 return 0;               
273         }
274         else {
275                 Playback_Length = i2f(get_track_time(start,end));
276                 Playback_Start_Time = timer_get_fixed_seconds();
277
278                 Playback_first_track = start;
279                 Playback_last_track = end;
280
281                 mprintf( (0,"Playing Tracks %d-%d (len: %d secs)\n", start,end,f2i(Playback_Length)) );
282         }
283
284         return 1;
285 }
286
287
288 void RBAStop()
289 {
290         int retval;
291
292         if (!RedBookEnabled) return;
293         
294         retval = mciSendCommand(CDDeviceID, MCI_STOP,0,NULL);
295         if (retval) {
296                 mciGetErrorString(retval, MCIErrorMsg, 256);
297                 mprintf((1,"RBA MCI:%s.\n", MCIErrorMsg));
298                 mprintf((0, "CD Stop command failed.\n"));
299         } 
300 }
301
302
303 void RBASetStereoAudio(RBACHANNELCTL *channels)
304 {
305
306 }
307
308
309 void RBASetQuadAudio(RBACHANNELCTL *channels)
310 {
311
312 }
313
314
315 void RBAGetAudioInfo(RBACHANNELCTL *channels)
316 {
317
318 }
319
320
321 static unsigned rba_paused_head_loc = 0;
322
323 void RBAPause()
324 {
325         int retval;
326         MCI_GENERIC_PARMS mciGenParms;
327         int frame, sec, min;
328
329
330   if (!RedBookEnabled) return;
331
332         rba_paused_head_loc = RBAGetHeadLoc(&min, &sec, &frame);        
333
334         mciGenParms.dwCallback = GetLibraryWindow();
335         retval = mciSendCommand(CDDeviceID, MCI_PAUSE, MCI_NOTIFY, 
336                 (DWORD)(LPVOID)&mciGenParms);
337         if (retval)     {
338                 mprintf((1,"ERROR: Unable to pause CD.\n"));
339         }
340         else {
341                 mprintf((0, "Pausing CD...\n"));
342                 Playback_Pause_Time = timer_get_fixed_seconds();
343         }
344
345 }
346
347
348 int RBAResume()
349 {
350         int retval;
351         MCI_PLAY_PARMS mciPlayParms;
352
353         if (!RedBookEnabled) return 0;
354    
355         if (RBACheckMediaChange()) {
356                 RBARegisterCD();
357                 return RBA_MEDIA_CHANGED;
358         }
359
360         mciPlayParms.dwFrom = rba_paused_head_loc; // MCI_MAKE_TMSF(track, 0, 0, 0);
361         mciPlayParms.dwTo = msf_add(CDTrackInfo[Playback_last_track-1].msf, 
362                                                                         CDTrackInfo[Playback_last_track-1].length);
363         retval = mciSendCommand(CDDeviceID, MCI_PLAY, MCI_FROM | MCI_TO, (DWORD)(LPVOID)&mciPlayParms);
364
365         if (retval) {
366                 mprintf((1, "ERROR: Resume CD play failed.\n"));
367         }
368         else 
369                 Playback_Start_Time += timer_get_fixed_seconds() - Playback_Pause_Time;
370
371         return 1;
372 }
373
374
375 void RBASetChannelVolume(int channel, int volume) 
376 {
377         DWORD vol;
378         
379         volume = volume << 8;
380         
381         if (channel == 0) 
382                 vol = MAKELONG(0,volume);
383         else if (channel == 1) 
384                 vol = MAKELONG(volume,0);
385
386         auxSetVolume(AUXDevice, vol);
387 }
388
389
390 void RBASetVolume(int volume)
391 {
392         DWORD vol;
393         WORD wvol;
394
395         wvol = (WORD)(volume) << 8;
396
397         vol = MAKELONG(wvol, wvol);
398         auxSetVolume(AUXDevice, vol);
399 }
400
401
402 long RBAGetHeadLoc(int *min, int *sec, int *frame)
403 {
404         MCI_STATUS_PARMS mciStatusParms;
405         int retval;
406
407         if (!RedBookEnabled) return 0;
408
409         if (RBACheckMediaChange())
410                 return RBA_MEDIA_CHANGED;
411
412         mciStatusParms.dwItem = MCI_STATUS_POSITION;
413         retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM, (DWORD)(LPVOID)&mciStatusParms);
414         
415         if (retval) {
416                 mprintf((0, "Couldn't get location of CD head.\n"));
417         }
418
419         *min = MCI_MSF_MINUTE(mciStatusParms.dwReturn);
420         *sec = MCI_MSF_SECOND(mciStatusParms.dwReturn);
421         *frame = MCI_MSF_FRAME(mciStatusParms.dwReturn);
422
423         return mciStatusParms.dwReturn;
424 }               
425
426
427 int RBAGetTrackNum()
428 {
429         int track;
430         int delta_time; //in seconds
431
432         if (!RBAPeekPlayStatus())
433                 return 0;
434
435         delta_time = f2i(timer_get_fixed_seconds()-Playback_Start_Time+f1_0/2);
436
437         for (track=Playback_first_track;track<=Playback_last_track && delta_time>0;track++) {
438
439                 delta_time -= get_track_time(track,track);
440
441                 if (delta_time < 0)
442                         break;
443         }
444
445         Assert(track <= Playback_last_track);
446
447         return track;
448 }
449
450
451 int RBAPeekPlayStatus()
452 {
453 //@@    MCI_STATUS_PARMS mciStatusParms;
454 //@@    int retval;
455
456         if (!RedBookEnabled) return 0;
457
458
459         if ((timer_get_fixed_seconds()-Playback_Start_Time) > Playback_Length) return 0;
460         else return 1; 
461
462
463 //@@    mciStatusParms.dwItem = MCI_STATUS_MODE;
464 //@@    retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM, (DWORD)(LPVOID)&mciStatusParms);
465 //@@    if (retval) {
466 //@@            mprintf((0, "Unable to obtain current status of CD.\n"));
467 //@@    }
468 //@@    
469 //@@    if (mciStatusParms.dwReturn == MCI_MODE_PLAY) return 1;
470 //@@    else return 0;
471 }
472         
473
474
475 int RBAEnabled()
476 {
477         if (RedBookEnabled < 1) return 0;
478         else return 1;
479 }
480
481
482 void RBAEnable()
483 {
484         RedBookEnabled = 1;
485         mprintf((0, "Enabling Redbook...\n"));
486 }
487
488
489 void RBADisable()
490 {
491         RedBookEnabled = 0;
492         mprintf((0, "Disabling Redbook...\n"));
493 }
494
495
496 int RBAGetNumberOfTracks(void)
497 {
498         MCI_STATUS_PARMS        mciStatusParms;
499         int retval;     
500
501         if (!RedBookEnabled) return 0;
502
503         if (RBACheckMediaChange())  
504                 RBARegisterCD();
505                 
506         mciStatusParms.dwItem = MCI_STATUS_NUMBER_OF_TRACKS; 
507         retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM, 
508                                                 (DWORD)(LPVOID)&mciStatusParms);
509
510         if (retval) {
511                 mprintf((0, "Get number of CD tracks failed.\n"));
512                 return 0;
513         }
514
515         return mciStatusParms.dwReturn;
516 }
517
518
519 //      RB functions:  Internal to RBA library  -----------------------------
520
521 int RBACheckMediaChange()
522 {
523         if (!RedBookEnabled) return 0;
524
525         if (CDDiscID != GetCDDiscID() || !CDDiscID) return 1;
526         else return 0;
527 }
528
529
530 //      Converts Logical Sector Number to Minutes Seconds Frame Format
531
532 unsigned long lsn_to_msf(unsigned long lsn)
533 {
534    unsigned long min,sec,frame;
535    lsn += 150;
536
537         min   =  lsn / (60*75);
538    lsn   =  lsn % (60*75);
539         sec   =  lsn / 75;
540    lsn   =  lsn % 75;
541         frame =  lsn;
542
543         return((min << 16) + (sec << 8) + (frame << 0));
544 }
545
546 // convert minutes seconds frame format to a logical sector number.
547
548 unsigned long msf_to_lsn(unsigned long msf)
549 {
550         unsigned long min,sec,frame;
551
552         min   = (msf >> 16) & 0xFF;
553    sec   = (msf >>  8) & 0xFF;
554    frame = (msf >>  0) & 0xFF;
555
556         return(  (min * 60*75) + (sec * 75) + frame - 150  );
557 }
558
559 unsigned long msf_add(unsigned long msf1, unsigned long msf2)
560 {
561         uint min1, sec1, frame1;
562         uint min2, sec2, frame2;
563
564 //      we don't take frames into account, which may not be right.
565         min1 = MCI_MSF_MINUTE(msf1);
566         sec1 = MCI_MSF_SECOND(msf1);
567         frame1 = MCI_MSF_FRAME(msf1);
568
569         frame2 = 0;
570         min2 = 0;
571
572         if ((sec1 + MCI_MSF_SECOND(msf2)) > 59) {
573                 sec2 = (sec1+MCI_MSF_SECOND(msf2)) - 60;
574                 min1++;
575         }
576         else sec2 = sec1 + MCI_MSF_SECOND(msf2);
577         min2 = min1+MCI_MSF_MINUTE(msf2);
578         frame2 = 0;
579         
580 //      logentry("msf_add:(%d:%d)\n", min2, sec2);
581
582         return MCI_MAKE_MSF(min2, sec2, 0);
583
584
585
586 unsigned long msf_sub(unsigned long msf1, unsigned long msf2)
587 {
588         int min1, sec1, frame1;
589         int min2, sec2, frame2;
590
591 //      we don't take frames into account, which may not be right.
592         min1 = MCI_MSF_MINUTE(msf1);
593         sec1 = MCI_MSF_SECOND(msf1);
594         frame1 = MCI_MSF_FRAME(msf1);
595
596         frame2 = 0;
597         min2 = 0;
598
599         if ((sec1 - (int)MCI_MSF_SECOND(msf2)) < 0) {
600                 sec2 = 60 - ((int)MCI_MSF_SECOND(msf2)-sec1);
601                 min1--;                                 // This is a shortcut to min2 = min1-(MSF_MIN(msf2)-1)
602         }
603         else sec2 = sec1 - (int)MCI_MSF_SECOND(msf2);
604         min2 = min1-(int)MCI_MSF_MINUTE(msf2);
605         frame2 = 0;
606
607 //      logentry("msf_sub:(%d:%d)\n", min2, sec2);
608         
609         return MCI_MAKE_MSF(min2, sec2, 0);
610
611
612
613 unsigned long msf_to_sec(unsigned long msf)
614 {
615         unsigned long min,sec,frame;
616
617         min   = (msf >> 16) & 0xFF;
618    sec   = (msf >>  8) & 0xFF;
619    frame = (msf >>  0) & 0xFF;
620
621         return (min*60) + sec;  
622 }
623
624
625 UINT GetCDDiscID()
626 {
627         MCI_STATUS_PARMS        mciStatusParms;
628         int retval;     
629         unsigned long msflen, tracks, msftrack1;
630
631         mciStatusParms.dwItem = MCI_STATUS_NUMBER_OF_TRACKS; 
632         if (retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM, 
633                                                 (DWORD)(LPVOID)&mciStatusParms)) {
634                 mprintf((1, "RBA: Get number of CD tracks failed.\n"));
635                 return 0;
636         }
637         tracks = mciStatusParms.dwReturn;
638
639         mciStatusParms.dwItem = MCI_STATUS_LENGTH;
640         if (retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM, 
641                                                 (DWORD)(LPVOID)&mciStatusParms)) {
642                 mprintf((1,     "RBA: Get media length failed.\n"));
643                 return 0;
644         }
645         msflen = mciStatusParms.dwReturn;
646
647         mciStatusParms.dwTrack = 1;
648         mciStatusParms.dwItem = MCI_STATUS_POSITION;
649         if (retval = mciSendCommand(CDDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK, (DWORD)(LPVOID)&mciStatusParms)) {     
650                 mprintf((1, "Could not retrieve information on track %d.\n", 1));
651                 return 0;
652         }
653         msftrack1 = mciStatusParms.dwReturn;
654
655         return MakeCDDiscID(tracks, msflen, msftrack1);
656 }
657
658
659 UINT MakeCDDiscID(int tracks, unsigned long msflen, unsigned long msftrack1)
660 {
661         UINT code=0;
662         
663         code = (UINT)(msf_to_sec(msftrack1) << 19);
664         code |= (UINT)(msf_to_sec(msflen) << 6);
665
666         code |= (UINT)(tracks&0xffffffc0);
667
668         return code;
669 }
670         
671
672