[Spf-dev] readline.f

[ivanov <iv...@ic...>]

Хорошо, так и запишем.
Позвольте вложить свои "5 копеек".
При работе в консоли очень удобно пользоваться библиотекой
~ygrek/lib/linux/readline.f
Но в варианте из 4.21 ($Id: readline.f,v 1.4 2009/08/23 12:47:31 ygreks
Exp $) она у меня не заработала, то есть журнал команд не создавался и
история хранилась только в пределах сессии.
Сравнив либу с предыдущей версией ($Id: readline.f,v 1.3 2008/11/01
10:04:39 ygreks Exp $) заметил, что теперь журнал .history.spf ведется
отдельно для каждого проекта, но почему-то была закоментирована строка
которая собственно и записывала текущую историю команд в файл журнала.

..: AT-PROCESS-FINISHING save-readline-history ;..

Раскоментив эту строчку я получил журнал в текущей директории и
вернулся к привычному стилю работы.
Заодно расправился и с давнишней проблемой - дублированием записей в
журнале. В слово ACCEPT-READLINE добавил пару строк, мне стало удобнее.

Вот мой вариант:

: ACCEPT-READLINE ( c-addr +n1 -- +n2 ) \ 94
  (( 0 )) readline >R
  R@ 0
= IF RDROP -1002 THROW THEN
\ iva
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  (( R@ -1 ))
history_search \ поиск дубликата
  0= IF ((  (( )) where_history ))
remove_history DROP THEN \ удаление дубликата
\ iva
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  (( R@ ))
add_history DROP 
  R@ ASCIIZ> 2SWAP ROT MIN >R R@ MOVE R>
  (( R> ))
free DROP
;

С уважением, Андрей Иванов.

В Сб, 07/01/2017 в 00:46 +0200, Andrey Cherezov пишет:
> Возможно, "4.21" относится к "текущей CVS-версии" СП-Форта, чтобы
> отличать её от давно выпущенного "дистрибутива" 4.20.
> http://sp-forth-dev-rus.670142.n2.nabble.com/SPF-4-21-td5907492.html
> 
> -----Original Message-----
> From: ivanov [mailto:iv...@ic...] 
> Sent: Friday, January 6, 2017 3:50 PM
> To: SPF developers <sp...@li...>
> Subject: [Spf-dev] где живет spf?
> 
> Задумался, что пора обновить свой экземпляр и столкнулся с проблемой,
> что не могу найти свежий релиз.
> У меня есть 2 директории spf-4.20 (2010) и spf-4.21, где и когда
> скачал не помню.
> spf-4.21 должно быть свежее, но вроде такого релиза нет на
> sourceforge.net, там предлагается пакет spforth4_4.20-1_i386.deb
> (2013)
> Собственно вопрос: где взять последний spf4 и каков номер текущего
> релиза? Что-то я запутался.
> 
> -------------------------------------------------------------------
> -----------
> Check out the vibrant tech community on one of the world's most
> engaging tech sites, SlashDot.org! http://sdm.link/slashdot
> _______________________________________________
> Spf-dev mailing list
> Sp...@li...
> https://lists.sourceforge.net/lists/listinfo/spf-dev
> -------------------------------------------------------------------
> -----------
> Check out the vibrant tech community on one of the world's most 
> engaging tech sites, SlashDot.org! http://sdm.link/slashdot
> _______________________________________________
> Spf-dev mailing list
> Sp...@li...
> https://lists.sourceforge.net/lists/listinfo/spf-dev