From ac19ebdfbeebd5fdd10488885af6e8f5fd111429 Mon Sep 17 00:00:00 2001 From: Andrzej Bialecki Date: Tue, 22 Dec 1998 11:46:27 +0000 Subject: Add new word ".#" which acts like "." but doesn't output a space separator. I found it impossible to output parametrized strings like "\033[%d;%dH" without building them first in pad area. --- sys/boot/ficl/words.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'sys') diff --git a/sys/boot/ficl/words.c b/sys/boot/ficl/words.c index b92d69196746..da9112b11898 100644 --- a/sys/boot/ficl/words.c +++ b/sys/boot/ficl/words.c @@ -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); -- cgit v1.3