annotate tests/mini/typeinfo10.d @ 1651:cb960b882ca3 default tip

bindings were moved to dsource.org/projects/bindings/
author Moritz Warning <moritzwarning@web.de>
date Thu, 20 May 2010 20:05:03 +0200
parents 0a5f7890f327
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
72
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
1 module typeinfo10;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
2
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
3 struct S
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
4 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
5 long l;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
6 float f;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
7 void* vp;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
8
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
9 hash_t toHash()
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
10 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
11 return l + cast(size_t)f;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
12 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
13
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
14 int opEquals(S s)
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
15 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
16 return (s.l == l) && (s.f == f);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
17 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
18
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
19 int opCmp(S a)
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
20 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
21 if (l == a.l) {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
22 return (f < a.f) ? -1 : (f > a.f) ? 1 : 0;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
23 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
24 return (l < a.l) ? -1 : 1;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
25 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
26
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
27 char[] toString()
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
28 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
29 return "S instance";
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
30 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
31 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
32
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
33 void main()
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
34 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
35 S s=S(-1, 0);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
36 S t=S(-1, 1);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
37 S u=S(11,-1);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
38 S v=S(12,13);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
39
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
40 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
41 assert(s == s);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
42 assert(s != t);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
43 assert(s != v);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
44 assert(s < t);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
45 assert(u > s);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
46 assert(v > u);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
47 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
48
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
49 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
50 auto ti = typeid(S);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
51 assert(ti.getHash(&s) == s.toHash());
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
52 assert(ti.equals(&s,&s));
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
53 assert(!ti.equals(&s,&t));
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
54 assert(!ti.equals(&s,&v));
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
55 assert(ti.compare(&s,&s) == 0);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
56 assert(ti.compare(&s,&t) < 0);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
57 assert(ti.compare(&u,&s) > 0);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
58 assert(ti.compare(&v,&u) > 0);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
59 {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
60 auto tis = cast(TypeInfo_Struct)ti;
1442
0a5f7890f327 Adjust some more code that was depending on the function and delegate calling
Frits van Bommel <fvbommel wxs.nl>
parents: 341
diff changeset
61 char[] delegate() structToString;
0a5f7890f327 Adjust some more code that was depending on the function and delegate calling
Frits van Bommel <fvbommel wxs.nl>
parents: 341
diff changeset
62 structToString.ptr = &s;
0a5f7890f327 Adjust some more code that was depending on the function and delegate calling
Frits van Bommel <fvbommel wxs.nl>
parents: 341
diff changeset
63 structToString.funcptr = tis.xtoString;
0a5f7890f327 Adjust some more code that was depending on the function and delegate calling
Frits van Bommel <fvbommel wxs.nl>
parents: 341
diff changeset
64 assert(structToString() == s.toString());
72
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
65 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
66 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs.
lindquist
parents:
diff changeset
67 }