src/mac/carbon/sound.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        sound.cpp
   3 // Purpose:     wxSound class implementation: optional
   4 // Author:      Ryan Norton
   5 // Modified by:
   6 // Created:     1998-01-01
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Ryan Norton, Stefan Csomor
   9 // Licence:       wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "sound.h"
  14 #endif
  15
  16 #include "wx/object.h"
  17 #include "wx/string.h"
  18 #include "wx/log.h"
  19 #include "wx/file.h"
  20 #include "wx/sound.h"
  21 #include "wx/timer.h"
  22 #include "wx/intl.h"
  23
  24 #if wxUSE_SOUND
  25
  26 // Carbon QT Implementation Details -
  27 //
  28 // Memory:
  29 // 1) OpenDefaultComponent(MovieImportType, kQTFileTypeWave);
  30 // 2) NewMovie(0);
  31 // 3) MovieImportDataRef() //Pass Memory Location to this
  32 // 4) PlayMovie();
  33 // 5) IsMovieDone(), MoviesTask() //2nd param is minimum wait time to allocate to quicktime
  34 //
  35 // File:
  36 // 1) Obtain FSSpec
  37 // 2) Call OpenMovieFile
  38 // 3) Call NewMovieFromFile
  39 // 4) Call CloseMovieFile
  40 // 4) PlayMovie();
  41 // 5) IsMovieDone(), MoviesTask() //2nd param is minimum wait time to allocate to quicktime
  42 //
  43
  44 #ifdef __WXMAC__
  45 #include "wx/mac/uma.h"
  46 #include <Movies.h>
  47 #include <Gestalt.h>
  48 #endif
  49
  50 #if defined __WXMAC__ && defined __DARWIN__/*TARGET_CARBON*/
  51 #ifdef __APPLE_CC__
  52 #include <Carbon/Carbon.h>
  53 #else
  54 #include <Carbon.h>
  55 #endif
  56 #else
  57 #include <Sound.h>
  58 #endif
  59
  60 //quicktime media layer only required for mac emulation on pc
  61 #ifndef __WXMAC__
  62 #include <qtml.h>
  63 #endif
  64
  65 #include <QuickTimeComponents.h>
  66
  67 //Time between timer calls
  68 #define MOVIE_DELAY 100
  69
  70 static wxTimer* lastSoundTimer=NULL;
  71 static bool lastSoundIsPlaying=false;
  72
  73 // ------------------------------------------------------------------
  74 //          wxQTTimer - Handle Asyncronous Playing
  75 // ------------------------------------------------------------------
  76 class wxQTTimer : public wxTimer
  77 {
  78 public:
  79     wxQTTimer(Movie movie, bool bLoop, bool* playing) :
  80         m_movie(movie), m_bLoop(bLoop), m_pbPlaying(playing)
  81     {
  82     }
  83
  84     ~wxQTTimer()
  85     {
  86         if(m_pbPlaying)
  87             *m_pbPlaying = false;
  88
  89         StopMovie(m_movie);
  90         DisposeMovie(m_movie);
  91         Stop();
  92
  93         //Note that ExitMovies() is not neccessary, but
  94         //the docs are fuzzy on whether or not TerminateQTML is
  95         ExitMovies();
  96
  97 #ifndef __WXMAC__
  98         TerminateQTML();
  99 #endif
 100     }
 101
 102     void Shutdown()
 103     {
 104         delete this;
 105     }
 106
 107     void Notify()
 108     {
 109         if (m_pbPlaying && !*m_pbPlaying)
 110         {
 111             Shutdown();
 112         }
 113
 114         if(IsMovieDone(m_movie))
 115         {
 116             if (!m_bLoop)
 117                 Shutdown();
 118             else
 119             {
 120                 StopMovie(m_movie);
 121                 GoToBeginningOfMovie(m_movie);
 122                 StartMovie(m_movie);
 123             }
 124         }
 125         else
 126             MoviesTask(m_movie, MOVIE_DELAY); //Give QT time to play movie
 127     }
 128
 129
 130     Movie& GetMovie() {return m_movie;}
 131
 132 protected:
 133     Movie m_movie;
 134     bool m_bLoop;
 135
 136 public:
 137     bool* m_pbPlaying;
 138
 139 };
 140
 141
 142 class wxSMTimer : public wxTimer
 143 {
 144 public:
 145     wxSMTimer(void* hSnd, void* pSndChannel, bool bLoop, bool* playing)
 146         : m_hSnd(hSnd), m_pSndChannel(pSndChannel), m_bLoop(bLoop), m_pbPlaying(playing)
 147     {
 148     }
 149
 150     ~wxSMTimer()
 151     {
 152         if(m_pbPlaying)
 153             *m_pbPlaying = false;
 154         SndDisposeChannel((SndChannelPtr)m_pSndChannel, TRUE);
 155         Stop();
 156     }
 157
 158     void Notify()
 159     {
 160         if (m_pbPlaying && !*m_pbPlaying)
 161         {
 162             Shutdown();
 163         }
 164
 165         SCStatus stat;
 166
 167         if (SndChannelStatus((SndChannelPtr)m_pSndChannel, sizeof(SCStatus), &stat) != 0)
 168             Shutdown();
 169
 170         //if the sound isn't playing anymore, see if it's looped,
 171         //and if so play it again, otherwise close things up
 172         if (stat.scChannelBusy == FALSE)
 173         {
 174             if (m_bLoop)
 175             {
 176                 if(SndPlay((SndChannelPtr)m_pSndChannel, (SndListHandle) m_hSnd, true) != noErr)
 177                     Shutdown();
 178             }
 179             else
 180                 Shutdown();
 181         }
 182     }
 183
 184     void Shutdown()
 185     {
 186         delete this;
 187     }
 188
 189     void* GetChannel() {return m_pSndChannel;}
 190
 191 protected:
 192     void* m_hSnd;
 193     void* m_pSndChannel;
 194     bool m_bLoop;
 195
 196 public:
 197     bool* m_pbPlaying;
 198 };
 199
 200 // ------------------------------------------------------------------
 201 //          wxSound
 202 // ------------------------------------------------------------------
 203
 204 //Determines whether version 4 of QT is installed
 205 Boolean wxIsQuickTime4Installed (void)
 206 {
 207 #ifdef __WXMAC__
 208     short error;
 209     long result;
 210
 211     error = Gestalt (gestaltQuickTime, &result);
 212     return (error == noErr) && (((result >> 16) & 0xffff) >= 0x0400);
 213 #else
 214     return true;
 215 #endif
 216 }
 217
 218 inline bool wxInitQT ()
 219 {
 220     if (wxIsQuickTime4Installed())
 221     {
 222         #ifndef __WXMAC__
 223         int nError;
 224         //-2093 no dll
 225             if ((nError = InitializeQTML(0)) != noErr)
 226                 wxLogSysError(wxString::Format("Couldn't Initialize Quicktime-%i", nError));
 227         #endif
 228         EnterMovies();
 229         return true;
 230     }
 231     else
 232     {
 233         wxLogSysError(wxT("Quicktime is not installed, or Your Version of Quicktime is <= 4."));
 234         return false;
 235     }
 236 }
 237
 238 wxSound::wxSound()
 239 : m_hSnd(NULL), m_waveLength(0), m_pTimer(NULL), m_type(wxSound_NONE)
 240 {
 241 }
 242
 243 wxSound::wxSound(const wxString& sFileName, bool isResource)
 244 : m_hSnd(NULL), m_waveLength(0), m_pTimer(NULL), m_type(wxSound_NONE)
 245 {
 246     Create(sFileName, isResource);
 247 }
 248
 249 wxSound::wxSound(int size, const wxByte* data)
 250 : m_hSnd((char*)data), m_waveLength(size), m_pTimer(NULL), m_type(wxSound_MEMORY)
 251 {
 252 }
 253
 254 wxSound::~wxSound()
 255 {
 256 }
 257
 258 bool wxSound::Create(const wxString& fileName, bool isResource)
 259 {
 260     Stop();
 261
 262     if (isResource)
 263     {
 264 #ifdef __WXMAC__
 265         m_type = wxSound_RESOURCE;
 266
 267         Str255 lpSnd ;
 268
 269         wxMacStringToPascal( fileName , lpSnd ) ;
 270
 271         m_sndname = fileName;
 272         m_hSnd = (char*) GetNamedResource('snd ', (const unsigned char *) lpSnd);
 273 #else
 274         return false;
 275 #endif
 276     }
 277     else
 278     {
 279         m_type = wxSound_FILE;
 280         m_sndname = fileName;
 281     }
 282
 283     return true;
 284 }
 285
 286 bool wxSound::DoPlay(unsigned flags) const
 287 {
 288     Stop();
 289
 290     Movie movie;
 291
 292     switch(m_type)
 293     {
 294     case wxSound_MEMORY:
 295         {
 296             if (!wxInitQT())
 297                 return false;
 298             Handle myHandle, dataRef = nil;
 299             MovieImportComponent miComponent;
 300             Track targetTrack = nil;
 301             TimeValue addedDuration = 0;
 302             long outFlags = 0;
 303             OSErr err;
 304             ComponentResult result;
 305
 306             myHandle = NewHandleClear((Size)m_waveLength);
 307
 308             BlockMove(m_hSnd, *myHandle, m_waveLength);
 309
 310             err = PtrToHand(&myHandle, &dataRef, sizeof(Handle));
 311
 312             if (memcmp(&m_hSnd[8], "WAVE", 4) == 0)
 313                 miComponent = OpenDefaultComponent(MovieImportType, kQTFileTypeWave);
 314             else if (memcmp(&m_hSnd[8], "AIFF", 4) == 0)
 315                 miComponent = OpenDefaultComponent(MovieImportType, kQTFileTypeAIFF);
 316             else if (memcmp(&m_hSnd[8], "AIFC", 4) == 0)
 317                 miComponent = OpenDefaultComponent(MovieImportType, kQTFileTypeAIFC);
 318             else
 319             {
 320                 wxLogSysError(wxT("wxSound - Location in memory does not contain valid data"));
 321                 return false;
 322             }
 323
 324             movie = NewMovie(0);
 325
 326             result = MovieImportDataRef(miComponent,                dataRef,
 327                                         HandleDataHandlerSubType,   movie,
 328                                         nil,                        &targetTrack,
 329                                         nil,                        &addedDuration,
 330                                         movieImportCreateTrack,     &outFlags);
 331
 332             if (result != noErr)
 333             {
 334                 wxLogSysError(wxString::Format(wxT("Couldn't import movie data\nError:%i"), (int)result));
 335             }
 336
 337             SetMovieVolume(movie, kFullVolume);
 338             GoToBeginningOfMovie(movie);
 339
 340             DisposeHandle(myHandle);
 341         }
 342         break;
 343     case wxSound_RESOURCE:
 344         {
 345             SoundComponentData data;
 346             unsigned long numframes, offset;
 347
 348             ParseSndHeader((SndListHandle)m_hSnd, &data, &numframes, &offset);
 349             //m_waveLength = numFrames * data.numChannels;
 350
 351             SndChannelPtr pSndChannel;
 352             SndNewChannel(&pSndChannel, sampledSynth,
 353                 initNoInterp
 354                 + (data.numChannels == 1 ? initMono : initStereo), NULL);
 355
 356             if(SndPlay(pSndChannel, (SndListHandle) m_hSnd, flags & wxSOUND_ASYNC ? 1 : 0) != noErr)
 357                 return false;
 358
 359             if (flags & wxSOUND_ASYNC)
 360             {
 361                 lastSoundTimer = ((wxSMTimer*&)m_pTimer)
 362                     = new wxSMTimer(pSndChannel, m_hSnd, flags & wxSOUND_LOOP ? 1 : 0,
 363                                     &lastSoundIsPlaying);
 364                 lastSoundIsPlaying = true;
 365
 366                 ((wxTimer*)m_pTimer)->Start(MOVIE_DELAY, wxTIMER_CONTINUOUS);
 367             }
 368             else
 369                 SndDisposeChannel(pSndChannel, TRUE);
 370
 371             return true;
 372         }
 373         break;
 374     case wxSound_FILE:
 375         {
 376             if (!wxInitQT())
 377                 return false;
 378
 379             OSErr err = noErr ;
 380 #if defined( __WXMAC__ ) && TARGET_API_MAC_OSX && ( MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2 )
 381             if ( UMAGetSystemVersion() >= 0x1030 )
 382             {
 383                 Handle dataRef = NULL;
 384                 OSType dataRefType;
 385
 386                 err = QTNewDataReferenceFromFullPathCFString(wxMacCFStringHolder(m_sndname,wxLocale::GetSystemEncoding()),
 387                     kQTNativeDefaultPathStyle, 0, &dataRef, &dataRefType);
 388
 389                 if (NULL != dataRef)
 390                 {
 391                     err = NewMovieFromDataRef( &movie, newMovieDontAskUnresolvedDataRefs , NULL, dataRef, dataRefType );
 392                     DisposeHandle(dataRef);
 393                 }
 394             }
 395             else
 396 #endif
 397             {
 398                 short movieResFile;
 399                 FSSpec sfFile;
 400 #ifdef __WXMAC__
 401                 wxMacFilename2FSSpec( m_sndname , &sfFile ) ;
 402 #else
 403                 int nError;
 404                 if ((nError = NativePathNameToFSSpec ((char*) m_sndname.c_str(), &sfFile, 0)) != noErr)
 405                 {
 406                     wxLogSysError(wxString::Format(wxT("File:%s does not exist\nError:%i"),
 407                                     m_sndname.c_str(), nError));
 408                     return false;
 409                 }
 410 #endif
 411                 if (OpenMovieFile (&sfFile, &movieResFile, fsRdPerm) != noErr)
 412                 {
 413                     wxLogSysError(wxT("Quicktime couldn't open the file"));
 414                     return false;
 415                 }
 416                 short movieResID = 0;
 417                 Str255 movieName;
 418
 419                 err = NewMovieFromFile (
 420                 &movie,
 421                 movieResFile,
 422                 &movieResID,
 423                 movieName,
 424                 newMovieActive,
 425                 NULL); //wasChanged
 426
 427                 CloseMovieFile (movieResFile);
 428             }
 429
 430             if (err != noErr)
 431             {
 432                 wxLogSysError(
 433                     wxString::Format(wxT("wxSound - Could not open file: %s\nError:%i"), m_sndname.c_str(), err )
 434                     );
 435                 return false;
 436             }
 437         }
 438         break;
 439     default:
 440         return false;
 441     }//end switch(m_type)
 442
 443     //Start the movie!
 444     StartMovie(movie);
 445
 446     if (flags & wxSOUND_ASYNC)
 447     {
 448         //Start timer and play movie asyncronously
 449         lastSoundTimer = ((wxQTTimer*&)m_pTimer) =
 450             new wxQTTimer(movie, flags & wxSOUND_LOOP ? 1 : 0,
 451                           &lastSoundIsPlaying);
 452         lastSoundIsPlaying = true;
 453         ((wxQTTimer*)m_pTimer)->Start(MOVIE_DELAY, wxTIMER_CONTINUOUS);
 454     }
 455     else
 456     {
 457         wxASSERT_MSG(!(flags & wxSOUND_LOOP), wxT("Can't loop and play syncronously at the same time"));
 458
 459         //Play movie until it ends, then exit
 460         while (!IsMovieDone(movie))
 461             MoviesTask(movie, 0);
 462
 463         DisposeMovie(movie);
 464     }
 465
 466     return true;
 467 }
 468
 469 bool wxSound::IsPlaying()
 470 {
 471     return lastSoundIsPlaying;
 472 }
 473
 474 void wxSound::Stop()
 475 {
 476     if (lastSoundIsPlaying)
 477     {
 478         delete (wxTimer*&) lastSoundTimer;
 479         lastSoundIsPlaying = false;
 480         lastSoundTimer = NULL;
 481     }
 482 }
 483
 484 void* wxSound::GetHandle()
 485 {
 486     if(m_type == wxSound_RESOURCE)
 487         return (void*)  ((wxSMTimer*)m_pTimer)->GetChannel();
 488
 489     return (void*) ((wxQTTimer*) m_pTimer)->GetMovie();
 490 }
 491
 492 #endif //wxUSE_SOUND