/usr/src/WrapITK/Tcl/itkdata.tcl is in libinsighttoolkit3-dev 3.20.1+git20120521-6build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #
# Program: Insight Segmentation & Registration Toolkit
# Module: itkdata.tcl
# Language: C++
# Date: $Date$
# Version: $Revision$
#
# Copyright (c) Insight Software Consortium. All rights reserved.
# See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details.
#
# This software is distributed WITHOUT ANY WARRANTY; without even
# the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the above copyright notices for more information.
#
# Define ITK Tcl data utilities.
namespace eval itk::data {
# Require the itk packages.
package require InsightToolkit
# Put the ITK_DATA_ROOT setting in the global namespace.
# Look for the -D command line option.
if {! [info exists ::ITK_DATA_ROOT] && [info exists argc]} {
set argcm1 [expr $argc - 1]
for {set i 0} {$i < $argcm1} {incr i} {
if {[lindex $argv $i] == "-D" && $i < $argcm1} {
set ::ITK_DATA_ROOT [lindex $argv [expr $i + 1]]
break
}
}
}
# Check for the environment variable ::ITK_DATA_ROOT.
if {! [info exists ::ITK_DATA_ROOT] && [info exists env(ITK_DATA_ROOT)]} {
set ::ITK_DATA_ROOT $env(ITK_DATA_ROOT)
}
# Use the default data root.
if {! [info exists ::ITK_DATA_ROOT]} {
set ::ITK_DATA_ROOT $::itk::data::defaultDataRoot
}
}
|