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: "Sat May 8 14:03:47 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: "/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
#
|
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
|
set replace [glob -nocomplain -- $name]
if {$replace == ""} {
lappend commandstring $name
} else {
lappend commandstring $replace
}
}
return $commandstring
}
proc ::tclreadline::Loop {} {
::tclreadline::Setup
|
|
>
>
|
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
|
set replace [glob -nocomplain -- $name]
if {$replace == ""} {
lappend commandstring $name
} else {
lappend commandstring $replace
}
}
# return $commandstring
# Christian Krone <krischan@sql.de> proposed
return [eval concat $commandstring]
}
proc ::tclreadline::Loop {} {
::tclreadline::Setup
|