source: tol/toltcl/pkgIndex.tcl @ 7e85427

1941-docker-image-to-testdevel
Last change on this file since 7e85427 was 35458ba, checked in by Jorge Pérez <josp.jorge@…>, 15 years ago

fixes #1392 y %d deben ser protegidos como objetos string

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4008 be4846ae-f051-483a-831f-b64e7d08527f
  • Property mode set to 100644
File size: 464 bytes
Line 
1# Tcl package index file, version 1.1
2
3proc LoadToltcl { version dir } {
4  global tcl_platform
5 
6  set suffix [info sharedlibextension]
7  if {$tcl_platform(platform) eq "unix"} {
8    set name libtoltcl${version}[info sharedlibextension]
9  } else  {
10    set name toltcl.dll
11  }
12  load [file join $dir $name] Toltcl
13}
14
15package ifneeded Toltcl 2.0.2 \
16    [ string map [list %d $dir] {
17      LoadToltcl 2.0.2 {%d}
18      source [ file join {%d} toltcl.tcl ]
19    } ]
20
Note: See TracBrowser for help on using the repository browser.