/*
Copyright (C) 2008 Grame

This program 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.

This program 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 this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

*/

#if defined(HAVE_CONFIG_H)
#include "config.h"
#endif

#include "JackAlsaAdapter.h"
#include "JackServer.h"
#include "JackEngineControl.h"

namespace Jack
{

    JackAlsaAdapter::JackAlsaAdapter ( jack_nframes_t buffer_size, jack_nframes_t sample_rate, const JSList* params ) :
            JackAudioAdapterInterface ( buffer_size, sample_rate ),
            fThread ( this ),
            fAudioInterface ( buffer_size, sample_rate )
    {
        const JSList* node;
        const jack_driver_param_t* param;

        fCaptureChannels = 2;
        fPlaybackChannels = 2;

        for ( node = params; node; node = jack_slist_next ( node ) )
        {
            param = ( const jack_driver_param_t* ) node->data;

            switch ( param->character )
            {
                case 'i':
                    fCaptureChannels = param->value.ui;
                    break;
                case 'o':
                    fPlaybackChannels = param->value.ui;
                    break;
                case 'C':
                    break;
                case 'P':
                    break;
                case 'D':
                    break;
                case 'n':
                    fAudioInterface.fPeriod = param->value.ui;
                    break;
                case 'd':
                    fAudioInterface.fCardName = strdup ( param->value.str );
                    break;
                case 'r':
                    SetAdaptedSampleRate ( param->value.ui );
                    break;
                case 'p':
                    SetAdaptedBufferSize ( param->value.ui );
                    break;
            }
        }

        fAudioInterface.setInputs ( fCaptureChannels );
        fAudioInterface.setOutputs ( fPlaybackChannels );
    }

    int JackAlsaAdapter::Open()
    {
        //open audio interface
        if ( fAudioInterface.open() )
            return -1;

        //start adapter thread
        if ( fThread.StartSync() < 0 )
        {
            jack_error ( "Cannot start audioadapter thread" );
            return -1;
        }

        //display card info
        fAudioInterface.longinfo();

        //turn the thread realtime
        fThread.AcquireRealTime ( JackServer::fInstance->GetEngineControl()->fPriority );

        return 0;
    }

    int JackAlsaAdapter::Close()
    {
#ifdef JACK_MONITOR
        fTable.Save();
#endif
        switch ( fThread.GetStatus() )
        {

                // Kill the thread in Init phase
            case JackThread::kStarting:
            case JackThread::kIniting:
                if ( fThread.Kill() < 0 )
                {
                    jack_error ( "Cannot kill thread" );
                    return -1;
                }
                break;

                // Stop when the thread cycle is finished
            case JackThread::kRunning:
                if ( fThread.Stop() < 0 )
                {
                    jack_error ( "Cannot stop thread" );
                    return -1;
                }
                break;

            default:
                break;
        }
        return fAudioInterface.close();
    }

    bool JackAlsaAdapter::Init()
    {
        //fill the hardware buffers
        for ( unsigned int i = 0; i < fAudioInterface.fPeriod; i++ )
            fAudioInterface.write();
        return true;
    }

    bool JackAlsaAdapter::Execute()
    {
        //read data from audio interface
        if ( fAudioInterface.read() < 0 )
            return false;

        bool failure = false;

        //compute resampling factor
        jack_nframes_t time1, time2;
        ResampleFactor ( time1, time2 );

        //resample inputs
        for ( int i = 0; i < fCaptureChannels; i++ )
        {
            fCaptureRingBuffer[i]->SetRatio ( time1, time2 );
            if ( fCaptureRingBuffer[i]->WriteResample ( fAudioInterface.fInputSoftChannels[i], fAdaptedBufferSize ) < fAdaptedBufferSize )
                failure = true;
        }
        //resample outputs
        for ( int i = 0; i < fPlaybackChannels; i++ )
        {
            fPlaybackRingBuffer[i]->SetRatio ( time2, time1 );
            if ( fPlaybackRingBuffer[i]->ReadResample ( fAudioInterface.fOutputSoftChannels[i], fAdaptedBufferSize ) < fAdaptedBufferSize )
                failure = true;
        }

#ifdef JACK_MONITOR
        fTable.Write ( time1, time2, double ( time1 ) / double ( time2 ), double ( time2 ) / double ( time1 ),
                       fCaptureRingBuffer[0]->ReadSpace(), fPlaybackRingBuffer[0]->WriteSpace() );
#endif

        //write data to audio interface
        if ( fAudioInterface.write() < 0 )
            return false;

        //reset all ringbuffers in case of failure
        if ( failure )
        {
            jack_error ( "JackAlsaAdapter::Execute ringbuffer failure... reset" );
            ResetRingBuffers();
        }

        return true;
    }

    int JackAlsaAdapter::SetSampleRate ( jack_nframes_t sample_rate )
    {
        JackAudioAdapterInterface::SetHostSampleRate ( sample_rate );
        Close();
        return Open();
    }

    int JackAlsaAdapter::SetBufferSize ( jack_nframes_t buffer_size )
    {
        JackAudioAdapterInterface::SetHostBufferSize ( buffer_size );
        Close();
        return Open();
    }

} // namespace

#ifdef __cplusplus
extern "C"
{
#endif

    EXPORT jack_driver_desc_t* jack_get_descriptor()
    {
        jack_driver_desc_t *desc;
        jack_driver_param_desc_t * params;
        unsigned int i;
        
        desc = (jack_driver_desc_t*)calloc(1, sizeof(jack_driver_desc_t));
        strcpy (desc->name, "audioadapter"); // size MUST be less then JACK_DRIVER_NAME_MAX + 1
        desc->nparams = 9;
        params = (jack_driver_param_desc_t*)calloc(desc->nparams, sizeof(jack_driver_param_desc_t));

        i = 0;
        strcpy ( params[i].name, "capture" );
        params[i].character = 'C';
        params[i].type = JackDriverParamString;
        strcpy ( params[i].value.str, "none" );
        strcpy ( params[i].short_desc,
                 "Provide capture ports.  Optionally set device" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "playback" );
        params[i].character = 'P';
        params[i].type = JackDriverParamString;
        strcpy ( params[i].value.str, "none" );
        strcpy ( params[i].short_desc,
                 "Provide playback ports.  Optionally set device" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "device" );
        params[i].character = 'd';
        params[i].type = JackDriverParamString;
        strcpy ( params[i].value.str, "hw:0" );
        strcpy ( params[i].short_desc, "ALSA device name" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "rate" );
        params[i].character = 'r';
        params[i].type = JackDriverParamUInt;
        params[i].value.ui = 48000U;
        strcpy ( params[i].short_desc, "Sample rate" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "periodsize" );
        params[i].character = 'p';
        params[i].type = JackDriverParamUInt;
        params[i].value.ui = 512U;
        strcpy ( params[i].short_desc, "Period size" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "nperiods" );
        params[i].character = 'n';
        params[i].type = JackDriverParamUInt;
        params[i].value.ui = 2U;
        strcpy ( params[i].short_desc, "Number of periods of playback latency" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "duplex" );
        params[i].character = 'D';
        params[i].type = JackDriverParamBool;
        params[i].value.i = 1;
        strcpy ( params[i].short_desc,
                 "Provide both capture and playback ports" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "inchannels" );
        params[i].character = 'i';
        params[i].type = JackDriverParamUInt;
        params[i].value.i = 0;
        strcpy ( params[i].short_desc,
                 "Number of capture channels (defaults to hardware max)" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        i++;
        strcpy ( params[i].name, "outchannels" );
        params[i].character = 'o';
        params[i].type = JackDriverParamUInt;
        params[i].value.i = 0;
        strcpy ( params[i].short_desc,
                 "Number of playback channels (defaults to hardware max)" );
        strcpy ( params[i].long_desc, params[i].short_desc );

        desc->params = params;
        return desc;
    }

#ifdef __cplusplus
}
#endif