Mercurial > projects > ldc
annotate tango/tango/text/convert/Layout.d @ 163:a8cd9bc1021a trunk
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
| author | lindquist |
|---|---|
| date | Mon, 05 May 2008 07:36:29 +0200 |
| parents | a27941d00351 |
| children | 7816aafeea3c |
| rev | line source |
|---|---|
| 132 | 1 /******************************************************************************* |
| 2 | |
| 3 copyright: Copyright (c) 2005 Kris. All rights reserved | |
| 4 | |
| 5 license: BSD style: $(LICENSE) | |
| 6 | |
| 7 version: Initial release: 2005 | |
| 8 | |
| 9 author: Kris | |
| 10 | |
| 11 This module provides a general-purpose formatting system to | |
| 12 convert values to text suitable for display. There is support | |
| 13 for alignment, justification, and common format specifiers for | |
| 14 numbers. | |
| 15 | |
| 16 Layout can be customized via configuring various handlers and | |
| 17 associated meta-date. This is utilized to plug in text.locale | |
| 18 for handling custom formats, date/time and culture-specific | |
| 19 conversions. | |
| 20 | |
| 21 The format notation is influenced by that used by the .NET | |
| 22 and ICU frameworks, rather than C-style printf or D-style | |
| 23 writef notation. | |
| 24 | |
| 25 ******************************************************************************/ | |
| 26 | |
| 27 module tango.text.convert.Layout; | |
| 28 | |
| 29 private import tango.core.Exception; | |
| 30 | |
| 31 private import Unicode = tango.text.convert.Utf; | |
| 32 | |
| 33 private import Float = tango.text.convert.Float, | |
| 34 Integer = tango.text.convert.Integer; | |
| 35 | |
| 36 /******************************************************************************* | |
| 37 | |
| 38 Platform issues ... | |
| 39 | |
| 40 *******************************************************************************/ | |
| 41 | |
| 42 version (DigitalMars) | |
| 43 { | |
| 44 alias void* Arg; | |
| 45 alias void* ArgList; | |
| 46 } | |
|
144
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
47 else version(LLVMDC) |
|
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
48 { |
|
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
49 private import tango.core.Vararg; |
|
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
50 alias void* Arg; |
|
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
51 alias va_list ArgList; |
|
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
52 } |
| 132 | 53 else |
| 54 version (X86_64) | |
| 55 { | |
| 56 private import std.stdarg; | |
| 57 alias void* Arg; | |
| 58 alias va_list ArgList; | |
| 59 } | |
| 60 else | |
| 61 { | |
| 62 alias char* Arg; | |
| 63 alias char* ArgList; | |
| 64 } | |
| 65 | |
| 66 /******************************************************************************* | |
| 67 | |
| 68 Contains methods for replacing format items in a string with string | |
| 69 equivalents of each argument. | |
| 70 | |
| 71 *******************************************************************************/ | |
| 72 | |
| 73 class Layout(T) | |
| 74 { | |
| 75 public alias convert opCall; | |
| 76 public alias uint delegate (T[]) Sink; | |
| 77 | |
| 78 /********************************************************************** | |
| 79 | |
| 80 **********************************************************************/ | |
| 81 | |
| 82 public final T[] sprint (T[] result, T[] formatStr, ...) | |
| 83 { | |
| 84 return vprint (result, formatStr, _arguments, _argptr); | |
| 85 } | |
| 86 | |
| 87 /********************************************************************** | |
| 88 | |
| 89 **********************************************************************/ | |
| 90 | |
| 91 public final T[] vprint (T[] result, T[] formatStr, TypeInfo[] arguments, ArgList args) | |
| 92 { | |
| 93 T* p = result.ptr; | |
| 94 | |
| 95 uint sink (T[] s) | |
| 96 { | |
| 97 int len = s.length; | |
| 98 if (len < (result.ptr + result.length) - p) | |
| 99 { | |
| 100 p [0..len] = s; | |
| 101 p += len; | |
| 102 } | |
| 103 else | |
| 104 error ("Layout.vprint :: output buffer is full"); | |
| 105 return len; | |
| 106 } | |
| 107 | |
| 108 convert (&sink, arguments, args, formatStr); | |
| 109 return result [0 .. p-result.ptr]; | |
| 110 } | |
| 111 | |
| 112 /********************************************************************** | |
| 113 | |
| 114 Replaces the _format item in a string with the string | |
| 115 equivalent of each argument. | |
| 116 | |
| 117 Params: | |
| 118 formatStr = A string containing _format items. | |
| 119 args = A list of arguments. | |
| 120 | |
| 121 Returns: A copy of formatStr in which the items have been | |
| 122 replaced by the string equivalent of the arguments. | |
| 123 | |
| 124 Remarks: The formatStr parameter is embedded with _format | |
| 125 items of the form: $(BR)$(BR) | |
| 126 {index[,alignment][:_format-string]}$(BR)$(BR) | |
| 127 $(UL $(LI index $(BR) | |
| 128 An integer indicating the element in a list to _format.) | |
| 129 $(LI alignment $(BR) | |
| 130 An optional integer indicating the minimum width. The | |
| 131 result is padded with spaces if the length of the value | |
| 132 is less than alignment.) | |
| 133 $(LI _format-string $(BR) | |
| 134 An optional string of formatting codes.) | |
| 135 )$(BR) | |
| 136 | |
| 137 The leading and trailing braces are required. To include a | |
| 138 literal brace character, use two leading or trailing brace | |
| 139 characters.$(BR)$(BR) | |
| 140 If formatStr is "{0} bottles of beer on the wall" and the | |
| 141 argument is an int with the value of 99, the return value | |
| 142 will be:$(BR) "99 bottles of beer on the wall". | |
| 143 | |
| 144 **********************************************************************/ | |
| 145 | |
| 146 public final T[] convert (T[] formatStr, ...) | |
| 147 { | |
| 148 return convert (_arguments, _argptr, formatStr); | |
| 149 } | |
| 150 | |
| 151 /********************************************************************** | |
| 152 | |
| 153 **********************************************************************/ | |
| 154 | |
| 155 public final uint convert (Sink sink, T[] formatStr, ...) | |
| 156 { | |
| 157 return convert (sink, _arguments, _argptr, formatStr); | |
| 158 } | |
| 159 | |
| 160 /********************************************************************** | |
| 161 | |
| 162 **********************************************************************/ | |
| 163 | |
| 164 public final T[] convert (TypeInfo[] arguments, ArgList args, T[] formatStr) | |
| 165 { | |
| 166 T[] output; | |
| 167 | |
| 168 uint sink (T[] s) | |
| 169 { | |
| 170 output ~= s; | |
| 171 return s.length; | |
| 172 } | |
| 173 | |
| 174 convert (&sink, arguments, args, formatStr); | |
| 175 return output; | |
| 176 } | |
| 177 | |
| 178 /********************************************************************** | |
| 179 | |
| 180 **********************************************************************/ | |
| 181 | |
| 182 public final T[] convertOne (T[] result, TypeInfo ti, Arg arg) | |
| 183 { | |
| 184 return munge (result, null, ti, arg); | |
| 185 } | |
| 186 | |
| 187 /********************************************************************** | |
| 188 | |
| 189 **********************************************************************/ | |
| 190 | |
| 191 public final uint convert (Sink sink, TypeInfo[] arguments, ArgList args, T[] formatStr) | |
| 192 { | |
| 193 assert (formatStr, "null format specifier"); | |
| 194 assert (arguments.length < 64, "too many args in Layout.convert"); | |
| 195 | |
| 196 version (X86_64) | |
| 197 { | |
| 198 Arg[64] arglist = void; | |
| 199 int[64] intargs = void; | |
| 200 byte[64] byteargs = void; | |
| 201 long[64] longargs = void; | |
| 202 short[64] shortargs = void; | |
| 203 void[][64] voidargs = void; | |
| 204 real[64] realargs = void; | |
| 205 float[64] floatargs = void; | |
| 206 double[64] doubleargs = void; | |
| 207 | |
| 208 foreach (i, arg; arguments) | |
| 209 { | |
| 210 arglist[i] = args.ptr; | |
| 211 /* Since floating point types don't live on | |
| 212 * the stack, they must be accessed by the | |
| 213 * correct type. */ | |
| 214 bool converted = false; | |
| 215 switch (arg.classinfo.name[9]) | |
| 216 { | |
| 217 case TypeCode.FLOAT: | |
| 218 floatargs[i] = va_arg!(float)(args); | |
| 219 arglist[i] = &floatargs[i]; | |
| 220 converted = true; | |
| 221 break; | |
| 222 | |
| 223 case TypeCode.DOUBLE: | |
| 224 doubleargs[i] = va_arg!(double)(args); | |
| 225 arglist[i] = &doubleargs[i]; | |
| 226 converted = true; | |
| 227 break; | |
| 228 | |
| 229 case TypeCode.REAL: | |
| 230 realargs[i] = va_arg!(real)(args); | |
| 231 arglist[i] = &realargs[i]; | |
| 232 converted = true; | |
| 233 break; | |
| 234 | |
| 235 default: | |
| 236 break; | |
| 237 } | |
| 238 if (! converted) | |
| 239 { | |
| 240 switch (arg.tsize) | |
| 241 { | |
| 242 case 1: | |
| 243 byteargs[i] = va_arg!(byte)(args); | |
| 244 arglist[i] = &byteargs[i]; | |
| 245 break; | |
| 246 case 2: | |
| 247 shortargs[i] = va_arg!(short)(args); | |
| 248 arglist[i] = &shortargs[i]; | |
| 249 break; | |
| 250 case 4: | |
| 251 intargs[i] = va_arg!(int)(args); | |
| 252 arglist[i] = &intargs[i]; | |
| 253 break; | |
| 254 case 8: | |
| 255 longargs[i] = va_arg!(long)(args); | |
| 256 arglist[i] = &longargs[i]; | |
| 257 break; | |
| 258 case 16: | |
| 259 voidargs[i] = va_arg!(void[])(args); | |
| 260 arglist[i] = &voidargs[i]; | |
| 261 break; | |
| 262 default: | |
| 263 assert (false, "Unknown size: " ~ Integer.toString (arg.tsize)); | |
| 264 } | |
| 265 } | |
| 266 } | |
| 267 } | |
|
163
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
268 else version (LLVMDC) |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
269 { |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
270 static va_list get_va_arg(TypeInfo ti, ref va_list vp) |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
271 { |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
272 auto tisize = ti.tsize; |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
273 size_t size = tisize > size_t.sizeof ? size_t.sizeof : tisize; |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
274 va_list vptmp = cast(va_list)((cast(size_t)vp + size - 1) & ~(size - 1)); |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
275 vp = vptmp + tisize; |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
276 return vptmp; |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
277 } |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
278 |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
279 Arg[64] arglist = void; |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
280 foreach (i, arg; arguments) |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
281 { |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
282 arglist[i] = get_va_arg(arg, args); |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
283 } |
|
a8cd9bc1021a
[svn r179] lots and lots of fixes, much more of tango now compiles/works.
lindquist
parents:
144
diff
changeset
|
284 } |
| 132 | 285 else |
| 286 { | |
| 287 Arg[64] arglist = void; | |
| 288 foreach (i, arg; arguments) | |
| 289 { | |
| 290 arglist[i] = args; | |
| 291 args += (arg.tsize + int.sizeof - 1) & ~ (int.sizeof - 1); | |
| 292 } | |
| 293 } | |
| 294 return parse (formatStr, arguments, arglist, sink); | |
| 295 } | |
| 296 | |
| 297 /********************************************************************** | |
| 298 | |
| 299 Parse the format-string, emitting formatted args and text | |
| 300 fragments as we go. | |
| 301 | |
| 302 **********************************************************************/ | |
| 303 | |
| 304 private uint parse (T[] layout, TypeInfo[] ti, Arg[] args, Sink sink) | |
| 305 { | |
| 306 T[384] result = void; | |
| 307 int length, nextIndex; | |
| 308 | |
| 309 | |
| 310 T* s = layout.ptr; | |
| 311 T* fragment = s; | |
| 312 T* end = s + layout.length; | |
| 313 | |
| 314 while (true) | |
| 315 { | |
| 316 while (s < end && *s != '{') | |
| 317 ++s; | |
| 318 | |
| 319 // emit fragment | |
| 320 length += sink (fragment [0 .. s - fragment]); | |
| 321 | |
| 322 // all done? | |
| 323 if (s is end) | |
| 324 break; | |
| 325 | |
| 326 // check for "{{" and skip if so | |
| 327 if (*++s is '{') | |
| 328 { | |
| 329 fragment = s++; | |
| 330 continue; | |
| 331 } | |
| 332 | |
| 333 int index = 0; | |
| 334 bool indexed = false; | |
| 335 | |
| 336 // extract index | |
| 337 while (*s >= '0' && *s <= '9') | |
| 338 { | |
| 339 index = index * 10 + *s++ -'0'; | |
| 340 indexed = true; | |
| 341 } | |
| 342 | |
| 343 // skip spaces | |
| 344 while (s < end && *s is ' ') | |
| 345 ++s; | |
| 346 | |
| 347 int width; | |
| 348 bool leftAlign; | |
| 349 | |
| 350 // has width? | |
| 351 if (*s is ',') | |
| 352 { | |
| 353 while (++s < end && *s is ' ') {} | |
| 354 | |
| 355 if (*s is '-') | |
| 356 { | |
| 357 leftAlign = true; | |
| 358 ++s; | |
| 359 } | |
| 360 | |
| 361 // get width | |
| 362 while (*s >= '0' && *s <= '9') | |
| 363 width = width * 10 + *s++ -'0'; | |
| 364 | |
| 365 // skip spaces | |
| 366 while (s < end && *s is ' ') | |
| 367 ++s; | |
| 368 } | |
| 369 | |
| 370 T[] format; | |
| 371 | |
| 372 // has a format string? | |
| 373 if (*s is ':' && s < end) | |
| 374 { | |
| 375 T* fs = ++s; | |
| 376 | |
| 377 // eat everything up to closing brace | |
| 378 while (s < end && *s != '}') | |
| 379 ++s; | |
| 380 format = fs [0 .. s - fs]; | |
| 381 } | |
| 382 | |
| 383 // insist on a closing brace | |
| 384 if (*s != '}') | |
| 385 { | |
| 386 length += sink ("{missing or misplaced '}'}"); | |
| 387 continue; | |
| 388 } | |
| 389 | |
| 390 // check for default index & set next default counter | |
| 391 if (! indexed) | |
| 392 index = nextIndex; | |
| 393 nextIndex = index + 1; | |
| 394 | |
| 395 // next char is start of following fragment | |
| 396 fragment = ++s; | |
| 397 | |
| 398 // handle alignment | |
| 399 void process (T[] str) | |
| 400 { | |
| 401 int padding = width - str.length; | |
| 402 | |
| 403 // if not left aligned, pad out with spaces | |
| 404 if (! leftAlign && padding > 0) | |
| 405 length += spaces (sink, padding); | |
| 406 | |
| 407 // emit formatted argument | |
| 408 length += sink (str); | |
| 409 | |
| 410 // finally, pad out on right | |
| 411 if (leftAlign && padding > 0) | |
| 412 length += spaces (sink, padding); | |
| 413 } | |
| 414 | |
| 415 // an astonishing number of typehacks needed to handle arrays :( | |
| 416 void processElement (TypeInfo _ti, Arg _arg) | |
| 417 { | |
| 418 if (_ti.classinfo.name.length is 20 && _ti.classinfo.name[9..$] == "StaticArray" ) | |
| 419 { | |
| 420 auto tiStat = cast(TypeInfo_StaticArray)_ti; | |
| 421 auto p = _arg; | |
| 422 length += sink ("[ "); | |
| 423 for (int i = 0; i < tiStat.len; i++) | |
| 424 { | |
| 425 if (p !is _arg ) | |
| 426 length += sink (", "); | |
| 427 processElement (tiStat.value, p); | |
| 428 p += tiStat.tsize; | |
| 429 } | |
| 430 length += sink (" ]"); | |
| 431 } | |
| 432 else | |
| 433 if (_ti.classinfo.name.length is 25 && _ti.classinfo.name[9..$] == "AssociativeArray") | |
| 434 { | |
| 435 auto tiAsso = cast(TypeInfo_AssociativeArray)_ti; | |
| 436 auto tiKey = tiAsso.key; | |
| 437 auto tiVal = tiAsso.next(); | |
| 438 // the knowledge of the internal k/v storage is used | |
| 439 // so this might break if, that internal storage changes | |
| 440 alias ubyte AV; // any type for key, value might be ok, the sizes are corrected later | |
| 441 alias ubyte AK; | |
| 442 auto aa = *cast(AV[AK]*) _arg; | |
| 443 | |
| 444 length += sink ("{ "); | |
| 445 bool first = true; | |
| 446 | |
| 447 int roundUp (int sz) | |
| 448 { | |
| 449 return (sz + (void*).sizeof -1) & ~((void*).sizeof - 1); | |
| 450 } | |
| 451 | |
| 452 foreach (inout v; aa) | |
| 453 { | |
| 454 // the key is befor the value, so substrace with fixed key size from above | |
| 455 auto pk = cast(Arg)( &v - roundUp(AK.sizeof)); | |
| 456 // now the real value pos is plus the real key size | |
| 457 auto pv = cast(Arg)(pk + roundUp(tiKey.tsize())); | |
| 458 | |
| 459 if (!first) | |
| 460 length += sink (", "); | |
| 461 processElement (tiKey, pk); | |
| 462 length += sink ("=>"); | |
| 463 processElement (tiVal, pv); | |
| 464 first = false; | |
| 465 } | |
| 466 length += sink (" }"); | |
| 467 } | |
| 468 else | |
| 469 if (_ti.classinfo.name[9] is TypeCode.ARRAY && | |
| 470 (_ti !is typeid(char[])) && | |
| 471 (_ti !is typeid(wchar[])) && | |
| 472 (_ti !is typeid(dchar[]))) | |
| 473 { | |
| 474 // for all non string array types (including char[][]) | |
| 475 auto arr = *cast(void[]*)_arg; | |
| 476 auto len = arr.length; | |
| 477 auto ptr = cast(Arg) arr.ptr; | |
| 478 auto elTi = _ti.next(); | |
| 479 auto size = elTi.tsize(); | |
| 480 length += sink ("[ "); | |
| 481 while (len > 0) | |
| 482 { | |
| 483 if (ptr !is arr.ptr) | |
| 484 length += sink (", "); | |
| 485 processElement (elTi, ptr); | |
| 486 len -= 1; | |
| 487 ptr += size; | |
| 488 } | |
| 489 length += sink (" ]"); | |
| 490 } | |
| 491 else | |
| 492 // the standard processing | |
| 493 process (munge(result, format, _ti, _arg)); | |
| 494 } | |
| 495 | |
| 496 | |
| 497 // process this argument | |
| 498 if (index >= ti.length) | |
| 499 process ("{invalid index}"); | |
| 500 else | |
| 501 processElement (ti[index], args[index]); | |
| 502 } | |
| 503 return length; | |
| 504 } | |
| 505 | |
| 506 /********************************************************************** | |
| 507 | |
| 508 **********************************************************************/ | |
| 509 | |
| 510 private void error (char[] msg) | |
| 511 { | |
| 512 throw new IllegalArgumentException (msg); | |
| 513 } | |
| 514 | |
| 515 /********************************************************************** | |
| 516 | |
| 517 **********************************************************************/ | |
| 518 | |
| 519 private uint spaces (Sink sink, int count) | |
| 520 { | |
| 521 uint ret; | |
| 522 | |
| 523 static const T[32] Spaces = ' '; | |
| 524 while (count > Spaces.length) | |
| 525 { | |
| 526 ret += sink (Spaces); | |
| 527 count -= Spaces.length; | |
| 528 } | |
| 529 return ret + sink (Spaces[0..count]); | |
| 530 } | |
| 531 | |
| 532 /*********************************************************************** | |
| 533 | |
| 534 ***********************************************************************/ | |
| 535 | |
| 536 private T[] munge (T[] result, T[] format, TypeInfo type, Arg p) | |
| 537 { | |
| 538 switch (type.classinfo.name[9]) | |
| 539 { | |
| 540 case TypeCode.ARRAY: | |
| 541 if (type is typeid(char[])) | |
| 542 return fromUtf8 (*cast(char[]*) p, result); | |
| 543 | |
| 544 if (type is typeid(wchar[])) | |
| 545 return fromUtf16 (*cast(wchar[]*) p, result); | |
| 546 | |
| 547 if (type is typeid(dchar[])) | |
| 548 return fromUtf32 (*cast(dchar[]*) p, result); | |
| 549 | |
| 550 return fromUtf8 (type.toString, result); | |
| 551 | |
| 552 case TypeCode.BOOL: | |
| 553 static T[] t = "true"; | |
| 554 static T[] f = "false"; | |
| 555 return (*cast(bool*) p) ? t : f; | |
| 556 | |
| 557 case TypeCode.BYTE: | |
| 558 return integer (result, *cast(byte*) p, format); | |
| 559 | |
| 560 case TypeCode.UBYTE: | |
| 561 return integer (result, *cast(ubyte*) p, format, 'u'); | |
| 562 | |
| 563 case TypeCode.SHORT: | |
| 564 return integer (result, *cast(short*) p, format); | |
| 565 | |
| 566 case TypeCode.USHORT: | |
| 567 return integer (result, *cast(ushort*) p, format, 'u'); | |
| 568 | |
| 569 case TypeCode.INT: | |
| 570 return integer (result, *cast(int*) p, format); | |
| 571 | |
| 572 case TypeCode.UINT: | |
| 573 return integer (result, *cast(uint*) p, format, 'u'); | |
| 574 | |
| 575 case TypeCode.ULONG: | |
| 576 return integer (result, *cast(long*) p, format, 'u'); | |
| 577 | |
| 578 case TypeCode.LONG: | |
| 579 return integer (result, *cast(long*) p, format); | |
| 580 | |
| 581 case TypeCode.FLOAT: | |
| 582 return floater (result, *cast(float*) p, format); | |
| 583 | |
| 584 case TypeCode.DOUBLE: | |
| 585 return floater (result, *cast(double*) p, format); | |
| 586 | |
| 587 case TypeCode.REAL: | |
| 588 return floater (result, *cast(real*) p, format); | |
| 589 | |
| 590 case TypeCode.CHAR: | |
| 591 return fromUtf8 ((cast(char*) p)[0..1], result); | |
| 592 | |
| 593 case TypeCode.WCHAR: | |
| 594 return fromUtf16 ((cast(wchar*) p)[0..1], result); | |
| 595 | |
| 596 case TypeCode.DCHAR: | |
| 597 return fromUtf32 ((cast(dchar*) p)[0..1], result); | |
| 598 | |
| 599 case TypeCode.POINTER: | |
| 600 return integer (result, *cast(size_t*) p, format, 'x'); | |
| 601 | |
| 602 case TypeCode.CLASS: | |
| 603 auto c = *cast(Object*) p; | |
| 604 if (c) | |
| 605 return fromUtf8 (c.toString, result); | |
| 606 break; | |
| 607 | |
| 608 case TypeCode.STRUCT: | |
| 609 auto s = cast(TypeInfo_Struct) type; | |
| 610 if (s.xtoString) | |
| 611 return fromUtf8 (s.xtoString(p), result); | |
| 612 goto default; | |
| 613 | |
| 614 case TypeCode.INTERFACE: | |
| 615 auto x = *cast(void**) p; | |
| 616 if (x) | |
| 617 { | |
| 618 auto pi = **cast(Interface ***) x; | |
| 619 auto o = cast(Object)(*cast(void**)p - pi.offset); | |
| 620 return fromUtf8 (o.toString, result); | |
| 621 } | |
| 622 break; | |
| 623 | |
| 624 case TypeCode.ENUM: | |
| 625 return munge (result, format, (cast(TypeInfo_Enum) type).base, p); | |
| 626 | |
| 627 case TypeCode.TYPEDEF: | |
| 628 return munge (result, format, (cast(TypeInfo_Typedef) type).base, p); | |
| 629 | |
| 630 default: | |
| 631 return unknown (result, format, type, p); | |
| 632 } | |
| 633 | |
| 634 return cast(T[]) "{null}"; | |
| 635 } | |
| 636 | |
| 637 /********************************************************************** | |
| 638 | |
| 639 **********************************************************************/ | |
| 640 | |
| 641 protected T[] unknown (T[] result, T[] format, TypeInfo type, Arg p) | |
| 642 { | |
|
144
a27941d00351
[svn r149] fixed: a bunch of D-style variadics problems.
lindquist
parents:
132
diff
changeset
|
643 return cast(T[])("{unhandled argument type: " ~ fromUtf8 (type.toString, result) ~ "}"); |
| 132 | 644 } |
| 645 | |
| 646 /********************************************************************** | |
| 647 | |
| 648 **********************************************************************/ | |
| 649 | |
| 650 protected T[] integer (T[] output, long v, T[] format, T style = 'd') | |
| 651 { | |
| 652 Integer.Flags flags; | |
| 653 uint width = output.length; | |
| 654 | |
| 655 if (parseGeneric (format, width, style)) | |
| 656 if (width <= output.length) | |
| 657 { | |
| 658 output = output [0 .. width]; | |
| 659 flags |= flags.Zero; | |
| 660 } | |
| 661 return Integer.format (output, v, cast(Integer.Style) style, flags); | |
| 662 } | |
| 663 | |
| 664 /********************************************************************** | |
| 665 | |
| 666 **********************************************************************/ | |
| 667 | |
| 668 protected T[] floater (T[] output, real v, T[] format) | |
| 669 { | |
| 670 T style = 'f'; | |
| 671 uint places = 2; | |
| 672 | |
| 673 parseGeneric (format, places, style); | |
| 674 return Float.format (output, v, places, (style is 'e' || style is 'E') ? 0 : 10); | |
| 675 } | |
| 676 | |
| 677 /********************************************************************** | |
| 678 | |
| 679 **********************************************************************/ | |
| 680 | |
| 681 private bool parseGeneric (T[] format, ref uint width, ref T style) | |
| 682 { | |
| 683 if (format.length) | |
| 684 { | |
| 685 uint number; | |
| 686 auto p = format.ptr; | |
| 687 auto e = p + format.length; | |
| 688 style = *p; | |
| 689 while (++p < e) | |
| 690 if (*p >= '0' && *p <= '9') | |
| 691 number = number * 10 + *p - '0'; | |
| 692 else | |
| 693 break; | |
| 694 | |
| 695 if (p - format.ptr > 1) | |
| 696 { | |
| 697 width = number; | |
| 698 return true; | |
| 699 } | |
| 700 } | |
| 701 return false; | |
| 702 } | |
| 703 | |
| 704 /*********************************************************************** | |
| 705 | |
| 706 ***********************************************************************/ | |
| 707 | |
| 708 private static T[] fromUtf8 (char[] s, T[] scratch) | |
| 709 { | |
| 710 static if (is (T == char)) | |
| 711 return s; | |
| 712 | |
| 713 static if (is (T == wchar)) | |
| 714 return Unicode.toString16 (s, scratch); | |
| 715 | |
| 716 static if (is (T == dchar)) | |
| 717 return Unicode.toString32 (s, scratch); | |
| 718 } | |
| 719 | |
| 720 /*********************************************************************** | |
| 721 | |
| 722 ***********************************************************************/ | |
| 723 | |
| 724 private static T[] fromUtf16 (wchar[] s, T[] scratch) | |
| 725 { | |
| 726 static if (is (T == wchar)) | |
| 727 return s; | |
| 728 | |
| 729 static if (is (T == char)) | |
| 730 return Unicode.toString (s, scratch); | |
| 731 | |
| 732 static if (is (T == dchar)) | |
| 733 return Unicode.toString32 (s, scratch); | |
| 734 } | |
| 735 | |
| 736 /*********************************************************************** | |
| 737 | |
| 738 ***********************************************************************/ | |
| 739 | |
| 740 private static T[] fromUtf32 (dchar[] s, T[] scratch) | |
| 741 { | |
| 742 static if (is (T == dchar)) | |
| 743 return s; | |
| 744 | |
| 745 static if (is (T == char)) | |
| 746 return Unicode.toString (s, scratch); | |
| 747 | |
| 748 static if (is (T == wchar)) | |
| 749 return Unicode.toString16 (s, scratch); | |
| 750 } | |
| 751 } | |
| 752 | |
| 753 | |
| 754 /******************************************************************************* | |
| 755 | |
| 756 *******************************************************************************/ | |
| 757 | |
| 758 private enum TypeCode | |
| 759 { | |
| 760 EMPTY = 0, | |
| 761 BOOL = 'b', | |
| 762 UBYTE = 'h', | |
| 763 BYTE = 'g', | |
| 764 USHORT = 't', | |
| 765 SHORT = 's', | |
| 766 UINT = 'k', | |
| 767 INT = 'i', | |
| 768 ULONG = 'm', | |
| 769 LONG = 'l', | |
| 770 REAL = 'e', | |
| 771 FLOAT = 'f', | |
| 772 DOUBLE = 'd', | |
| 773 CHAR = 'a', | |
| 774 WCHAR = 'u', | |
| 775 DCHAR = 'w', | |
| 776 ARRAY = 'A', | |
| 777 CLASS = 'C', | |
| 778 STRUCT = 'S', | |
| 779 ENUM = 'E', | |
| 780 POINTER = 'P', | |
| 781 TYPEDEF = 'T', | |
| 782 INTERFACE = 'I', | |
| 783 } | |
| 784 | |
| 785 | |
| 786 | |
| 787 /******************************************************************************* | |
| 788 | |
| 789 *******************************************************************************/ | |
| 790 | |
| 791 debug (UnitTest) | |
| 792 { | |
| 793 //void main() {} | |
| 794 | |
| 795 unittest | |
| 796 { | |
| 797 auto Formatter = new Layout!(char); | |
| 798 | |
| 799 assert( Formatter( "abc" ) == "abc" ); | |
| 800 assert( Formatter( "{0}", 1 ) == "1" ); | |
| 801 assert( Formatter( "{0}", -1 ) == "-1" ); | |
| 802 | |
| 803 assert( Formatter( "{}", 1 ) == "1" ); | |
| 804 assert( Formatter( "{} {}", 1, 2) == "1 2" ); | |
| 805 assert( Formatter( "{} {0} {}", 1, 3) == "1 1 3" ); | |
| 806 assert( Formatter( "{} {0} {} {}", 1, 3) == "1 1 3 {invalid index}" ); | |
| 807 assert( Formatter( "{} {0} {} {:x}", 1, 3) == "1 1 3 {invalid index}" ); | |
| 808 | |
| 809 assert( Formatter( "{0}", true ) == "true" , Formatter( "{0}", true )); | |
| 810 assert( Formatter( "{0}", false ) == "false" ); | |
| 811 | |
| 812 assert( Formatter( "{0}", cast(byte)-128 ) == "-128" ); | |
| 813 assert( Formatter( "{0}", cast(byte)127 ) == "127" ); | |
| 814 assert( Formatter( "{0}", cast(ubyte)255 ) == "255" ); | |
| 815 | |
| 816 assert( Formatter( "{0}", cast(short)-32768 ) == "-32768" ); | |
| 817 assert( Formatter( "{0}", cast(short)32767 ) == "32767" ); | |
| 818 assert( Formatter( "{0}", cast(ushort)65535 ) == "65535" ); | |
| 819 // assert( Formatter( "{0:x4}", cast(ushort)0xafe ) == "0afe" ); | |
| 820 // assert( Formatter( "{0:X4}", cast(ushort)0xafe ) == "0AFE" ); | |
| 821 | |
| 822 assert( Formatter( "{0}", -2147483648 ) == "-2147483648" ); | |
| 823 assert( Formatter( "{0}", 2147483647 ) == "2147483647" ); | |
| 824 assert( Formatter( "{0}", 4294967295 ) == "4294967295" ); | |
| 825 // compiler error | |
| 826 assert( Formatter( "{0}", -9223372036854775807L) == "-9223372036854775807" ); | |
| 827 assert( Formatter( "{0}", 0x8000_0000_0000_0000L) == "9223372036854775808" ); | |
| 828 assert( Formatter( "{0}", 9223372036854775807L ) == "9223372036854775807" ); | |
| 829 // Error: prints -1 | |
| 830 // assert( Formatter( "{0}", 18446744073709551615UL ) == "18446744073709551615" ); | |
| 831 | |
| 832 assert( Formatter( "{0}", "s" ) == "s" ); | |
| 833 // fragments before and after | |
| 834 assert( Formatter( "d{0}d", "s" ) == "dsd" ); | |
| 835 assert( Formatter( "d{0}d", "1234567890" ) == "d1234567890d" ); | |
| 836 | |
| 837 // brace escaping | |
| 838 assert( Formatter( "d{0}d", "<string>" ) == "d<string>d"); | |
| 839 assert( Formatter( "d{{0}d", "<string>" ) == "d{0}d"); | |
| 840 assert( Formatter( "d{{{0}d", "<string>" ) == "d{<string>d"); | |
| 841 assert( Formatter( "d{0}}d", "<string>" ) == "d<string>}d"); | |
| 842 | |
| 843 assert( Formatter( "{0:x}", 0xafe0000 ) == "afe0000" ); | |
| 844 // todo: is it correct to print 7 instead of 6 chars??? | |
| 845 assert( Formatter( "{0:x7}", 0xafe0000 ) == "afe0000" ); | |
| 846 assert( Formatter( "{0:x8}", 0xafe0000 ) == "0afe0000" ); | |
| 847 assert( Formatter( "{0:X8}", 0xafe0000 ) == "0AFE0000" ); | |
| 848 assert( Formatter( "{0:X9}", 0xafe0000 ) == "00AFE0000" ); | |
| 849 assert( Formatter( "{0:X13}", 0xafe0000 ) == "000000AFE0000" ); | |
| 850 assert( Formatter( "{0:x13}", 0xafe0000 ) == "000000afe0000" ); | |
| 851 // decimal width | |
| 852 assert( Formatter( "{0:d6}", 123 ) == "000123" ); | |
| 853 assert( Formatter( "{0,7:d6}", 123 ) == " 000123" ); | |
| 854 assert( Formatter( "{0,-7:d6}", 123 ) == "000123 " ); | |
| 855 | |
| 856 assert( Formatter( "{0:d7}", -123 ) == "-000123" ); | |
| 857 assert( Formatter( "{0,7:d6}", 123 ) == " 000123" ); | |
| 858 assert( Formatter( "{0,7:d7}", -123 ) == "-000123" ); | |
| 859 assert( Formatter( "{0,8:d7}", -123 ) == " -000123" ); | |
| 860 assert( Formatter( "{0,5:d7}", -123 ) == "-000123" ); | |
| 861 | |
| 862 assert( Formatter( "{0:X}", 0xFFFF_FFFF_FFFF_FFFF) == "FFFFFFFFFFFFFFFF" ); | |
| 863 assert( Formatter( "{0:x}", 0xFFFF_FFFF_FFFF_FFFF) == "ffffffffffffffff" ); | |
| 864 assert( Formatter( "{0:x}", 0xFFFF_1234_FFFF_FFFF) == "ffff1234ffffffff" ); | |
| 865 assert( Formatter( "{0:x19}", 0x1234_FFFF_FFFF) == "00000001234ffffffff" ); | |
| 866 // Error: prints -1 | |
| 867 // assert( Formatter( "{0}", 18446744073709551615UL ) == "18446744073709551615" ); | |
| 868 assert( Formatter( "{0}", "s" ) == "s" ); | |
| 869 // fragments before and after | |
| 870 assert( Formatter( "d{0}d", "s" ) == "dsd" ); | |
| 871 | |
| 872 // argument index | |
| 873 assert( Formatter( "a{0}b{1}c{2}", "x", "y", "z" ) == "axbycz" ); | |
| 874 assert( Formatter( "a{2}b{1}c{0}", "x", "y", "z" ) == "azbycx" ); | |
| 875 assert( Formatter( "a{1}b{1}c{1}", "x", "y", "z" ) == "aybycy" ); | |
| 876 | |
| 877 // alignment | |
| 878 // align does not restrict the length | |
| 879 assert( Formatter( "{0,5}", "hellohello" ) == "hellohello" ); | |
| 880 // align fills with spaces | |
| 881 assert( Formatter( "->{0,-10}<-", "hello" ) == "->hello <-" ); | |
| 882 assert( Formatter( "->{0,10}<-", "hello" ) == "-> hello<-" ); | |
| 883 assert( Formatter( "->{0,-10}<-", 12345 ) == "->12345 <-" ); | |
| 884 assert( Formatter( "->{0,10}<-", 12345 ) == "-> 12345<-" ); | |
| 885 | |
| 886 assert( Formatter( "{0:f}", 1.23f ) == "1.23" ); | |
| 887 assert( Formatter( "{0:f4}", 1.23456789L ) == "1.2346" ); | |
| 888 assert( Formatter( "{0:e4}", 0.0001) == "0.1000e-03"); | |
| 889 | |
| 890 int[] a = [ 51, 52, 53, 54, 55 ]; | |
| 891 assert( Formatter( "{}", a ) == "[ 51, 52, 53, 54, 55 ]" ); | |
| 892 assert( Formatter( "{:x}", a ) == "[ 33, 34, 35, 36, 37 ]" ); | |
| 893 assert( Formatter( "{,-4}", a ) == "[ 51 , 52 , 53 , 54 , 55 ]" ); | |
| 894 assert( Formatter( "{,4}", a ) == "[ 51, 52, 53, 54, 55 ]" ); | |
| 895 int[][] b = [ [ 51, 52 ], [ 53, 54, 55 ] ]; | |
| 896 assert( Formatter( "{}", b ) == "[ [ 51, 52 ], [ 53, 54, 55 ] ]" ); | |
| 897 | |
| 898 ushort[3] c = [ cast(ushort)51, 52, 53 ]; | |
| 899 assert( Formatter( "{}", c ) == "[ 51, 52, 53 ]" ); | |
| 900 | |
| 901 ushort[long] d; | |
| 902 d[234] = 2; | |
| 903 d[345] = 3; | |
| 904 assert( Formatter( "{}", d ) == "{ 234=>2, 345=>3 }" ); | |
| 905 | |
| 906 bool[char[]] e; | |
| 907 e[ "key".dup ] = true; | |
| 908 e[ "value".dup ] = false; | |
| 909 assert( Formatter( "{}", e ) == "{ key=>true, value=>false }" ); | |
| 910 | |
| 911 char[][ double ] f; | |
| 912 f[ 1.0 ] = "one".dup; | |
| 913 f[ 3.14 ] = "PI".dup; | |
| 914 assert( Formatter( "{}", f ) == "{ 1.00=>one, 3.14=>PI }" ); | |
| 915 } | |
| 916 } | |
| 917 | |
| 918 | |
| 919 | |
| 920 debug (Layout) | |
| 921 { | |
| 922 import tango.io.Console; | |
| 923 | |
| 924 void main () | |
| 925 { | |
| 926 auto layout = new Layout!(char); | |
| 927 | |
| 928 Cout (layout ("{:d2}", 56)).newline; | |
| 929 Cout (layout ("{:f4}", 0.001)).newline; | |
| 930 Cout (layout ("{:f8}", 3.14159)).newline; | |
| 931 Cout (layout ("{:e20}", 0.001)).newline; | |
| 932 Cout (layout ("{:e4}", 0.0000001)).newline; | |
| 933 Cout (layout ("ptr:{}", &layout)).newline; | |
| 934 | |
| 935 struct S | |
| 936 { | |
| 937 char[] toString () {return "foo";} | |
| 938 } | |
| 939 | |
| 940 S s; | |
| 941 Cout (layout ("struct: {}", s)).newline; | |
| 942 } | |
| 943 } |