/*
 * c64-resources.c
 *
 * Written by
 *  Andreas Boose <viceteam@t-online.de>
 *
 * This file is part of VICE, the Versatile Commodore Emulator.
 * See README for copyright notice.
 *
 *  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., 59 Temple Place, Suite 330, Boston, MA
 *  02111-1307  USA.
 *
 */

#include "vice.h"

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

#include "c64-resources.h"
#include "c64acia.h"
#include "c64cart.h"
#include "c64cia.h"
#include "c64rom.h"
#include "c64memrom.h"
#include "c64mem.h"
#include "c64model.h"
#include "cartio.h"
#include "cartridge.h"
#include "cia.h"
#include "lib.h"
#include "log.h"
#include "machine.h"
#include "resources.h"
#include "reu.h"
#include "georam.h"
#include "sid-resources.h"
#include "util.h"
#include "vicii-resources.h"
#include "vicii.h"
#include "c64fastiec.h"

/* What sync factor between the CPU and the drive?  If equal to
   `MACHINE_SYNC_PAL', the same as PAL machines.  If equal to
   `MACHINE_SYNC_NTSC', the same as NTSC machines.  The sync factor is
   calculated as 65536 * drive_clk / clk_[main machine] */
static int sync_factor = -1;

/* Frequency of the power grid in Hz */
static int power_freq = -1;

/* Name of the character ROM.  */
static char *chargen_rom_name = NULL;

/* Name of the BASIC ROM.  */
static char *basic_rom_name = NULL;

/* Name of the Kernal ROM.  */
static char *kernal_rom_name = NULL;

/* Kernal revision for ROM patcher.  */
int kernal_revision = C64_KERNAL_REV3;

int cia1_model;
int cia2_model;

int board_type = BOARD_C64;
static int iec_reset = 0;

static log_t res_log = LOG_DEFAULT;

static int set_chargen_rom_name(const char *val, void *param)
{
    if (util_string_set(&chargen_rom_name, val)) {
        return 0;
    }

    return c64rom_load_chargen(chargen_rom_name);
}

static int set_kernal_rom_name(const char *val, void *param)
{
    int ret;
    /* CAUTION: make sure to only trigger a power cycle when the name changed
                AND it was not null before (in that case we are setting the
                default value) */
    int changed = 0;
    log_verbose(res_log, "set_kernal_rom_name val:%s.", val);
    if ((val != NULL) && (kernal_rom_name != NULL)) {
        changed = (strcmp(val, kernal_rom_name) != 0);
    }
    if (util_string_set(&kernal_rom_name, val)) {
        return 0;
    }
    /* load kernal without a kernal overriding buffer */
    ret = c64rom_load_kernal(kernal_rom_name, NULL);
    if (changed) {
        machine_trigger_reset(MACHINE_RESET_MODE_POWER_CYCLE);
    }
    return ret;
}

static int set_basic_rom_name(const char *val, void *param)
{
    int ret;
    /* CAUTION: make sure to only trigger a power cycle when the name changed
                AND it was not null before (in that case we are setting the
                default value) */
    int changed = 0;
    if ((val != NULL) && (basic_rom_name != NULL)) {
        changed = (strcmp(val, basic_rom_name) != 0);
    }
    if (util_string_set(&basic_rom_name, val)) {
        return 0;
    }
    ret = c64rom_load_basic(basic_rom_name);
    if (changed) {
        machine_trigger_reset(MACHINE_RESET_MODE_POWER_CYCLE);
    }
    return ret;
}

static int set_board_type(int val, void *param)
{
    int old_board_type = board_type;
    if ((val < 0) || (val > BOARD_LAST_C64)) {
        return -1;
    }
    board_type = val;
    if (old_board_type != board_type) {
        machine_trigger_reset(MACHINE_RESET_MODE_POWER_CYCLE);
    }
    return 0;
}

static int set_iec_reset(int val, void *param)
{
    iec_reset = val ? 1 : 0;
    return 0;
}

static int set_cia1_model(int val, void *param)
{
    int old_cia_model = cia1_model;

    switch (val) {
        case CIA_MODEL_6526:
        case CIA_MODEL_6526A:
            cia1_model = val;
            break;
        default:
            return -1;
    }

    if (old_cia_model != cia1_model) {
        cia1_update_model();
    }

    return 0;
}

static int set_cia2_model(int val, void *param)
{
    int old_cia_model = cia2_model;

    switch (val) {
        case CIA_MODEL_6526:
        case CIA_MODEL_6526A:
            cia2_model = val;
            break;
        default:
            return -1;
    }

    if (old_cia_model != cia2_model) {
        cia2_update_model();
    }

    return 0;
}

#define NUM_TRAP_DEVICES 9  /* FIXME: is there a better constant ? */
static const int trapdevices[NUM_TRAP_DEVICES + 1] = { 1, 4, 5, 6, 7, 8, 9, 10, 11, -1 };

static unsigned int get_trapflags(void)
{
    int i;
    /*int val = 0;*/
    int ret = 0;
    int trapfl;
    for(i = 0; trapdevices[i] != -1; i++) {
        resources_get_int_sprintf("TrapDevice%d", &trapfl, trapdevices[i]);
        /*val |= trapfl;*/
        if (trapfl) {
            ret |= (1 << i);
        }
    }
    /*printf("get_trapflags(%d)\n", val);*/
    return ret;
}

static void clear_trapflags(void)
{
    int i;
    for(i = 0; trapdevices[i] != -1; i++) {
        resources_set_int_sprintf("TrapDevice%d", 0, trapdevices[i]);
    }
    /*printf("clear_trapflags\n");*/
}

static void restore_trapflags(unsigned int flags)
{
    int i;
    /*int val = 0;*/
    int trapfl;
    for(i = 0; trapdevices[i] != -1; i++) {
        trapfl = (flags & (1 << i)) ? 1 : 0;
        resources_set_int_sprintf("TrapDevice%d", trapfl, trapdevices[i]);
        /*val |= trapfl;*/
    }
    /*printf("restore_trapflags(%d)\n", val);*/
}

struct kernal_s {
    const char *name;
    int rev;
};

/* NOTE: also update the table in c64rom.c */
static struct kernal_s kernal_match[] = {
    { C64_KERNAL_REV1_NAME, C64_KERNAL_REV1 },
    { C64_KERNAL_REV2_NAME, C64_KERNAL_REV2 },
    { C64_KERNAL_REV3_NAME, C64_KERNAL_REV3 },
    { C64_KERNAL_JAP_NAME,  C64_KERNAL_JAP },
    { C64_KERNAL_SX64_NAME, C64_KERNAL_SX64 },
    { C64_KERNAL_GS64_NAME, C64_KERNAL_GS64 },
    { C64_KERNAL_4064_NAME, C64_KERNAL_4064 },
    { C64_KERNAL_NONE_NAME, C64_KERNAL_NONE },
    { NULL, C64_KERNAL_UNKNOWN }
};

static int set_kernal_revision(int val, void *param)
{
    int n = 0, rev = C64_KERNAL_UNKNOWN;
    const char *name = NULL;
    int flags;

    log_verbose(res_log, "set_kernal_revision(val:%d) was kernal_revision: %d", val, kernal_revision);

    flags = get_trapflags();

    /* if the new type is "unknown", only remove the traps */
    if (val == C64_KERNAL_UNKNOWN) {
        if(c64rom_isloaded()) {
            /* disable device traps before kernal patching */
            if (machine_class != VICE_MACHINE_VSID) {
                clear_trapflags();
            }
        }
        kernal_revision = C64_KERNAL_UNKNOWN;
        restore_trapflags(flags);
        return 0;
    }

    /* find given revision */
    do {
        if (kernal_match[n].rev == val) {
            rev = kernal_match[n].rev;
            name = kernal_match[n].name;
        }
        ++n;
    } while ((rev == C64_KERNAL_UNKNOWN) && (kernal_match[n].name != NULL));

    if (rev == C64_KERNAL_UNKNOWN) {
        log_error(res_log, "invalid kernal revision (%d)", val);
        return -1;
    }

    if(c64rom_isloaded()) {
        /* disable device traps before kernal patching */
        if (machine_class != VICE_MACHINE_VSID) {
            clear_trapflags();
        }
    }

    log_verbose(res_log, "set_kernal_revision found rev:%d name: %s", rev, name);

    if (resources_set_string("KernalName", name) < 0) {
        log_error(res_log, "failed to set kernal name (%s)", name);
        restore_trapflags(flags);
        return -1;
    }

    memcpy(c64memrom_kernal64_trap_rom, c64memrom_kernal64_rom, C64_KERNAL_ROM_SIZE);

    if (kernal_revision != rev) {
        machine_trigger_reset(MACHINE_RESET_MODE_POWER_CYCLE);
    }
    /* restore traps */
    if (machine_class != VICE_MACHINE_VSID) {
        restore_trapflags(flags);
    }
    kernal_revision = rev;
    log_verbose(res_log, "set_kernal_revision new kernal_revision: %d", kernal_revision);
    return 0;
}

static int set_sync_factor(int val, void *param)
{
    int change_timing = 0;

    if (sync_factor != val) {
        change_timing = 1;
    }

    switch (val) {
        case MACHINE_SYNC_PAL:
        case MACHINE_SYNC_PALN:
        case MACHINE_SYNC_NTSC:
        case MACHINE_SYNC_NTSCOLD:
            break;
        default:
            return -1;
    }
    sync_factor = val;
    if (change_timing) {
        vicii_comply_with_video_standard(val);
        if (power_freq > 0) {
            machine_change_timing(val, power_freq, vicii_resources.border_mode);
        }
    }

    return 0;
}

static int set_power_freq(int val, void *param)
{
    int change_timing = 0;

    if (power_freq != val) {
        change_timing = 1;
    }

    switch (val) {
        case 50:
        case 60:
            break;
        default:
            return -1;
    }
    power_freq = val;
    if (change_timing) {
        /*vicii_comply_with_video_standard(sync_factor);*/
        if (sync_factor > 0) {
            machine_change_timing(sync_factor, val, vicii_resources.border_mode);
        }
    }

    return 0;
}

static const resource_string_t resources_string[] = {
    { "ChargenName", C64_CHARGEN_NAME, RES_EVENT_NO, NULL,
      /* FIXME: should be same but names may differ */
      &chargen_rom_name, set_chargen_rom_name, NULL },
    { "KernalName", C64_KERNAL_REV3_NAME, RES_EVENT_NO, NULL,
      /* FIXME: should be same but names may differ */
      &kernal_rom_name, set_kernal_rom_name, NULL },
    { "BasicName", C64_BASIC_NAME, RES_EVENT_NO, NULL,
      /* FIXME: should be same but names may differ */
      &basic_rom_name, set_basic_rom_name, NULL },
    RESOURCE_STRING_LIST_END
};

static const resource_int_t resources_int[] = {
    { "MachineVideoStandard", MACHINE_SYNC_PAL, RES_EVENT_SAME, NULL,
      &sync_factor, set_sync_factor, NULL },
    { "MachinePowerFrequency", 50, RES_EVENT_SAME, NULL,
      &power_freq, set_power_freq, NULL },
    { "BoardType", BOARD_C64, RES_EVENT_SAME, NULL,
      &board_type, set_board_type, NULL },
    { "IECReset", 0, RES_EVENT_SAME, NULL,
      &iec_reset, set_iec_reset, NULL },
    { "CIA1Model", CIA_MODEL_6526A, RES_EVENT_SAME, NULL,
      &cia1_model, set_cia1_model, NULL },
    { "CIA2Model", CIA_MODEL_6526A, RES_EVENT_SAME, NULL,
      &cia2_model, set_cia2_model, NULL },
    { "KernalRev", C64_KERNAL_REV3, RES_EVENT_SAME, NULL,
      &kernal_revision, set_kernal_revision, NULL },
    { "Sid2AddressStart", 0xde00, RES_EVENT_SAME, NULL,
      (int *)&sid2_address_start, sid_set_sid2_address, NULL },
    { "Sid3AddressStart", 0xdf00, RES_EVENT_SAME, NULL,
      (int *)&sid3_address_start, sid_set_sid3_address, NULL },
    { "Sid4AddressStart", 0xdf80, RES_EVENT_SAME, NULL,
      (int *)&sid4_address_start, sid_set_sid4_address, NULL },
    { "Sid5AddressStart", 0xde80, RES_EVENT_SAME, NULL,
      (int *)&sid5_address_start, sid_set_sid5_address, NULL },
    { "Sid6AddressStart", 0xdf40, RES_EVENT_SAME, NULL,
      (int *)&sid6_address_start, sid_set_sid6_address, NULL },
    { "Sid7AddressStart", 0xde40, RES_EVENT_SAME, NULL,
      (int *)&sid7_address_start, sid_set_sid7_address, NULL },
    { "Sid8AddressStart", 0xdfc0, RES_EVENT_SAME, NULL,
      (int *)&sid8_address_start, sid_set_sid8_address, NULL },
    { "BurstMod", BURST_MOD_NONE, RES_EVENT_NO, NULL,
      &burst_mod, set_burst_mod, NULL },
    RESOURCE_INT_LIST_END
};

void c64_resources_update_cia_models(int model)
{
    set_cia1_model(model, NULL);
    set_cia2_model(model, NULL);
}

int c64_resources_init(void)
{
    res_log = log_open("C64RES");
    if (resources_register_string(resources_string) < 0) {
        return -1;
    }

    return resources_register_int(resources_int);
}

void c64_resources_shutdown(void)
{
    lib_free(chargen_rom_name);
    lib_free(basic_rom_name);
    lib_free(kernal_rom_name);
}