// --------------------------------------------------------------------------
// Name: sndesd.cpp
// Purpose:
// Date: 08/11/1999
// Author: Guilhem Lavaux <lavaux@easynet.fr> (C) 1999
// CVSID: $Id$
// --------------------------------------------------------------------------
#ifdef __GNUG__
#pragma implementation "sndesd.cpp"
#endif

#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <wx/defs.h>
#include <wx/string.h>
#include <esd.h>
#include "sndbase.h"
#include "sndesd.h"
#include "sndpcm.h"
#ifdef __WXGTK__
#include <gdk/gdk.h>
#endif

#define MY_ESD_NAME "wxWindows/wxSoundStreamESD"

// -----------------------------------------------------------------------------------------------
// wxSoundStreamESD: ESD sound driver


// --------------------------------------------------------------------------------------------
// Constructors/Destructors
// --------------------------------------------------------------------------------------------

wxSoundStreamESD::wxSoundStreamESD(const wxString& hostname)
{
  wxSoundFormatPcm pcm_default;

  // First, we make some basic test: is there ESD on this computer ?

  if (hostname.IsNull())
    m_fd_output = esd_play_stream(ESD_PLAY | ESD_STREAM, 22050, 
                              hostname.mb_str(), MY_ESD_NAME);
  else
    m_fd_output = esd_play_stream(ESD_PLAY | ESD_STREAM, 22050, 
                              NULL, MY_ESD_NAME);
  if (m_fd_output == -1) {
    // Answer: no. We return with an error.
    m_snderror = wxSOUND_INVDEV;
    return;
  }

  // Close this unuseful stream.
  esd_close(m_fd_output);
 
  m_hostname = hostname;

  // Set the default audio format
  SetSoundFormat(pcm_default);

  // Initialize some variable
  m_snderror = wxSOUND_NOERROR;
  m_esd_stop = TRUE;
  m_q_filled = TRUE;
  m_fd_output= -1;
}

wxSoundStreamESD::~wxSoundStreamESD()
{
  // Close all remaining streams
  if (m_fd_output > 0)
    esd_close(m_fd_output);
  if (m_fd_input > 0)
    esd_close(m_fd_input);
}

// --------------------------------------------------------------------------------------------
// Read several samples
// --------------------------------------------------------------------------------------------
wxSoundStream& wxSoundStreamESD::Read(void *buffer, wxUint32 len)
{
  int ret;

  m_lastcount = (wxUint32)ret = read(m_fd_input, buffer, len);

  if (ret < 0)
    m_snderror = wxSOUND_IOERROR;
  else
    m_snderror = wxSOUND_NOERROR;

  return *this;
}

// --------------------------------------------------------------------------------------------
// Write several samples
// --------------------------------------------------------------------------------------------
wxSoundStream& wxSoundStreamESD::Write(const void *buffer, wxUint32 len)
{
  int ret;

  m_lastcount = (wxUint32)ret = write(m_fd_output, buffer, len);

  if (ret < 0)
    m_snderror = wxSOUND_IOERROR;
  else
    m_snderror = wxSOUND_NOERROR;

  m_q_filled = TRUE;

  return *this;
}

// --------------------------------------------------------------------------------------------
// SetSoundFormat(): this function specifies which format we want and which format is available
// --------------------------------------------------------------------------------------------

bool wxSoundStreamESD::SetSoundFormat(const wxSoundFormatBase& format)
{
  wxSoundFormatPcm *pcm_format;

  if (format.GetType() != wxSOUND_PCM) {
    m_snderror = wxSOUND_INVFRMT;
    return FALSE;
  }

  if (m_fd_input == -1 && m_fd_output == -1) {
    m_snderror = wxSOUND_INVDEV;
    return FALSE;
  }

  if (m_sndformat)
    delete m_sndformat;

  m_sndformat = format.Clone();
  if (!m_sndformat) {
    m_snderror = wxSOUND_MEMERROR;
    return FALSE;
  }
  pcm_format = (wxSoundFormatPcm *)m_sndformat;

  // Detect the best format
  DetectBest(pcm_format);

  m_snderror = wxSOUND_NOERROR;
  if (*pcm_format != format) {
    m_snderror = wxSOUND_NOEXACT;
    return FALSE;
  }
  return TRUE;
}

// --------------------------------------------------------------------------------------------
// _wxSound_OSS_CBack (internal): it is called when the driver (ESD) is ready for a next
// buffer.
// --------------------------------------------------------------------------------------------
#ifdef __WXGTK__
static void _wxSound_OSS_CBack(gpointer data, int source,
                               GdkInputCondition condition)
{
  wxSoundStreamESD *esd = (wxSoundStreamESD *)data;

  switch (condition) {
  case GDK_INPUT_READ:
    esd->WakeUpEvt(wxSOUND_INPUT);
    break;
  case GDK_INPUT_WRITE:
    esd->WakeUpEvt(wxSOUND_OUTPUT);
    break;
  default:
    break;
  }
}
#endif

// --------------------------------------------------------------------------------------------
// WakeUpEvt() (internal): it is called by _wxSound_OSS_CBack to bypass the C++ protection
// --------------------------------------------------------------------------------------------
void wxSoundStreamESD::WakeUpEvt(int evt)
{
  m_q_filled = FALSE;
  OnSoundEvent(evt);
}

// --------------------------------------------------------------------------------------------
// StartProduction(): see wxSoundStream
// --------------------------------------------------------------------------------------------
bool wxSoundStreamESD::StartProduction(int evt)
{
  wxSoundFormatPcm *pcm;
  int flag = 0;

  if (!m_esd_stop)
    StopProduction();

  pcm = (wxSoundFormatPcm *)m_sndformat;

  flag |= (pcm->GetBPS() == 16) ? ESD_BITS16 : ESD_BITS8;
  flag |= (pcm->GetChannels() == 2) ? ESD_STEREO : ESD_MONO;

  if ((evt & wxSOUND_OUTPUT) != 0) {
    flag |= ESD_PLAY | ESD_STREAM;
    m_fd_output = esd_play_stream(flag, pcm->GetSampleRate(), NULL,
			          MY_ESD_NAME);
  } 

  if ((evt & wxSOUND_INPUT) != 0) {
    flag |= ESD_RECORD | ESD_STREAM;
    m_fd_input = esd_record_stream(flag, pcm->GetSampleRate(), NULL,
                                   MY_ESD_NAME);
  }

#ifdef __WXGTK__
  if ((evt & wxSOUND_OUTPUT) != 0) {
    m_tag_output = gdk_input_add(m_fd_output, GDK_INPUT_WRITE, _wxSound_OSS_CBack, (gpointer)this);
  }
  if ((evt & wxSOUND_INPUT) != 0) {
    m_tag_input = gdk_input_add(m_fd_input, GDK_INPUT_READ, _wxSound_OSS_CBack, (gpointer)this);
  }
#endif

  m_esd_stop = FALSE;
  m_q_filled = FALSE;

  return TRUE;
}

bool wxSoundStreamESD::StopProduction()
{
  if (m_esd_stop)
    return FALSE;

  if (m_fd_input != -1) {
    esd_close(m_fd_input);
#ifdef __WXGTK__
    gdk_input_remove(m_tag_input);
#endif
  }
  if (m_fd_output != -1) {
    esd_close(m_fd_output);
#ifdef __WXGTK__
    gdk_input_remove(m_tag_output);
#endif
  }

  m_fd_input = -1;
  m_fd_output= -1;
  m_esd_stop = TRUE;
  m_q_filled = TRUE;
  return TRUE;
}

//
// Detect the closest format (The best).
//
void wxSoundStreamESD::DetectBest(wxSoundFormatPcm *pcm)
{
  wxSoundFormatPcm best_pcm;

  // We change neither the number of channels nor the sample rate because ESD is clever.

  best_pcm.SetSampleRate(pcm->GetSampleRate());
  best_pcm.SetChannels(pcm->GetChannels());

  // It supports 16 bits
  if (pcm->GetBPS() == 16)
    best_pcm.SetBPS(16);

  best_pcm.SetOrder(wxLITTLE_ENDIAN);
  best_pcm.Signed(TRUE);

  // Finally recopy the new format
  *pcm = best_pcm;
}