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

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.61/] [tools/] [tcl/] [.tclshrc] - Blame information for rev 11

Go to most recent revision | Details | Compare with Previous | View Log


# -*- tcl -*-
# $Id: .tclshrc 376 2011-04-17 12:24:07Z mueller $
#
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			`# $Id: .tclshrc 376 2011-04-17 12:24:07Z mueller $`
3			`#`
4			`lappend auto_path [file join $env(RETROBASE) tools tcl]`
5			`lappend auto_path [file join $env(RETROBASE) tools lib]`
6			`#`
7			`if {$tcl_interactive} {`
8			`package require tclreadline`
9			`namespace eval tclreadline {`
10			`proc prompt1 {} {`
11			`set version [info tclversion]`
12			`return "tclsh$version > "`
13			`}`
14			`}`
15			`::tclreadline::Loop`
16			`}`

Browse

Tools

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.61/] [tools/] [tcl/] [.tclshrc] - Blame information for rev 11