Добавить буквальный пробел в изображенном цифровой выход

Question

Примерно через несколько часов проб и ошибок, я не мог понять, как это сделать ... Вот код, я работаю над:

: format 
    (n ds --) 
    >r   cr .s 
    dup    cr .s 
    >r    cr .s 
    abs    cr .s 
    s>d    cr .s 
    <# [char] bl hold #s r> sign #> cr .s 
    r@    cr .s 
    dup    cr .s 
    c@    cr .s 
    dup >r   cr .s 
    chars +   cr .s 
    char+   cr .s 
    swap    cr .s 
    dup    cr .s 
    >r    cr .s 
    cmove   cr .s 
    r> r> +   cr .s 
    r>    cr .s 
    c! 
; 

В качестве в стороне ... нет более легкого способа печати на выходе, что-то похожее на printf было бы здорово. Другая возможность заключалась бы в том, чтобы указать символ пробела как символ символа строки типа s" ".

EDIT:

я обнаружил, что я могу сделать: s\" \040 test" в Gforth (хотя руководство говорит, что это не стандарт). И s\" \x20 test", который, вероятно, является стандартным, но я не совсем понимаю, где часть предложения, которая говорит, является ли она стандартной или нет. Тем не менее, я был бы рад узнать, как объединить его с изображением на фото.

EDIT2

Это, как я бы ожидать, что она будет использоваться:

create test 256 allot 
s" prefix " test place 
123 test format 
s" suffix" test place+ 
test count type \ prefix 123 suffix 

Answer 1

Я думаю, для этого примера вам не нужно, чтобы добавить пространство в <# #> вещи. Вы можете определить строки с ведущими или конечными пробелами с s".

Так что, если вы начинаете с

\ Push addresses and lengths for the prefix and the number 
s" prefix "   \        -- addr u 
123 s>d <# #s #> \      addr u -- addr u addr2 u2 

Слово, что вы хотите что-то, объединяющее их, например:

: concatenate 
    \ Moves the string addr2 u2 to the end of the string addr u 
    >r >r    \  addr u addr2 u2 -- addr u 
    dup >r over r> + r> \     addr u -- addr u addr+u addr2 
    swap r@    \     addr u -- addr u addr2 addr+u u2 
    cmove r> + ;   \ addr u addr2 addr+u u2 -- addr u+u2 

Так что, если вы звоните это и вывод результирующей строки следующим образом:

concatenate type 

выходной сигнал будет "префикс 123"

Затем вы можете применить одно и то же слово к строкам «префикс 123» и «суффикс».

Это не использует точно такие же места в памяти, как ваш пример, но может быть адаптирован, и это был самый простой способ продемонстрировать его.

---

В ответ на комментарий, вы, кажется, довольно близко к встраиванию символов в изображенном выходе, я думаю, вам просто нужно удалить [char] например,

123 s>d <# # bl hold # bl hold # #> 

Если создать строку, как «1 2 3»