/*******************************************************************************/
/* Copyright (C) 2008 Jonathan Moore Liles                                     */
/*                                                                             */
/* 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; see the file COPYING.  If not,write to the Free Software */
/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
/*******************************************************************************/

#include "Audio_Sequence.H"

#include "dsp.h"

#include <Fl/fl_ask.H>

static
void
deurlify ( char *url )
{
    char *r, *w;

    r = w = url;

    for ( ; *r; r++, w++ )
    {
        if ( *r == '%' )
        {
            char data[3] = { *(r + 1), *(r + 2), 0 };

            int c;

            sscanf( data, "%2X", &c );

            *w = c;

            r += 2;
        }
        else
            *w = *r;
    }

    *w = NULL;
}

/** event handler that supports DND of audio clips */
int
Audio_Sequence::handle ( int m )
{
    switch ( m )
    {

       case FL_DND_DRAG:
           return Sequence::handle( m ) | 1;

/*         case FL_DND_ENTER: */
/*         case FL_DND_LEAVE: */

        case FL_DND_RELEASE:
            return 1;

        case FL_PASTE:
        {
            const char *text = Fl::event_text();


            if ( ! strcmp( text, "Region" ) )
                return 1;

            char *file;

            if ( ! sscanf( text, "file://%a[^\r\n]\n", &file ) )
            {
                printf( "invalid drop \"%s\"\n", text );
                return 0;
            }

            deurlify( file );

            printf( "pasted file \"%s\"\n", file );

            fl_cursor( FL_CURSOR_WAIT );
            Fl::check();

            Audio_File *c = Audio_File::from_file( file );

            fl_cursor( FL_CURSOR_DEFAULT );

            if ( ! c )
            {
                fl_alert( "Could not import file \"%s\": Unsupported file type.", file );
                printf( "could not open file\n" );
                free( file );
                return 0;
            }

//            Region *r =
            new Region( c, this, timeline->xoffset + timeline->x_to_ts( Fl::event_x() - x() ) );

            redraw();
            return 1;
        }
        default:
            return Sequence::handle( m );
    }
}


/**********/
/* Engine */
/**********/

/* THREAD: IO */
/** determine region coverage and fill /buf/ with interleaved samples
 * from /frame/ to /nframes/ for exactly /channels/ channels. */
nframes_t
Audio_Sequence::play ( sample_t *buf, nframes_t frame, nframes_t nframes, int channels )
{
    sample_t *cbuf = new sample_t[ nframes ];

    memset( cbuf, 0, nframes * sizeof( sample_t ) );

    /* quick and dirty--let the regions figure out coverage for themselves */
    for ( list <Sequence_Widget *>::const_iterator i = _widgets.begin();
          i != _widgets.end(); ++i )
    {
        const Region *r = (Region*)(*i);

        for ( int i = channels; i--;  )
        {
            int nfr;

            if ( ! ( nfr = r->read( cbuf, frame, nframes, i ) ) )
                /* error ? */
                continue;

            if ( channels == 1 )
                buffer_mix( buf, cbuf, nframes );
            else
                buffer_interleave_one_channel_and_mix( buf, cbuf, i, channels, nframes );
        }
    }

    delete[] cbuf;

    /* FIXME: bogus */
    return nframes;
}

/* /\* THREAD: RT *\/ */
/* nframes_t */
/* Audio_Sequence::process ( nframes_t nframes ) */
/* { */
/*     return disktream->process( nframes ); */
/* } */