Overview
| Comment: | Modified Files: .login Modified Files: Exception.h StdMatrix.h StdVector.h Modified Files: tclreadline.c tclreadlineSetup.tcl.in |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
be5c9f0d5b1a079643820e11918d1215 |
| User & Date: | johannes@zellner.org on 1999-08-27 15:48:23 |
| Other Links: | manifest | tags |
Context
|
1999-08-28
| ||
| 22:12 | Modified Files: .csymrc .tclshrc src/csym/.csymrc src/tclreadline/README src/tclreadline/TODO src/tclreadline/configure.in src/tclreadline/sample.tclshrc src/tclreadline/tclreadline.n.in src/tclreadline/tclreadlineSetup.tcl.in Added Files: src/csym/version src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in check-in: f815040834 user: johannes@zellner.org tags: trunk | |
|
1999-08-27
| ||
| 15:48 | Modified Files: .login Modified Files: Exception.h StdMatrix.h StdVector.h Modified Files: tclreadline.c tclreadlineSetup.tcl.in check-in: be5c9f0d5b user: johannes@zellner.org tags: trunk | |
|
1999-08-25
| ||
| 15:55 | Modified Files: Makefile.in tclreadline.c check-in: 5f4b6d99ea user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadline.c from [9d0bf6d478] to [e6dc3b897a].
1 2 3 4 |
/* ==================================================================
FILE: "/diska/home/joze/src/tclreadline/tclreadline.c"
| | | 1 2 3 4 5 6 7 8 9 10 11 12 |
/* ==================================================================
FILE: "/diska/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Fri Aug 27 16:18:44 1999 (joze)"
(C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
Copyright (C) 1999 Johannes Zellner
|
| ︙ | ︙ |
Modified tclreadlineSetup.tcl.in from [efbc741fe2] to [2ee5cd5fbe].
1 2 | #!/usr/local/bin/tclsh # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" | | | 1 2 3 4 5 6 7 8 9 10 | #!/usr/local/bin/tclsh # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Fri Aug 27 16:08:15 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
213 214 215 216 217 218 219 220 221 222 223 224 225 226 |
# end == 7
# line == "$puts $b"
#
proc tclreadline::ScriptCompleter {part start end line} {
# puts stderr "(ScriptCompleter) |$part| $start $end |$line|"
variable known_cmds
if {{$} == [string index $part 0]} {
# variable completion. Check first, if the
# variable starts with a plain `$' or should
# be enclosed in braces.
#
if {"\{" == [string index $part 1]} {
set var [string range $part 2 end]
set left "\$\{"
| > > > > > > > | 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 |
# end == 7
# line == "$puts $b"
#
proc tclreadline::ScriptCompleter {part start end line} {
# puts stderr "(ScriptCompleter) |$part| $start $end |$line|"
variable known_cmds
if {{$} == [string index $part 0]} {
# check for a !$ history event
#
if {$start > 0} {
if {{!} == [string index $line [expr $start - 1]]} {
return ""
}
}
# variable completion. Check first, if the
# variable starts with a plain `$' or should
# be enclosed in braces.
#
if {"\{" == [string index $part 1]} {
set var [string range $part 2 end]
set left "\$\{"
|
| ︙ | ︙ |