### -*-tcl-*-

if {$tcl_interactive} {
  if {![catch { package require tclreadline }]} {
    proc _set_prompt {} {
      set bold [exec tput bold]
      set unbold [exec tput sgr0]
      set interp [file tail [info nameofexecutable]]
      proc ::tclreadline::prompt1 {} \
	  [list return "$bold$interp%$unbold "]
      proc ::tclreadline::prompt2 {} \
	  [list return "$bold$interp>$unbold "]
    }
    _set_prompt
    rename _set_prompt {}
    ::tclreadline::Loop
  }
}