diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-03-04 20:59:55 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:49 +1000 |
commit | 79666d2f8eefe11ff7674ea92867eac354f200f9 (patch) | |
tree | c0508a7d4425e5c7ff2404272420abf9d16b8b1f /jim-rlprompt-1.0.tcl | |
parent | 44ba281d39235e1982e9929a2592572e16cba448 (diff) | |
download | jimtcl-79666d2f8eefe11ff7674ea92867eac354f200f9.zip jimtcl-79666d2f8eefe11ff7674ea92867eac354f200f9.tar.gz jimtcl-79666d2f8eefe11ff7674ea92867eac354f200f9.tar.bz2 |
Remove various obsolete files
Also rename and chmod some files
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-rlprompt-1.0.tcl')
-rw-r--r-- | jim-rlprompt-1.0.tcl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/jim-rlprompt-1.0.tcl b/jim-rlprompt-1.0.tcl deleted file mode 100644 index 556d0e9..0000000 --- a/jim-rlprompt-1.0.tcl +++ /dev/null @@ -1,31 +0,0 @@ -# Readline-based interactive shell for Jim -# Copyright(C) 2005 Salvatore Sanfilippo <antirez@invece.org> -# -# In order to automatically have readline-editing features -# put this in your $HOME/.jimrc -# -# if {$jim_interactive} { -# if {[catch {package require rlprompt}] == 0} { -# rlprompt.shell -# } -# } - -package require readline -package provide rlprompt 1.0 - -proc rlprompt.shell {} { - puts "Readline shell loaded" - puts "Welcome to Jim [info version]!" - set prompt ". " - while 1 { - set line [readline.readline $prompt] - if {[string length $line] == 0} { - continue - } - readline.addhistory $line - set errCode [catch {uplevel #0 $line} err] - if {$err ne {}} { - puts $err - } - } -} |