#include <assert.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <typeinfo>

#include "terminal.hpp"
#include "swrite.hpp"

using namespace Terminal;

Emulator::Emulator( size_t s_width, size_t s_height )
  : parser(), fb( s_width, s_height ), as(), terminal_to_host()
{}

std::string Emulator::input( char c, int actfd )
{
  terminal_to_host.clear();

  std::vector<Parser::Action *> vec = parser.input( c );

  for ( std::vector<Parser::Action *>::iterator i = vec.begin();
	i != vec.end();
	i++ ) {
    Parser::Action *act = *i;

    act->act_on_terminal( this );

    /* print out debugging information */
    if ( (actfd > 0) && ( !act->handled ) ) {
      char actsum[ 64 ];
      snprintf( actsum, 64, "%s%s ", act->str().c_str(), as.str().c_str() );
      swrite( actfd, actsum );
    }
    delete act;
  }

  /* the user is supposed to send this string to the host, as if typed */
  return terminal_to_host;
}

void Emulator::execute( Parser::Execute *act )
{
  assert( act->char_present );

  switch ( act->ch ) {
  case 0x0a: /* LF */
    fb.move_rows_autoscroll( 1 );
    act->handled = true;
    break;

  case 0x0d: /* CR */
    fb.ds.move_col( 0 );
    act->handled = true;
    break;
    
  case 0x08: /* BS */
    fb.ds.move_col( -1, true );
    act->handled = true;
    break;
  }
}

void Emulator::print( Parser::Print *act )
{
  assert( act->char_present );

  int chwidth = act->ch == L'\0' ? -1 : wcwidth( act->ch );

  Cell *this_cell = fb.get_cell();

  if ( !this_cell ) { /* zero-size framebuffer */
    return;
  }

  Cell *combining_cell = fb.get_combining_cell();

  switch ( chwidth ) {
  case 1: /* normal character */
  case 2: /* wide character */
    if ( fb.ds.next_print_will_wrap ) {
      fb.ds.move_col( 0 );
      fb.move_rows_autoscroll( 1 );
    }

    this_cell = fb.get_cell();

    this_cell->reset();
    this_cell->contents.push_back( act->ch );
    this_cell->width = chwidth;

    fb.claim_overlap( fb.ds.get_cursor_row(), fb.ds.get_cursor_col() );

    fb.ds.move_col( chwidth, true, true );

    act->handled = true;
    break;
  case 0: /* combining character */
    if ( combining_cell->contents.size() == 0 ) {
      /* cell starts with combining character */
      assert( this_cell == combining_cell );
      assert( combining_cell->width == 1 );
      combining_cell->fallback = true;
      fb.ds.move_col( 1, true, true );
    }

    if ( combining_cell->contents.size() < 16 ) { /* seems like a reasonable limit on combining characters */
      combining_cell->contents.push_back( act->ch );
    }
    act->handled = true;
    break;
  case -1: /* unprintable character */
    break;
  default:
    assert( false );
  }
}

void Emulator::CSI_dispatch( Parser::CSI_Dispatch *act )
{
  /* add final char to dispatch key */
  assert( act->char_present );
  Parser::Collect act2;
  act2.char_present = true;
  act2.ch = act->ch;
  as.collect( &act2 ); 

  std::string dispatch_chars = as.dispatch_chars;

  if ( dispatch_chars == "K" ) {
    CSI_EL();
    act->handled = true;
  } else if ( dispatch_chars == "J" ) {
    CSI_ED();
    act->handled = true;
  } else if ( (dispatch_chars == "A")
	      || (dispatch_chars == "B")
	      || (dispatch_chars == "C")
	      || (dispatch_chars == "D")
	      || (dispatch_chars == "H") 
	      || (dispatch_chars == "f") ) {
    CSI_cursormove();
    act->handled = true;
  } else if ( dispatch_chars == "c" ) {
    CSI_DA();
    act->handled = true;
  }
}

void Emulator::Esc_dispatch( Parser::Esc_Dispatch *act )
{
  /* add final char to dispatch key */
  assert( act->char_present );
  Parser::Collect act2;
  act2.char_present = true;
  act2.ch = act->ch;
  as.collect( &act2 ); 
  
  if ( as.dispatch_chars == "#8" ) {
    Esc_DECALN();
    act->handled = true;
  }
}

void Emulator::debug_printout( int fd )
{
  std::string screen;
  screen.append( "\033[H\033[2J" );

  for ( int y = 0; y < fb.ds.get_height(); y++ ) {
    for ( int x = 0; x < fb.ds.get_width(); x++ ) {
      char curmove[ 32 ];
      snprintf( curmove, 32, "\033[%d;%dH", y + 1, x + 1 );
      screen.append( curmove );
      Cell *cell = fb.get_cell( y, x );
      if ( cell->overlapping_cell ) continue;

      assert( (cell->overlapped_cells.size() + 1 == (size_t)cell->width)
	      || (x == fb.ds.get_width() - 1) );

      if ( cell->fallback ) {
	char utf8[ 8 ];
	snprintf( utf8, 8, "%lc", 0xA0 );
	screen.append( utf8 );
      }

      for ( std::vector<wchar_t>::iterator i = cell->contents.begin();
	    i != cell->contents.end();
	    i++ ) {
	char utf8[ 8 ];
	snprintf( utf8, 8, "%lc", *i );
	screen.append( utf8 );
      }
    }
  }

  char curmove[ 32 ];
  snprintf( curmove, 32, "\033[%d;%dH", fb.ds.get_cursor_row() + 1,
	    fb.ds.get_cursor_col() + 1 );
  screen.append( curmove );

  swrite( fd, screen.c_str() );
}