#include <swilib.h>
#include <cfg_items.h>
#include <sieapi.h>
#include "scrtool.h"
#include "conf_loader.h"

const char ANST[LEN]="\xE9\x85\x8D\xE7\xBD\xAE\x2D\xE7\x8E\xAB\xE7\x91\xB0\xE6\xA1\x8C\xE9\x9D\xA2\x76\x32\x2E\x30\x36";
const char AVER[LEN]="\xE7\x8E\xAB\xE7\x91\xB0\xE6\xA1\x8C\xE9\x9D\xA2\x76\x32\x2E\x30\x36";

const int minus11=-11;
const char ipc_name[]=SCRTOOL_NAME;
const IPC_REQ my_ipc={ipc_name, ipc_name, NULL};
TSCR IDS[MAX_IDS];
TAPP APP[MAX_APP];
TRect txt,ico;
TNongLi NongLi;
int MAINCSM_ID = 0;
int DirsActive = 0;
int SUCCED_HOOK= 0;
int MenuActive = 0;
int TextActive = 0;
int auto_close = 0;
int Count,Seled;
GBSTMR barTimer;
GBSTMR txtTimer;

//配置菜单
char path[128];

HEADER_DESC MENU_HDR={0,0,0,0,NULL,(int)path,LGP_NULL};

//关闭有的菜单
void CloseMenu(void);

int GetFileCount(TFile *bcfg)
{
  int i=0;
  TFile *bc=(TFile*)&bcfg;
  while((bc=bc->next)) i++;
  return (i);
}

void FREE_FILE(TFile *FileList)
{
  while(FileList){
      TFile *sb=FileList;
      FileList=FileList->next;
      mfree(sb->fullname);
      mfree(sb->filename);
      mfree(sb);
  } 
  mfree(FileList);
}

int MENU_ONKEY(void *gui, GUI_MSG *msg);


void MENU_HOOK(void *gui, int cmd)
{
  TFile *FileList=MenuGetUserPointer(gui);
  if (cmd==3)
  { 
    FREE_FILE(FileList);
  }  
}

void MENU_DRAW(void *gui, int cur_item, void *user_pointer)
{
  WSHDR *ws;
  TFile *FileList=user_pointer;
  for (int n=0; n!=cur_item; n++) FileList=FileList->next;
  void *item=AllocMenuItem(gui);
  if (FileList)
  {
    int len=strlen(FileList->filename);
    ws=AllocMenuWS(gui,len+4);
    if(FileList->type){
       str_2ws(ws,FileList->filename,len);
       wsInsertChar(ws,0x0002,1);
       wsInsertChar(ws,0xE008,1);
    }else{str_2ws(ws,FileList->filename,len);}
  }
  else
  {
    ws=AllocMenuWS(gui,10);
    wsprintf(ws,"%t","Error!");
  }
  SetMenuItemText(gui, item, ws, cur_item);       
}

int MENU_SOFTKEYS[]={0,1,2};

SOFTKEY_DESC MENU_PRESS[]=
{
#ifdef ELKA
  {0x0018,0x0000,8104},//打开 8104
  {0x0001,0x0000,7240},//关闭7240
  {0x003D,0x0000,(int)"+"}
#else
  {0x0018,0x0000,(int)"Open"},//打开 8104
  {0x0001,0x0000,(int)"Close"},//关闭7240
  {0x003D,0x0000,(int)"+"}
#endif
};

SOFTKEYSTAB MENU_TAB=
{
  MENU_PRESS,0
};

MENU_DESC MENU_STRUCT=
{
  8,
  MENU_ONKEY,
  MENU_HOOK,
  NULL,
  MENU_SOFTKEYS,
  &MENU_TAB,
  0x10,
  MENU_DRAW,
  NULL,   //Items
  NULL,   //Procs
  0   //n
};

int MENU_ONKEY(void *gui, GUI_MSG *msg)
{
  TFile *sbtop=MenuGetUserPointer(gui);
  if (msg->keys==0x3D || msg->keys==0x18)
  {
    int i=GetCurMenuItem(gui);
    for (int n=0; n!=i; n++) sbtop=sbtop->next;
    if (sbtop)
    {      
      CloseMenu();
      RunAPP(sbtop->fullname);
      return (1);
    }
  }
  if((msg->keys==0x01 || msg->keys==RED_BUTTON)&&(MAINCSM_ID)) CloseMenu();  
  return (0);
}

TFile *FindBCFGFile()
{
  uint err;
  DIR_ENTRY de;
  int  len;
  TFile *filelist=0;
  char str[128];
  strcpy(str,path);
  if (isdir(path,&err))strcat(str,"*");
  if (FindFirstFile(&de,str,&err)){
    do{
      if (!(de.file_attr&FA_DIRECTORY)){
        TFile *sb=malloc(sizeof(TFile));
        //设置文件目录
        len=strlen(de.folder_name)+strlen(de.file_name)+2+1;
        sb->fullname=malloc(len);        
        strcpy(sb->fullname,de.folder_name);
        strcat(sb->fullname,"\\");
        strcat(sb->fullname,de.file_name);
        //设置文件名称
        sb->filename=malloc(strlen(de.file_name)+1);        
        strcpy(sb->filename,de.file_name);
        //隐藏扩展名
        if(!SHOW_EXT)sb->filename[getstrpos(sb->filename,'.')]=0;
        sb->type=0;
        sb->next=0;
        if (filelist){
          TFile *sbr, *sbt;
          sbr=(TFile *)&filelist;
          sbt=filelist;
          while(strcmp_nocase(sbt->filename,sb->filename)<0){
            sbr=sbt;
            sbt=sbt->next;
            if (!sbt) break;
          }
          sb->next=sbt;
          sbr->next=sb;
        } else{filelist=sb;}
      }
    }
    while(FindNextFile(&de,&err));
  }
  FindClose(&de,&err);
  return filelist;
}

int BrowserFileMenu()
{ 
if(DirsActive){   
  TFile *sbtop=FindBCFGFile();
  patch_header(&MENU_HDR);
  return CreateMenu(0,0,&MENU_STRUCT,&MENU_HDR,0,GetFileCount(sbtop),sbtop,0);
 }else return 0;
}

//结束配置菜单
//初始化生日显示数据
void InitIDS(void);
void TimerProc(void)
{
  InitIDS();  
  GBS_SendMessage(MMI_CEPID,MSG_IPC,UPDATE_STAT,&my_ipc);  
}

#pragma inline  
int wsprintf_bytes(WSHDR *ws, uint bytes)
{
  if (bytes<=1024)
    return (wsprintf(ws,BYTES_FMT,bytes,BYTES_SG));
  else{
    bytes>>=10;
    return (wsprintf(ws,BYTES_FMT,bytes,KBYTES_SG));
  }  
}

void FillIDS(TSCR *Info,int x_start,int y_start, int fontSize,const char *color,const char *colorframe)
{  
  Info->rc.x=x_start;
  Info->rc.y=y_start;
  Info->rc.x2=x_start+get_string_width(Info->ws,fontSize)+6;
  Info->rc.y2=y_start+GetFontYSIZE(fontSize);
  Info->Size=fontSize;
  memcpy(Info->Pen,color,4);
  memcpy(Info->Brush,colorframe,4);
}

char *BirBuf; 

int FindBirName(const char *date,WSHDR *ws)
{   
  char *s=strstr(BirBuf,date);
  if(s){  
      int c,i=0;
      char ss[LEN];
      s+=strlen(date);       
      while((c=*s++)>=':'){
        if (i<(sizeof(ss)-1)) ss[i++]=c; 
    }
    ss[i]=0;
    utf8_2ws(ws,ss,strlen(ss));
  }
  int state = wstrlen(ws);
  return(state);
}

void InitIDS(void)
{
  RAMNET *net_data;
  int c;
  char cWeek[16];
  char cData[16];
  const char cWeekName[4][7][16]={
    {"MONDAY","TUESDAY","WEDNESDAY","THUSDAY","FRIDAY","SATURDAY","SUNDAY"},
    {"MON","TUES","WED","THU","FRI","SAT","SUN"},
    {"Monday","Tuesday","Wednesday","Thusday","Friday","Saturday","Sunday"},
    {"Mon","Tues","Wed","Thu","Fri","Sat","Sun"}};
  const word XINGQI[] = {0x661F, 0x671F, 0}; //星期
  const word UniNum[] = {0x4E00,0x4E8C,0x4E09,0x56DB,0x4E94,0x516D,0x65E5,0};//一二三四五六日
  const word UniDate[] = {0x5E74,0x6708,0x65E5,0};//年月日
  const word UniTime[] = {0x70B9,0x5206,0x79D2,0x4E0A,0x4E0B,0x5348,0};//点分秒上下午
  
  char cDataFmt[8][16] = {"%02d/%02d/%02d", "%02d-%02d-%02d", "%02d.%02d.%02d", "%02d %02d %02d", "%02d/%02d", "%02d-%02d", "%02d.%02d", "%02d %02d",};
  word UniToday[3];
  TTime tt;
  TDate d;
  GetDateTime(&d,&tt);
  if (TEMP_ENA){
    IDS[0].show=1;
    c=GetAkku(1,3)-0xAAA+15;
    wsprintf(IDS[0].ws,TEMP_FMT,c/10,c%10);
    FillIDS(&IDS[0],TEMP_X,TEMP_Y,FontType(TEMP_FONT),TEMP_COLORS,TEMP_FCOLOR);
  } else { IDS[0].show=0; }
  
  if (VOLT_ENA){
    IDS[1].show=1;
    c=GetAkku(0,9);
    wsprintf(IDS[1].ws,VOLT_FMT,c/1000,(c%1000)/10);
    FillIDS(&IDS[1],VOLT_X,VOLT_Y,FontType(VOLT_FONT),VOLT_COLORS,VOLT_FCOLOR);
  } else { IDS[1].show=0; }
  
  if (RAM_ENA){
    IDS[2].show=1;
    c=GetFreeRamAvail();
    wsprintf_bytes(IDS[2].ws,c);
    FillIDS(&IDS[2],RAM_X,RAM_Y,FontType(RAM_FONT),RAM_COLORS,RAM_FCOLOR);  
  } else { IDS[2].show=0; }
  
  if(WEEK_ENA){
    IDS[3].show=1;
   // GetDateTime(&d,&tt);
    c = GetWeek(&d);
    if(WEEK_FMT <4)
    {
      for(int iloop = 0;iloop < 16;iloop++){
        cWeek[iloop] = cWeekName[WEEK_FMT][c][iloop];        
      }
      wsprintf(IDS[3].ws,cWeek,c);
    } else {
      CutWSTR(IDS[3].ws,0);
      UniToday[0] = UniNum[c];
      if(WEEK_FMT==4)
         BSTRAdd(IDS[3].ws->wsbody, XINGQI, 2);
      BSTRAdd(IDS[3].ws->wsbody,UniToday, 1);      
    }
    FillIDS(&IDS[3],WEEK_X,WEEK_Y,FontType(WEEK_FONT),WEEK_COLORS,WEEK_FCOLOR);
  } else { IDS[3].show=0; }
  
  if(DATE_ENA){
    IDS[4].show=1;
    //GetDateTime(&d,&tt);  
    for(int iloop = 0;iloop < 16;iloop++){
      cData[iloop] = cDataFmt[DATE_FMT][iloop];        
    }
    if(DATE_FMT < 4)
      wsprintf(IDS[4].ws,cData,d.year,d.month,d.day);
    else if(DATE_FMT <8)
      wsprintf(IDS[4].ws,cData,d.month,d.day);
    else {
      CutWSTR(IDS[4].ws,0);
      if(DATE_FMT == 8) {
        wsprintf(IDS[4].ws,"%04d",d.year);
        UniToday[0] = UniDate[0];
        BSTRAdd(IDS[4].ws->wsbody,UniToday, 1);
      }      
      UniToday[0] = d.month/10 + 0x30;
      UniToday[1] = d.month%10 + 0x30;
      BSTRAdd(IDS[4].ws->wsbody,UniToday, 2);
      UniToday[0] = UniDate[1];
      BSTRAdd(IDS[4].ws->wsbody,UniToday, 1);
      
      UniToday[0] = d.day/10 + 0x30;
      UniToday[1] = d.day%10 + 0x30;
      BSTRAdd(IDS[4].ws->wsbody,UniToday, 2);
      UniToday[0] = UniDate[2];
      BSTRAdd(IDS[4].ws->wsbody,UniToday, 1);      
    }
    FillIDS(&IDS[4],DATE_X,DATE_Y,FontType(DATE_FONT),DATE_COLORS,DATE_FCOLOR);
  } else { IDS[4].show=0; }
  
  if(TIME_ENA){
    IDS[5].show=1;
    //GetDateTime(&d,&tt);
    switch(TIME_FMT) {
    case 0: wsprintf(IDS[5].ws,"%02d:%02d",tt.hour,tt.min); break;
      
    case 1:
      if(tt.hour <= 12) {
        wsprintf(IDS[5].ws,"AM %02d:%02d",tt.hour,tt.min);
      } else {
        tt.hour = tt.hour - 12;
        wsprintf(IDS[5].ws,"PM %02d:%02d",tt.hour,tt.min);
      } break;
      
    case 2:
      if(tt.hour > 12) tt.hour = tt.hour - 12;
      wsprintf(IDS[5].ws,"%02d:%02d",tt.hour,tt.min);
      break;
      
    case 3: wsprintf(IDS[5].ws,"%02d:%02d:%02d",tt.hour,tt.min,tt.sec); break;
      
    case 4:
      if(tt.hour <= 12){
        wsprintf(IDS[5].ws,"AM %02d:%02d:%02d",tt.hour,tt.min,tt.sec);
      } else {
        tt.hour = tt.hour - 12;
        wsprintf(IDS[5].ws,"PM %02d:%02d:%02d",tt.hour,tt.min,tt.sec);
      } break;
    case 5:
      wsprintf(IDS[5].ws,"%02d",tt.hour);
      UniToday[0] = UniTime[0];
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 1);
      
      UniToday[0] = tt.min/10 + 0x30;
      UniToday[1] = tt.min%10 + 0x30;
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 2);
      UniToday[0] = UniTime[1];
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 1);
      break;
    case 6:
      wsprintf(IDS[5].ws,"%02d",tt.hour);
      UniToday[0] = UniTime[0];
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 1);
      
      UniToday[0] = tt.min/10 + 0x30;
      UniToday[1] = tt.min%10 + 0x30;
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 2);
      UniToday[0] = UniTime[1];
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 1);
      
      UniToday[0] = tt.sec/10 + 0x30;
      UniToday[1] = tt.sec%10 + 0x30;
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 2);
      UniToday[0] = UniTime[2];
      BSTRAdd(IDS[5].ws->wsbody,UniToday, 1);
      break;
    default: break;      
    }   
    FillIDS(&IDS[5],TIME_X,TIME_Y,FontType(TIME_FONT),TIME_COLORS,TIME_FCOLOR);
  } else { IDS[5].show=0; }
  
  if (TEXT_ENA){
    IDS[6].show=1;
    utf8_2ws(IDS[6].ws,TEXT_FMT,strlen(TEXT_FMT));
    FillIDS(&IDS[6],TEXT_X,TEXT_Y,FontType(TEXT_FONT),TEXT_COLORS,TEXT_FCOLOR);
  } else { IDS[6].show=0; }    
  
  if (CHSYear_ENA){
    IDS[7].show=1;
    CutWSTR(IDS[7].ws,0);
    //GetDateTime(&d,&tt); 
    GetDayOf(d,&NongLi);
    memcpy(IDS[7].ws->wsbody,NongLi.year->wsbody,16);
    FillIDS(&IDS[7],CHSYear_X,CHSYear_Y,FontType(CHSYear_FONT),CHSYear_COLORS,CHSYear_FCOLOR);
  } else { IDS[7].show=0; }    

  if (CHSDay_ENA){
    IDS[8].show=1;
    CutWSTR(IDS[8].ws,0);
    //GetDateTime(&d,&tt); 
    GetDayOf(d,&NongLi);
    memcpy(IDS[8].ws->wsbody,NongLi.mday->wsbody,16);
    FillIDS(&IDS[8],CHSDay_X,CHSDay_Y,FontType(CHSDay_FONT),CHSDay_COLORS,CHSDay_FCOLOR);
  } else { IDS[8].show=0; }   
  
  if(NET_ENA){
    IDS[9].show=1;
    net_data=RamNet();
    c=(net_data->ch_number>=255)?'=':'-';
    wsprintf(IDS[9].ws,NET_FMT,c,net_data->power);
    FillIDS(&IDS[9],NET_X,NET_Y,FontType(NET_FONT),NET_COLORS,NET_FCOLOR);
  } else { IDS[9].show=0; }
  
  if (CAP_ENA){
    IDS[10].show=1;
    c=*RamCap();
    wsprintf(IDS[10].ws,CAP_FMT,c);
    FillIDS(&IDS[10],ACCU_X,ACCU_Y,FontType(ACCU_FONT),ACCU_COLORS,ACCU_FCOLOR);
  } else { IDS[10].show=0; }
  
  if (CPU_ENA){
    IDS[11].show=1;
    c=GetCPULoad();
    if(c==100) c=99;
    wsprintf(IDS[11].ws,CPU_FMT,c);
    FillIDS(&IDS[11],CPU_X,CPU_Y,FontType(CPU_FONT),CPU_COLORS,CPU_FCOLOR);
  } else { IDS[11].show=0; }

  if (GPRS_ENA){
    IDS[12].show=1;
    //RefreshGPRSTraffic();
    c=*GetGPRSTrafficPointer();
    wsprintf_bytes(IDS[12].ws,c);
    FillIDS(&IDS[12],GPRS_X,GPRS_Y,FontType(GPRS_FONT),GPRS_COLORS,GPRS_FCOLOR);
  } else { IDS[12].show=0; }
  
  if(NBIR_ENA){
    char nDay[16];    
    //GetDateTime(&d,&tt); 
    //显示公历节日   
    CutWSTR(IDS[13].ws,0);
    sprintf(nDay,"N%02d.%02d:",d.month,d.day);
    IDS[13].show = FindBirName(nDay,IDS[13].ws);
    FillIDS(&IDS[13],NBIR_X,NBIR_Y,FontType(NBIR_FONT),NBIR_COLORS,NBIR_FCOLOR);
  } else { IDS[13].show=0;}
  
  if(OBIR_ENA){
    //显示农历节日  
    char oDay[16];   
    //GetDateTime(&d,&tt); 
    TDate o=GetOldDay(d);
    CutWSTR(IDS[14].ws,0);
    sprintf(oDay,"P%02d.%02d:",o.month,o.day);
    IDS[14].show = FindBirName(oDay,IDS[14].ws);
    FillIDS(&IDS[14],OBIR_X,OBIR_Y,FontType(OBIR_FONT),OBIR_COLORS,OBIR_FCOLOR);
  } else { IDS[14].show=0;}
}
//菜单功能
void APP_TRAF(const char *name, int inx, int type,char *pic,char *file)
{
  utf8_2ws(APP[inx].ws,name,strlen(name));
  APP[inx].Type = type;
  APP[inx].Pic  = pic;
  APP[inx].File = file;
  if((file)&&(strlen(file)))Count+=1;
}
//关机
const char ANTO[16]="\xE5\x85\xB3\xE9\x97\xAD\xE6\x89\x8B\xE6\x9C\xBA";
//重启
const char ANRT[16]="\xE9\x87\x8D\xE5\x90\xAF\xE7\xB3\xBB\xE7\xBB\x9F";
//锁键
const char ANLK[16]="\xE9\x94\x81\xE5\xAE\x9A\xE9\x94\xAE\xE7\x9B\x98";

void CreateAppInfo(int inx)
{ 
  switch(inx){  
  case  0: APP_TRAF(ANST,inx,   -1,(char*)AIST,""); break;//设置 
  case  1: APP_TRAF(ANTO,inx,   -2,(char*)AITO,""); break;//关机
  case  2: APP_TRAF(ANRT,inx,   -3,(char*)AIRT,""); break;//重启
  case  3: APP_TRAF(ANLK,inx,   -4,(char*)AILK,""); break;//锁键
  case  4: APP_TRAF(AN04,inx, AT04,(char*)AI04,(char*)AF04); break;//配置
  case  5: APP_TRAF(AN05,inx, AT05,(char*)AI05,(char*)AF05); break;
  case  6: APP_TRAF(AN06,inx, AT06,(char*)AI06,(char*)AF06); break;
  case  7: APP_TRAF(AN07,inx, AT07,(char*)AI07,(char*)AF07); break;
  case  8: APP_TRAF(AN08,inx, AT08,(char*)AI08,(char*)AF08); break;
  case  9: APP_TRAF(AN09,inx, AT09,(char*)AI09,(char*)AF09); break;
  case 10: APP_TRAF(AN10,inx, AT10,(char*)AI10,(char*)AF10); break;
  case 11: APP_TRAF(AN11,inx, AT11,(char*)AI11,(char*)AF11); break;
  case 12: APP_TRAF(AN12,inx, AT12,(char*)AI12,(char*)AF12); break;
  case 13: APP_TRAF(AN13,inx, AT13,(char*)AI13,(char*)AF13); break;
  }  
}

int size=32;

void InitMenu(int active)
{   //全画区域
   Seled=0;
   Count=4;   
   for(int i=0;i<MAX_APP;i++) CreateAppInfo(i); 
   int TextH = GetFontYSIZE(APPTEXT_FONT)+4;
   if (TextH < SoftkeyH()) TextH = SoftkeyH();
    //文本区域    
    txt.l = 0;
    txt.r = ScreenW()-1;
    txt.t = ScreenH()-OFFSET-1-TextH;    
    txt.b = ScreenH()-OFFSET-1;
    //图标位置
    ico.l = 0;
    ico.t = txt.t-size-1;
    ico.r = size;
    ico.b = txt.t-1; 
   MenuActive=active;
}

void DrawPanel(void)
{/*   
 #ifdef ELKA
  void *canvasmenu = BuildCanvas();{
 #else
  void *idata = GetDataOfItemByID(GetTopGUI(), 2);
  if (idata){
  void *canvasmenu = ((void **)idata)[DISPLACE_OF_IDLECANVAS / 4];
 #endif  */   
  void *canvasmenu = BuildCanvas();
  DrawCanvas(canvasmenu,txt.l,txt.t,txt.r,txt.b, 1); 
  DrawRoundedFrame( txt.l, txt.t, txt.r, txt.b, 0, 0, 0, cfgPanBorderCol, cfgPanBGCol ); 
  GBS_StartTimerProc(&barTimer,10,DrawPanel); 
  int y = 0; 
  int i = 0;
  int state=0;
  int n = (txt.r-txt.l)/size;
  int m = size + (txt.r-txt.l-size*n)/(n-1);
  int ts=(txt.b-txt.t-GetFontYSIZE(APPTEXT_FONT))/2;  
  //分页显示代码
  if ( i < 0 ) i = 0; 
  if (i>=Count) i=Count - 1;
  while ( i < Count ){  
    const char *s=APP[i].Pic;
    if (!((s)&&(strlen(s)))) s=AINO;
    TRect tmp;
    if(i<(MAX_APP+1)/2){
     tmp.l = y+ico.l;
     tmp.t = ico.t;
     tmp.r = y+ico.r;
     tmp.b = ico.b;
     state = 1;
    }else{
     if(state){y=0;state=0;}
     tmp.l = y+ico.l;
     tmp.t = ico.t-size;
     tmp.r = y+ico.r;
     tmp.b = ico.b-size;
    }
    DrawCanvas(canvasmenu, tmp.l, tmp.t, tmp.r, tmp.b, 1); 
    if (i == Seled){                    
       DrawRoundedFrame(tmp.l+1, tmp.t+1, tmp.r-1, tmp.b-1, 2, 2, 0, cfgBookBorderCol, cfgBookBGCol );        
       DrawString(APP[i].ws, txt.l+2, txt.t+ts, txt.r-2, txt.b-ts, FontType(APPTEXT_FONT), TEXT_ALIGNLEFT,APPTEXT_COLORS, cfgPanBGCol);    
    }
    int picw = (size-GetImgWidth((int)s))/2;  if(picw<0)picw=0;
    int pich = (size-GetImgHeight((int)s))/2; if(pich<0)pich=0; 
    DrawImg(tmp.l+picw,tmp.t+pich,(int)s);
    y += m;
    i++;    
  }
// }  
 //自动关闭菜单
  if((++auto_close>=AUTO_CLOSE*TMR_SECOND/10)&&(MenuActive)&&(MAINCSM_ID)) CloseMenu();
}

void OnRedraw(GUI *data)
{
  if(SUCCED_HOOK&&MENU_ENA&&(MenuActive)) DrawPanel();
}

void onCreate(GUI *data, void *(*malloc_adr)(int))
{
  data->state=1;
}

void onClose(GUI *data, void (*mfree_adr)(void *))
{
  data->state=0;
}

void onFocus(GUI *data, void *(*malloc_adr)(int), void (*mfree_adr)(void *))
{
  data->state=2;
}

void onUnfocus(GUI *data, void (*mfree_adr)(void *))
{
  if (data->state!=2) return;
  data->state=1;  
}

void DoIt(int inx);

int OnKey(GUI *data, GUI_MSG *msg)
{ 
  if(SUCCED_HOOK||MENU_ENA)
  {
  DirectRedrawGUI();

  if ((msg->gbsmsg->msg==KEY_DOWN))
  {
    //关闭菜单
     if(msg->gbsmsg->submess==EXIT_BTN){ CloseMenu(); return(1);}
    //选定操作
   // if(IsUnlocked()){
     int tmp=Seled;
     int line=(MAX_APP+1)/2;
     auto_close=0;  
     switch(msg->gbsmsg->submess){     
      //右选定
      case RIGHT_BUTTON:if(++Seled >= Count) Seled=0;break;  
      //上选定
      case    UP_BUTTON:if((Seled+=line)>=Count) Seled=tmp-line;break; 
      //右选定
      case  LEFT_BUTTON:if(--Seled<0) Seled=Count-1; break;   
      //下选定
      case  DOWN_BUTTON:if((Seled-=line)<0) Seled=tmp+line; break;     
      //执行对就的功能
      case ENTER_BUTTON: DoIt(Seled); break;
     }     
     //return(1);
    //}
   }
  }
  return(0);
}

void onDestroy(GUI *data, void (*mfree_adr)(void *))
{
  kill_data(data,mfree_adr);
}

int method8(void){return(0);}

int method9(void){return(0);}

const void * const gui_methods[11]={
  (void *)OnRedraw,	//重画
  (void *)onCreate,	//创建
  (void *)onClose,	//关闭
  (void *)onFocus,	//聚焦
  (void *)onUnfocus,	//取消聚焦
  (void *)OnKey,	//按键操作
  0,
  (void *)onDestroy,	//释放
  (void *)method8,
  (void *)method9,
  0
};

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

void maincsm_onguicreate(CSM_RAM *data)
{
  GUI *main_gui=malloc(sizeof(GUI));
  MAIN_CSM_GUI *csm=(MAIN_CSM_GUI*)data;
  zeromem(main_gui,sizeof(GUI));
  main_gui->canvas=(void *)(&Canvas);
  //main_gui->flag30=2;
  main_gui->methods=(void *)gui_methods;
  main_gui->item_ll.data_mfree=(void (*)(void *))mfree_adr();
  csm->csm.state=0;
  csm->csm.unk1=0;
  csm->task_id=CreateGUI(main_gui);  
  csm->menu_id=BrowserFileMenu();
}

#ifndef DAEMON
static void ELF_KILLER(void)
{
  extern void *ELF_BEGIN;
  kill_data(&ELF_BEGIN,(void (*)(void *))mfree_adr());
}
#endif
void maincsm_onguiclose(CSM_RAM *csm)
{  
#ifndef DAEMON
  SUBPROC((void *)ELF_KILLER);
#endif  
}

int maincsm_onguimessage(CSM_RAM *data, GBS_MSG *msg)
{
  MAIN_CSM_GUI *csm=(MAIN_CSM_GUI*)data;
  if ((msg->msg==MSG_GUI_DESTROYED)&&((int)msg->data0==csm->task_id))
  {
    csm->csm.state=-3;
  }  
  return(1);
}

unsigned short maincsm_name_body[LEN];

const struct
{
  CSM_DESC maincsm;
  WSHDR maincsm_name_gui;
}MAINCSM =
{
  {
    maincsm_onguimessage,
    maincsm_onguicreate,
#ifdef NEWSGOLD
0,
0,
0,
0,
#endif
maincsm_onguiclose,
sizeof(MAIN_CSM),
1,
&minus11
  },
  {
    maincsm_name_body,
    NAMECSM_MAGIC1,
    NAMECSM_MAGIC2,
    0x0,
    139
  }
};

void CloseMenu(void)
{
  if(IsTimerProc(&barTimer)){GBS_DelTimer(&barTimer);}
  if(MAINCSM_ID){CloseCSM(MAINCSM_ID); MAINCSM_ID=0;}
  MenuActive=0;
  DirsActive=0;
  auto_close=0;
  RefreshGUI();
}
void DirsMenu(char *dir)
{
  LockSched();  
  MenuActive=0;
  DirsActive=1;
  strcpy(path,dir);
  GBS_SendMessage(MMI_CEPID,KEY_UP);  
  char dummy[sizeof(MAIN_CSM)];
  MAINCSM_ID=CreateCSM(&MAINCSM.maincsm,dummy,2);
  RefreshGUI();
  UnlockSched();
}
void TaskMenu(int mode)
{
  LockSched();
  DirsActive=0;
  char dummy[sizeof(MAIN_CSM)];
  InitMenu(1);
  MAINCSM_ID=CreateCSM(&MAINCSM.maincsm,dummy,2);
  UnlockSched();
}

void DoIt(int inx) 
{ 
  CloseMenu();
  switch(APP[inx].Type){
   case -5: TaskMenu(1);break;
   case -4: KbdLock(); break;
   case -3: RebootPhone();break;
   case -2: SwitchPhoneOff();break;
   case -1: OpenBCFGFile(); break;
   case  0: RunAPP(APP[inx].File); break;
   case  1: RunCUT(APP[inx].File); break;
   case  2: RunADR(APP[inx].File); break;
   case  3: DirsMenu(APP[inx].File); break;
  }  
   
}

#ifdef DAEMON
//按键挂钩
int my_keyhook(int key, int m)
{
  extern const int MODE_KBD;
  void *icsm=FindCSMbyID(CSM_root()->idle_id);
  if ((IsGuiOnTop(((int *)icsm)[DISPLACE_OF_IDLEGUI_ID/4]))&&IsUnlocked()&&(m==MODE_KBD+0x193))
  {
    if (key==CALL_BTN) TaskMenu(0);
   }
  return 0;
}

#define idlegui_id(icsm) (((int *)icsm)[DISPLACE_OF_IDLEGUI_ID/4])

int maincsm_onmessage(CSM_RAM* data,GBS_MSG* msg)
{  
  // 更新配置
  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)"ScrTool updated!");
      InitConfig();
      //重新加载节日文件数据
      if(FreeFileBuf(BirBuf)) BirBuf=LoadFileBuf(BIR_FILE);  
    }
  } 
  //自定义手机启动管理
  if ((MENU_ENA)&&(!SUCCED_HOOK))
  {      
      AddKeybMsgHook((void *)my_keyhook);
      SUCCED_HOOK = 1;
  }
  else if((!MENU_ENA)&&(SUCCED_HOOK))
  {
     if(MAINCSM_ID) CloseCSM(MAINCSM_ID); 
     RemoveKeybMsgHook((void *)my_keyhook);  
     SUCCED_HOOK = 0;
  }
  //自定义功能显示
  if (INFO_ENA){
   if (msg->msg==MSG_IPC){
    IPC_REQ *ipc;
    if ((ipc=(IPC_REQ*)msg->data0)){
      if (strcmp_nocase(ipc->name_to,ipc_name)==0){
        switch (msg->submess){
        case UPDATE_STAT:
          #ifdef NEWSGOLD
          if (!getCpuUsedTime_if_ena())
          {
            StartCpuUsageCount();
          }
          #endif
          GBS_StartTimerProc(&txtTimer, REFRESH*TMR_SECOND/10, TimerProc);
          TextActive = 1;
        }
      }
    }
   }  
   CSM_RAM *icsm=FindCSMbyID(CSM_root()->idle_id);
   if (icsm){
    if (IsGuiOnTop(idlegui_id(icsm))){
      GUI *igui=GetTopGUI();
      if (igui){
        InitIDS();
        #ifdef ELKA
        { void *canvastext = BuildCanvas();
        #else
          void *idata = GetDataOfItemByID(igui, 2);
        if (idata){
          void *canvastext = ((void **)idata)[DISPLACE_OF_IDLECANVAS / 4];
        #endif
          for (int inx=0; inx<(sizeof(IDS)/sizeof(TSCR)); inx++){
            if (IDS[inx].show){
              DrawCanvas(canvastext, IDS[inx].rc.x,IDS[inx].rc.y,IDS[inx].rc.x2,IDS[inx].rc.y2, 1);
              DrawString(IDS[inx].ws,IDS[inx].rc.x,IDS[inx].rc.y,IDS[inx].rc.x2,IDS[inx].rc.y2,IDS[inx].Size,TEXT_OUTLINE,IDS[inx].Pen,IDS[inx].Brush);
            }          
          }
        }
      }
    }
    }
   }else{if((TextActive)&&(IsTimerProc(&txtTimer))){GBS_DelTimer(&txtTimer);TextActive=0;}}
   //菜单
   MAIN_CSM_GUI *csm=(MAIN_CSM_GUI*)data;
   if ((int)msg->data0==csm->menu_id)
    {
      if (csm->task_id==0)
         csm->csm.state=-3;
      csm->menu_id=0;
    }
  return(1);
}  

static void Killer(void)
{
  extern void *ELF_BEGIN;
  if(MAINCSM_ID) CloseCSM(MAINCSM_ID);
  if(SUCCED_HOOK) RemoveKeybMsgHook((void *)my_keyhook);  
  kill_data(&ELF_BEGIN,(void (*)(void *))mfree_adr());
}

static void maincsm_oncreate(CSM_RAM *data)
{  
  for (int i=0;i<MAX_IDS; i++) IDS[i].ws=AllocWS(50);
  for (int i=0;i<MAX_APP; i++) APP[i].ws=AllocWS(50);
  BirBuf=LoadFileBuf(BIR_FILE);
  NongLi.year=AllocWS(50);
  NongLi.mday=AllocWS(50);
  if(INFO_ENA) GBS_SendMessage(MMI_CEPID,MSG_IPC,UPDATE_STAT,&my_ipc);
}

static void maincsm_onclose(CSM_RAM *csm)
{
  if((TextActive)&&(IsTimerProc(&txtTimer)))GBS_DelTimer(&txtTimer);
  for (int i=0;i!=MAX_IDS; i++) FreeWS(IDS[i].ws);
  for (int i=0;i!=MAX_APP; i++) FreeWS(APP[i].ws);
  FreeFileBuf(BirBuf);
  FreeWS(NongLi.year);
  FreeWS(NongLi.mday);
  SUBPROC((void *)Killer);  
}

static unsigned short maincsm_name_body[LEN];

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

static void UpdateCSMname(void)
{   
  utf8_2ws((WSHDR *)(&MAINCSM_d.maincsm_name),AVER,strlen(AVER));
  //wsprintf((WSHDR *)(&MAINCSM_d.maincsm_name),SCRTOOL_NAME);
}
#endif

int main()
{
  LockSched();
  InitConfig();
#ifdef DAEMON
  CSM_RAM *save_cmpc;
  char dummy[sizeof(MAIN_CSM_GUI)];
  UpdateCSMname();
  save_cmpc=CSM_root()->csm_q->current_msg_processing_csm;
  CSM_root()->csm_q->current_msg_processing_csm=CSM_root()->csm_q->csm.first;
  CreateCSM(&MAINCSM_d.maincsm,dummy,0);
  CSM_root()->csm_q->current_msg_processing_csm=save_cmpc;
  if(MENU_ENA){      
      AddKeybMsgHook((void *)my_keyhook);   
      SUCCED_HOOK = 1;
  }
#else 
  char dummy[sizeof(MAIN_CSM)];
  UpdateCSMname();
  MAINCSM_ID=CreateCSM(&MAINCSM.maincsm,dummy,0);
#endif    
  UnlockSched();
  return 0;
}