.tclshrc

   1 # Get less sucky interactive behavior.
   2 # http://tclreadline.sourceforge.net/
   3 if {$tcl_interactive} {
   4         package require tclreadline
   5         namespace eval tclreadline {
   6                 proc prompt1 {} {
   7                         return "\ 1\e\[0;31m\ 2tclsh>\ 1\e\[0m\ 2 "
   8                 }
   9         }
  10         namespace import tclreadline::ls
  11         ::tclreadline::Loop
  12 }