/***************************************************************************
 *             __________               __   ___.
 *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
 *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
 *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
 *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
 *                     \/            \/     \/    \/            \/
 * $Id$
 *
 * Copyright (C) 2002 Jerome Kuptz
 *
 * All files in this archive are subject to the GNU General Public License.
 * See the file COPYING in the source tree root for full license agreement.
 *
 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
 * KIND, either express or implied.
 *
 ****************************************************************************/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include "file.h"
#include "lcd.h"
#include "button.h"
#include "kernel.h"
#include "tree.h"
#include "debug.h"
#include "sprintf.h"
#include "settings.h"
#include "wps.h"
#include "mpeg.h"
#include "usb.h"
#include "powermgmt.h"
#include "status.h"
#include "main_menu.h"
#ifdef HAVE_LCD_BITMAP
#include "icons.h"
#include "widgets.h"
#endif

#ifdef LOADABLE_FONTS
#include "ajf.h"
#endif

#ifdef HAVE_LCD_BITMAP
#define LINE_Y      (global_settings.statusbar&&statusbar_enabled?1:0) /* Y position the entry-list starts at */
#else /* HAVE_LCD_BITMAP */
#define LINE_Y      0 /* Y position the entry-list starts at */
#endif /* HAVE_LCD_BITMAP */

#define PLAY_DISPLAY_DEFAULT         0 
#define PLAY_DISPLAY_FILENAME_SCROLL 1 
#define PLAY_DISPLAY_TRACK_TITLE     2 

#ifdef HAVE_RECORDER_KEYPAD
#define RELEASE_MASK (BUTTON_F1 | BUTTON_DOWN | BUTTON_LEFT | BUTTON_RIGHT | BUTTON_UP)
#else
#define RELEASE_MASK (BUTTON_MENU | BUTTON_STOP | BUTTON_LEFT | BUTTON_RIGHT | BUTTON_PLAY)
#endif

bool keys_locked = false;
bool device_muted = false;
static bool ff_rewind = false;

static void draw_screen(struct mp3entry* id3)
{
    int font_height;
#ifdef LOADABLE_FONTS
    unsigned char *font = lcd_getcurrentldfont();
    font_height  = ajf_get_fontheight(font);
#else
    font_height = 8;
#endif


    lcd_clear_display();
    if(!id3)
    {
#ifdef HAVE_LCD_CHARCELLS
        lcd_puts(0, 0, "End of list");
        lcd_puts(0, 1, "<Press ON>");
#else
        lcd_puts(0, 2, "<End of song list>");
        lcd_puts(5, 4, "Press ON");
#endif
    }
    else
    {
        switch ( global_settings.wps_display ) {
            case PLAY_DISPLAY_TRACK_TITLE:
            {
                char ch = '/';
                char* end;
                char* szTok;
                char* szDelimit;
                char* szPeriod;
                char szArtist[26];
                char szBuff[257];
                szBuff[sizeof(szBuff)-1] = 0;

                strncpy(szBuff, id3->path, sizeof(szBuff));

                szTok = strtok_r(szBuff, "/", &end);
                szTok = strtok_r(NULL, "/", &end);

                // Assume path format of: Genre/Artist/Album/Mp3_file
                strncpy(szArtist,szTok,sizeof(szArtist));
                szArtist[sizeof(szArtist)-1] = 0;
                szDelimit = strrchr(id3->path, ch);
                lcd_puts(0,LINE_Y, szArtist?szArtist:"<nothing>");

                // removes the .mp3 from the end of the display buffer
                szPeriod = strrchr(szDelimit, '.');
                if (szPeriod != NULL)
                    *szPeriod = 0;

                lcd_puts_scroll(0,LINE_Y+1,(++szDelimit));
                break;
            }
            case PLAY_DISPLAY_FILENAME_SCROLL:
            {
                char ch = '/';
                char* szLast = strrchr(id3->path, ch);

                if (szLast)
                    lcd_puts_scroll(0,LINE_Y, (++szLast));
                else
                    lcd_puts_scroll(0,LINE_Y, id3->path);
                break;
            }
            case PLAY_DISPLAY_DEFAULT:
            {
                int l = LINE_Y;
#ifdef HAVE_LCD_BITMAP
                char buffer[64];

                lcd_puts_scroll(0, l++, id3->path);
                lcd_puts(0, l++, id3->title?id3->title:"");
                lcd_puts(0, l++, id3->album?id3->album:"");
                lcd_puts(0, l++, id3->artist?id3->artist:"");

                if(LINE_Y==0&&font_height<=8) {
                    if(id3->vbr)
                        snprintf(buffer, sizeof(buffer), "%d kbit (avg)",
                                 id3->bitrate);
                    else
                        snprintf(buffer, sizeof(buffer), "%d kbit", id3->bitrate);

                    lcd_puts(0, l++, buffer);
                    snprintf(buffer,sizeof(buffer), "%d Hz", id3->frequency);
                    lcd_puts(0, l++, buffer);
                }
                else {
                    if(id3->vbr)
                        snprintf(buffer, sizeof(buffer), "%dkbit(a) %dHz",
                                 id3->bitrate, id3->frequency);
                    else
                        snprintf(buffer, sizeof(buffer), "%dkbit    %dHz",
                                 id3->bitrate, id3->frequency);

                    lcd_puts(0, l++, buffer);
                }
#else
                lcd_puts(0, l++, id3->artist?id3->artist:"<no artist>");
                lcd_puts_scroll(0, l++, id3->title?id3->title:"<no title>");
#endif
                break;
            }
        }
    }
    status_draw();
    lcd_update();
}

int player_id3_show(void)
{
#ifdef HAVE_PLAYER_KEYPAD
    int button;
    int menu_pos = 0;
    int menu_max = 6;
    bool menu_changed = true;
    char scroll_text[MAX_PATH];
    struct mp3entry* id3 = NULL;

    lcd_stop_scroll();
    lcd_clear_display();
    lcd_puts(0, 0, "-ID3 Info- ");
    lcd_puts(0, 1, "--Screen-- ");
    sleep(HZ*1.5);
 
    while(1)
    {
        id3 = mpeg_current_track();
        button = button_get(false);

        switch(button)
        {
            case BUTTON_LEFT:
                menu_changed = true;
                if(menu_pos > 0)
                    menu_pos--;
                else
                    menu_pos = menu_max;
                break;

            case BUTTON_RIGHT:
                menu_changed = true;
                if(menu_pos < menu_max)
                    menu_pos++;
                else
                    menu_pos = 0;
                break;
            
            case BUTTON_REPEAT:
                break;

            case BUTTON_STOP:
            case BUTTON_PLAY:
                lcd_stop_scroll();
                return(0);
                break;

#ifndef SIMULATOR
            case SYS_USB_CONNECTED: 
                /* Tell the USB thread that we are safe */
                DEBUGF("wps got SYS_USB_CONNECTED\n");
                usb_acknowledge(SYS_USB_CONNECTED_ACK);
                    
                /* Wait until the USB cable is extracted again */
                usb_wait_for_disconnect(&button_queue);

                /* Signal to our caller that we have been in USB mode */
                return SYS_USB_CONNECTED;
                break;
#endif

        }

        switch(menu_pos)
        {
            case 0:
                lcd_puts(0, 0, "Title");
                snprintf(scroll_text,sizeof(scroll_text), "%s",
                        id3->title);
                break;
            case 1:
                lcd_puts(0, 0, "Artist");
                snprintf(scroll_text,sizeof(scroll_text), "%s",
                        id3->artist);
                break;
            case 2:
                lcd_puts(0, 0, "Album");
                snprintf(scroll_text,sizeof(scroll_text), "%s",
                        id3->album);
                break;
            case 3:
                lcd_puts(0, 0, "Length");
                snprintf(scroll_text,sizeof(scroll_text), "%d:%02d",
                   id3->length / 60000,
                   id3->length % 60000 / 1000 );
                break;
            case 4:
                lcd_puts(0, 0, "Bitrate");
                snprintf(scroll_text,sizeof(scroll_text), "%d kbps", 
                        id3->bitrate);
                break;
            case 5:
                lcd_puts(0, 0, "Frequency");
                snprintf(scroll_text,sizeof(scroll_text), "%d kHz",
                        id3->frequency);
                break;
            case 6:
                lcd_puts(0, 0, "Path");
                snprintf(scroll_text,sizeof(scroll_text), "%s",
                        id3->path);
                break;
        }

        if(menu_changed == true)
        {
            menu_changed = false;
            lcd_stop_scroll();
            lcd_clear_display();
            lcd_puts_scroll(0, 1, scroll_text);
        }

        status_draw();
        lcd_update();
        yield();
    }
#endif
    return(0);
}

static void display_file_time(unsigned int elapsed, unsigned int length)
{
    char buffer[32];

#ifdef HAVE_LCD_BITMAP
    snprintf(buffer,sizeof(buffer),
             "Time:%3d:%02d/%d:%02d",
             elapsed / 60000,
             elapsed % 60000 / 1000,
             length / 60000,
             length % 60000 / 1000 );

    lcd_puts(0, 6, buffer);
    slidebar(0, LCD_HEIGHT-6, LCD_WIDTH, 6, elapsed*100/length, Grow_Right);
    lcd_update();
#else
    /* Display time with the filename scroll only because
       the screen has room. */
    if ((global_settings.wps_display == PLAY_DISPLAY_FILENAME_SCROLL) ||
        ff_rewind )
    {
        snprintf(buffer,sizeof(buffer), "%d:%02d/%d:%02d  ",
                 elapsed / 60000,
                 elapsed % 60000 / 1000,
                 length / 60000,
                 length % 60000 / 1000 );

        lcd_puts(0, 1, buffer);
        lcd_update();
    }
#endif
}

void display_keylock_text(bool locked)
{
    lcd_stop_scroll();
    lcd_clear_display();

#ifdef HAVE_LCD_CHARCELLS
    if(locked)
        lcd_puts(0, 0, "Keylock ON");
    else
        lcd_puts(0, 0, "Keylock OFF");
#else
    if(locked)
    {
        lcd_puts(2, 3, "Key lock is ON");
    }
    else
    {
        lcd_puts(2, 3, "Key lock is OFF");
    }
    lcd_update();
#endif
    
    sleep(HZ);
}

void display_mute_text(bool muted)
{
    lcd_stop_scroll();
    lcd_clear_display();

#ifdef HAVE_LCD_CHARCELLS
    if(muted)
        lcd_puts(0, 0, "Mute ON");
    else
        lcd_puts(0, 0, "Mute OFF");
#else
    if(muted)
    {
        lcd_puts(2, 3, "Mute is ON");
    }
    else
    {
        lcd_puts(2, 3, "Mute is OFF");
    }
    lcd_update();
#endif
    
    sleep(HZ);
}

/* demonstrates showing different formats from playtune */
int wps_show(void)
{
    struct mp3entry* id3 = NULL;

#ifdef HAVE_PLAYER_KEYPAD
    int retval;
#endif
    bool dont_go_to_menu = false;
    bool menu_button_is_down = false;
    bool pending_keylock = true; /* Keylock will go ON next time */
    bool pending_mute = true; /* Mute will go ON next time */
    int old_release_mask;
    int button;
    int ff_rewind_count = 0;
    bool ignore_keyup;

    old_release_mask = button_set_release(RELEASE_MASK);

#ifdef HAVE_LCD_CHARCELLS
    lcd_icon(ICON_AUDIO, true);
    lcd_icon(ICON_PARAM, false);
#else
    lcd_setmargins(0,0);
#endif

    ff_rewind = false;
    ignore_keyup = true;
    
    if(mpeg_is_playing())
    {
        id3 = mpeg_current_track();
        draw_screen(id3);
    }

    while ( 1 )
    {
        button = button_get_w_tmo(HZ/5);

        /* Discard stray key-up events */
        if(ignore_keyup && (button & BUTTON_REL))
        {
            ignore_keyup = false;
            continue;
        }
        
        if(mpeg_has_changed_track())
        {
            lcd_stop_scroll();
            id3 = mpeg_current_track();
            draw_screen(id3);
        }

        switch(button)
        {
            case BUTTON_ON:
                if (keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }

#ifdef HAVE_LCD_CHARCELLS
                lcd_icon(ICON_RECORD, false);
                lcd_icon(ICON_AUDIO, false);
#endif
                button_set_release(old_release_mask);
                return 0;
                
#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_PLAY:
#else
            case BUTTON_UP:
#endif
                if (keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }

                if ( mpeg_is_playing() )
                {
                    mpeg_pause();
                    status_set_playmode(STATUS_PAUSE);
                }
                else
                {
                    mpeg_resume();
                    status_set_playmode(STATUS_PLAY);
                }
                break;

#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_UP:
            case BUTTON_UP | BUTTON_REPEAT:
#endif
            case BUTTON_VOL_UP:
                if (keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }

                global_settings.volume++;
                if(global_settings.volume > mpeg_sound_max(SOUND_VOLUME))
                    global_settings.volume = mpeg_sound_max(SOUND_VOLUME);
                mpeg_sound_set(SOUND_VOLUME, global_settings.volume);
                status_draw();
                break;

#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_DOWN:
            case BUTTON_DOWN | BUTTON_REPEAT:
#endif
            case BUTTON_VOL_DOWN:
                if (keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }

                global_settings.volume--;
                if(global_settings.volume < mpeg_sound_min(SOUND_VOLUME))
                    global_settings.volume = mpeg_sound_min(SOUND_VOLUME);
                mpeg_sound_set(SOUND_VOLUME, global_settings.volume);
                status_draw();
                break;

            case BUTTON_LEFT | BUTTON_REPEAT:
                if (!keys_locked)
                {
                    if (ff_rewind)
                    {
                        ff_rewind_count -= global_settings.ff_rewind*1000;
                    }
                    else
                    {
                        if ( mpeg_is_playing() && id3 && id3->length )
                        {
                            mpeg_pause();
                            status_set_playmode(STATUS_FASTBACKWARD);
                            status_draw();
                            ff_rewind = true;
                            ff_rewind_count = -global_settings.ff_rewind*1000;
                        }
                        else
                            break;
                    }

                    if ((int)(id3->elapsed + ff_rewind_count) < 0)
                        ff_rewind_count = -id3->elapsed;

                    display_file_time(id3->elapsed + ff_rewind_count,
                                      id3->length);
                }
                break;

            case BUTTON_RIGHT | BUTTON_REPEAT:
                if (!keys_locked)
                {
                    if (ff_rewind)
                    {
                        ff_rewind_count += global_settings.ff_rewind*1000;
                    }
                    else
                    {
                        if ( mpeg_is_playing() && id3 && id3->length )
                        {
                            mpeg_pause();
                            status_set_playmode(STATUS_FASTFORWARD);
                            status_draw();
                            ff_rewind = true;
                            ff_rewind_count = global_settings.ff_rewind*1000;
                        }
                        else
                            break;
                    }

                    if ((id3->elapsed + ff_rewind_count) > id3->length)
                        ff_rewind_count = id3->length - id3->elapsed;

                    display_file_time(id3->elapsed + ff_rewind_count,
                                      id3->length);
                }
                break;

            case BUTTON_LEFT | BUTTON_REL:
                if (ff_rewind)
                {
                    /* rewind */
                    mpeg_ff_rewind(ff_rewind_count);
                    ff_rewind_count = 0;
                    ff_rewind = false;
                    status_set_playmode(STATUS_PLAY);
#ifdef HAVE_LCD_CHARCELLS
                    draw_screen(id3);
#endif
                }
                else
                {
                    if (keys_locked)
                    {
                        display_keylock_text(keys_locked);
                        draw_screen(id3);
                        break;
                    }
                    mpeg_prev();
                    status_set_playmode(STATUS_PLAY);
                }
                break;

            case BUTTON_RIGHT | BUTTON_REL:
                if (ff_rewind)
                {
                    /* fast forward */
                    mpeg_ff_rewind(ff_rewind_count);
                    ff_rewind_count = 0;
                    ff_rewind = false;
                    status_set_playmode(STATUS_PLAY);
#ifdef HAVE_LCD_CHARCELLS
                    draw_screen(id3);
#endif
                }
                else
                {
                    if (keys_locked)
                    {
                        display_keylock_text(keys_locked);
                        draw_screen(id3);
                        break;
                    }
                    mpeg_next();
                    status_set_playmode(STATUS_PLAY);
                }
                break;

#ifdef HAVE_PLAYER_KEYPAD
            case BUTTON_MENU | BUTTON_LEFT:
            case BUTTON_MENU | BUTTON_LEFT | BUTTON_REPEAT:
                dont_go_to_menu = true;
                global_settings.volume--;
                if(global_settings.volume < mpeg_sound_min(SOUND_VOLUME))
                    global_settings.volume = mpeg_sound_min(SOUND_VOLUME);
                mpeg_sound_set(SOUND_VOLUME, global_settings.volume);
                break;

            case BUTTON_MENU | BUTTON_RIGHT:
            case BUTTON_MENU | BUTTON_RIGHT | BUTTON_REPEAT:
                dont_go_to_menu = true;
                global_settings.volume++;
                if(global_settings.volume > mpeg_sound_max(SOUND_VOLUME))
                    global_settings.volume = mpeg_sound_max(SOUND_VOLUME);
                mpeg_sound_set(SOUND_VOLUME, global_settings.volume);
                break;

            case BUTTON_MENU | BUTTON_ON:
                if (keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }
                lcd_stop_scroll();
                lcd_icon(ICON_PARAM, true);
                lcd_icon(ICON_AUDIO, true);
                retval = player_id3_show();
                if(retval == SYS_USB_CONNECTED)
                    return SYS_USB_CONNECTED;
                lcd_icon(ICON_PARAM, false);
                lcd_icon(ICON_AUDIO, true);
                draw_screen(id3);
                break;

            case BUTTON_MENU:
                lcd_icon(ICON_PARAM, true);
                lcd_icon(ICON_AUDIO, false);
                menu_button_is_down = true;
                break;

            case BUTTON_PLAY | BUTTON_REL:
                /* The PLAY key has been release while the MENU key
                   was held */
                if(menu_button_is_down)
                    pending_mute = !pending_mute;
                break;

            case BUTTON_STOP | BUTTON_REL:
                /* The STOP key has been release while the MENU key
                   was held */
                if(menu_button_is_down)
                    pending_keylock = !pending_keylock;
                break;
#else
            case BUTTON_F1:
                menu_button_is_down = true;
                break;
 
            case BUTTON_UP | BUTTON_REL:
                /* The UP key has been release while the F1 key
                   was held */
                if(menu_button_is_down)
                {
                    pending_mute = !pending_mute;
                    debugf("pending: %d\n", pending_mute);
                }
                break; 
              
            case BUTTON_DOWN | BUTTON_REL:
                /* The DOWN key has been release while the F1 key
                   was held */
                if(menu_button_is_down)
                {
                    pending_keylock = !pending_keylock;
                    debugf("pending: %d\n", pending_keylock);
                }
                break;
#endif

#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_F1 | BUTTON_UP:
#else
            case BUTTON_MENU | BUTTON_PLAY:
#endif
                if(keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }

                if(device_muted != pending_mute)
                {
                    device_muted = pending_mute;

                    if(device_muted)
                        mpeg_sound_set(SOUND_VOLUME, 0);
                    else
                        mpeg_sound_set(SOUND_VOLUME, global_settings.volume);
                    display_mute_text(device_muted);
                    draw_screen(id3);
                }
                dont_go_to_menu = true;
                break;
                    
#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_F1 | BUTTON_DOWN:
#else
            case BUTTON_MENU | BUTTON_STOP:
#endif
                if(keys_locked != pending_keylock)
                {
                    keys_locked = pending_keylock;

#ifdef HAVE_LCD_CHARCELLS
                    if(keys_locked)
                        lcd_icon(ICON_RECORD, true);
                    else
                        lcd_icon(ICON_RECORD, false);
#endif
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                }

                dont_go_to_menu = true;
                break;
                    
#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_F1 | BUTTON_REL:
#else
            case BUTTON_MENU | BUTTON_REL:
#endif
#ifdef HAVE_LCD_CHARCELLS
                lcd_icon(ICON_PARAM, false);
#endif
                if(!keys_locked && !dont_go_to_menu && menu_button_is_down)
                {
#ifdef HAVE_LCD_BITMAP
                    bool laststate=statusbar(false);
#endif
                    lcd_stop_scroll();
                    button_set_release(old_release_mask);
                    main_menu();
#ifdef HAVE_LCD_BITMAP
                    statusbar(laststate);
#endif
                    old_release_mask = button_set_release(RELEASE_MASK);
                    ignore_keyup = true;
                    id3 = mpeg_current_track();
                    draw_screen(id3);
                }
                else
                {
                    dont_go_to_menu = false;
                }
#ifdef HAVE_LCD_CHARCELLS
                lcd_icon(ICON_AUDIO, true);
#endif
                menu_button_is_down = false;
                break;

#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_F3:
#ifdef HAVE_LCD_BITMAP
                if(global_settings.statusbar) {
                    statusbar_toggle();
                    draw_screen(id3);
                }
#endif
                break;
#endif

#ifdef HAVE_RECORDER_KEYPAD
            case BUTTON_OFF:
#else
            case BUTTON_STOP:
#endif
                if (keys_locked)
                {
                    display_keylock_text(keys_locked);
                    draw_screen(id3);
                    break;
                }

#ifdef HAVE_LCD_CHARCELLS
                lcd_icon(ICON_RECORD, false);
                lcd_icon(ICON_AUDIO, false);
#endif
                mpeg_stop();
                status_set_playmode(STATUS_STOP);
                button_set_release(old_release_mask);
                return 0;
                    
#ifndef SIMULATOR
            case SYS_USB_CONNECTED: {
#ifdef HAVE_LCD_BITMAP
                bool laststate=statusbar(false);
#endif
                /* Tell the USB thread that we are safe */
                DEBUGF("wps got SYS_USB_CONNECTED\n");
                usb_acknowledge(SYS_USB_CONNECTED_ACK);
                    
                /* Wait until the USB cable is extracted again */
                usb_wait_for_disconnect(&button_queue);

#ifdef HAVE_LCD_BITMAP
                statusbar(laststate);
#endif
                /* Signal to our caller that we have been in USB mode */
                return SYS_USB_CONNECTED;
                break;
            }
#endif
            case BUTTON_NONE: /* Timeout */
                if (mpeg_is_playing() && id3)
                    display_file_time(id3->elapsed, id3->length);
                
                status_draw();
                break;
        }
    }
}