С учетом контекста использования слова -НАЙТИ изменим значения флага на обратные. Так как значение флага должно быть истинным в том случае, когда поиск заданной строки окончился неудачей, проще всего определить это слово таким образом, чтобы до начала поиска в вершине стека была единица, которая заменялась бы нулем лишь при успешном завершении поиска. Обращаем ваше внимание на то, что во время выполнения цикла в вершине стека находятся два значения: только что рассмотренный флаг и адрес таблицы полей, определяющей поле, по которому ведется поиск. Поскольку адрес нам требуется на каждом шаге выполнения цикла, а значение флага, возможно, понадобится всего один раз, мы решили хранить адрес в вершине стека, а флаг - под ним. Для этого мы и использовали выражение SWAP NOT SWAP
Между прочим мы могли бы избежать возникновения такой ситуации, если бы вместо выражений ТИП @ DUP ПОЛЕ
перед циклом и внутри его для того, чтобы обеспечить оба этих значения в вершине стека, мы применили бы выражение ТИП @ ПОЛЕ
внутри цикла. Мы отказались от этого потому, что всегда стремимся минимизировать число операций, выполняемых внутри цикла.: операции внутри цикла повторяются многократно и занимают очень много времени.
На этом мы завершаем описание программы в целом и надеемся, что вы без труда разберетесь в деталях ее работы самостоятельно по приводимому ниже листингу1.
1 Для пользователей систем фиг-Форта. Прежде чем загрузить программу с файловой системой, убедитесь в том, что приведенные ниже определения скомпилированы первыми.
: VARIABLE 0 VARIABLE ; : CREATE <BUILDS DOES> ; : BLANK ( a # -- ) BLANKS ; : WORD ( -- a) WORD HERE ; : >IN ( -- a) IN ;