URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.6/] [tools/] [tcl/] [.tclshrc] - Rev 40
Go to most recent revision | Compare with Previous | Blame | View Log
# -*- tcl -*-
# $Id: .tclshrc 379 2011-04-22 20:56:19Z mueller $
#
if {[info exists env(RETROBASE)]} {
lappend auto_path [file join $env(RETROBASE) tools tcl]
lappend auto_path [file join $env(RETROBASE) tools lib]
}
#
if {$tcl_interactive} {
package require tclreadline
namespace eval tclreadline {
proc prompt1 {} {
set version [info tclversion]
return "tclsh$version > "
}
}
::tclreadline::Loop
}
Go to most recent revision | Compare with Previous | Blame | View Log