/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/***************************************************************************
 *            audiobackend-pulse.cc
 *
 *  Wed Sep 24 07:47:47 CEST 2014
 *  Copyright 2014 Bent Bisballe Nyeng
 *  deva@aasimon.org
 ****************************************************************************/

/*
 *  This file is part of SimpleRTP.
 *
 *  SimpleRTP 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.
 *
 *  SimpleRTP 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 SimpleRTP; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
 */
#include "audiobackend-pulse.h"
#include "mediaconfig.h"
#include "stdio.h"

#ifdef WITH_PULSE

#include <pulse/simple.h>
#include <pulse/error.h>
#include <unistd.h>
/*
Input example:
http://freedesktop.org/software/pulseaudio/doxygen/pacat-simple_8c-example.html

Output example:
http://freedesktop.org/software/pulseaudio/doxygen/parec-simple_8c-example.html
*/

static const pa_sample_spec ss = {
  .format = PA_SAMPLE_S16LE,
  .rate = SAMPLERATE,
  .channels = 1
};

AudioBackendPulse::AudioBackendPulse(const char *device)
{
  sIn = NULL;
  sOut = NULL;

  memset(read_buffer, 0, sizeof(read_buffer));

  pread = 0;
  pwrite = 0;

  running = true;
  start();
}

AudioBackendPulse::~AudioBackendPulse()
{
  running = false;
  wait();

  // Freeeeedoooooom! Set the PulseAudio instances free again, we're done
  if(sIn) pa_simple_free(sIn);
  if(sOut) pa_simple_free(sOut);
}

void AudioBackendPulse::run()
{
  if(!sIn) {
    sIn = pa_simple_new(NULL, "Anything", PA_STREAM_RECORD, NULL, "record",
                        &ss, NULL, NULL, &error);
    if(!sIn) {
      fprintf(stderr, __FILE__": pa_simple_new() failed: %s\n",
              pa_strerror(error));
      return 0;
    }
  }
  
  char buf[1024];
  while(running) {
    int error;
    pa_simple_read(sIn, buf, sizeof(buf), &error);
    (void)error;
    for(int i = 0; i < sizeof(buf); i++) {
      read_buffer[pwrite % sizeof(read_buffer)] = buf[i];
      pwrite++;
    }    
  }
}

int AudioBackendPulse::read(char *pcm, size_t maxsize)
{
  // Wait until enough audio data has been read by the thread.
  while((pread + maxsize) < pwrite) {
    usleep(1000);
  }

  for(int i = 0; i < maxsize; i++) {
    pcm[i] = read_buffer[pread % sizeof(read_buffer)];
    pread++;
  }    
  return maxsize;
}

int AudioBackendPulse::write(const char *pcm, size_t size)
{
  if(!sOut) {
    sOut = pa_simple_new(NULL, "Anything", PA_STREAM_PLAYBACK, NULL,
                         "playback", &ss, NULL, NULL, &error);
    if(!sOut) {
      fprintf(stderr, __FILE__": pa_simple_new() failed: %s\n",
              pa_strerror(error));
      return 0;
    }
  }

  int error;

  if (pa_simple_write(sOut, pcm, size, &error) < 0) {
    fprintf(stderr, __FILE__": pa_simple_write() failed: %s\n",
            pa_strerror(error));
  }
  /*
  if(pa_simple_drain(sOut, &error) < 0) {
    fprintf(stderr, __FILE__": pa_simple_drain() failed: %s\n",
            pa_strerror(error));
  }
  */

  return 0;
}

#endif/*WITH_PULSE*/