/*
 * Copyright 2004-2015 Haiku, Inc. All rights reserved.
 * Distributed under the terms of the MIT License.
 *
 * Authors:
 *              Jérôme Duval, jerome.duval@free.fr
 *              Marcus Overhagen, marcus@overhagen.de
 *              Jérôme Lévêque, leveque.jerome@gmail.com
 */


#include <midi_driver.h>
#include <string.h>
#include <stdlib.h>
#include <signal.h>

#include "ice1712.h"
#include "ice1712_reg.h"
#include "io.h"
#include "util.h"
#include "debug.h"

extern generic_mpu401_module * mpu401;
extern int32 num_cards;
extern ice1712 cards[NUM_CARDS];

void ice1712Midi_interrupt(int32 op, void *data);


void
ice1712Midi_interrupt(int32 op, void *data)
{
        cpu_status status;
        uint8 int_status = 0;
        ice1712Midi *midi = (ice1712Midi*)data;

        if (op == B_MPU_401_ENABLE_CARD_INT) {
                status = lock();

                int_status = read_ccs_uint8(midi->card, CCS_INTERRUPT_MASK);
                int_status &= ~(midi->int_mask);
                write_ccs_uint8(midi->card, CCS_INTERRUPT_MASK, int_status);

                ITRACE("B_MPU_401_ENABLE_CARD_INT: %s\n", midi->name);

                unlock(status);
        } else if (op == B_MPU_401_DISABLE_CARD_INT) {
                status = lock();

                int_status = read_ccs_uint8(midi->card, CCS_INTERRUPT_MASK);
                int_status |= midi->int_mask;
                write_ccs_uint8(midi->card, CCS_INTERRUPT_MASK, int_status);

                ITRACE("B_MPU_401_DISABLE_CARD_INT: %s\n", midi->name);

                unlock(status);
        }

        ITRACE("New mask status 0x%x\n", int_status);
}


static status_t
ice1712Midi_open(const char *name, uint32 flags, void **cookie)
{
        int midi, card;
        status_t ret = ENODEV;

        ITRACE("**midi_open()\n");
        *cookie = NULL;

        for (card = 0; card < num_cards; card++) {
                for (midi = 0; midi < cards[card].config.nb_MPU401; midi++) {
                        if (!strcmp(name, cards[card].midiItf[midi].name)) {
                                ice1712Midi *dev = &(cards[card].midiItf[midi]);
                                ret = (*mpu401->open_hook)(dev->mpu401device, flags, cookie);
                                if (ret >= B_OK) {
                                        *cookie = dev->mpu401device;
                                }
                                break;
                        }
                }
        }

        return ret;
}


static status_t
ice1712Midi_close(void* cookie)
{
        ITRACE("**midi_close()\n");
        return (*mpu401->close_hook)(cookie);
}


static status_t
ice1712Midi_free(void* cookie)
{
        int midi, card;
        status_t ret;

        ITRACE("**midi_free()\n");

        ret = (*mpu401->free_hook)(cookie);

        for (card = 0; card < num_cards; card++) {
                for (midi = 0; midi < cards[card].config.nb_MPU401; midi++) {
                        if (cookie == cards[card].midiItf[midi].mpu401device) {
                                cards[card].midiItf[midi].mpu401device = NULL;
                                ITRACE("Cleared %p card %d, midi %d\n", cookie, card, midi);
                                break;
                        }
                }
        }

        return ret;
}


static status_t
ice1712Midi_control(void* cookie,
        uint32 iop, void* data, size_t len)
{
        ITRACE("**midi_control()\n");
        return (*mpu401->control_hook)(cookie, iop, data, len);
}


static status_t
ice1712Midi_read(void * cookie, off_t pos, void * ptr, size_t * nread)
{
        status_t ret = B_ERROR;

        ret = (*mpu401->read_hook)(cookie, pos, ptr, nread);
        ITRACE_VV("**midi_read: %" B_PRIi32 "\n", ret);

        return ret;
}


static status_t
ice1712Midi_write(void * cookie, off_t pos, const void * ptr,
                size_t * nwritten)
{
        status_t ret = B_ERROR;

        ret = (*mpu401->write_hook)(cookie, pos, ptr, nwritten);
        ITRACE_VV("**midi_write: %" B_PRIi32 "\n", ret);

        return ret;
}


device_hooks ice1712Midi_hooks =
{
        ice1712Midi_open,
        ice1712Midi_close,
        ice1712Midi_free,
        ice1712Midi_control,
        ice1712Midi_read,
        ice1712Midi_write,
        NULL,
        NULL,
        NULL,
        NULL
};