/*
 * This file is part of the Micro Python project, http://micropython.org/
 *
 * The MIT License (MIT)
 *
 * Copyright (c) 2020 Jeff Epler for Adafruit Industries
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */

#include <string.h>

#include "py/gc.h"
#include "py/obj.h"
#include "py/objarray.h"
#include "py/objproperty.h"
#include "py/runtime.h"

#include "common-hal/_protomatter/Protomatter.h"
#include "shared-module/_protomatter/allocator.h"
#include "shared-bindings/_protomatter/Protomatter.h"
#include "shared-bindings/microcontroller/Pin.h"
#include "shared-bindings/microcontroller/__init__.h"
#include "shared-bindings/util.h"
#include "shared-module/framebufferio/FramebufferDisplay.h"

extern Protomatter_core *_PM_protoPtr;

void common_hal_protomatter_protomatter_construct(protomatter_protomatter_obj_t *self, int width, int bit_depth, uint8_t rgb_count, uint8_t *rgb_pins, uint8_t addr_count, uint8_t *addr_pins, uint8_t clock_pin, uint8_t latch_pin, uint8_t oe_pin, bool doublebuffer, mp_obj_t framebuffer, void *timer) {
    self->width = width;
    self->bit_depth = bit_depth;
    self->rgb_count = rgb_count;
    memcpy(self->rgb_pins, rgb_pins, rgb_count);
    self->addr_count = addr_count;
    memcpy(self->addr_pins, addr_pins, addr_count);
    self->clock_pin = clock_pin;
    self->oe_pin = oe_pin;
    self->latch_pin = latch_pin;
    self->doublebuffer = doublebuffer;

    self->timer = timer ? timer : common_hal_protomatter_timer_allocate();
    if (self->timer == NULL) {
        mp_raise_ValueError(translate("No timer available"));
    }

    self->width = width;
    self->bufsize = 2 * width * rgb_count / 3 * (1 << addr_count);

    common_hal_protomatter_protomatter_reconstruct(self, framebuffer);
}

void common_hal_protomatter_protomatter_reconstruct(protomatter_protomatter_obj_t* self, mp_obj_t framebuffer) {
    if (framebuffer) {
        self->framebuffer = framebuffer;
        framebuffer = mp_obj_new_bytearray_of_zeros(self->bufsize);
        mp_get_buffer_raise(self->framebuffer, &self->bufinfo, MP_BUFFER_READ);
        if (mp_get_buffer(self->framebuffer, &self->bufinfo, MP_BUFFER_RW)) {
            self->bufinfo.typecode = 'H' | MP_OBJ_ARRAY_TYPECODE_FLAG_RW;
        } else {
            self->bufinfo.typecode = 'H';
        }
        // verify that the matrix is big enough
        mp_get_index(mp_obj_get_type(self->framebuffer), self->bufinfo.len, MP_OBJ_NEW_SMALL_INT(self->bufsize-1), false);
    } else {
        _PM_FREE(self->bufinfo.buf);
        _PM_FREE(self->core.rgbPins);
        _PM_FREE(self->core.addr);
        _PM_FREE(self->core.screenData);

        self->framebuffer = NULL;
        self->bufinfo.buf = _PM_allocator_impl(self->bufsize);
        self->bufinfo.len = self->bufsize;
        self->bufinfo.typecode = 'H' | MP_OBJ_ARRAY_TYPECODE_FLAG_RW;
    }

    ProtomatterStatus stat = _PM_init(&self->core,
        self->width, self->bit_depth,
        self->rgb_count/6, self->rgb_pins,
        self->addr_count, self->addr_pins,
        self->clock_pin, self->latch_pin, self->oe_pin,
        self->doublebuffer, self->timer);

    if (stat == PROTOMATTER_OK) {
        _PM_protoPtr = &self->core;
        common_hal_mcu_disable_interrupts();
        common_hal_protomatter_timer_enable(self->timer);
        stat = _PM_begin(&self->core);
        _PM_convert_565(&self->core, self->bufinfo.buf, self->width);
        common_hal_mcu_enable_interrupts();
        _PM_swapbuffer_maybe(&self->core);
    }

    if (stat != PROTOMATTER_OK) {
        // XXX this deinit() actually makes crashy-crashy
        // can trigger it by sending inappropriate pins
        common_hal_protomatter_protomatter_deinit(self);
        switch (stat) {
        case PROTOMATTER_ERR_PINS:
            mp_raise_ValueError(translate("Invalid pin"));
            break;
        case PROTOMATTER_ERR_ARG:
            mp_raise_ValueError(translate("Invalid argument"));
            break;
        case PROTOMATTER_ERR_MALLOC: /// should have already been signaled as NLR
        default:
            mp_raise_msg_varg(&mp_type_RuntimeError,
                translate("Protomatter internal error #%d"), (int)stat);
            break;
        }
    }

    self->paused = 0;

}

STATIC void free_pin(uint8_t *pin) {
    if (*pin != COMMON_HAL_MCU_NO_PIN) {
        common_hal_mcu_pin_reset_number(*pin);
    }
    *pin = COMMON_HAL_MCU_NO_PIN;
}

STATIC void free_pin_seq(uint8_t *seq, int count) {
    for (int i=0; i<count; i++) {
        free_pin(&seq[i]);
    }
}

void common_hal_protomatter_protomatter_deinit(protomatter_protomatter_obj_t* self) {
    if (self->timer) {
        common_hal_protomatter_timer_free(self->timer);
        self->timer = 0;
    }

    if (_PM_protoPtr == &self->core) {
        _PM_protoPtr = NULL;
    }

    free_pin_seq(self->rgb_pins, self->rgb_count);
    free_pin_seq(self->addr_pins, self->addr_count);
    free_pin(&self->clock_pin);
    free_pin(&self->latch_pin);
    free_pin(&self->oe_pin);

    if (self->core.rgbPins) {
        _PM_free(&self->core);
    }
    memset(&self->core, 0, sizeof(self->core));

    // If it was supervisor-allocated, it is supervisor-freed and the pointer
    // is zeroed, otherwise the pointer is just zeroed
    _PM_FREE(self->bufinfo.buf);
    self->base.type = NULL;

    // If a framebuffer was passed in to the constructor, NULL the reference
    // here so that it will become GC'able
    self->framebuffer = NULL;
}

void protomatter_protomatter_collect_ptrs(protomatter_protomatter_obj_t* self) {
    gc_collect_ptr(self->framebuffer);
    gc_collect_ptr(self->core.rgbPins);
    gc_collect_ptr(self->core.addr);
    gc_collect_ptr(self->core.screenData);
}

void common_hal_protomatter_protomatter_set_paused(protomatter_protomatter_obj_t* self, bool paused) {
    if (paused && !self->paused) {
        _PM_stop(&self->core);
    } else if (!paused && self->paused) {
        _PM_resume(&self->core);
    }
    self->paused = paused;
}

bool common_hal_protomatter_protomatter_get_paused(protomatter_protomatter_obj_t* self) {
    return self->paused;
}

void common_hal_protomatter_protomatter_refresh(protomatter_protomatter_obj_t* self) {
    _PM_convert_565(&self->core, self->bufinfo.buf, self->width);
    _PM_swapbuffer_maybe(&self->core);
}