|
132
|
1
|
|
|
2 // cdouble
|
|
|
3
|
|
|
4 module typeinfo.ti_cdouble;
|
|
|
5
|
|
|
6 class TypeInfo_r : TypeInfo
|
|
|
7 {
|
|
|
8 char[] toString() { return "cdouble"; }
|
|
|
9
|
|
|
10 hash_t getHash(void *p)
|
|
|
11 {
|
|
|
12 return (cast(uint *)p)[0] + (cast(uint *)p)[1] +
|
|
|
13 (cast(uint *)p)[2] + (cast(uint *)p)[3];
|
|
|
14 }
|
|
|
15
|
|
|
16 static int _equals(cdouble f1, cdouble f2)
|
|
|
17 {
|
|
|
18 return f1 == f2;
|
|
|
19 }
|
|
|
20
|
|
|
21 static int _compare(cdouble f1, cdouble f2)
|
|
|
22 { int result;
|
|
|
23
|
|
|
24 if (f1.re < f2.re)
|
|
|
25 result = -1;
|
|
|
26 else if (f1.re > f2.re)
|
|
|
27 result = 1;
|
|
|
28 else if (f1.im < f2.im)
|
|
|
29 result = -1;
|
|
|
30 else if (f1.im > f2.im)
|
|
|
31 result = 1;
|
|
|
32 else
|
|
|
33 result = 0;
|
|
|
34 return result;
|
|
|
35 }
|
|
|
36
|
|
|
37 int equals(void *p1, void *p2)
|
|
|
38 {
|
|
|
39 return _equals(*cast(cdouble *)p1, *cast(cdouble *)p2);
|
|
|
40 }
|
|
|
41
|
|
|
42 int compare(void *p1, void *p2)
|
|
|
43 {
|
|
|
44 return _compare(*cast(cdouble *)p1, *cast(cdouble *)p2);
|
|
|
45 }
|
|
|
46
|
|
|
47 size_t tsize()
|
|
|
48 {
|
|
|
49 return cdouble.sizeof;
|
|
|
50 }
|
|
|
51
|
|
|
52 void swap(void *p1, void *p2)
|
|
|
53 {
|
|
|
54 cdouble t;
|
|
|
55
|
|
|
56 t = *cast(cdouble *)p1;
|
|
|
57 *cast(cdouble *)p1 = *cast(cdouble *)p2;
|
|
|
58 *cast(cdouble *)p2 = t;
|
|
|
59 }
|
|
|
60
|
|
|
61 void[] init()
|
|
|
62 { static cdouble r;
|
|
|
63
|
|
|
64 return (cast(cdouble *)&r)[0 .. 1];
|
|
|
65 }
|
|
|
66 }
|
