WORD

WORD (слово, читается «ворд») — стандартное слово Каллисто.

WORD           ( c −− a )                           Ввести слово до стоп−литеры c.
                                                    Дать его адрес, как строки со счётчиком.

Считывает одно слово из входного или экранного буфера и размещает его, начиная с адреса HERE

Ввод слова WORD

В режиме ЛАТ последовательно нажмите четыре клавиши  В↑   5   ×   K 

WORD в стандарте ANS Forth

 6.1.2450   WORD                                                            CORE
            ( char "<chars>ccc<char>" -- c-addr )
            Пропускает ведущие разделители. Выделяет символы ccc ограниченные 
            char. Неопределенная ситуация существует, если длина выделенной 
            строки больше чем длина определенной реализацией строки со 
            счетчиком.

            c-addr - адрес временной области, содержащей выделенное слово как 
            строку со счетчиком. Если область анализа была пуста или не 
            содержала других символов кроме разделителей, результирующая строка 
            имеет нулевую длину. За строкой следует не включенный в длину 
            пробел. Программа может изменять символы в пределах строки.

        Примечание: Требование, о следовании пробела за строкой устаревшее и 
            включено как уступка существующим программам, которые используют 
            CONVERT. Программа не должна зависеть от существования пробела.

        См.: 3.3.3.6 Другие временные области, 3.4.1 Синтаксический анализ.

 A.6.1.2450   WORD
 Типичное использование:
        char WORD ccc<char>

История

Слово WORD появилось в 1958 году в самой первой версии интерпретатора Форта, написанного Чак Муром на Фортране для IBM EDPM 704 для САО. Тогда оно ещё не называлось WORD, так как в то время команды Форта кодировались числами.

Важно, что первый WORD считывал для INTERPRET слова, разделённые пробелами. Подобный ввод в свободном формате был необычен для того времени, но более эффективным (компактней и быстрее) и надёжным. Фортрановский ввод был отформатирован в конкретные колонки и ошибки набора приводили к многочисленным задержкам.

Чак Мур отказался от слова WORD в colorForth, где вводимые слова не буферизуются в редактируемой строке, а исполняются сразу по нажатию клавиши «Пробел».

WORD в предыдущем стандарте Forth-83 (англ.)

      WORD         char -- addr                  M,83
           Generates a counted string by non-destructively accepting
           characters from the input stream until the delimiting
           character char is encountered or the input stream is
           exhausted.  Leading delimiters are ignored.  The entire
           character string is stored in memory beginning at addr as a
           sequence of bytes.  The string is followed by a blank which
           is not included in the count.  The first byte of the string
           is the number of characters {0..255}.  If the string is
           longer than 255 characters, the count is unspecified.  If
           the input stream is already exhausted as WORD is called,
           then a zero length character string will result.

           If the delimiter is not found the value of >IN is the size
           of the input stream.  If the delimiter is found >IN is
           adjusted to indicate the offset to the character following
           the delimiter.  #TIB is unmodified.

           The counted string returned by WORD may reside in the "free"
           dictionary area at HERE or above.  Note that the text
           interpreter may also use this area.  See:  "input stream"

WORD в стандарте Forth-79 (англ.)

WORD           char -- addr                  181
    Receive  characters  from the input stream until the  non-zero
    delimiting  character  is encountered or the input  stream  is
    exhausted,  ignoring leading delimiters.   The characters  are
    stored  as  a  packed string with the character count  in  the
    first  character position.   The actual delimiter  encountered
    (char  or  null)  is stored at the end of  the  text  but  not
    included  in the count.   If the input stream was exhausted as
    WORD is called,  then a zero length will result.   The address
    of the beginning of this packed string is left on the stack.

WORD в fig-FORTH Release 1 glossary, май 1979 (англ.)

WORD          c  ---                            L0
       Read the next text characters from the input stream being
       interpreted, until a delimiter c is found, storing the packed
       character string beginning at the dictionary buffer HERE. WORD
       leaves the character count in the first byte, the characters, and
       ends with two or more blanks. Leading occurrences of c are ignored.
       If BLK is zero text is taken from the terminal input buffer,
       otherwise from the disc block stored in BLK.
       See BLK, IN.

Реализация

Слово WORD кладёт адрес считанного слова в стек, как это требует Форт. Этот адрес a всегда равен HERE — как и в большинстве реализаций Форта. Первый байт по адресу a содержит число символов в считанном слове. Фактически это уже заготовка для поля имени новой словарной статьи, ждущая своего ALLOT.

Длина имени слова ограничивается 31 литерой.

3167 ;#WORD
3168 ; WORD             ( c −− a )                           Ввести слово до стоп−литеры c. Дать его адрес, как строки со счётчиком.
3169 ; Считать одно слово из входного или экранного буфера и разместить его, начиная с адреса HERE
3170 ; Первый байт содержит число литер в слове.
3171 ; Положить адрес считанного слова на стек, как это требует Форт−79.
3172 ; Этот адрес a всегда HERE −− как и в большинстве реализаций Форта.
3173 LWORD:          .DB     4
3174                 .TEXT   "WORD"                  ; ( c "<c>ccc<c>" −− HERE )
3175                 .DW     LPAD
3176 WORD:           .DW CALL, BLK,UAT, QDUP,ZBRAN,WD1, BLOCK, BRAN,WD2
3177 WD1:            .DW TIB
3178 WD2:            .DW IN,UAT, PLUS, SWAP, ENCL
3179                 .DW HERE, BL,BLANK              ; BL == 32  ( 31 имя и 1 байт длины)
3180                 .DW IN,PSTOR, DUP,TOR, HERE,CSTOR
3181                 .DW HERE,ONEP, FROMR, CMOVE, HERE, EXIT

Реализация из SP-Forth 4.20:

: WORD ( char "<chars>ccc<char>" -- c-addr ) \ 94
\ Пропустить ведущие разделители. Выбрать символы, ограниченные
\ разделителем char.
\ Исключительная ситуация возникает, если длина извлеченной строки
\ больше максимальной длины строки со счетчиком.
\ c-addr - адрес переменной области, содержащей извлеченное слово
\ в виде строки со счетчиком.
\ Если разбираемая область пуста или содержит только разделители,
\ результирующая строка имеет нулевую длину.
\ В конец строки помещается пробел, не включаемый в длину строки.
\ Программа может изменять символы в строке.
  DUP SKIP PARSE 255 MIN
  DUP SYSTEM-PAD C! SYSTEM-PAD CHAR+ SWAP CMOVE
  0 SYSTEM-PAD COUNT CHARS + C!
  SYSTEM-PAD
;

Советская реализация

Описание и определение слова WORD в ядре ФОРТ-ЕС:

WORD      С->Т  ВВЕСТИ СЛОВО ДО СТОП-ЛИТЕРЫ C;                 27
             ДАТЬ ЕГО АДРЕС КАК СТРОКИ СО СЧЕТЧИКОМ

                     Экран номер 27
( 31.03.66    ENCLOSE  WORD )

: WORD  ( C->T )   BLK @ IF BLK @ BLOCK ELSE TIB THEN
  >IN @ + SWAP ENCLOSE >IN +!
  HERE >R OVER - >R + ALIGNH HERE 1+ R@ CMOVE
  HERE R> 1+ ALLOT ALIGNH HERE OVER - 2- OVER C! R> DP! ;

Определение слова WORD в FORTH ИТЭФ:

             HEAD    204Q,'WOR',304Q,$WORD,$COL           ; WORD
             DW  BLK,AT,DDUP,ZBRAN,WD1-$,BLOCK,BRAN,WD2-$
   WD1:      DW  TIB,AT
   WD2:      DW  IN,AT,PLUS,SWAP,ENCL,HERE,BLAN,BLANK,IN
             DW  PSTOR,TOR,I,HERE,CSTOR
             DW  HERE,ONEP,FROMR,CMOVE,SEMI

Ссылки

• Исходный текст слова WORD в Каллисто Классик 1.0
• Слово WORD и комментарий к нему в стандарте ANS Forth (англ.)
• Слово WORD и комментарий к нему в черновике Forth 200x (англ.)
• «The word WORD is an anathema, it shouldn't exist.» (англ.) — одно из первых сообщений Чака Мура о colorForth (26 июля 1997 года)
• ВВОД-ВЫВОД в книге Л.Броуди «Начальный курс программирования на языке Форт»
• I/O and You в книге Leo Brodie Starting Forth (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.