// Copyright 2018-2019 Espressif Systems (Shanghai) PTE LTD
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

#include <string.h>
#include "unity.h"
#include "dsp_platform.h"
#include "esp_log.h"
#include <malloc.h>

#include "dspi_dotprod.h"
#include "dsp_tests.h"

static const char *TAG = "dspi_dotprod_s8";

TEST_CASE("dspi_dotprod_s8_aexx functionality", "[dspi]")
{
    int shift = 2;

    int max_N = 16384;
    int8_t *x = (int8_t *)memalign(16, max_N * sizeof(int8_t));
    int8_t *y = (int8_t *)memalign(16, max_N * sizeof(int8_t));
    int8_t *z = (int8_t *)memalign(16, max_N * sizeof(int8_t));

    printf("Data: x=%8.8"PRIx32", y=%8.8"PRIx32", z=%8.8"PRIx32" \n", (uint32_t)x, (uint32_t)y, (uint32_t)z);
    for (size_t i = 0; i < max_N; i++) {
        x[i] = i % 7;
        y[i] = i % 7;
        z[i] = 0;
    }
    {
        ESP_LOGI(TAG, "dspi_dotprod_s8 16x16");
        image2d_t image1 = {&x[3], 1, 1, 64, 64}; // Image 64x64
        image2d_t image2 = {y, 1, 1, 16, 16}; // Umage 16x16
        int8_t result = -1;
        unsigned int start_b = xthal_get_ccount();
        dspi_dotprod_s8(&image1, &image2, &result, 16, 16, shift);
        unsigned int end_b = xthal_get_ccount();
        ESP_LOGI(TAG, "cycles = %i", end_b - start_b);
        ESP_LOGI(TAG, "result 1 = %i", result);
        int8_t result_ref = -1;
        dspi_dotprod_s8_ansi(&image1, &image2, &result_ref, 16, 16, shift);
        ESP_LOGI(TAG, "result ref = %i", result_ref);
        TEST_ASSERT_EQUAL( result, result_ref);
    }
    {
        ESP_LOGI(TAG, "dspi_dotprod_s8 32x32");
        image2d_t image1 = {&x[3], 1, 1, 64, 64}; // Image 64x64
        image2d_t image2 = {y, 1, 1, 32, 32}; // Umage 16x16
        int8_t result = -1;
        unsigned int start_b = xthal_get_ccount();
        dspi_dotprod_s8(&image1, &image2, &result, 32, 32, shift);
        unsigned int end_b = xthal_get_ccount();
        ESP_LOGI(TAG, "cycles = %i", end_b - start_b);
        ESP_LOGI(TAG, "result 1 = %i", result);
        int8_t result_ref = -1;
        dspi_dotprod_s8_ansi(&image1, &image2, &result_ref, 32, 32, shift);
        ESP_LOGI(TAG, "result ref = %i", result_ref);
        TEST_ASSERT_EQUAL( result, result_ref);
    }
    {
        ESP_LOGI(TAG, "dspi_dotprod_s8 48x48");
        image2d_t image1 = {&x[3], 1, 1, 64, 64}; // Image 64x64
        image2d_t image2 = {y, 1, 1, 48, 48}; // Umage 48x48
        int8_t result = -1;
        unsigned int start_b = xthal_get_ccount();
        dspi_dotprod_s8(&image1, &image2, &result, 48, 48, shift);
        unsigned int end_b = xthal_get_ccount();
        ESP_LOGI(TAG, "cycles = %i", end_b - start_b);
        ESP_LOGI(TAG, "result 1 = %i", result);
        int8_t result_ref = -1;
        dspi_dotprod_s8_ansi(&image1, &image2, &result_ref, 48, 48, shift);
        ESP_LOGI(TAG, "result ref = %i", result_ref);
        TEST_ASSERT_EQUAL( result, result_ref);
    }
    {
        ESP_LOGI(TAG, "dspi_dotprod_s8 64x64");
        image2d_t image1 = {&x[3], 1, 1, 128, 128}; // Image 64x64
        image2d_t image2 = {y, 1, 1, 64, 64}; // Umage 32x32
        int8_t result = -1;
        unsigned int start_b = xthal_get_ccount();
        dspi_dotprod_s8(&image1, &image2, &result, 64, 64, shift);
        unsigned int end_b = xthal_get_ccount();
        ESP_LOGI(TAG, "cycles = %i", end_b - start_b);
        ESP_LOGI(TAG, "result 1 = %i", result);
        int8_t result_ref = -1;
        dspi_dotprod_s8_ansi(&image1, &image2, &result_ref, 64, 64, shift);
        ESP_LOGI(TAG, "result ref = %i", result_ref);
        TEST_ASSERT_EQUAL( result, result_ref);
    }
    {
        ESP_LOGI(TAG, "dspi_dotprod_s8 128x128");
        image2d_t image1 = {&x[3], 1, 1, 128, 128}; // Image 64x64
        image2d_t image2 = {y, 1, 1, 128, 128}; // Umage 32x32
        int8_t result = -1;
        unsigned int start_b = xthal_get_ccount();
        dspi_dotprod_s8(&image1, &image2, &result, 128, 128, shift);
        unsigned int end_b = xthal_get_ccount();
        ESP_LOGI(TAG, "cycles = %i", end_b - start_b);
        ESP_LOGI(TAG, "result 1 = %i", result);
        int8_t result_ref = -1;
        dspi_dotprod_s8_ansi(&image1, &image2, &result_ref, 128, 128, shift);
        ESP_LOGI(TAG, "result ref = %i", result_ref);
        TEST_ASSERT_EQUAL( result, result_ref);
    }

    ESP_LOGI(TAG, "dspi_dotprod_s8 done");
    free(x);
    free(y);
    free(z);
}
