infra: Clean up project setup

[jog] / ausys-sdl.c

/* -*-c-*-
 *
 * $Id: ausys-sdl.c,v 1.2 2002/02/02 22:43:17 mdw Exp $
 *
 * Unix-specific (SDL) audio handling
 *
 * (c) 2002 Mark Wooding
 */

/*----- Licensing notice --------------------------------------------------* 
 *
 * This file is part of Jog: Programming for a jogging machine.
 *
 * Jog is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * Jog 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 General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with Jog; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*----- Header files ------------------------------------------------------*/

#ifdef HAVE_CONFIG_H
#  include "config.h"
#endif

#include <errno.h>
#include <stdio.h>
#include <string.h>

#include <sys/types.h>
#include <sys/time.h>
#include <unistd.h>
#include <pthread.h>

#include <SDL.h>

#include <mLib/alloc.h>
#include <mLib/bits.h>
#include <mLib/sub.h>
#include <mLib/trace.h>

#include "au.h"
#include "ausys.h"
#include "err.h"
#include "jog.h"

/*----- Data structures ---------------------------------------------------*/

/* --- Queue of samples to play --- */

typedef struct qnode {
  struct qnode *next;			/* Next item in the queue */
  au_data *a;				/* Pointer to sample data */
} qnode;

/*----- Global variables --------------------------------------------------*/

const char *const ausys_suffix = "wav";

/*----- Static data -------------------------------------------------------*/

static SDL_AudioSpec auspec;		/* Driver's selected parameters */
static qnode *qhead = 0, *qtail = 0;	/* Queue of samples to play */
static qnode *qfree = 0;		/* Queue of samples to free */

static pthread_t tid_free;		/* The sample-freeing thread */
static pthread_mutex_t mx_free;		/* Mutex for @qfree@ */
static pthread_cond_t cv_free;		/* More sample data to free */

static pthread_mutex_t mx_sub;		/* Protects mLib @sub@ functions */

/*----- Thread structure --------------------------------------------------*
 *
 * SDL makes a buffer-stuffing thread that @fill@ is run from.  This function
 * reads samples to play from the queue at @qhead@.  Hence @qhead@ must be
 * locked when it's modified, using @SDL_LockAudio@.
 *
 * In order to keep latency down when new sample data is wanted, we don't do
 * potentially tedious things like freeing sample data blocks in the @fill@
 * thread.  Instead, there's a queue of sample blocks which need freeing, and
 * a separate thread @dofree@ which processes the queue.  The queue, @qfree@
 * is locked by @mx_free@.  When new nodes are added to @qfree@, the
 * condition @cv_free@ is signalled.
 *
 * Finally, the mLib `sub' module isn't thread-safe, so it's locked
 * separately by @mx_sub@.
 *
 * There's an ordering on mutexes.  If you want more than one mutex at a
 * time, you must lock the greatest first.  The ordering is:
 *
 *   SDL_Audio > free > sub
 */

/*----- Main code ---------------------------------------------------------*/

/* --- @fill@ --- *
 *
 * Arguments:	@void *u@ = user data (ignored)
 *		@octet *q@ = pointer to buffer to fill in
 *		@int qsz@ = size of the buffer
 *
 * Returns:	---
 *
 * Use:		Fills an audio buffer with precomputed stuff.
 */

static void fill(void *u, octet *q, int qsz)
{
  static const octet *p = 0;		/* Current place in current sample */
  static size_t sz = 0;			/* How far to go in current sample */
  qnode *qf = 0, **qft = &qf;		/* Samples we've finished with */

  /* --- If @p@ is null we need to get a new sample --- */

  if (!p && qhead) {
    T( trace(T_AUSYS, "ausys: begin playing `%s'", SYM_NAME(qhead->a->s)); )
    p = qhead->a->p;
    sz = qhead->a->sz;
  }

  /* --- Main queue-filling loop --- */

  while (qsz) {
    size_t n;

    /* --- If the queue is empty, play silence --- */

    if (!p) {
      memset(q, auspec.silence, qsz);
      break;
    }

    /* --- Fill the buffer with my sample --- */

    n = qsz;
    if (n > sz)
      n = sz;
    memcpy(q, p, n);
    p += n; q += n;
    sz -= n; qsz -= n;

    /* --- If the sample is used up, throw it away --- */

    if (!sz) {
      qnode *qq = qhead;
      qhead = qq->next;
      if (!qhead)
	qtail = 0;
      T( trace(T_AUSYS, "ausys: put `%s' on free list",
	       SYM_NAME(qq->a->s)); )
      *qft = qq;
      qft = &qq->next;
      if (qhead) {
	T( trace(T_AUSYS, "ausys: begin playing `%s'",
		 SYM_NAME(qhead->a->s)); )
	p = qhead->a->p;
	sz = qhead->a->sz;
      } else {
	T( trace(T_AUSYS, "ausys: sample queue is empty"); )
	p = 0;
	sz = 0;
      }
    }
  }

  /* --- Finally dump freed samples, all in one go --- */

  if (qf) {
    pthread_mutex_lock(&mx_free);
    *qft = qfree;
    qfree = qf;
    pthread_mutex_unlock(&mx_free);
    pthread_cond_signal(&cv_free);
  }
}

/* --- @dofree@ --- *
 *
 * Arguments:	@void *u@ = unused pointer
 *
 * Returns:	An unused pointer.
 *
 * Use:		Frees unwanted sample queue nodes.
 */

static void *dofree(void *u)
{
  qnode *q, *qq;

  pthread_mutex_lock(&mx_free);
  for (;;) {
    T( trace(T_AUSYS, "ausys: dofree sleeping"); )
    pthread_cond_wait(&cv_free, &mx_free);
    T( trace(T_AUSYS, "ausys: dofree woken: work to do"); )

    while (qfree) {
      q = qfree;
      qfree = 0;
      pthread_mutex_lock(&mx_sub);
      while (q) {
	qq = q->next;
	T( trace(T_AUSYS, "ausys: freeing `%s'", SYM_NAME(q->a->s)); )
	au_free_unlocked(q->a);
	DESTROY(q);
	q = qq;
      }
      pthread_mutex_unlock(&mx_sub);
    }
  }
}

/* --- @ausys_init@ --- *
 *
 * Arguments:	---
 *
 * Returns:	---
 *
 * Use:		Does any initialization required by the system-specific audio
 *		handler.
 */

void ausys_init(void)
{
  SDL_AudioSpec want;
  pthread_attr_t ta;
  int e;

  /* --- Crank up the sample-freeing thread --- */

  if ((e = pthread_mutex_init(&mx_free, 0)) != 0 ||
      (e = pthread_mutex_init(&mx_sub, 0)) != 0 ||
      (e = pthread_cond_init(&cv_free, 0)) != 0 ||
      (e = pthread_attr_init(&ta)) != 0 ||
      (e = pthread_attr_setdetachstate(&ta, PTHREAD_CREATE_DETACHED)) != 0 ||
      (e = pthread_create(&tid_free, &ta, dofree, 0)) != 0) {
    err_report(ERR_AUDIO, ERRAU_INIT, e,
	       "couldn't create audio threads: %s", strerror(errno));
    exit(EXIT_FAILURE);
  }
  pthread_attr_destroy(&ta);

  /* --- Crank up the SDL audio subsystem --- */

  if (SDL_Init(SDL_INIT_AUDIO | SDL_INIT_NOPARACHUTE)) {
    err_report(ERR_AUDIO, ERRAU_INIT, 0,
	       "couldn't initialize SDL audio: %s", SDL_GetError());
    exit(EXIT_FAILURE);
  }

  /* --- Open the audio device --- */

  want.freq = 8000;
  want.format = AUDIO_U8;
  want.channels = 1;
  want.samples = 1024;
  want.callback = fill;
  want.userdata = 0;

  if (SDL_OpenAudio(&want, &auspec)) {
    err_report(ERR_AUDIO, ERRAU_INIT, 0,
	       "couldn't open audio device: %s", SDL_GetError());
    exit(EXIT_FAILURE);
  }

  /* --- Prepare whatever needs to be done --- */

  SDL_PauseAudio(0);
  
  T( trace(T_AUSYS, "ausys: initalized ok"); )
}

/* --- @ausys_shutdown@ --- *
 *
 * Arguments:	---
 *
 * Returns:	---
 *
 * Use:		Does any tidying up required.
 */

void ausys_shutdown(void)
{
  /* --- Busy-wait until sound buffer empties --- */

  while (qhead) {
    struct timeval tv = { 0, 100000 };
    select(0, 0, 0, 0, &tv);
  }

  /* --- Shut stuff down --- */

  pthread_cancel(tid_free);
  SDL_CloseAudio();
  SDL_Quit();

  T( trace(T_AUSYS, "ausys: shut down ok"); )
}

/* --- @ausys_lock@, @ausys_unlock@ --- *
 *
 * Arguments:	---
 *
 * Returns:	---
 *
 * Use:		Locks or unlocks the audio subsystem.  This protects the
 *		audio queue from becoming corrupted during all the tedious
 *		asynchronous stuff.
 */

void ausys_lock(void)
{
  pthread_mutex_lock(&mx_free);
  pthread_mutex_lock(&mx_sub);
  T( trace(T_AUSYS, "ausys: acquired lock"); )
}

void ausys_unlock(void)
{
  pthread_mutex_unlock(&mx_sub);
  pthread_mutex_unlock(&mx_free);
  T( trace(T_AUSYS, "ausys: released lock"); )
}

/* --- @ausys_decode@ --- *
 *
 * Arguments:	@au_sample *s@ = pointer to sample block
 *		@const void *p@ = pointer to sample file contents
 *		@size_t sz@ = size of sample file contents
 *
 * Returns:	Pointer to a sample data structure.
 *
 * Use:		Decodes a WAV file into something the system-specific layer
 *		actually wants to deal with.
 */

au_data *ausys_decode(au_sample *s, const void *p, size_t sz)
{
  au_data *a;
  SDL_AudioCVT cvt;
  SDL_AudioSpec spec;
  SDL_RWops *rw;
  Uint8 *buf;
  Uint32 len;
  void *q;

  /* --- Firstly, extract the audio data from the WAV file --- */

  rw = SDL_RWFromMem((void *)p, sz);
  if (!SDL_LoadWAV_RW(rw, 1, &spec, &buf, &len)) {
    err_report(ERR_AUDIO, ERRAU_OPEN, 0,
	       "can't read WAV file for `%s': %s",
	       SYM_NAME(s), SDL_GetError());
    goto fail_0;
  }

  /* --- Now convert that to the driver's expected format --- */

  if (SDL_BuildAudioCVT(&cvt, spec.format, spec.channels, spec.freq,
			auspec.format, auspec.channels, auspec.freq) == -1) {
    err_report(ERR_AUDIO, ERRAU_OPEN, 0,
	       "can't build conversion structure for `%s': %s",
	       SYM_NAME(s), SDL_GetError());
    goto fail_1;
  }

  cvt.buf = xmalloc(len * cvt.len_mult);
  cvt.len = len;
  memcpy(cvt.buf, buf, len);
  SDL_FreeWAV(buf);

  if (SDL_ConvertAudio(&cvt)) {
    err_report(ERR_AUDIO, ERRAU_OPEN, 0,
	       "can't convert `%s': %s", SYM_NAME(s), SDL_GetError());
    goto fail_2;
  }

  /* --- Now fiddle with buffers --- */

  sz = len * cvt.len_ratio;
  if (cvt.len_ratio >= 1)
    q = cvt.buf;
  else {
    q = xmalloc(sz);
    memcpy(q, cvt.buf, sz);
    xfree(cvt.buf);
  }

  /* --- Construct a new node --- */
  
  pthread_mutex_lock(&mx_sub);
  a = CREATE(au_data);
  pthread_mutex_unlock(&mx_sub);
  a->p = q;
  a->sz = sz;
  
  T( trace(T_AUSYS, "ausys: decoded `%s' ok", SYM_NAME(s)); )
  return (a);

  /* --- Tidy up after errors --- */

fail_2:
  xfree(cvt.buf);
  goto fail_0;
fail_1:
  SDL_FreeWAV(buf);
fail_0:
  return (0);    
}

/* --- @ausys_queue@ --- *
 *
 * Arguments:	@au_data *a@ = an audio thingy to play
 *
 * Returns:	---
 *
 * Use:		Queues an audio sample to be played.  The sample should be
 *		freed (with @au_free@) when it's no longer wanted.
 */

void ausys_queue(au_data *a)
{
  qnode *q;

  pthread_mutex_lock(&mx_sub);
  q = CREATE(qnode);
  pthread_mutex_unlock(&mx_sub);
  q->next = 0;
  q->a = a;
  SDL_LockAudio();
  if (qtail)
    qtail->next = q;
  else
    qhead = q;
  qtail = q;
  SDL_UnlockAudio();
  T( trace(T_AUSYS, "ausys: queuing `%s'", SYM_NAME(a->s)); )
}

/* --- @ausys_free@ --- *
 *
 * Arguments:	@au_data *a@ = an audio thingy to free
 *
 * Returns:	---
 *
 * Use:		Frees a decoded audio sample.
 */

void ausys_free(au_data *a)
{
  xfree(a->p);
  DESTROY(a);
  T( trace(T_AUSYS, "ausys: freeing data for `%s' ok", SYM_NAME(a->s)); )
}

/*----- That's all, folks -------------------------------------------------*/