Mercurial > projects > ldc
view tests/mini/dgs.d @ 1166:c6f39553b702
Clean up some suspicious code.
There's no guarantee a constant of integer type is a ConstantInt, so it's not
safe to just cast<> these to ConstantInt. (It could be a constant expression,
for example)
The code is shorter this way too :).
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Sun, 29 Mar 2009 03:27:04 +0200 |
parents | 1bb99290e03a |
children |
line wrap: on
line source
extern(C) int printf(char*, ...); struct S { int i; int square() { return i*i; } int plus(int a) { return i + a; } int minus(int a) { return i - a; } int delegate(int) get(char op) { int delegate(int) rval; if (op == '+') rval = + else if (op == '-') rval = − return rval; } } int calldg1(int delegate(int) dg, int i) { return dg(i); } void delegate() retdg() { void delegate() dg; return dg; } void getretdg() { void delegate() dg; dg = retdg(); } class C { int i; void m() { i = 42; } } void getclassdg() { scope c = new C; void delegate() dg = &c.m; assert(c.i != 42); dg(); assert(c.i == 42); } void main() { printf("Delegate test\n"); S s = S(4); auto dg = &s.square; //assert(dg() == 16); //dg(); /*auto dg1 = &s.plus; assert(dg1(6) == 10); auto dg2 = &s.minus; assert(calldg1(dg2,30) == -26); auto dg3 = s.get('+'); assert(dg3(16) == 20); getretdg(); getclassdg();*/ printf(" SUCCESS\n"); }