1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
# Insight Toolkit (ITK) Tcl package configuration.
namespace eval itk {
#
# This procedure will help configure other ITK Tcl packages.
# Call it with:
# package = the name of the package
# version = the version number of the package
#
proc ConfigureTclPackage {libName version} {
set libPrefix "@ITK_CSWIG_LIBNAME_PREFIX@"
set libPath "@ITK_CSWIG_PACKAGE_DIR@"
set libExt [info sharedlibextension]
set libFile [file join $libPath "$libPrefix$libName$libExt"]
set package [string tolower $libName]
package ifneeded $package $version "
namespace eval ::itk::loader {
set curDir \[pwd\]
cd {$libPath}
if {\[catch { load \"$libFile\" } errorMessage \]} { puts \$errorMessage }
cd \$curDir
}
"
}
# Procedure to drive configuration of all packages.
proc ConfigureItkTclPackages {version} {
# Configure ITK Tcl packages.
ConfigureTclPackage VXLNumericsTcl $version
ConfigureTclPackage ITKNumericsTcl $version
ConfigureTclPackage ITKCommonATcl $version
ConfigureTclPackage ITKCommonBTcl $version
ConfigureTclPackage ITKIOTcl $version
ConfigureTclPackage ITKBasicFiltersATcl $version
ConfigureTclPackage ITKBasicFiltersBTcl $version
ConfigureTclPackage ITKAlgorithmsTcl $version
package ifneeded InsightToolkit $version "
package require itknumerics $version
package require itkcommon $version
package require itkio $version
package require itkbasicfilters $version
package require itkalgorithms $version
package provide InsightToolkit $version
"
package ifneeded itknumerics $version "
package require vxlnumericstcl $version
package require itknumericstcl $version
package provide itknumerics $version
"
package ifneeded itkcommon $version "
package require itkcommonatcl $version
package require itkcommonbtcl $version
package provide itkcommon $version
"
package ifneeded itkbasicfilters $version "
package require itkbasicfiltersatcl $version
package require itkbasicfiltersbtcl $version
package provide itkbasicfilters $version
"
package ifneeded itkalgorithms $version "
package require itkalgorithmstcl $version
package provide itkalgorithms $version
"
package ifneeded itkio $version "
package require itkiotcl $version
package provide itkio $version
"
package ifneeded itkinteraction $version "
set src \[file join \"@ITK_CSWIG_SCRIPT_DIR@\" itkinteraction.tcl\]
if {\[catch { source \"\$src\" } errorMessage \]} { puts \$errorMessage } \\
else { package provide itkinteraction $version }
"
package ifneeded itkdata $version "
set src \[file join \"@ITK_CSWIG_SCRIPT_DIR@\" itkdata.tcl\]
namespace eval itk::data {
set defaultDataRoot \"@ITK_CSWIG_DATA_ROOT@\"
}
if {\[catch { source \"\$src\" } errorMessage \]} { puts \$errorMessage } \\
else { package provide itkdata $version }
"
package ifneeded itktesting $version "
set src \[file join \"@ITK_CSWIG_SCRIPT_DIR@\" itktesting.tcl\]
namespace eval itk::testing {
set defaultTestRoot \"@ITK_CSWIG_TEST_ROOT@\"
}
if {\[catch { source \"\$src\" } errorMessage \]} { puts \$errorMessage } \\
else { package provide itktesting $version }
"
}
# Make sure the procedure can be called.
namespace export ConfigureItkTclPackages
}
# Configure packages with version @ITK_VERSION_STRING@.
itk::ConfigureItkTclPackages @ITK_VERSION_STRING@
|
