Mercurial > projects > ldc
view tests/mini/dgs.d @ 837:331a176c1f4f
Removed error on naked, not fully complete, but I'll be doing more work on it during this Christmas, and some things do work.
Fixed taking delegate of final class method. see mini/delegate3.d.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Tue, 09 Dec 2008 14:07:30 +0100 |
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"); }