source: tol/toltcl/library/pkgIndex.tcl.in

devel
Last change on this file was cfaad89, checked in by Pedro Gea <pgea@…>, 10 years ago

Refs #1938
Se generaliza la versión en los archivos de recursos .rc.
Se crean variables en tcl con las versiones de tolsh y tolbase.
Se simplifica el icono de tolbase en el caso GNU.
Se modifica el título de la aplicación para indicar versión y si es de 32-bits o de 64-bits.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7368 be4846ae-f051-483a-831f-b64e7d08527f
  • Property mode set to 100644
File size: 1.1 KB
Line 
1# Tcl package index file, version 1.1
2
3proc LoadToltcl { version dir } {
4  global tcl_platform
5 
6  set _version [ string map [ list "." "" ] $version ]
7  if {[info exist ::env(USE_TOLTCL_$_version)]} {
8    puts "requested to load Toltcl from $::env(USE_TOLTCL_$_version)"
9    load $::env(USE_TOLTCL_$_version)
10  } else {
11    set suffix [info sharedlibextension]
12    if {$tcl_platform(platform) eq "unix"} {
13      set name libtoltcl${version}[info sharedlibextension]
14    } else  {
15      set name toltcl.dll
16    }
17    load [file join $dir {@TOLTCL_LIB_NAME@}] Toltcl
18  }
19}
20
21package ifneeded Toltcl @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ \
22    [ string map [list %d $dir] {
23      LoadToltcl @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ {%d}
24      source [ file join {%d} toltcl.tcl ]
25    } ]
26
27package ifneeded TolshApp @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ \
28    [ string map [list %d $dir] {
29      source [ file join {%d} tolsh.tcl ]
30      set tolsh_version @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@
31      package provide TolshApp @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@     
32    } ]
Note: See TracBrowser for help on using the repository browser.