Artifact 193cf29f54393c6ef52a4b6a9ea671edc78eace2:
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 74 ams )....{.....t
0310: 68 69 73 2e 74 75 70 6c 65 6f 66 20 3d 20 70 61 his.tupleof = pa
0320: 72 61 6d 73 3b 0d 0a 09 09 7d 0d 0a 09 65 6c 73 rams;....}...els
0330: 65 0d 0a 09 09 2f 2f 20 74 68 69 73 20 70 61 72 e....// this par
0340: 61 6d 65 74 65 72 20 6c 69 73 74 20 69 73 20 6e ameter list is n
0350: 6f 74 20 61 6c 77 61 79 73 20 64 65 73 69 72 61 ot always desira
0360: 62 6c 65 20 62 75 74 20 73 68 6f 75 6c 64 20 77 ble but should w
0370: 6f 72 6b 20 66 6f 72 20 6d 61 6e 79 20 63 61 73 ork for many cas
0380: 65 73 0d 0a 09 09 74 68 69 73 28 20 74 79 70 65 es....this( type
0390: 6f 66 28 73 75 70 65 72 2e 74 75 70 6c 65 6f 66 of(super.tupleof
03a0: 29 20 70 73 2c 20 74 79 70 65 6f 66 28 74 68 69 ) ps, typeof(thi
03b0: 73 2e 74 75 70 6c 65 6f 66 29 20 70 61 72 61 6d s.tupleof) param
03c0: 73 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 75 70 s )....{.....sup
03d0: 65 72 28 70 73 29 3b 0d 0a 09 09 09 74 68 69 73 er(ps);.....this
03e0: 2e 74 75 70 6c 65 6f 66 20 3d 20 70 61 72 61 6d .tupleof = param
03f0: 73 3b 0d 0a 09 09 7d 0d 0a 7d 0d 0a 0d 0a 2f 2f s;....}..}....//
0400: 2f 20 4d 69 78 69 6e 67 2d 69 6e 20 74 68 65 20 / Mixing-in the
0410: 28 4d 4f 53 54 2d 44 45 52 49 56 45 44 29 20 6d (MOST-DERIVED) m
0420: 65 6d 62 65 72 2d 77 69 73 65 20 63 6f 6d 70 61 ember-wise compa
0430: 72 61 74 6f 72 20 66 6f 72 20 61 20 63 6c 61 73 rator for a clas
0440: 73 0d 0a 0d 0a 2f 2a 6d 69 78 69 6e 2a 2f 20 74 s..../*mixin*/ t
0450: 65 6d 70 6c 61 74 65 20 53 69 6d 70 6c 65 43 6f emplate SimpleCo
0460: 6d 70 61 72 65 28 29 0d 0a 7b 0d 0a 09 6f 76 65 mpare()..{...ove
0470: 72 72 69 64 65 20 62 6f 6f 6c 20 6f 70 45 71 75 rride bool opEqu
0480: 61 6c 73 28 4f 62 6a 65 63 74 20 72 68 73 5f 29 als(Object rhs_)
0490: 20 63 6f 6e 73 74 0d 0a 09 7b 0d 0a 09 09 69 66 const...{....if
04a0: 28 20 61 75 74 6f 20 72 68 73 20 3d 20 63 61 73 ( auto rhs = cas
04b0: 74 28 74 79 70 65 6f 66 28 74 68 69 73 29 29 72 t(typeof(this))r
04c0: 68 73 5f 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 66 hs_ )....{.....f
04d0: 6f 72 65 61 63 68 28 69 2c 5f 3b 20 74 68 69 73 oreach(i,_; this
04e0: 2e 74 75 70 6c 65 6f 66 29 0d 0a 09 09 09 09 69 .tupleof)......i
04f0: 66 28 20 74 68 69 73 2e 74 75 70 6c 65 6f 66 5b f( this.tupleof[
0500: 69 5d 20 21 3d 20 72 68 73 2e 74 75 70 6c 65 6f i] != rhs.tupleo
0510: 66 5b 69 5d 20 29 0d 0a 09 09 09 09 09 72 65 74 f[i] ).......ret
0520: 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 09 09 09 72 urn false;.....r
0530: 65 74 75 72 6e 20 74 72 75 65 3b 0d 0a 09 09 7d eturn true;....}
0540: 0d 0a 09 09 61 73 73 65 72 74 28 66 61 6c 73 65 ....assert(false
0550: 2c 20 73 70 72 69 6e 74 66 21 22 43 61 6e 6e 6f , sprintf!"Canno
0560: 74 20 63 6f 6d 70 61 72 65 20 25 73 20 77 69 74 t compare %s wit
0570: 68 20 25 73 22 28 74 79 70 65 69 64 28 74 68 69 h %s"(typeid(thi
0580: 73 29 2c 20 74 79 70 65 69 64 28 72 68 73 5f 29 s), typeid(rhs_)
0590: 29 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 6f 76 65 72 ));...}.....over
05a0: 72 69 64 65 20 68 61 73 68 5f 74 20 74 6f 48 61 ride hash_t toHa
05b0: 73 68 28 29 20 63 6f 6e 73 74 0d 0a 09 7b 0d 0a sh() const...{..
05c0: 09 09 68 61 73 68 5f 74 20 68 20 3d 20 30 3b 0d ..hash_t h = 0;.
05d0: 0a 09 09 66 6f 72 65 61 63 68 28 6d 65 6d 3b 20 ...foreach(mem;
05e0: 74 68 69 73 2e 74 75 70 6c 65 6f 66 29 0d 0a 09 this.tupleof)...
05f0: 09 09 68 20 2b 3d 20 74 79 70 65 69 64 28 6d 65 ..h += typeid(me
0600: 6d 29 2e 67 65 74 48 61 73 68 28 26 6d 65 6d 29 m).getHash(&mem)
0610: 3b 0d 0a 09 09 72 65 74 75 72 6e 20 68 3b 0d 0a ;....return h;..
0620: 09 7d 0d 0a 0d 0a 09 6f 76 65 72 72 69 64 65 20 .}.....override
0630: 69 6e 74 20 6f 70 43 6d 70 28 4f 62 6a 65 63 74 int opCmp(Object
0640: 20 72 68 73 5f 29 20 63 6f 6e 73 74 0d 0a 09 7b rhs_) const...{
0650: 0d 0a 09 09 69 66 28 20 61 75 74 6f 20 72 68 73 ....if( auto rhs
0660: 20 3d 20 63 61 73 74 28 74 79 70 65 6f 66 28 74 = cast(typeof(t
0670: 68 69 73 29 29 72 68 73 5f 20 29 0d 0a 09 09 7b his))rhs_ )....{
0680: 0d 0a 09 09 09 66 6f 72 65 61 63 68 28 69 2c 5f .....foreach(i,_
0690: 3b 20 74 68 69 73 2e 74 75 70 6c 65 6f 66 29 0d ; this.tupleof).
06a0: 0a 09 09 09 09 69 66 28 61 75 74 6f 20 63 20 3d .....if(auto c =
06b0: 20 74 79 70 65 69 64 28 5f 29 2e 63 6f 6d 70 61 typeid(_).compa
06c0: 72 65 28 26 74 68 69 73 2e 74 75 70 6c 65 6f 66 re(&this.tupleof
06d0: 5b 69 5d 2c 26 72 68 73 2e 74 75 70 6c 65 6f 66 [i],&rhs.tupleof
06e0: 5b 69 5d 29 29 0d 0a 09 09 09 09 09 72 65 74 75 [i])).......retu
06f0: 72 6e 20 63 3b 0d 0a 09 09 09 72 65 74 75 72 6e rn c;.....return
0700: 20 30 3b 0d 0a 09 09 7d 0d 0a 09 09 61 73 73 65 0;....}....asse
0710: 72 74 28 66 61 6c 73 65 2c 20 73 70 72 69 6e 74 rt(false, sprint
0720: 66 21 22 43 61 6e 6e 6f 74 20 63 6f 6d 70 61 72 f!"Cannot compar
0730: 65 20 25 73 20 77 69 74 68 20 25 73 22 28 74 79 e %s with %s"(ty
0740: 70 65 69 64 28 74 68 69 73 29 2c 20 74 79 70 65 peid(this), type
0750: 69 64 28 72 68 73 5f 29 29 29 3b 0d 0a 09 7d 0d id(rhs_)));...}.
0760: 0a 7d 0d 0a 0d 0a 75 6e 69 74 74 65 73 74 0d 0a .}....unittest..
0770: 7b 0d 0a 09 63 6c 61 73 73 20 54 65 6d 70 0d 0a {...class Temp..
0780: 09 7b 0d 0a 09 09 69 6e 74 20 78 3b 0d 0a 09 09 .{....int x;....
0790: 73 74 72 69 6e 67 20 79 3b 0d 0a 09 09 6d 69 78 string y;....mix
07a0: 69 6e 20 53 69 6d 70 6c 65 43 6f 6e 73 74 72 75 in SimpleConstru
07b0: 63 74 6f 72 3b 0d 0a 09 09 6d 69 78 69 6e 20 53 ctor;....mixin S
07c0: 69 6d 70 6c 65 43 6f 6d 70 61 72 65 3b 0d 0a 09 impleCompare;...
07d0: 7d 0d 0a 09 61 73 73 65 72 74 28 20 28 6e 65 77 }...assert( (new
07e0: 20 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 29 2e Temp(1,"foo")).
07f0: 78 20 3d 3d 20 31 20 29 3b 0d 0a 09 61 73 73 65 x == 1 );...asse
0800: 72 74 28 20 28 6e 65 77 20 54 65 6d 70 28 31 2c rt( (new Temp(1,
0810: 22 66 6f 6f 22 29 29 2e 79 20 3d 3d 20 22 66 6f "foo")).y == "fo
0820: 6f 22 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 20 o" );...assert(
0830: 21 5f 5f 74 72 61 69 74 73 28 63 6f 6d 70 69 6c !__traits(compil
0840: 65 73 2c 20 6e 65 77 20 54 65 6d 70 29 20 29 3b es, new Temp) );
0850: 0d 0a 09 61 73 73 65 72 74 28 20 21 5f 5f 74 72 ...assert( !__tr
0860: 61 69 74 73 28 63 6f 6d 70 69 6c 65 73 2c 20 6e aits(compiles, n
0870: 65 77 20 54 65 6d 70 28 31 29 29 20 29 3b 0d 0a ew Temp(1)) );..
0880: 09 61 73 73 65 72 74 28 20 21 5f 5f 74 72 61 69 .assert( !__trai
0890: 74 73 28 63 6f 6d 70 69 6c 65 73 2c 20 6e 65 77 ts(compiles, new
08a0: 20 54 65 6d 70 28 22 66 6f 6f 22 2c 31 29 29 20 Temp("foo",1))
08b0: 29 3b 0d 0a 09 61 73 73 65 72 74 28 20 6e 65 77 );...assert( new
08c0: 20 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 20 3d Temp(1,"foo") =
08d0: 3d 20 6e 65 77 20 54 65 6d 70 28 31 2c 22 66 6f = new Temp(1,"fo
08e0: 6f 22 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 o") );...assert(
08f0: 20 28 6e 65 77 20 54 65 6d 70 28 31 2c 22 66 6f (new Temp(1,"fo
0900: 6f 22 29 29 2e 74 6f 48 61 73 68 20 3d 3d 20 28 o")).toHash == (
0910: 6e 65 77 20 54 65 6d 70 28 31 2c 22 66 6f 6f 22 new Temp(1,"foo"
0920: 29 29 2e 74 6f 48 61 73 68 20 29 3b 0d 0a 09 61 )).toHash );...a
0930: 73 73 65 72 74 28 20 6e 65 77 20 54 65 6d 70 28 ssert( new Temp(
0940: 31 2c 22 66 6f 6f 22 29 20 21 3d 20 6e 65 77 20 1,"foo") != new
0950: 54 65 6d 70 28 32 2c 22 66 6f 6f 22 29 20 29 3b Temp(2,"foo") );
0960: 0d 0a 09 61 73 73 65 72 74 28 20 6e 65 77 20 54 ...assert( new T
0970: 65 6d 70 28 31 2c 22 66 6f 6f 22 29 20 21 3d 20 emp(1,"foo") !=
0980: 6e 65 77 20 54 65 6d 70 28 31 2c 22 62 61 72 22 new Temp(1,"bar"
0990: 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 20 6e ) );...assert( n
09a0: 65 77 20 54 65 6d 70 28 31 2c 22 66 6f 6f 22 29 ew Temp(1,"foo")
09b0: 20 3e 20 6e 65 77 20 54 65 6d 70 28 31 2c 22 62 > new Temp(1,"b
09c0: 61 72 22 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 ar") );...assert
09d0: 28 20 6e 65 77 20 54 65 6d 70 28 31 2c 22 66 6f ( new Temp(1,"fo
09e0: 6f 22 29 20 3c 20 6e 65 77 20 54 65 6d 70 28 32 o") < new Temp(2
09f0: 2c 22 62 61 72 22 29 20 29 3b 0d 0a 7d 0d 0a ,"bar") );..}..