516036631c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
31 lines
556 B
Tcl
31 lines
556 B
Tcl
# Operator overloading example
|
|
|
|
catch { load ./example.so example}
|
|
catch { load ./example.dll example} ;# Windows
|
|
|
|
set a [Complex -args 2 3]
|
|
set b [Complex -args -5 10]
|
|
|
|
puts "a = $a [$a str]"
|
|
puts "b = $b [$b str]"
|
|
|
|
set c [$a + $b]
|
|
Complex -this $c
|
|
puts "c = $c [$c str]"
|
|
|
|
set d [$a * $b]
|
|
Complex -this $d
|
|
puts "a*b = [$d str]"
|
|
|
|
# Alternative calling convention
|
|
set e [Complex_- $a $c]
|
|
puts "a-c = [Complex_str $e]"
|
|
|
|
set f [new_ComplexCopy $e]
|
|
Complex -this $f
|
|
puts "f = [$f str]"
|
|
|
|
# Call assignment operator
|
|
$c = $f
|
|
puts "c = [$c str]"
|
|
|