swig/SWIG/Examples/test-suite/tcl/import_nomodule_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

10 lines
348 B
Tcl

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