/*
 * Copyright 2012-2022 Great Scott Gadgets <info@greatscottgadgets.com>
 * Copyright 2012 Jared Boone
 * Copyright 2013 Benjamin Vernoux
 *
 * This file is part of HackRF.
 *
 * 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, 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; see the file COPYING.  If not, write to
 * the Free Software Foundation, Inc., 51 Franklin Street,
 * Boston, MA 02110-1301, USA.
 */

#include "usb_api_board_info.h"
#include "platform_detect.h"
#include "firmware_info.h"

#include <hackrf_core.h>
#include <rom_iap.h>
#include <usb_queue.h>
#include <libopencm3/lpc43xx/scu.h>
#include <libopencm3/lpc43xx/rgu.h>
#include <libopencm3/lpc43xx/wwdt.h>

#include <stddef.h>
#include <string.h>

#ifdef HACKRF_ONE
#include "gpio_lpc.h"
static struct gpio_t gpio_h1r9_clkout_en = GPIO(0, 9);
static struct gpio_t gpio_h1r9_mcu_clk_en = GPIO(0, 8);
static struct gpio_t gpio_h1r9_rx = GPIO(0, 7);
#endif

usb_request_status_t usb_vendor_request_read_board_id(
    usb_endpoint_t* const endpoint,
    const usb_transfer_stage_t stage) {
    if (stage == USB_TRANSFER_STAGE_SETUP) {
        endpoint->buffer[0] = detected_platform();
        usb_transfer_schedule_block(
            endpoint->in,
            &endpoint->buffer,
            1,
            NULL,
            NULL);
        usb_transfer_schedule_ack(endpoint->out);
    }
    return USB_REQUEST_STATUS_OK;
}

usb_request_status_t usb_vendor_request_read_version_string(
    usb_endpoint_t* const endpoint,
    const usb_transfer_stage_t stage) {
    uint8_t length;

    if (stage == USB_TRANSFER_STAGE_SETUP) {
        length = (uint8_t)strlen(firmware_info.version_string);
        // The USB peripheral doesn't seem to be able to read directly from flash,
        // so copy the version string into ram first.
        memcpy(&endpoint->buffer,
               firmware_info.version_string,
               sizeof(firmware_info.version_string));
        usb_transfer_schedule_block(
            endpoint->in,
            &endpoint->buffer,
            length,
            NULL,
            NULL);
        usb_transfer_schedule_ack(endpoint->out);
    }
    return USB_REQUEST_STATUS_OK;
}

static read_partid_serialno_t read_partid_serialno;

usb_request_status_t usb_vendor_request_read_partid_serialno(
    usb_endpoint_t* const endpoint,
    const usb_transfer_stage_t stage) {
    uint8_t length;
    iap_cmd_res_t iap_cmd_res;

    if (stage == USB_TRANSFER_STAGE_SETUP) {
        /* Read IAP Part Number Identification */
        iap_cmd_res.cmd_param.command_code = IAP_CMD_READ_PART_ID_NO;
        iap_cmd_call(&iap_cmd_res);
        if (iap_cmd_res.status_res.status_ret != CMD_SUCCESS) {
            return USB_REQUEST_STATUS_STALL;
        }

        read_partid_serialno.part_id[0] = iap_cmd_res.status_res.iap_result[0];
        read_partid_serialno.part_id[1] = iap_cmd_res.status_res.iap_result[1];

        /* Read IAP Serial Number Identification */
        iap_cmd_res.cmd_param.command_code = IAP_CMD_READ_SERIAL_NO;
        iap_cmd_call(&iap_cmd_res);
        if (iap_cmd_res.status_res.status_ret != CMD_SUCCESS) {
            return USB_REQUEST_STATUS_STALL;
        }

        read_partid_serialno.serial_no[0] = iap_cmd_res.status_res.iap_result[0];
        read_partid_serialno.serial_no[1] = iap_cmd_res.status_res.iap_result[1];
        read_partid_serialno.serial_no[2] = iap_cmd_res.status_res.iap_result[2];
        read_partid_serialno.serial_no[3] = iap_cmd_res.status_res.iap_result[3];

        length = (uint8_t)sizeof(read_partid_serialno_t);
        usb_transfer_schedule_block(
            endpoint->in,
            &read_partid_serialno,
            length,
            NULL,
            NULL);
        usb_transfer_schedule_ack(endpoint->out);
    }
    return USB_REQUEST_STATUS_OK;
}

usb_request_status_t usb_vendor_request_reset(
    usb_endpoint_t* const endpoint,
    const usb_transfer_stage_t stage) {
    if (stage == USB_TRANSFER_STAGE_SETUP) {
#ifdef HACKRF_ONE
        /*
         * Set boot pins as inputs so that the bootloader reads them
         * correctly after the reset.
         */
        if (detected_platform() == BOARD_ID_HACKRF1_R9) {
            gpio_input(&gpio_h1r9_mcu_clk_en);
            gpio_input(&gpio_h1r9_clkout_en);
            gpio_input(&gpio_h1r9_rx);
        }
#endif
        usb_transfer_schedule_ack(endpoint->in);
        delay(50 * 40800);

        SCU_SFSP2_8 = (SCU_SFSP2_8 & ~(7)) | 4;
        struct gpio_t dfu = GPIO(5, 7);
        gpio_output(&dfu);
        gpio_clear(&dfu);

        wwdt_reset(100000);
    }
    return USB_REQUEST_STATUS_OK;
}

usb_request_status_t usb_vendor_request_read_board_rev(
    usb_endpoint_t* const endpoint,
    const usb_transfer_stage_t stage) {
    if (stage == USB_TRANSFER_STAGE_SETUP) {
        endpoint->buffer[0] = detected_revision();
        usb_transfer_schedule_block(
            endpoint->in,
            &endpoint->buffer,
            1,
            NULL,
            NULL);
        usb_transfer_schedule_ack(endpoint->out);
    }
    return USB_REQUEST_STATUS_OK;
}

usb_request_status_t usb_vendor_request_read_supported_platform(
    usb_endpoint_t* const endpoint,
    const usb_transfer_stage_t stage) {
    if (stage == USB_TRANSFER_STAGE_SETUP) {
        uint32_t platform = supported_platform();
        endpoint->buffer[0] = (platform >> 24) & 0xff;
        endpoint->buffer[1] = (platform >> 16) & 0xff;
        endpoint->buffer[2] = (platform >> 8) & 0xff;
        endpoint->buffer[3] = platform & 0xff;
        usb_transfer_schedule_block(
            endpoint->in,
            &endpoint->buffer,
            4,
            NULL,
            NULL);
        usb_transfer_schedule_ack(endpoint->out);
    }
    return USB_REQUEST_STATUS_OK;
}