#include "keys.hpp"
#include "lisp.hpp"
#include <ctype.h>
#include "joy.hpp"
#include "jwindow.hpp"
#include "config.hpp"
#include "game.hpp"


extern window_manager *eh;
int key_players=0;
int morph_detail=MEDIUM_DETAIL;

struct player_keys
{
  int joy,left,right,up,down,b1,b2,b3,b4;
} ;

player_keys *key_map=NULL;

int binding_for_player(int player)
{
  char tmp[40];
  sprintf(tmp,"player%d",player);
  Cell *f=find_symbol(tmp);
  if (!NILP(f) && DEFINEDP(symbol_value(f)))
  {
    void *what=symbol_value(f);
    if (what==make_find_symbol("keyboard"))
      return 1;
    else if (what==make_find_symbol("joystick"))
      return 2;   
  }
  return 0;
}


int get_key_binding(char *dir, int i)
{
  char tmp[100],kn[50];
  sprintf(tmp,"player%d-%s",i,dir);
  Cell *f=find_symbol(tmp);
  if (NILP(f) || !DEFINEDP(symbol_value(f))) return 0;
  void *k=symbol_value(f);
  
  if (item_type(k)!=L_SYMBOL) return 0;


#ifdef SCADALISP
  strcpy(tmp,symbol_name(k));
#else
  strcpy(tmp,lstring_value(symbol_name(k)));
#endif

  for (char *c=tmp;*c;c++) 
  {
    *c=tolower(*c);
    if (*c=='_') *c=' ';   
  }
  for (int j=0;j<JK_MAX_KEY;j++)  
  {
    key_name(j,kn);
    for (char *c=kn;*c;c++) *c=tolower(*c);
    if (!strcmp(kn,tmp))
      return j;
  }
  return 0;
}

void get_key_bindings()
{
  if (key_map)
    jfree(key_map);
  key_map=NULL;

  for (key_players=0;binding_for_player(key_players+1);key_players++);
  if (key_players)
  {
    key_map=(player_keys *)jmalloc(sizeof(player_keys)*key_players,"key bindings");
    for (int i=0;i<key_players;i++)
    {
      key_map[i].joy=(binding_for_player(i+1)==2);
      if (!key_map[i].joy)
      {
				key_map[i].left=get_key_binding("left",i+1);
				key_map[i].right=get_key_binding("right",i+1);
				key_map[i].up=get_key_binding("up",i+1);
				key_map[i].down=get_key_binding("down",i+1);
				key_map[i].b4=get_key_binding("b4",i+1);
				key_map[i].b3=get_key_binding("b3",i+1);
				key_map[i].b2=get_key_binding("b2",i+1);
				key_map[i].b1=get_key_binding("b1",i+1);
      }

    }
  }
  else key_map=NULL;
}

#define is_pressed(x) the_game->key_down(x)

void get_movement(int player, int &x, int &y, int &b1, int &b2, int &b3, int &b4)
{
  if (player<key_players)
  {
    if (key_map[player].joy)
    {
      joy_status(b1,b2,b3,x,y);
      b3=(b1&&b2);
      b4=0;
    }
    else if (!eh)
    { x=y=b1=b2=b3=b4=0; }
    else
    {
      if (is_pressed(key_map[player].left))
        x=-1;
      else if (is_pressed(key_map[player].right))
        x=1;
      else x=0;

      if (is_pressed(key_map[player].up))
        y=-1;
      else if (is_pressed(key_map[player].down))
        y=1;
      else y=0;

      if (is_pressed(key_map[player].b1))
        b1=1;
      else b1=0;

      if (is_pressed(key_map[player].b2))
        b2=1;
      else b2=0;

      if (is_pressed(key_map[player].b3))
        b3=1;
      else b3=0;

      if (is_pressed(key_map[player].b4))
        b4=1;
      else b4=0;
    }
  } else
  {
    x=y=b1=b2=b3=0;
  }
}


void key_bindings(int player, int &left, int &right, int &up, int &down, int &b1, int &b2, int &b3, int &b4)
{

  left=key_map[player].left;
  right=key_map[player].right;
  up=key_map[player].up;
  down=key_map[player].down;
  b1=key_map[player].b1;
  b2=key_map[player].b2;
  b3=key_map[player].b3;
  b3=key_map[player].b4;
}


void config_cleanup()
{
  if (key_map)
    jfree(key_map);
}

int get_keycode(char *str)  // -1 means not a valid key code
{
  if (!str[0]) return -1;
  else if (!str[1]) return str[0];
  else
  {
    int j;
    char buf[20];
    for (j=256;j<JK_MAX_KEY;j++)  
    {
      key_name(j,buf);
      char *c=buf;
      for (;*c;c++) if (*c==' ') *c='_'; else *c=tolower(*c);
      if (strcmp(str,buf)==0) return j;
    }
  }
  return -1;
}