Artifact b521ec130c6905475e140145af432ec6a46c0a47:
0000: ef bb bf 2f 2a 2a 0d 0a 20 2a 20 41 75 74 68 6f .../**.. * Autho
0010: 72 73 3a 20 6b 2e 69 6e 61 62 61 0d 0a 20 2a 20 rs: k.inaba.. *
0020: 4c 69 63 65 6e 73 65 3a 20 4e 59 53 4c 20 30 2e License: NYSL 0.
0030: 39 39 38 32 20 68 74 74 70 3a 2f 2f 77 77 77 2e 9982 http://www.
0040: 6b 6d 6f 6e 6f 73 2e 6e 65 74 2f 6e 79 73 6c 2f kmonos.net/nysl/
0050: 0d 0a 20 2a 0d 0a 20 2a 20 43 6f 6d 6d 6f 6e 20 .. *.. * Common
0060: 74 72 69 63 6b 73 20 61 6e 64 20 75 74 69 6c 69 tricks and utili
0070: 74 69 65 73 20 66 6f 72 20 70 72 6f 67 72 61 6d ties for program
0080: 6d 69 6e 67 20 69 6e 20 44 2e 0d 0a 20 2a 2f 0d ming in D... */.
0090: 0a 6d 6f 64 75 6c 65 20 70 6f 6c 65 6d 79 2e 74 .module polemy.t
00a0: 72 69 63 6b 73 3b 0d 0a 73 74 61 74 69 63 20 69 ricks;..static i
00b0: 6d 70 6f 72 74 20 73 74 64 2e 61 72 72 61 79 3b mport std.array;
00c0: 0d 0a 73 74 61 74 69 63 20 69 6d 70 6f 72 74 20 ..static import
00d0: 73 74 64 2e 66 6f 72 6d 61 74 3b 0d 0a 0d 0a 2f std.format;..../
00e0: 2f 2f 20 53 69 6d 70 6c 65 20 57 72 61 70 70 65 // Simple Wrappe
00f0: 72 20 66 6f 72 20 73 74 64 2e 66 6f 72 6d 61 74 r for std.format
0100: 2e 64 6f 46 6f 72 6d 61 74 0d 0a 0d 0a 73 74 72 .doFormat....str
0110: 69 6e 67 20 73 70 72 69 6e 74 66 28 73 74 72 69 ing sprintf(stri
0120: 6e 67 20 66 6d 74 2c 20 54 2e 2e 2e 29 28 54 20 ng fmt, T...)(T
0130: 70 61 72 61 6d 73 29 0d 0a 7b 0d 0a 09 61 75 74 params)..{...aut
0140: 6f 20 77 72 69 74 65 72 20 3d 20 73 74 64 2e 61 o writer = std.a
0150: 72 72 61 79 2e 61 70 70 65 6e 64 65 72 21 73 74 rray.appender!st
0160: 72 69 6e 67 28 29 3b 0d 0a 09 73 74 64 2e 66 6f ring();...std.fo
0170: 72 6d 61 74 2e 66 6f 72 6d 61 74 74 65 64 57 72 rmat.formattedWr
0180: 69 74 65 28 77 72 69 74 65 72 2c 20 66 6d 74 2c ite(writer, fmt,
0190: 20 70 61 72 61 6d 73 29 3b 0d 0a 09 72 65 74 75 params);...retu
01a0: 72 6e 20 77 72 69 74 65 72 2e 64 61 74 61 3b 0d rn writer.data;.
01b0: 0a 7d 0d 0a 0d 0a 75 6e 69 74 74 65 73 74 0d 0a .}....unittest..
01c0: 7b 0d 0a 09 61 73 73 65 72 74 28 20 73 70 72 69 {...assert( spri
01d0: 6e 74 66 21 22 25 73 20 3d 3d 20 25 64 22 28 22 ntf!"%s == %d"("
01e0: 31 2b 32 22 2c 20 33 29 20 3d 3d 20 22 31 2b 32 1+2", 3) == "1+2
01f0: 20 3d 3d 20 33 22 20 29 3b 0d 0a 09 61 73 73 65 == 3" );...asse
0200: 72 74 28 20 73 70 72 69 6e 74 66 21 22 25 73 20 rt( sprintf!"%s
0210: 3d 3d 20 25 30 34 64 22 28 22 31 2b 32 22 2c 20 == %04d"("1+2",
0220: 33 29 20 3d 3d 20 22 31 2b 32 20 3d 3d 20 30 30 3) == "1+2 == 00
0230: 30 33 22 20 29 3b 0d 0a 7d 0d 0a 0d 0a 2f 2f 2f 03" );..}....///
0240: 20 4d 69 78 69 6e 67 2d 69 6e 20 74 68 65 20 62 Mixing-in the b
0250: 65 61 6e 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 ean constructor
0260: 66 6f 72 20 61 20 63 6c 61 73 73 0d 0a 0d 0a 2f for a class..../
0270: 2a 6d 69 78 69 6e 2a 2f 20 74 65 6d 70 6c 61 74 *mixin*/ templat
0280: 65 20 53 69 6d 70 6c 65 43 6f 6e 73 74 72 75 63 e SimpleConstruc
0290: 74 6f 72 28 29 0d 0a 7b 0d 0a 09 73 74 61 74 69 tor()..{...stati
02a0: 63 20 69 66 28 20 69 73 28 74 79 70 65 6f 66 28 c if( is(typeof(
02b0: 73 75 70 65 72 29 20 3d 3d 20 4f 62 6a 65 63 74 super) == Object
02c0: 29 20 7c 7c 20 73 75 70 65 72 2e 74 75 70 6c 65 ) || super.tuple
02d0: 6f 66 2e 6c 65 6e 67 74 68 3d 3d 30 20 29 0d 0a of.length==0 )..
02e0: 09 09 74 68 69 73 28 20 74 79 70 65 6f 66 28 74 ..this( typeof(t
02f0: 68 69 73 2e 74 75 70 6c 65 6f 66 29 20 70 61 72 his.tupleof) par
0300: 61 6d 73 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 ams )....{.....s
0310: 74 61 74 69 63 20 69 66 28 74 68 69 73 2e 74 75 tatic if(this.tu
0320: 70 6c 65 6f 66 2e 6c 65 6e 67 74 68 3e 30 29 0d pleof.length>0).
0330: 0a 09 09 09 09 74 68 69 73 2e 74 75 70 6c 65 6f .....this.tupleo
0340: 66 20 3d 20 70 61 72 61 6d 73 3b 0d 0a 09 09 7d f = params;....}
0350: 0d 0a 09 65 6c 73 65 0d 0a 09 09 2f 2f 20 74 68 ...else....// th
0360: 69 73 20 70 61 72 61 6d 65 74 65 72 20 6c 69 73 is parameter lis
0370: 74 20 69 73 20 6e 6f 74 20 61 6c 77 61 79 73 20 t is not always
0380: 64 65 73 69 72 61 62 6c 65 20 62 75 74 20 73 68 desirable but sh
0390: 6f 75 6c 64 20 77 6f 72 6b 20 66 6f 72 20 6d 61 ould work for ma
03a0: 6e 79 20 63 61 73 65 73 0d 0a 09 09 74 68 69 73 ny cases....this
03b0: 28 20 74 79 70 65 6f 66 28 73 75 70 65 72 2e 74 ( typeof(super.t
03c0: 75 70 6c 65 6f 66 29 20 70 73 2c 20 74 79 70 65 upleof) ps, type
03d0: 6f 66 28 74 68 69 73 2e 74 75 70 6c 65 6f 66 29 of(this.tupleof)
03e0: 20 70 61 72 61 6d 73 20 29 0d 0a 09 09 7b 0d 0a params )....{..
03f0: 09 09 09 73 75 70 65 72 28 70 73 29 3b 0d 0a 09 ...super(ps);...
0400: 09 09 73 74 61 74 69 63 20 69 66 28 74 68 69 73 ..static if(this
0410: 2e 74 75 70 6c 65 6f 66 2e 6c 65 6e 67 74 68 3e .tupleof.length>
0420: 30 29 0d 0a 09 09 09 09 74 68 69 73 2e 74 75 70 0)......this.tup
0430: 6c 65 6f 66 20 3d 20 70 61 72 61 6d 73 3b 0d 0a leof = params;..
0440: 09 09 7d 0d 0a 7d 0d 0a 0d 0a 2f 2f 2f 20 4d 69 ..}..}..../// Mi
0450: 78 69 6e 67 2d 69 6e 20 74 68 65 20 4d 4f 53 54 xing-in the MOST
0460: 2d 44 45 52 49 56 45 44 2d 6d 65 6d 62 65 72 2d -DERIVED-member-
0470: 77 69 73 65 20 63 6f 6d 70 61 72 61 74 6f 72 20 wise comparator
0480: 66 6f 72 20 61 20 63 6c 61 73 73 0d 0a 0d 0a 2f for a class..../
0490: 2a 6d 69 78 69 6e 2a 2f 20 74 65 6d 70 6c 61 74 *mixin*/ templat
04a0: 65 20 53 69 6d 70 6c 65 43 6f 6d 70 61 72 65 28 e SimpleCompare(
04b0: 29 0d 0a 7b 0d 0a 09 6f 76 65 72 72 69 64 65 20 )..{...override
04c0: 62 6f 6f 6c 20 6f 70 45 71 75 61 6c 73 28 4f 62 bool opEquals(Ob
04d0: 6a 65 63 74 20 72 68 73 5f 29 20 63 6f 6e 73 74 ject rhs_) const
04e0: 0d 0a 09 7b 0d 0a 09 09 69 66 28 20 61 75 74 6f ...{....if( auto
04f0: 20 72 68 73 20 3d 20 63 61 73 74 28 74 79 70 65 rhs = cast(type
0500: 6f 66 28 74 68 69 73 29 29 72 68 73 5f 20 29 0d of(this))rhs_ ).
0510: 0a 09 09 7b 0d 0a 09 09 09 66 6f 72 65 61 63 68 ...{.....foreach
0520: 28 69 2c 5f 3b 20 74 68 69 73 2e 74 75 70 6c 65 (i,_; this.tuple
0530: 6f 66 29 0d 0a 09 09 09 09 69 66 28 20 74 68 69 of)......if( thi
0540: 73 2e 74 75 70 6c 65 6f 66 5b 69 5d 20 21 3d 20 s.tupleof[i] !=
0550: 72 68 73 2e 74 75 70 6c 65 6f 66 5b 69 5d 20 29 rhs.tupleof[i] )
0560: 0d 0a 09 09 09 09 09 72 65 74 75 72 6e 20 66 61 .......return fa
0570: 6c 73 65 3b 0d 0a 09 09 09 72 65 74 75 72 6e 20 lse;.....return
0580: 74 72 75 65 3b 0d 0a 09 09 7d 0d 0a 09 09 61 73 true;....}....as
0590: 73 65 72 74 28 66 61 6c 73 65 2c 20 73 70 72 69 sert(false, spri
05a0: 6e 74 66 21 22 43 61 6e 6e 6f 74 20 63 6f 6d 70 ntf!"Cannot comp
05b0: 61 72 65 20 25 73 20 77 69 74 68 20 25 73 22 28 are %s with %s"(
05c0: 74 79 70 65 69 64 28 74 68 69 73 29 2c 20 74 79 typeid(this), ty
05d0: 70 65 69 64 28 72 68 73 5f 29 29 29 3b 0d 0a 09 peid(rhs_)));...
05e0: 7d 0d 0a 0d 0a 09 6f 76 65 72 72 69 64 65 20 68 }.....override h
05f0: 61 73 68 5f 74 20 74 6f 48 61 73 68 28 29 20 63 ash_t toHash() c
0600: 6f 6e 73 74 0d 0a 09 7b 0d 0a 09 09 68 61 73 68 onst...{....hash
0610: 5f 74 20 68 20 3d 20 30 3b 0d 0a 09 09 66 6f 72 _t h = 0;....for
0620: 65 61 63 68 28 6d 65 6d 3b 20 74 68 69 73 2e 74 each(mem; this.t
0630: 75 70 6c 65 6f 66 29 0d 0a 09 09 09 68 20 2b 3d upleof).....h +=
0640: 20 74 79 70 65 69 64 28 6d 65 6d 29 2e 67 65 74 typeid(mem).get
0650: 48 61 73 68 28 26 6d 65 6d 29 3b 0d 0a 09 09 72 Hash(&mem);....r
0660: 65 74 75 72 6e 20 68 3b 0d 0a 09 7d 0d 0a 0d 0a eturn h;...}....
0670: 09 6f 76 65 72 72 69 64 65 20 69 6e 74 20 6f 70 .override int op
0680: 43 6d 70 28 4f 62 6a 65 63 74 20 72 68 73 5f 29 Cmp(Object rhs_)
0690: 20 63 6f 6e 73 74 0d 0a 09 7b 0d 0a 09 09 69 66 const...{....if
06a0: 28 20 61 75 74 6f 20 72 68 73 20 3d 20 63 61 73 ( auto rhs = cas
06b0: 74 28 74 79 70 65 6f 66 28 74 68 69 73 29 29 72 t(typeof(this))r
06c0: 68 73 5f 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 66 hs_ )....{.....f
06d0: 6f 72 65 61 63 68 28 69 2c 5f 3b 20 74 68 69 73 oreach(i,_; this
06e0: 2e 74 75 70 6c 65 6f 66 29 0d 0a 09 09 09 09 69 .tupleof)......i
06f0: 66 28 61 75 74 6f 20 63 20 3d 20 74 79 70 65 69 f(auto c = typei
0700: 64 28 5f 29 2e 63 6f 6d 70 61 72 65 28 26 74 68 d(_).compare(&th
0710: 69 73 2e 74 75 70 6c 65 6f 66 5b 69 5d 2c 26 72 is.tupleof[i],&r
0720: 68 73 2e 74 75 70 6c 65 6f 66 5b 69 5d 29 29 0d hs.tupleof[i])).
0730: 0a 09 09 09 09 09 72 65 74 75 72 6e 20 63 3b 0d ......return c;.
0740: 0a 09 09 09 72 65 74 75 72 6e 20 30 3b 0d 0a 09 ....return 0;...
0750: 09 7d 0d 0a 09 09 61 73 73 65 72 74 28 66 61 6c .}....assert(fal
0760: 73 65 2c 20 73 70 72 69 6e 74 66 21 22 43 61 6e se, sprintf!"Can
0770: 6e 6f 74 20 63 6f 6d 70 61 72 65 20 25 73 20 77 not compare %s w
0780: 69 74 68 20 25 73 22 28 74 79 70 65 69 64 28 74 ith %s"(typeid(t
0790: 68 69 73 29 2c 20 74 79 70 65 69 64 28 72 68 73 his), typeid(rhs
07a0: 5f 29 29 29 3b 0d 0a 09 7d 0d 0a 7d 0d 0a 0d 0a _)));...}..}....
07b0: 75 6e 69 74 74 65 73 74 0d 0a 7b 0d 0a 09 63 6c unittest..{...cl
07c0: 61 73 73 20 54 65 6d 70 0d 0a 09 7b 0d 0a 09 09 ass Temp...{....
07d0: 69 6e 74 20 78 3b 0d 0a 09 09 73 74 72 69 6e 67 int x;....string
07e0: 20 79 3b 0d 0a 09 09 6d 69 78 69 6e 20 53 69 6d y;....mixin Sim
07f0: 70 6c 65 43 6f 6e 73 74 72 75 63 74 6f 72 3b 0d pleConstructor;.
0800: 0a 09 09 6d 69 78 69 6e 20 53 69 6d 70 6c 65 43 ...mixin SimpleC
0810: 6f 6d 70 61 72 65 3b 0d 0a 09 7d 0d 0a 09 61 73 ompare;...}...as
0820: 73 65 72 74 28 20 28 6e 65 77 20 54 65 6d 70 28 sert( (new Temp(
0830: 31 2c 22 66 6f 6f 22 29 29 2e 78 20 3d 3d 20 31 1,"foo")).x == 1
0840: 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 20 28 6e );...assert( (n
0850: 65 77 20 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 ew Temp(1,"foo")
0860: 29 2e 79 20 3d 3d 20 22 66 6f 6f 22 20 29 3b 0d ).y == "foo" );.
0870: 0a 09 61 73 73 65 72 74 28 20 21 5f 5f 74 72 61 ..assert( !__tra
0880: 69 74 73 28 63 6f 6d 70 69 6c 65 73 2c 20 6e 65 its(compiles, ne
0890: 77 20 54 65 6d 70 29 20 29 3b 0d 0a 09 61 73 73 w Temp) );...ass
08a0: 65 72 74 28 20 21 5f 5f 74 72 61 69 74 73 28 63 ert( !__traits(c
08b0: 6f 6d 70 69 6c 65 73 2c 20 6e 65 77 20 54 65 6d ompiles, new Tem
08c0: 70 28 31 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 p(1)) );...asser
08d0: 74 28 20 21 5f 5f 74 72 61 69 74 73 28 63 6f 6d t( !__traits(com
08e0: 70 69 6c 65 73 2c 20 6e 65 77 20 54 65 6d 70 28 piles, new Temp(
08f0: 22 66 6f 6f 22 2c 31 29 29 20 29 3b 0d 0a 09 61 "foo",1)) );...a
0900: 73 73 65 72 74 28 20 6e 65 77 20 54 65 6d 70 28 ssert( new Temp(
0910: 31 2c 22 66 6f 6f 22 29 20 3d 3d 20 6e 65 77 20 1,"foo") == new
0920: 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 20 29 3b Temp(1,"foo") );
0930: 0d 0a 09 61 73 73 65 72 74 28 20 28 6e 65 77 20 ...assert( (new
0940: 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 29 2e 74 Temp(1,"foo")).t
0950: 6f 48 61 73 68 20 3d 3d 20 28 6e 65 77 20 54 65 oHash == (new Te
0960: 6d 70 28 31 2c 22 66 6f 6f 22 29 29 2e 74 6f 48 mp(1,"foo")).toH
0970: 61 73 68 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 ash );...assert(
0980: 20 6e 65 77 20 54 65 6d 70 28 31 2c 22 66 6f 6f new Temp(1,"foo
0990: 22 29 20 21 3d 20 6e 65 77 20 54 65 6d 70 28 32 ") != new Temp(2
09a0: 2c 22 66 6f 6f 22 29 20 29 3b 0d 0a 09 61 73 73 ,"foo") );...ass
09b0: 65 72 74 28 20 6e 65 77 20 54 65 6d 70 28 31 2c ert( new Temp(1,
09c0: 22 66 6f 6f 22 29 20 21 3d 20 6e 65 77 20 54 65 "foo") != new Te
09d0: 6d 70 28 31 2c 22 62 61 72 22 29 20 29 3b 0d 0a mp(1,"bar") );..
09e0: 09 61 73 73 65 72 74 28 20 6e 65 77 20 54 65 6d .assert( new Tem
09f0: 70 28 31 2c 22 66 6f 6f 22 29 20 3e 20 6e 65 77 p(1,"foo") > new
0a00: 20 54 65 6d 70 28 31 2c 22 62 61 72 22 29 20 29 Temp(1,"bar") )
0a10: 3b 0d 0a 09 61 73 73 65 72 74 28 20 6e 65 77 20 ;...assert( new
0a20: 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 20 3c 20 Temp(1,"foo") <
0a30: 6e 65 77 20 54 65 6d 70 28 32 2c 22 62 61 72 22 new Temp(2,"bar"
0a40: 29 20 29 3b 0d 0a 7d 0d 0a ) );..}..