Overview
Comment: | tclreadlineCompleter.tcl |
---|---|
Downloads: | Tarball | ZIP archive | SQL 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 |
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 2 3 4 5 6 7 8 9 10 ... 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 ... 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 |
# -*- tclsh -*- # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Thu Sep 16 02:47:02 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # ................................................................................ } 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. ................................................................................ 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} { |
| | | | | |
1 2 3 4 5 6 7 8 9 10 ... 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 ... 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 |
# -*- 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 # ................................................................................ } 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. ................................................................................ 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} { |