URL
https://opencores.org/ocsvn/w11/w11/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 12 |
Rev 26 |
# -*- tcl -*-
|
# -*- tcl -*-
|
# $Id: .wishrc 379 2011-04-22 20:56:19Z mueller $
|
# $Id: .wishrc 379 2011-04-22 20:56:19Z mueller $
|
#
|
#
|
if {[info exists env(RETROBASE)]} {
|
if {[info exists env(RETROBASE)]} {
|
lappend auto_path [file join $env(RETROBASE) tools tcl]
|
lappend auto_path [file join $env(RETROBASE) tools tcl]
|
lappend auto_path [file join $env(RETROBASE) tools lib]
|
lappend auto_path [file join $env(RETROBASE) tools lib]
|
}
|
}
|
#
|
#
|
if {$tcl_interactive} {
|
if {$tcl_interactive} {
|
package require tclreadline
|
package require tclreadline
|
namespace eval tclreadline {
|
namespace eval tclreadline {
|
proc prompt1 {} {
|
proc prompt1 {} {
|
set version [info tclversion]
|
set version [info tclversion]
|
return "tclsh$version > "
|
return "tclsh$version > "
|
}
|
}
|
}
|
}
|
::tclreadline::Loop
|
::tclreadline::Loop
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.