Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пт мар 29, 2024 15:52

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 28 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: Ср авг 30, 2006 16:14 
Не в сети

Зарегистрирован: Ср май 03, 2006 11:27
Сообщения: 1394
Откуда: St.Petersburg
Благодарил (а): 2 раз.
Поблагодарили: 11 раз.
WingLion писал(а):
Обращаться к неописанным словам - не вижу смысла.
[\quote]

Ради избежания конфликтов имен.

Цитата:
И копаться в исходниках в поисках: "А вдруг там есть слово, которое мне сейчас надо?!" - тоже смешно.
[\quote]

Я часто находил. В основном, люди похожи, а идеальное решение задачи, вообще, одно.

Цитата:
Поэтому и нужно четкое описание!


Нужно то оно нужно, четкое описание понятие субъективное и
кто и главное зачем будет его создавать?
Исходить следует от найденных материалов в инете.

Смесь СПФ и COLDFORTH : http://wiki.forth.org.ru/AllForthCommands
Пытался смешать с WIN32FOR, но записать не удалось.

А http://www.forthfreak.net/index.cgi?AllForthWords вообще сломался

Думаю теперь добавлять следует постепенно.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Пт сен 01, 2006 01:08 
WingLion писал(а):
не, это неправильный подход.

А еще часть есть в книжках по Форту, а книжки по Форту есть на Вики, а если нет - можно погуглить... а.. ап. ап...

Представляю надпись в конце Большой Советской Энциклопедии:
"A остальное ищите в словаре Даля!"
Нет, вы неправильно поняли - я предлагал перенести хэлп SPF в формат энциклопедии и дополнить.


Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Пн авг 20, 2007 07:04 
Не в сети
Moderator
Moderator

Зарегистрирован: Ср май 10, 2006 15:37
Сообщения: 1132
Откуда: Chelyabinsk ( Ural)
Благодарил (а): 0 раз.
Поблагодарили: 9 раз.
На данной страничке есть сканер ANSI Форт слов применяемых в программе

http://home.freeuk.com/meboulton/forth/home.html (ссылка битая)

P.S. Возможно эта ссылка не для этого топика:)


Последний раз редактировалось Kopa Ср апр 18, 2012 22:11, всего редактировалось 1 раз.

Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: энциклопедия
СообщениеДобавлено: Пт сен 21, 2007 07:37 
Не в сети
Moderator
Moderator

Зарегистрирован: Ср май 10, 2006 15:37
Сообщения: 1132
Откуда: Chelyabinsk ( Ural)
Благодарил (а): 0 раз.
Поблагодарили: 9 раз.
Mihail писал(а):
Я задумал завести общий список всех форт-слов доступных в интернете
в виде гиперссылок на информацию о них (только слова ссылки и ничего больше)
(в алфавитном порядке).


Вот есть подходящая страничка с Форт словами
http://astro.pas.rochester.edu/legacy/F ... words.html

P.S. Поставленная задача конечно достаточно глобальна, если рассматривать
разные Форт системы.:)


Последний раз редактировалось Kopa Ср апр 18, 2012 21:49, всего редактировалось 1 раз.

Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Пн окт 29, 2007 12:49 
Не в сети
Moderator
Moderator

Зарегистрирован: Ср май 10, 2006 15:37
Сообщения: 1132
Откуда: Chelyabinsk ( Ural)
Благодарил (а): 0 раз.
Поблагодарили: 9 раз.
Ссылка с близким наполнением по теме топика.

http://www.newmicros.com/FORTH/HC12/V50 ... index.html


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Чт окт 02, 2008 23:13 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1261
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Ухты, какая замечательная идея! И в каком оно сейчас состоянии?

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Пт окт 03, 2008 08:05 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 13:19
Сообщения: 3565
Откуда: St.Petersburg
Благодарил (а): 4 раз.
Поблагодарили: 72 раз.
состояние "Год назад мы тут флеймили!"

_________________
С уважением, WingLion
Forth-CPU . RuF09WE
Мой Форт
Отсутствие бана это не заслуга юзера, а недоработка модератора (с)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Пт окт 03, 2008 14:25 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1261
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Ааа, понятно, я так и подумал.

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Пт фев 20, 2009 16:06 
Не в сети

Зарегистрирован: Ср май 03, 2006 11:27
Сообщения: 1394
Откуда: St.Petersburg
Благодарил (а): 2 раз.
Поблагодарили: 11 раз.
Я думал сделать типа вики, но сейчас думаю, что лучше будет каскадная разработка
(передается из рук в руки и выкладывается новая модификация копии).

Генерация пары HTML-файлов http://fpauk.narod.ru/GFWORDS.HTML http://fpauk.narod.ru/enc.html
производится в результате интерпретации фортом файла с базой данных в виде исходников форта
http://sites.google.com/site/forthos/fwordsbase-f

Ее можно модифицировать в ручную.
Для генерации этой базы для ссылок CVS SPF.
Можно в начало определения SHEADER добавить слово FWRW. :
Код:
: UPC     ( c -- C )        DUP [CHAR] a [CHAR] z 1+ WITHIN IF 32 - THEN ;

: UTYPE    ( a n -- )                            \ HTMLized text output
   0 ?DO COUNT UPC EMIT LOOP DROP ;

0 VALUE ?FWRW
: FWRW. ( addr u -- addr u )
?FWRW IF
BASE @ >R DECIMAL
CR ." FW " 2DUP UTYPE
."  HN_FR http://spf.cvs.sourceforge.net/viewvc/spf/"
  CURFILE @ ?DUP IF ASCIIZ> ELSE S" H-STDIN" THEN TYPE
." ?view=markup#l_"   CURSTR @ .
R> BASE !
THEN
;


Для слияния 2x баз просто добавляется содержимое одной в конец другой и производится
пересортировка.

Генерация HTML ссылок производится векторными словами FW (воспринимает имя форт слово)
и NN_FR (воспринимает адрес определения предыдущего форт слова)
Действия этих слов определяются в http://sites.google.com/site/forthos/gfwords-f

Создавая синонимы слова NN_FR можно менять приоритет при сортировки.
На пример для слов СПФ я завел слово HN_FR.


Последний раз редактировалось Mihail Пн авг 17, 2009 13:45, всего редактировалось 1 раз.

Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Сб фев 21, 2009 15:16 
Не в сети

Зарегистрирован: Ср май 03, 2006 11:27
Сообщения: 1394
Откуда: St.Petersburg
Благодарил (а): 2 раз.
Поблагодарили: 11 раз.
Mihail писал(а):
Для генерации этой базы для ссылок CVS SPF.
Можно в начало определения SHEADER добавить слово FWRW. :


Это для TC в рантайме следует подменить SHEADER
Код:

: UPC     ( c -- C )        DUP [CHAR] a [CHAR] z 1+ WITHIN IF 32 - THEN ;

: UTYPE    ( a n -- )                            \ HTMLized text output
   0 ?DO COUNT UPC EMIT LOOP DROP ;

-1 VALUE ?FWRW
: FWRW. ( addr u -- addr u )
?FWRW IF
BASE @ >R DECIMAL
CR ." FW " 2DUP UTYPE
."  HN_FR http://spf.cvs.sourceforge.net/viewvc/spf/"
  CURFILE @ ?DUP IF ASCIIZ> ELSE S" H-STDIN" THEN TYPE
." ?view=markup#l_"   CURSTR @ .
R> BASE !
THEN
;

: FWRWSHEADER ( addr u -- addr u 0 | xt 1 | xt -1 ) \ 94 SEARCH
  FWRW.
  SHEADER1
;

' FWRWSHEADER TO SHEADER

lib\ext\rnd.f
lib\alg\md5-jz.f
lib\alg\lzss.f
lib\alg\rle.f



Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: энциклопедия
СообщениеДобавлено: Сб июн 12, 2010 21:21 
Не в сети

Зарегистрирован: Ср май 03, 2006 11:27
Сообщения: 1394
Откуда: St.Petersburg
Благодарил (а): 2 раз.
Поблагодарили: 11 раз.
\   Forth to BBCode converter

REQUIRE CASE-INS lib\ext\caseins.f
REQUIRE $! ~mak\place.f
REQUIRE [IFNDEF] ~nn\lib\ifdef.f
REQUIRE CASE lib\ext\case.f

[IFNDEF] ZFILE>

CREATE TMP_FILE_NAME 260 ALLOT

: ZFILE> ( c-addr u -- c-addr' u )
TMP_FILE_NAME $!
TMP_FILE_NAME COUNT 2DUP + 0! ;

: CREATE-FILE ( c-addr u fam -- fileid ior ) >R ZFILE> R> CREATE-FILE ;

[THEN]

CASE-INS ON

[IFNDEF] BOUNDS : BOUNDS OVER + SWAP ; [THEN]

0 VALUE outf \ output to file

CREATE EPAD 260 CHARS ALLOT \ temporary pad for evaluation
CREATE fn 260 CHARS ALLOT \ file name

: shortname ( -- )
fn COUNT
EPAD PLACE ;

: ofn ( -- addr len ) \ output file name
shortname S" .htm"
EPAD +PLACE EPAD COUNT ;

CREATE $ENCURL 0 C, 0xFF ALLOT

\ S" file:///C:\spf\ENC.HTML#" $ENCURL $!
S" http://fpauk.narod.ru/enc.html#" $ENCURL $!

: UPC ( c -- C ) DUP [CHAR] a [CHAR] z 1+ WITHIN IF 32 - THEN ;

: HTMTYPE ( a n -- ) \ HTMLized text output
BOUNDS ?DO I C@ CASE
[CHAR] & OF ." &" ENDOF
[CHAR] < OF ." &lt;" ENDOF
[CHAR] > OF ." &gt;" ENDOF
[CHAR] " OF ." &quot;" ENDOF
DUP UPC EMIT
ENDCASE LOOP ;

: INTERPRET_L ( -> )
CharAddr
BEGIN
PARSE-NAME DUP
WHILE
>R
TUCK OVER - TYPE
DUP R@

2DUP SFIND
IF DROP
." [url="
$ENCURL COUNT TYPE 2DUP HTMTYPE
[CHAR] ] EMIT TYPE ." [/url]"
ELSE 2DROP TYPE THEN
R> +
REPEAT 2DROP DROP CR
;

: COLOR_INC ( adr len -- )
2DUP FIND-FULLNAME
fn PLACE
ofn W/O CREATE-FILE ABORT" Error creating file" TO outf
&INTERPRET @ >R
H-STDOUT >R
outf TO H-STDOUT

." [pre]" CR

['] INTERPRET_L &INTERPRET !

['] INCLUDED CATCH

." [/pre]" CR
R> TO H-STDOUT
R> &INTERPRET ! THROW

outf CLOSE-FILE ABORT" Error closing file"
;


\EOF TEST

S" ~mak\infix.f" COLOR_INC


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: энциклопедия
СообщениеДобавлено: Чт апр 12, 2012 23:49 
Не в сети

Зарегистрирован: Ср май 03, 2006 11:27
Сообщения: 1394
Откуда: St.Petersburg
Благодарил (а): 2 раз.
Поблагодарили: 11 раз.
Генератор энциклопедии - http://fpauk.narod.ru/enc.tar.bz2
результат - http://fpauk.narod.ru/gfwords.html
По моему, добавлять можно по аналогии.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: энциклопедия
СообщениеДобавлено: Ср апр 18, 2012 19:45 
Mihail писал(а):
Генератор энциклопедии - http://fpauk.narod.ru/enc.tar.bz2
результат - http://fpauk.narod.ru/gfwords.html
По моему, добавлять можно по аналогии.

Есть "опасность" потонуть в предположениях, для чего и где использовано конкретное слово. (стоит добавить, на основе "эвристического" анализа - дополнительную информацию к словам)
И так как информация по словам из Форт систем будет браться из i-neta, то необходимо продумать минимальную оболочку по работе с ней.

P.S. В базу данных можно включить информацию с ресурса http://dev.laptop.org/git/ и в частности с http://dev.laptop.org/git/users/wmb/ (от Mitch Bradley) раз использование Форта на данном "железе" актуализировано.


Вернуться к началу
  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 28 ]  На страницу Пред.  1, 2

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 19


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB