/**
 * @file lan8672_driver.c
 * @brief LAN8672 10Base-T1S Ethernet PHY driver
 *
 * @section License
 *
 * Copyright (C) 2021-2026 Oryx Embedded SARL. All rights reserved.
 *
 * This file is part of CycloneTCP Eval
 * 
 * This software is provided in source form for a short-term evaluation only. The
 * evaluation license expires 90 days after the date you first download the software.
 *
 * If you plan to use this software in a commercial product, you are required to
 * purchase a commercial license from Oryx Embedded SARL.
 *
 * After the 90-day evaluation period, you agree to either purchase a commercial
 * license or delete all copies of this software. If you wish to extend the
 * evaluation period, you must contact sales@oryx-embedded.com.
 *
 * This evaluation software is provided "as is" without warranty of any kind.
 * Technical support is available as an option during the evaluation period.

 *
 * @author Oryx Embedded SARL (www.oryx-embedded.com)
 * @version 2.6.2
 **/

//Switch to the appropriate trace level
#define TRACE_LEVEL NIC_TRACE_LEVEL

//Dependencies
#include "core/net.h"
#include "drivers/phy/lan8672_driver.h"
#include "debug.h"


/**
 * @brief LAN8672 Ethernet PHY driver
 **/

const PhyDriver lan8672PhyDriver =
{
   lan8672Init,
   lan8672Tick,
   lan8672EnableIrq,
   lan8672DisableIrq,
   lan8672EventHandler
};


/**
 * @brief LAN8672 PHY transceiver initialization
 * @param[in] interface Underlying network interface
 * @return Error code
 **/

error_t lan8672Init(NetInterface *interface)
{
   //Debug message
   TRACE_INFO("Initializing LAN8672...\r\n");

   //Undefined PHY address?
   if(interface->phyAddr >= 32)
   {
      //Use the default address
      interface->phyAddr = LAN8672_PHY_ADDR;
   }

   //Initialize serial management interface
   if(interface->smiDriver != NULL)
   {
      interface->smiDriver->init();
   }

   //Initialize external interrupt line driver
   if(interface->extIntDriver != NULL)
   {
      interface->extIntDriver->init();
   }

   //Dump PHY registers for debugging purpose
   lan8672DumpPhyReg(interface);

   //Configure PHY transceiver
   lan8672ModifyMmdReg(interface, 0x1F, 0x00D0, 0x0E03, 0x0002);
   lan8672ModifyMmdReg(interface, 0x1F, 0x00D1, 0x0300, 0x0000);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0084, 0xFFC0, 0x3380);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0085, 0x000F, 0x0006);
   lan8672ModifyMmdReg(interface, 0x1F, 0x008A, 0xF800, 0xC000);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0087, 0x801C, 0x801C);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0088, 0x1FFF, 0x033F);
   lan8672ModifyMmdReg(interface, 0x1F, 0x008B, 0xFFFF, 0x0404);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0080, 0x0600, 0x0600);
   lan8672ModifyMmdReg(interface, 0x1F, 0x00F1, 0x7F00, 0x2400);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0096, 0x2000, 0x2000);
   lan8672ModifyMmdReg(interface, 0x1F, 0x0099, 0xFFFF, 0x7F80);

   //Perform custom configuration
   lan8672InitHook(interface);

   //Force the TCP/IP stack to poll the link state at startup
   interface->phyEvent = TRUE;
   //Notify the TCP/IP stack of the event
   osSetEvent(&interface->netContext->event);

   //Successful initialization
   return NO_ERROR;
}


/**
 * @brief LAN8672 custom configuration
 * @param[in] interface Underlying network interface
 **/

__weak_func void lan8672InitHook(NetInterface *interface)
{
#if (LAN8672_PLCA_SUPPORT == ENABLED)
   //Set PLCA burst
   lan8672WriteMmdReg(interface, LAN8672_PLCA_BURST,
      LAN8672_PLCA_BURST_MAXBC_DISABLED | LAN8672_PLCA_BURST_BTMR_DEFAULT);

   //Set PLCA node count and local ID
   lan8672WriteMmdReg(interface, LAN8672_PLCA_CTRL1,
      ((LAN8672_NODE_COUNT << 8) & LAN8672_PLCA_CTRL1_NCNT) |
      (LAN8672_LOCAL_ID & LAN8672_PLCA_CTRL1_ID));

   //Enable PLCA
   lan8672WriteMmdReg(interface, LAN8672_PLCA_CTRL0, LAN8672_PLCA_CTRL0_EN);
#else
   //Disable PLCA
   lan8672WriteMmdReg(interface, LAN8672_PLCA_CTRL0, 0);
#endif
}


/**
 * @brief LAN8672 timer handler
 * @param[in] interface Underlying network interface
 **/

void lan8672Tick(NetInterface *interface)
{
   uint16_t value;
   bool_t linkState;

   //No external interrupt line driver?
   if(interface->extIntDriver == NULL)
   {
#if (LAN8672_PLCA_SUPPORT == ENABLED)
      //Read PLCA status register
      value = lan8672ReadMmdReg(interface, LAN8672_PLCA_STS);

      //The PST field indicates that the PLCA reconciliation sublayer is active
      //and a BEACON is being regularly transmitted or received
      linkState = (value & LAN8672_PLCA_STS_PST) ? TRUE : FALSE;
#else
      //Link status indication is not supported
      linkState = TRUE;
#endif

      //Link up event?
      if(linkState && !interface->linkState)
      {
         //Set event flag
         interface->phyEvent = TRUE;
         //Notify the TCP/IP stack of the event
         osSetEvent(&interface->netContext->event);
      }
      //Link down event?
      else if(!linkState && interface->linkState)
      {
         //Set event flag
         interface->phyEvent = TRUE;
         //Notify the TCP/IP stack of the event
         osSetEvent(&interface->netContext->event);
      }
   }
}


/**
 * @brief Enable interrupts
 * @param[in] interface Underlying network interface
 **/

void lan8672EnableIrq(NetInterface *interface)
{
   //Enable PHY transceiver interrupts
   if(interface->extIntDriver != NULL)
   {
      interface->extIntDriver->enableIrq();
   }
}


/**
 * @brief Disable interrupts
 * @param[in] interface Underlying network interface
 **/

void lan8672DisableIrq(NetInterface *interface)
{
   //Disable PHY transceiver interrupts
   if(interface->extIntDriver != NULL)
   {
      interface->extIntDriver->disableIrq();
   }
}


/**
 * @brief LAN8672 event handler
 * @param[in] interface Underlying network interface
 **/

void lan8672EventHandler(NetInterface *interface)
{
   uint16_t value;
   bool_t linkState;

#if (LAN8672_PLCA_SUPPORT == ENABLED)
   //Read PLCA status register
   value = lan8672ReadMmdReg(interface, LAN8672_PLCA_STS);

   //The PST field indicates that the PLCA reconciliation sublayer is active
   //and a BEACON is being regularly transmitted or received
   linkState = (value & LAN8672_PLCA_STS_PST) ? TRUE : FALSE;
#else
   //Link status indication is not supported
   linkState = TRUE;
#endif

   //Check link state
   if(linkState)
   {
      //The PHY is only able to operate in 10 Mbps mode
      interface->linkSpeed = NIC_LINK_SPEED_10MBPS;
      interface->duplexMode = NIC_HALF_DUPLEX_MODE;

      //Adjust MAC configuration parameters for proper operation
      interface->nicDriver->updateMacConfig(interface);

      //Update link state
      interface->linkState = TRUE;
   }
   else
   {
      //Update link state
      interface->linkState = FALSE;
   }

   //Process link state change event
   nicNotifyLinkChange(interface);
}


/**
 * @brief Write PHY register
 * @param[in] interface Underlying network interface
 * @param[in] address PHY register address
 * @param[in] data Register value
 **/

void lan8672WritePhyReg(NetInterface *interface, uint8_t address,
   uint16_t data)
{
   //Write the specified PHY register
   if(interface->smiDriver != NULL)
   {
      interface->smiDriver->writePhyReg(SMI_OPCODE_WRITE,
         interface->phyAddr, address, data);
   }
   else
   {
      interface->nicDriver->writePhyReg(SMI_OPCODE_WRITE,
         interface->phyAddr, address, data);
   }
}


/**
 * @brief Read PHY register
 * @param[in] interface Underlying network interface
 * @param[in] address PHY register address
 * @return Register value
 **/

uint16_t lan8672ReadPhyReg(NetInterface *interface, uint8_t address)
{
   uint16_t data;

   //Read the specified PHY register
   if(interface->smiDriver != NULL)
   {
      data = interface->smiDriver->readPhyReg(SMI_OPCODE_READ,
         interface->phyAddr, address);
   }
   else
   {
      data = interface->nicDriver->readPhyReg(SMI_OPCODE_READ,
         interface->phyAddr, address);
   }

   //Return the value of the PHY register
   return data;
}


/**
 * @brief Dump PHY registers for debugging purpose
 * @param[in] interface Underlying network interface
 **/

void lan8672DumpPhyReg(NetInterface *interface)
{
   uint8_t i;

   //Loop through PHY registers
   for(i = 0; i < 32; i++)
   {
      //Display current PHY register
      TRACE_DEBUG("%02" PRIu8 ": 0x%04" PRIX16 "\r\n", i,
         lan8672ReadPhyReg(interface, i));
   }

   //Terminate with a line feed
   TRACE_DEBUG("\r\n");
}


/**
 * @brief Write MMD register
 * @param[in] interface Underlying network interface
 * @param[in] devAddr Device address
 * @param[in] regAddr Register address
 * @param[in] data MMD register value
 **/

void lan8672WriteMmdReg(NetInterface *interface, uint8_t devAddr,
   uint16_t regAddr, uint16_t data)
{
   //Select register operation
   lan8672WritePhyReg(interface, LAN8672_MMDCTRL,
      LAN8672_MMDCTRL_FNCTN_ADDR | (devAddr & LAN8672_MMDCTRL_DEVAD));

   //Write MMD register address
   lan8672WritePhyReg(interface, LAN8672_MMDAD, regAddr);

   //Select data operation
   lan8672WritePhyReg(interface, LAN8672_MMDCTRL,
      LAN8672_MMDCTRL_FNCTN_DATA_NO_POST_INC | (devAddr & LAN8672_MMDCTRL_DEVAD));

   //Write the content of the MMD register
   lan8672WritePhyReg(interface, LAN8672_MMDAD, data);
}


/**
 * @brief Read MMD register
 * @param[in] interface Underlying network interface
 * @param[in] devAddr Device address
 * @param[in] regAddr Register address
 * @return MMD register value
 **/

uint16_t lan8672ReadMmdReg(NetInterface *interface, uint8_t devAddr,
   uint16_t regAddr)
{
   //Select register operation
   lan8672WritePhyReg(interface, LAN8672_MMDCTRL,
      LAN8672_MMDCTRL_FNCTN_ADDR | (devAddr & LAN8672_MMDCTRL_DEVAD));

   //Write MMD register address
   lan8672WritePhyReg(interface, LAN8672_MMDAD, regAddr);

   //Select data operation
   lan8672WritePhyReg(interface, LAN8672_MMDCTRL,
      LAN8672_MMDCTRL_FNCTN_DATA_NO_POST_INC | (devAddr & LAN8672_MMDCTRL_DEVAD));

   //Read the content of the MMD register
   return lan8672ReadPhyReg(interface, LAN8672_MMDAD);
}


/**
 * @brief Modify MMD register
 * @param[in] interface Underlying network interface
 * @param[in] devAddr Device address
 * @param[in] regAddr Register address
 * @param[in] mask 16-bit mask
 * @param[in] data 16-bit value
 **/

void lan8672ModifyMmdReg(NetInterface *interface, uint8_t devAddr,
   uint16_t regAddr, uint16_t mask, uint16_t data)
{
   uint16_t value;

   //Read the current value of the MMD register
   value = lan8672ReadMmdReg(interface, devAddr, regAddr);
   //Modify register value
   value = (value & ~mask) | data;
   //Write the modified value back to the MMD register
   lan8672WriteMmdReg(interface, devAddr, regAddr, value);
}
