Mercurial > projects > ldc
diff tango/example/cluster/Add.d @ 132:1700239cab2e trunk
[svn r136] MAJOR UNSTABLE UPDATE!!!
Initial commit after moving to Tango instead of Phobos.
Lots of bugfixes...
This build is not suitable for most things.
author | lindquist |
---|---|
date | Fri, 11 Jan 2008 17:57:40 +0100 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tango/example/cluster/Add.d Fri Jan 11 17:57:40 2008 +0100 @@ -0,0 +1,60 @@ +/******************************************************************************* + +*******************************************************************************/ + +public import tango.net.cluster.NetworkCall; + + +/******************************************************************************* + + a Task function + +*******************************************************************************/ + +real add (real x, real y) +{ + return x + y; +} + + +/******************************************************************************* + + a Task function + +*******************************************************************************/ + +int divide (int x, int y) +{ + return x / y; +} + + +/******************************************************************************* + + a verbose Task message + +*******************************************************************************/ + +class Subtract : NetworkCall +{ + double a, + b, + result; + + double opCall (double a, double b, IChannel channel = null) + { + this.a = a; + this.b = b; + send (channel); + return result; + } + + override void execute () + { + result = a - b; + } + + override void read (IReader input) {input (a)(b)(result);} + + override void write (IWriter output) {output (a)(b)(result);} +}