#include "..\inc\swilib.h"
#include "../inc/cfg_items.h"
#include "conf_loader.h"
#include "main.h"
#include "strings.h"
#include "fileman.h"
#include "bookmarks.h"
//Исходники кривые, над ними еще работать и работать...я ведь только учусь писать ))
int maincsm_id;
int maingui_id;
const int minus11=-11;

unsigned short maincsm_name_body[140];

typedef struct
{
  CSM_RAM csm;
  int gui_id;
}MAIN_CSM;

typedef struct
{
  GUI gui;
  WSHDR *ws1;
  WSHDR *ws2;
  int i1;
}MAIN_GUI;

void SMART_REDRAW(void)
{
  int f;
  LockSched();
  f=IsGuiOnTop(maingui_id);
  UnlockSched();
  if (f) REDRAW();
}

int my_csm_id=0;
//----------------------------------//
extern const int screen_mode;
extern const int size_font;
extern const int pen_font;
extern const int brush_font;
extern void InitConfig();
extern int codepage;//Кодировка
extern const int illum_mode;//постоянна подсветка али нет...
//extern const int codepg;//кодировка по умолчанию
//extern const int menu_codepg;
extern const int autosave;
extern const int scin_mode;//Юзать цвет,размер шрифта из скина...
extern const char IMG_PATH[128];

//----------------------------------//

extern int last_id;//ид для меню посление...
extern void LoadINI();
extern void SaveINI();

//----------------------------------//

EDITCONTROL ec;
WSHDR *ws_edit = NULL;

int id_ed;//id drawtext
int id_ed2;//id ShowCodePage
extern int MenuCode_id;

int codepage;
int curpos=1;//Позиция курсора
int total_symb=0;//общее количество символов
int file_size;
int f;
GBSTMR tmr;

char file_name[64];
char *file;
char info[1024];//инфа по зеленой кнопке...
const char per_d[]="%d";
const char per_t[]="%t";
const char per_s[]="%s";
const char empty_str[]="";
char exe_name[128];//сохраняем путь эльфа для запуска второй копии из меню последние по зеленой кнопке

//----------------------------------//

#pragma inline
void patch_header(HEADER_DESC* head)
{
  head->rc.x=0;
  head->rc.y=0;
  head->rc.x2=0;
  head->rc.y2=0;
}
#pragma inline
void patch_input(INPUTDIA_DESC* inp)
{
  inp->rc.x=0;
  inp->rc.y=0;
  inp->rc.x2=ScreenW()-1;
  inp->rc.y2=ScreenH()-SoftkeyH()-1;

}

#pragma inline
void patch_rect(RECT*rc,int x,int y, int x2, int y2)
{
  rc->x=x;
  rc->y=y;
  rc->x2=x2;
  rc->y2=y2;
}

CSM_DESC icsmd;
//------------------------------------//
void on_utf8ec(USR_MENU_ITEM *item)
{
  if (item->type==0)
  {
    switch(item->cur_item)
    {
    case 0:
      wsprintf(item->ws,per_t,"Сохранить");
      break;
    }
  }
  if (item->type==1)
  {
    switch(item->cur_item)
    {
      case 0: SaveFile(file); break;
    }
  }   
}

//-------------------------------Подсветка...---------------------------------//

void illum()
{
 short light;
 char *ram=(char*)0xA8000000;
 long a;
 unsigned char *l=(unsigned char*)0xA0FD435C; //Начальный указатель BFL(смещение)  
 a=l[2]*0x10000+l[1]*0x100+l[0];
 light=ram[a];
 SetIllumination(0,1,light,256);
 GBS_StartTimerProc(&tmr,216,illum);
}

//--------------------------------GO TO LINE----------------------------------//

HEADER_DESC pos_hdr={0,0,131,21,NULL,0,LGP_NULL};

int pos_onkey(GUI *data, GUI_MSG *msg)
{
  WSHDR *ws=AllocWS(64);
  char num[10];
  if (msg->keys==0x0018)//0xFFF
  {
    EDITCONTROL ec;
    ExtractEditControl(data,1,&ec);	
    ws=ec.pWS;
    ws_2str(ws,num,9);
    curpos=atoi(num);
    curpos*=20;//пока будем считать что в строке 20 символов...не так важно пока что...
    GeneralFunc_flag1(id_ed2,1);
    DrawText(file,codepage);    
  }

return(0);
}

void pos_ghook(GUI *gui, int cmd)
{ 
  static SOFTKEY_DESC sk={0x0018,0x0000,(int)"Вперед!"};
  if (cmd==7)
  {
    SetSoftKey(gui,&sk,1);
  }
  if(cmd==0xA)
  {
    DisableIDLETMR(); // Отключаем таймер выхода по таймауту
  }
  if (cmd==0x0C)
  {
    EDIT_SetCursorPos(gui,1);
  }
  if(cmd==0x03){}
}

void pos_locret(void){}

SOFTKEY_DESC menu_sk[]=
{
  {0x0018,0x0000,(int)"Лев"},
  {0x0001,0x0000,(int)"Прав"},
  {0x003D,0x0000,(int)LGP_DOIT_PIC}
};

SOFTKEYSTAB menu_skt=
{
  menu_sk,0
};

INPUTDIA_DESC pos_desc=
{
  1,
  pos_onkey,
  pos_ghook,
  (void *)pos_locret,
  0,
  &menu_skt,
  {0,NULL,NULL,NULL},
  FONT_SMALL,
  100,
  101,
  0,
  0x00000000,
  0x40000000
};


void pos()
{
   char *ss=malloc(64);
   sprintf(ss,per_s,"Переход на линию...");
   pos_hdr.lgp_id = (int)ss;
   EDITC_OPTIONS ec_options2;
   void *ma=malloc_adr();
   void *eq=AllocEQueue(ma, mfree_adr());

   PrepareEditControl(&ec);
   ConstructEditControl(&ec,ECT_NORMAL_NUM,ECF_APPEND_EOL|ECF_DISABLE_MINUS|ECF_DISABLE_POINT,ec.pWS,9);
   PrepareEditCOptions(&ec_options2);
   SetFontToEditCOptions(&ec_options2,1);//Шрифт
   CopyOptionsToEditControl(&ec,&ec_options2);//Копируем настройки
   AddEditControlToEditQend(eq,&ec,ma);

   patch_header2(&pos_hdr);
   patch_input2(&pos_desc);      
 
   GeneralFuncF1(1);
   mfree_adr();
   mfree(ss);
   id_ed2=CreateInputTextDialog(&pos_desc,&pos_hdr,eq,1,0);//создаем диалоговое окно
}
//--------------------------------DRAW && EDIT TEXT---------------------------//

HEADER_DESC disk_prop_hdr={0,0,NULL,NULL,NULL,0,LGP_NULL};
int empty_onkey(GUI *data, GUI_MSG *msg);
void empty_locret(void){};
void empty_ghook(GUI *gui, int cmd);

SOFTKEY_DESC sk[]=
{
  {0x0018,0x0000,(int)"Лев"},
  {0x0001,0x0000,(int)"Прав"},
  {0x003D,0x0000,(int)LGP_DOIT_PIC}
};

SOFTKEYSTAB skt=
{
  sk,0
};

INPUTDIA_DESC edit_desc=//Редактирование
{
  1,
  empty_onkey,
  empty_ghook,
  (void *)empty_locret,
  0,
  &skt,
  {0,0,0,0},
  FONT_SMALL,
  100,
  101,
  0,
  0,
  0x40000000
};
int empty_onkey(GUI *data, GUI_MSG *msg)
{ 
  if (msg->gbsmsg->msg==KEY_DOWN)
  { 
   curpos=EDIT_GetCursorPos(data)-1;
   switch(msg->gbsmsg->submess)
   {    
    case GREEN_BUTTON:
      {
//         SaveINI();
        sprintf(info,"%s%s %s%d b%s %d/%d","Файл:\n",file,"\nРазмер:",file_size,"\nПозиция:",curpos,total_symb);
        ShowMSG(2,(int)info);
      } break;
    case RED_BUTTON:
      GeneralFunc_flag1(id_ed,1);
      GeneralFunc_flag1(MenuCode_id,1);
      GeneralFunc_flag1(last_id,1);
      break;
    case 0x14: case 13: curpos-=50; EDIT_SetCursorPos(data,curpos); DirectRedrawGUI(); break;
    case 0x15: case 14: curpos+=50; EDIT_SetCursorPos(data,curpos); DirectRedrawGUI(); break;
    case RIGHT_SOFT: 
        ExtractEditControl(data,1,&ec);	
        wstrcpy(ws_edit,ec.pWS);//сохраняем измененный текст в ws_edit на случай последующего сохранение в файл :)
        ShowMenu();
        break;
    case ENTER_BUTTON:
       ExtractEditControl(data,1,&ec);	
       wstrcpy(ws_edit,ec.pWS);//сохраняем измененный текст в ws_edit на случай последующего сохранение в файл :)
       EDIT_OpenOptionMenuWithUserItems(data,on_utf8ec,data,1);
       return (-1);
   }
  }
  
  if (msg->gbsmsg->msg==LONG_PRESS)
  {  
    curpos=EDIT_GetCursorPos(data);
    switch(msg->gbsmsg->submess)
    {
      case 0x14: case 13: curpos-=50; EDIT_SetCursorPos(data,curpos); DirectRedrawGUI(); break;
      case 0x15: case 14: curpos+=50; EDIT_SetCursorPos(data,curpos); DirectRedrawGUI(); break;
    }
  }  
return(0);
}

void empty_ghook(GUI *gui, int cmd)
{ 
  static SOFTKEY_DESC sk2={0x0018, 0x0000,(int)"Меню"};
  if (cmd==7)
  {
    SetSoftKey(gui,&sk2,1);
  }

  if(cmd==0xA)
  {
    DisableIDLETMR();   // Отключаем таймер выхода по таймауту
  }
  if (cmd==0x0C)
  {  
    EDIT_SetCursorPos(gui,curpos);    
  }
  if(cmd==0x03){}

};

//----------------------------------//

void SaveFile(char *filename)
{
  unsigned int err;
  int f;
  char *s=malloc(wstrlen(ws_edit));
  int len;
  int i;
  len=ws_edit->wsbody[0];
  for(i=0;i<len;i++)//Сохранение русского языка....
    *(s+i)=char16to8(ws_edit->wsbody[i+1]);
    *(s+i++)=0;
  char ff[128];
  strcpy(ff,file);
  strcat(ff,".test");
  unlink(ff,&err);
  if((f=fopen(ff,A_Create+A_ReadWrite/*+A_Append*/+A_BIN,P_WRITE,&err))!=-1)
   {
     fwrite(f,s,strlen(s),&err);
     ShowMSG(1,(int)"Файл сохранен!!!");
   }
  else ShowMSG(1,(int)"Не могу сохранить!:(");
  fclose(f,&err);
  mfree(s);
}

//----------------------------------//

int get_file_size(char* fname)
{
  unsigned int err;
  FSTATS fs;
  if ((GetFileStats(fname,&fs,&err))==-1) return 0;
  return (fs.size);
}

//----------------------------------//

int DrawText(char *filename,int cp)//Cобственно и вызов самого эдитконтроля:)
{
   if(illum_mode)illum();//Подсветка постоянна или нет
   else GBS_DelTimer(&tmr);

   unsigned int err;
   EDITC_OPTIONS ec_options;
   PrepareEditControl(&ec);
   void *ma=malloc_adr();
   void *eq=AllocEQueue(ma, mfree_adr());
   unsigned int size=0;
   
   file_size=get_file_size(filename);
   
   char *s=malloc(file_size);
   if((f=fopen(filename,A_ReadOnly+A_BIN,P_READ,&err))!=-1)
       size=fread(f,s,file_size,&err);
   fclose(f,&err);

   ws_edit=AllocWS(size);//Выделяем память столько,сколько прочитали данных из файла

   switch(cp)//выбор кодировки
      {
        case 0: win1251_2ws(ws_edit,s);break;
        case 1: utf8_2ws(ws_edit,s,file_size); break;
        case 2: koi2ws(ws_edit,s); break;
        case 3: ascii2ws(ws_edit,s); break;
        case 4: win1250_2ws(ws_edit,s); break;
      }
   
  ConstructEditControl(&ec,ECT_NORMAL_TEXT,ECF_NORMAL_STR,ws_edit,size*2);//умножаем на 2 чтобы было место для редактирования...
 
  if(scin_mode)
  {
    SetFontToEditCOptions(&ec_options,size_font);
    SetPenColorToEditCOptions(&ec_options,pen_font);
    SetBrushColorToEditCOptions(&ec_options,brush_font);
    CopyOptionsToEditControl(&ec,&ec_options);
  }
  AddEditControlToEditQend(eq,&ec,ma);//Добавляем в эдитконтрол
  
  if(screen_mode)
  {    
    extern const char per_2s[];
    snprintf(s,127,per_2s,IMG_PATH,"\\null.png");
    *((int **)(&disk_prop_hdr.icon))=(int *)s;//"0:\\zbin\\img\\TextReader\\null.png
    sprintf(s," %s",file_name);
    *((int *)(&disk_prop_hdr.lgp_id))=(int)s;
    patch_header2(&disk_prop_hdr);
    patch_input2(&edit_desc);     
  }
  else
  {
    patch_header(&disk_prop_hdr);
    patch_input(&edit_desc);      
  }
  mfree(s);
  return id_ed=CreateInputTextDialog(&edit_desc,&disk_prop_hdr,eq,1,0);
  //сохраняем ид для последующих махинаций)))
}
//============================================================================//

const RECT Canvas={0,0,131,172};

void Killer(void)
{
  extern void seqkill(void *data, void(*next_in_seq)(CSM_RAM *), void *data_to_kill, void *seqkiller);
  extern void *ELF_BEGIN;
}

void maincsm_oncreate(CSM_RAM *data)
{
  MAIN_CSM *csm=(MAIN_CSM*)data;  
  csm->gui_id=ShowMenuCode();
} 
  

void maincsm_onclose(CSM_RAM *csm)
{
  FreeWS(ws_edit);
  GBS_DelTimer(&tmr);
  SaveINI();
  SUBPROC((void *)Killer);
}
#define idlegui_id(icsm) (((int *)icsm)[DISPLACE_OF_IDLEGUI_ID/4])

#pragma inline=forced
int toupper(int c)
{
  if ((c>='a')&&(c<='z')) c+='A'-'a';
  return(c);
}
#pragma inline
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);
}
int maincsm_onmessage(CSM_RAM *data, GBS_MSG *msg)
{
  MAIN_CSM *csm=(MAIN_CSM*)data;
  if (msg->msg==MSG_GUI_DESTROYED)
  {
    if ((int)msg->data0==csm->gui_id)
    {
      {
	csm->csm.state=-3;
      }
    }
  }
  if (msg->msg==MSG_RECONFIGURE_REQ)
  {
    extern const char *successed_config_filename;
    if (strcmp_nocase(successed_config_filename,(char *)msg->data0)==0)
    {
      InitConfig();
      GeneralFunc_flag1(id_ed,1);
      DrawText(file,codepage);
      ShowMSG(1,(int)"TextReader config updated!");
    }
  } 
  return(1);
}

unsigned short maincsm_name_body[140];

const struct
{
  CSM_DESC maincsm;
  WSHDR maincsm_name;
}MAINCSM =
{
  {
  maincsm_onmessage,
  maincsm_oncreate,
#ifdef NEWSGOLD
  0,
  0,
  0,
  0,
#endif
  maincsm_onclose,
  sizeof(MAIN_CSM),
  1,
  &minus11
  },
  {
    maincsm_name_body,
    NAMECSM_MAGIC1,
    NAMECSM_MAGIC2,
    0x0,
    139
  }
};

WSHDR *ws_name;

void UpdateCSMname(void)
{ 
  wsprintf((WSHDR *)(&MAINCSM.maincsm_name),"TR: %w",ws_name);
}

int main(char *exename, char *fname)
{
  InitConfig();
  file=malloc(128);
  if (fname)
  {
   if (strlen(fname)<128)
   {
     strcpy(file,fname);
     strcpy(exe_name,exename);
     char *p=strrchr(file,'\\');
     if (p)
      {
       ws_name=AllocWS(strlen(p+1));
       str_2ws(ws_name,p+1,strlen(p)+1);
       strcpy(file_name,p+1);
      }
      else 
      {
        ws_name=AllocWS(32);
        wsprintf(ws_name,per_s,"error");
      }
     LoadINI(); 
   }
  }
    
  MAIN_CSM main_csm;
  UpdateCSMname();
  LockSched();
  maincsm_id=CreateCSM(&MAINCSM.maincsm,&main_csm,0);
  UnlockSched();
  return 0;
}