[url=https://github.com/gnosys2u/forth]Не минималистический Форт с расширением объектами[/url] (C++)

Ядро системы собирается и под Linux (и другие варианты), хотя разработка ориенитрована на Windows.

P.S. для вывода списка слов VLIST слово. :)
Возможности реализации ещё не смотрел более детально, но под Linux
подав файл на вход системы в командной строке, к примеру: ./forth < test.txt
можно запустить тесты системы.
ok> requires test

имеется и расширение [b]ansi.txt [/b]для совместимости с ANSI Forth, но, вроде, не в полной реализации.

[url=https://github.com/linkedin/forthic]Forthic[/url] (в хабе LinkedIn на Github)
[quote]Forthic is a stack-based language for writing tweakable applications by coordinating code written in a host language.[/quote]
Код на Pyithon и JavaScript со своим результирующим лексиконом слов.

P.S. Как понимаю с целью делать Форт-скриптовые приложения и в рамках использования Web браузерных технологий. Детально не разбирался в возможностях предлагаемого решения.

[url=https://github.com/173duprot/tinyforth]Очень маленький "Форт" на Си примерно в 100 строк[/url]

gcc forth.c -o forth

// немного изменённый вариант

#include <stdio.h>
#include <string.h>

// Main Memory
char memory[100000];
char *mem = memory;

// Dictionary entry type
typedef struct {
char name[100];
void* code;
} dict_t;

#define ALLOC(x) \
mem; \
memcpy(mem, (char*)&(x), sizeof(x)); \
mem += sizeof(x); \

#define DEFINE(x,y) \
(*dsp); \
strcpy((*dsp)->name, x); \
(*dsp)->code = y; \
(*dsp)++; \

#define NEXT \
(*ip)++; \
goto ***(ip); \

int main() {

/* Pointers */

void **instruction_pointer;
void ***ip = (void ***)ALLOC(instruction_pointer);

long *stack_pointer;
long **sp = (long **)ALLOC(stack_pointer);

void **return_stack_pointer;
void ***rsp = (void ***)ALLOC(return_stack_pointer);

dict_t *dictionary_stack_pointer;
dict_t **dsp = (dict_t **)ALLOC(dictionary_stack_pointer);

/* Stacks */

long stack[10];
*sp = (long *)ALLOC(stack);

void *return_stack[10];
*rsp = (void **)ALLOC(return_stack);

dict_t dictionary_stack[10];
*dsp = (dict_t *)ALLOC(dictionary_stack);

/* Memory */
char code[] = "ok>";
void *cp = code;

dict_t *bye = (dict_t *)DEFINE("bye", &&bye);
dict_t *lookup = (dict_t *)DEFINE("lookup", &&lookup);
dict_t *ok = (dict_t *)DEFINE("ok", &&ok);

void *word[] = { lookup->code, ok->code, bye->code };
*ip = (word)-1;

NEXT;

return 0;

ok:
puts(code);
gets(code);
puts(code);
NEXT;

bye:
puts("bye");
return 0;

lookup:
puts("Run Code");
NEXT;
}

Жуть какая. Ощущение, что Чарльза Мура стабильно путают с Гордоном Муром. Хорошо еще не с Деми Мур (хотя не факт что не припишут ему и смену пола). Русские, побирающиеся по старым чипам - голубая мечта западных неудачников. Раз у них плохо, то что уж в России-то творится...
Вобщем, в стадии упадка империи маразм становится нормой.

[quote="VoidVolker"]
Наткнулся на упоминание Форта в таком очень неожиданном контексте как "Теория всемирного заговора". В интервью Пита Питерсона (инсайдер, работавший на правительство) у Девида Уилкока (собирает информацию по теории заговора и делится с общественностью) на телеканеле Гайя упоминается Форт и, судя по всему, 144 ядерный чип SeaForth, а так же Чак Мур, Forth Inc (SwiftForth) и многие другие известные личности стоявшие у истоков современной IT. Сам процессор SeaForth не упоминается, говорится только о количестве ядер - 144, что там матрица не 12х12 (8х18 по факту) и 86 миллиардов операций в секунду (сколько на самом деле не помню, т.к. там у разных слов число операций разное) и то, что он был создан в 2011 году. На мой взгляд довольно странно говорить, что у тебя есть крутой процессор, но не говорить как он называется, хотя он открыт и доступен для широкой публики. Ну да ладно, просто оставлю тут ссылки: кому интересно будет — могут ознакомиться.
Русский перевод тут: http://divinecosmos.e-puzzle.ru/page.php?al=444
Статью на английском не нашел.
Само интервью на сайте телеканала, но без регистрации не посмотреть: https://www.gaia.com/video/microchips-cybernetic-revolution
Информации про Пита не очень много удалось найти: http://www.marketwired.com/press-release/mediag3-welcomes-dr-pete-peterson-software-development-pioneer-accomplished-engineer-1171541.htm
Про SeaForth тут и без дополнительных ссылок есть информация на нашем форуме.[/quote]

Пара цитат из этого интервью.
Вот же как. Смеяться или плакать? :)


[quote]

П.П.: Есть много… Три-четыре дня назад я кое-что видел в Интернете. Мне бы хотелось вернуть его обратно. Не знаю, кто мне его прислал.[b] Возможно, оно предназначалось для одноразового просмотра. Изображалась кое-какая робототехника русских.[/b] У них есть маленькое шестиколесное средство передвижения. И еще у них есть пушка, способная передвигаться, размещаться в определенном месте, стрелять, а потом перемещаться в другое место, что-то типа пушки, встроенной в бегуна на короткие дистанции на Олимпийских играх. [/quote]

[quote]П.П.: Возможно, Россия… Первое, что приходит в голову… [b]Я бы предположил, что 75-80% всего русского программирования осуществляется на языке Форт[/b].Я знаю об этом потому, что являюсь членом одной из российских ассоциаций астронавтики. Я знаю, что все их программирование выполняется почти полностью на языке Форт, поскольку он совершенен для такого вида операции – операции с роботами.[/quote]

[quote]П.П.: Да. Чип Novix был ранним чипом, который пытался работать с Форт напрямую и работал с Форт напрямую. Он использовался в нескольких сферах, о которых, я сомневаюсь, что могу рассказывать, не получив на это одобрения.

Д.У.: Понятно.

П.П.: Чип был доступен. Он прятался на виду, и в принципе был доступен миру. Возможно,[b] в настоящее время большинство чипов Novix (они все еще производятся) скупается русскими[/b].[/quote]

Ознакомился с дизайном стeкового языка mStoical (форк от Stoical 2002г)
[url=https://github.com/mikewarot/mstoical]mStoical[/url]

Ощущения от дизайна языка неоднозначные, но положительные от ощущения опробования сей разработки.
Чем то очень близко к идеям Форт, но и в чём то не так однозначно.

К примеру Фоpтовская точка заменена на интелектуальный = (равно), а сами операции сравнения на qt, lt, ... слова
Можно найти некотоые аналогии слов Stoical в семантике используемой в Forth, но не всегда аналогичные.

К примеру есть слово // переключающее систему из предыдушего State состояния в инверсное ...
Другие моменты в дизайне Stoical языка (без относительно возможностей синтаксиса) "ортогональны" типовым Форт реалиям как "работа" с разными типами на стеке и возможность их принудительного изменения и возможности принудительного контроля в рантайме.
...

Есть ощущение, что какие то идеи этого языка можно использовать и в Форт практике разработки.
Документация проекта достаточно подробная, но у меня пока не получилось, при её рассмотрении и терминальном диалoге с системой, прояснить какие то варианты применения слов Stoical языка.

P.S. Интересно услышать какие то мнения об идеях этого дизайна конкатенативного языка Stoical.

[quote="Sotnik"][quote="F-MAP"]... как еще классик сказал: О сколько нам открытий чудных ...[/quote] ... готовит открывачки крюк!
Некоторые в таком состоянии очень даже талантливы. :)[/quote]
Sotnik, весна ведь..

[url=http://www.robertepprecht.ch/brew/index.html]Brew is a project trying out what I call 'Artificial Code Evolution'. 'Evolutionary Programming' using FORTH and designed for the Linux text console.[/url]

[quote="F-MAP"]... как еще классик сказал: О сколько нам открытий чудных ...[/quote] ... готовит открывачки крюк!
Некоторые в таком состоянии очень даже талантливы. :)

[quote="F-MAP"]А как оценить плохого программиста от хорошего? [/quote]
Если в основном искать описания, как оно сделано другими, то оценивать как-то и нечего.

[quote="F-MAP"]А как оценить плохого программиста от хорошего? [/quote]
К такой же постановке вопроса от обратного пришёл намедни в вариантах осознания гносеологии. :)

P.S. Вероятно, способность находить путь решения каких то обозначенных кем то или самому себе каких то задач и есть основополагающие отличие одного программиста от другого.
При этом оптимальность/неоптимальность выбранного пути решения не так важна от сделанного решения приносящего пользу.

А как оценить плохого программиста от хорошего? Все допускают ошибки, но на них хорошие учатся, как еще классик сказал: О сколько нам открытий чудных
Готовят просвещенья дух И Опыт,сын ошибок трудных....

А что мешает писать код плохому программисту? :D

[quote="Hishnik"] Сфокусированность авторов на вариациях стандарта ANS94 обуславливает ограниченные возможности практического использования таких продуктов, для которых не приводятся подробные методики использования. В качестве примера можно привести..."[/quote]
По аналогии - Так и плохому танцору тоже много чего мешает... :)

[quote="KPG"]А какой больщой обзор нужен на "300-а строк" Си кода Форт системы?
[/quote]
А про такие - небольшой. "В настоящее время существует ряд трансляторов Форта, реализуемых на ЯВУ в виде консольного приложения. Они занимают 300-500 строк кода, реализуют 50-100 слов ядра Форта и обычно используют варианты ШК, реже машинный код. Сфокусированность авторов на вариациях стандарта ANS94 обуславливает ограниченные возможности практического использования таких продуктов, для которых не приводятся подробные методики использования. В качестве примера можно привести..."