245 lines
6.4 KiB
HolyC
245 lines
6.4 KiB
HolyC
|
U0 InputFilterTask()
|
|||
|
|
{
|
|||
|
|
CJob *tmpc,*tmpc1;
|
|||
|
|
Bool old_filter;
|
|||
|
|
I64 old_flags=GetRFlags;
|
|||
|
|
Fs->win_inhibit=WIG_USER_TASK_DFT;
|
|||
|
|
LBts(&Fs->task_flags,TASKf_INPUT_FILTER_TASK);
|
|||
|
|
old_filter=LBts(&Fs->last_input_filter_task->task_flags,TASKf_FILTER_INPUT);
|
|||
|
|
LBEqu(&Fs->task_flags,TASKf_FILTER_INPUT,old_filter);
|
|||
|
|
while (TRUE) {
|
|||
|
|
CLI
|
|||
|
|
JobsHndlr(old_flags);
|
|||
|
|
tmpc1=&Fs->srv_ctrl.next_waiting;
|
|||
|
|
tmpc=tmpc1->next;
|
|||
|
|
if (tmpc==tmpc1)
|
|||
|
|
break;
|
|||
|
|
else {
|
|||
|
|
if (tmpc->job_code==JOBT_TEXT_INPUT) {
|
|||
|
|
QueRem(tmpc);
|
|||
|
|
SetRFlags(old_flags);
|
|||
|
|
try
|
|||
|
|
ExePrint("%s",tmpc->aux_str);
|
|||
|
|
catch
|
|||
|
|
Fs->catch_except=TRUE;
|
|||
|
|
JobDel(tmpc);
|
|||
|
|
} else
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
Fs->next_input_filter_task->last_input_filter_task=Fs->last_input_filter_task;
|
|||
|
|
Fs->last_input_filter_task->next_input_filter_task=Fs->next_input_filter_task;
|
|||
|
|
if (!old_filter)
|
|||
|
|
LBtr(&Fs->last_input_filter_task->task_flags,TASKf_FILTER_INPUT);
|
|||
|
|
SetRFlags(old_flags);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 ScanMsg(I64 *_arg1=NULL,I64 *_arg2=NULL,I64 mask=~1,CTask *task=NULL)
|
|||
|
|
{/*Check for a message of type specified by a one in the mask.
|
|||
|
|
Throw-out messages not in mask.
|
|||
|
|
If no message fit mask, return NULL immediately.
|
|||
|
|
Remove desired message, return $LK,"msg_code",A="MN:MSG_CMD"$.
|
|||
|
|
Note: This delivers messages from parent down to pop-up.
|
|||
|
|
*/
|
|||
|
|
I64 res,old_flags;
|
|||
|
|
CJob *tmpc,*tmpc1;
|
|||
|
|
if (!task) task=Fs;
|
|||
|
|
old_flags=GetRFlags;
|
|||
|
|
tmpc1=&task->srv_ctrl.next_waiting;
|
|||
|
|
while (TRUE) {
|
|||
|
|
CLI
|
|||
|
|
if (task==Fs)
|
|||
|
|
JobsHndlr(old_flags);
|
|||
|
|
tmpc=tmpc1->next;
|
|||
|
|
if (tmpc==tmpc1)
|
|||
|
|
break;
|
|||
|
|
else {
|
|||
|
|
if (tmpc->job_code==JOBT_MSG) {
|
|||
|
|
QueRem(tmpc);
|
|||
|
|
SetRFlags(old_flags);
|
|||
|
|
res=tmpc->msg_code;
|
|||
|
|
if (_arg1)
|
|||
|
|
*_arg1=tmpc->aux1;
|
|||
|
|
if (_arg2)
|
|||
|
|
*_arg2=tmpc->aux2;
|
|||
|
|
JobDel(tmpc);
|
|||
|
|
if ((res!=MSG_KEY_DOWN || !(tmpc->aux2&SCF_KEY_DESC) ||
|
|||
|
|
!Bt(&task->win_inhibit,WIf_SELF_KEY_DESC)) && Bt(&mask,res))
|
|||
|
|
goto sm_done;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
SetRFlags(old_flags);
|
|||
|
|
}
|
|||
|
|
res=MSG_NULL;
|
|||
|
|
if (_arg1)
|
|||
|
|
*_arg1=0;
|
|||
|
|
if (_arg2)
|
|||
|
|
*_arg2=0;
|
|||
|
|
if (task->parent_task&&task->parent_task->popup_task==task) {
|
|||
|
|
SetRFlags(old_flags);
|
|||
|
|
return ScanMsg(_arg1,_arg2,mask,task->parent_task);
|
|||
|
|
}
|
|||
|
|
sm_done:
|
|||
|
|
SetRFlags(old_flags);
|
|||
|
|
return res;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 FlushMsgs(CTask *task=NULL)
|
|||
|
|
{//Throw away all messages. Return count.
|
|||
|
|
I64 res=0,arg1,arg2;
|
|||
|
|
while (ScanMsg(&arg1,&arg2,~1,task))
|
|||
|
|
res++;
|
|||
|
|
return res;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 GetMsg(I64 *_arg1=NULL,I64 *_arg2=NULL,I64 mask=~1,CTask *task=NULL)
|
|||
|
|
{//Wait for a message of type specified by a one in the mask.
|
|||
|
|
//Throw-out all messages not in mask.
|
|||
|
|
//Returns $LK,"msg_code",A="MN:MSG_CMD"$. See $LK,"::/Demo/MsgLoop.HC"$.
|
|||
|
|
I64 res;
|
|||
|
|
if (!task) task=Fs;
|
|||
|
|
LBtr(&task->task_flags,TASKf_IDLE);
|
|||
|
|
while (!(res=ScanMsg(_arg1,_arg2,mask,task))) {
|
|||
|
|
LBts(&task->task_flags,TASKf_IDLE);
|
|||
|
|
Yield;
|
|||
|
|
}
|
|||
|
|
LBtr(&task->task_flags,TASKf_IDLE);
|
|||
|
|
return res;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 ScanChar()
|
|||
|
|
{//Checks for $LK,"MSG_KEY_DOWN",A="MN:MSG_KEY_DOWN"$ and returns 0 immediately if no key.
|
|||
|
|
//Waits for $LK,"MSG_KEY_UP",A="MN:MSG_KEY_UP"$ of non-zero $LK,"ASCII",A="MN:CH_CTRLA"$ key and returns $LK,"ASCII",A="MN:CH_CTRLA"$ if key.
|
|||
|
|
//$LK,"ScanMsg",A="MN:ScanMsg"$() throws away other message types.
|
|||
|
|
I64 arg1a,arg2a,arg1b,arg2b;
|
|||
|
|
if (!ScanMsg(&arg1a,&arg2a,1<<MSG_KEY_DOWN)||!arg1a)
|
|||
|
|
return 0;
|
|||
|
|
else
|
|||
|
|
do GetMsg(&arg1b,&arg2b,1<<MSG_KEY_UP);
|
|||
|
|
while (!arg1b); //Be careful of $LK,"SC_SHIFT",A="MN:SC_SHIFT"$ and $LK,"SC_CTRL",A="MN:SC_CTRL"$, etc.
|
|||
|
|
return arg1a;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Bool ScanKey(I64 *_ch=NULL,I64 *_scan_code=NULL,Bool echo=FALSE)
|
|||
|
|
{//Checks for $LK,"MSG_KEY_DOWN",A="MN:MSG_KEY_DOWN"$ and returns FALSE immediately if no key.
|
|||
|
|
//Sets $LK,"ASCII",A="MN:CH_CTRLA"$ and $LK,"scan_code",A="FI:::/Doc/CharOverview.DD"$.
|
|||
|
|
//Removes key message and returns TRUE.
|
|||
|
|
//$LK,"ScanMsg",A="MN:ScanMsg"$() throws away other message types.
|
|||
|
|
I64 ch=0,sc=0;
|
|||
|
|
if (ScanMsg(&ch,&sc,1<<MSG_KEY_DOWN)) {
|
|||
|
|
if (_ch) *_ch=ch;
|
|||
|
|
if (_scan_code) *_scan_code=sc;
|
|||
|
|
if (echo)
|
|||
|
|
PutKey(ch,sc);
|
|||
|
|
return TRUE;
|
|||
|
|
} else {
|
|||
|
|
if (_ch) *_ch=0;
|
|||
|
|
if (_scan_code) *_scan_code=0;
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 GetKey(I64 *_scan_code=NULL,Bool echo=FALSE,Bool raw_cursor=FALSE)
|
|||
|
|
{//Waits for $LK,"MSG_KEY_DOWN",A="MN:MSG_KEY_DOWN"$ message and returns $LK,"ASCII",A="MN:CH_CTRLA"$.
|
|||
|
|
//Sets $LK,"scan_code",A="FI:::/Doc/CharOverview.DD"$.
|
|||
|
|
//$LK,"ScanKey",A="MN:ScanKey"$() throws away other message types.
|
|||
|
|
I64 ch,sc;
|
|||
|
|
Bool cursor_on=FALSE;
|
|||
|
|
while (!ScanKey(&ch,&sc,FALSE)) {
|
|||
|
|
if (IsRaw && raw_cursor) {
|
|||
|
|
if (!cursor_on && ToI64(GetTSC*5/cnts.time_stamp_freq)&1) {
|
|||
|
|
'<EFBFBD>';
|
|||
|
|
cursor_on=TRUE;
|
|||
|
|
} else if (cursor_on && !(ToI64(GetTSC*5/cnts.time_stamp_freq)&1)) {
|
|||
|
|
'' CH_BACKSPACE;
|
|||
|
|
cursor_on=FALSE;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
LBts(&Fs->task_flags,TASKf_IDLE);
|
|||
|
|
if (IsDbgMode) {
|
|||
|
|
//We don't want interrupt-driven keyboard when in debugger
|
|||
|
|
//because that could have side-effects or crash, so we poll
|
|||
|
|
//keyboard when in debugger with interrupts off.
|
|||
|
|
PUSHFD
|
|||
|
|
CLI
|
|||
|
|
KbdMsHndlr(TRUE,FALSE);
|
|||
|
|
KbdMsgsQue;
|
|||
|
|
POPFD
|
|||
|
|
} else {
|
|||
|
|
LBts(&Fs->task_flags,TASKf_AWAITING_MSG);
|
|||
|
|
Yield;
|
|||
|
|
}
|
|||
|
|
LBtr(&Fs->task_flags,TASKf_IDLE);
|
|||
|
|
}
|
|||
|
|
if (IsRaw && raw_cursor && cursor_on)
|
|||
|
|
'' CH_BACKSPACE;
|
|||
|
|
if (echo)
|
|||
|
|
PutKey(ch,sc);
|
|||
|
|
if (_scan_code) *_scan_code=sc;
|
|||
|
|
return ch;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 GetChar(I64 *_scan_code=NULL,Bool echo=TRUE,Bool raw_cursor=FALSE)
|
|||
|
|
{//Waits for non-zero $LK,"ASCII",A="MN:CH_CTRLA"$ key.
|
|||
|
|
//Sets $LK,"scan_code",A="FI:::/Doc/CharOverview.DD"$.
|
|||
|
|
I64 ch1;
|
|||
|
|
do ch1=GetKey(_scan_code,FALSE,raw_cursor);
|
|||
|
|
while (!ch1);
|
|||
|
|
if (echo)
|
|||
|
|
"$$PT$$%c$$FG$$",ch1;
|
|||
|
|
return ch1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
U8 *GetStr(U8 *msg=NULL,U8 *dft=NULL,I64 flags=0)
|
|||
|
|
{//Returns a $LK,"MAlloc",A="MN:MAlloc"$()ed prompted string. See $LK,"Flags",A="MN:GSF_SHIFT_ESC_EXIT"$.
|
|||
|
|
U8 *st;
|
|||
|
|
if (msg)
|
|||
|
|
"" msg,dft;
|
|||
|
|
st=(*fp_getstr2)(flags);
|
|||
|
|
if (!*st) {
|
|||
|
|
Free(st);
|
|||
|
|
if (dft)
|
|||
|
|
return StrNew(dft);
|
|||
|
|
else
|
|||
|
|
return StrNew("");
|
|||
|
|
}
|
|||
|
|
return st;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
I64 GetS(U8 *buf,I64 size,Bool allow_ext=TRUE)
|
|||
|
|
{//Prompt into fixed length string. Size must include terminator.
|
|||
|
|
U8 *st;
|
|||
|
|
I64 ch,i=0;
|
|||
|
|
if (!size || !buf) return 0;
|
|||
|
|
if (allow_ext) {
|
|||
|
|
st=GetStr;
|
|||
|
|
if (StrLen(st)>size-1) {
|
|||
|
|
MemCpy(buf,st,size-1);
|
|||
|
|
buf[size-1]=0;
|
|||
|
|
} else
|
|||
|
|
StrCpy(buf,st);
|
|||
|
|
i=StrLen(buf);
|
|||
|
|
Free(st);
|
|||
|
|
} else {
|
|||
|
|
while (TRUE) {
|
|||
|
|
ch=GetChar(,FALSE,IsDbgMode);
|
|||
|
|
if (ch=='\n') {
|
|||
|
|
'' ch;
|
|||
|
|
break;
|
|||
|
|
} else if (ch==CH_BACKSPACE) {
|
|||
|
|
if (i>0) {
|
|||
|
|
i--;
|
|||
|
|
'' ch;
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
if (i<size-1) {
|
|||
|
|
buf[i++]=ch;
|
|||
|
|
'' ch;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
buf[i]=0;
|
|||
|
|
}
|
|||
|
|
return i;
|
|||
|
|
}
|