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

Fix a few bugs in the tcl module related to clientdata propagation.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6357 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-10-07 02:31:14 +00:00
commit 0e57357472
16 changed files with 257 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

88
SWIG/Examples/test-suite/tcl/clientdata_prop_runme.tcl Normal file
View file

@ -0,0 +1,88 @@
if [ catch { load ./clientdata_prop_b[info sharedlibextension] clientdata_prop_b} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
exit 1
}
if [ catch { load ./clientdata_prop_a[info sharedlibextension] clientdata_prop_a} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
exit 1
}
A a
test_A a
test_tA a
test_t2A a
test_t3A a
a fA
B b
test_A b
test_tA b
test_t2A b
test_t3A b
test_B b
b fA
b fB
C c
test_A c
test_tA c
test_t2A c
test_t3A c
test_C c
c fA
c fC
D d
test_A d
test_tA d
test_t2A d
test_t3A d
test_D d
test_tD d
test_t2D d
d fA
d fD
set a2 [new_tA]
test_A $a2
test_tA $a2
test_t2A $a2
test_t3A $a2
$a2 fA
set a3 [new_t2A]
test_A $a3
test_tA $a3
test_t2A $a3
test_t3A $a3
$a3 fA
set a4 [new_t3A]
test_A $a4
test_tA $a4
test_t2A $a4
test_t3A $a4
$a4 fA
set d2 [new_tD]
test_A $d2
test_tA $d2
test_t2A $d2
test_t3A $d2
test_D $d2
test_tD $d2
test_t2D $d2
$d2 fA
$d2 fD
set d3 [new_t2D]
test_A $d3
test_tA $d3
test_t2A $d3
test_t3A $d3
test_D $d3
test_tD $d3
test_t2D $d3
$d3 fA
$d3 fD