/* ply-scan.c - lexical scanner
 *
 * Copyright (C) 2009 Charlie Brej <cbrej@cs.man.ac.uk>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 * 02111-1307, USA.
 *
 * Written by: Charlie Brej <cbrej@cs.man.ac.uk>
 */
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <assert.h>
#include <stdbool.h>
#include <unistd.h>
#include <string.h>

#include "ply-bitarray.h"
#include "script-scan.h"

#define COLUMN_START_INDEX 0

static script_scan_t *script_scan_new (void)
{
  unsigned char *chars;
  script_scan_t *scan = calloc (1, sizeof (script_scan_t));

  scan->tokens = NULL;
  scan->tokencount = 0;
  scan->cur_char = '\0';
  scan->line_index = 1;                 /* According to Nedit the first line is 1 but first column is 0 */
  scan->column_index = COLUMN_START_INDEX;

  scan->identifier_1st_char = ply_bitarray_new (256);
  scan->identifier_nth_char = ply_bitarray_new (256);

  for (chars =
        (unsigned char *) "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_";
       *chars;
       chars++)
    ply_bitarray_set (scan->identifier_1st_char, *chars);
  for (chars =
         (unsigned char *) "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_0123456789";
       *chars;
       chars++)
    ply_bitarray_set (scan->identifier_nth_char, *chars);
  return scan;
}

script_scan_t *script_scan_file (const char *filename)
{
  int fd = open (filename, O_RDONLY);
  if (fd < 0) return NULL;
  script_scan_t *scan = script_scan_new ();
  scan->name = strdup (filename);
  scan->source.fd = fd;
  scan->source_is_file = true;
  script_scan_get_next_char (scan);
  return scan;
}

script_scan_t *script_scan_string (const char *string,
                                   const char *name)
{
  script_scan_t *scan = script_scan_new ();
  scan->name = strdup (name);
  scan->source.string = string;
  scan->source_is_file = false;
  script_scan_get_next_char (scan);
  return scan;
}

void script_scan_token_clean (script_scan_token_t *token)
{
  switch (token->type)
    {
      case SCRIPT_SCAN_TOKEN_TYPE_EMPTY:
      case SCRIPT_SCAN_TOKEN_TYPE_EOF:
      case SCRIPT_SCAN_TOKEN_TYPE_INTEGER:
      case SCRIPT_SCAN_TOKEN_TYPE_FLOAT:
      case SCRIPT_SCAN_TOKEN_TYPE_SYMBOL:
        break;
      case SCRIPT_SCAN_TOKEN_TYPE_IDENTIFIER:
      case SCRIPT_SCAN_TOKEN_TYPE_STRING:
      case SCRIPT_SCAN_TOKEN_TYPE_COMMENT:
      case SCRIPT_SCAN_TOKEN_TYPE_ERROR:
        free (token->data.string);
        break;
    }
  token->type = SCRIPT_SCAN_TOKEN_TYPE_EMPTY;
  token->whitespace = 0;
}

void script_scan_free (script_scan_t *scan)
{
  int i;
  if (scan->source_is_file) close (scan->source.fd);
  for (i = 0; i < scan->tokencount; i++)
    {
      script_scan_token_clean (scan->tokens[i]);
      free (scan->tokens[i]);
    }
  ply_bitarray_free (scan->identifier_1st_char);
  ply_bitarray_free (scan->identifier_nth_char);
  free (scan->name);
  free (scan->tokens);
  free (scan);
}

unsigned char script_scan_get_current_char (script_scan_t *scan)
{
  return scan->cur_char;
}

unsigned char script_scan_get_next_char (script_scan_t *scan)
{
  if (scan->cur_char == '\n')
    {
      scan->line_index++;
      scan->column_index = COLUMN_START_INDEX;
    }
  else if (scan->cur_char != '\0')
    scan->column_index++;
  if (scan->source_is_file)
    {
      int got = read (scan->source.fd, &scan->cur_char, 1);
      if (!got) scan->cur_char = 0;                    /* FIXME a better way of doing EOF etc */
    }
  else
    {
      scan->cur_char = *scan->source.string;
      if (scan->cur_char) scan->source.string++;
    }
  return scan->cur_char;
}

void script_scan_read_next_token (script_scan_t       *scan,
                               script_scan_token_t *token)
{
  unsigned char curchar = script_scan_get_current_char (scan);     /* FIXME Double check these unsigned chars are ok */
  unsigned char nextchar;

  token->whitespace = 0;
  while (true)
    {
      if (curchar == ' ')
        {
          curchar = script_scan_get_next_char (scan);
          token->whitespace++;
          continue;
        }                                                                                           /* FIXME restrcuture */
      if (curchar == '\n')
        {
          curchar = script_scan_get_next_char (scan);
          token->whitespace++;
          continue;
        }
      if (curchar == '\t')
        {
          curchar = script_scan_get_next_char (scan);
          token->whitespace++;
          continue;
        }
      break;
    }
  token->location.line_index = scan->line_index;
  token->location.column_index = scan->column_index;
  token->location.name = scan->name;
  nextchar = script_scan_get_next_char (scan);

  if (ply_bitarray_lookup (scan->identifier_1st_char, curchar))
    {
      int index = 1;
      token->type = SCRIPT_SCAN_TOKEN_TYPE_IDENTIFIER;
      token->data.string =  malloc (2 * sizeof (char));
      token->data.string[0] = curchar;
      token->data.string[1] = '\0';
      curchar = nextchar;
      while (ply_bitarray_lookup (scan->identifier_nth_char, curchar))
        {
          token->data.string = realloc (token->data.string,
                                        (index + 2) * sizeof (char));
          token->data.string[index] = curchar;
          token->data.string[index + 1] = '\0';
          index++;
          curchar = script_scan_get_next_char (scan);
        }
      return;
    }
  if ((curchar >= '0') && (curchar <= '9'))
    {
      long long int int_value = curchar - '0';
      curchar = nextchar;
      while (curchar >= '0' && curchar <= '9')
        {
          int_value *= 10;
          int_value += curchar - '0';
          curchar = script_scan_get_next_char (scan);
        }

      if (curchar == '.')
        {
          double floatpoint = int_value;
          double scalar = 1;

          curchar = script_scan_get_next_char (scan);
          while (curchar >= '0' && curchar <= '9')
            {
              scalar /= 10;
              floatpoint += scalar * (curchar - '0');
              curchar = script_scan_get_next_char (scan);
            }
          token->type = SCRIPT_SCAN_TOKEN_TYPE_FLOAT;
          token->data.floatpoint = floatpoint;
        }
      else
        {
          token->type = SCRIPT_SCAN_TOKEN_TYPE_INTEGER;
          token->data.integer = int_value;
        }
      return;
    }
  if (!curchar)
    {
      token->type = SCRIPT_SCAN_TOKEN_TYPE_EOF;
      return;
    }
  if (curchar == '\"')
    {
      token->type = SCRIPT_SCAN_TOKEN_TYPE_STRING;
      int index = 0;
      token->data.string = malloc (sizeof (char));
      token->data.string[0] = '\0';
      curchar = nextchar;

      while (curchar != '\"')
        {
          if (curchar == '\0')
            {
              token->data.string = strdup("End of file before end of string");
              token->type = SCRIPT_SCAN_TOKEN_TYPE_ERROR;
              return;
            }
          if (curchar == '\n')
            {
              token->data.string = strdup("Line terminator before end of string");
              token->type = SCRIPT_SCAN_TOKEN_TYPE_ERROR;
              return;
            }
          if (curchar == '\\')
            {
              curchar = script_scan_get_next_char (scan);
              switch (curchar)
                {
                  case 'n':
                    curchar = '\n';
                    break;

                  case '0':
                    curchar = '\0';
                    break;

                  case '"':
                    curchar = '\"';
                    break;

                  default:
                    break;
                }
            }
          token->data.string = realloc (token->data.string,
                                        (index + 2) * sizeof (char));
          token->data.string[index] = curchar;
          token->data.string[index + 1] = '\0';
          index++;
          curchar = script_scan_get_next_char (scan);
        }
      script_scan_get_next_char (scan);
      return;
    }
  {
    bool linecomment = false;
    if (curchar == '#') linecomment = true;
    if ((curchar == '/') && (nextchar == '/'))
      {
        linecomment = true;
        nextchar = script_scan_get_next_char (scan);
      }
    if (linecomment)
      {
        int index = 0;
        token->data.string = malloc (sizeof (char));
        token->data.string[0] = '\0';
        curchar = nextchar;
        for (curchar = nextchar;
             curchar != '\n' && curchar != '\0';
             curchar = script_scan_get_next_char (scan))
          {
            token->data.string = realloc (token->data.string,
                                          (index + 2) * sizeof (char));
            token->data.string[index] = curchar;
            token->data.string[index + 1] = '\0';
            index++;
          }
        token->type = SCRIPT_SCAN_TOKEN_TYPE_COMMENT;
        return;
      }
  }

  if ((curchar == '/') && (nextchar == '*'))
    {
      int index = 0;
      int depth = 1;
      token->data.string = malloc (sizeof (char));
      token->data.string[0] = '\0';
      curchar = script_scan_get_next_char (scan);
      nextchar = script_scan_get_next_char (scan);

      while (true)
        {
          if (nextchar == '\0')
            {
              free (token->data.string);
              token->data.string = strdup("End of file before end of comment");
              token->type = SCRIPT_SCAN_TOKEN_TYPE_ERROR;
              return;
            }
          if ((curchar == '/') && (nextchar == '*'))
            depth++;
          if ((curchar == '*') && (nextchar == '/'))
            {
              depth--;
              if (!depth) break;
            }
          token->data.string = realloc (token->data.string,
                                        (index + 2) * sizeof (char));
          token->data.string[index] = curchar;
          token->data.string[index + 1] = '\0';
          index++;
          curchar = nextchar;
          nextchar = script_scan_get_next_char (scan);
        }
      script_scan_get_next_char (scan);
      token->type = SCRIPT_SCAN_TOKEN_TYPE_COMMENT;
      return;
    }
  /* all other */
  token->type = SCRIPT_SCAN_TOKEN_TYPE_SYMBOL;
  token->data.symbol = curchar;
  return;
}

static script_scan_token_t *script_scan_peek_token (script_scan_t *scan,
                                              int         n)
{
  int i;

  if (scan->tokencount <= n)
    {
      scan->tokens =
        realloc (scan->tokens, (n + 1) * sizeof (script_scan_token_t *));
      for (i = scan->tokencount; i <= n; i++)                                   /* FIXME warning about possibely inifnite loop */
        {
          scan->tokens[i] = malloc (sizeof (script_scan_token_t));
          scan->tokens[i]->type = SCRIPT_SCAN_TOKEN_TYPE_EMPTY;
        }
      scan->tokencount = n + 1;
    }
  if (scan->tokens[n]->type == SCRIPT_SCAN_TOKEN_TYPE_EMPTY)
    {
      if ((n > 0) && (scan->tokens[n - 1]->type == SCRIPT_SCAN_TOKEN_TYPE_EMPTY))
        script_scan_peek_token (scan, n - 1);
      do
        {
          script_scan_token_clean (scan->tokens[n]);
          script_scan_read_next_token (scan, scan->tokens[n]);                     /* FIXME if skipping comments, add whitespace to next token */
        }
      while (scan->tokens[n]->type == SCRIPT_SCAN_TOKEN_TYPE_COMMENT);             /* FIXME optionally pass comments back */
    }
  return scan->tokens[n];
}

script_scan_token_t *script_scan_get_next_token (script_scan_t *scan)
{
  int i;
  script_scan_token_clean (scan->tokens[0]);
  for (i = 0; i < (scan->tokencount - 1); i++)
    *scan->tokens[i] = *scan->tokens[i + 1];
  scan->tokens[(scan->tokencount - 1)]->type = SCRIPT_SCAN_TOKEN_TYPE_EMPTY;
  return script_scan_peek_token (scan, 0);
}

script_scan_token_t *script_scan_get_current_token (script_scan_t *scan)
{
  return script_scan_peek_token (scan, 0);
}

script_scan_token_t *script_scan_peek_next_token (script_scan_t *scan)
{
  return script_scan_peek_token (scan, 1);
}