Overview
| Comment: | tclreadlineCompleter.tcl |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c4f14366848f35fa223c1b70e2c97ea8 |
| User & Date: | johannes@zellner.org on 1999-09-16 09:30:38.000 |
| Other Links: | manifest | tags |
Context
|
1999-09-16
| ||
| 17:38 | Modified Files: .login Added Files: .tclcrystalrc Removed Files: .csymrc ---------------------------------------------------------------------- tcl_ft.vim tclreadline.c tclreadline.n.in tclreadlineCompleter.tcl tclreadlineSetup.tcl.in check-in: a8f8df8300 user: johannes@zellner.org tags: trunk | |
| 09:30 | tclreadlineCompleter.tcl check-in: c4f1436684 user: johannes@zellner.org tags: trunk | |
| 00:48 | Modified Files: .vimrc share/vim/ft/tcl_ft.vim share/vim/functions/tab.vim src/tclreadline/tclreadlineCompleter.tcl Added Files: share/vim/functions/CruiseTags.vim src/csym/version check-in: 307416781d user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadlineCompleter.tcl
from [0cca29020d]
to [f9084f3db9].
1 | # -*- tclsh -*- | | | | 1 2 3 4 5 6 7 8 9 10 | # -*- tclsh -*- # FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Thu Sep 16 02:53:18 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
224 225 226 227 228 229 230 |
}
set executables 0
foreach dir [split $env(PATH) :] {
if {[catch [list set files [glob -nocomplain ${dir}/*]]]} { continue }
foreach file $files {
if {[file executable $file]} {
| | | 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 |
}
set executables 0
foreach dir [split $env(PATH) :] {
if {[catch [list set files [glob -nocomplain ${dir}/*]]]} { continue }
foreach file $files {
if {[file executable $file]} {
lappend executables [file tail ${file}]
}
}
}
}
#**
# build a list hosts from the /etc/hosts file.
|
| ︙ | ︙ | |||
254 255 256 257 258 259 260 |
if {0 != ${id}} {
while {-1 != [gets ${id} line]} {
regsub {#.*} ${line} {} line
if {[llength ${line}] >= 2} {
lappend hosts [lindex ${line} 1]
}
}
| | | | 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 |
if {0 != ${id}} {
while {-1 != [gets ${id} line]} {
regsub {#.*} ${line} {} line
if {[llength ${line}] >= 2} {
lappend hosts [lindex ${line} 1]
}
}
close ${id}
}
}
}
return ${hosts}
}
#**
# never return an empty string, never complete.
# This is useful for showing options lists for example.
#
proc DisplayHints {lst} {
|
| ︙ | ︙ |