view tango/example/cluster/qclient.d @ 358:051f5b550d9c trunk

[svn r379] Fix slice assigns of the form T[] = T when T is a typedef. Fixes run/a/array_initialization_20_B, D, F, H.
author ChristianK
date Mon, 14 Jul 2008 12:39:23 +0200
parents 1700239cab2e
children
line wrap: on
line source

/*******************************************************************************


*******************************************************************************/

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