.(
.( (точка и скобка) — стандартное слово Каллисто.
.( ( −− ) При компиляции вывести строку, вплоть до закрывающей скобки.
Вывести на индикатор следующие литеры до закрывающей скобки исключительно.
Слово .( работает, как комментарий — только литеры не просто игнорируются, а ещё и выводятся на индикатор.
Ввод слова .(
В режиме NUM последовательно нажмите две клавиши /−/ ШГ→
.( в стандарте ANS Forth
6.2.0200 .( "dot-paren" CORE EXT Компиляция: Исполняет семантику выполнения, данную ниже. Выполнение: ( "ccc<paren>" -- ) Выделяет и отображает ccc, ограниченную ) (правая круглая скобка). .( является словом немедленного исполнения. См.: 3.4.1 Синтаксический анализ, 6.1.0190 .". A.6.2.0200 .( Типичное использование: .( ccc)
История
.( в предыдущем стандарте Forth-83 (англ.)
.( -- I,M,83 "dot-paren" -- (compiling) Used in the form: .( ccc) The characters ccc up to but not including the delimiting ) (closing parenthesis) are displayed. The blank following .( is not part of ccc.
Реализация
3123 ;#Dotp 3124 ; .( I ( −− ) При компиляции вывести строку, вплоть до закрывающей скобки. 3125 ; Выводит текст сообщения, ограниченного правой круглой скобкой. 3126 ; Может использоваться как вне, так и внутри определений через двоеточие. 3127 LCOMQ: .DB 82H 3128 .TEXT ".(" 3129 .DW LDOTQ 3130 COMQ: .DW CALL, LITB 3131 .DB 41 ; '(' 3132 .DW WORD,COUNT,TYPE, EXIT
Советская реализация
Описание и определение слова .( в ядре ФОРТ-ЕС:
.( Н -> НАПЕЧАТАТЬ СЛЕДУЮЩИЕ ЛИТЕРЫ ДО 28 ЗАКРЫВАЮЩЕЙ СКОБКИ ИСКЛЮЧИТЕЛЬНО Экран номер 28 ( 31.03.86 LIT" COUNT ," " ". (."/ ." C" ( ,( QUIT ABORT ) : .( ( ->) C" ) WORD COUNT TYPE ; IMMEDIATE
Ссылки
- Исходный текст слова .( в Каллисто Классик 1.0
- Слово .( (dot-paren) и комментарий к нему в стандарте ANS Forth (англ.)
- Слово .( (dot-paren) и комментарий к нему в черновике Forth 200x (англ.)
- КАК РАБОТАТЬ НА ФОРТЕ в книге Л.Броуди «Начальный курс программирования на языке Форт»
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |