URL https://opencores.org/ocsvn/w11/w11/trunk

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.61/] [tools/] [tcl/] [.wishrc] - Blame information for rev 26

Details | Compare with Previous | View Log


# -*- tcl -*-
# $Id: .wishrc 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
}

Line No.	Rev	Author	Line
1	11	wfjm	`# -- tcl --`
2	12	wfjm	`# $Id: .wishrc 379 2011-04-22 20:56:19Z mueller $`
3	11	wfjm	`#`
4	12	wfjm	`if {[info exists env(RETROBASE)]} {`
5			`lappend auto_path [file join $env(RETROBASE) tools tcl]`
6			`lappend auto_path [file join $env(RETROBASE) tools lib]`
7			`}`
8	11	wfjm	`#`
9			`if {$tcl_interactive} {`
10			`package require tclreadline`
11			`namespace eval tclreadline {`
12			`proc prompt1 {} {`
13			`set version [info tclversion]`
14			`return "tclsh$version > "`
15			`}`
16			`}`
17			`::tclreadline::Loop`
18			`}`

Browse

Tools

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.61/] [tools/] [tcl/] [.wishrc] - Blame information for rev 26