INTERPRET: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 35: | Строка 35: | ||
this action. | this action. | ||
See NUMBER. | See NUMBER. | ||
== Реализация INTERPRET == | |||
Юрий Семёнов приводит следующее описание слова ; (стр. 138): | |||
: INTERPRET BEGIN ( начало бесконечного цикла) | |||
FINDN ( поиск очередного имени в словаре) | |||
IF ( если слово найдено) | |||
STATE @ < ( в стеке байт длины, STATE ; | |||
проверяется, не является ли слово | |||
оператором немедленного исполнения) | |||
IF ( если обычное слово) | |||
NAME> , ( запись CFA найденного слова | |||
в новое описание) | |||
ELSE ( если слово немедленного исполнения) | |||
NAME> EXECUTE ( исполнение найденного | |||
слова) | |||
THEN | |||
ELSE ( если слово не найдено, проверяется - | |||
может быть это число ?) | |||
HERE NUMBER DPL @ 1+ ( преобразование пос- | |||
ледовательности кодов ASCII в число) | |||
IF ( если число двойной длины) | |||
DLITERAL ( запись последовательности "LIT, | |||
число" в описание нового слова) | |||
ELSE DROP LITERAL ( запись в описание числа | |||
одинарной длины) | |||
THEN | |||
THEN | |||
?STACK ( указатель стека в норме ?) | |||
AGAIN ; | |||
Версия от 00:33, 10 сентября 2015
INTERPRET — стандартное слово Каллисто.
Интерпретирует последовательность слов, пока там что-то есть.
INTERPRET в предыдущем стандарте Forth-83 (англ.)
INTERPRET -- M,83 Begin text interpretation at the character indexed by the contents of >IN relative to the block number contained in BLK , continuing until the input stream is exhausted. If BLK contains zero, interpret characters from the text input buffer. See: "input stream"
INTERPRET в стандарте Forth-79 (англ.)
INTERPRET Begin interpretation at the character indexed by the contents of >IN relative to the block number contained in BLK, continuing until the input stream is exhausted. If BLK contains zero, interpret characters from the terminal input buffer.
INTERPRET в fig-FORTH Release 1 glossary, май 1979 (англ.)
INTERPRET The outer text interpreter which sequentially executes or compiles text from the input stream (terminal or disc) depending on STATE. If the word name cannot be found after a search of CONTEXT and then CURRENT it is converted to a number according to the current base. That also failing, an error message echoing the name with a " ?" will be given. Text input will be taken according to the convention for WORD. If a decimal point is found as part of a number, a double number value will be left. The decimal point has no other purpose than to force this action. See NUMBER.
Реализация INTERPRET
Юрий Семёнов приводит следующее описание слова ; (стр. 138):
: INTERPRET BEGIN ( начало бесконечного цикла) FINDN ( поиск очередного имени в словаре) IF ( если слово найдено) STATE @ < ( в стеке байт длины, STATE ; проверяется, не является ли слово оператором немедленного исполнения) IF ( если обычное слово) NAME> , ( запись CFA найденного слова в новое описание) ELSE ( если слово немедленного исполнения) NAME> EXECUTE ( исполнение найденного слова) THEN ELSE ( если слово не найдено, проверяется - может быть это число ?) HERE NUMBER DPL @ 1+ ( преобразование пос- ледовательности кодов ASCII в число) IF ( если число двойной длины) DLITERAL ( запись последовательности "LIT, число" в описание нового слова) ELSE DROP LITERAL ( запись в описание числа одинарной длины) THEN THEN ?STACK ( указатель стека в норме ?) AGAIN ;
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |