Chris@40: /*
Chris@40: ** Copyright (C) 1999-2015 Erik de Castro Lopo <erikd@mega-nerd.com>
Chris@40: **
Chris@40: ** All rights reserved.
Chris@40: **
Chris@40: ** Redistribution and use in source and binary forms, with or without
Chris@40: ** modification, are permitted provided that the following conditions are
Chris@40: ** met:
Chris@40: **
Chris@40: **     * Redistributions of source code must retain the above copyright
Chris@40: **       notice, this list of conditions and the following disclaimer.
Chris@40: **     * Redistributions in binary form must reproduce the above copyright
Chris@40: **       notice, this list of conditions and the following disclaimer in
Chris@40: **       the documentation and/or other materials provided with the
Chris@40: **       distribution.
Chris@40: **     * Neither the author nor the names of any contributors may be used
Chris@40: **       to endorse or promote products derived from this software without
Chris@40: **       specific prior written permission.
Chris@40: **
Chris@40: ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
Chris@40: ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
Chris@40: ** TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
Chris@40: ** PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
Chris@40: ** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
Chris@40: ** EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
Chris@40: ** PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
Chris@40: ** OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
Chris@40: ** WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
Chris@40: ** OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
Chris@40: ** ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
Chris@40: */
Chris@40: 
Chris@40: #include "sfconfig.h"
Chris@40: 
Chris@40: #include <stdio.h>
Chris@40: #include <stdlib.h>
Chris@40: #include <string.h>
Chris@40: #include <errno.h>
Chris@40: 
Chris@40: #if HAVE_UNISTD_H
Chris@40: #include <unistd.h>
Chris@40: #endif
Chris@40: 
Chris@40: #include <sndfile.h>
Chris@40: 
Chris@40: #include "common.h"
Chris@40: 
Chris@40: #if HAVE_ALSA_ASOUNDLIB_H
Chris@40: 	#define ALSA_PCM_NEW_HW_PARAMS_API
Chris@40: 	#define ALSA_PCM_NEW_SW_PARAMS_API
Chris@40: 	#include <alsa/asoundlib.h>
Chris@40: 	#include <sys/time.h>
Chris@40: #endif
Chris@40: 
Chris@40: #if defined (__ANDROID__)
Chris@40: 
Chris@40: #elif defined (__linux__) || defined (__FreeBSD_kernel__) || defined (__FreeBSD__)
Chris@40: 	#include 	<fcntl.h>
Chris@40: 	#include 	<sys/ioctl.h>
Chris@40: 	#include 	<sys/soundcard.h>
Chris@40: 
Chris@40: #elif (defined (__MACH__) && defined (__APPLE__))
Chris@40: 	#include <AvailabilityMacros.h>
Chris@40: 	#include <Availability.h>
Chris@40: 
Chris@40: 	#if (OSX_DARWIN_VERSION > 11)
Chris@40: 		/* Includes go here. */
Chris@40: 	#elif (OSX_DARWIN_VERSION == 11)
Chris@40: 		#include <AudioToolbox/AudioToolbox.h>
Chris@40: 	#elif (OSX_DARWIN_VERSION > 0 && OSX_DARWIN_VERSION <= 10)
Chris@40: 		#include <CoreAudio/AudioHardware.h>
Chris@40: 	#endif
Chris@40: 
Chris@40: #elif HAVE_SNDIO_H
Chris@40: 	#include <sndio.h>
Chris@40: 
Chris@40: #elif (defined (sun) && defined (unix))
Chris@40: 	#include <fcntl.h>
Chris@40: 	#include <sys/ioctl.h>
Chris@40: 	#include <sys/audioio.h>
Chris@40: 
Chris@40: #elif (OS_IS_WIN32 == 1)
Chris@40: 	#include <windows.h>
Chris@40: 	#include <mmsystem.h>
Chris@40: 
Chris@40: #endif
Chris@40: 
Chris@40: #define	SIGNED_SIZEOF(x)	((int) sizeof (x))
Chris@40: #define	BUFFER_LEN			(2048)
Chris@40: 
Chris@40: /*------------------------------------------------------------------------------
Chris@40: **	Linux/OSS functions for playing a sound.
Chris@40: */
Chris@40: 
Chris@40: #if HAVE_ALSA_ASOUNDLIB_H
Chris@40: 
Chris@40: static snd_pcm_t * alsa_open (int channels, unsigned srate, int realtime) ;
Chris@40: static int alsa_write_float (snd_pcm_t *alsa_dev, float *data, int frames, int channels) ;
Chris@40: 
Chris@40: static void
Chris@40: alsa_play (int argc, char *argv [])
Chris@40: {	static float buffer [BUFFER_LEN] ;
Chris@40: 	SNDFILE *sndfile ;
Chris@40: 	SF_INFO sfinfo ;
Chris@40: 	snd_pcm_t * alsa_dev ;
Chris@40: 	int		k, readcount, subformat ;
Chris@40: 
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@40: 
Chris@40: 		printf ("Playing %s\n", argv [k]) ;
Chris@40: 		if (! (sndfile = sf_open (argv [k], SFM_READ, &sfinfo)))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (sfinfo.channels < 1 || sfinfo.channels > 2)
Chris@40: 		{	printf ("Error : channels = %d.\n", sfinfo.channels) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if ((alsa_dev = alsa_open (sfinfo.channels, (unsigned) sfinfo.samplerate, SF_FALSE)) == NULL)
Chris@40: 			continue ;
Chris@40: 
Chris@40: 		subformat = sfinfo.format & SF_FORMAT_SUBMASK ;
Chris@40: 
Chris@40: 		if (subformat == SF_FORMAT_FLOAT || subformat == SF_FORMAT_DOUBLE)
Chris@40: 		{	double	scale ;
Chris@40: 			int 	m ;
Chris@40: 
Chris@40: 			sf_command (sndfile, SFC_CALC_SIGNAL_MAX, &scale, sizeof (scale)) ;
Chris@40: 			if (scale < 1e-10)
Chris@40: 				scale = 1.0 ;
Chris@40: 			else
Chris@40: 				scale = 32700.0 / scale ;
Chris@40: 
Chris@40: 			while ((readcount = sf_read_float (sndfile, buffer, BUFFER_LEN)))
Chris@40: 			{	for (m = 0 ; m < readcount ; m++)
Chris@40: 					buffer [m] *= scale ;
Chris@40: 				alsa_write_float (alsa_dev, buffer, BUFFER_LEN / sfinfo.channels, sfinfo.channels) ;
Chris@40: 				} ;
Chris@40: 			}
Chris@40: 		else
Chris@40: 		{	while ((readcount = sf_read_float (sndfile, buffer, BUFFER_LEN)))
Chris@40: 				alsa_write_float (alsa_dev, buffer, BUFFER_LEN / sfinfo.channels, sfinfo.channels) ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		snd_pcm_drain (alsa_dev) ;
Chris@40: 		snd_pcm_close (alsa_dev) ;
Chris@40: 
Chris@40: 		sf_close (sndfile) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* alsa_play */
Chris@40: 
Chris@40: static snd_pcm_t *
Chris@40: alsa_open (int channels, unsigned samplerate, int realtime)
Chris@40: {	const char * device = "default" ;
Chris@40: 	snd_pcm_t *alsa_dev = NULL ;
Chris@40: 	snd_pcm_hw_params_t *hw_params ;
Chris@40: 	snd_pcm_uframes_t buffer_size ;
Chris@40: 	snd_pcm_uframes_t alsa_period_size, alsa_buffer_frames ;
Chris@40: 	snd_pcm_sw_params_t *sw_params ;
Chris@40: 
Chris@40: 	int err ;
Chris@40: 
Chris@40: 	if (realtime)
Chris@40: 	{	alsa_period_size = 256 ;
Chris@40: 		alsa_buffer_frames = 3 * alsa_period_size ;
Chris@40: 		}
Chris@40: 	else
Chris@40: 	{	alsa_period_size = 1024 ;
Chris@40: 		alsa_buffer_frames = 4 * alsa_period_size ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_open (&alsa_dev, device, SND_PCM_STREAM_PLAYBACK, 0)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot open audio device \"%s\" (%s)\n", device, snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	snd_pcm_nonblock (alsa_dev, 0) ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_malloc (&hw_params)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot allocate hardware parameter structure (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_any (alsa_dev, hw_params)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot initialize hardware parameter structure (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_set_access (alsa_dev, hw_params, SND_PCM_ACCESS_RW_INTERLEAVED)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set access type (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_set_format (alsa_dev, hw_params, SND_PCM_FORMAT_FLOAT)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set sample format (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_set_rate_near (alsa_dev, hw_params, &samplerate, 0)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set sample rate (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_set_channels (alsa_dev, hw_params, channels)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set channel count (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_set_buffer_size_near (alsa_dev, hw_params, &alsa_buffer_frames)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set buffer size (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params_set_period_size_near (alsa_dev, hw_params, &alsa_period_size, 0)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set period size (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_hw_params (alsa_dev, hw_params)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set parameters (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	/* extra check: if we have only one period, this code won't work */
Chris@40: 	snd_pcm_hw_params_get_period_size (hw_params, &alsa_period_size, 0) ;
Chris@40: 	snd_pcm_hw_params_get_buffer_size (hw_params, &buffer_size) ;
Chris@40: 	if (alsa_period_size == buffer_size)
Chris@40: 	{	fprintf (stderr, "Can't use period equal to buffer size (%lu == %lu)", alsa_period_size, buffer_size) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	snd_pcm_hw_params_free (hw_params) ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_sw_params_malloc (&sw_params)) != 0)
Chris@40: 	{	fprintf (stderr, "%s: snd_pcm_sw_params_malloc: %s", __func__, snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_sw_params_current (alsa_dev, sw_params)) != 0)
Chris@40: 	{	fprintf (stderr, "%s: snd_pcm_sw_params_current: %s", __func__, snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	/* note: set start threshold to delay start until the ring buffer is full */
Chris@40: 	snd_pcm_sw_params_current (alsa_dev, sw_params) ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_sw_params_set_start_threshold (alsa_dev, sw_params, buffer_size)) < 0)
Chris@40: 	{	fprintf (stderr, "cannot set start threshold (%s)\n", snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if ((err = snd_pcm_sw_params (alsa_dev, sw_params)) != 0)
Chris@40: 	{	fprintf (stderr, "%s: snd_pcm_sw_params: %s", __func__, snd_strerror (err)) ;
Chris@40: 		goto catch_error ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	snd_pcm_sw_params_free (sw_params) ;
Chris@40: 
Chris@40: 	snd_pcm_reset (alsa_dev) ;
Chris@40: 
Chris@40: catch_error :
Chris@40: 
Chris@40: 	if (err < 0 && alsa_dev != NULL)
Chris@40: 	{	snd_pcm_close (alsa_dev) ;
Chris@40: 		return NULL ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return alsa_dev ;
Chris@40: } /* alsa_open */
Chris@40: 
Chris@40: static int
Chris@40: alsa_write_float (snd_pcm_t *alsa_dev, float *data, int frames, int channels)
Chris@40: {	static	int epipe_count = 0 ;
Chris@40: 
Chris@40: 	int total = 0 ;
Chris@40: 	int retval ;
Chris@40: 
Chris@40: 	if (epipe_count > 0)
Chris@40: 		epipe_count -- ;
Chris@40: 
Chris@40: 	while (total < frames)
Chris@40: 	{	retval = snd_pcm_writei (alsa_dev, data + total * channels, frames - total) ;
Chris@40: 
Chris@40: 		if (retval >= 0)
Chris@40: 		{	total += retval ;
Chris@40: 			if (total == frames)
Chris@40: 				return total ;
Chris@40: 
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		switch (retval)
Chris@40: 		{	case -EAGAIN :
Chris@40: 					puts ("alsa_write_float: EAGAIN") ;
Chris@40: 					continue ;
Chris@40: 					break ;
Chris@40: 
Chris@40: 			case -EPIPE :
Chris@40: 					if (epipe_count > 0)
Chris@40: 					{	printf ("alsa_write_float: EPIPE %d\n", epipe_count) ;
Chris@40: 						if (epipe_count > 140)
Chris@40: 							return retval ;
Chris@40: 						} ;
Chris@40: 					epipe_count += 100 ;
Chris@40: 
Chris@40: #if 0
Chris@40: 					if (0)
Chris@40: 					{	snd_pcm_status_t *status ;
Chris@40: 
Chris@40: 						snd_pcm_status_alloca (&status) ;
Chris@40: 						if ((retval = snd_pcm_status (alsa_dev, status)) < 0)
Chris@40: 							fprintf (stderr, "alsa_out: xrun. can't determine length\n") ;
Chris@40: 						else if (snd_pcm_status_get_state (status) == SND_PCM_STATE_XRUN)
Chris@40: 						{	struct timeval now, diff, tstamp ;
Chris@40: 
Chris@40: 							gettimeofday (&now, 0) ;
Chris@40: 							snd_pcm_status_get_trigger_tstamp (status, &tstamp) ;
Chris@40: 							timersub (&now, &tstamp, &diff) ;
Chris@40: 
Chris@40: 							fprintf (stderr, "alsa_write_float xrun: of at least %.3f msecs. resetting stream\n",
Chris@40: 									diff.tv_sec * 1000 + diff.tv_usec / 1000.0) ;
Chris@40: 							}
Chris@40: 						else
Chris@40: 							fprintf (stderr, "alsa_write_float: xrun. can't determine length\n") ;
Chris@40: 						} ;
Chris@40: #endif
Chris@40: 
Chris@40: 					snd_pcm_prepare (alsa_dev) ;
Chris@40: 					break ;
Chris@40: 
Chris@40: 			case -EBADFD :
Chris@40: 					fprintf (stderr, "alsa_write_float: Bad PCM state.n") ;
Chris@40: 					return 0 ;
Chris@40: 					break ;
Chris@40: 
Chris@40: 			case -ESTRPIPE :
Chris@40: 					fprintf (stderr, "alsa_write_float: Suspend event.n") ;
Chris@40: 					return 0 ;
Chris@40: 					break ;
Chris@40: 
Chris@40: 			case -EIO :
Chris@40: 					puts ("alsa_write_float: EIO") ;
Chris@40: 					return 0 ;
Chris@40: 
Chris@40: 			default :
Chris@40: 					fprintf (stderr, "alsa_write_float: retval = %d\n", retval) ;
Chris@40: 					return 0 ;
Chris@40: 					break ;
Chris@40: 			} ; /* switch */
Chris@40: 		} ; /* while */
Chris@40: 
Chris@40: 	return total ;
Chris@40: } /* alsa_write_float */
Chris@40: 
Chris@40: #endif /* HAVE_ALSA_ASOUNDLIB_H */
Chris@40: 
Chris@40: /*------------------------------------------------------------------------------
Chris@40: **	Linux/OSS functions for playing a sound.
Chris@40: */
Chris@40: 
Chris@40: #if !defined (__ANDROID__) && (defined (__linux__) || defined (__FreeBSD_kernel__) || defined (__FreeBSD__))
Chris@40: 
Chris@40: static	int	opensoundsys_open_device (int channels, int srate) ;
Chris@40: 
Chris@40: static int
Chris@40: opensoundsys_play (int argc, char *argv [])
Chris@40: {	static short buffer [BUFFER_LEN] ;
Chris@40: 	SNDFILE *sndfile ;
Chris@40: 	SF_INFO sfinfo ;
Chris@40: 	int		k, audio_device, readcount, writecount, subformat ;
Chris@40: 
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@40: 
Chris@40: 		printf ("Playing %s\n", argv [k]) ;
Chris@40: 		if (! (sndfile = sf_open (argv [k], SFM_READ, &sfinfo)))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (sfinfo.channels < 1 || sfinfo.channels > 2)
Chris@40: 		{	printf ("Error : channels = %d.\n", sfinfo.channels) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		audio_device = opensoundsys_open_device (sfinfo.channels, sfinfo.samplerate) ;
Chris@40: 
Chris@40: 		subformat = sfinfo.format & SF_FORMAT_SUBMASK ;
Chris@40: 
Chris@40: 		if (subformat == SF_FORMAT_FLOAT || subformat == SF_FORMAT_DOUBLE)
Chris@40: 		{	static float float_buffer [BUFFER_LEN] ;
Chris@40: 			double	scale ;
Chris@40: 			int 	m ;
Chris@40: 
Chris@40: 			sf_command (sndfile, SFC_CALC_SIGNAL_MAX, &scale, sizeof (scale)) ;
Chris@40: 			if (scale < 1e-10)
Chris@40: 				scale = 1.0 ;
Chris@40: 			else
Chris@40: 				scale = 32700.0 / scale ;
Chris@40: 
Chris@40: 			while ((readcount = sf_read_float (sndfile, float_buffer, BUFFER_LEN)))
Chris@40: 			{	for (m = 0 ; m < readcount ; m++)
Chris@40: 					buffer [m] = scale * float_buffer [m] ;
Chris@40: 				writecount = write (audio_device, buffer, readcount * sizeof (short)) ;
Chris@40: 				} ;
Chris@40: 			}
Chris@40: 		else
Chris@40: 		{	while ((readcount = sf_read_short (sndfile, buffer, BUFFER_LEN)))
Chris@40: 				writecount = write (audio_device, buffer, readcount * sizeof (short)) ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (ioctl (audio_device, SNDCTL_DSP_POST, 0) == -1)
Chris@40: 			perror ("ioctl (SNDCTL_DSP_POST) ") ;
Chris@40: 
Chris@40: 		if (ioctl (audio_device, SNDCTL_DSP_SYNC, 0) == -1)
Chris@40: 			perror ("ioctl (SNDCTL_DSP_SYNC) ") ;
Chris@40: 
Chris@40: 		close (audio_device) ;
Chris@40: 
Chris@40: 		sf_close (sndfile) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return writecount ;
Chris@40: } /* opensoundsys_play */
Chris@40: 
Chris@40: static int
Chris@40: opensoundsys_open_device (int channels, int srate)
Chris@40: {	int fd, stereo, fmt ;
Chris@40: 
Chris@40: 	if ((fd = open ("/dev/dsp", O_WRONLY, 0)) == -1 &&
Chris@40: 		(fd = open ("/dev/sound/dsp", O_WRONLY, 0)) == -1)
Chris@40: 	{	perror ("opensoundsys_open_device : open ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	stereo = 0 ;
Chris@40: 	if (ioctl (fd, SNDCTL_DSP_STEREO, &stereo) == -1)
Chris@40: 	{ 	/* Fatal error */
Chris@40: 		perror ("opensoundsys_open_device : stereo ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if (ioctl (fd, SNDCTL_DSP_RESET, 0))
Chris@40: 	{	perror ("opensoundsys_open_device : reset ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	fmt = CPU_IS_BIG_ENDIAN ? AFMT_S16_BE : AFMT_S16_LE ;
Chris@40: 	if (ioctl (fd, SNDCTL_DSP_SETFMT, &fmt) != 0)
Chris@40: 	{	perror ("opensoundsys_open_device : set format ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if (ioctl (fd, SNDCTL_DSP_CHANNELS, &channels) != 0)
Chris@40: 	{	perror ("opensoundsys_open_device : channels ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if (ioctl (fd, SNDCTL_DSP_SPEED, &srate) != 0)
Chris@40: 	{	perror ("opensoundsys_open_device : sample rate ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	if (ioctl (fd, SNDCTL_DSP_SYNC, 0) != 0)
Chris@40: 	{	perror ("opensoundsys_open_device : sync ") ;
Chris@40: 		exit (1) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return 	fd ;
Chris@40: } /* opensoundsys_open_device */
Chris@40: 
Chris@40: #endif /* __linux__ */
Chris@40: 
Chris@40: /*------------------------------------------------------------------------------
Chris@40: **	Mac OS X functions for playing a sound.
Chris@40: */
Chris@40: 
Chris@40: #if (OSX_DARWIN_VERSION > 11)
Chris@40: /* MacOSX 10.8 use a new Audio API. Someone needs to write some code for it. */
Chris@40: #endif /* OSX_DARWIN_VERSION > 11 */
Chris@40: 
Chris@40: #if (OSX_DARWIN_VERSION == 11)
Chris@40: /* MacOSX 10.7 use AudioQueue API */
Chris@40: 
Chris@40: #define kBytesPerAudioBuffer	(1024 * 8)
Chris@40: #define kNumberOfAudioBuffers	4
Chris@40: 
Chris@40: typedef struct
Chris@40: {	AudioStreamBasicDescription		format ;
Chris@40: 
Chris@40: 	AudioQueueRef		queue ;
Chris@40: 	AudioQueueBufferRef	queueBuffer [kNumberOfAudioBuffers] ;
Chris@40: 
Chris@40: 	UInt32 			buf_size ;
Chris@40: 
Chris@40: 	SNDFILE 		*sndfile ;
Chris@40: 	SF_INFO 		sfinfo ;
Chris@40: 
Chris@40: 	int				done_playing ;
Chris@40: } MacOSXAudioData ;
Chris@40: 
Chris@40: 
Chris@40: static void
Chris@40: macosx_fill_buffer (MacOSXAudioData *audio_data, AudioQueueBufferRef audio_buffer)
Chris@40: {	int		size, sample_count, read_count ;
Chris@40: 	short	*buffer ;
Chris@40: 
Chris@40: 	size = audio_buffer->mAudioDataBytesCapacity ;
Chris@40: 	sample_count = size / sizeof (short) ;
Chris@40: 
Chris@40: 	buffer = (short*) audio_buffer->mAudioData ;
Chris@40: 
Chris@40: 	read_count = sf_read_short (audio_data->sndfile, buffer, sample_count) ;
Chris@40: 
Chris@40: 	if (read_count > 0)
Chris@40: 	{	audio_buffer->mAudioDataByteSize = read_count * sizeof (short) ;
Chris@40: 		AudioQueueEnqueueBuffer (audio_data->queue, audio_buffer, 0, NULL) ;
Chris@40: 		}
Chris@40: 	else
Chris@40: 		AudioQueueStop (audio_data->queue, false) ;
Chris@40: 
Chris@40: } /* macosx_fill_buffer */
Chris@40: 
Chris@40: 
Chris@40: static void
Chris@40: macosx_audio_out_callback (void *user_data, AudioQueueRef audio_queue, AudioQueueBufferRef audio_buffer)
Chris@40: {	MacOSXAudioData *audio_data = (MacOSXAudioData *) user_data ;
Chris@40: 
Chris@40: 	if (audio_data->queue == audio_queue)
Chris@40: 		macosx_fill_buffer (audio_data, audio_buffer) ;
Chris@40: 
Chris@40: } /* macosx_audio_out_callback */
Chris@40: 
Chris@40: 
Chris@40: static void
Chris@40: macosx_audio_out_property_callback (void *user_data, AudioQueueRef audio_queue, AudioQueuePropertyID prop)
Chris@40: {	MacOSXAudioData *audio_data = (MacOSXAudioData *) user_data ;
Chris@40: 
Chris@40: 	if (prop == kAudioQueueProperty_IsRunning)
Chris@40: 	{	UInt32 is_running = 0 ;
Chris@40: 		UInt32 is_running_size = sizeof (is_running) ;
Chris@40: 
Chris@40: 		AudioQueueGetProperty (audio_queue, kAudioQueueProperty_IsRunning, &is_running, &is_running_size) ;
Chris@40: 
Chris@40: 		if (!is_running)
Chris@40: 		{	audio_data->done_playing = SF_TRUE ;
Chris@40: 			CFRunLoopStop (CFRunLoopGetCurrent ()) ;
Chris@40: 			} ;
Chris@40: 		} ;
Chris@40: } /* macosx_audio_out_property_callback */
Chris@40: 
Chris@40: 
Chris@40: 
Chris@40: static void
Chris@40: macosx_play (int argc, char *argv [])
Chris@40: {	MacOSXAudioData 	audio_data ;
Chris@40: 	OSStatus	err ;
Chris@40: 	int 		i ;
Chris@40: 	int 		k ;
Chris@40: 
Chris@40: 	memset (&audio_data, 0x55, sizeof (audio_data)) ;
Chris@40: 
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	memset (&(audio_data.sfinfo), 0, sizeof (audio_data.sfinfo)) ;
Chris@40: 
Chris@40: 		printf ("Playing %s\n", argv [k]) ;
Chris@40: 		if (! (audio_data.sndfile = sf_open (argv [k], SFM_READ, &(audio_data.sfinfo))))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (audio_data.sfinfo.channels < 1 || audio_data.sfinfo.channels > 2)
Chris@40: 		{	printf ("Error : channels = %d.\n", audio_data.sfinfo.channels) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/*  fill ASBD */
Chris@40: 		audio_data.format.mSampleRate = audio_data.sfinfo.samplerate ;
Chris@40: 		audio_data.format.mChannelsPerFrame	= audio_data.sfinfo.channels ;
Chris@40: 		audio_data.format.mFormatID			= kAudioFormatLinearPCM ;
Chris@40: 		audio_data.format.mFormatFlags		= kAudioFormatFlagIsSignedInteger | kAudioFormatFlagsNativeEndian | kAudioFormatFlagIsPacked ;
Chris@40: 		audio_data.format.mBytesPerPacket	= audio_data.format.mChannelsPerFrame * 2 ;
Chris@40: 		audio_data.format.mFramesPerPacket	= 1 ;
Chris@40: 		audio_data.format.mBytesPerFrame	= audio_data.format.mBytesPerPacket ;
Chris@40: 		audio_data.format.mBitsPerChannel	= 16 ;
Chris@40: 		audio_data.format.mReserved			= 0 ;
Chris@40: 
Chris@40: 		/* create the queue */
Chris@40: 		if ((err = AudioQueueNewOutput (&(audio_data.format), macosx_audio_out_callback, &audio_data,
Chris@40: 					CFRunLoopGetCurrent (), kCFRunLoopCommonModes, 0, &(audio_data.queue))) != noErr)
Chris@40: 		{	printf ("AudioQueueNewOutput failed\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/*  add property listener */
Chris@40: 		if ((err = AudioQueueAddPropertyListener (audio_data.queue, kAudioQueueProperty_IsRunning, macosx_audio_out_property_callback, &audio_data)) != noErr)
Chris@40: 		{	printf ("AudioQueueAddPropertyListener failed\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/*  create the buffers */
Chris@40: 		for (i = 0 ; i < kNumberOfAudioBuffers ; i++)
Chris@40: 		{	if ((err = AudioQueueAllocateBuffer (audio_data.queue, kBytesPerAudioBuffer, &audio_data.queueBuffer [i])) != noErr)
Chris@40: 			{	printf ("AudioQueueAllocateBuffer failed\n") ;
Chris@40: 				return ;
Chris@40: 				} ;
Chris@40: 
Chris@40: 			macosx_fill_buffer (&audio_data, audio_data.queueBuffer [i]) ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		audio_data.done_playing = SF_FALSE ;
Chris@40: 
Chris@40: 		/* start queue */
Chris@40: 		if ((err = AudioQueueStart (audio_data.queue, NULL)) != noErr)
Chris@40: 		{	printf ("AudioQueueStart failed\n") ;
Chris@40: 			return ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 		while (audio_data.done_playing == SF_FALSE)
Chris@40: 			CFRunLoopRun () ;
Chris@40: 
Chris@40: 		/*  free the buffers */
Chris@40: 		for (i = 0 ; i < kNumberOfAudioBuffers ; i++)
Chris@40: 		{	if ((err = AudioQueueFreeBuffer (audio_data.queue, audio_data.queueBuffer [i])) != noErr)
Chris@40: 			{	printf ("AudioQueueFreeBuffer failed\n") ;
Chris@40: 				return ;
Chris@40: 				} ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/*  free the queue */
Chris@40: 		if ((err = AudioQueueDispose (audio_data.queue, true)) != noErr)
Chris@40: 		{	printf ("AudioQueueDispose failed\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		sf_close (audio_data.sndfile) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* macosx_play, AudioQueue implementation */
Chris@40: 
Chris@40: #endif /* OSX_DARWIN_VERSION == 11 */
Chris@40: 
Chris@40: #if (OSX_DARWIN_VERSION > 0 && OSX_DARWIN_VERSION <= 10)
Chris@40: /* MacOSX 10.6 or earlier, use AudioHardware API */
Chris@40: 
Chris@40: typedef struct
Chris@40: {	AudioStreamBasicDescription		format ;
Chris@40: 
Chris@40: 	UInt32 			buf_size ;
Chris@40: 	AudioDeviceID 	device ;
Chris@40: 
Chris@40: 	SNDFILE 		*sndfile ;
Chris@40: 	SF_INFO 		sfinfo ;
Chris@40: 
Chris@40: 	int				fake_stereo ;
Chris@40: 	int				done_playing ;
Chris@40: } MacOSXAudioData ;
Chris@40: 
Chris@40: #include <math.h>
Chris@40: 
Chris@40: static OSStatus
Chris@40: macosx_audio_out_callback (AudioDeviceID device, const AudioTimeStamp* current_time,
Chris@40: 	const AudioBufferList* data_in, const AudioTimeStamp* time_in,
Chris@40: 	AudioBufferList*	data_out, const AudioTimeStamp* time_out,
Chris@40: 	void* client_data)
Chris@40: {	MacOSXAudioData	*audio_data ;
Chris@40: 	int		size, sample_count, read_count, k ;
Chris@40: 	float	*buffer ;
Chris@40: 
Chris@40: 	/* Prevent compiler warnings. */
Chris@40: 	device = device ;
Chris@40: 	current_time = current_time ;
Chris@40: 	data_in = data_in ;
Chris@40: 	time_in = time_in ;
Chris@40: 	time_out = time_out ;
Chris@40: 
Chris@40: 	audio_data = (MacOSXAudioData*) client_data ;
Chris@40: 
Chris@40: 	size = data_out->mBuffers [0].mDataByteSize ;
Chris@40: 	sample_count = size / sizeof (float) ;
Chris@40: 
Chris@40: 	buffer = (float*) data_out->mBuffers [0].mData ;
Chris@40: 
Chris@40: 	if (audio_data->fake_stereo != 0)
Chris@40: 	{	read_count = sf_read_float (audio_data->sndfile, buffer, sample_count / 2) ;
Chris@40: 
Chris@40: 		for (k = read_count - 1 ; k >= 0 ; k--)
Chris@40: 		{	buffer [2 * k	] = buffer [k] ;
Chris@40: 			buffer [2 * k + 1] = buffer [k] ;
Chris@40: 			} ;
Chris@40: 		read_count *= 2 ;
Chris@40: 		}
Chris@40: 	else
Chris@40: 		read_count = sf_read_float (audio_data->sndfile, buffer, sample_count) ;
Chris@40: 
Chris@40: 	/* Fill the remainder with zeroes. */
Chris@40: 	if (read_count < sample_count)
Chris@40: 	{	if (audio_data->fake_stereo == 0)
Chris@40: 			memset (&(buffer [read_count]), 0, (sample_count - read_count) * sizeof (float)) ;
Chris@40: 		/* Tell the main application to terminate. */
Chris@40: 		audio_data->done_playing = SF_TRUE ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return noErr ;
Chris@40: } /* macosx_audio_out_callback */
Chris@40: 
Chris@40: static void
Chris@40: macosx_play (int argc, char *argv [])
Chris@40: {	MacOSXAudioData 	audio_data ;
Chris@40: 	OSStatus	err ;
Chris@40: 	UInt32		count, buffer_size ;
Chris@40: 	int 		k ;
Chris@40: 
Chris@40: 	audio_data.fake_stereo = 0 ;
Chris@40: 	audio_data.device = kAudioDeviceUnknown ;
Chris@40: 
Chris@40: 	/*  get the default output device for the HAL */
Chris@40: 	count = sizeof (AudioDeviceID) ;
Chris@40: 	if ((err = AudioHardwareGetProperty (kAudioHardwarePropertyDefaultOutputDevice,
Chris@40: 				&count, (void *) &(audio_data.device))) != noErr)
Chris@40: 	{	printf ("AudioHardwareGetProperty (kAudioDevicePropertyDefaultOutputDevice) failed.\n") ;
Chris@40: 		return ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	/*  get the buffersize that the default device uses for IO */
Chris@40: 	count = sizeof (UInt32) ;
Chris@40: 	if ((err = AudioDeviceGetProperty (audio_data.device, 0, false, kAudioDevicePropertyBufferSize,
Chris@40: 				&count, &buffer_size)) != noErr)
Chris@40: 	{	printf ("AudioDeviceGetProperty (kAudioDevicePropertyBufferSize) failed.\n") ;
Chris@40: 		return ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	/*  get a description of the data format used by the default device */
Chris@40: 	count = sizeof (AudioStreamBasicDescription) ;
Chris@40: 	if ((err = AudioDeviceGetProperty (audio_data.device, 0, false, kAudioDevicePropertyStreamFormat,
Chris@40: 				&count, &(audio_data.format))) != noErr)
Chris@40: 	{	printf ("AudioDeviceGetProperty (kAudioDevicePropertyStreamFormat) failed.\n") ;
Chris@40: 		return ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	/* Base setup completed. Now play files. */
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	memset (&(audio_data.sfinfo), 0, sizeof (audio_data.sfinfo)) ;
Chris@40: 
Chris@40: 		printf ("Playing %s\n", argv [k]) ;
Chris@40: 		if (! (audio_data.sndfile = sf_open (argv [k], SFM_READ, &(audio_data.sfinfo))))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (audio_data.sfinfo.channels < 1 || audio_data.sfinfo.channels > 2)
Chris@40: 		{	printf ("Error : channels = %d.\n", audio_data.sfinfo.channels) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		audio_data.format.mSampleRate = audio_data.sfinfo.samplerate ;
Chris@40: 
Chris@40: 		if (audio_data.sfinfo.channels == 1)
Chris@40: 		{	audio_data.format.mChannelsPerFrame = 2 ;
Chris@40: 			audio_data.fake_stereo = 1 ;
Chris@40: 			}
Chris@40: 		else
Chris@40: 		audio_data.format.mChannelsPerFrame = audio_data.sfinfo.channels ;
Chris@40: 
Chris@40: 		if ((err = AudioDeviceSetProperty (audio_data.device, NULL, 0, false, kAudioDevicePropertyStreamFormat,
Chris@40: 					sizeof (AudioStreamBasicDescription), &(audio_data.format))) != noErr)
Chris@40: 		{	printf ("AudioDeviceSetProperty (kAudioDevicePropertyStreamFormat) failed.\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/*  we want linear pcm */
Chris@40: 		if (audio_data.format.mFormatID != kAudioFormatLinearPCM)
Chris@40: 			return ;
Chris@40: 
Chris@40: 		/* Fire off the device. */
Chris@40: 		if ((err = AudioDeviceAddIOProc (audio_data.device, macosx_audio_out_callback,
Chris@40: 				(void *) &audio_data)) != noErr)
Chris@40: 		{	printf ("AudioDeviceAddIOProc failed.\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		err = AudioDeviceStart (audio_data.device, macosx_audio_out_callback) ;
Chris@40: 		if	(err != noErr)
Chris@40: 			return ;
Chris@40: 
Chris@40: 		audio_data.done_playing = SF_FALSE ;
Chris@40: 
Chris@40: 		while (audio_data.done_playing == SF_FALSE)
Chris@40: 			usleep (10 * 1000) ; /* 10 000 milliseconds. */
Chris@40: 
Chris@40: 		if ((err = AudioDeviceStop (audio_data.device, macosx_audio_out_callback)) != noErr)
Chris@40: 		{	printf ("AudioDeviceStop failed.\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		err = AudioDeviceRemoveIOProc (audio_data.device, macosx_audio_out_callback) ;
Chris@40: 		if (err != noErr)
Chris@40: 		{	printf ("AudioDeviceRemoveIOProc failed.\n") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		sf_close (audio_data.sndfile) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* macosx_play, AudioHardware implementation */
Chris@40: 
Chris@40: #endif /* OSX_DARWIN_VERSION > 0 && OSX_DARWIN_VERSION <= 10 */
Chris@40: 
Chris@40: /*------------------------------------------------------------------------------
Chris@40: **	Win32 functions for playing a sound.
Chris@40: **
Chris@40: **	This API sucks. Its needlessly complicated and is *WAY* too loose with
Chris@40: **	passing pointers around in integers and using char* pointers to
Chris@40: **  point to data instead of short*. It plain sucks!
Chris@40: */
Chris@40: 
Chris@40: #if (OS_IS_WIN32 == 1)
Chris@40: 
Chris@40: #define	WIN32_BUFFER_LEN	(1 << 15)
Chris@40: 
Chris@40: typedef struct
Chris@40: {	HWAVEOUT	hwave ;
Chris@40: 	WAVEHDR		whdr [2] ;
Chris@40: 
Chris@40: 	CRITICAL_SECTION	mutex ;		/* to control access to BuffersInUSe */
Chris@40: 	HANDLE		Event ;			/* signal that a buffer is free */
Chris@40: 
Chris@40: 	short		buffer [WIN32_BUFFER_LEN / sizeof (short)] ;
Chris@40: 	int			current, bufferlen ;
Chris@40: 	int			BuffersInUse ;
Chris@40: 
Chris@40: 	SNDFILE 	*sndfile ;
Chris@40: 	SF_INFO 	sfinfo ;
Chris@40: 
Chris@40: 	sf_count_t	remaining ;
Chris@40: } Win32_Audio_Data ;
Chris@40: 
Chris@40: 
Chris@40: static void
Chris@40: win32_play_data (Win32_Audio_Data *audio_data)
Chris@40: {	int thisread, readcount ;
Chris@40: 
Chris@40: 	/* fill a buffer if there is more data and we can read it sucessfully */
Chris@40: 	readcount = (audio_data->remaining > audio_data->bufferlen) ? audio_data->bufferlen : (int) audio_data->remaining ;
Chris@40: 
Chris@40: 	thisread = (int) sf_read_short (audio_data->sndfile, (short *) (audio_data->whdr [audio_data->current].lpData), readcount) ;
Chris@40: 
Chris@40: 	audio_data->remaining -= thisread ;
Chris@40: 
Chris@40: 	if (thisread > 0)
Chris@40: 	{	/* Fix buffer length if this is only a partial block. */
Chris@40: 		if (thisread < audio_data->bufferlen)
Chris@40: 			audio_data->whdr [audio_data->current].dwBufferLength = thisread * sizeof (short) ;
Chris@40: 
Chris@40: 		/* Queue the WAVEHDR */
Chris@40: 		waveOutWrite (audio_data->hwave, (LPWAVEHDR) &(audio_data->whdr [audio_data->current]), sizeof (WAVEHDR)) ;
Chris@40: 
Chris@40: 		/* count another buffer in use */
Chris@40: 		EnterCriticalSection (&audio_data->mutex) ;
Chris@40: 		audio_data->BuffersInUse ++ ;
Chris@40: 		LeaveCriticalSection (&audio_data->mutex) ;
Chris@40: 
Chris@40: 		/* use the other buffer next time */
Chris@40: 		audio_data->current = (audio_data->current + 1) % 2 ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* win32_play_data */
Chris@40: 
Chris@40: static void CALLBACK
Chris@40: win32_audio_out_callback (HWAVEOUT hwave, UINT msg, DWORD_PTR data, DWORD param1, DWORD param2)
Chris@40: {	Win32_Audio_Data	*audio_data ;
Chris@40: 
Chris@40: 	/* Prevent compiler warnings. */
Chris@40: 	(void) hwave ;
Chris@40: 	(void) param1 ;
Chris@40: 	(void) param2 ;
Chris@40: 
Chris@40: 	if (data == 0)
Chris@40: 		return ;
Chris@40: 
Chris@40: 	/*
Chris@40: 	** I consider this technique of passing a pointer via an integer as
Chris@40: 	** fundamentally broken but thats the way microsoft has defined the
Chris@40: 	** interface.
Chris@40: 	*/
Chris@40: 	audio_data = (Win32_Audio_Data*) data ;
Chris@40: 
Chris@40: 	/* let main loop know a buffer is free */
Chris@40: 	if (msg == MM_WOM_DONE)
Chris@40: 	{	EnterCriticalSection (&audio_data->mutex) ;
Chris@40: 		audio_data->BuffersInUse -- ;
Chris@40: 		LeaveCriticalSection (&audio_data->mutex) ;
Chris@40: 		SetEvent (audio_data->Event) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* win32_audio_out_callback */
Chris@40: 
Chris@40: static void
Chris@40: win32_play (int argc, char *argv [])
Chris@40: {	Win32_Audio_Data	audio_data ;
Chris@40: 
Chris@40: 	WAVEFORMATEX wf ;
Chris@40: 	int	k, error ;
Chris@40: 
Chris@40: 	audio_data.sndfile = NULL ;
Chris@40: 	audio_data.hwave = 0 ;
Chris@40: 
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	printf ("Playing %s\n", argv [k]) ;
Chris@40: 
Chris@40: 		if (! (audio_data.sndfile = sf_open (argv [k], SFM_READ, &(audio_data.sfinfo))))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		audio_data.remaining = audio_data.sfinfo.frames * audio_data.sfinfo.channels ;
Chris@40: 		audio_data.current = 0 ;
Chris@40: 
Chris@40: 		InitializeCriticalSection (&audio_data.mutex) ;
Chris@40: 		audio_data.Event = CreateEvent (0, FALSE, FALSE, 0) ;
Chris@40: 
Chris@40: 		wf.nChannels = audio_data.sfinfo.channels ;
Chris@40: 		wf.wFormatTag = WAVE_FORMAT_PCM ;
Chris@40: 		wf.cbSize = 0 ;
Chris@40: 		wf.wBitsPerSample = 16 ;
Chris@40: 
Chris@40: 		wf.nSamplesPerSec = audio_data.sfinfo.samplerate ;
Chris@40: 
Chris@40: 		wf.nBlockAlign = audio_data.sfinfo.channels * sizeof (short) ;
Chris@40: 
Chris@40: 		wf.nAvgBytesPerSec = wf.nBlockAlign * wf.nSamplesPerSec ;
Chris@40: 
Chris@40: 		error = waveOutOpen (&(audio_data.hwave), WAVE_MAPPER, &wf, (DWORD_PTR) win32_audio_out_callback,
Chris@40: 							(DWORD_PTR) &audio_data, CALLBACK_FUNCTION) ;
Chris@40: 		if (error)
Chris@40: 		{	puts ("waveOutOpen failed.") ;
Chris@40: 			audio_data.hwave = 0 ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		audio_data.whdr [0].lpData = (char*) audio_data.buffer ;
Chris@40: 		audio_data.whdr [1].lpData = ((char*) audio_data.buffer) + sizeof (audio_data.buffer) / 2 ;
Chris@40: 
Chris@40: 		audio_data.whdr [0].dwBufferLength = sizeof (audio_data.buffer) / 2 ;
Chris@40: 		audio_data.whdr [1].dwBufferLength = sizeof (audio_data.buffer) / 2 ;
Chris@40: 
Chris@40: 		audio_data.whdr [0].dwFlags = 0 ;
Chris@40: 		audio_data.whdr [1].dwFlags = 0 ;
Chris@40: 
Chris@40: 		/* length of each audio buffer in samples */
Chris@40: 		audio_data.bufferlen = sizeof (audio_data.buffer) / 2 / sizeof (short) ;
Chris@40: 
Chris@40: 		/* Prepare the WAVEHDRs */
Chris@40: 		if ((error = waveOutPrepareHeader (audio_data.hwave, &(audio_data.whdr [0]), sizeof (WAVEHDR))))
Chris@40: 		{	printf ("waveOutPrepareHeader [0] failed : %08X\n", error) ;
Chris@40: 			waveOutClose (audio_data.hwave) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if ((error = waveOutPrepareHeader (audio_data.hwave, &(audio_data.whdr [1]), sizeof (WAVEHDR))))
Chris@40: 		{	printf ("waveOutPrepareHeader [1] failed : %08X\n", error) ;
Chris@40: 			waveOutUnprepareHeader (audio_data.hwave, &(audio_data.whdr [0]), sizeof (WAVEHDR)) ;
Chris@40: 			waveOutClose (audio_data.hwave) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/* Fill up both buffers with audio data */
Chris@40: 		audio_data.BuffersInUse = 0 ;
Chris@40: 		win32_play_data (&audio_data) ;
Chris@40: 		win32_play_data (&audio_data) ;
Chris@40: 
Chris@40: 		/* loop until both buffers are released */
Chris@40: 		while (audio_data.BuffersInUse > 0)
Chris@40: 		{
Chris@40: 			/* wait for buffer to be released */
Chris@40: 			WaitForSingleObject (audio_data.Event, INFINITE) ;
Chris@40: 
Chris@40: 			/* refill the buffer if there is more data to play */
Chris@40: 			win32_play_data (&audio_data) ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		waveOutUnprepareHeader (audio_data.hwave, &(audio_data.whdr [0]), sizeof (WAVEHDR)) ;
Chris@40: 		waveOutUnprepareHeader (audio_data.hwave, &(audio_data.whdr [1]), sizeof (WAVEHDR)) ;
Chris@40: 
Chris@40: 		waveOutClose (audio_data.hwave) ;
Chris@40: 		audio_data.hwave = 0 ;
Chris@40: 
Chris@40: 		DeleteCriticalSection (&audio_data.mutex) ;
Chris@40: 
Chris@40: 		sf_close (audio_data.sndfile) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: } /* win32_play */
Chris@40: 
Chris@40: #endif /* Win32 */
Chris@40: 
Chris@40: /*------------------------------------------------------------------------------
Chris@40: **	OpenBSD's sndio.
Chris@40: */
Chris@40: 
Chris@40: #if HAVE_SNDIO_H
Chris@40: 
Chris@40: static void
Chris@40: sndio_play (int argc, char *argv [])
Chris@40: {	struct sio_hdl	*hdl ;
Chris@40: 	struct sio_par	par ;
Chris@40: 	short buffer [BUFFER_LEN] ;
Chris@40: 	SNDFILE	*sndfile ;
Chris@40: 	SF_INFO	sfinfo ;
Chris@40: 	int		k, readcount ;
Chris@40: 
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	printf ("Playing %s\n", argv [k]) ;
Chris@40: 		if (! (sndfile = sf_open (argv [k], SFM_READ, &sfinfo)))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (sfinfo.channels < 1 || sfinfo.channels > 2)
Chris@40: 		{	printf ("Error : channels = %d.\n", sfinfo.channels) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if ((hdl = sio_open (NULL, SIO_PLAY, 0)) == NULL)
Chris@40: 		{	fprintf (stderr, "open sndio device failed") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		sio_initpar (&par) ;
Chris@40: 		par.rate = sfinfo.samplerate ;
Chris@40: 		par.pchan = sfinfo.channels ;
Chris@40: 		par.bits = 16 ;
Chris@40: 		par.sig = 1 ;
Chris@40: 		par.le = SIO_LE_NATIVE ;
Chris@40: 
Chris@40: 		if (! sio_setpar (hdl, &par) || ! sio_getpar (hdl, &par))
Chris@40: 		{	fprintf (stderr, "set sndio params failed") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (! sio_start (hdl))
Chris@40: 		{	fprintf (stderr, "sndio start failed") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		while ((readcount = sf_read_short (sndfile, buffer, BUFFER_LEN)))
Chris@40: 			sio_write (hdl, buffer, readcount * sizeof (short)) ;
Chris@40: 
Chris@40: 		sio_close (hdl) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* sndio_play */
Chris@40: 
Chris@40: #endif /* sndio */
Chris@40: 
Chris@40: /*------------------------------------------------------------------------------
Chris@40: **	Solaris.
Chris@40: */
Chris@40: 
Chris@40: #if (defined (sun) && defined (unix)) /* ie Solaris */
Chris@40: 
Chris@40: static void
Chris@40: solaris_play (int argc, char *argv [])
Chris@40: {	static short 	buffer [BUFFER_LEN] ;
Chris@40: 	audio_info_t	audio_info ;
Chris@40: 	SNDFILE			*sndfile ;
Chris@40: 	SF_INFO			sfinfo ;
Chris@40: 	unsigned long	delay_time ;
Chris@40: 	long			k, start_count, output_count, write_count, read_count ;
Chris@40: 	int				audio_fd, error, done ;
Chris@40: 
Chris@40: 	for (k = 1 ; k < argc ; k++)
Chris@40: 	{	printf ("Playing %s\n", argv [k]) ;
Chris@40: 		if (! (sndfile = sf_open (argv [k], SFM_READ, &sfinfo)))
Chris@40: 		{	puts (sf_strerror (NULL)) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		if (sfinfo.channels < 1 || sfinfo.channels > 2)
Chris@40: 		{	printf ("Error : channels = %d.\n", sfinfo.channels) ;
Chris@40: 			continue ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/* open the audio device - write only, non-blocking */
Chris@40: 		if ((audio_fd = open ("/dev/audio", O_WRONLY | O_NONBLOCK)) < 0)
Chris@40: 		{	perror ("open (/dev/audio) failed") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/*	Retrive standard values. */
Chris@40: 		AUDIO_INITINFO (&audio_info) ;
Chris@40: 
Chris@40: 		audio_info.play.sample_rate = sfinfo.samplerate ;
Chris@40: 		audio_info.play.channels = sfinfo.channels ;
Chris@40: 		audio_info.play.precision = 16 ;
Chris@40: 		audio_info.play.encoding = AUDIO_ENCODING_LINEAR ;
Chris@40: 		audio_info.play.gain = AUDIO_MAX_GAIN ;
Chris@40: 		audio_info.play.balance = AUDIO_MID_BALANCE ;
Chris@40: 
Chris@40: 		if ((error = ioctl (audio_fd, AUDIO_SETINFO, &audio_info)))
Chris@40: 		{	perror ("ioctl (AUDIO_SETINFO) failed") ;
Chris@40: 			return ;
Chris@40: 			} ;
Chris@40: 
Chris@40: 		/* Delay time equal to 1/4 of a buffer in microseconds. */
Chris@40: 		delay_time = (BUFFER_LEN * 1000000) / (audio_info.play.sample_rate * 4) ;
Chris@40: 
Chris@40: 		done = 0 ;
Chris@40: 		while (! done)
Chris@40: 		{	read_count = sf_read_short (sndfile, buffer, BUFFER_LEN) ;
Chris@40: 			if (read_count < BUFFER_LEN)
Chris@40: 			{	memset (&(buffer [read_count]), 0, (BUFFER_LEN - read_count) * sizeof (short)) ;
Chris@40: 				/* Tell the main application to terminate. */
Chris@40: 				done = SF_TRUE ;
Chris@40: 				} ;
Chris@40: 
Chris@40: 			start_count = 0 ;
Chris@40: 			output_count = BUFFER_LEN * sizeof (short) ;
Chris@40: 
Chris@40: 			while (output_count > 0)
Chris@40: 			{	/* write as much data as possible */
Chris@40: 				write_count = write (audio_fd, &(buffer [start_count]), output_count) ;
Chris@40: 				if (write_count > 0)
Chris@40: 				{	output_count -= write_count ;
Chris@40: 					start_count += write_count ;
Chris@40: 					}
Chris@40: 				else
Chris@40: 				{	/*	Give the audio output time to catch up. */
Chris@40: 					usleep (delay_time) ;
Chris@40: 					} ;
Chris@40: 				} ; /* while (outpur_count > 0) */
Chris@40: 			} ; /* while (! done) */
Chris@40: 
Chris@40: 		close (audio_fd) ;
Chris@40: 		} ;
Chris@40: 
Chris@40: 	return ;
Chris@40: } /* solaris_play */
Chris@40: 
Chris@40: #endif /* Solaris */
Chris@40: 
Chris@40: /*==============================================================================
Chris@40: **	Main function.
Chris@40: */
Chris@40: 
Chris@40: int
Chris@40: main (int argc, char *argv [])
Chris@40: {
Chris@40: 	if (argc < 2)
Chris@40: 	{
Chris@40: 		printf ("\nUsage : %s <input sound file>\n\n", program_name (argv [0])) ;
Chris@40: 		printf ("Using %s.\n\n", sf_version_string ()) ;
Chris@40: #if (OS_IS_WIN32 == 1)
Chris@40: 		printf ("This is a Unix style command line application which\n"
Chris@40: 				"should be run in a MSDOS box or Command Shell window.\n\n") ;
Chris@40: 		printf ("Sleeping for 5 seconds before exiting.\n\n") ;
Chris@40: 
Chris@40: 		Sleep (5 * 1000) ;
Chris@40: #endif
Chris@40: 		return 1 ;
Chris@40: 		} ;
Chris@40: 
Chris@40: #if defined (__ANDROID__)
Chris@40: 	puts ("*** Playing sound not yet supported on Android.") ;
Chris@40: 	puts ("*** Please feel free to submit a patch.") ;
Chris@40: 	return 1 ;
Chris@40: #elif defined (__linux__)
Chris@40: 	#if HAVE_ALSA_ASOUNDLIB_H
Chris@40: 		if (access ("/proc/asound/cards", R_OK) == 0)
Chris@40: 			alsa_play (argc, argv) ;
Chris@40: 		else
Chris@40: 	#endif
Chris@40: 		opensoundsys_play (argc, argv) ;
Chris@40: #elif defined (__FreeBSD_kernel__) || defined (__FreeBSD__)
Chris@40: 	opensoundsys_play (argc, argv) ;
Chris@40: #elif (defined (__MACH__) && defined (__APPLE__) && OSX_DARWIN_VERSION <= 11)
Chris@40: 	macosx_play (argc, argv) ;
Chris@40: #elif HAVE_SNDIO_H
Chris@40: 	sndio_play (argc, argv) ;
Chris@40: #elif (defined (sun) && defined (unix))
Chris@40: 	solaris_play (argc, argv) ;
Chris@40: #elif (OS_IS_WIN32 == 1)
Chris@40: 	win32_play (argc, argv) ;
Chris@40: #elif (defined (__MACH__) && defined (__APPLE__) && OSX_DARWIN_VERSION > 11)
Chris@40: 	printf ("OS X 10.8 and later have a new Audio API.\n") ;
Chris@40: 	printf ("Someone needs to write code to use that API.\n") ;
Chris@40: 	return 1 ;
Chris@40: #elif defined (__BEOS__)
Chris@40: 	printf ("This program cannot be compiled on BeOS.\n") ;
Chris@40: 	printf ("Instead, compile the file sfplay_beos.cpp.\n") ;
Chris@40: 	return 1 ;
Chris@40: #else
Chris@40: 	puts ("*** Playing sound not yet supported on this platform.") ;
Chris@40: 	puts ("*** Please feel free to submit a patch.") ;
Chris@40: 	return 1 ;
Chris@40: #endif
Chris@40: 
Chris@40: 	return 0 ;
Chris@40: } /* main */
Chris@40: