проФорт

SPF под Linux существует в трёх ипостасях :

• Официальный дистрибутив на http://spf.sf.net (в исходниках и deb-пакет)
  
• Порт by ~mak (obsolete?)
  
• SPF/Win32 под wine (эмулятор WinAPI)
  

Далее речь пойдёт о первом варианте.

Установка

Счастливые пользователи Debian могут поставить бинарный пакет. После этого остаётся только настроить devel -- распаковываем слепок devel или берём каталог из CVS и связываем симлинком с /usr/lib/spforth4/devel. Можно не трогать системные каталоги, а добавить путь поиска в ~/.spf4.ini, например так :

H-STDOUT
0 TO H-STDOUT
/full/path/to/devel/~ygrek/spf/included.f
with: /full/path/to/devel/
TO H-STDOUT

\ ~ygrek/lib/linux/readline.f

Джедаи собирают из исходников, что впрочем совсем не сложно. Для сборки понадобятся gcc, binutils и make. Создаём файл конфигурации сборки src/compile.ini

TRUE TO UNIX-ENVIRONMENT
TRUE TO TARGET-POSIX

и затем

cd src && make

Для того чтобы можно было запускать spf одной командой кидаем симлинк на бинарник в /usr/bin или в пользовательский ~/bin -- при необходимости дописать в .bashrc

if [ -d ~/bin ]; then
    export PATH=~/bin:$PATH
fi

Теперь можно запускать код на выполнение с помощью spf4 forthcode.f. Также можно сделать файл с кодом исполняемым и дописать в начале shebang

#! /usr/bin/spf4

после этого запускать ./forthcode.f

Замечание

В текущей версии deb-пакета есть одна неисправленная проблема. Библиотека компилированных констант не сможет найти сами файлы констант, для того чтобы обойти это просто добавьте в ~/.spf4.ini

\ workaround broken TryOpenFile
: TryOpenFile >R FIND-FULLNAME R> OPEN-FILE ;

Беэ этого многие системно-зависимые либы работать не будут.

Окружение

В файловом менеджере mc есть возможность назначить действия для выполнения с текущим файлом при нажатии Enter итп. F9-Команда-Файл расширений и добавляем в конец :

# Forth
shell/.f
    Open=spf4 %f
    Edit=sensible-editor %f

При этом не забудьте удалить настройки для фортрана которые по умолчанию захватывают расширение файлов .f.
Действие Open выполняется по Enter'у, действие Edit по F4 - запускается sensible-editor который вызывает (как видно из названия) "вменяемый редактор", который определяется по переменной окружения EDITOR. Я добавил в .bashrc export EDITOR=vim для вызова Vim.

Полезные настройки vim.

(Общие настройки для облегчения ломки после FAR'а).

Для включения форт-специфичных настроек (например подсветки синтакиса) добавляем в ~/.vimrc

syntax on
filetype on
filetype plugin on

au BufRead,BufNewFile *.f            set filetype=forth
au BufRead,BufNewFile *.F            set filetype=forth
au BufRead,BufNewFile *.spf          set filetype=forth

Дополнительные настройки прописываем в ~/.vim/ftplugin/forth.vim :

" Cловарь для автодополнения,
set dictionary+=/full/path/to/devel/~ygrek/doc/docbook/words.dic

" Сделаем удобную навигацию по словам
set keywordprg=spf4\ \\~ygrek/doc/docbook/words.f\ help

" Проверка синтаксиса
"set makeprg=spf4\ %
set makeprg=spf4\ \\\~ygrek/spf/vim.f\ VIMINCLUDE\ %

" Формат вывода ошибок
set errorformat=%m\ at:\ %f:%l:%c:

" Полезные "быстрые шаблоны"
" Вывод отладочной информации
iabbrev dbg CR DEPTH . .S

" Открывать файл с кодом по spf-относительному пути под курсором
nmap <LocalLeader>f :call SpfOpenFile(expand("<cword>"))<CR>

" Only definitions below -- executed once

if exists("*SpfOpenFile")
  finish
endif

function SpfFindFullname(filename)
  let tmp = tempname()
  exe "!spf4 " . shellescape(":NONAME S\" ".substitute(a:filename,'"',"","g")."\" FIND-FULLNAME TYPE CR ; CATCH BYE") . " > " . tmp
  return get(readfile(tmp),0)
endfunction

function SpfOpenFile(filename)
  let filename = SpfFindFullname(a:filename)
  if filereadable(filename)
    exe "edit" filename
  endif
endfunction

Словарь для автодополнения это просто список слов собранный из SPF_DEVEL, позволяет быстро набирать часто используемые слова из devel (сочетание клавиш по умолчанию CTRL-N/CTRL-P).
keywordprg определяет показ контекстной справки по слову под курсором (команда K), я использую тот же список слов что и для автодополнения со стековой нотацией к каждому слову.
makeprg вызывается командой :make, которую можно назначить например на F9:

" F9 - "make" команда
map <F9> :make<cr>
vmap <F9> <esc>:make<cr>i
imap <F9> <esc>:make<cr>i

Можно напрямую вызывать spf4\ % (знак процента заменяется на имя текущего файла), но это будет неправильно работать если имя файла содержит пробелы, также при ошибке в программе spf перейдёт в интерактивный режим, что для меня не очень удобно, поэтому используется простая обёртка, которая решает эти проблемы.
errorformat распознаёт информацию об ошибке от spf и автоматически переходит в указанную строку.
Функция SpfOpenFile (назначена на <LocalLeader>f, т.е. \f) открывает файл по его пути под курсором. Полный путь к файлу находит сам spf с помощью FIND-FULLNAME, что позволяет быстро перемещаться по REQUIRE и INCLUDED.

Заключение.

Ну и какой же блог без скриншотов?


PS: Код на скриншоте - затравка для следующего поста.