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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
exec("swigtest.start", -1);
// OUTPUT
[a, b] = output2();
checkequal(a, 1, "[a, b] = output2(): a");
checkequal(b, 2, "[a, b] = output2(): b");
[ret, a, b] = output2Ret();
checkequal(ret, 3, "[a, b] = output2Ret(): b");
checkequal(a, 1, "[a, b] = output2Ret(): a");
checkequal(b, 2, "[a, b] = output2Ret(): b");
[c, d] = output2Input2(1, 2);
checkequal(c, 2, "[c, d] = output2Input2(1, 2): c");
checkequal(d, 4, "[c, d] = output2Input2(1, 2): d");
[ret, c, d] = output2Input2Ret(1, 2);
checkequal(ret, 6, "[ret, c, d] = output2Input2Ret(1, 2): ret");
checkequal(c, 2, "[ret, c, d] = output2Input2Ret(1, 2): c");
checkequal(d, 4, "[ret, c, d = output2Input2Ret(1, 2): d");
[ret, a, b, c] = output3Input1Ret(10);
checkequal(ret, 10, "[ret, a, b, c] = output3Input1Ret(10): ret");
checkequal(a, 11, "[ret, a, b, c] = output3Input1Ret(10): a");
checkequal(b, 12, "[ret, a, b, c] = output3Input1Ret(10): b");
checkequal(c, 13, "[ret, a, b, c] = output3Input1Ret(10): c");
[ret, a, b, c] = output3Input3Ret(10, 20, 30);
checkequal(ret, 66, "[ret, a, b, c] = output3Input1Ret(10, 20, 30): ret");
checkequal(a, 11, "[ret, a, b, c] = output3Input1Ret(10, 20, 30): a");
checkequal(b, 22, "[ret, a, b, c] = output3Input1Ret(10, 20, 30): b");
checkequal(c, 33, "[ret, a, b, c] = output3Input1Ret(10, 20, 30): c");
// INOUT
[a, b] = inout2(1, 2);
checkequal(a, 2, "[a, b] = output2(1, 2): a");
checkequal(b, 4, "[a, b] = output2(1, 2): b");
[ret, a, b] = inout2Ret(1, 2);
checkequal(ret, 6, "[a, b] = inout2Ret(1, 2): b");
checkequal(a, 2, "[a, b] = inout2Ret(1, 2): a");
checkequal(b, 4, "[a, b] = inout2Ret(1, 2): b");
[c, d] = inout2Input2(1, 2, 1, 1);
checkequal(c, 2, "[c, d] = inout2Input2(1, 2): c");
checkequal(d, 3, "[c, d] = inout2Input2(1, 2): d");
[ret, c, d] = inout2Input2Ret(1, 2, 1, 1);
checkequal(ret, 5, "[c, d] = inout2Input2Ret(1, 2): ret");
checkequal(c, 2, "[c, d] = inout2Input2Ret(1, 2): c");
checkequal(d, 3, "[c, d] = inout2Input2Ret(1, 4): d");
[ret, a, b, c] = inout3Input1Ret(10, 1, 2, 3);
checkequal(ret, 10, "[ret, a, b, c] = output3Input1Ret(ret, 1, 2, 3): ret");
checkequal(a, 11, "[ret, a, b, c] = output3Input1Ret(ret, 1, 2, 3): a");
checkequal(b, 12, "[ret, a, b, c] = output3Input1Ret(ret, 1, 2, 3): b");
checkequal(c, 13, "[ret, a, b, c] = output3Input1Ret(ret, 1, 2, 3): c");
[ret, a, b, c] = inout3Input3Ret(10, 1, 20, 2, 30, 3);
checkequal(ret, 66, "[ret, a, b, c] = output3Input1Ret(10, 20, 30): ret");
checkequal(a, 11, "[ret, a, b, c] = inout3Input1Ret(10, 1, 20, 2, 30, 3): a");
checkequal(b, 22, "[ret, a, b, c] = inout3Input1Ret(10, 1, 20, 2, 30, 3): b");
checkequal(c, 33, "[ret, a, b, c] = inout3Input1Ret(10, 1, 20, 2, 30, 3): c");
// CLASS
a = new_ClassA();
[ret, c, d] = ClassA_output2Input2Ret(a, 1, 2);
checkequal(ret, 6, "[ret, c, d] = ClassA_output2Input2Ret(a, 1, 2): ret");
checkequal(c, 2, "[c, d] = ClassA_output2Input2Ret(a, 1, 2): c");
checkequal(d, 4, "[c, d] = ClassA_output2Input2Ret(a, 1, 2): d");
[ret, c, d] = ClassA_inout2Input2Ret(a, 1, 2, 1, 1);
checkequal(ret, 5, "[ret, c, d] = ClassA_inout2Input2Ret(a, 1, 2): ret");
checkequal(c, 2, "[c, d] = ClassA_inout2Input2(a, 1, 2): c");
checkequal(d, 3, "[c, d] = ClassA_inout2Input2(a, 1, 2): d");
delete_ClassA(a);
exec("swigtest.quit", -1);
|
