Mercurial > projects > ldc
diff tango/example/cluster/qclient.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/qclient.d Fri Jan 11 17:57:40 2008 +0100 @@ -0,0 +1,44 @@ +/******************************************************************************* + + +*******************************************************************************/ + +import tango.io.Stdout; + +import tango.time.StopWatch; + +import tango.util.log.Configurator; + +import tango.net.cluster.NetworkQueue; + +import tango.net.cluster.tina.Cluster; + +/******************************************************************************* + + +*******************************************************************************/ + +void main (char[][] args) +{ + StopWatch w; + + auto cluster = (new Cluster).join; + auto queue = new NetworkQueue (cluster, "my.queue.channel"); + + while (true) + { + w.start; + for (int i=10000; i--;) + queue.put (queue.EmptyMessage); + + Stdout.formatln ("{} put/s", 10000/w.stop); + + uint count; + w.start; + while (queue.get !is null) + ++count; + + Stdout.formatln ("{} get/s", count/w.stop); + } +} +