/******************************************************************************
 * Copyright (c) 2011 Texas Instruments Incorporated - http://www.ti.com
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions
 *  are met:
 *
 *    Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 *    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.
 *
 *    Neither the name of Texas Instruments Incorporated nor the names of
 *    its contributors may be used to endorse or promote products derived
 *    from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 *  "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 COPYRIGHT
 *  OWNER OR CONTRIBUTORS 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.
 *
 *****************************************************************************/

/**************************************************************************************
 * FILE PURPOSE: EEPROM writer utility
 **************************************************************************************
 * FILE NAME: eepromwriter.c
 *
 * DESCRIPTION: A simple EEPROM writer using platform lib APIs to program the EEPROM
 *              with an image that the ibl can read.
 *
 ***************************************************************************************/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "platform.h"
#include "types.h"

/* EEPROM writer utility version */
char version[] = "01.00.00.01";

/* The input file name is hard coded */
char *input_file = "eepromwriter_input.txt";

/* Parameters defined in the input_file */
#define FILE_NAME      "file_name"
#define BUS_ADDR       "bus_addr"
#define START_ADDR     "start_addr"

/* Memory address to store the write data */
#define WRITE_DATA_ADDRESS     0x80000000

/******************************************************************************
 * Structure:   EEPROM_WRITER_INFO_T
 *
 *              EEPROM writer control data. This structure should be filled in
 *              by the user before running
 ******************************************************************************/
#define MAX_LINE_LENGTH 40
typedef struct EEPROM_WRITER_INFO_tag
{
    char        file_name[MAX_LINE_LENGTH]; /* CCS format data file name */
    uint32_t    busAddr;                    /* Slave bus address */
    uint32_t    startAddr;                  /* Start address to write */
    uint32_t    deviceTotalBytes;           /* Total number of bytes available in the device */
    uint32_t    writeBytes;                 /* Number of bytes to be written into the device */
    uint8_t     *writeData;                 /* Address to store the write data */
    uint8_t     *readData;                  /* Address to store the read data */

} EEPROM_WRITER_INFO_T;

EEPROM_WRITER_INFO_T eepromWriterInfo;

/******************************************************************************
 * Function:    print_platform_errno
 ******************************************************************************/
void
print_platform_errno
(
    void
)
{
    printf ("Returned platform error number is %d\n", platform_errno);
}

/******************************************************************************
 * Function:    flash_eeprom
 *
 *              Write the data from memory to EEPROM.
 *              Returns TRUE if the data is written successfully
 *                      FALSE if the data write fails
 ******************************************************************************/
Bool
flash_eeprom
(
    PLATFORM_DEVICE_info    *p_device
)
{
    printf ("Writing %d bytes from DSP memory address 0x%08x to EEPROM bus address 0x%04x starting from device address 0x%04x ...\n",
            eepromWriterInfo.writeBytes,
            (uint32_t)eepromWriterInfo.writeData,
            eepromWriterInfo.busAddr,
            eepromWriterInfo.startAddr);

    if(platform_device_write(p_device->handle, eepromWriterInfo.startAddr, eepromWriterInfo.writeData, eepromWriterInfo.writeBytes) != Platform_EOK)
    {
        print_platform_errno();
        return FALSE;
    }

    return TRUE;
}

/******************************************************************************
 * Function:    flash_verify
 *
 *              Read back the data file that was just flashed.
 *              Returns TRUE if the data verified correctly.
 *                      FALSE if the data verification failed
 ******************************************************************************/
Bool
flash_verify
(
    PLATFORM_DEVICE_info    *p_device
)
{
    uint32_t    i;

    printf ("Reading %d bytes from EEPROM bus address 0x%04x to DSP memory address 0x%08x starting from device address 0x%04x ...\n",
            eepromWriterInfo.writeBytes,
            eepromWriterInfo.busAddr,
            (uint32_t)eepromWriterInfo.readData,
            eepromWriterInfo.startAddr);

    if(platform_device_read(p_device->handle, eepromWriterInfo.startAddr, eepromWriterInfo.readData, eepromWriterInfo.writeBytes) != Platform_EOK)
    {
        print_platform_errno();
        return FALSE;
    }

    printf ("Verifying data read ...\n");

    for (i = 0; i < eepromWriterInfo.writeBytes; i++)
    {
        if (eepromWriterInfo.readData[i] != eepromWriterInfo.writeData[i])
        {
            printf ("Failure at byte %d, expected 0x%08x, read 0x%08x\n", i, eepromWriterInfo.writeData[i], eepromWriterInfo.readData[i]);
            return (FALSE);
        }
    }

    return (TRUE);
}

/******************************************************************************
 * Function:    parse_input_file
 ******************************************************************************/
static Bool
parse_input_file
(
    FILE*               fp
)
{
    char line[MAX_LINE_LENGTH];
    char tokens[] = " :=;\n";
    char *key, *data;

    memset(line, 0, MAX_LINE_LENGTH);

    fgets(line, MAX_LINE_LENGTH, fp);
    key  = (char *)strtok(line, tokens);
    data = (char *)strtok(NULL, tokens);

    if(strlen(data) == 0)
    {
       return FALSE;
    }

    if(strcmp(key, FILE_NAME) != 0)
    {
        return FALSE;
    }

    strcpy (eepromWriterInfo.file_name, data);

    fgets(line, MAX_LINE_LENGTH, fp);
    key  = (char *)strtok(line, tokens);
    data = (char *)strtok(NULL, tokens);

    if(strlen(data) == 0)
    {
       return FALSE;
    }

    if(strcmp(key, BUS_ADDR) != 0)
    {
        return FALSE;
    }

    eepromWriterInfo.busAddr = (uint32_t)atoi(data);

    fgets(line, MAX_LINE_LENGTH, fp);
    key  = (char *)strtok(line, tokens);
    data = (char *)strtok(NULL, tokens);

    if(strlen(data) == 0)
    {
       return FALSE;
    }

    if(strcmp(key, START_ADDR) != 0)
    {
        return FALSE;
    }

    eepromWriterInfo.startAddr = (uint32_t)atoi(data);

    return TRUE;
}

/******************************************************************************
 * Function:    parse_ccs_file
 ******************************************************************************/
static Bool
parse_ccs_file
(
    FILE*               fp
)
{
    char        line[MAX_LINE_LENGTH];
    char        *pEnd;
    uint32_t    data_len, write_addr;

    memset(line, 0, MAX_LINE_LENGTH);

    fgets(line, MAX_LINE_LENGTH, fp);

    /* Read the write address from the CCS header */
    strtoul (line,&pEnd,16);
    strtoul (pEnd,&pEnd,16);
    write_addr = strtoul (pEnd,&pEnd,16);
    strtoul (pEnd,&pEnd,16);

    /* Read the data length */
    data_len = (strtoul (pEnd,NULL,16)) * 4;
    if (data_len > (eepromWriterInfo.deviceTotalBytes - eepromWriterInfo.startAddr))
    {
        printf ("The data file is too big to fit into the device.\n");
        return FALSE;
    }

    eepromWriterInfo.writeBytes = data_len;
    if (write_addr != WRITE_DATA_ADDRESS)
        write_addr = WRITE_DATA_ADDRESS;
    eepromWriterInfo.writeData  = (uint8_t *)write_addr;
    eepromWriterInfo.readData   = (uint8_t *)(write_addr + eepromWriterInfo.deviceTotalBytes);

    return TRUE;
}

/******************************************************************************
 * Function:    main
 ******************************************************************************/
void main ()
{
    FILE                    *fp;
    platform_init_flags     init_flags;
    platform_init_config    init_config;
    PLATFORM_DEVICE_info    *p_device;
    Bool                    ret;

    printf("EEPROM Writer Utility Version %s\n\n", version);

    fp = fopen(input_file, "r");
    if (fp == NULL)
    {
        printf("Error in opening %s input file\n", input_file);
        return;
    }

    ret = parse_input_file(fp);
    fclose (fp);

    if (ret == FALSE)
    {
        printf("Error in parsing %s input file\n", input_file);
        return;
    }

    /* Initialize main Platform lib */
    memset(&init_config, 0, sizeof(platform_init_config));
    memset(&init_flags, 0x01, sizeof(platform_init_flags));
    init_flags.phy = 0;

    if (platform_init(&init_flags, &init_config) != Platform_EOK)
    {
        printf ("Platform init failed!\n");
        print_platform_errno();
        return;
    }

    p_device = platform_device_open(eepromWriterInfo.busAddr, 0);
    if (p_device == NULL)
    {
        printf ("EEPROM device open failed!\n");
        print_platform_errno();
        return;
    }
    eepromWriterInfo.deviceTotalBytes = p_device->block_count * p_device->page_count * p_device->page_size;

    /* Open and find the length of the data file */
    fp = fopen (eepromWriterInfo.file_name, "rb");
    if (fp == NULL)
    {
        printf ("Failed to open file %s\n", eepromWriterInfo.file_name);
        print_platform_errno();
        platform_device_close(p_device->handle);
        return;
    }

    /* Parse the CCS format file */
    ret = parse_ccs_file(fp);
    fclose (fp);
    if (ret == FALSE)
    {
        printf("Error in parsing CCS file %s\n", eepromWriterInfo.file_name);
        platform_device_close(p_device->handle);
        return;
    }

    /* Write the EEPROM */
    if (flash_eeprom (p_device) == FALSE)
    {
        printf ("EEPROM write failed\n");
        platform_device_close(p_device->handle);
        return;
    }

    /* verify the flash */
    if(flash_verify (p_device) == FALSE)
    {
        printf ("EEPROM read verify failed\n");
        platform_device_close(p_device->handle);
        return;
    }


    printf ("EEPROM programming completed successfully\n");

    platform_device_close(p_device->handle);

    return;
}