эта либа для тех, кто привык в СПФ писать 0= IF или 0= WHILE
пожалуйста, не пишите так больше!! это и медленно и некрасиво!
пишите лучше просто IFNOT или WHILENOT

Это и не медленно и не некрасиво.

По поводу "медленно":


По по поводу "некрасиво": "И сказал Мур: дробите и размножайте слова, и будет вам через это благоденствие" (с).

Эстетически красивей был бы NOT вместо 0= . Но NOT в SPF нет, 0= вместо него. Вот и весь сказ:

ветвления лишнего нет но две операции лишние есть! в добавление к коду IF
так что это и длиннее и медленнее


а ты выключи оптимизатор. А то получается не очень хорошо.
То что оптимизатор выправляет корявоси - это хорошо, но не всегда он есть


вот это я и сделал

Сам виноват. "Ага!.. -- сказали лесорубы, когда японская лесопилка наконец уже подавилась рельсой".

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


Неправильно сделал. Рефакторизация -- это не когда туча-туча слов делающих примерно одно и тоже. Это когда туча-туча слов, которые в комбинациях могут делать и то что может делать предыдущая туча, плюс ещё больше за счёт синергии.

Различие между этими подходами: определение слов "1+" "2+" "3+" и так далее, когда можно писать "1 +" , "2 +" , "3 +".

Бесполезно субли.. спорить на форуме -- времени жалко. Поэтому на этом я закончу.

Полностью согласен. Не надо превращать форт в иероглифический язык(он и так уже во многом такой). Слова типа 1+, 2+, IFNOT, а по большому счету и /MOD и даже F+ и т.д. и т.п. - это все иероглифы. Проблемы, которые решаются введением таких слов нужно решать в других плоскостях(введением глубокой оптимизации, указанием типов и т.п.) - в общем без ввода лишних сущностей.

NB: Вообще, если бы в SPF сразу были NOT >= <= то это бы неплохо. Вспоминается, что именно отсутствие этих трёх слов (и EMPTY) в своё время сильно раздражало при переходе с SMAL32. Щас ничего, привык. Может даже слишком привык...

Слово 0= применяется в нескольких контекстах, с достаточно разными по смыслу целями. По уму их надо бы разделять, чтобы программа выглядела осмысленней:

1. 0= как NOT
2. 0= как 0 =
3. 0= как проверка на "magic value", возвращённое другим словом

Пример первого:



Пример второго:



Пример третьего:



Кстати, я так и сделал у себя: ввёл NOT и прочие вещи..

Not, кстати говоря - это побитовая операция. Стало быть, 543 not не эквивалентно 543 0 = . Посему предлагаю not в таком смысле не использовать, а использовать 0=.

C INVERT не путаем?

В одних Фортах NOT работает как INVERT, в других как 0= .

А всего есть 3 варианта для NOT:
0=
INVERT
NEGATE
Поэтому его и убрали из стандарта-94 и из SPF !

Это уже как-то совсем жестоко. Лично я склоняюсь к побитовой операции - всё-таки обычно, говоря not, подразумевают именно её.

Так используй 0= или INVERT , как и должно быть по стандарту! И не будет разночтений, не надо будет разбираться, какую именно операцию ты хотел сделать!! В этом месте стандарт как раз разумный!
1 во всех условиях(IF WHILE) будет считаться TRUE, но

0 никак не даст(м.б. $FFFE), надо сначала преобразовать 1 к TRUE !!
Или делать 0=...

полностью не согласен - нужно делать логично и удобно в первую очередь!
К тому же я не разделяю мнения что запись вида > 0= IF выглядит понятнее,
чем > IFNOT . К тому же от IFNOT "иероглифами" не пахнет!

А вообще мне не понятна позиция Азамата, в том, что для СПФ-а это плохо, а для других фортов хорошо 8((( Что он высказал в IRQе

У северных народов около 80-ти названий для слова "снег" - если я буду им рассказывать про снег за окном, используя обычные слова для его характеристики - они тоже скажут что так описывать снег неудобно и нелогично.

Любой приведенный ниже синтаксис(хотите добавьте свой) после его долгого применения войдет в привычку
IF W1 W2 .... ELSE W3 W4 ... THEN
ELSE W3 W4 ... IF W1 W2 ... THEN
IF0 W1 W2 .... IF1 W3 W4 ... THEN
IF1 W3 W4 ... IF0 W1 W2 ... THEN
{0 W3 W4 ... {1 W1 W2 ... END}
{1 W1 W2 ... {0 W3 W4 ... END}
и в каждом используется только 3 слова IF/IF1/{1 ELSE/IF0/{0 THEN/END}
В варианте IF/IFNOT ELSE THEN используется 4 слова - избыточность налицо. Есть избыточность полезная, например, избыточность слов разговорного языка позволяет различать слова в условиях шума, избыточность информации на диске позволяет восстанавливать потери информации от дефектов поверхности диска. В данном случае избыточность бесполезна. Вообще если нужный синтаксис просто реализовать без избыточности не удается - нужно править базовые принципы.