1
2
3
4
5
6
7
8
9
10
|
#!/usr/local/bin/tclsh
# FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Mon May 10 13:01:16 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999 Johannes Zellner
#
|
|
|
|
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: "Thu May 27 14:26:19 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999 Johannes Zellner
#
|
292
293
294
295
296
297
298
299
300
301
302
303
304
305
|
while {![::tclreadline::readline complete $::tclreadline::LINE]} {
append ::tclreadline::LINE ";"
append ::tclreadline::LINE [::tclreadline::readline read \
${::tclreadline::prompt2}]
}
if [catch {
set result [eval $::tclreadline::LINE]
if {$result != "" && [::tclreadline::Print]} {
puts $result
}
set result ""
|
>
>
|
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 ""
|