d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add new word ".#" which acts like "." but doesn't output a space separator.

Browse Source 
I found it impossible to output parametrized strings like "\033[%d;%dH"
without building them first in pad area.
This commit is contained in:
Andrzej Bialecki 1998-12-22 11:46:27 +00:00
parent 1c49fb07d8
commit ac19ebdfbe
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
sys/boot/ficl/words.c
View File

@ -622,6 +622,18 @@ static void displayCell(FICL_VM *pVM)
return;
}
static void displayCellNoPad(FICL_VM *pVM)
{
CELL c;
#if FICL_ROBUST > 1
vmCheckStack(pVM, 1, 0);
#endif
c = stackPop(pVM->pStack);
ltoa((c).i, pVM->pad, pVM->base);
vmTextOut(pVM, pVM->pad, 0);
return;
}
static void uDot(FICL_VM *pVM)
{
UNS32 u;
@ -4158,6 +4170,7 @@ void ficlCompileCore(FICL_DICT *dp)
dictAppendWord(dp, ",", comma, FW_DEFAULT);
dictAppendWord(dp, "-", sub, FW_DEFAULT);
dictAppendWord(dp, ".", displayCell, FW_DEFAULT);
dictAppendWord(dp, ".#", displayCellNoPad, FW_DEFAULT);
dictAppendWord(dp, ".\"", dotQuoteCoIm, FW_COMPIMMED);
dictAppendWord(dp, "/", ficlDiv, FW_DEFAULT);
dictAppendWord(dp, "/mod", slashMod, FW_DEFAULT);