Палитра Каллисто

Материал из ПМК вики
Перейти к навигации Перейти к поиску

Следующие слова не включены в ядро Каллисто, но при необходимости могут быть добавлены программистом в свой исходный код:


Определяющие слова

: Array   ( #cells -- )  <Builds 2× allot
    DOES> ( i -- ’cell)   ↔ 2× + ;


Манипуляции со стеком

: -rot  ( a b c -- c a b )   rot rot ;


Арифметика

: under+  ( a b c -- a+c b )   rot  +  ↔ ;


Работа со словарём

: >body  ( CFA -- PFA )  2+ ;


Ввод-вывод

Вывод строк, завершающихся нулевым символом:

: typez   ( a -- )   BEGIN ↑ c@  ↑ WHILE emit 1+ REPEAT   2drop ;