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
88
89
90
91
|
/// Tests correct handling of a few INPUT/OUTPUT/INOUT-typemapped functions.
module li_typemaps_runme;
import std.exception;
import li_typemaps.li_typemaps;
void main() {
// Check double INPUT typemaps
enforce(in_double(22.22) == 22.22, "in_double");
enforce(inr_double(22.22) == 22.22, "inr_double");
// Check double OUTPUT typemaps
{
double var = 44.44;
out_double(22.22, var);
enforce(var == 22.22, "out_double");
}
{
double var = 44.44;
outr_double(22.22, var);
enforce(var == 22.22, "outr_double");
}
// Check double INOUT typemaps
{
double var = 44.44;
inout_double(var);
enforce(var == 44.44, "inout_double");
}
{
double var = 44.44;
inoutr_double(var);
enforce(var == 44.44, "inoutr_double");
}
// Check unsigned long long INPUT typemaps
enforce(in_ulonglong(20) == 20, "in_ulonglong");
enforce(inr_ulonglong(20) == 20, "inr_ulonglong");
// Check unsigned long long OUTPUT typemaps
{
ulong var = 40;
out_ulonglong(20, var);
enforce(var == 20, "out_ulonglong");
}
{
ulong var = 40;
outr_ulonglong(20, var);
enforce(var == 20, "outr_ulonglong");
}
// Check unsigned long long INOUT typemaps
{
ulong var = 40;
inout_ulonglong(var);
enforce(var == 40, "inout_ulonglong");
}
{
ulong var = 40;
inoutr_ulonglong(var);
enforce(var == 40, "inoutr_ulonglong");
}
// Check unsigned bool INPUT typemaps
enforce(in_bool(false) == false, "in_bool");
enforce(inr_bool(false) == false, "inr_bool");
// Check unsigned bool OUTPUT typemaps
{
bool var = false;
out_bool(true, var);
enforce(var == true, "out_bool");
}
{
bool var = false;
outr_bool(true, var);
enforce(var == true, "outr_bool");
}
// Check unsigned bool INOUT typemaps
{
bool var = false;
inout_bool(var);
enforce(var == false, "inout_bool");
}
{
bool var = false;
inoutr_bool(var);
enforce(var == false, "inoutr_bool");
}
}
|