#include "..\inc\swilib.h"
#include "..\inc\cfg_items.h"
#include "conf_loader.h"
#include "..\inc\xtask_ipc.h"

#ifdef NEWSGOLD
#define USE_ONE_KEY
#endif

volatile int SHOW_LOCK;

CSM_DESC icsmd;
int (*old_icsm_onMessage)(CSM_RAM*,GBS_MSG*);
void (*old_icsm_onClose)(CSM_RAM*);

WSHDR *ws_nogui;

CSM_RAM *under_idle;

extern const int ACTIVE_KEY;
extern const int ACTIVE_KEY_STYLE;
extern const int RED_BUT_MODE;
extern const int ENA_LONG_PRESS;
extern const int ENA_LOCK;
extern int my_csm_id;

extern void show_csm(int csmid);

extern void kill_data(void *p, void (*func_p)(void *));

void ElfKiller(void)
{
  extern void *ELF_BEGIN;
  FreeWS(ws_nogui);
  kill_data(&ELF_BEGIN,(void (*)(void *))mfree_adr());
}

extern void do_gui(int, int);

// -1 - XTask GUI present
// 0 - XTask GUI absent
// 1 - IBUT longpressed, ready for exit
int mode;

// 0 - no press
// 1 - long press REDBUT
int mode_red;

// 0 - no press
// 1 - long press ENTER_BUTTON
// 2 - disable KEY_UP process
int mode_enter;

int my_keyhook(int submsg, int msg)
{
#ifdef NEWSGOLD
  void *icsm=FindCSMbyID(CSM_root()->idle_id);
  if ((submsg==RED_BUTTON)&&(RED_BUT_MODE))
  {
    if ((CSM_root()->csm_q->csm.last==icsm)||(IsCalling())) //(IsGuiOnTop(((int *)icsm)[DISPLACE_OF_IDLEGUI_ID/4]))
    {
      if (msg==KEY_UP)
      {
	if (mode_red!=2)
	{
	  mode_red=0;
	  return(2);
	}
      }
      mode_red=2; //Ложим на отпускания
    }
    else
    {
      if (msg==KEY_DOWN)
      {
	if (mode_red==1)
	{
	  mode_red=0;
	  return(0); //Long press, continue with REDB PRESS
	}
      }
      if (msg==KEY_UP)
      {
	if (mode_red)
	{
	  mode_red=0; //Release after longpress
	  return(0);
	}
	else
	//Release after short press
	{
          if (RED_BUT_MODE==1)
          {
            GBS_SendMessage(MMI_CEPID,KEY_DOWN,RIGHT_SOFT);
          }
          else
          {
            do_gui(1,0);
          }
	}
      }
      if (msg==LONG_PRESS)
      {
	mode_red=1;
	GBS_SendMessage(MMI_CEPID,KEY_DOWN,RED_BUTTON);
      }
      return(2);
    }
  }
#endif
  if (ACTIVE_KEY_STYLE==3){
    if (submsg!=ENTER_BUTTON) return(0);
    if (my_csm_id)
    {
      if (((CSM_RAM *)(CSM_root()->csm_q->csm.last))->id!=my_csm_id)
      {
        CloseCSM(my_csm_id);
      }
      return(0);
    }
    switch(msg)
    {
    case KEY_DOWN:
      if (mode_enter==2)
      {
      GBS_SendMessage(MMI_CEPID,KEY_UP,ENTER_BUTTON);
      return (0);
      }
      mode_enter=0;
      return (2);
    case KEY_UP:
      if (mode_enter==0)
      {
        mode_enter=2;
        GBS_SendMessage(MMI_CEPID,KEY_DOWN,ENTER_BUTTON);
        return (2);
      }
      if (mode_enter==2)
      {
        mode_enter=0;
        return (0);
      }
      mode_enter=0;
      return (2);      
    case LONG_PRESS:
      mode_enter=1;
      if (IsUnlocked()||ENA_LOCK)
      {
        do_gui(0,0);
      }
      mode=0;
      break;
    }
    return(2);
  }
    // * + # implementation
  if ((ACTIVE_KEY_STYLE==2) && !(my_csm_id)){
    if (msg==KEY_UP)
    {
      mode=0;
      return (0);
    }
    if (msg==KEY_DOWN)
    {
      switch (submsg)
      {
      case '*':
        mode=1;
        return (0);
      case '#':
        if (mode==1)
        {
          if (IsUnlocked()||ENA_LOCK)
            do_gui(0,0);
          else mode=0;
        }
        else return (0);
      }
    }
  };
  if (ACTIVE_KEY_STYLE-2<0){
    if (submsg!=ACTIVE_KEY) return(0);
    else{
       if (my_csm_id)
        {
         if (((CSM_RAM *)(CSM_root()->csm_q->csm.last))->id!=my_csm_id)
         {
           CloseCSM(my_csm_id);
         }
         if (msg==KEY_UP)
         {
           GBS_SendMessage(MMI_CEPID,KEY_DOWN,ENTER_BUTTON);
         }
         return(2);
       }
     switch(msg){
     case KEY_DOWN:
       mode=0;
       if (ACTIVE_KEY_STYLE==0) return(2); else return(0);
     case KEY_UP:
       if (mode==1){
         mode=0;
         if ((ACTIVE_KEY_STYLE==1) || (ENA_LONG_PRESS==3))
         {
           if (IsUnlocked()||ENA_LOCK){
           do_gui(0,0);
           return(2);
         }
         break;
         }
           else if (ENA_LONG_PRESS==2)
           {
             if (IsUnlocked()||ENA_LOCK){
             do_gui(1,0);
             return(2);
           }
           }
         break;
       }
       if ((mode==0)&&(ACTIVE_KEY_STYLE==0))
       {
         if (IsUnlocked()||ENA_LOCK){
         do_gui(0,0);
         return(2);
         }
         }
         break;
     case LONG_PRESS:
         mode=1;
         if (ACTIVE_KEY_STYLE==1){ if (ENA_LONG_PRESS) return(0); else return(2); }
     }
  }
  }
  return(0);
}

volatile int callhide_mode=0;

#pragma inline=forced
int toupper(int c)
{
  if ((c>='a')&&(c<='z')) c+='A'-'a';
  return(c);
}

int strcmp_nocase(const char *s1,const char *s2)
{
  int i;
  int c;
  while(!(i=(c=toupper(*s1++))-toupper(*s2++))) if (!c) break;
  return(i);
}

const char my_ipc_name[]=IPC_XTASK_NAME;

int MyIDLECSM_onMessage(CSM_RAM* data,GBS_MSG* msg)
{
  int csm_result;
  int icgui_id;
//  int ocgui_id;
  int idlegui_id;
  
#ifndef NEWSGOLD 
  #define EXT_BUTTON 0x63  
  if ((ACTIVE_KEY_STYLE!=2)&&(ACTIVE_KEY_STYLE!=3)) //не "* + #" и не "Enter Button"
  {//чтоб можно было вызвать браузер при этих режимах
    if (ACTIVE_KEY==EXT_BUTTON) //мнимая кнопка браузера
    {
      if (msg->msg==439) //вызван браузер
      {
        switch (msg->submess) 
        {
          case 1:
            GBS_SendMessage(MMI_CEPID,LONG_PRESS,EXT_BUTTON);
          break;
          case 2:
            GBS_SendMessage(MMI_CEPID,KEY_UP,EXT_BUTTON);
          break;
          //default: ShowMSG(1,(int)"Вызов XTASK по кнопке браузера не работает!");
        }
      }
        else //браузер не вызывался
          goto L1;
    }
      else //кнопка вызова не является мнимой кнопкой вызова браузера
        goto L1;
  }
    else
      L1:
         csm_result=old_icsm_onMessage(data,msg);
#else    
  csm_result = old_icsm_onMessage(data, msg); //Вызываем старый обработчик событий    
#endif

  icgui_id=((int *)data)[DISPLACE_OF_INCOMMINGGUI/4];
  idlegui_id=((int *)data)[DISPLACE_OF_IDLEGUI_ID/4];
//  ocgui_id=((int *)data)[DISPLACE_OF_OUTGOINGGUI/4];
  if (!icgui_id) callhide_mode=0;
//  if (!ocgui_id) callhide_mode=0;
  
  if(msg->msg == MSG_RECONFIGURE_REQ) 
  {
    extern const char *successed_config_filename;
    if (strcmp_nocase(successed_config_filename,(char *)msg->data0)==0)
    {
      ShowMSG(1,(int)"XTask config updated!");
      InitConfig();
    }
  }
  //IPC
  if (msg->msg==MSG_IPC)
  {
    IPC_REQ *ipc;
    if ((ipc=(IPC_REQ*)msg->data0))
    {
      if (strcmp(ipc->name_to,my_ipc_name)==0)
      {
	switch (msg->submess)
	{
	case IPC_XTASK_SHOW_CSM:
	  if ((!IsCalling())&&(!SHOW_LOCK))
	  {
	    if ((CSM_root()->csm_q->csm.last!=data)||IsGuiOnTop(idlegui_id))
	    {
	      do_gui(1,(int)(ipc->data));
	    }
	  }
	  break;
	case IPC_XTASK_IDLE:
	  if ((!IsCalling())/*&&(!SHOW_LOCK)*/) do_gui(1,0);
	  break;
	case IPC_XTASK_LOCK_SHOW:
	  SHOW_LOCK++;
	  break;
	case IPC_XTASK_UNLOCK_SHOW:
	  if (SHOW_LOCK) SHOW_LOCK--;
	  break;
	}
      }
    }
  }
  if (msg->msg==MSG_INCOMMING_CALL)
  {
    callhide_mode=1;
  }
//  #ifdef NEWSGOLD
//  if ((msg->msg==MSG_STATE_OF_CALL)&&(msg->submess==0)&&((int)msg->data0==3)) callhide_mode=1;
//  #else
  //if ((msg->msg==MSG_STATE_OF_CALL)&&(msg->submess==0)&&((int)msg->data0==0)) callhide_mode=1;
//    Говно!!!! Лечить!!!
//  #endif   
  if (callhide_mode)
  {
    if ((IsGuiOnTop(icgui_id))/*||(IsGuiOnTop(ocgui_id))*/)
    {
      extern void RotateCSMs(CSM_RAM *ucsm, void *selcsm);
      RotateCSMs(CSM_root()->csm_q->csm.last,FindCSMbyID(CSM_root()->idle_id));
      callhide_mode=0;
    }
  }
  return csm_result;  
}

void MyIDLECSM_onClose(CSM_RAM *data)
{
  extern void seqkill(void *data, void(*next_in_seq)(CSM_RAM *), void *data_to_kill, void *seqkiller);
  extern void *ELF_BEGIN;
  FreeWS(ws_nogui);
  RemoveKeybMsgHook((void *)my_keyhook);
  seqkill(data,old_icsm_onClose,&ELF_BEGIN,SEQKILLER_ADR());
}

void main(void)
{
  mode=0;
  InitConfig();
  LockSched();
  if (!AddKeybMsgHook_end((void *)my_keyhook))
  {
    ShowMSG(1,(int)"Невозможно зарегистрировать обработчик!");
    SUBPROC((void *)ElfKiller);
  }
  else
  {
    extern const int ENA_HELLO_MSG;
    if (ENA_HELLO_MSG) ShowMSG(1,(int)"XTask установлен!");
    {
      CSM_RAM *icsm=FindCSMbyID(CSM_root()->idle_id);
      memcpy(&icsmd,icsm->constr,sizeof(icsmd));
      old_icsm_onClose=icsmd.onClose;
      old_icsm_onMessage=icsmd.onMessage;
      icsmd.onClose=MyIDLECSM_onClose;
      icsmd.onMessage=MyIDLECSM_onMessage;
      icsm->constr=&icsmd;
    }
    ws_nogui=AllocWS(256);
    wsprintf(ws_nogui,"%t","Нет GUI!");
    under_idle=(FindCSMbyID(CSM_root()->idle_id))->prev; //Ищем idle_dialog
  }
  UnlockSched();
}