Overview
| Comment: | *** empty log message *** |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
90883b7fdbf676e74449b924f35bc6c9 |
| User & Date: | johannes@zellner.org on 1999-08-20 09:44:05 |
| Other Links: | manifest | tags |
Context
|
1999-08-20
| ||
| 11:32 | sources Removed Files: tclreadlineSetup.tcl check-in: 447ba8e3d1 user: johannes@zellner.org tags: trunk | |
| 09:44 | *** empty log message *** check-in: 90883b7fdb user: johannes@zellner.org tags: trunk | |
| 09:14 | Initial revision check-in: bed6fc5bcd user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadlineSetup.tcl.in from [e41a38f95b] to [6a07e26e50].
1 | 1 2 3 4 5 6 7 8 9 10 | - - + + | #!/usr/local/bin/tclsh |
| ︙ | |||
292 293 294 295 296 297 298 299 300 301 302 303 304 305 | 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 | + + |
while {![::tclreadline::readline complete $::tclreadline::LINE]} {
append ::tclreadline::LINE ";"
append ::tclreadline::LINE [::tclreadline::readline read \
${::tclreadline::prompt2}]
}
# Magnus Eriksson <magnus.eriksson@netinsight.se> proposed
history add $::tclreadline::LINE
if [catch {
set result [eval $::tclreadline::LINE]
if {$result != "" && [::tclreadline::Print]} {
puts $result
}
set result ""
|
| ︙ |