mirror of
https://github.com/wfjm/w11.git
synced 2026-04-27 20:49:15 +00:00
e15295649e
- many small changes to prepare upcoming support for Spartan-6 and usage of Cypress FX2 USB interface on nexys2/3 and atlys boards
19 lines
432 B
Tcl
19 lines
432 B
Tcl
# -*- 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
|
|
}
|