--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/audio/nto/SDL_nto_audio.c	Thu Apr 26 16:45:43 2001 +0000
@@ -0,0 +1,554 @@
+/*
+    SDL - Simple DirectMedia Layer
+    Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public
+    License as published by the Free Software Foundation; either
+    version 2 of the License, or (at your option) any later version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public
+    License along with this library; if not, write to the Free
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+    Sam Lantinga
+    slouken@devolution.com
+*/
+
+
+
+/* Allow access to a raw mixing buffer */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include <signal.h>
+#include <sys/types.h>
+#include <sys/time.h>
+#include <sched.h>
+#include <sys/asoundlib.h>
+
+#include "SDL_audio.h"
+#include "SDL_error.h"
+#include "SDL_audiomem.h"
+#include "SDL_audio_c.h"
+#include "SDL_timer.h"
+#include "SDL_nto_audio.h"
+
+/* The tag name used by NTO audio */
+#define DRIVER_NAME         "nto"
+
+/* default card and device numbers as listed in dev/snd */
+static int card_no = 0;
+static int device_no = 0;
+
+/* default channel communication parameters */
+#define DEFAULT_CPARAMS_RATE 22050
+#define DEFAULT_CPARAMS_VOICES 1
+#define DEFAULT_CPARAMS_FRAG_SIZE 4096  //was 512
+#define DEFAULT_CPARAMS_FRAGS_MIN 1
+#define DEFAULT_CPARAMS_FRAGS_MAX -1
+
+/* Open the audio device for playback, and don't block if busy */
+#define OPEN_FLAGS	SND_PCM_OPEN_PLAYBACK
+
+/* Audio driver functions */
+static int NTO_OpenAudio(_THIS, SDL_AudioSpec *spec);
+static void NTO_WaitAudio(_THIS);
+static void NTO_PlayAudio(_THIS);
+static Uint8 *NTO_GetAudioBuf(_THIS);
+static void NTO_CloseAudio(_THIS);
+
+static snd_pcm_channel_status_t cstatus;
+static	snd_pcm_channel_params_t cparams;
+static	snd_pcm_channel_setup_t  csetup;
+
+/* PCM transfer channel parameters initialize function */
+static void init_pcm_cparams(snd_pcm_channel_params_t* cparams)
+{
+	memset(cparams,0,sizeof(snd_pcm_channel_params_t));
+
+	cparams->channel = SND_PCM_CHANNEL_PLAYBACK;
+	cparams->mode = SND_PCM_MODE_BLOCK;
+	cparams->start_mode = SND_PCM_START_DATA; //_FULL
+	cparams->stop_mode  = SND_PCM_STOP_STOP;
+	cparams->format.format = SND_PCM_SFMT_S16_LE;
+	cparams->format.interleave = 1;
+	cparams->format.rate = DEFAULT_CPARAMS_RATE;
+	cparams->format.voices = DEFAULT_CPARAMS_VOICES;
+	cparams->buf.block.frag_size = DEFAULT_CPARAMS_FRAG_SIZE;
+	cparams->buf.block.frags_min = DEFAULT_CPARAMS_FRAGS_MIN;
+	cparams->buf.block.frags_max = DEFAULT_CPARAMS_FRAGS_MAX;
+}
+
+/* Audio driver bootstrap functions */
+
+static int Audio_Available(void)
+/*
+	See if we can open a nonblocking channel.
+	Return value '1' means we can.
+	Return value '0' means we cannot.
+*/
+{
+	int available;
+	int rval;
+	snd_pcm_t *handle;
+
+	available = 0;
+	handle = NULL;
+	
+	//JB modified to take advantage of software mixer
+	rval = snd_pcm_open_preferred(&handle, &card_no, &device_no, OPEN_FLAGS);
+
+	if (rval >= 0)
+	{
+			available = 1;
+
+        if ((rval = snd_pcm_close(handle)) < 0)
+        {
+            SDL_SetError("snd_pcm_close failed: %s\n",snd_strerror(rval));
+			available = 0;
+        }
+	}
+	else
+	{
+	
+       SDL_SetError("snd_pcm_open failed: %s\n", snd_strerror(rval));
+	}
+	
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"AudioAvailable rtns %d\n", available);
+#endif
+	return(available);
+}
+
+static void Audio_DeleteDevice(SDL_AudioDevice *device)
+{
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"Audio_DeleteDevice\n");
+#endif
+
+	
+	free(device->hidden);
+	free(device);
+}
+
+static SDL_AudioDevice *Audio_CreateDevice(int devindex)
+{
+	SDL_AudioDevice *this;
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"Audio_CreateDevice\n");
+#endif
+	/* Initialize all variables that we clean on shutdown */
+	this = (SDL_AudioDevice *)malloc(sizeof(SDL_AudioDevice));
+	if ( this ) {
+		memset(this, 0, (sizeof *this));
+		this->hidden = (struct SDL_PrivateAudioData *)
+				malloc((sizeof *this->hidden));
+	}
+	if ( (this == NULL) || (this->hidden == NULL) ) {
+		SDL_OutOfMemory();
+		if ( this ) {
+			free(this);
+		}
+		return(0);
+	}
+	memset(this->hidden, 0, (sizeof *this->hidden));
+	audio_handle = NULL;
+
+	/* Set the function pointers */
+	this->OpenAudio = NTO_OpenAudio;
+	this->WaitAudio = NTO_WaitAudio;
+	this->PlayAudio = NTO_PlayAudio;
+	this->GetAudioBuf = NTO_GetAudioBuf;
+	this->CloseAudio = NTO_CloseAudio;
+
+	this->free = Audio_DeleteDevice;
+
+	return this;
+}
+
+/* Don't change the name from "ALSA_bootstrap" - that's how it's called */
+AudioBootStrap ALSA_bootstrap = {
+	DRIVER_NAME, "Neutrino PCM audio",
+	Audio_Available, Audio_CreateDevice
+};
+
+/* This function waits until it is possible to write a full sound buffer */
+static void NTO_WaitAudio(_THIS)
+{
+	int rval;
+	int totalbytes,roomavail;
+	/*we consider a full sound buffer to be of size pcm_len bytes */
+	
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"NTO_WaitAudio\n");
+#endif
+
+	while(1)
+	{
+	memset(&cstatus, 0, sizeof(cstatus));
+	 if( (rval = snd_pcm_plugin_status(audio_handle, &cstatus)) < 0 )
+    {
+		 SDL_SetError("snd_pcm_plugin_status failed: %s\n", snd_strerror(rval));
+   	    return;
+	}	
+	
+	totalbytes = csetup.buf.block.frag_size *csetup.buf.block.frags;
+	roomavail = totalbytes - cstatus.count;
+
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"NTO_WaitAudio roomavail %d pcm_len %d\n",roomavail,pcm_len);
+#endif
+	
+	if ((roomavail >= pcm_len) || (roomavail < 0))
+		return;
+		
+		SDL_Delay(10);	
+	}	
+      
+}
+
+
+
+static void NTO_PlayAudio(_THIS)
+{
+    int written, rval;
+    int towrite;
+
+#ifdef DEBUG_AUDIO
+		fprintf(stderr, "NTO_PlayAudio\n");
+#endif
+
+	if( !this->enabled)
+	   return;
+
+	towrite = pcm_len;
+	
+
+    /* Write the audio data, checking for EAGAIN (buffer full) and underrun */
+    do {
+		written = snd_pcm_plugin_write(audio_handle, pcm_buf, towrite);
+#ifdef DEBUG_AUDIO
+		fprintf(stderr, "NTO_PlayAudio: written = %d towrite = %d\n",written,towrite);
+#endif
+		if (written != towrite)
+		{
+	        if ((errno == EAGAIN) || (errno == EWOULDBLOCK))
+			{
+            	SDL_Delay(1);   /* Let a little CPU time go by and try to write again */
+#ifdef DEBUG_AUDIO
+				fprintf(stderr, "errno == EAGAIN written %d\n", written);
+				towrite -= written; //we wrote some data
+#endif
+				continue;
+        	}		
+			else if((errno == EINVAL) || (errno == EIO))
+			{
+#ifdef DEBUG_AUDIO
+					if(errno == EIO)
+						fprintf(stderr,"snd_pcm_plugin_write failed EIO: %s\n", snd_strerror(written));	
+					if(errno == EINVAL)
+						fprintf(stderr,"snd_pcm_plugin_write failed EINVAL: %s\n", snd_strerror(written));	
+								
+#endif			
+			
+				  memset(&cstatus, 0, sizeof(cstatus));			
+		         if( (rval = snd_pcm_plugin_status(audio_handle, &cstatus)) < 0 )
+        		 {
+#ifdef DEBUG_AUDIO
+					fprintf(stderr, "snd_pcm_plugin_status failed %s\n",snd_strerror(rval));
+#endif
+		            SDL_SetError("snd_pcm_plugin_status failed: %s\n", snd_strerror(rval));
+        		   return;
+		        }	
+		        
+				if ( (cstatus.status == SND_PCM_STATUS_UNDERRUN) ||
+					(cstatus.status == SND_PCM_STATUS_READY) )
+				{
+#ifdef DEBUG_AUDIO
+					fprintf(stderr, "buffer underrun\n");
+#endif
+					if ( (rval = snd_pcm_plugin_prepare (audio_handle,SND_PCM_CHANNEL_PLAYBACK)) < 0 )
+					{
+#ifdef DEBUG_AUDIO
+						fprintf(stderr, "NTO_PlayAudio: prepare failed %s\n",snd_strerror(rval));
+#endif
+						SDL_SetError("snd_pcm_plugin_prepare failed: %s\n",snd_strerror(rval) );
+						return;
+					}
+					
+				}		        		
+ 				continue;
+			}
+			else
+			{
+#ifdef DEBUG_AUDIO
+						fprintf(stderr, "NTO_PlayAudio: snd_pcm_plugin_write failed unknown errno %d %s\n",errno, snd_strerror(rval));
+#endif
+				return;
+			
+			}
+			
+		}
+		else
+		{
+			towrite -= written; //we wrote all remaining data
+		}
+    } while ( (towrite > 0)  && (this->enabled) );
+
+    /* If we couldn't write, assume fatal error for now */
+    if ( towrite != 0 ) {
+        this->enabled = 0;
+    }
+	return;
+}
+
+static Uint8 *NTO_GetAudioBuf(_THIS)
+{
+ #ifdef DEBUG_AUDIO
+		fprintf(stderr, "NTO_GetAudioBuf: pcm_buf %X\n",(Uint8 *)pcm_buf);
+#endif
+	return(pcm_buf);
+}
+
+static void NTO_CloseAudio(_THIS)
+{
+	int rval;
+	
+#ifdef DEBUG_AUDIO
+		fprintf(stderr, "NTO_CloseAudio\n");
+#endif
+
+	 this->enabled = 0;
+
+	if ( audio_handle != NULL ) {
+		if ((rval = snd_pcm_plugin_flush(audio_handle,SND_PCM_CHANNEL_PLAYBACK)) < 0)
+		{
+        	SDL_SetError("snd_pcm_plugin_flush failed: %s\n",snd_strerror(rval));
+			return;
+		}
+		if ((rval = snd_pcm_close(audio_handle)) < 0)
+		{
+			SDL_SetError("snd_pcm_close failed: %s\n",snd_strerror(rval));
+			return;
+		}
+		audio_handle = NULL;
+	}
+}
+
+static int NTO_OpenAudio(_THIS, SDL_AudioSpec *spec)
+{
+	int rval;
+	int format;
+	Uint16 test_format;
+	int twidth;
+	int found;
+
+#ifdef DEBUG_AUDIO
+		fprintf(stderr, "NTO_OpenAudio\n");
+#endif
+	
+	audio_handle = NULL;
+	 this->enabled = 0;
+
+	if ( pcm_buf != NULL ) {
+		free((Uint8 *)pcm_buf); 
+		pcm_buf = NULL;
+	}
+	 
+	/* initialize channel transfer parameters to default */
+	init_pcm_cparams(&cparams);
+
+	/* Open the audio device */
+	
+	rval = snd_pcm_open_preferred(&audio_handle, &card_no, &device_no, OPEN_FLAGS);
+	if ( rval < 0 ) {
+		SDL_SetError("snd_pcm_open failed: %s\n", snd_strerror(rval));
+		return(-1);
+	}
+
+    /* set to nonblocking mode */
+    if ((rval = snd_pcm_nonblock_mode(audio_handle, 1))<0) //I assume 1 means on
+    {
+        SDL_SetError("snd_pcm_nonblock_mode failed: %s\n", snd_strerror(rval));
+        return(-1);
+    }
+
+    /* enable count status parameter */
+    if ((rval = snd_plugin_set_disable(audio_handle, PLUGIN_DISABLE_MMAP))<0)
+    {
+        SDL_SetError("snd_plugin_set_disable failed: %s\n", snd_strerror(rval));
+        return(-1);
+    }
+
+
+	/* Try for a closest match on audio format */
+	format = 0;
+ 	found = 0; // can't use format as SND_PCM_SFMT_U8 = 0 in nto
+	for ( test_format = SDL_FirstAudioFormat(spec->format);	!found ; ) 
+
+	{
+#ifdef DEBUG_AUDIO
+		fprintf(stderr, "Trying format 0x%4.4x spec->samples %d\n", test_format,spec->samples);
+#endif
+			/* if match found set format to equivalent ALSA format */
+        switch ( test_format ) {
+			case AUDIO_U8:
+				format = SND_PCM_SFMT_U8;
+				cparams.buf.block.frag_size = spec->samples * spec->channels;
+				found = 1;
+				break;
+			case AUDIO_S8:
+				format = SND_PCM_SFMT_S8;
+				cparams.buf.block.frag_size = spec->samples * spec->channels;
+				found = 1;
+				break;
+			case AUDIO_S16LSB:
+				format = SND_PCM_SFMT_S16_LE;
+				cparams.buf.block.frag_size = spec->samples*2 * spec->channels;
+				found = 1;
+				break;
+			case AUDIO_S16MSB:
+				format = SND_PCM_SFMT_S16_BE;
+				cparams.buf.block.frag_size = spec->samples*2 * spec->channels;
+				found = 1;
+				break;
+			case AUDIO_U16LSB:
+				format = SND_PCM_SFMT_U16_LE;
+				cparams.buf.block.frag_size = spec->samples*2 * spec->channels;
+				found = 1;
+				break;
+			case AUDIO_U16MSB:
+				format = SND_PCM_SFMT_U16_BE;
+				cparams.buf.block.frag_size = spec->samples*2 * spec->channels;
+				found = 1;
+				break;
+			default:
+				break;
+		}
+		if ( ! found ) {
+			test_format = SDL_NextAudioFormat();
+		}
+	}
+	
+	/* assumes test_format not 0 on success */
+	if ( test_format == 0 ) {
+		SDL_SetError("Couldn't find any hardware audio formats");
+		return(-1);
+	}
+	
+	spec->format = test_format;
+
+	/* Set the audio format */
+	cparams.format.format = format;
+
+	/* Set mono or stereo audio (currently only two channels supported) */
+	cparams.format.voices = spec->channels;
+	
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"intializing channels %d\n", cparams.format.voices);
+#endif
+
+	
+	/* Set rate */
+	cparams.format.rate = spec->freq ;
+
+	/* Setup the transfer parameters according to cparams */
+	rval = snd_pcm_plugin_params(audio_handle, &cparams);
+	if (rval < 0) {
+		SDL_SetError("snd_pcm_channel_params failed: %s\n", snd_strerror (rval));
+		return(-1);
+	}
+
+    /*  Make sure channel is setup right one last time */
+    memset( &csetup, 0, sizeof( csetup ) );
+    csetup.channel = SND_PCM_CHANNEL_PLAYBACK;
+    if ( snd_pcm_plugin_setup( audio_handle, &csetup ) < 0 )
+    {
+        SDL_SetError("Unable to setup playback channel\n" );
+        return(-1);
+    }
+    else
+    {
+#ifdef DEBUG_AUDIO
+        fprintf(stderr,"requested format: %d\n",cparams.format.format);
+        fprintf(stderr,"requested frag size: %d\n",cparams.buf.block.frag_size);
+        fprintf(stderr,"requested max frags: %d\n\n",cparams.buf.block.frags_max);
+
+        fprintf(stderr,"real format: %d\n", csetup.format.format );
+        fprintf(stderr,"real frag size : %d\n", csetup.buf.block.frag_size );
+		fprintf(stderr,"real max frags : %d\n", csetup.buf.block.frags_max );
+#endif // DEBUG_AUDIO
+    }
+
+
+    /*  Allocate memory to the audio buffer and initialize with silence
+        (Note that buffer size must be a multiple of fragment size, so find closest multiple)
+    */
+    
+    twidth = snd_pcm_format_width(format);
+    if (twidth < 0) {
+        printf("snd_pcm_format_width failed\n");
+        twidth = 0;
+    }
+    
+#ifdef DEBUG_AUDIO
+    fprintf(stderr,"format is %d bits wide\n",twidth);
+#endif      
+    
+    pcm_len = spec->size ;
+    
+  
+#ifdef DEBUG_AUDIO    
+    fprintf(stderr,"pcm_len set to %d\n", pcm_len);
+#endif
+    
+    if (pcm_len == 0)
+    {
+        pcm_len = csetup.buf.block.frag_size;
+    }
+    
+    pcm_buf = (Uint8*)malloc(pcm_len);
+    if (pcm_buf == NULL) {
+        SDL_SetError("pcm_buf malloc failed\n");
+        return(-1);
+    }
+    memset(pcm_buf,spec->silence,pcm_len);
+
+#ifdef DEBUG_AUDIO
+	fprintf(stderr,"pcm_buf malloced and silenced.\n");
+#endif
+
+    /* get the file descriptor */
+    if( (audio_fd = snd_pcm_file_descriptor(audio_handle, SND_PCM_CHANNEL_PLAYBACK)) < 0)
+    {
+       fprintf(stderr, "snd_pcm_file_descriptor failed with error code: %d\n", audio_fd);
+    }
+
+	/* Trigger audio playback */
+	rval = snd_pcm_plugin_prepare( audio_handle, SND_PCM_CHANNEL_PLAYBACK);
+	if (rval < 0) {
+       SDL_SetError("snd_pcm_plugin_prepare failed: %s\n", snd_strerror (rval));
+       return(-1);
+	}
+	
+	 this->enabled = 1;
+	 
+	/* Get the parent process id (we're the parent of the audio thread) */
+	parent = getpid();
+
+	/* We're ready to rock and roll. :-) */
+	return(0);
+}
+
+
+