/* Copyright 2014 Samsung Electronics Co., 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.
 */

#ifdef __TARGET_MCU

#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wpedantic"
#pragma GCC diagnostic ignored "-Wsign-conversion"
#include "stm32f4xx.h"
#include "stm32f4xx_gpio.h"
#include "stm32f4xx_rcc.h"
#pragma GCC diagnostic pop

#define LED_GREEN      12
#define LED_ORANGE     13
#define LED_RED        14
#define LED_BLUE       15
#endif

#include "generated.h"
#include "globals.h"
#include "interpreter.h"
#include "jerry-libc.h"
#include "lexer.h"
#include "parser.h"
#include "serializer.h"

#define MAX_STRINGS 100
#define MAX_NUMS 25

static void
jerry_run( const char *script_source,
           size_t script_source_size __unused)
{
  const char *strings[MAX_STRINGS];
  int nums[MAX_NUMS];
  uint8_t strings_num, nums_count;
  uint8_t offset;

  mem_init();

  TODO( Consider using script_source_size in lexer to check buffer boundaries );

  lexer_init( script_source);

  lexer_run_first_pass();

  strings_num = lexer_get_strings (strings);
  nums_count = lexer_get_nums (nums);
  lexer_adjust_num_ids ();

  offset = serializer_dump_strings (strings, strings_num);
  serializer_dump_nums (nums, nums_count, offset, strings_num);

  parser_init ();
  parser_parse_program ();

  //gen_bytecode (generated_source);
  //gen_bytecode ();
  //run_int ();
} /* jerry_run */

#ifdef __HOST
static uint8_t source_buffer[ JERRY_SOURCE_BUFFER_SIZE ];

static const char*
read_source( const char *script_file_name,
             size_t *out_source_size_p)
{
  _FILE *file = __fopen (script_file_name, "r");

  if (file == NULL)
    {
      jerry_exit (ERR_IO);
    }

  int fseek_status = __fseek( file, 0, __SEEK_END);

  if ( fseek_status != 0 )
    {
      jerry_exit (ERR_IO);
    }

  long script_len = __ftell( file);

  if ( script_len < 0 )
    {
      jerry_exit (ERR_IO);
    }

  __rewind( file);

  const size_t source_size = (size_t)script_len;
  size_t bytes_read = 0;
 
  while ( bytes_read < source_size )
    {
      bytes_read += __fread( source_buffer, 1, source_size, file);

      if ( __ferror( file) != 0 )
        {
          jerry_exit (ERR_IO);
        }
    }

  __fclose( file);

  *out_source_size_p = source_size;
  return (const char*)source_buffer;
}

int
main (int argc __unused,
      char **argv __unused)
{
  const char *file_name = NULL;

  if (argc > 2)
    {
      jerry_exit (ERR_SEVERAL_FILES);
    }
  else if (argc == 2)
    {
      file_name = argv[1];
    }
  else
    {
      jerry_exit (ERR_NO_FILES);
    }
 
  size_t source_size;
  const char *source_p = read_source( file_name, &source_size);

  jerry_run( source_p,
             source_size);

  return 0;
}
#elif !defined(__HOST) && defined(__TARGET_MCU)
void fake_exit(void);

void
fake_exit (void)
{
  uint32_t pin = LED_RED;
  uint32_t mode = (uint32_t)GPIO_Mode_OUT << (pin * 2);
  uint32_t speed = (uint32_t)GPIO_Speed_100MHz << (pin * 2);
  uint32_t type = (uint32_t)GPIO_OType_PP << pin;
  uint32_t pullup = (uint32_t)GPIO_PuPd_NOPULL << (pin * 2);
  //
  //  Initialise the peripheral clock.
  //
  RCC->AHB1ENR |= RCC_AHB1Periph_GPIOD;
  //
  //  Initilaise the GPIO port.
  //
  volatile GPIO_TypeDef* gpio = GPIOD;

  gpio->MODER |= mode;
  gpio->OSPEEDR |= speed;
  gpio->OTYPER |= type;
  gpio->PUPDR |= pullup;
  //
  //  Toggle the selected LED indefinitely.
  //
  int index;
  
  // SOS
  
  int dot = 600000;
  int dash = dot * 3;
  
  while (1)
  {
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dot; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dot; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dot; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dash; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dash; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dash; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dot; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dot; index++); gpio->BSRRH = (uint16_t) (1 << pin); for (index = 0; index < dash; index++);
    gpio->BSRRL = (uint16_t) (1 << pin); for (index = 0; index < dot; index++); gpio->BSRRH = (uint16_t) (1 << pin);
    
    for (index = 0; index < dash * 7; index++);
  }
}

int
main(void)
{
  const char *source_p = generated_source;
  const size_t source_size = sizeof(generated_source);

  jerry_run( source_p,
             source_size);

  fake_exit();

  JERRY_UNREACHABLE();
}
#else /* !__HOST && !__TARGET_MCU */
# error "!__HOST && !__TARGET_MCU"
#endif /* !__HOST && !__TARGET_MCU */