/*
 * This file is part of libbluray
 * Copyright (C) 2014  Petri Hintukainen <phintuka@users.sourceforge.net>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library. If not, see
 * <http://www.gnu.org/licenses/>.
 */

#include "bdj/bdjo_data.h"
#include "bluray.h"

#include <stdio.h>
#include <string.h>

static const char *_yes_no(int i)
{
    return i > 0 ? "yes" : i < 0 ? "unknown" : "no";
}

static const char *_binding_str(int i)
{
    switch (i) {
        case 0:  return "unbound";
        case 1:  return "disc bound";
        case 3:  return "title bound";
        default: return "???";
    }
}

static const char *_visibility_str(int i)
{
    switch (i) {
        case 0:  return "none";
        case 1:  return "applications";
        case 2:  return "user";
        default: return "???";
    }
}

static void _terminal_info_print(const BDJO_TERMINAL_INFO *p)
{
    printf("Terminal Info:\n");
    printf("    Default AWT font    : %s\n", p->default_font);
    printf("    initial HaVi config : %d\n", p->initial_havi_config_id);
    printf("    Menu call mask      : %d\n", p->menu_call_mask);
    printf("    Title search mask   : %d\n", p->menu_call_mask);
}

static void _app_cache_item_print(const BDJO_APP_CACHE_ITEM *p)
{
    printf("    %3.3s: %s%s\n",
           p->lang_code, p->ref_to_name,
           p->type == 1 ? ".jar" : p->type == 2 ? "/" : " (unknown type)");
}

static void _app_cache_info_print(const BDJO_APP_CACHE_INFO *p)
{
    unsigned ii;

    printf("Application cache info:\n");
    for (ii = 0; ii < p->num_item; ii++) {
        _app_cache_item_print(&p->item[ii]);
    }
}

static void _accessible_playlists_print(const BDJO_ACCESSIBLE_PLAYLISTS *p)
{
    unsigned ii;

    printf("Accessible playlists:\n");
    printf("    Access to all       : %s\n", _yes_no(p->access_to_all_flag));
    printf("    Autostart first     : %s\n", _yes_no(p->autostart_first_playlist_flag));

    if (p->num_pl) {
        printf("    Playlists           : %d\n", p->num_pl);
        for (ii = 0; ii < p->num_pl; ii++) {
            printf("        %s.mpls\n", p->pl[ii].name);
        }
    }
}

static void _app_profile_print(BDJO_APP_PROFILE *p)
{
    printf("        Profile %d Version %d.%d.%d\n",
           p->profile_number, p->major_version, p->minor_version, p->micro_version);
}

static void _app_print(const BDJO_APP *p)
{
    unsigned ii;

    printf("    Control code:       : %d (%s)\n", p->control_code,
           p->control_code == 1 ? "autostart" : p->control_code == 2 ? "present" : "???");
    printf("    Type                : %d (%s)\n", p->type,
           p->type == 1 ? "BD-J App" : "???");
    printf("    Organization ID     : %08X\n", p->org_id);
    printf("    Application ID      : %04X\n", p->app_id);
    printf("    Priority            : %d\n", p->priority);
    printf("    Binding             : %d (%s)\n", p->binding, _binding_str(p->binding));
    printf("    Visibility          : %d (%s)\n", p->visibility, _visibility_str(p->visibility));

    if (p->num_profile) {
        printf("    Profiles:\n");
        for (ii = 0; ii < p->num_profile; ii++) {
            _app_profile_print(&p->profile[ii]);
        }
    }

    if (p->num_name) {
        printf("    Names:\n");
        for (ii = 0; ii < p->num_name; ii++) {
            printf("        %s: %s\n", p->name[ii].lang, p->name[ii].name);
        }
    }

    printf("    Base directory      : %s\n", p->base_dir);
    printf("    Icon locator        : %s\n", p->icon_locator);
    printf("    Icon flags          : 0x%04x\n", p->icon_flags);
    printf("    Classpath extension : %s\n", p->classpath_extension);
    printf("    Initial class       : %s\n", p->initial_class);
    printf("    Parameters          : ");
    for (ii = 0; ii < p->num_param; ii++) {
        printf("%s ", p->param[ii].param);
    }
    printf("\n");
}

static void _app_management_table_print(const BDJO_APP_MANAGEMENT_TABLE *p)
{
    unsigned ii;

    for (ii = 0; ii < p->num_app; ii++) {
        printf("Application %u:\n", ii);
        _app_print(&p->app[ii]);
    }
}

static void _key_interest_table_print(const BDJO_KEY_INTEREST_TABLE *p)
{
    unsigned int v;
    memcpy(&v, p, sizeof(unsigned int));
    if (v) {
        printf("Key interest table:\n");
        printf("    %s%s%s%s%s%s%s%s%s%s%s\n",
               p->vk_play              ? "VK_PLAY " : "",
               p->vk_stop              ? "VK_STOP " : "",
               p->vk_ffw               ? "VK_FFW " : "",
               p->vk_rew               ? "VK_REW " : "",
               p->vk_track_next        ? "VK_TRACK_NEXT " : "",
               p->vk_track_prev        ? "VK_TRACK_PREV " : "",
               p->vk_pause             ? "VK_PAUSE " : "",
               p->vk_still_off         ? "VK_STILL_OFF " : "",
               p->vk_sec_audio_ena_dis ? "VK_SEC_AUDIO " : "",
               p->vk_sec_video_ena_dis ? "VK_SEC_VIDEO " : "",
               p->pg_textst_ena_dis    ? "VK_PG_TEXTST " : "");
    }
}

static void _file_access_info_print(const BDJO_FILE_ACCESS_INFO *p)
{
    printf("File access info:\n    %s\n",  p->path);
}

static void _bdjo_print(const BDJO *p)
{
    _terminal_info_print(&p->terminal_info);
    _app_cache_info_print(&p->app_cache_info);
    _accessible_playlists_print(&p->accessible_playlists);
    _app_management_table_print(&p->app_table);
    _key_interest_table_print(&p->key_interest_table);
    _file_access_info_print(&p->file_access_info);
}

int main(int argc, const char *argv[])
{
    if (argc < 2) {
        fprintf(stderr, "usage: %s <bdjo_file>\n", argv[0]);
        return 1;
    }

    int cnt;
    for (cnt = 1; cnt < argc; cnt++) {

        printf("%s\n", argv[cnt]);

        BDJO *bdjo = bd_read_bdjo(argv[cnt]);
        if (bdjo) {
            _bdjo_print(bdjo);
            bd_free_bdjo(bdjo);
        }
        printf("\n");
    }

    return 0;
}