rlprompt.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 package require readline
  13
  14 proc rlprompt.shell {} {
  15     puts "Readline shell loaded"
  16     puts "Welcome to Jim [info version]!"
  17     set prompt ". "
  18     set buf ""
  19     while 1 {
  20         set line [readline.readline $prompt]
  21
  22         if {[string length $line] == 0} {
  23             continue
  24         }
  25         if {$buf eq ""} {
  26             set buf $line
  27         } else {
  28             append buf \n $line
  29         }
  30         if {![info complete $buf]} {
  31             set prompt "> "
  32             continue
  33         }
  34         readline.addhistory $buf
  35
  36         catch {
  37             uplevel #0 $buf
  38         } error
  39         if {$error ne ""} {
  40             puts $error
  41         }
  42         set buf ""
  43         set prompt ". "
  44     }
  45 }