1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
--Example using pointers to member functions
require("import") -- the import fn
import("member_pointer") -- import code
for k,v in pairs(member_pointer) do _G[k]=v end
function check(what, expected, actual)
assert(expected == actual,"Failed: "..what.." Expected: "..expected.." Actual: "..actual)
end
-- Get the pointers
area_pt = areapt()
perim_pt = perimeterpt()
-- Create some objects
s = Square(10)
-- Do some calculations
check ("Square area ", 100.0, do_op(s,area_pt))
check ("Square perim", 40.0, do_op(s,perim_pt))
-- Try the variables
-- these have to still be part of the 'member_pointer' table
memberPtr = member_pointer.areavar
memberPtr = member_pointer.perimetervar
check ("Square area ", 100.0, do_op(s,member_pointer.areavar))
check ("Square perim", 40.0, do_op(s,member_pointer.perimetervar))
-- Modify one of the variables
member_pointer.areavar = perim_pt
check ("Square perimeter", 40.0, do_op(s,member_pointer.areavar))
-- Try the constants
memberPtr = AREAPT
memberPtr = PERIMPT
memberPtr = NULLPT
check ("Square area ", 100.0, do_op(s,AREAPT))
check ("Square perim", 40.0, do_op(s,PERIMPT))
|
