Mercurial > projects > ldc

comparison lphobos/std/typeinfounsupported/ti_AC.d @ 1:c53b6e3fe49a trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r5] Initial commit. Most things are very rough.
author lindquist
date Sat, 01 Sep 2007 21:43:27 +0200
parents
children
comparison
equal deleted inserted replaced
0:a9e71648e74d 1:c53b6e3fe49a
1 module std.typeinfo.ti_AC;
2
3 // Object[]
4
5 class TypeInfo_AC : TypeInfo
6 {
7 hash_t getHash(void *p)
8 { Object[] s = *cast(Object[]*)p;
9 hash_t hash = 0;
10
11 foreach (Object o; s)
12 {
13 if (o)
14 hash += o.toHash();
15 }
16 return hash;
17 }
18
19 int equals(void *p1, void *p2)
20 {
21 Object[] s1 = *cast(Object[]*)p1;
22 Object[] s2 = *cast(Object[]*)p2;
23
24 if (s1.length == s2.length)
25 {
26 for (size_t u = 0; u < s1.length; u++)
27 { Object o1 = s1[u];
28 Object o2 = s2[u];
29
30 // Do not pass null's to Object.opEquals()
31 if (o1 is o2 ||
32 (!(o1 is null) && !(o2 is null) && o1.opEquals(o2)))
33 continue;
34 return 0;
35 }
36 return 1;
37 }
38 return 0;
39 }
40
41 int compare(void *p1, void *p2)
42 {
43 Object[] s1 = *cast(Object[]*)p1;
44 Object[] s2 = *cast(Object[]*)p2;
45 int c;
46
47 c = cast(int)s1.length - cast(int)s2.length;
48 if (c == 0)
49 {
50 for (size_t u = 0; u < s1.length; u++)
51 { Object o1 = s1[u];
52 Object o2 = s2[u];
53
54 if (o1 is o2)
55 continue;
56
57 // Regard null references as always being "less than"
58 if (o1)
59 {
60 if (!o2)
61 { c = 1;
62 break;
63 }
64 c = o1.opCmp(o2);
65 if (c)
66 break;
67 }
68 else
69 { c = -1;
70 break;
71 }
72 }
73 }
74 return c;
75 }
76
77 size_t tsize()
78 {
79 return (Object[]).sizeof;
80 }
81
82 uint flags()
83 {
84 return 1;
85 }
86
87 TypeInfo next()
88 {
89 return typeid(Object);
90 }
91 }
92