Кому нужен find source для tcl?

Разве ctags не делает то что ты хочешь?

ctags parses source code and produces a sort of index mapping the names of significant entities (e.g. functions, classes, variables) to the location where that entity is defined. This index is used by editors like vi and emacsen to allow moving to the definition of a user-specified entity

А как там с поддержкой tcl? Я что-то у себя в debian 8 не нашёл. Ну и у меня кроссплатформенная IDE под пермиссивной лицензией. Если я вложу в дистрибутив ctags.zip, не повлечёт ли это лицензионных проблем для меня?

не повлечёт ли это лицензионных проблем для меня?

ctags под GPL, это независимый продукт, код которого ты не меняешь.

Не вижу проблем.

Ааа, значит в дебиане более старая версия. Ибо в хелпе там tcl не указан.

В общем-то это вариант, хотя для tcl решение выглядит несколько тяжеловесным. Я бы предпочёл навелосипедить что-то чисто tcl-ное. Для этого мне нужен аналог того, что в C именуется #line и #file (емнип).

Я вот пользуюсь простым велосипедом (для Vim), мне хватает:

proc getAllTags {tags sourcefile} {
set infile [open $sourcefile]
while {[gets $infile line] >= 0} {
   if {[regexp {^proc\s(\S+)} $line fullpatt fullname] } {
      regexp {[^:]+$} $fullname name
      lappend tags "$name\t$sourcefile\t/^$fullpatt /"
      }
   if {[regexp {^method\s(\S+)} $line fullpatt fullname] } {
      regexp {[^:]+$} $fullname name
      lappend tags "$name\t$sourcefile\t/^$fullpatt /"
      }
   }
close $infile
return $tags
}

set tags ""
foreach f [glob -nocomplain "*.tcl"] {
    set tags [getAllTags $tags $f]
    }

# The tags facility expects the tags to be sorted ...
set tags [lsort $tags]
set ftags [open tags w]
foreach line $tags {puts $ftags $line}
close $ftags

копипаста отсюда http://wiki.tcl.tk/6635

мог бы просто линк дать

Это всё же не совсем то. Это показывает, какие процедуры определены в файлах. Но мы так не узнаем, какие из них находятся в текущем образе, а какие - нет. Потому что не все файлы из текущего каталога обязательно будут загружены в среду. И наоборот, не все загруженные в образ процедуры относятся к текущему каталогу. Tcl - динамическая среда. Мне кажется, ему должно быть по силам собирать теги прямо по ходу загрузки, как это делает Common Lisp. В этом случае, получится гораздо более высокая точность информации. Я бы сделал это, но мне нужно для этого иметь аналог #line и #file из C. Есть таковые?

Ага, и их есть у нас:

[ info frame [ info frame ] ]

http://stackoverflow.com/questions/3838591/fullpath-of-current-tcl-script

Теперь нужно переименовать proc и написать свой, более продвинутый proc. Но это уже не сегодня.

В общем, похоже на то, что я это сделал (для процедур).

Работает без сбоев, проверил на нескольких своих и нескольких чужих функциях. Исходник здесь:

https://bitbucket.org/budden/clcon/src/default/record_definition.tcl

Если место определения записано, то открывается файл. Если не записано, открывается исходник процедуры в окошке, не привязанном к файлу (это умеет tkcon, предок clcon). Если процедуры нет, то выскакивает ошибка. Пока не интегрирована эта фича с просмотровщиком стека при ошибке, но это дело случая.

Теперь я могу без всяких грепов скакнуть не только на исходник любой своей функции, но и полазить по внутренностям snit и tablelist.