File: itkBasicClasses.tcl

package info (click to toggle)
insighttoolkit 3.6.0-3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 94,956 kB
  • ctags: 74,981
  • sloc: cpp: 355,621; ansic: 195,070; fortran: 28,713; python: 3,802; tcl: 1,996; sh: 1,175; java: 583; makefile: 415; csh: 184; perl: 175
file content (22 lines) | stat: -rwxr-xr-x 545 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
package require InsightToolkit
package require itktesting

itkStringStream stream

set dir [itkDirectory_New]
$dir Load "."
set numFiles [$dir GetNumberOfFiles]
for { set i 1 } { $i < $numFiles } { incr i } {
   puts [$dir GetFile $i]
}
$dir Print [stream GetStream]
puts [stream GetString]
set loader [itkDynamicLoader_New]
set o [itkDynamicLoader_OpenLibrary "/lib/libc.so"]
itkDynamicLoader_CloseLibrary $o
stream Reset
puts $o
set o [itkDynamicLoader_OpenLibrary  "/windows/SYSTEM32/mfc70.dll"]
itkDynamicLoader_CloseLibrary $o
puts $o
exit