Files
ldc/tango/example/cluster/qclient.d
Tomas Lindquist Olsen b15b3484c8 [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.
2008-01-11 17:57:40 +01:00

45 lines
1.1 KiB
D

/*******************************************************************************
*******************************************************************************/
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);
}
}