jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

The great merge

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2002-11-30 22:01:28 +00:00
commit 12a43edc2d
1508 changed files with 125983 additions and 44037 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Examples/test-suite/tcl/imports_runme.tcl Normal file
View file

@ -0,0 +1,26 @@
# This is the imports runtime testcase.
if { [ string match $tcl_platform(os) Windows* ] == 1 } {
if [ catch { load ./imports_a.dll imports_a} err_msg ] { ;# Windows
puts stderr "Could not load dll:\n$err_msg"
exit 1
}
if [ catch { load ./imports_b.dll imports_b} err_msg ] { ;# Windows
puts stderr "Could not load dll:\n$err_msg"
exit 1
}
} else {
if [ catch { load ./imports_a.so imports_a} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
exit 1
}
if [ catch { load ./imports_b.so imports_b} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
exit 1
}
}
set x [new_B]
A_hello $x