File: pkgIndex.tcl

package info (click to toggle)
tcltrf 2.1.4-dfsg1-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 8,052 kB
  • sloc: ansic: 72,769; tcl: 1,343; makefile: 226; sh: 89; exp: 22
file content (15 lines) | stat: -rw-r--r-- 384 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# Tcl package index file, version 1.0
#
# Window package index for Trf 2.1.4 (as of MAY-06-2009)
#

proc trfifneeded dir {
    rename trfifneeded {}
    if {[package vcompare [info tclversion] 8.1] >= 0} {
	set version {}
    } else {
	regsub {\.} [info tclversion] {} version
    }
    package ifneeded Trf 2.1 "load [list [file join $dir trf21$version.dll]] Trf"
}
trfifneeded $dir