Pmt -> Prompt

This commit is contained in:
xmm15 2020-02-15 17:23:41 -06:00
parent 9a0c43d8b4
commit 4bebeea9b6
14 changed files with 98 additions and 100 deletions

Binary file not shown.

View File

@ -42,7 +42,7 @@ class CBgtEntryForm
U8 desc [512] format "$$DA-P,A=\"Desc:%s\"$$\n";
};
CBgtEntry *BgtEntryPmt(CBgtEntry *dft=NULL)
CBgtEntry *BgtEntryPrompt(CBgtEntry *dft=NULL)
{
CBgtEntryForm b;
CBgtEntry *tmpb;

View File

@ -13,7 +13,7 @@ Bool BgtPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
doc_ce->type_u8==DOCT_MENU_VAL) {
tmpb=doc_ce->user_data;
if (tmpt=tmpb->template) {
if (tmpt1=BgtTemplatePmt(tmpt)) {
if (tmpt1=BgtTemplatePrompt(tmpt)) {
QueueRemove(tmpt);
BgtTemplatePurge(tmpt);
BgtEntryDel2(&tmpt->b);
@ -23,7 +23,7 @@ Bool BgtPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
BgtRegen;
}
} else {
if (tmpb1=BgtEntryPmt(tmpb)) {
if (tmpb1=BgtEntryPrompt(tmpb)) {
QueueRemove(tmpb);
BgtEntryDel(tmpb);
BgtIns(tmpb1);
@ -62,13 +62,13 @@ Bool BgtPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
}
return TRUE;
case 'n':
if (tmpb1=BgtEntryPmt) {
if (tmpb1=BgtEntryPrompt) {
BgtIns(tmpb1);
BgtRegen;
}
return TRUE;
case 't':
if (tmpt1=BgtTemplatePmt) {
if (tmpt1=BgtTemplatePrompt) {
QueueInsert(tmpt1,t_head.last);
BgtTemplateExpand(tmpt1);
BgtRegen;
@ -80,7 +80,7 @@ Bool BgtPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
tmpb=doc_ce->user_data;
else
tmpb=NULL;
if (tmpb1=BgtEntryPmt(tmpb)) {
if (tmpb1=BgtEntryPrompt(tmpb)) {
BgtIns(tmpb1);
BgtRegen;
}
@ -89,7 +89,7 @@ Bool BgtPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
if ((doc_ce=doc->cur_entry) && doc_ce!=doc &&
doc_ce->type_u8==DOCT_MENU_VAL) {
tmpb=doc_ce->user_data;
if (tmpt1=BgtTemplatePmt(,tmpb)) {
if (tmpt1=BgtTemplatePrompt(,tmpb)) {
BgtTemplateExpand(tmpt1,TRUE);
BgtTemplateDel(tmpt1);
BgtRegen;

View File

@ -150,7 +150,7 @@ U0 CBgtTemplatesExpand()
}
}
CBgtTemplate *BgtTemplatePmt(CBgtTemplate *dft_t=NULL,CBgtEntry *dft_b=NULL)
CBgtTemplate *BgtTemplatePrompt(CBgtTemplate *dft_t=NULL,CBgtEntry *dft_b=NULL)
{
CBgtTemplate t,*tmpt;
CBgtEntry *tmpb;
@ -169,7 +169,7 @@ CBgtTemplate *BgtTemplatePmt(CBgtTemplate *dft_t=NULL,CBgtEntry *dft_b=NULL)
while (TRUE)
if (PopUpForm(&t) && ((t.type==BT_INTERVAL && t.period>0) ||
t.type>BT_INTERVAL)) {
if (tmpb=BgtEntryPmt(dft_b)) {
if (tmpb=BgtEntryPrompt(dft_b)) {
tmpt=CAlloc(sizeof(CBgtTemplate));
MemCpy(&tmpt->start,&t.start,BT_SIZE);
MemCpy(&tmpt->b,tmpb,sizeof(CBgtEntry));

View File

@ -7,7 +7,7 @@ import CDocEntry *DocPrint(CDoc *doc=NULL,U8 *fmt,...);
import CDocEntry *DocPutLine(CDoc *doc,CDocEntry *doc_e);
import I64 DocSize(CDoc *doc);
import Bool DocWrite(CDoc *doc,Bool prompt=FALSE);
extern U8 *CmdLinePmt();
extern U8 *CmdLinePrompt();
extern I64 HashEntrySize2(CHashSrcSym *tmph);
extern Bool IsLexExpression2Bin(CCmpCtrl *cc,U8 **_machine_code);
extern I64 Lex(CCmpCtrl *cc);

View File

@ -124,7 +124,7 @@ CD3I32 *LexD3I32(CCmpCtrl *cc,CD3I32 *p)
return p;
}
U8 *CmdLinePmt()
U8 *CmdLinePrompt()
{
I64 i;
U8 *res,*st;

Binary file not shown.

File diff suppressed because one or more lines are too long

View File

@ -224,7 +224,7 @@ lgc_start2:
} else {
if (cc->flags & CCF_PMT) {
Free(tmpf->buf);
ptr=CmdLinePmt;
ptr=CmdLinePrompt;
if (StrCmp(ptr,"\n") && !cc->pmt_line++ && !StrCmp(ptr,"?\n") &&
cc->flags & CCF_QUESTION_HELP) {
Free(ptr);

Binary file not shown.

View File

@ -93,9 +93,7 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
* Use thick and pen_height when clipping with thick>1.
* $LK,"~/Sup1/Sup1Games/Rocks.HC"$.
* Asm LIST NOLIST bugs.
* Asm LIST NOLIST bugs.
* Review writing to same cache-line from multicore. Do $LK,"CTask",A="MN:CTask"$->task_flags and others need to be in separate cache lines?

View File

@ -7,7 +7,7 @@
#define MAKE_STAFF 1
public U8 TOSGetDrive()
{//Pmt for drv let.
{//Prompt for drv let.
I64 res;
"Drive (%s):",TOS_HDS;
res=Letter2Letter(GetChar);
@ -44,8 +44,8 @@ public U0 TOSCopyDrive(U8 src,U8 dst)
TOSBootHDIns(dst);
}
public U0 TOSPmtAndCopyDrive()
{//Pmt for drv lets. Then, Fmt dst and copy entire drv.
public U0 TOSPromptAndCopyDrive()
{//Prompt for drv lets. Then, Fmt dst and copy entire drv.
I64 src,dst;
"$$RED$$\nCopy Src Drive:\n$$FG$$";
src=TOSGetDrive;

Binary file not shown.

Binary file not shown.