#help_index "DolDoc/Misc"

U8 captured_macro_name[STR_LEN];
StrCpy(captured_macro_name,"Test");

I64 sys_macro_repeat_n=1;

U0 SysMacroStripKey(CJob *macro_head,I64 arg1,I64 arg2)
{
  CJob *tmpc,*tmpc1;
  tmpc=macro_head->next;
  while (tmpc!=macro_head)
  {
    tmpc1=tmpc->next;
    if (tmpc->job_code==JOBT_MSG &&
        (tmpc->msg_code==MSG_KEY_DOWN || tmpc->msg_code==MSG_KEY_UP ||
         tmpc->msg_code==MSG_KEY_DOWN_UP) &&
        arg1 && tmpc->aux1==arg1 || !arg1 && tmpc->aux2==arg2)
    {
      QueRem(tmpc);
      JobDel(tmpc);
    }
    tmpc=tmpc1;
  }
}

#define MT_NULL 0
#define MT_MSG  1
#define MT_CHAR 2

class CMacroTmp
{
  CMacroTmp *next,*last;
  I64 type;
  U8 buf[STR_LEN];
};

CMacroTmp *Cmd2MT(CJob *tmpc)
{
  U8 buf[8];
  CMacroTmp *tmpmt=CAlloc(sizeof(CMacroTmp));
  if (Bt(char_bmp_macro,tmpc->aux1) && tmpc->msg_code==MSG_KEY_DOWN)
  {
    tmpmt->type=MT_CHAR;
    buf[0]=tmpc->aux1;
    buf[1]=0;
    StrPrint(tmpmt->buf,"%Q",buf);
  }
  else
  {
    tmpmt->type=MT_MSG;
    StrPrint(tmpmt->buf,"Msg(0x%X,0x%X,0x%X);",
             tmpc->msg_code,tmpc->aux1,tmpc->aux2);
  }
  return tmpmt;
}

U8 *SysMacro2Str(CJob *macro_head)
{
  CJob *tmpc;
  I64 cnt=1; //terminating zero
  U8 *ptr,*m;
  CMacroTmp *tmpmt,*tmpmt1,head;
  LBtr(&sys_semas[SEMA_RECORD_MACRO],0);
  QueInit(&head);
  head.type=MT_NULL;
  tmpc=macro_head->next;
  while (tmpc!=macro_head)
  {
    tmpmt=Cmd2MT(tmpc);
    QueIns(tmpmt,head.last);
    cnt+=StrLen(tmpmt->buf);
    if (tmpmt->type==MT_CHAR)
    {
      if (tmpmt->last->type!=MT_CHAR)
        cnt+=StrLen("\"");
      if (tmpmt->next->type!=MT_CHAR)
        cnt+=StrLen("\";");
    }
    tmpc=tmpc->next;
  }
  m=MAlloc(cnt);
  ptr=m;
  tmpmt=head.next;
  while (tmpmt!=&head)
  {
    tmpmt1=tmpmt->next;
    if (tmpmt->type==MT_MSG)
    {
      StrCpy(ptr, tmpmt->buf);
      ptr+=StrLen(tmpmt->buf);
    }
    else
    {
      if (tmpmt->last->type!=MT_CHAR)
      {
        StrCpy(ptr, "\"");
        ptr+=StrLen("\"");
      }
      StrCpy(ptr,tmpmt->buf);
      ptr+=StrLen(tmpmt->buf);
      if (tmpmt->next->type!=MT_CHAR)
      {
        StrCpy(ptr, "\";");
        ptr+=StrLen("\";");
      }
    }
    Free(tmpmt);
    tmpmt=tmpmt1;
  }
  *ptr=0;
  return m;
}

U0 PlaySysMacro(I64 n=1)
{
  CTask *task=sys_focus_task;
  U8 *m;
  if (TaskValidate(task))
  {
    LBtr(&sys_semas[SEMA_RECORD_MACRO],0);
    m=SysMacro2Str(&sys_macro_head);
    while (n-- && TaskValidate(task))
    {
      if (task==Fs)
        InStr("%s",m);
      else
        XTalkStrWait(task,"%s",m);
    }
    Free(m);
  }
}

U0 EdInsCapturedMacro()
{
  U8 *st=SysMacro2Str(&sys_macro_head);
  if (sys_focus_task)
  {
    XTalk(sys_focus_task,"$MA+LIS,T=\"%s\",LM=\"%$Q\"$",
          captured_macro_name,st);
    Free(st);
  }
}

#define SM_RECORD       0
#define SM_INS          1
#define SM_PLAY         2
#define SM_REPEAT_N     3
#define SM_STOP         4

I64 PopUpMacroMenu()
{
  I64 res=0;
  U8 buf[STR_LEN];
  CJob *tmpc;
  CDoc *doc=DocNew;
  CDocEntry *doc_e=DocPrint(doc,"$DA-P,LEN=STR_LEN-1,A=\"Name:%%s\"$");
  doc_e->data=captured_macro_name;
  DocDataFmt(doc,doc_e);
  doc_e=DocPrint(doc,"\n$DA,A=\"Repeat N:%%d\"$");
  doc_e->data=&sys_macro_repeat_n;
  DocDataFmt(doc,doc_e);
  DocPrint(doc,"\n"
           "$CM+LX,1,3$$BT,\"RECORD\",LE=SM_RECORD$"
           "$CM+LX,17,0$$BT,\"INSERT\",LE=SM_INS$"
           "$CM+LX,1,3$$BT,\"PLAY\",LE=SM_PLAY$"
           "$CM+LX,17,0$$BT,\"REPEAT N\",LE=SM_REPEAT_N$"
           "$CM+LX,1,3$$BT,\"STOP\",LE=SM_STOP$"
           "$CM+LX,17,0$$BT,\"CANCEL\",LE=DOCM_CANCEL$"
           "\n\n\n$GREEN$SHIFT-F2$FG$ will play macro.\n");
  doc->flags|=DOCF_SIZE_MIN | DOCF_FORM;
  StrPrint(buf,"DocMenu(%d);",doc);
  sys_macro_task=Spawn(&SrvCmdLine,NULL,"Macro Popup",,Fs);
  Fs->popup_task=sys_macro_task;
  LBts(&sys_macro_task->display_flags,DISPLAYf_WIN_ON_TOP);
  tmpc=TaskExe(sys_macro_task,Fs,buf,
               1<<JOBf_WAKE_MASTER|1<<JOBf_FOCUS_MASTER);
  JobResScan(tmpc,&res);
  Fs->popup_task=NULL;
  Kill(sys_macro_task);
  sys_macro_task=NULL;
  DocDataScan(doc,doc_e);
  DocDel(doc);
  return res;
}

U0 MacroTask(I64)
{
  I64 i;
  StrCpy(captured_macro_name,"Click Here");
  sys_macro_repeat_n=1;
  do
  {
    i=PopUpMacroMenu;
    WinRefocus(sys_focus_task);
    switch (i)
    {
    case SM_RECORD:
      LBtr(&sys_semas[SEMA_RECORD_MACRO],0);
      QueDel(&sys_macro_head,TRUE);
      LBts(&sys_semas[SEMA_RECORD_MACRO],0);
      break;
    case SM_PLAY:
      PlaySysMacro;
      break;
    case SM_REPEAT_N:
      PlaySysMacro(sys_macro_repeat_n);
      break;
    case SM_STOP:
      LBtr(&sys_semas[SEMA_RECORD_MACRO],0);
      break;
    case SM_INS:
      LBtr(&sys_semas[SEMA_RECORD_MACRO],0);
      EdInsCapturedMacro;
      break;
    }
  }
  while (i>=0);
}

U0 EdMacroUtil()
{
  if (!sys_macro_task)
    Spawn(&MacroTask,NULL,"Macro");
}