← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/swig1.3/oneiric

« back to all changes in this revision

Viewing changes to Examples/tcl/mpointer/runme.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-12-06 10:27:08 UTC
  • mfrom: (1.2.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20071206102708-t37t62i45n595w0e
Tags: 1.3.33-2ubuntu1
* Merge with Debian; remaining changes:
  - Drop support for pike.
  - Use python2.5 instead of python2.4.
  - Clean Runtime/ as well.
  - Force a few environment variables.
* debian/Rules (clean): Remove Lib/ocaml/swigp4.ml.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Examples/tcl/mpointer/runme.tcl
1
 
# Example using pointers to member functions
2
 
 
3
 
catch { load ./example[info sharedlibextension] example}
4
 
 
5
 
# Get the pointers
6
 
 
7
 
set area_pt [ areapt ]
8
 
set perim_pt [ perimeterpt ]
9
 
 
10
 
puts "area_pt  = $area_pt"
11
 
puts "perim_pt = $perim_pt"
12
 
 
13
 
# Create some objects
14
 
 
15
 
set c [Circle -args 4]
16
 
set s [Square -args 10]
17
 
 
18
 
# Do some calculations
19
 
 
20
 
puts "Circle area  = [do_op $c $area_pt]"
21
 
puts "Circle perim = [do_op $c $perim_pt]"
22
 
puts "Square area  = [do_op $s $area_pt]"
23
 
puts "Square perim = [do_op $s $perim_pt]"
24
 
 
25
 
puts "areavar      = $areavar";
26
 
puts "perimetervar = $perimetervar";
27
 
 
28
 
# Try the variables
29
 
puts "Circle area  = [do_op $c $areavar]"
30
 
puts "Circle perim = [do_op $c $perimetervar]"
31
 
puts "Square area  = [do_op $s $areavar]"
32
 
puts "Square perim = [do_op $s $perimetervar]"
33
 
 
34
 
# Modify one of the variables
35
 
set areavar $perim_pt
36
 
 
37
 
puts "Circle perimeter = [do_op $c $areavar]"
38
 
 
39
 
# Try the constants
40
 
 
41
 
puts "example.AREAPT = $AREAPT"
42
 
puts "example.PERIMPT= $PERIMPT"
43
 
puts "example.NULLPT = $NULLPT"
44
 
 
45
 
puts "Circle area  = [do_op $c $AREAPT]"
46
 
puts "Circle perim = [do_op $c $PERIMPT]"
47
 
puts "Square area  = [do_op $s $AREAPT]"
48
 
puts "Square perim = [do_op $s $PERIMPT]"
49