Overview
| Comment: | Modified Files: .tclshrc bin/script/pkgMkIndex share/vim/functions/selectBuffer.vim src/evim/evimrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: Tag: 0.4 src/csym/version No tag src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a3ee053e89ffa7cd3add5993dd6d365e |
| User & Date: | johannes@zellner.org on 1999-08-25 01:03:13.000 |
| Other Links: | manifest | tags |
Context
|
1999-08-25
| ||
| 09:13 | Modified Files: tclreadlineSetup.tcl.in check-in: d451e5e397 user: johannes@zellner.org tags: trunk | |
| 01:03 | Modified Files: .tclshrc bin/script/pkgMkIndex share/vim/functions/selectBuffer.vim src/evim/evimrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: Tag: 0.4 src/csym/version No tag src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in check-in: a3ee053e89 user: johannes@zellner.org tags: trunk | |
|
1999-08-24
| ||
| 01:23 | Modified Files: tclreadlineSetup.tcl.in Added Files: Makefile.in tclreadline.c tclreadlineConfig.sh.in tclreadlineInit.tcl.in check-in: 1ce074b566 user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadlineSetup.tcl.in
from [211857a65a]
to [66de68b4b7].
1 2 | #!/usr/local/bin/tclsh # FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" | | | 1 2 3 4 5 6 7 8 9 10 | #!/usr/local/bin/tclsh # FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Wed Aug 25 02:00:47 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
277 278 279 280 281 282 283 |
set new_end [expr $end - ($start - $new_start)]
set new_line [lindex $sub 1]
# puts stderr "(SubCmd) $new_start $new_end $new_line"
return \
[tclreadline::ScriptCompleter $part $new_start $new_end $new_line]
} elseif {0 == [set pos [tclreadline::PartPosition $part $start $end $line]]} {
# puts stderr "(PartPosition) $part $start $end $line"
| | > > | 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 |
set new_end [expr $end - ($start - $new_start)]
set new_line [lindex $sub 1]
# puts stderr "(SubCmd) $new_start $new_end $new_line"
return \
[tclreadline::ScriptCompleter $part $new_start $new_end $new_line]
} elseif {0 == [set pos [tclreadline::PartPosition $part $start $end $line]]} {
# puts stderr "(PartPosition) $part $start $end $line"
# set matches [array names known_cmds "[string trim ${part}]*"]
set cmd "[string trim ${part}]*"
set matches "[info commands $cmd] [info proc $cmd]"
# puts matches=|$matches|
if {1 == [llength $matches]} { ; # unique match
return $matches
} elseif {"" != $matches} {
set common [tclreadline::GetCommon ${matches}]
# puts stderr common=|$common|
if {"" == $common} {
|
| ︙ | ︙ |