Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 76: |
Строка 76: |
| 3424 .DB 41 ; ")" | | 3424 .DB 41 ; ")" |
| 3425 .DW WORD, DROP, EXIT | | 3425 .DW WORD, DROP, EXIT |
| </pre>
| |
| Реализации из SP-Forth 4.20:
| |
| <pre>
| |
| : ( ( "ccc<paren>" -- ) \ 94 FILE
| |
| \ Расширить семантику CORE (, включив:
| |
| \ Когда разбирается текстовый файл, если конец разбираемой области достигнут
| |
| \ раньше, чем найдена правая скобка, снова заполнить входной буфер следующей
| |
| \ строкой из файла, установить >IN в ноль и продолжать разбор, повторяя
| |
| \ этот процесс до тех пор, пока не будет найдена правая скобка или не
| |
| \ будет достигнут конец файла.
| |
| BEGIN
| |
| [CHAR] ) DUP PARSE + C@ = 0=
| |
| WHILE
| |
| REFILL 0= IF EXIT THEN
| |
| REPEAT
| |
| ; IMMEDIATE
| |
| </pre>
| |
| <pre>
| |
| : ( [COMPILE] ( ; IMMEDIATE
| |
| </pre> | | </pre> |
|
| |
|