jim-rlprompt-1.0.tcl

   1 # Readline-based interactive shell for Jim
   2 # Copyright(C) 2005 Salvatore Sanfilippo <antirez@invece.org>
   3 #
   4 # In order to automatically have readline-editing features
   5 # put this in your $HOME/.jimrc
   6 #
   7 # if {$jim_interactive} {
   8 #    if {[catch {package require rlprompt}] == 0} {
   9 #       rlprompt.shell
  10 #    }
  11 # }
  12
  13 package require readline
  14 package provide rlprompt 1.0
  15
  16 proc rlprompt.shell {} {
  17     puts "Readline shell loaded"
  18     puts "Welcome to Jim [info version]!"
  19     set prompt ". "
  20     while 1 {
  21         set line [readline.readline $prompt]
  22         if {[string length $line] == 0} {
  23             continue
  24         }
  25         readline.addhistory $line
  26         set errCode [catch {uplevel #0 $line} err]
  27         if {$err ne {}} {
  28             puts $err
  29         }
  30     }
  31 }