Mercurial > projects > ldc
annotate tangotests/vararg3.d @ 228:52d1e9d27dc6 trunk
[svn r244] added another asm test.
| author | lindquist |
|---|---|
| date | Sat, 07 Jun 2008 19:20:15 +0200 |
| parents | a58d8f4b84df |
| children | a9dae3da4e87 |
| rev | line source |
|---|---|
| 214 | 1 // tries to implement a fairly complete variadic print function |
| 2 module tangotests.vararg3; | |
| 3 | |
| 4 extern(C) int printf(char*, ...); | |
| 5 | |
| 6 struct User | |
| 7 { | |
| 8 char[] name; | |
| 9 char[] nick; | |
| 10 uint age; | |
| 11 | |
| 12 char[] toString() | |
| 13 { | |
| 14 return nick ~ "(" ~ name ~ ")"; | |
| 15 } | |
| 16 } | |
| 17 | |
| 18 struct Infidel | |
| 19 { | |
| 20 char[] whocares; | |
| 21 } | |
| 22 | |
| 23 class Obj | |
| 24 { | |
| 25 private char[] ty; | |
| 26 | |
| 27 this(char[] t) | |
| 28 { | |
| 29 ty = t; | |
| 30 } | |
| 31 | |
| 32 char[] toString() | |
| 33 { | |
| 34 return "Obj(" ~ ty ~ ")"; | |
| 35 } | |
| 36 } | |
| 37 | |
|
215
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
38 struct TLA |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
39 { |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
40 char[3] acronym; |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
41 |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
42 char[] toString() |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
43 { |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
44 return acronym; |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
45 } |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
46 } |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
47 |
| 214 | 48 void main() |
| 49 { | |
| 50 User user = User("Bob Doe", "bd", 47); | |
| 51 char[] str = user.toString(); | |
| 52 printf("Direct call:\n%.*s\nBy typeinfo:\n", str.length, str.ptr); | |
| 53 print(user, '\n'); | |
| 54 | |
| 55 print("Without toString:\n"); | |
| 56 Infidel inf = Infidel("not me"); | |
| 57 print(inf, '\n'); | |
| 58 | |
| 59 print("Character arrays:\n"); | |
| 60 print("hello world\n"); | |
| 61 | |
| 62 print("Signed integers:\n"); | |
| 63 print(cast(byte)byte.max,' ',cast(short)short.max,' ',cast(int)int.max,' ',cast(long)long.max,'\n'); | |
| 64 | |
| 65 print("Unsigned integers:\n"); | |
| 66 print(cast(ubyte)ubyte.max,' ',cast(ushort)ushort.max,' ',cast(uint)uint.max,' ',cast(ulong)ulong.max,'\n'); | |
| 67 | |
| 68 print("Floating point:\n"); | |
| 69 print(cast(float)1.273f, ' ', cast(double)3.412367, ' ', cast(real)142.96731112, '\n'); | |
| 70 | |
| 71 print("Arrays:\n"); | |
| 72 int[] ia1 = [1,2,3,4,5,6,7,8,9]; | |
| 73 print(ia1, '\n'); | |
| 74 float[] fa1 = [0.1f, 0.15f, 0.2f, 0.25f, 0.3f]; | |
| 75 print(fa1, '\n'); | |
| 76 | |
| 77 print("Pointers:\n"); | |
| 78 print(&user,'\n'); | |
| 79 print(&inf,'\n'); | |
| 80 print(&ia1,'\n'); | |
| 81 print(&fa1,'\n'); | |
| 82 | |
| 83 print("Static arrays:\n"); | |
| 84 int[5] isa1 = [1,2,4,8,16]; | |
| 85 print(isa1,'\n'); | |
| 86 | |
| 87 print("Classes:\n"); | |
| 88 Obj o = new Obj("foo"); | |
| 89 print(o, '\n'); | |
| 90 | |
| 91 print("Mixed:\n"); | |
| 92 print(123, ' ', 42.536f, " foobar ", ia1, ' ', user, '\n'); | |
| 93 print(42, ' ', cast(byte)12, ' ', user, ' ', cast(short)1445, " foo\n"); | |
|
215
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
94 |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
95 print("International:\n"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
96 print('æ','ø','å','\n'); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
97 print('Æ','Ø','Å','\n'); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
98 print("rød grød med fløde\n"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
99 print("Heiße\n"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
100 |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
101 print("TLAs:\n"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
102 TLA tla1 = TLA("FBI"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
103 TLA tla2 = TLA("CIA"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
104 TLA tla3 = TLA("TLA"); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
105 print(tla1); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
106 print(tla2); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
107 print(tla3, '\n'); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
108 print(tla1, tla2, tla3, '\n'); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
109 print(TLA("FBI"), TLA("CIA"), TLA("TLA"), '\n'); |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
110 |
|
a58d8f4b84df
[svn r231] Changed: warnings are no longer treated as an error.
lindquist
parents:
214
diff
changeset
|
111 print("Done!\n"); |
| 214 | 112 } |
| 113 | |
| 114 private void* get_va_arg(TypeInfo ti, ref void* vp) | |
| 115 { | |
| 116 auto tisize = ti.tsize; | |
| 117 assert(tisize); | |
| 118 size_t size = tisize > size_t.sizeof ? size_t.sizeof : tisize; | |
| 119 void* vptmp = cast(void*)((cast(size_t)vp + size - 1) & ~(size - 1)); | |
| 120 vp = vptmp + tisize; | |
| 121 return vptmp; | |
| 122 } | |
| 123 | |
| 124 void print(TypeInfo ti, void* arg) | |
| 125 { | |
| 126 if (ti == typeid(byte)) | |
| 127 printf("%d", *cast(byte*)arg); | |
| 128 else if (ti == typeid(short)) | |
| 129 printf("%d", *cast(short*)arg); | |
| 130 else if (ti == typeid(int)) | |
| 131 printf("%d", *cast(int*)arg); | |
| 132 else if (ti == typeid(long)) | |
| 133 printf("%lld", *cast(long*)arg); | |
| 134 | |
| 135 else if (ti == typeid(ubyte)) | |
| 136 printf("%u", *cast(ubyte*)arg); | |
| 137 else if (ti == typeid(ushort)) | |
| 138 printf("%u", *cast(ushort*)arg); | |
| 139 else if (ti == typeid(uint)) | |
| 140 printf("%u", *cast(uint*)arg); | |
| 141 else if (ti == typeid(ulong)) | |
| 142 printf("%llu", *cast(ulong*)arg); | |
| 143 | |
| 144 else if (ti == typeid(float)) | |
| 145 printf("%f", *cast(float*)arg); | |
| 146 else if (ti == typeid(double)) | |
| 147 printf("%f", *cast(double*)arg); | |
| 148 else if (ti == typeid(real)) // FIXME: 80bit? | |
| 149 printf("%f", *cast(real*)arg); | |
| 150 | |
| 151 else if (ti == typeid(char)) | |
| 152 printf("%.*s", 1, arg); | |
| 153 else if (ti == typeid(wchar)) | |
| 154 printf("%.*s", 2, arg); | |
| 155 else if (ti == typeid(dchar)) | |
| 156 printf("%.*s", 4, arg); | |
| 157 | |
| 158 else if (ti == typeid(char[])) | |
| 159 { | |
| 160 char[] str = *cast(char[]*)arg; | |
| 161 printf("%.*s", str.length, str.ptr); | |
| 162 } | |
| 163 else if (ti == typeid(wchar[])) | |
| 164 { | |
| 165 wchar[] str = *cast(wchar[]*)arg; | |
| 166 printf("%.*s", str.length*2, str.ptr); | |
| 167 } | |
| 168 else if (ti == typeid(dchar[])) | |
| 169 { | |
| 170 dchar[] str = *cast(dchar[]*)arg; | |
| 171 printf("%.*s", str.length*4, str.ptr); | |
| 172 } | |
| 173 | |
| 174 else if (auto pti = cast(TypeInfo_Pointer)ti) | |
| 175 { | |
| 176 printf("%p", *cast(void**)arg); | |
| 177 } | |
| 178 | |
| 179 else if (auto sti = cast(TypeInfo_Struct)ti) | |
| 180 { | |
| 181 if (sti.xtoString !is null) | |
| 182 { | |
| 183 char[] str = sti.xtoString(arg); | |
| 184 printf("%.*s", str.length, str.ptr); | |
| 185 } | |
| 186 else | |
| 187 { | |
| 188 char[] str = sti.toString(); | |
| 189 printf("%.*s", str.length, str.ptr); | |
| 190 } | |
| 191 } | |
| 192 | |
| 193 else if (auto ati = cast(TypeInfo_Array)ti) | |
| 194 { | |
| 195 auto tnext = ati.next; | |
| 196 size_t len = *cast(size_t*)arg; | |
| 197 void* ptr = *(cast(void**)arg + 1); | |
| 198 printf("["); | |
| 199 for(auto i=0; i<len; ++i) | |
| 200 { | |
| 201 print(tnext, get_va_arg(tnext, ptr)); | |
| 202 if (i < len-1) | |
| 203 printf(","); | |
| 204 } | |
| 205 printf("]"); | |
| 206 } | |
| 207 | |
| 208 else if (auto cti = cast(TypeInfo_Class)ti) | |
| 209 { | |
| 210 auto o = *cast(Object*)arg; | |
| 211 char[] str = o.toString(); | |
| 212 printf("%.*s", str.length, str.ptr); | |
| 213 } | |
| 214 | |
| 215 // static arrays are converted to dynamic arrays when passed to variadic functions | |
| 216 else if (auto sati = cast(TypeInfo_StaticArray)ti) | |
| 217 { | |
| 218 assert(0, "static arrays not supported"); | |
| 219 } | |
| 220 | |
| 221 else if (auto aati = cast(TypeInfo_AssociativeArray)ti) | |
| 222 { | |
| 223 assert(0, "associative array not supported"); | |
| 224 } | |
| 225 | |
| 226 else | |
| 227 { | |
| 228 char[] str = ti.toString(); | |
| 229 printf("typeinfo: %.*s\n", str.length, str.ptr); | |
| 230 str = ti.classinfo.name; | |
| 231 printf("typeinfo.classinfo: %.*s\n", str.length, str.ptr); | |
| 232 assert(0, "unsupported type ^"); | |
| 233 } | |
| 234 } | |
| 235 | |
| 236 void print(...) | |
| 237 { | |
| 238 void* argptr = _argptr; | |
| 239 assert(argptr); | |
| 240 | |
| 241 foreach(i,ti; _arguments) | |
| 242 { | |
| 243 void* arg = get_va_arg(ti, argptr); | |
| 244 assert(arg); | |
| 245 print(ti, arg); | |
| 246 } | |
| 247 } |