/*
 * Copyright (C) 2017 - 2022 Xilinx, Inc.
 * Copyright (C) 2022 - 2023 Advanced Micro Devices, Inc.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 * 1. Redistributions of source code must retain the above copyright notice,
 *    this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright notice,
 *    this list of conditions and the following disclaimer in the documentation
 *    and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
 * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 */

#include "lwip/inet.h"
#include "lwip/tcpip.h"
#include "netif/xadapter.h"

#define PLATFORM_EMAC_BASEADDR 0xE000B000

#define THREAD_STACKSIZE 1024

#define DEFAULT_IP_ADDRESS "192.168.1.10"
#define DEFAULT_IP_MASK "255.255.255.0"
#define DEFAULT_GW_ADDRESS "192.168.1.1"

struct netif server_netif;

// u32_t sys_now(void) { return xTaskGetTickCount() * portTICK_PERIOD_MS; }

static void print_ip(char *msg, ip_addr_t *ip) {
  xil_printf(msg);
  xil_printf("%d.%d.%d.%d\n\r", ip4_addr1(ip), ip4_addr2(ip), ip4_addr3(ip),
             ip4_addr4(ip));
}

static void print_ip_settings(ip_addr_t *ip, ip_addr_t *mask, ip_addr_t *gw) {
  print_ip("Board IP:       ", ip);
  print_ip("Netmask :       ", mask);
  print_ip("Gateway :       ", gw);
}

// static void assign_default_ip(ip_addr_t *ip, ip_addr_t *mask, ip_addr_t *gw)
// {
//   int err;

//   xil_printf("Configuring default IP %s \r\n", DEFAULT_IP_ADDRESS);

//   err = inet_aton(DEFAULT_IP_ADDRESS, ip);
//   if (!err)
//     xil_printf("Invalid default IP address: %d\r\n", err);

//   err = inet_aton(DEFAULT_IP_MASK, mask);
//   if (!err)
//     xil_printf("Invalid default IP MASK: %d\r\n", err);

//   err = inet_aton(DEFAULT_GW_ADDRESS, gw);
//   if (!err)
//     xil_printf("Invalid default gateway address: %d\r\n", err);
// }

void init_thread(void *_) {

  /* the mac address of the board. this should be unique per board */
  u8_t mac_ethernet_address[] = {0x00, 0x0a, 0x35, 0x00, 0x01, 0x02};

  /* Add network interface to the netif_list, and set it as default */
  ip_addr_t ip, mask, gw;
  int err = inet_aton(DEFAULT_IP_ADDRESS, &ip);
  if (!err)
    xil_printf("Invalid default IP address: %d\r\n", err);

  err = inet_aton(DEFAULT_IP_MASK, &mask);
  if (!err)
    xil_printf("Invalid default IP MASK: %d\r\n", err);

  err = inet_aton(DEFAULT_GW_ADDRESS, &gw);
  if (!err)
    xil_printf("Invalid default gateway address: %d\r\n", err);
  if (!xemac_add(&server_netif, &ip, &mask, &gw, mac_ethernet_address,
                 PLATFORM_EMAC_BASEADDR)) {
    xil_printf("Error adding N/W interface\r\n");
    return;
  }

  netif_set_default(&server_netif);

  /* specify that the network if is up */
  netif_set_up(&server_netif);

  /* start packet receive thread - required for lwIP operation */
  sys_thread_new("xemacif_input_thread", (void (*)(void *))xemacif_input_thread,
                 &server_netif, THREAD_STACKSIZE, DEFAULT_THREAD_PRIO);

  print_ip_settings(&(server_netif.ip_addr), &(server_netif.netmask),
                    &(server_netif.gw));
  xil_printf("\r\n");

  // Some allocations do not allow task deletion
  // vTaskDelete(NULL);
  vTaskSuspend(NULL);
}

void xethernet_init() {
  // pushed into thread so it only starts after threads are started
  sys_thread_new("initxeth_thread", init_thread, 0, THREAD_STACKSIZE,
                 DEFAULT_THREAD_PRIO);
}