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 107 108 109 110 111 112 113 114 115 116
|
# =========================================================================
#
# Program: Insight Segmentation & Registration Toolkit
# Module: $RCSfile: BuildHeaderTest.tcl,v $
# Language: Tcl
# Date: $Date: 2002/08/09 13:20:27 $
# Version: $Revision: 1.2 $
#
# Copyright (c) 2001 Insight Consortium
# All rights reserved.
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
# * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright notice,
# this list of conditions and the following disclaimer in the documentation
# and/or other materials provided with the distribution.
# * The name of the Insight Consortium, nor the names of any consortium members,
# nor of any contributors, may be used to endorse or promote products derived
# from this software without specific prior written permission.
# * Modified source versions must be plainly marked as such, and must not be
# misrepresented as being the original software.
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS ``AS IS''
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR
# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
set Header {/*=========================================================================
Program: Insight Segmentation & Registration Toolkit (ITK)
Module:
Language: C++
Date:
Version:
Copyright (c) 2000 National Library of Medicine
All rights reserved.
See COPYRIGHT.txt for copyright details.
=========================================================================*/
#include <iostream>
// This file has been generated by BuildHeaderTest.tcl
// Test to include each header file for Insight
}
set Trailer "
int main ( int argc, char* argv[] )
{
return 0;
}
"
set D [lsort [glob -nocomplain Code/*]]
set Directories ""
foreach d $D \
{
if { [file tail $d] != "CVS" && [file isdirectory $d]} \
{
lappend Directories [file tail $d]
}
}
foreach Directory $Directories \
{
if { ![file exists [file join Testing Code $Directory]] } \
{
continue
}
set f [open [file join Testing Code $Directory itk${Directory}HeaderTest.cxx] w]
puts $f $Header
foreach File [lsort [glob -nocomplain [file join Code $Directory *.h]]] \
{
if {[file tail $File] == "itkTestMain.h"} {
continue;
}
if {[file tail $File] == "itkWindows.h"} {
continue;
}
if {[file tail $File] == "itkWin32Header.h"} {
continue;
}
if {[file tail $File] == "itkWin32OutputWindow.h"} {
continue;
}
#
# include the .h if there is no .txx
# otherwise include the .txx
#
set txxFile "[file rootname $File].txx"
if { [file exists $txxFile] } {
puts $f "#include \"[file tail $txxFile]\""
} else {
puts $f "#include \"[file tail $File]\""
}
}
puts $f $Trailer
close $f
}
|