swig/SWIG/Examples/test-suite/tcl/overload_copy_runme.tcl
Dave Beazley 516036631c The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2002-11-30 22:01:28 +00:00

18 lines
373 B
Tcl

if { [ string match $tcl_platform(platform) "windows" ] == 1 } {
if [ catch { load ./overload_copy.dll overload_copy} err_msg ] {
puts stderr "Could not load dll:\n$err_msg"
}
} else {
if [ catch { load ./overload_copy.so overload_copy} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
}
Foo f
Foo g [f cget -this]